{- This file was auto-generated from etcd/api/etcdserverpb/rpc.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.Etcdserverpb.Rpc (
        KV(..), Watch(..), Lease(..), Cluster(..), Maintenance(..),
        Auth(..), AlarmMember(), AlarmRequest(),
        AlarmRequest'AlarmAction(..), AlarmRequest'AlarmAction(),
        AlarmRequest'AlarmAction'UnrecognizedValue, AlarmResponse(),
        AlarmType(..), AlarmType(), AlarmType'UnrecognizedValue,
        AuthDisableRequest(), AuthDisableResponse(), AuthEnableRequest(),
        AuthEnableResponse(), AuthRoleAddRequest(), AuthRoleAddResponse(),
        AuthRoleDeleteRequest(), AuthRoleDeleteResponse(),
        AuthRoleGetRequest(), AuthRoleGetResponse(),
        AuthRoleGrantPermissionRequest(),
        AuthRoleGrantPermissionResponse(), AuthRoleListRequest(),
        AuthRoleListResponse(), AuthRoleRevokePermissionRequest(),
        AuthRoleRevokePermissionResponse(), AuthStatusRequest(),
        AuthStatusResponse(), AuthUserAddRequest(), AuthUserAddResponse(),
        AuthUserChangePasswordRequest(), AuthUserChangePasswordResponse(),
        AuthUserDeleteRequest(), AuthUserDeleteResponse(),
        AuthUserGetRequest(), AuthUserGetResponse(),
        AuthUserGrantRoleRequest(), AuthUserGrantRoleResponse(),
        AuthUserListRequest(), AuthUserListResponse(),
        AuthUserRevokeRoleRequest(), AuthUserRevokeRoleResponse(),
        AuthenticateRequest(), AuthenticateResponse(), CompactionRequest(),
        CompactionResponse(), Compare(), Compare'TargetUnion(..),
        _Compare'Version, _Compare'CreateRevision, _Compare'ModRevision,
        _Compare'Value, _Compare'Lease, Compare'CompareResult(..),
        Compare'CompareResult(), Compare'CompareResult'UnrecognizedValue,
        Compare'CompareTarget(..), Compare'CompareTarget(),
        Compare'CompareTarget'UnrecognizedValue, DefragmentRequest(),
        DefragmentResponse(), DeleteRangeRequest(), DeleteRangeResponse(),
        DowngradeRequest(), DowngradeRequest'DowngradeAction(..),
        DowngradeRequest'DowngradeAction(),
        DowngradeRequest'DowngradeAction'UnrecognizedValue,
        DowngradeResponse(), DowngradeVersionTestRequest(),
        HashKVRequest(), HashKVResponse(), HashRequest(), HashResponse(),
        LeaseCheckpoint(), LeaseCheckpointRequest(),
        LeaseCheckpointResponse(), LeaseGrantRequest(),
        LeaseGrantResponse(), LeaseKeepAliveRequest(),
        LeaseKeepAliveResponse(), LeaseLeasesRequest(),
        LeaseLeasesResponse(), LeaseRevokeRequest(), LeaseRevokeResponse(),
        LeaseStatus(), LeaseTimeToLiveRequest(), LeaseTimeToLiveResponse(),
        Member(), MemberAddRequest(), MemberAddResponse(),
        MemberListRequest(), MemberListResponse(), MemberPromoteRequest(),
        MemberPromoteResponse(), MemberRemoveRequest(),
        MemberRemoveResponse(), MemberUpdateRequest(),
        MemberUpdateResponse(), MoveLeaderRequest(), MoveLeaderResponse(),
        PutRequest(), PutResponse(), RangeRequest(),
        RangeRequest'SortOrder(..), RangeRequest'SortOrder(),
        RangeRequest'SortOrder'UnrecognizedValue,
        RangeRequest'SortTarget(..), RangeRequest'SortTarget(),
        RangeRequest'SortTarget'UnrecognizedValue, RangeResponse(),
        RequestOp(), RequestOp'Request(..), _RequestOp'RequestRange,
        _RequestOp'RequestPut, _RequestOp'RequestDeleteRange,
        _RequestOp'RequestTxn, ResponseHeader(), ResponseOp(),
        ResponseOp'Response(..), _ResponseOp'ResponseRange,
        _ResponseOp'ResponsePut, _ResponseOp'ResponseDeleteRange,
        _ResponseOp'ResponseTxn, SnapshotRequest(), SnapshotResponse(),
        StatusRequest(), StatusResponse(), TxnRequest(), TxnResponse(),
        WatchCancelRequest(), WatchCreateRequest(),
        WatchCreateRequest'FilterType(..), WatchCreateRequest'FilterType(),
        WatchCreateRequest'FilterType'UnrecognizedValue,
        WatchProgressRequest(), WatchRequest(),
        WatchRequest'RequestUnion(..), _WatchRequest'CreateRequest,
        _WatchRequest'CancelRequest, _WatchRequest'ProgressRequest,
        WatchResponse()
    ) 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.Etcd.Api.Authpb.Auth
import qualified Proto.Etcd.Api.Mvccpb.Kv
import qualified Proto.Etcd.Api.Versionpb.Version
import qualified Proto.Gogoproto.Gogo
import qualified Proto.Google.Api.Annotations
import qualified Proto.ProtocGenOpenapiv2.Options.Annotations
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.memberID' @:: Lens' AlarmMember Data.Word.Word64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.alarm' @:: Lens' AlarmMember AlarmType@ -}
data AlarmMember
  = AlarmMember'_constructor {AlarmMember -> Word64
_AlarmMember'memberID :: !Data.Word.Word64,
                              AlarmMember -> AlarmType
_AlarmMember'alarm :: !AlarmType,
                              AlarmMember -> FieldSet
_AlarmMember'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AlarmMember -> AlarmMember -> Bool
(AlarmMember -> AlarmMember -> Bool)
-> (AlarmMember -> AlarmMember -> Bool) -> Eq AlarmMember
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AlarmMember -> AlarmMember -> Bool
== :: AlarmMember -> AlarmMember -> Bool
$c/= :: AlarmMember -> AlarmMember -> Bool
/= :: AlarmMember -> AlarmMember -> Bool
Prelude.Eq, Eq AlarmMember
Eq AlarmMember =>
(AlarmMember -> AlarmMember -> Ordering)
-> (AlarmMember -> AlarmMember -> Bool)
-> (AlarmMember -> AlarmMember -> Bool)
-> (AlarmMember -> AlarmMember -> Bool)
-> (AlarmMember -> AlarmMember -> Bool)
-> (AlarmMember -> AlarmMember -> AlarmMember)
-> (AlarmMember -> AlarmMember -> AlarmMember)
-> Ord AlarmMember
AlarmMember -> AlarmMember -> Bool
AlarmMember -> AlarmMember -> Ordering
AlarmMember -> AlarmMember -> AlarmMember
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 :: AlarmMember -> AlarmMember -> Ordering
compare :: AlarmMember -> AlarmMember -> Ordering
$c< :: AlarmMember -> AlarmMember -> Bool
< :: AlarmMember -> AlarmMember -> Bool
$c<= :: AlarmMember -> AlarmMember -> Bool
<= :: AlarmMember -> AlarmMember -> Bool
$c> :: AlarmMember -> AlarmMember -> Bool
> :: AlarmMember -> AlarmMember -> Bool
$c>= :: AlarmMember -> AlarmMember -> Bool
>= :: AlarmMember -> AlarmMember -> Bool
$cmax :: AlarmMember -> AlarmMember -> AlarmMember
max :: AlarmMember -> AlarmMember -> AlarmMember
$cmin :: AlarmMember -> AlarmMember -> AlarmMember
min :: AlarmMember -> AlarmMember -> AlarmMember
Prelude.Ord)
instance Prelude.Show AlarmMember where
  showsPrec :: Int -> AlarmMember -> ShowS
showsPrec Int
_ AlarmMember
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AlarmMember -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AlarmMember
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AlarmMember "memberID" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "memberID"
-> (Word64 -> f Word64) -> AlarmMember -> f AlarmMember
fieldOf Proxy# "memberID"
_
    = ((Word64 -> f Word64) -> AlarmMember -> f AlarmMember)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> AlarmMember
-> f AlarmMember
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AlarmMember -> Word64)
-> (AlarmMember -> Word64 -> AlarmMember)
-> Lens AlarmMember AlarmMember Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AlarmMember -> Word64
_AlarmMember'memberID
           (\ AlarmMember
x__ Word64
y__ -> AlarmMember
x__ {_AlarmMember'memberID = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AlarmMember "alarm" AlarmType where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "alarm"
-> (AlarmType -> f AlarmType) -> AlarmMember -> f AlarmMember
fieldOf Proxy# "alarm"
_
    = ((AlarmType -> f AlarmType) -> AlarmMember -> f AlarmMember)
-> ((AlarmType -> f AlarmType) -> AlarmType -> f AlarmType)
-> (AlarmType -> f AlarmType)
-> AlarmMember
-> f AlarmMember
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AlarmMember -> AlarmType)
-> (AlarmMember -> AlarmType -> AlarmMember)
-> Lens AlarmMember AlarmMember AlarmType AlarmType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AlarmMember -> AlarmType
_AlarmMember'alarm (\ AlarmMember
x__ AlarmType
y__ -> AlarmMember
x__ {_AlarmMember'alarm = y__}))
        (AlarmType -> f AlarmType) -> AlarmType -> f AlarmType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AlarmMember where
  messageName :: Proxy AlarmMember -> Text
messageName Proxy AlarmMember
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AlarmMember"
  packedMessageDescriptor :: Proxy AlarmMember -> ByteString
packedMessageDescriptor Proxy AlarmMember
_
    = ByteString
"\n\
      \\vAlarmMember\DC2\SUB\n\
      \\bmemberID\CAN\SOH \SOH(\EOTR\bmemberID\DC2-\n\
      \\ENQalarm\CAN\STX \SOH(\SO2\ETB.etcdserverpb.AlarmTypeR\ENQalarm:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AlarmMember -> ByteString
packedFileDescriptor Proxy AlarmMember
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AlarmMember)
fieldsByTag
    = let
        memberID__field_descriptor :: FieldDescriptor AlarmMember
memberID__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor AlarmMember Word64
-> FieldDescriptor AlarmMember
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"memberID"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens AlarmMember AlarmMember Word64 Word64
-> FieldAccessor AlarmMember Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"memberID")) ::
              Data.ProtoLens.FieldDescriptor AlarmMember
        alarm__field_descriptor :: FieldDescriptor AlarmMember
alarm__field_descriptor
          = String
-> FieldTypeDescriptor AlarmType
-> FieldAccessor AlarmMember AlarmType
-> FieldDescriptor AlarmMember
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"alarm"
              (ScalarField AlarmType -> FieldTypeDescriptor AlarmType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField AlarmType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor AlarmType)
              (WireDefault AlarmType
-> Lens AlarmMember AlarmMember AlarmType AlarmType
-> FieldAccessor AlarmMember AlarmType
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault AlarmType
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 @"alarm")) ::
              Data.ProtoLens.FieldDescriptor AlarmMember
      in
        [(Tag, FieldDescriptor AlarmMember)]
-> Map Tag (FieldDescriptor AlarmMember)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AlarmMember
memberID__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AlarmMember
alarm__field_descriptor)]
  unknownFields :: Lens' AlarmMember FieldSet
unknownFields
    = (AlarmMember -> FieldSet)
-> (AlarmMember -> FieldSet -> AlarmMember)
-> Lens' AlarmMember FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AlarmMember -> FieldSet
_AlarmMember'_unknownFields
        (\ AlarmMember
x__ FieldSet
y__ -> AlarmMember
x__ {_AlarmMember'_unknownFields = y__})
  defMessage :: AlarmMember
defMessage
    = AlarmMember'_constructor
        {_AlarmMember'memberID :: Word64
_AlarmMember'memberID = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AlarmMember'alarm :: AlarmType
_AlarmMember'alarm = AlarmType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AlarmMember'_unknownFields :: FieldSet
_AlarmMember'_unknownFields = []}
  parseMessage :: Parser AlarmMember
parseMessage
    = let
        loop ::
          AlarmMember -> Data.ProtoLens.Encoding.Bytes.Parser AlarmMember
        loop :: AlarmMember -> Parser AlarmMember
loop AlarmMember
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 Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"memberID"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"memberID") y x)
                        Word64
16
                          -> do y <- Parser AlarmType -> String -> Parser AlarmType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> AlarmType) -> Parser Int -> Parser AlarmType
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> AlarmType
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
"alarm"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"alarm") 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 AlarmMember -> String -> Parser AlarmMember
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AlarmMember -> Parser AlarmMember
loop AlarmMember
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AlarmMember"
  buildMessage :: AlarmMember -> Builder
buildMessage
    = \ AlarmMember
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Word64
_v = FoldLike Word64 AlarmMember AlarmMember Word64 Word64
-> AlarmMember -> Word64
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 @"memberID") AlarmMember
_x
              in
                if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: AlarmType
_v = FoldLike AlarmType AlarmMember AlarmMember AlarmType AlarmType
-> AlarmMember -> AlarmType
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 @"alarm") AlarmMember
_x
                 in
                   if AlarmType -> AlarmType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) AlarmType
_v AlarmType
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)
                         ((Int -> Builder) -> (AlarmType -> Int) -> AlarmType -> 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)
                            AlarmType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum AlarmType
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet AlarmMember AlarmMember FieldSet FieldSet
-> AlarmMember -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AlarmMember AlarmMember FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AlarmMember FieldSet
Data.ProtoLens.unknownFields AlarmMember
_x)))
instance Control.DeepSeq.NFData AlarmMember where
  rnf :: AlarmMember -> ()
rnf
    = \ AlarmMember
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AlarmMember -> FieldSet
_AlarmMember'_unknownFields AlarmMember
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AlarmMember -> Word64
_AlarmMember'memberID AlarmMember
x__)
                (AlarmType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AlarmMember -> AlarmType
_AlarmMember'alarm AlarmMember
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.action' @:: Lens' AlarmRequest AlarmRequest'AlarmAction@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.memberID' @:: Lens' AlarmRequest Data.Word.Word64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.alarm' @:: Lens' AlarmRequest AlarmType@ -}
data AlarmRequest
  = AlarmRequest'_constructor {AlarmRequest -> AlarmRequest'AlarmAction
_AlarmRequest'action :: !AlarmRequest'AlarmAction,
                               AlarmRequest -> Word64
_AlarmRequest'memberID :: !Data.Word.Word64,
                               AlarmRequest -> AlarmType
_AlarmRequest'alarm :: !AlarmType,
                               AlarmRequest -> FieldSet
_AlarmRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AlarmRequest -> AlarmRequest -> Bool
(AlarmRequest -> AlarmRequest -> Bool)
-> (AlarmRequest -> AlarmRequest -> Bool) -> Eq AlarmRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AlarmRequest -> AlarmRequest -> Bool
== :: AlarmRequest -> AlarmRequest -> Bool
$c/= :: AlarmRequest -> AlarmRequest -> Bool
/= :: AlarmRequest -> AlarmRequest -> Bool
Prelude.Eq, Eq AlarmRequest
Eq AlarmRequest =>
(AlarmRequest -> AlarmRequest -> Ordering)
-> (AlarmRequest -> AlarmRequest -> Bool)
-> (AlarmRequest -> AlarmRequest -> Bool)
-> (AlarmRequest -> AlarmRequest -> Bool)
-> (AlarmRequest -> AlarmRequest -> Bool)
-> (AlarmRequest -> AlarmRequest -> AlarmRequest)
-> (AlarmRequest -> AlarmRequest -> AlarmRequest)
-> Ord AlarmRequest
AlarmRequest -> AlarmRequest -> Bool
AlarmRequest -> AlarmRequest -> Ordering
AlarmRequest -> AlarmRequest -> AlarmRequest
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 :: AlarmRequest -> AlarmRequest -> Ordering
compare :: AlarmRequest -> AlarmRequest -> Ordering
$c< :: AlarmRequest -> AlarmRequest -> Bool
< :: AlarmRequest -> AlarmRequest -> Bool
$c<= :: AlarmRequest -> AlarmRequest -> Bool
<= :: AlarmRequest -> AlarmRequest -> Bool
$c> :: AlarmRequest -> AlarmRequest -> Bool
> :: AlarmRequest -> AlarmRequest -> Bool
$c>= :: AlarmRequest -> AlarmRequest -> Bool
>= :: AlarmRequest -> AlarmRequest -> Bool
$cmax :: AlarmRequest -> AlarmRequest -> AlarmRequest
max :: AlarmRequest -> AlarmRequest -> AlarmRequest
$cmin :: AlarmRequest -> AlarmRequest -> AlarmRequest
min :: AlarmRequest -> AlarmRequest -> AlarmRequest
Prelude.Ord)
instance Prelude.Show AlarmRequest where
  showsPrec :: Int -> AlarmRequest -> ShowS
showsPrec Int
_ AlarmRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AlarmRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AlarmRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AlarmRequest "action" AlarmRequest'AlarmAction where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "action"
-> (AlarmRequest'AlarmAction -> f AlarmRequest'AlarmAction)
-> AlarmRequest
-> f AlarmRequest
fieldOf Proxy# "action"
_
    = ((AlarmRequest'AlarmAction -> f AlarmRequest'AlarmAction)
 -> AlarmRequest -> f AlarmRequest)
-> ((AlarmRequest'AlarmAction -> f AlarmRequest'AlarmAction)
    -> AlarmRequest'AlarmAction -> f AlarmRequest'AlarmAction)
-> (AlarmRequest'AlarmAction -> f AlarmRequest'AlarmAction)
-> AlarmRequest
-> f AlarmRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AlarmRequest -> AlarmRequest'AlarmAction)
-> (AlarmRequest -> AlarmRequest'AlarmAction -> AlarmRequest)
-> Lens
     AlarmRequest
     AlarmRequest
     AlarmRequest'AlarmAction
     AlarmRequest'AlarmAction
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AlarmRequest -> AlarmRequest'AlarmAction
_AlarmRequest'action
           (\ AlarmRequest
x__ AlarmRequest'AlarmAction
y__ -> AlarmRequest
x__ {_AlarmRequest'action = y__}))
        (AlarmRequest'AlarmAction -> f AlarmRequest'AlarmAction)
-> AlarmRequest'AlarmAction -> f AlarmRequest'AlarmAction
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AlarmRequest "memberID" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "memberID"
-> (Word64 -> f Word64) -> AlarmRequest -> f AlarmRequest
fieldOf Proxy# "memberID"
_
    = ((Word64 -> f Word64) -> AlarmRequest -> f AlarmRequest)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> AlarmRequest
-> f AlarmRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AlarmRequest -> Word64)
-> (AlarmRequest -> Word64 -> AlarmRequest)
-> Lens AlarmRequest AlarmRequest Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AlarmRequest -> Word64
_AlarmRequest'memberID
           (\ AlarmRequest
x__ Word64
y__ -> AlarmRequest
x__ {_AlarmRequest'memberID = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AlarmRequest "alarm" AlarmType where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "alarm"
-> (AlarmType -> f AlarmType) -> AlarmRequest -> f AlarmRequest
fieldOf Proxy# "alarm"
_
    = ((AlarmType -> f AlarmType) -> AlarmRequest -> f AlarmRequest)
-> ((AlarmType -> f AlarmType) -> AlarmType -> f AlarmType)
-> (AlarmType -> f AlarmType)
-> AlarmRequest
-> f AlarmRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AlarmRequest -> AlarmType)
-> (AlarmRequest -> AlarmType -> AlarmRequest)
-> Lens AlarmRequest AlarmRequest AlarmType AlarmType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AlarmRequest -> AlarmType
_AlarmRequest'alarm (\ AlarmRequest
x__ AlarmType
y__ -> AlarmRequest
x__ {_AlarmRequest'alarm = y__}))
        (AlarmType -> f AlarmType) -> AlarmType -> f AlarmType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AlarmRequest where
  messageName :: Proxy AlarmRequest -> Text
messageName Proxy AlarmRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AlarmRequest"
  packedMessageDescriptor :: Proxy AlarmRequest -> ByteString
packedMessageDescriptor Proxy AlarmRequest
_
    = ByteString
"\n\
      \\fAlarmRequest\DC2>\n\
      \\ACKaction\CAN\SOH \SOH(\SO2&.etcdserverpb.AlarmRequest.AlarmActionR\ACKaction\DC2\SUB\n\
      \\bmemberID\CAN\STX \SOH(\EOTR\bmemberID\DC2-\n\
      \\ENQalarm\CAN\ETX \SOH(\SO2\ETB.etcdserverpb.AlarmTypeR\ENQalarm\"=\n\
      \\vAlarmAction\DC2\a\n\
      \\ETXGET\DLE\NUL\DC2\f\n\
      \\bACTIVATE\DLE\SOH\DC2\SO\n\
      \\n\
      \DEACTIVATE\DLE\STX\SUB\a\146\181\CAN\ETX3.0:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AlarmRequest -> ByteString
packedFileDescriptor Proxy AlarmRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AlarmRequest)
fieldsByTag
    = let
        action__field_descriptor :: FieldDescriptor AlarmRequest
action__field_descriptor
          = String
-> FieldTypeDescriptor AlarmRequest'AlarmAction
-> FieldAccessor AlarmRequest AlarmRequest'AlarmAction
-> FieldDescriptor AlarmRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"action"
              (ScalarField AlarmRequest'AlarmAction
-> FieldTypeDescriptor AlarmRequest'AlarmAction
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField AlarmRequest'AlarmAction
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor AlarmRequest'AlarmAction)
              (WireDefault AlarmRequest'AlarmAction
-> Lens
     AlarmRequest
     AlarmRequest
     AlarmRequest'AlarmAction
     AlarmRequest'AlarmAction
-> FieldAccessor AlarmRequest AlarmRequest'AlarmAction
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault AlarmRequest'AlarmAction
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 @"action")) ::
              Data.ProtoLens.FieldDescriptor AlarmRequest
        memberID__field_descriptor :: FieldDescriptor AlarmRequest
memberID__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor AlarmRequest Word64
-> FieldDescriptor AlarmRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"memberID"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens AlarmRequest AlarmRequest Word64 Word64
-> FieldAccessor AlarmRequest Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"memberID")) ::
              Data.ProtoLens.FieldDescriptor AlarmRequest
        alarm__field_descriptor :: FieldDescriptor AlarmRequest
alarm__field_descriptor
          = String
-> FieldTypeDescriptor AlarmType
-> FieldAccessor AlarmRequest AlarmType
-> FieldDescriptor AlarmRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"alarm"
              (ScalarField AlarmType -> FieldTypeDescriptor AlarmType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField AlarmType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor AlarmType)
              (WireDefault AlarmType
-> Lens AlarmRequest AlarmRequest AlarmType AlarmType
-> FieldAccessor AlarmRequest AlarmType
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault AlarmType
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 @"alarm")) ::
              Data.ProtoLens.FieldDescriptor AlarmRequest
      in
        [(Tag, FieldDescriptor AlarmRequest)]
-> Map Tag (FieldDescriptor AlarmRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AlarmRequest
action__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AlarmRequest
memberID__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor AlarmRequest
alarm__field_descriptor)]
  unknownFields :: Lens' AlarmRequest FieldSet
unknownFields
    = (AlarmRequest -> FieldSet)
-> (AlarmRequest -> FieldSet -> AlarmRequest)
-> Lens' AlarmRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AlarmRequest -> FieldSet
_AlarmRequest'_unknownFields
        (\ AlarmRequest
x__ FieldSet
y__ -> AlarmRequest
x__ {_AlarmRequest'_unknownFields = y__})
  defMessage :: AlarmRequest
defMessage
    = AlarmRequest'_constructor
        {_AlarmRequest'action :: AlarmRequest'AlarmAction
_AlarmRequest'action = AlarmRequest'AlarmAction
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AlarmRequest'memberID :: Word64
_AlarmRequest'memberID = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AlarmRequest'alarm :: AlarmType
_AlarmRequest'alarm = AlarmType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AlarmRequest'_unknownFields :: FieldSet
_AlarmRequest'_unknownFields = []}
  parseMessage :: Parser AlarmRequest
parseMessage
    = let
        loop ::
          AlarmRequest -> Data.ProtoLens.Encoding.Bytes.Parser AlarmRequest
        loop :: AlarmRequest -> Parser AlarmRequest
loop AlarmRequest
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 AlarmRequest'AlarmAction
-> String -> Parser AlarmRequest'AlarmAction
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> AlarmRequest'AlarmAction)
-> Parser Int -> Parser AlarmRequest'AlarmAction
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> AlarmRequest'AlarmAction
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
"action"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"action") y x)
                        Word64
16
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"memberID"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"memberID") y x)
                        Word64
24
                          -> do y <- Parser AlarmType -> String -> Parser AlarmType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> AlarmType) -> Parser Int -> Parser AlarmType
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> AlarmType
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
"alarm"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"alarm") 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 AlarmRequest -> String -> Parser AlarmRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AlarmRequest -> Parser AlarmRequest
loop AlarmRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AlarmRequest"
  buildMessage :: AlarmRequest -> Builder
buildMessage
    = \ AlarmRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: AlarmRequest'AlarmAction
_v = FoldLike
  AlarmRequest'AlarmAction
  AlarmRequest
  AlarmRequest
  AlarmRequest'AlarmAction
  AlarmRequest'AlarmAction
-> AlarmRequest -> AlarmRequest'AlarmAction
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 @"action") AlarmRequest
_x
              in
                if AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) AlarmRequest'AlarmAction
_v AlarmRequest'AlarmAction
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)
-> (AlarmRequest'AlarmAction -> Int)
-> AlarmRequest'AlarmAction
-> 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)
                         AlarmRequest'AlarmAction -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum AlarmRequest'AlarmAction
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Word64
_v = FoldLike Word64 AlarmRequest AlarmRequest Word64 Word64
-> AlarmRequest -> Word64
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 @"memberID") AlarmRequest
_x
                 in
                   if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: AlarmType
_v = FoldLike AlarmType AlarmRequest AlarmRequest AlarmType AlarmType
-> AlarmRequest -> AlarmType
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 @"alarm") AlarmRequest
_x
                    in
                      if AlarmType -> AlarmType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) AlarmType
_v AlarmType
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)
                            ((Int -> Builder) -> (AlarmType -> Int) -> AlarmType -> 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)
                               AlarmType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum AlarmType
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet AlarmRequest AlarmRequest FieldSet FieldSet
-> AlarmRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AlarmRequest AlarmRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AlarmRequest FieldSet
Data.ProtoLens.unknownFields AlarmRequest
_x))))
instance Control.DeepSeq.NFData AlarmRequest where
  rnf :: AlarmRequest -> ()
rnf
    = \ AlarmRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AlarmRequest -> FieldSet
_AlarmRequest'_unknownFields AlarmRequest
x__)
             (AlarmRequest'AlarmAction -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AlarmRequest -> AlarmRequest'AlarmAction
_AlarmRequest'action AlarmRequest
x__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AlarmRequest -> Word64
_AlarmRequest'memberID AlarmRequest
x__)
                   (AlarmType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AlarmRequest -> AlarmType
_AlarmRequest'alarm AlarmRequest
x__) ())))
newtype AlarmRequest'AlarmAction'UnrecognizedValue
  = AlarmRequest'AlarmAction'UnrecognizedValue Data.Int.Int32
  deriving stock (AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool
(AlarmRequest'AlarmAction'UnrecognizedValue
 -> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool)
-> (AlarmRequest'AlarmAction'UnrecognizedValue
    -> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool)
-> Eq AlarmRequest'AlarmAction'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool
== :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool
$c/= :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool
/= :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool
Prelude.Eq, Eq AlarmRequest'AlarmAction'UnrecognizedValue
Eq AlarmRequest'AlarmAction'UnrecognizedValue =>
(AlarmRequest'AlarmAction'UnrecognizedValue
 -> AlarmRequest'AlarmAction'UnrecognizedValue -> Ordering)
-> (AlarmRequest'AlarmAction'UnrecognizedValue
    -> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool)
-> (AlarmRequest'AlarmAction'UnrecognizedValue
    -> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool)
-> (AlarmRequest'AlarmAction'UnrecognizedValue
    -> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool)
-> (AlarmRequest'AlarmAction'UnrecognizedValue
    -> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool)
-> (AlarmRequest'AlarmAction'UnrecognizedValue
    -> AlarmRequest'AlarmAction'UnrecognizedValue
    -> AlarmRequest'AlarmAction'UnrecognizedValue)
-> (AlarmRequest'AlarmAction'UnrecognizedValue
    -> AlarmRequest'AlarmAction'UnrecognizedValue
    -> AlarmRequest'AlarmAction'UnrecognizedValue)
-> Ord AlarmRequest'AlarmAction'UnrecognizedValue
AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool
AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Ordering
AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'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 :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Ordering
compare :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Ordering
$c< :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool
< :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool
$c<= :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool
<= :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool
$c> :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool
> :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool
$c>= :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool
>= :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue -> Bool
$cmax :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue
max :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue
$cmin :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue
min :: AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction'UnrecognizedValue
Prelude.Ord, Int -> AlarmRequest'AlarmAction'UnrecognizedValue -> ShowS
[AlarmRequest'AlarmAction'UnrecognizedValue] -> ShowS
AlarmRequest'AlarmAction'UnrecognizedValue -> String
(Int -> AlarmRequest'AlarmAction'UnrecognizedValue -> ShowS)
-> (AlarmRequest'AlarmAction'UnrecognizedValue -> String)
-> ([AlarmRequest'AlarmAction'UnrecognizedValue] -> ShowS)
-> Show AlarmRequest'AlarmAction'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AlarmRequest'AlarmAction'UnrecognizedValue -> ShowS
showsPrec :: Int -> AlarmRequest'AlarmAction'UnrecognizedValue -> ShowS
$cshow :: AlarmRequest'AlarmAction'UnrecognizedValue -> String
show :: AlarmRequest'AlarmAction'UnrecognizedValue -> String
$cshowList :: [AlarmRequest'AlarmAction'UnrecognizedValue] -> ShowS
showList :: [AlarmRequest'AlarmAction'UnrecognizedValue] -> ShowS
Prelude.Show)
data AlarmRequest'AlarmAction
  = AlarmRequest'GET |
    AlarmRequest'ACTIVATE |
    AlarmRequest'DEACTIVATE |
    AlarmRequest'AlarmAction'Unrecognized !AlarmRequest'AlarmAction'UnrecognizedValue
  deriving stock (Int -> AlarmRequest'AlarmAction -> ShowS
[AlarmRequest'AlarmAction] -> ShowS
AlarmRequest'AlarmAction -> String
(Int -> AlarmRequest'AlarmAction -> ShowS)
-> (AlarmRequest'AlarmAction -> String)
-> ([AlarmRequest'AlarmAction] -> ShowS)
-> Show AlarmRequest'AlarmAction
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AlarmRequest'AlarmAction -> ShowS
showsPrec :: Int -> AlarmRequest'AlarmAction -> ShowS
$cshow :: AlarmRequest'AlarmAction -> String
show :: AlarmRequest'AlarmAction -> String
$cshowList :: [AlarmRequest'AlarmAction] -> ShowS
showList :: [AlarmRequest'AlarmAction] -> ShowS
Prelude.Show, AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool
(AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool)
-> (AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool)
-> Eq AlarmRequest'AlarmAction
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool
== :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool
$c/= :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool
/= :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool
Prelude.Eq, Eq AlarmRequest'AlarmAction
Eq AlarmRequest'AlarmAction =>
(AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Ordering)
-> (AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool)
-> (AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool)
-> (AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool)
-> (AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool)
-> (AlarmRequest'AlarmAction
    -> AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction)
-> (AlarmRequest'AlarmAction
    -> AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction)
-> Ord AlarmRequest'AlarmAction
AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool
AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Ordering
AlarmRequest'AlarmAction
-> AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction
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 :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Ordering
compare :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Ordering
$c< :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool
< :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool
$c<= :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool
<= :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool
$c> :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool
> :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool
$c>= :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool
>= :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction -> Bool
$cmax :: AlarmRequest'AlarmAction
-> AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction
max :: AlarmRequest'AlarmAction
-> AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction
$cmin :: AlarmRequest'AlarmAction
-> AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction
min :: AlarmRequest'AlarmAction
-> AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction
Prelude.Ord)
instance Data.ProtoLens.MessageEnum AlarmRequest'AlarmAction where
  maybeToEnum :: Int -> Maybe AlarmRequest'AlarmAction
maybeToEnum Int
0 = AlarmRequest'AlarmAction -> Maybe AlarmRequest'AlarmAction
forall a. a -> Maybe a
Prelude.Just AlarmRequest'AlarmAction
AlarmRequest'GET
  maybeToEnum Int
1 = AlarmRequest'AlarmAction -> Maybe AlarmRequest'AlarmAction
forall a. a -> Maybe a
Prelude.Just AlarmRequest'AlarmAction
AlarmRequest'ACTIVATE
  maybeToEnum Int
2 = AlarmRequest'AlarmAction -> Maybe AlarmRequest'AlarmAction
forall a. a -> Maybe a
Prelude.Just AlarmRequest'AlarmAction
AlarmRequest'DEACTIVATE
  maybeToEnum Int
k
    = AlarmRequest'AlarmAction -> Maybe AlarmRequest'AlarmAction
forall a. a -> Maybe a
Prelude.Just
        (AlarmRequest'AlarmAction'UnrecognizedValue
-> AlarmRequest'AlarmAction
AlarmRequest'AlarmAction'Unrecognized
           (Int32 -> AlarmRequest'AlarmAction'UnrecognizedValue
AlarmRequest'AlarmAction'UnrecognizedValue
              (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: AlarmRequest'AlarmAction -> String
showEnum AlarmRequest'AlarmAction
AlarmRequest'GET = String
"GET"
  showEnum AlarmRequest'AlarmAction
AlarmRequest'ACTIVATE = String
"ACTIVATE"
  showEnum AlarmRequest'AlarmAction
AlarmRequest'DEACTIVATE = String
"DEACTIVATE"
  showEnum
    (AlarmRequest'AlarmAction'Unrecognized (AlarmRequest'AlarmAction'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe AlarmRequest'AlarmAction
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"GET" = AlarmRequest'AlarmAction -> Maybe AlarmRequest'AlarmAction
forall a. a -> Maybe a
Prelude.Just AlarmRequest'AlarmAction
AlarmRequest'GET
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"ACTIVATE" = AlarmRequest'AlarmAction -> Maybe AlarmRequest'AlarmAction
forall a. a -> Maybe a
Prelude.Just AlarmRequest'AlarmAction
AlarmRequest'ACTIVATE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"DEACTIVATE"
    = AlarmRequest'AlarmAction -> Maybe AlarmRequest'AlarmAction
forall a. a -> Maybe a
Prelude.Just AlarmRequest'AlarmAction
AlarmRequest'DEACTIVATE
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe AlarmRequest'AlarmAction)
-> Maybe AlarmRequest'AlarmAction
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 AlarmRequest'AlarmAction
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded AlarmRequest'AlarmAction where
  minBound :: AlarmRequest'AlarmAction
minBound = AlarmRequest'AlarmAction
AlarmRequest'GET
  maxBound :: AlarmRequest'AlarmAction
maxBound = AlarmRequest'AlarmAction
AlarmRequest'DEACTIVATE
instance Prelude.Enum AlarmRequest'AlarmAction where
  toEnum :: Int -> AlarmRequest'AlarmAction
toEnum Int
k__
    = AlarmRequest'AlarmAction
-> (AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction)
-> Maybe AlarmRequest'AlarmAction
-> AlarmRequest'AlarmAction
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> AlarmRequest'AlarmAction
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum AlarmAction: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction
forall a. a -> a
Prelude.id (Int -> Maybe AlarmRequest'AlarmAction
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: AlarmRequest'AlarmAction -> Int
fromEnum AlarmRequest'AlarmAction
AlarmRequest'GET = Int
0
  fromEnum AlarmRequest'AlarmAction
AlarmRequest'ACTIVATE = Int
1
  fromEnum AlarmRequest'AlarmAction
AlarmRequest'DEACTIVATE = Int
2
  fromEnum
    (AlarmRequest'AlarmAction'Unrecognized (AlarmRequest'AlarmAction'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction
succ AlarmRequest'AlarmAction
AlarmRequest'DEACTIVATE
    = String -> AlarmRequest'AlarmAction
forall a. HasCallStack => String -> a
Prelude.error
        String
"AlarmRequest'AlarmAction.succ: bad argument AlarmRequest'DEACTIVATE. This value would be out of bounds."
  succ AlarmRequest'AlarmAction
AlarmRequest'GET = AlarmRequest'AlarmAction
AlarmRequest'ACTIVATE
  succ AlarmRequest'AlarmAction
AlarmRequest'ACTIVATE = AlarmRequest'AlarmAction
AlarmRequest'DEACTIVATE
  succ (AlarmRequest'AlarmAction'Unrecognized AlarmRequest'AlarmAction'UnrecognizedValue
_)
    = String -> AlarmRequest'AlarmAction
forall a. HasCallStack => String -> a
Prelude.error
        String
"AlarmRequest'AlarmAction.succ: bad argument: unrecognized value"
  pred :: AlarmRequest'AlarmAction -> AlarmRequest'AlarmAction
pred AlarmRequest'AlarmAction
AlarmRequest'GET
    = String -> AlarmRequest'AlarmAction
forall a. HasCallStack => String -> a
Prelude.error
        String
"AlarmRequest'AlarmAction.pred: bad argument AlarmRequest'GET. This value would be out of bounds."
  pred AlarmRequest'AlarmAction
AlarmRequest'ACTIVATE = AlarmRequest'AlarmAction
AlarmRequest'GET
  pred AlarmRequest'AlarmAction
AlarmRequest'DEACTIVATE = AlarmRequest'AlarmAction
AlarmRequest'ACTIVATE
  pred (AlarmRequest'AlarmAction'Unrecognized AlarmRequest'AlarmAction'UnrecognizedValue
_)
    = String -> AlarmRequest'AlarmAction
forall a. HasCallStack => String -> a
Prelude.error
        String
"AlarmRequest'AlarmAction.pred: bad argument: unrecognized value"
  enumFrom :: AlarmRequest'AlarmAction -> [AlarmRequest'AlarmAction]
enumFrom = AlarmRequest'AlarmAction -> [AlarmRequest'AlarmAction]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: AlarmRequest'AlarmAction
-> AlarmRequest'AlarmAction -> [AlarmRequest'AlarmAction]
enumFromTo = AlarmRequest'AlarmAction
-> AlarmRequest'AlarmAction -> [AlarmRequest'AlarmAction]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: AlarmRequest'AlarmAction
-> AlarmRequest'AlarmAction -> [AlarmRequest'AlarmAction]
enumFromThen = AlarmRequest'AlarmAction
-> AlarmRequest'AlarmAction -> [AlarmRequest'AlarmAction]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: AlarmRequest'AlarmAction
-> AlarmRequest'AlarmAction
-> AlarmRequest'AlarmAction
-> [AlarmRequest'AlarmAction]
enumFromThenTo = AlarmRequest'AlarmAction
-> AlarmRequest'AlarmAction
-> AlarmRequest'AlarmAction
-> [AlarmRequest'AlarmAction]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault AlarmRequest'AlarmAction where
  fieldDefault :: AlarmRequest'AlarmAction
fieldDefault = AlarmRequest'AlarmAction
AlarmRequest'GET
instance Control.DeepSeq.NFData AlarmRequest'AlarmAction where
  rnf :: AlarmRequest'AlarmAction -> ()
rnf AlarmRequest'AlarmAction
x__ = AlarmRequest'AlarmAction -> () -> ()
forall a b. a -> b -> b
Prelude.seq AlarmRequest'AlarmAction
x__ ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AlarmResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AlarmResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.alarms' @:: Lens' AlarmResponse [AlarmMember]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'alarms' @:: Lens' AlarmResponse (Data.Vector.Vector AlarmMember)@ -}
data AlarmResponse
  = AlarmResponse'_constructor {AlarmResponse -> Maybe ResponseHeader
_AlarmResponse'header :: !(Prelude.Maybe ResponseHeader),
                                AlarmResponse -> Vector AlarmMember
_AlarmResponse'alarms :: !(Data.Vector.Vector AlarmMember),
                                AlarmResponse -> FieldSet
_AlarmResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AlarmResponse -> AlarmResponse -> Bool
(AlarmResponse -> AlarmResponse -> Bool)
-> (AlarmResponse -> AlarmResponse -> Bool) -> Eq AlarmResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AlarmResponse -> AlarmResponse -> Bool
== :: AlarmResponse -> AlarmResponse -> Bool
$c/= :: AlarmResponse -> AlarmResponse -> Bool
/= :: AlarmResponse -> AlarmResponse -> Bool
Prelude.Eq, Eq AlarmResponse
Eq AlarmResponse =>
(AlarmResponse -> AlarmResponse -> Ordering)
-> (AlarmResponse -> AlarmResponse -> Bool)
-> (AlarmResponse -> AlarmResponse -> Bool)
-> (AlarmResponse -> AlarmResponse -> Bool)
-> (AlarmResponse -> AlarmResponse -> Bool)
-> (AlarmResponse -> AlarmResponse -> AlarmResponse)
-> (AlarmResponse -> AlarmResponse -> AlarmResponse)
-> Ord AlarmResponse
AlarmResponse -> AlarmResponse -> Bool
AlarmResponse -> AlarmResponse -> Ordering
AlarmResponse -> AlarmResponse -> AlarmResponse
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 :: AlarmResponse -> AlarmResponse -> Ordering
compare :: AlarmResponse -> AlarmResponse -> Ordering
$c< :: AlarmResponse -> AlarmResponse -> Bool
< :: AlarmResponse -> AlarmResponse -> Bool
$c<= :: AlarmResponse -> AlarmResponse -> Bool
<= :: AlarmResponse -> AlarmResponse -> Bool
$c> :: AlarmResponse -> AlarmResponse -> Bool
> :: AlarmResponse -> AlarmResponse -> Bool
$c>= :: AlarmResponse -> AlarmResponse -> Bool
>= :: AlarmResponse -> AlarmResponse -> Bool
$cmax :: AlarmResponse -> AlarmResponse -> AlarmResponse
max :: AlarmResponse -> AlarmResponse -> AlarmResponse
$cmin :: AlarmResponse -> AlarmResponse -> AlarmResponse
min :: AlarmResponse -> AlarmResponse -> AlarmResponse
Prelude.Ord)
instance Prelude.Show AlarmResponse where
  showsPrec :: Int -> AlarmResponse -> ShowS
showsPrec Int
_ AlarmResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AlarmResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AlarmResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AlarmResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AlarmResponse
-> f AlarmResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AlarmResponse -> f AlarmResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AlarmResponse
-> f AlarmResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AlarmResponse -> Maybe ResponseHeader)
-> (AlarmResponse -> Maybe ResponseHeader -> AlarmResponse)
-> Lens
     AlarmResponse
     AlarmResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AlarmResponse -> Maybe ResponseHeader
_AlarmResponse'header
           (\ AlarmResponse
x__ Maybe ResponseHeader
y__ -> AlarmResponse
x__ {_AlarmResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AlarmResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AlarmResponse
-> f AlarmResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AlarmResponse -> f AlarmResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AlarmResponse
-> f AlarmResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AlarmResponse -> Maybe ResponseHeader)
-> (AlarmResponse -> Maybe ResponseHeader -> AlarmResponse)
-> Lens
     AlarmResponse
     AlarmResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AlarmResponse -> Maybe ResponseHeader
_AlarmResponse'header
           (\ AlarmResponse
x__ Maybe ResponseHeader
y__ -> AlarmResponse
x__ {_AlarmResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AlarmResponse "alarms" [AlarmMember] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "alarms"
-> ([AlarmMember] -> f [AlarmMember])
-> AlarmResponse
-> f AlarmResponse
fieldOf Proxy# "alarms"
_
    = ((Vector AlarmMember -> f (Vector AlarmMember))
 -> AlarmResponse -> f AlarmResponse)
-> (([AlarmMember] -> f [AlarmMember])
    -> Vector AlarmMember -> f (Vector AlarmMember))
-> ([AlarmMember] -> f [AlarmMember])
-> AlarmResponse
-> f AlarmResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AlarmResponse -> Vector AlarmMember)
-> (AlarmResponse -> Vector AlarmMember -> AlarmResponse)
-> Lens
     AlarmResponse
     AlarmResponse
     (Vector AlarmMember)
     (Vector AlarmMember)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AlarmResponse -> Vector AlarmMember
_AlarmResponse'alarms
           (\ AlarmResponse
x__ Vector AlarmMember
y__ -> AlarmResponse
x__ {_AlarmResponse'alarms = y__}))
        ((Vector AlarmMember -> [AlarmMember])
-> (Vector AlarmMember -> [AlarmMember] -> Vector AlarmMember)
-> Lens
     (Vector AlarmMember)
     (Vector AlarmMember)
     [AlarmMember]
     [AlarmMember]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector AlarmMember -> [AlarmMember]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector AlarmMember
_ [AlarmMember]
y__ -> [AlarmMember] -> Vector AlarmMember
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [AlarmMember]
y__))
instance Data.ProtoLens.Field.HasField AlarmResponse "vec'alarms" (Data.Vector.Vector AlarmMember) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'alarms"
-> (Vector AlarmMember -> f (Vector AlarmMember))
-> AlarmResponse
-> f AlarmResponse
fieldOf Proxy# "vec'alarms"
_
    = ((Vector AlarmMember -> f (Vector AlarmMember))
 -> AlarmResponse -> f AlarmResponse)
-> ((Vector AlarmMember -> f (Vector AlarmMember))
    -> Vector AlarmMember -> f (Vector AlarmMember))
-> (Vector AlarmMember -> f (Vector AlarmMember))
-> AlarmResponse
-> f AlarmResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AlarmResponse -> Vector AlarmMember)
-> (AlarmResponse -> Vector AlarmMember -> AlarmResponse)
-> Lens
     AlarmResponse
     AlarmResponse
     (Vector AlarmMember)
     (Vector AlarmMember)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AlarmResponse -> Vector AlarmMember
_AlarmResponse'alarms
           (\ AlarmResponse
x__ Vector AlarmMember
y__ -> AlarmResponse
x__ {_AlarmResponse'alarms = y__}))
        (Vector AlarmMember -> f (Vector AlarmMember))
-> Vector AlarmMember -> f (Vector AlarmMember)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AlarmResponse where
  messageName :: Proxy AlarmResponse -> Text
messageName Proxy AlarmResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AlarmResponse"
  packedMessageDescriptor :: Proxy AlarmResponse -> ByteString
packedMessageDescriptor Proxy AlarmResponse
_
    = ByteString
"\n\
      \\rAlarmResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC21\n\
      \\ACKalarms\CAN\STX \ETX(\v2\EM.etcdserverpb.AlarmMemberR\ACKalarms:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AlarmResponse -> ByteString
packedFileDescriptor Proxy AlarmResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AlarmResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AlarmResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AlarmResponse ResponseHeader
-> FieldDescriptor AlarmResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AlarmResponse
  AlarmResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AlarmResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AlarmResponse
        alarms__field_descriptor :: FieldDescriptor AlarmResponse
alarms__field_descriptor
          = String
-> FieldTypeDescriptor AlarmMember
-> FieldAccessor AlarmResponse AlarmMember
-> FieldDescriptor AlarmResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"alarms"
              (MessageOrGroup -> FieldTypeDescriptor AlarmMember
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AlarmMember)
              (Packing
-> Lens' AlarmResponse [AlarmMember]
-> FieldAccessor AlarmResponse AlarmMember
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"alarms")) ::
              Data.ProtoLens.FieldDescriptor AlarmResponse
      in
        [(Tag, FieldDescriptor AlarmResponse)]
-> Map Tag (FieldDescriptor AlarmResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AlarmResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AlarmResponse
alarms__field_descriptor)]
  unknownFields :: Lens' AlarmResponse FieldSet
unknownFields
    = (AlarmResponse -> FieldSet)
-> (AlarmResponse -> FieldSet -> AlarmResponse)
-> Lens' AlarmResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AlarmResponse -> FieldSet
_AlarmResponse'_unknownFields
        (\ AlarmResponse
x__ FieldSet
y__ -> AlarmResponse
x__ {_AlarmResponse'_unknownFields = y__})
  defMessage :: AlarmResponse
defMessage
    = AlarmResponse'_constructor
        {_AlarmResponse'header :: Maybe ResponseHeader
_AlarmResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AlarmResponse'alarms :: Vector AlarmMember
_AlarmResponse'alarms = Vector AlarmMember
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AlarmResponse'_unknownFields :: FieldSet
_AlarmResponse'_unknownFields = []}
  parseMessage :: Parser AlarmResponse
parseMessage
    = let
        loop ::
          AlarmResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AlarmMember
             -> Data.ProtoLens.Encoding.Bytes.Parser AlarmResponse
        loop :: AlarmResponse
-> Growing Vector RealWorld AlarmMember -> Parser AlarmResponse
loop AlarmResponse
x Growing Vector RealWorld AlarmMember
mutable'alarms
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'alarms <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            mutable'alarms)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'alarms") frozen'alarms x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'alarms
                        Word64
18
                          -> do !y <- Parser AlarmMember -> String -> Parser AlarmMember
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
"alarms"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'alarms y)
                                loop x v
                        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)
                                  mutable'alarms
      in
        Parser AlarmResponse -> String -> Parser AlarmResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'alarms <- IO (Growing Vector RealWorld AlarmMember)
-> Parser (Growing Vector RealWorld AlarmMember)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld AlarmMember)
IO (Growing Vector (PrimState IO) AlarmMember)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'alarms)
          String
"AlarmResponse"
  buildMessage :: AlarmResponse -> Builder
buildMessage
    = \ AlarmResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AlarmResponse
  AlarmResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AlarmResponse -> Maybe ResponseHeader
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'header") AlarmResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((AlarmMember -> Builder) -> Vector AlarmMember -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ AlarmMember
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (AlarmMember -> ByteString) -> AlarmMember -> 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))
                              AlarmMember -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage AlarmMember
_v))
                   (FoldLike
  (Vector AlarmMember)
  AlarmResponse
  AlarmResponse
  (Vector AlarmMember)
  (Vector AlarmMember)
-> AlarmResponse -> Vector AlarmMember
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 @"vec'alarms") AlarmResponse
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet AlarmResponse AlarmResponse FieldSet FieldSet
-> AlarmResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AlarmResponse AlarmResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AlarmResponse FieldSet
Data.ProtoLens.unknownFields AlarmResponse
_x)))
instance Control.DeepSeq.NFData AlarmResponse where
  rnf :: AlarmResponse -> ()
rnf
    = \ AlarmResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AlarmResponse -> FieldSet
_AlarmResponse'_unknownFields AlarmResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AlarmResponse -> Maybe ResponseHeader
_AlarmResponse'header AlarmResponse
x__)
                (Vector AlarmMember -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AlarmResponse -> Vector AlarmMember
_AlarmResponse'alarms AlarmResponse
x__) ()))
newtype AlarmType'UnrecognizedValue
  = AlarmType'UnrecognizedValue Data.Int.Int32
  deriving stock (AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue -> Bool
(AlarmType'UnrecognizedValue
 -> AlarmType'UnrecognizedValue -> Bool)
-> (AlarmType'UnrecognizedValue
    -> AlarmType'UnrecognizedValue -> Bool)
-> Eq AlarmType'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue -> Bool
== :: AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue -> Bool
$c/= :: AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue -> Bool
/= :: AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue -> Bool
Prelude.Eq, Eq AlarmType'UnrecognizedValue
Eq AlarmType'UnrecognizedValue =>
(AlarmType'UnrecognizedValue
 -> AlarmType'UnrecognizedValue -> Ordering)
-> (AlarmType'UnrecognizedValue
    -> AlarmType'UnrecognizedValue -> Bool)
-> (AlarmType'UnrecognizedValue
    -> AlarmType'UnrecognizedValue -> Bool)
-> (AlarmType'UnrecognizedValue
    -> AlarmType'UnrecognizedValue -> Bool)
-> (AlarmType'UnrecognizedValue
    -> AlarmType'UnrecognizedValue -> Bool)
-> (AlarmType'UnrecognizedValue
    -> AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue)
-> (AlarmType'UnrecognizedValue
    -> AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue)
-> Ord AlarmType'UnrecognizedValue
AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue -> Bool
AlarmType'UnrecognizedValue
-> AlarmType'UnrecognizedValue -> Ordering
AlarmType'UnrecognizedValue
-> AlarmType'UnrecognizedValue -> AlarmType'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 :: AlarmType'UnrecognizedValue
-> AlarmType'UnrecognizedValue -> Ordering
compare :: AlarmType'UnrecognizedValue
-> AlarmType'UnrecognizedValue -> Ordering
$c< :: AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue -> Bool
< :: AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue -> Bool
$c<= :: AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue -> Bool
<= :: AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue -> Bool
$c> :: AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue -> Bool
> :: AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue -> Bool
$c>= :: AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue -> Bool
>= :: AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue -> Bool
$cmax :: AlarmType'UnrecognizedValue
-> AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue
max :: AlarmType'UnrecognizedValue
-> AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue
$cmin :: AlarmType'UnrecognizedValue
-> AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue
min :: AlarmType'UnrecognizedValue
-> AlarmType'UnrecognizedValue -> AlarmType'UnrecognizedValue
Prelude.Ord, Int -> AlarmType'UnrecognizedValue -> ShowS
[AlarmType'UnrecognizedValue] -> ShowS
AlarmType'UnrecognizedValue -> String
(Int -> AlarmType'UnrecognizedValue -> ShowS)
-> (AlarmType'UnrecognizedValue -> String)
-> ([AlarmType'UnrecognizedValue] -> ShowS)
-> Show AlarmType'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AlarmType'UnrecognizedValue -> ShowS
showsPrec :: Int -> AlarmType'UnrecognizedValue -> ShowS
$cshow :: AlarmType'UnrecognizedValue -> String
show :: AlarmType'UnrecognizedValue -> String
$cshowList :: [AlarmType'UnrecognizedValue] -> ShowS
showList :: [AlarmType'UnrecognizedValue] -> ShowS
Prelude.Show)
data AlarmType
  = NONE |
    NOSPACE |
    CORRUPT |
    AlarmType'Unrecognized !AlarmType'UnrecognizedValue
  deriving stock (Int -> AlarmType -> ShowS
[AlarmType] -> ShowS
AlarmType -> String
(Int -> AlarmType -> ShowS)
-> (AlarmType -> String)
-> ([AlarmType] -> ShowS)
-> Show AlarmType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> AlarmType -> ShowS
showsPrec :: Int -> AlarmType -> ShowS
$cshow :: AlarmType -> String
show :: AlarmType -> String
$cshowList :: [AlarmType] -> ShowS
showList :: [AlarmType] -> ShowS
Prelude.Show, AlarmType -> AlarmType -> Bool
(AlarmType -> AlarmType -> Bool)
-> (AlarmType -> AlarmType -> Bool) -> Eq AlarmType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AlarmType -> AlarmType -> Bool
== :: AlarmType -> AlarmType -> Bool
$c/= :: AlarmType -> AlarmType -> Bool
/= :: AlarmType -> AlarmType -> Bool
Prelude.Eq, Eq AlarmType
Eq AlarmType =>
(AlarmType -> AlarmType -> Ordering)
-> (AlarmType -> AlarmType -> Bool)
-> (AlarmType -> AlarmType -> Bool)
-> (AlarmType -> AlarmType -> Bool)
-> (AlarmType -> AlarmType -> Bool)
-> (AlarmType -> AlarmType -> AlarmType)
-> (AlarmType -> AlarmType -> AlarmType)
-> Ord AlarmType
AlarmType -> AlarmType -> Bool
AlarmType -> AlarmType -> Ordering
AlarmType -> AlarmType -> AlarmType
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 :: AlarmType -> AlarmType -> Ordering
compare :: AlarmType -> AlarmType -> Ordering
$c< :: AlarmType -> AlarmType -> Bool
< :: AlarmType -> AlarmType -> Bool
$c<= :: AlarmType -> AlarmType -> Bool
<= :: AlarmType -> AlarmType -> Bool
$c> :: AlarmType -> AlarmType -> Bool
> :: AlarmType -> AlarmType -> Bool
$c>= :: AlarmType -> AlarmType -> Bool
>= :: AlarmType -> AlarmType -> Bool
$cmax :: AlarmType -> AlarmType -> AlarmType
max :: AlarmType -> AlarmType -> AlarmType
$cmin :: AlarmType -> AlarmType -> AlarmType
min :: AlarmType -> AlarmType -> AlarmType
Prelude.Ord)
instance Data.ProtoLens.MessageEnum AlarmType where
  maybeToEnum :: Int -> Maybe AlarmType
maybeToEnum Int
0 = AlarmType -> Maybe AlarmType
forall a. a -> Maybe a
Prelude.Just AlarmType
NONE
  maybeToEnum Int
1 = AlarmType -> Maybe AlarmType
forall a. a -> Maybe a
Prelude.Just AlarmType
NOSPACE
  maybeToEnum Int
2 = AlarmType -> Maybe AlarmType
forall a. a -> Maybe a
Prelude.Just AlarmType
CORRUPT
  maybeToEnum Int
k
    = AlarmType -> Maybe AlarmType
forall a. a -> Maybe a
Prelude.Just
        (AlarmType'UnrecognizedValue -> AlarmType
AlarmType'Unrecognized
           (Int32 -> AlarmType'UnrecognizedValue
AlarmType'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: AlarmType -> String
showEnum AlarmType
NONE = String
"NONE"
  showEnum AlarmType
NOSPACE = String
"NOSPACE"
  showEnum AlarmType
CORRUPT = String
"CORRUPT"
  showEnum (AlarmType'Unrecognized (AlarmType'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe AlarmType
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"NONE" = AlarmType -> Maybe AlarmType
forall a. a -> Maybe a
Prelude.Just AlarmType
NONE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"NOSPACE" = AlarmType -> Maybe AlarmType
forall a. a -> Maybe a
Prelude.Just AlarmType
NOSPACE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"CORRUPT" = AlarmType -> Maybe AlarmType
forall a. a -> Maybe a
Prelude.Just AlarmType
CORRUPT
    | Bool
Prelude.otherwise
    = Maybe Int -> (Int -> Maybe AlarmType) -> Maybe AlarmType
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 AlarmType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded AlarmType where
  minBound :: AlarmType
minBound = AlarmType
NONE
  maxBound :: AlarmType
maxBound = AlarmType
CORRUPT
instance Prelude.Enum AlarmType where
  toEnum :: Int -> AlarmType
toEnum Int
k__
    = AlarmType
-> (AlarmType -> AlarmType) -> Maybe AlarmType -> AlarmType
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> AlarmType
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum AlarmType: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        AlarmType -> AlarmType
forall a. a -> a
Prelude.id (Int -> Maybe AlarmType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: AlarmType -> Int
fromEnum AlarmType
NONE = Int
0
  fromEnum AlarmType
NOSPACE = Int
1
  fromEnum AlarmType
CORRUPT = Int
2
  fromEnum (AlarmType'Unrecognized (AlarmType'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: AlarmType -> AlarmType
succ AlarmType
CORRUPT
    = String -> AlarmType
forall a. HasCallStack => String -> a
Prelude.error
        String
"AlarmType.succ: bad argument CORRUPT. This value would be out of bounds."
  succ AlarmType
NONE = AlarmType
NOSPACE
  succ AlarmType
NOSPACE = AlarmType
CORRUPT
  succ (AlarmType'Unrecognized AlarmType'UnrecognizedValue
_)
    = String -> AlarmType
forall a. HasCallStack => String -> a
Prelude.error String
"AlarmType.succ: bad argument: unrecognized value"
  pred :: AlarmType -> AlarmType
pred AlarmType
NONE
    = String -> AlarmType
forall a. HasCallStack => String -> a
Prelude.error
        String
"AlarmType.pred: bad argument NONE. This value would be out of bounds."
  pred AlarmType
NOSPACE = AlarmType
NONE
  pred AlarmType
CORRUPT = AlarmType
NOSPACE
  pred (AlarmType'Unrecognized AlarmType'UnrecognizedValue
_)
    = String -> AlarmType
forall a. HasCallStack => String -> a
Prelude.error String
"AlarmType.pred: bad argument: unrecognized value"
  enumFrom :: AlarmType -> [AlarmType]
enumFrom = AlarmType -> [AlarmType]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: AlarmType -> AlarmType -> [AlarmType]
enumFromTo = AlarmType -> AlarmType -> [AlarmType]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: AlarmType -> AlarmType -> [AlarmType]
enumFromThen = AlarmType -> AlarmType -> [AlarmType]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: AlarmType -> AlarmType -> AlarmType -> [AlarmType]
enumFromThenTo = AlarmType -> AlarmType -> AlarmType -> [AlarmType]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault AlarmType where
  fieldDefault :: AlarmType
fieldDefault = AlarmType
NONE
instance Control.DeepSeq.NFData AlarmType where
  rnf :: AlarmType -> ()
rnf AlarmType
x__ = AlarmType -> () -> ()
forall a b. a -> b -> b
Prelude.seq AlarmType
x__ ()
{- | Fields :
      -}
data AuthDisableRequest
  = AuthDisableRequest'_constructor {AuthDisableRequest -> FieldSet
_AuthDisableRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthDisableRequest -> AuthDisableRequest -> Bool
(AuthDisableRequest -> AuthDisableRequest -> Bool)
-> (AuthDisableRequest -> AuthDisableRequest -> Bool)
-> Eq AuthDisableRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthDisableRequest -> AuthDisableRequest -> Bool
== :: AuthDisableRequest -> AuthDisableRequest -> Bool
$c/= :: AuthDisableRequest -> AuthDisableRequest -> Bool
/= :: AuthDisableRequest -> AuthDisableRequest -> Bool
Prelude.Eq, Eq AuthDisableRequest
Eq AuthDisableRequest =>
(AuthDisableRequest -> AuthDisableRequest -> Ordering)
-> (AuthDisableRequest -> AuthDisableRequest -> Bool)
-> (AuthDisableRequest -> AuthDisableRequest -> Bool)
-> (AuthDisableRequest -> AuthDisableRequest -> Bool)
-> (AuthDisableRequest -> AuthDisableRequest -> Bool)
-> (AuthDisableRequest -> AuthDisableRequest -> AuthDisableRequest)
-> (AuthDisableRequest -> AuthDisableRequest -> AuthDisableRequest)
-> Ord AuthDisableRequest
AuthDisableRequest -> AuthDisableRequest -> Bool
AuthDisableRequest -> AuthDisableRequest -> Ordering
AuthDisableRequest -> AuthDisableRequest -> AuthDisableRequest
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 :: AuthDisableRequest -> AuthDisableRequest -> Ordering
compare :: AuthDisableRequest -> AuthDisableRequest -> Ordering
$c< :: AuthDisableRequest -> AuthDisableRequest -> Bool
< :: AuthDisableRequest -> AuthDisableRequest -> Bool
$c<= :: AuthDisableRequest -> AuthDisableRequest -> Bool
<= :: AuthDisableRequest -> AuthDisableRequest -> Bool
$c> :: AuthDisableRequest -> AuthDisableRequest -> Bool
> :: AuthDisableRequest -> AuthDisableRequest -> Bool
$c>= :: AuthDisableRequest -> AuthDisableRequest -> Bool
>= :: AuthDisableRequest -> AuthDisableRequest -> Bool
$cmax :: AuthDisableRequest -> AuthDisableRequest -> AuthDisableRequest
max :: AuthDisableRequest -> AuthDisableRequest -> AuthDisableRequest
$cmin :: AuthDisableRequest -> AuthDisableRequest -> AuthDisableRequest
min :: AuthDisableRequest -> AuthDisableRequest -> AuthDisableRequest
Prelude.Ord)
instance Prelude.Show AuthDisableRequest where
  showsPrec :: Int -> AuthDisableRequest -> ShowS
showsPrec Int
_ AuthDisableRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthDisableRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthDisableRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message AuthDisableRequest where
  messageName :: Proxy AuthDisableRequest -> Text
messageName Proxy AuthDisableRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthDisableRequest"
  packedMessageDescriptor :: Proxy AuthDisableRequest -> ByteString
packedMessageDescriptor Proxy AuthDisableRequest
_
    = ByteString
"\n\
      \\DC2AuthDisableRequest:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthDisableRequest -> ByteString
packedFileDescriptor Proxy AuthDisableRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthDisableRequest)
fieldsByTag = let in [(Tag, FieldDescriptor AuthDisableRequest)]
-> Map Tag (FieldDescriptor AuthDisableRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' AuthDisableRequest FieldSet
unknownFields
    = (AuthDisableRequest -> FieldSet)
-> (AuthDisableRequest -> FieldSet -> AuthDisableRequest)
-> Lens' AuthDisableRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthDisableRequest -> FieldSet
_AuthDisableRequest'_unknownFields
        (\ AuthDisableRequest
x__ FieldSet
y__ -> AuthDisableRequest
x__ {_AuthDisableRequest'_unknownFields = y__})
  defMessage :: AuthDisableRequest
defMessage
    = AuthDisableRequest'_constructor
        {_AuthDisableRequest'_unknownFields :: FieldSet
_AuthDisableRequest'_unknownFields = []}
  parseMessage :: Parser AuthDisableRequest
parseMessage
    = let
        loop ::
          AuthDisableRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthDisableRequest
        loop :: AuthDisableRequest -> Parser AuthDisableRequest
loop AuthDisableRequest
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
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 AuthDisableRequest -> String -> Parser AuthDisableRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthDisableRequest -> Parser AuthDisableRequest
loop AuthDisableRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthDisableRequest"
  buildMessage :: AuthDisableRequest -> Builder
buildMessage
    = \ AuthDisableRequest
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet AuthDisableRequest AuthDisableRequest FieldSet FieldSet
-> AuthDisableRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthDisableRequest AuthDisableRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthDisableRequest FieldSet
Data.ProtoLens.unknownFields AuthDisableRequest
_x)
instance Control.DeepSeq.NFData AuthDisableRequest where
  rnf :: AuthDisableRequest -> ()
rnf
    = \ AuthDisableRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthDisableRequest -> FieldSet
_AuthDisableRequest'_unknownFields AuthDisableRequest
x__) ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthDisableResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthDisableResponse (Prelude.Maybe ResponseHeader)@ -}
data AuthDisableResponse
  = AuthDisableResponse'_constructor {AuthDisableResponse -> Maybe ResponseHeader
_AuthDisableResponse'header :: !(Prelude.Maybe ResponseHeader),
                                      AuthDisableResponse -> FieldSet
_AuthDisableResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthDisableResponse -> AuthDisableResponse -> Bool
(AuthDisableResponse -> AuthDisableResponse -> Bool)
-> (AuthDisableResponse -> AuthDisableResponse -> Bool)
-> Eq AuthDisableResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthDisableResponse -> AuthDisableResponse -> Bool
== :: AuthDisableResponse -> AuthDisableResponse -> Bool
$c/= :: AuthDisableResponse -> AuthDisableResponse -> Bool
/= :: AuthDisableResponse -> AuthDisableResponse -> Bool
Prelude.Eq, Eq AuthDisableResponse
Eq AuthDisableResponse =>
(AuthDisableResponse -> AuthDisableResponse -> Ordering)
-> (AuthDisableResponse -> AuthDisableResponse -> Bool)
-> (AuthDisableResponse -> AuthDisableResponse -> Bool)
-> (AuthDisableResponse -> AuthDisableResponse -> Bool)
-> (AuthDisableResponse -> AuthDisableResponse -> Bool)
-> (AuthDisableResponse
    -> AuthDisableResponse -> AuthDisableResponse)
-> (AuthDisableResponse
    -> AuthDisableResponse -> AuthDisableResponse)
-> Ord AuthDisableResponse
AuthDisableResponse -> AuthDisableResponse -> Bool
AuthDisableResponse -> AuthDisableResponse -> Ordering
AuthDisableResponse -> AuthDisableResponse -> AuthDisableResponse
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 :: AuthDisableResponse -> AuthDisableResponse -> Ordering
compare :: AuthDisableResponse -> AuthDisableResponse -> Ordering
$c< :: AuthDisableResponse -> AuthDisableResponse -> Bool
< :: AuthDisableResponse -> AuthDisableResponse -> Bool
$c<= :: AuthDisableResponse -> AuthDisableResponse -> Bool
<= :: AuthDisableResponse -> AuthDisableResponse -> Bool
$c> :: AuthDisableResponse -> AuthDisableResponse -> Bool
> :: AuthDisableResponse -> AuthDisableResponse -> Bool
$c>= :: AuthDisableResponse -> AuthDisableResponse -> Bool
>= :: AuthDisableResponse -> AuthDisableResponse -> Bool
$cmax :: AuthDisableResponse -> AuthDisableResponse -> AuthDisableResponse
max :: AuthDisableResponse -> AuthDisableResponse -> AuthDisableResponse
$cmin :: AuthDisableResponse -> AuthDisableResponse -> AuthDisableResponse
min :: AuthDisableResponse -> AuthDisableResponse -> AuthDisableResponse
Prelude.Ord)
instance Prelude.Show AuthDisableResponse where
  showsPrec :: Int -> AuthDisableResponse -> ShowS
showsPrec Int
_ AuthDisableResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthDisableResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthDisableResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthDisableResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthDisableResponse
-> f AuthDisableResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthDisableResponse -> f AuthDisableResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthDisableResponse
-> f AuthDisableResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthDisableResponse -> Maybe ResponseHeader)
-> (AuthDisableResponse
    -> Maybe ResponseHeader -> AuthDisableResponse)
-> Lens
     AuthDisableResponse
     AuthDisableResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthDisableResponse -> Maybe ResponseHeader
_AuthDisableResponse'header
           (\ AuthDisableResponse
x__ Maybe ResponseHeader
y__ -> AuthDisableResponse
x__ {_AuthDisableResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthDisableResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthDisableResponse
-> f AuthDisableResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthDisableResponse -> f AuthDisableResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthDisableResponse
-> f AuthDisableResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthDisableResponse -> Maybe ResponseHeader)
-> (AuthDisableResponse
    -> Maybe ResponseHeader -> AuthDisableResponse)
-> Lens
     AuthDisableResponse
     AuthDisableResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthDisableResponse -> Maybe ResponseHeader
_AuthDisableResponse'header
           (\ AuthDisableResponse
x__ Maybe ResponseHeader
y__ -> AuthDisableResponse
x__ {_AuthDisableResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthDisableResponse where
  messageName :: Proxy AuthDisableResponse -> Text
messageName Proxy AuthDisableResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthDisableResponse"
  packedMessageDescriptor :: Proxy AuthDisableResponse -> ByteString
packedMessageDescriptor Proxy AuthDisableResponse
_
    = ByteString
"\n\
      \\DC3AuthDisableResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthDisableResponse -> ByteString
packedFileDescriptor Proxy AuthDisableResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthDisableResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthDisableResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthDisableResponse ResponseHeader
-> FieldDescriptor AuthDisableResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthDisableResponse
  AuthDisableResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthDisableResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthDisableResponse
      in
        [(Tag, FieldDescriptor AuthDisableResponse)]
-> Map Tag (FieldDescriptor AuthDisableResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthDisableResponse
header__field_descriptor)]
  unknownFields :: Lens' AuthDisableResponse FieldSet
unknownFields
    = (AuthDisableResponse -> FieldSet)
-> (AuthDisableResponse -> FieldSet -> AuthDisableResponse)
-> Lens' AuthDisableResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthDisableResponse -> FieldSet
_AuthDisableResponse'_unknownFields
        (\ AuthDisableResponse
x__ FieldSet
y__ -> AuthDisableResponse
x__ {_AuthDisableResponse'_unknownFields = y__})
  defMessage :: AuthDisableResponse
defMessage
    = AuthDisableResponse'_constructor
        {_AuthDisableResponse'header :: Maybe ResponseHeader
_AuthDisableResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthDisableResponse'_unknownFields :: FieldSet
_AuthDisableResponse'_unknownFields = []}
  parseMessage :: Parser AuthDisableResponse
parseMessage
    = let
        loop ::
          AuthDisableResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthDisableResponse
        loop :: AuthDisableResponse -> Parser AuthDisableResponse
loop AuthDisableResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 AuthDisableResponse -> String -> Parser AuthDisableResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthDisableResponse -> Parser AuthDisableResponse
loop AuthDisableResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthDisableResponse"
  buildMessage :: AuthDisableResponse -> Builder
buildMessage
    = \ AuthDisableResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthDisableResponse
  AuthDisableResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthDisableResponse -> Maybe ResponseHeader
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'header") AuthDisableResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet AuthDisableResponse AuthDisableResponse FieldSet FieldSet
-> AuthDisableResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthDisableResponse AuthDisableResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthDisableResponse FieldSet
Data.ProtoLens.unknownFields AuthDisableResponse
_x))
instance Control.DeepSeq.NFData AuthDisableResponse where
  rnf :: AuthDisableResponse -> ()
rnf
    = \ AuthDisableResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthDisableResponse -> FieldSet
_AuthDisableResponse'_unknownFields AuthDisableResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthDisableResponse -> Maybe ResponseHeader
_AuthDisableResponse'header AuthDisableResponse
x__) ())
{- | Fields :
      -}
data AuthEnableRequest
  = AuthEnableRequest'_constructor {AuthEnableRequest -> FieldSet
_AuthEnableRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthEnableRequest -> AuthEnableRequest -> Bool
(AuthEnableRequest -> AuthEnableRequest -> Bool)
-> (AuthEnableRequest -> AuthEnableRequest -> Bool)
-> Eq AuthEnableRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthEnableRequest -> AuthEnableRequest -> Bool
== :: AuthEnableRequest -> AuthEnableRequest -> Bool
$c/= :: AuthEnableRequest -> AuthEnableRequest -> Bool
/= :: AuthEnableRequest -> AuthEnableRequest -> Bool
Prelude.Eq, Eq AuthEnableRequest
Eq AuthEnableRequest =>
(AuthEnableRequest -> AuthEnableRequest -> Ordering)
-> (AuthEnableRequest -> AuthEnableRequest -> Bool)
-> (AuthEnableRequest -> AuthEnableRequest -> Bool)
-> (AuthEnableRequest -> AuthEnableRequest -> Bool)
-> (AuthEnableRequest -> AuthEnableRequest -> Bool)
-> (AuthEnableRequest -> AuthEnableRequest -> AuthEnableRequest)
-> (AuthEnableRequest -> AuthEnableRequest -> AuthEnableRequest)
-> Ord AuthEnableRequest
AuthEnableRequest -> AuthEnableRequest -> Bool
AuthEnableRequest -> AuthEnableRequest -> Ordering
AuthEnableRequest -> AuthEnableRequest -> AuthEnableRequest
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 :: AuthEnableRequest -> AuthEnableRequest -> Ordering
compare :: AuthEnableRequest -> AuthEnableRequest -> Ordering
$c< :: AuthEnableRequest -> AuthEnableRequest -> Bool
< :: AuthEnableRequest -> AuthEnableRequest -> Bool
$c<= :: AuthEnableRequest -> AuthEnableRequest -> Bool
<= :: AuthEnableRequest -> AuthEnableRequest -> Bool
$c> :: AuthEnableRequest -> AuthEnableRequest -> Bool
> :: AuthEnableRequest -> AuthEnableRequest -> Bool
$c>= :: AuthEnableRequest -> AuthEnableRequest -> Bool
>= :: AuthEnableRequest -> AuthEnableRequest -> Bool
$cmax :: AuthEnableRequest -> AuthEnableRequest -> AuthEnableRequest
max :: AuthEnableRequest -> AuthEnableRequest -> AuthEnableRequest
$cmin :: AuthEnableRequest -> AuthEnableRequest -> AuthEnableRequest
min :: AuthEnableRequest -> AuthEnableRequest -> AuthEnableRequest
Prelude.Ord)
instance Prelude.Show AuthEnableRequest where
  showsPrec :: Int -> AuthEnableRequest -> ShowS
showsPrec Int
_ AuthEnableRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthEnableRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthEnableRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message AuthEnableRequest where
  messageName :: Proxy AuthEnableRequest -> Text
messageName Proxy AuthEnableRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthEnableRequest"
  packedMessageDescriptor :: Proxy AuthEnableRequest -> ByteString
packedMessageDescriptor Proxy AuthEnableRequest
_
    = ByteString
"\n\
      \\DC1AuthEnableRequest:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthEnableRequest -> ByteString
packedFileDescriptor Proxy AuthEnableRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthEnableRequest)
fieldsByTag = let in [(Tag, FieldDescriptor AuthEnableRequest)]
-> Map Tag (FieldDescriptor AuthEnableRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' AuthEnableRequest FieldSet
unknownFields
    = (AuthEnableRequest -> FieldSet)
-> (AuthEnableRequest -> FieldSet -> AuthEnableRequest)
-> Lens' AuthEnableRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthEnableRequest -> FieldSet
_AuthEnableRequest'_unknownFields
        (\ AuthEnableRequest
x__ FieldSet
y__ -> AuthEnableRequest
x__ {_AuthEnableRequest'_unknownFields = y__})
  defMessage :: AuthEnableRequest
defMessage
    = AuthEnableRequest'_constructor
        {_AuthEnableRequest'_unknownFields :: FieldSet
_AuthEnableRequest'_unknownFields = []}
  parseMessage :: Parser AuthEnableRequest
parseMessage
    = let
        loop ::
          AuthEnableRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthEnableRequest
        loop :: AuthEnableRequest -> Parser AuthEnableRequest
loop AuthEnableRequest
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
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 AuthEnableRequest -> String -> Parser AuthEnableRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthEnableRequest -> Parser AuthEnableRequest
loop AuthEnableRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthEnableRequest"
  buildMessage :: AuthEnableRequest -> Builder
buildMessage
    = \ AuthEnableRequest
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet AuthEnableRequest AuthEnableRequest FieldSet FieldSet
-> AuthEnableRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthEnableRequest AuthEnableRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthEnableRequest FieldSet
Data.ProtoLens.unknownFields AuthEnableRequest
_x)
instance Control.DeepSeq.NFData AuthEnableRequest where
  rnf :: AuthEnableRequest -> ()
rnf
    = \ AuthEnableRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthEnableRequest -> FieldSet
_AuthEnableRequest'_unknownFields AuthEnableRequest
x__) ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthEnableResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthEnableResponse (Prelude.Maybe ResponseHeader)@ -}
data AuthEnableResponse
  = AuthEnableResponse'_constructor {AuthEnableResponse -> Maybe ResponseHeader
_AuthEnableResponse'header :: !(Prelude.Maybe ResponseHeader),
                                     AuthEnableResponse -> FieldSet
_AuthEnableResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthEnableResponse -> AuthEnableResponse -> Bool
(AuthEnableResponse -> AuthEnableResponse -> Bool)
-> (AuthEnableResponse -> AuthEnableResponse -> Bool)
-> Eq AuthEnableResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthEnableResponse -> AuthEnableResponse -> Bool
== :: AuthEnableResponse -> AuthEnableResponse -> Bool
$c/= :: AuthEnableResponse -> AuthEnableResponse -> Bool
/= :: AuthEnableResponse -> AuthEnableResponse -> Bool
Prelude.Eq, Eq AuthEnableResponse
Eq AuthEnableResponse =>
(AuthEnableResponse -> AuthEnableResponse -> Ordering)
-> (AuthEnableResponse -> AuthEnableResponse -> Bool)
-> (AuthEnableResponse -> AuthEnableResponse -> Bool)
-> (AuthEnableResponse -> AuthEnableResponse -> Bool)
-> (AuthEnableResponse -> AuthEnableResponse -> Bool)
-> (AuthEnableResponse -> AuthEnableResponse -> AuthEnableResponse)
-> (AuthEnableResponse -> AuthEnableResponse -> AuthEnableResponse)
-> Ord AuthEnableResponse
AuthEnableResponse -> AuthEnableResponse -> Bool
AuthEnableResponse -> AuthEnableResponse -> Ordering
AuthEnableResponse -> AuthEnableResponse -> AuthEnableResponse
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 :: AuthEnableResponse -> AuthEnableResponse -> Ordering
compare :: AuthEnableResponse -> AuthEnableResponse -> Ordering
$c< :: AuthEnableResponse -> AuthEnableResponse -> Bool
< :: AuthEnableResponse -> AuthEnableResponse -> Bool
$c<= :: AuthEnableResponse -> AuthEnableResponse -> Bool
<= :: AuthEnableResponse -> AuthEnableResponse -> Bool
$c> :: AuthEnableResponse -> AuthEnableResponse -> Bool
> :: AuthEnableResponse -> AuthEnableResponse -> Bool
$c>= :: AuthEnableResponse -> AuthEnableResponse -> Bool
>= :: AuthEnableResponse -> AuthEnableResponse -> Bool
$cmax :: AuthEnableResponse -> AuthEnableResponse -> AuthEnableResponse
max :: AuthEnableResponse -> AuthEnableResponse -> AuthEnableResponse
$cmin :: AuthEnableResponse -> AuthEnableResponse -> AuthEnableResponse
min :: AuthEnableResponse -> AuthEnableResponse -> AuthEnableResponse
Prelude.Ord)
instance Prelude.Show AuthEnableResponse where
  showsPrec :: Int -> AuthEnableResponse -> ShowS
showsPrec Int
_ AuthEnableResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthEnableResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthEnableResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthEnableResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthEnableResponse
-> f AuthEnableResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthEnableResponse -> f AuthEnableResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthEnableResponse
-> f AuthEnableResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthEnableResponse -> Maybe ResponseHeader)
-> (AuthEnableResponse
    -> Maybe ResponseHeader -> AuthEnableResponse)
-> Lens
     AuthEnableResponse
     AuthEnableResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthEnableResponse -> Maybe ResponseHeader
_AuthEnableResponse'header
           (\ AuthEnableResponse
x__ Maybe ResponseHeader
y__ -> AuthEnableResponse
x__ {_AuthEnableResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthEnableResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthEnableResponse
-> f AuthEnableResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthEnableResponse -> f AuthEnableResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthEnableResponse
-> f AuthEnableResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthEnableResponse -> Maybe ResponseHeader)
-> (AuthEnableResponse
    -> Maybe ResponseHeader -> AuthEnableResponse)
-> Lens
     AuthEnableResponse
     AuthEnableResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthEnableResponse -> Maybe ResponseHeader
_AuthEnableResponse'header
           (\ AuthEnableResponse
x__ Maybe ResponseHeader
y__ -> AuthEnableResponse
x__ {_AuthEnableResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthEnableResponse where
  messageName :: Proxy AuthEnableResponse -> Text
messageName Proxy AuthEnableResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthEnableResponse"
  packedMessageDescriptor :: Proxy AuthEnableResponse -> ByteString
packedMessageDescriptor Proxy AuthEnableResponse
_
    = ByteString
"\n\
      \\DC2AuthEnableResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthEnableResponse -> ByteString
packedFileDescriptor Proxy AuthEnableResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthEnableResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthEnableResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthEnableResponse ResponseHeader
-> FieldDescriptor AuthEnableResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthEnableResponse
  AuthEnableResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthEnableResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthEnableResponse
      in
        [(Tag, FieldDescriptor AuthEnableResponse)]
-> Map Tag (FieldDescriptor AuthEnableResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthEnableResponse
header__field_descriptor)]
  unknownFields :: Lens' AuthEnableResponse FieldSet
unknownFields
    = (AuthEnableResponse -> FieldSet)
-> (AuthEnableResponse -> FieldSet -> AuthEnableResponse)
-> Lens' AuthEnableResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthEnableResponse -> FieldSet
_AuthEnableResponse'_unknownFields
        (\ AuthEnableResponse
x__ FieldSet
y__ -> AuthEnableResponse
x__ {_AuthEnableResponse'_unknownFields = y__})
  defMessage :: AuthEnableResponse
defMessage
    = AuthEnableResponse'_constructor
        {_AuthEnableResponse'header :: Maybe ResponseHeader
_AuthEnableResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthEnableResponse'_unknownFields :: FieldSet
_AuthEnableResponse'_unknownFields = []}
  parseMessage :: Parser AuthEnableResponse
parseMessage
    = let
        loop ::
          AuthEnableResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthEnableResponse
        loop :: AuthEnableResponse -> Parser AuthEnableResponse
loop AuthEnableResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 AuthEnableResponse -> String -> Parser AuthEnableResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthEnableResponse -> Parser AuthEnableResponse
loop AuthEnableResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthEnableResponse"
  buildMessage :: AuthEnableResponse -> Builder
buildMessage
    = \ AuthEnableResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthEnableResponse
  AuthEnableResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthEnableResponse -> Maybe ResponseHeader
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'header") AuthEnableResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet AuthEnableResponse AuthEnableResponse FieldSet FieldSet
-> AuthEnableResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthEnableResponse AuthEnableResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthEnableResponse FieldSet
Data.ProtoLens.unknownFields AuthEnableResponse
_x))
instance Control.DeepSeq.NFData AuthEnableResponse where
  rnf :: AuthEnableResponse -> ()
rnf
    = \ AuthEnableResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthEnableResponse -> FieldSet
_AuthEnableResponse'_unknownFields AuthEnableResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthEnableResponse -> Maybe ResponseHeader
_AuthEnableResponse'header AuthEnableResponse
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthRoleAddRequest Data.Text.Text@ -}
data AuthRoleAddRequest
  = AuthRoleAddRequest'_constructor {AuthRoleAddRequest -> Text
_AuthRoleAddRequest'name :: !Data.Text.Text,
                                     AuthRoleAddRequest -> FieldSet
_AuthRoleAddRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthRoleAddRequest -> AuthRoleAddRequest -> Bool
(AuthRoleAddRequest -> AuthRoleAddRequest -> Bool)
-> (AuthRoleAddRequest -> AuthRoleAddRequest -> Bool)
-> Eq AuthRoleAddRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthRoleAddRequest -> AuthRoleAddRequest -> Bool
== :: AuthRoleAddRequest -> AuthRoleAddRequest -> Bool
$c/= :: AuthRoleAddRequest -> AuthRoleAddRequest -> Bool
/= :: AuthRoleAddRequest -> AuthRoleAddRequest -> Bool
Prelude.Eq, Eq AuthRoleAddRequest
Eq AuthRoleAddRequest =>
(AuthRoleAddRequest -> AuthRoleAddRequest -> Ordering)
-> (AuthRoleAddRequest -> AuthRoleAddRequest -> Bool)
-> (AuthRoleAddRequest -> AuthRoleAddRequest -> Bool)
-> (AuthRoleAddRequest -> AuthRoleAddRequest -> Bool)
-> (AuthRoleAddRequest -> AuthRoleAddRequest -> Bool)
-> (AuthRoleAddRequest -> AuthRoleAddRequest -> AuthRoleAddRequest)
-> (AuthRoleAddRequest -> AuthRoleAddRequest -> AuthRoleAddRequest)
-> Ord AuthRoleAddRequest
AuthRoleAddRequest -> AuthRoleAddRequest -> Bool
AuthRoleAddRequest -> AuthRoleAddRequest -> Ordering
AuthRoleAddRequest -> AuthRoleAddRequest -> AuthRoleAddRequest
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 :: AuthRoleAddRequest -> AuthRoleAddRequest -> Ordering
compare :: AuthRoleAddRequest -> AuthRoleAddRequest -> Ordering
$c< :: AuthRoleAddRequest -> AuthRoleAddRequest -> Bool
< :: AuthRoleAddRequest -> AuthRoleAddRequest -> Bool
$c<= :: AuthRoleAddRequest -> AuthRoleAddRequest -> Bool
<= :: AuthRoleAddRequest -> AuthRoleAddRequest -> Bool
$c> :: AuthRoleAddRequest -> AuthRoleAddRequest -> Bool
> :: AuthRoleAddRequest -> AuthRoleAddRequest -> Bool
$c>= :: AuthRoleAddRequest -> AuthRoleAddRequest -> Bool
>= :: AuthRoleAddRequest -> AuthRoleAddRequest -> Bool
$cmax :: AuthRoleAddRequest -> AuthRoleAddRequest -> AuthRoleAddRequest
max :: AuthRoleAddRequest -> AuthRoleAddRequest -> AuthRoleAddRequest
$cmin :: AuthRoleAddRequest -> AuthRoleAddRequest -> AuthRoleAddRequest
min :: AuthRoleAddRequest -> AuthRoleAddRequest -> AuthRoleAddRequest
Prelude.Ord)
instance Prelude.Show AuthRoleAddRequest where
  showsPrec :: Int -> AuthRoleAddRequest -> ShowS
showsPrec Int
_ AuthRoleAddRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthRoleAddRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthRoleAddRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthRoleAddRequest "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name"
-> (Text -> f Text) -> AuthRoleAddRequest -> f AuthRoleAddRequest
fieldOf Proxy# "name"
_
    = ((Text -> f Text) -> AuthRoleAddRequest -> f AuthRoleAddRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthRoleAddRequest
-> f AuthRoleAddRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleAddRequest -> Text)
-> (AuthRoleAddRequest -> Text -> AuthRoleAddRequest)
-> Lens AuthRoleAddRequest AuthRoleAddRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleAddRequest -> Text
_AuthRoleAddRequest'name
           (\ AuthRoleAddRequest
x__ Text
y__ -> AuthRoleAddRequest
x__ {_AuthRoleAddRequest'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthRoleAddRequest where
  messageName :: Proxy AuthRoleAddRequest -> Text
messageName Proxy AuthRoleAddRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthRoleAddRequest"
  packedMessageDescriptor :: Proxy AuthRoleAddRequest -> ByteString
packedMessageDescriptor Proxy AuthRoleAddRequest
_
    = ByteString
"\n\
      \\DC2AuthRoleAddRequest\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthRoleAddRequest -> ByteString
packedFileDescriptor Proxy AuthRoleAddRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthRoleAddRequest)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor AuthRoleAddRequest
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthRoleAddRequest Text
-> FieldDescriptor AuthRoleAddRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AuthRoleAddRequest AuthRoleAddRequest Text Text
-> FieldAccessor AuthRoleAddRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"name")) ::
              Data.ProtoLens.FieldDescriptor AuthRoleAddRequest
      in
        [(Tag, FieldDescriptor AuthRoleAddRequest)]
-> Map Tag (FieldDescriptor AuthRoleAddRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthRoleAddRequest
name__field_descriptor)]
  unknownFields :: Lens' AuthRoleAddRequest FieldSet
unknownFields
    = (AuthRoleAddRequest -> FieldSet)
-> (AuthRoleAddRequest -> FieldSet -> AuthRoleAddRequest)
-> Lens' AuthRoleAddRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthRoleAddRequest -> FieldSet
_AuthRoleAddRequest'_unknownFields
        (\ AuthRoleAddRequest
x__ FieldSet
y__ -> AuthRoleAddRequest
x__ {_AuthRoleAddRequest'_unknownFields = y__})
  defMessage :: AuthRoleAddRequest
defMessage
    = AuthRoleAddRequest'_constructor
        {_AuthRoleAddRequest'name :: Text
_AuthRoleAddRequest'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthRoleAddRequest'_unknownFields :: FieldSet
_AuthRoleAddRequest'_unknownFields = []}
  parseMessage :: Parser AuthRoleAddRequest
parseMessage
    = let
        loop ::
          AuthRoleAddRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthRoleAddRequest
        loop :: AuthRoleAddRequest -> Parser AuthRoleAddRequest
loop AuthRoleAddRequest
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 Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") 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 AuthRoleAddRequest -> String -> Parser AuthRoleAddRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthRoleAddRequest -> Parser AuthRoleAddRequest
loop AuthRoleAddRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthRoleAddRequest"
  buildMessage :: AuthRoleAddRequest -> Builder
buildMessage
    = \ AuthRoleAddRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text AuthRoleAddRequest AuthRoleAddRequest Text Text
-> AuthRoleAddRequest -> Text
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 @"name") AuthRoleAddRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> Builder) -> (Text -> ByteString) -> Text -> 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet AuthRoleAddRequest AuthRoleAddRequest FieldSet FieldSet
-> AuthRoleAddRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthRoleAddRequest AuthRoleAddRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthRoleAddRequest FieldSet
Data.ProtoLens.unknownFields AuthRoleAddRequest
_x))
instance Control.DeepSeq.NFData AuthRoleAddRequest where
  rnf :: AuthRoleAddRequest -> ()
rnf
    = \ AuthRoleAddRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthRoleAddRequest -> FieldSet
_AuthRoleAddRequest'_unknownFields AuthRoleAddRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthRoleAddRequest -> Text
_AuthRoleAddRequest'name AuthRoleAddRequest
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthRoleAddResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthRoleAddResponse (Prelude.Maybe ResponseHeader)@ -}
data AuthRoleAddResponse
  = AuthRoleAddResponse'_constructor {AuthRoleAddResponse -> Maybe ResponseHeader
_AuthRoleAddResponse'header :: !(Prelude.Maybe ResponseHeader),
                                      AuthRoleAddResponse -> FieldSet
_AuthRoleAddResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthRoleAddResponse -> AuthRoleAddResponse -> Bool
(AuthRoleAddResponse -> AuthRoleAddResponse -> Bool)
-> (AuthRoleAddResponse -> AuthRoleAddResponse -> Bool)
-> Eq AuthRoleAddResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthRoleAddResponse -> AuthRoleAddResponse -> Bool
== :: AuthRoleAddResponse -> AuthRoleAddResponse -> Bool
$c/= :: AuthRoleAddResponse -> AuthRoleAddResponse -> Bool
/= :: AuthRoleAddResponse -> AuthRoleAddResponse -> Bool
Prelude.Eq, Eq AuthRoleAddResponse
Eq AuthRoleAddResponse =>
(AuthRoleAddResponse -> AuthRoleAddResponse -> Ordering)
-> (AuthRoleAddResponse -> AuthRoleAddResponse -> Bool)
-> (AuthRoleAddResponse -> AuthRoleAddResponse -> Bool)
-> (AuthRoleAddResponse -> AuthRoleAddResponse -> Bool)
-> (AuthRoleAddResponse -> AuthRoleAddResponse -> Bool)
-> (AuthRoleAddResponse
    -> AuthRoleAddResponse -> AuthRoleAddResponse)
-> (AuthRoleAddResponse
    -> AuthRoleAddResponse -> AuthRoleAddResponse)
-> Ord AuthRoleAddResponse
AuthRoleAddResponse -> AuthRoleAddResponse -> Bool
AuthRoleAddResponse -> AuthRoleAddResponse -> Ordering
AuthRoleAddResponse -> AuthRoleAddResponse -> AuthRoleAddResponse
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 :: AuthRoleAddResponse -> AuthRoleAddResponse -> Ordering
compare :: AuthRoleAddResponse -> AuthRoleAddResponse -> Ordering
$c< :: AuthRoleAddResponse -> AuthRoleAddResponse -> Bool
< :: AuthRoleAddResponse -> AuthRoleAddResponse -> Bool
$c<= :: AuthRoleAddResponse -> AuthRoleAddResponse -> Bool
<= :: AuthRoleAddResponse -> AuthRoleAddResponse -> Bool
$c> :: AuthRoleAddResponse -> AuthRoleAddResponse -> Bool
> :: AuthRoleAddResponse -> AuthRoleAddResponse -> Bool
$c>= :: AuthRoleAddResponse -> AuthRoleAddResponse -> Bool
>= :: AuthRoleAddResponse -> AuthRoleAddResponse -> Bool
$cmax :: AuthRoleAddResponse -> AuthRoleAddResponse -> AuthRoleAddResponse
max :: AuthRoleAddResponse -> AuthRoleAddResponse -> AuthRoleAddResponse
$cmin :: AuthRoleAddResponse -> AuthRoleAddResponse -> AuthRoleAddResponse
min :: AuthRoleAddResponse -> AuthRoleAddResponse -> AuthRoleAddResponse
Prelude.Ord)
instance Prelude.Show AuthRoleAddResponse where
  showsPrec :: Int -> AuthRoleAddResponse -> ShowS
showsPrec Int
_ AuthRoleAddResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthRoleAddResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthRoleAddResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthRoleAddResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthRoleAddResponse
-> f AuthRoleAddResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthRoleAddResponse -> f AuthRoleAddResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthRoleAddResponse
-> f AuthRoleAddResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleAddResponse -> Maybe ResponseHeader)
-> (AuthRoleAddResponse
    -> Maybe ResponseHeader -> AuthRoleAddResponse)
-> Lens
     AuthRoleAddResponse
     AuthRoleAddResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleAddResponse -> Maybe ResponseHeader
_AuthRoleAddResponse'header
           (\ AuthRoleAddResponse
x__ Maybe ResponseHeader
y__ -> AuthRoleAddResponse
x__ {_AuthRoleAddResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthRoleAddResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthRoleAddResponse
-> f AuthRoleAddResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthRoleAddResponse -> f AuthRoleAddResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthRoleAddResponse
-> f AuthRoleAddResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleAddResponse -> Maybe ResponseHeader)
-> (AuthRoleAddResponse
    -> Maybe ResponseHeader -> AuthRoleAddResponse)
-> Lens
     AuthRoleAddResponse
     AuthRoleAddResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleAddResponse -> Maybe ResponseHeader
_AuthRoleAddResponse'header
           (\ AuthRoleAddResponse
x__ Maybe ResponseHeader
y__ -> AuthRoleAddResponse
x__ {_AuthRoleAddResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthRoleAddResponse where
  messageName :: Proxy AuthRoleAddResponse -> Text
messageName Proxy AuthRoleAddResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthRoleAddResponse"
  packedMessageDescriptor :: Proxy AuthRoleAddResponse -> ByteString
packedMessageDescriptor Proxy AuthRoleAddResponse
_
    = ByteString
"\n\
      \\DC3AuthRoleAddResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthRoleAddResponse -> ByteString
packedFileDescriptor Proxy AuthRoleAddResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthRoleAddResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthRoleAddResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthRoleAddResponse ResponseHeader
-> FieldDescriptor AuthRoleAddResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthRoleAddResponse
  AuthRoleAddResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthRoleAddResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthRoleAddResponse
      in
        [(Tag, FieldDescriptor AuthRoleAddResponse)]
-> Map Tag (FieldDescriptor AuthRoleAddResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthRoleAddResponse
header__field_descriptor)]
  unknownFields :: Lens' AuthRoleAddResponse FieldSet
unknownFields
    = (AuthRoleAddResponse -> FieldSet)
-> (AuthRoleAddResponse -> FieldSet -> AuthRoleAddResponse)
-> Lens' AuthRoleAddResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthRoleAddResponse -> FieldSet
_AuthRoleAddResponse'_unknownFields
        (\ AuthRoleAddResponse
x__ FieldSet
y__ -> AuthRoleAddResponse
x__ {_AuthRoleAddResponse'_unknownFields = y__})
  defMessage :: AuthRoleAddResponse
defMessage
    = AuthRoleAddResponse'_constructor
        {_AuthRoleAddResponse'header :: Maybe ResponseHeader
_AuthRoleAddResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthRoleAddResponse'_unknownFields :: FieldSet
_AuthRoleAddResponse'_unknownFields = []}
  parseMessage :: Parser AuthRoleAddResponse
parseMessage
    = let
        loop ::
          AuthRoleAddResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthRoleAddResponse
        loop :: AuthRoleAddResponse -> Parser AuthRoleAddResponse
loop AuthRoleAddResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 AuthRoleAddResponse -> String -> Parser AuthRoleAddResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthRoleAddResponse -> Parser AuthRoleAddResponse
loop AuthRoleAddResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthRoleAddResponse"
  buildMessage :: AuthRoleAddResponse -> Builder
buildMessage
    = \ AuthRoleAddResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthRoleAddResponse
  AuthRoleAddResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthRoleAddResponse -> Maybe ResponseHeader
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'header") AuthRoleAddResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet AuthRoleAddResponse AuthRoleAddResponse FieldSet FieldSet
-> AuthRoleAddResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthRoleAddResponse AuthRoleAddResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthRoleAddResponse FieldSet
Data.ProtoLens.unknownFields AuthRoleAddResponse
_x))
instance Control.DeepSeq.NFData AuthRoleAddResponse where
  rnf :: AuthRoleAddResponse -> ()
rnf
    = \ AuthRoleAddResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthRoleAddResponse -> FieldSet
_AuthRoleAddResponse'_unknownFields AuthRoleAddResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthRoleAddResponse -> Maybe ResponseHeader
_AuthRoleAddResponse'header AuthRoleAddResponse
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.role' @:: Lens' AuthRoleDeleteRequest Data.Text.Text@ -}
data AuthRoleDeleteRequest
  = AuthRoleDeleteRequest'_constructor {AuthRoleDeleteRequest -> Text
_AuthRoleDeleteRequest'role :: !Data.Text.Text,
                                        AuthRoleDeleteRequest -> FieldSet
_AuthRoleDeleteRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool
(AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool)
-> (AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool)
-> Eq AuthRoleDeleteRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool
== :: AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool
$c/= :: AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool
/= :: AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool
Prelude.Eq, Eq AuthRoleDeleteRequest
Eq AuthRoleDeleteRequest =>
(AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Ordering)
-> (AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool)
-> (AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool)
-> (AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool)
-> (AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool)
-> (AuthRoleDeleteRequest
    -> AuthRoleDeleteRequest -> AuthRoleDeleteRequest)
-> (AuthRoleDeleteRequest
    -> AuthRoleDeleteRequest -> AuthRoleDeleteRequest)
-> Ord AuthRoleDeleteRequest
AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool
AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Ordering
AuthRoleDeleteRequest
-> AuthRoleDeleteRequest -> AuthRoleDeleteRequest
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 :: AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Ordering
compare :: AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Ordering
$c< :: AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool
< :: AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool
$c<= :: AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool
<= :: AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool
$c> :: AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool
> :: AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool
$c>= :: AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool
>= :: AuthRoleDeleteRequest -> AuthRoleDeleteRequest -> Bool
$cmax :: AuthRoleDeleteRequest
-> AuthRoleDeleteRequest -> AuthRoleDeleteRequest
max :: AuthRoleDeleteRequest
-> AuthRoleDeleteRequest -> AuthRoleDeleteRequest
$cmin :: AuthRoleDeleteRequest
-> AuthRoleDeleteRequest -> AuthRoleDeleteRequest
min :: AuthRoleDeleteRequest
-> AuthRoleDeleteRequest -> AuthRoleDeleteRequest
Prelude.Ord)
instance Prelude.Show AuthRoleDeleteRequest where
  showsPrec :: Int -> AuthRoleDeleteRequest -> ShowS
showsPrec Int
_ AuthRoleDeleteRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthRoleDeleteRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthRoleDeleteRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthRoleDeleteRequest "role" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "role"
-> (Text -> f Text)
-> AuthRoleDeleteRequest
-> f AuthRoleDeleteRequest
fieldOf Proxy# "role"
_
    = ((Text -> f Text)
 -> AuthRoleDeleteRequest -> f AuthRoleDeleteRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthRoleDeleteRequest
-> f AuthRoleDeleteRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleDeleteRequest -> Text)
-> (AuthRoleDeleteRequest -> Text -> AuthRoleDeleteRequest)
-> Lens AuthRoleDeleteRequest AuthRoleDeleteRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleDeleteRequest -> Text
_AuthRoleDeleteRequest'role
           (\ AuthRoleDeleteRequest
x__ Text
y__ -> AuthRoleDeleteRequest
x__ {_AuthRoleDeleteRequest'role = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthRoleDeleteRequest where
  messageName :: Proxy AuthRoleDeleteRequest -> Text
messageName Proxy AuthRoleDeleteRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthRoleDeleteRequest"
  packedMessageDescriptor :: Proxy AuthRoleDeleteRequest -> ByteString
packedMessageDescriptor Proxy AuthRoleDeleteRequest
_
    = ByteString
"\n\
      \\NAKAuthRoleDeleteRequest\DC2\DC2\n\
      \\EOTrole\CAN\SOH \SOH(\tR\EOTrole:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthRoleDeleteRequest -> ByteString
packedFileDescriptor Proxy AuthRoleDeleteRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthRoleDeleteRequest)
fieldsByTag
    = let
        role__field_descriptor :: FieldDescriptor AuthRoleDeleteRequest
role__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthRoleDeleteRequest Text
-> FieldDescriptor AuthRoleDeleteRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"role"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AuthRoleDeleteRequest AuthRoleDeleteRequest Text Text
-> FieldAccessor AuthRoleDeleteRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"role")) ::
              Data.ProtoLens.FieldDescriptor AuthRoleDeleteRequest
      in
        [(Tag, FieldDescriptor AuthRoleDeleteRequest)]
-> Map Tag (FieldDescriptor AuthRoleDeleteRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthRoleDeleteRequest
role__field_descriptor)]
  unknownFields :: Lens' AuthRoleDeleteRequest FieldSet
unknownFields
    = (AuthRoleDeleteRequest -> FieldSet)
-> (AuthRoleDeleteRequest -> FieldSet -> AuthRoleDeleteRequest)
-> Lens' AuthRoleDeleteRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthRoleDeleteRequest -> FieldSet
_AuthRoleDeleteRequest'_unknownFields
        (\ AuthRoleDeleteRequest
x__ FieldSet
y__ -> AuthRoleDeleteRequest
x__ {_AuthRoleDeleteRequest'_unknownFields = y__})
  defMessage :: AuthRoleDeleteRequest
defMessage
    = AuthRoleDeleteRequest'_constructor
        {_AuthRoleDeleteRequest'role :: Text
_AuthRoleDeleteRequest'role = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthRoleDeleteRequest'_unknownFields :: FieldSet
_AuthRoleDeleteRequest'_unknownFields = []}
  parseMessage :: Parser AuthRoleDeleteRequest
parseMessage
    = let
        loop ::
          AuthRoleDeleteRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthRoleDeleteRequest
        loop :: AuthRoleDeleteRequest -> Parser AuthRoleDeleteRequest
loop AuthRoleDeleteRequest
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 Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"role"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"role") 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 AuthRoleDeleteRequest
-> String -> Parser AuthRoleDeleteRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthRoleDeleteRequest -> Parser AuthRoleDeleteRequest
loop AuthRoleDeleteRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthRoleDeleteRequest"
  buildMessage :: AuthRoleDeleteRequest -> Builder
buildMessage
    = \ AuthRoleDeleteRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text AuthRoleDeleteRequest AuthRoleDeleteRequest Text Text
-> AuthRoleDeleteRequest -> Text
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 @"role") AuthRoleDeleteRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> Builder) -> (Text -> ByteString) -> Text -> 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  AuthRoleDeleteRequest
  AuthRoleDeleteRequest
  FieldSet
  FieldSet
-> AuthRoleDeleteRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthRoleDeleteRequest
  AuthRoleDeleteRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthRoleDeleteRequest FieldSet
Data.ProtoLens.unknownFields AuthRoleDeleteRequest
_x))
instance Control.DeepSeq.NFData AuthRoleDeleteRequest where
  rnf :: AuthRoleDeleteRequest -> ()
rnf
    = \ AuthRoleDeleteRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthRoleDeleteRequest -> FieldSet
_AuthRoleDeleteRequest'_unknownFields AuthRoleDeleteRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthRoleDeleteRequest -> Text
_AuthRoleDeleteRequest'role AuthRoleDeleteRequest
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthRoleDeleteResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthRoleDeleteResponse (Prelude.Maybe ResponseHeader)@ -}
data AuthRoleDeleteResponse
  = AuthRoleDeleteResponse'_constructor {AuthRoleDeleteResponse -> Maybe ResponseHeader
_AuthRoleDeleteResponse'header :: !(Prelude.Maybe ResponseHeader),
                                         AuthRoleDeleteResponse -> FieldSet
_AuthRoleDeleteResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool
(AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool)
-> (AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool)
-> Eq AuthRoleDeleteResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool
== :: AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool
$c/= :: AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool
/= :: AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool
Prelude.Eq, Eq AuthRoleDeleteResponse
Eq AuthRoleDeleteResponse =>
(AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Ordering)
-> (AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool)
-> (AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool)
-> (AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool)
-> (AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool)
-> (AuthRoleDeleteResponse
    -> AuthRoleDeleteResponse -> AuthRoleDeleteResponse)
-> (AuthRoleDeleteResponse
    -> AuthRoleDeleteResponse -> AuthRoleDeleteResponse)
-> Ord AuthRoleDeleteResponse
AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool
AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Ordering
AuthRoleDeleteResponse
-> AuthRoleDeleteResponse -> AuthRoleDeleteResponse
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 :: AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Ordering
compare :: AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Ordering
$c< :: AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool
< :: AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool
$c<= :: AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool
<= :: AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool
$c> :: AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool
> :: AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool
$c>= :: AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool
>= :: AuthRoleDeleteResponse -> AuthRoleDeleteResponse -> Bool
$cmax :: AuthRoleDeleteResponse
-> AuthRoleDeleteResponse -> AuthRoleDeleteResponse
max :: AuthRoleDeleteResponse
-> AuthRoleDeleteResponse -> AuthRoleDeleteResponse
$cmin :: AuthRoleDeleteResponse
-> AuthRoleDeleteResponse -> AuthRoleDeleteResponse
min :: AuthRoleDeleteResponse
-> AuthRoleDeleteResponse -> AuthRoleDeleteResponse
Prelude.Ord)
instance Prelude.Show AuthRoleDeleteResponse where
  showsPrec :: Int -> AuthRoleDeleteResponse -> ShowS
showsPrec Int
_ AuthRoleDeleteResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthRoleDeleteResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthRoleDeleteResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthRoleDeleteResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthRoleDeleteResponse
-> f AuthRoleDeleteResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthRoleDeleteResponse -> f AuthRoleDeleteResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthRoleDeleteResponse
-> f AuthRoleDeleteResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleDeleteResponse -> Maybe ResponseHeader)
-> (AuthRoleDeleteResponse
    -> Maybe ResponseHeader -> AuthRoleDeleteResponse)
-> Lens
     AuthRoleDeleteResponse
     AuthRoleDeleteResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleDeleteResponse -> Maybe ResponseHeader
_AuthRoleDeleteResponse'header
           (\ AuthRoleDeleteResponse
x__ Maybe ResponseHeader
y__ -> AuthRoleDeleteResponse
x__ {_AuthRoleDeleteResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthRoleDeleteResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthRoleDeleteResponse
-> f AuthRoleDeleteResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthRoleDeleteResponse -> f AuthRoleDeleteResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthRoleDeleteResponse
-> f AuthRoleDeleteResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleDeleteResponse -> Maybe ResponseHeader)
-> (AuthRoleDeleteResponse
    -> Maybe ResponseHeader -> AuthRoleDeleteResponse)
-> Lens
     AuthRoleDeleteResponse
     AuthRoleDeleteResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleDeleteResponse -> Maybe ResponseHeader
_AuthRoleDeleteResponse'header
           (\ AuthRoleDeleteResponse
x__ Maybe ResponseHeader
y__ -> AuthRoleDeleteResponse
x__ {_AuthRoleDeleteResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthRoleDeleteResponse where
  messageName :: Proxy AuthRoleDeleteResponse -> Text
messageName Proxy AuthRoleDeleteResponse
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.AuthRoleDeleteResponse"
  packedMessageDescriptor :: Proxy AuthRoleDeleteResponse -> ByteString
packedMessageDescriptor Proxy AuthRoleDeleteResponse
_
    = ByteString
"\n\
      \\SYNAuthRoleDeleteResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthRoleDeleteResponse -> ByteString
packedFileDescriptor Proxy AuthRoleDeleteResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthRoleDeleteResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthRoleDeleteResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthRoleDeleteResponse ResponseHeader
-> FieldDescriptor AuthRoleDeleteResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthRoleDeleteResponse
  AuthRoleDeleteResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthRoleDeleteResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthRoleDeleteResponse
      in
        [(Tag, FieldDescriptor AuthRoleDeleteResponse)]
-> Map Tag (FieldDescriptor AuthRoleDeleteResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthRoleDeleteResponse
header__field_descriptor)]
  unknownFields :: Lens' AuthRoleDeleteResponse FieldSet
unknownFields
    = (AuthRoleDeleteResponse -> FieldSet)
-> (AuthRoleDeleteResponse -> FieldSet -> AuthRoleDeleteResponse)
-> Lens' AuthRoleDeleteResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthRoleDeleteResponse -> FieldSet
_AuthRoleDeleteResponse'_unknownFields
        (\ AuthRoleDeleteResponse
x__ FieldSet
y__ -> AuthRoleDeleteResponse
x__ {_AuthRoleDeleteResponse'_unknownFields = y__})
  defMessage :: AuthRoleDeleteResponse
defMessage
    = AuthRoleDeleteResponse'_constructor
        {_AuthRoleDeleteResponse'header :: Maybe ResponseHeader
_AuthRoleDeleteResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthRoleDeleteResponse'_unknownFields :: FieldSet
_AuthRoleDeleteResponse'_unknownFields = []}
  parseMessage :: Parser AuthRoleDeleteResponse
parseMessage
    = let
        loop ::
          AuthRoleDeleteResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthRoleDeleteResponse
        loop :: AuthRoleDeleteResponse -> Parser AuthRoleDeleteResponse
loop AuthRoleDeleteResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 AuthRoleDeleteResponse
-> String -> Parser AuthRoleDeleteResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthRoleDeleteResponse -> Parser AuthRoleDeleteResponse
loop AuthRoleDeleteResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthRoleDeleteResponse"
  buildMessage :: AuthRoleDeleteResponse -> Builder
buildMessage
    = \ AuthRoleDeleteResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthRoleDeleteResponse
  AuthRoleDeleteResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthRoleDeleteResponse -> Maybe ResponseHeader
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'header") AuthRoleDeleteResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  AuthRoleDeleteResponse
  AuthRoleDeleteResponse
  FieldSet
  FieldSet
-> AuthRoleDeleteResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthRoleDeleteResponse
  AuthRoleDeleteResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthRoleDeleteResponse FieldSet
Data.ProtoLens.unknownFields AuthRoleDeleteResponse
_x))
instance Control.DeepSeq.NFData AuthRoleDeleteResponse where
  rnf :: AuthRoleDeleteResponse -> ()
rnf
    = \ AuthRoleDeleteResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthRoleDeleteResponse -> FieldSet
_AuthRoleDeleteResponse'_unknownFields AuthRoleDeleteResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthRoleDeleteResponse -> Maybe ResponseHeader
_AuthRoleDeleteResponse'header AuthRoleDeleteResponse
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.role' @:: Lens' AuthRoleGetRequest Data.Text.Text@ -}
data AuthRoleGetRequest
  = AuthRoleGetRequest'_constructor {AuthRoleGetRequest -> Text
_AuthRoleGetRequest'role :: !Data.Text.Text,
                                     AuthRoleGetRequest -> FieldSet
_AuthRoleGetRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthRoleGetRequest -> AuthRoleGetRequest -> Bool
(AuthRoleGetRequest -> AuthRoleGetRequest -> Bool)
-> (AuthRoleGetRequest -> AuthRoleGetRequest -> Bool)
-> Eq AuthRoleGetRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthRoleGetRequest -> AuthRoleGetRequest -> Bool
== :: AuthRoleGetRequest -> AuthRoleGetRequest -> Bool
$c/= :: AuthRoleGetRequest -> AuthRoleGetRequest -> Bool
/= :: AuthRoleGetRequest -> AuthRoleGetRequest -> Bool
Prelude.Eq, Eq AuthRoleGetRequest
Eq AuthRoleGetRequest =>
(AuthRoleGetRequest -> AuthRoleGetRequest -> Ordering)
-> (AuthRoleGetRequest -> AuthRoleGetRequest -> Bool)
-> (AuthRoleGetRequest -> AuthRoleGetRequest -> Bool)
-> (AuthRoleGetRequest -> AuthRoleGetRequest -> Bool)
-> (AuthRoleGetRequest -> AuthRoleGetRequest -> Bool)
-> (AuthRoleGetRequest -> AuthRoleGetRequest -> AuthRoleGetRequest)
-> (AuthRoleGetRequest -> AuthRoleGetRequest -> AuthRoleGetRequest)
-> Ord AuthRoleGetRequest
AuthRoleGetRequest -> AuthRoleGetRequest -> Bool
AuthRoleGetRequest -> AuthRoleGetRequest -> Ordering
AuthRoleGetRequest -> AuthRoleGetRequest -> AuthRoleGetRequest
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 :: AuthRoleGetRequest -> AuthRoleGetRequest -> Ordering
compare :: AuthRoleGetRequest -> AuthRoleGetRequest -> Ordering
$c< :: AuthRoleGetRequest -> AuthRoleGetRequest -> Bool
< :: AuthRoleGetRequest -> AuthRoleGetRequest -> Bool
$c<= :: AuthRoleGetRequest -> AuthRoleGetRequest -> Bool
<= :: AuthRoleGetRequest -> AuthRoleGetRequest -> Bool
$c> :: AuthRoleGetRequest -> AuthRoleGetRequest -> Bool
> :: AuthRoleGetRequest -> AuthRoleGetRequest -> Bool
$c>= :: AuthRoleGetRequest -> AuthRoleGetRequest -> Bool
>= :: AuthRoleGetRequest -> AuthRoleGetRequest -> Bool
$cmax :: AuthRoleGetRequest -> AuthRoleGetRequest -> AuthRoleGetRequest
max :: AuthRoleGetRequest -> AuthRoleGetRequest -> AuthRoleGetRequest
$cmin :: AuthRoleGetRequest -> AuthRoleGetRequest -> AuthRoleGetRequest
min :: AuthRoleGetRequest -> AuthRoleGetRequest -> AuthRoleGetRequest
Prelude.Ord)
instance Prelude.Show AuthRoleGetRequest where
  showsPrec :: Int -> AuthRoleGetRequest -> ShowS
showsPrec Int
_ AuthRoleGetRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthRoleGetRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthRoleGetRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthRoleGetRequest "role" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "role"
-> (Text -> f Text) -> AuthRoleGetRequest -> f AuthRoleGetRequest
fieldOf Proxy# "role"
_
    = ((Text -> f Text) -> AuthRoleGetRequest -> f AuthRoleGetRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthRoleGetRequest
-> f AuthRoleGetRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleGetRequest -> Text)
-> (AuthRoleGetRequest -> Text -> AuthRoleGetRequest)
-> Lens AuthRoleGetRequest AuthRoleGetRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleGetRequest -> Text
_AuthRoleGetRequest'role
           (\ AuthRoleGetRequest
x__ Text
y__ -> AuthRoleGetRequest
x__ {_AuthRoleGetRequest'role = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthRoleGetRequest where
  messageName :: Proxy AuthRoleGetRequest -> Text
messageName Proxy AuthRoleGetRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthRoleGetRequest"
  packedMessageDescriptor :: Proxy AuthRoleGetRequest -> ByteString
packedMessageDescriptor Proxy AuthRoleGetRequest
_
    = ByteString
"\n\
      \\DC2AuthRoleGetRequest\DC2\DC2\n\
      \\EOTrole\CAN\SOH \SOH(\tR\EOTrole:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthRoleGetRequest -> ByteString
packedFileDescriptor Proxy AuthRoleGetRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthRoleGetRequest)
fieldsByTag
    = let
        role__field_descriptor :: FieldDescriptor AuthRoleGetRequest
role__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthRoleGetRequest Text
-> FieldDescriptor AuthRoleGetRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"role"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AuthRoleGetRequest AuthRoleGetRequest Text Text
-> FieldAccessor AuthRoleGetRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"role")) ::
              Data.ProtoLens.FieldDescriptor AuthRoleGetRequest
      in
        [(Tag, FieldDescriptor AuthRoleGetRequest)]
-> Map Tag (FieldDescriptor AuthRoleGetRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthRoleGetRequest
role__field_descriptor)]
  unknownFields :: Lens' AuthRoleGetRequest FieldSet
unknownFields
    = (AuthRoleGetRequest -> FieldSet)
-> (AuthRoleGetRequest -> FieldSet -> AuthRoleGetRequest)
-> Lens' AuthRoleGetRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthRoleGetRequest -> FieldSet
_AuthRoleGetRequest'_unknownFields
        (\ AuthRoleGetRequest
x__ FieldSet
y__ -> AuthRoleGetRequest
x__ {_AuthRoleGetRequest'_unknownFields = y__})
  defMessage :: AuthRoleGetRequest
defMessage
    = AuthRoleGetRequest'_constructor
        {_AuthRoleGetRequest'role :: Text
_AuthRoleGetRequest'role = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthRoleGetRequest'_unknownFields :: FieldSet
_AuthRoleGetRequest'_unknownFields = []}
  parseMessage :: Parser AuthRoleGetRequest
parseMessage
    = let
        loop ::
          AuthRoleGetRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthRoleGetRequest
        loop :: AuthRoleGetRequest -> Parser AuthRoleGetRequest
loop AuthRoleGetRequest
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 Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"role"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"role") 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 AuthRoleGetRequest -> String -> Parser AuthRoleGetRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthRoleGetRequest -> Parser AuthRoleGetRequest
loop AuthRoleGetRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthRoleGetRequest"
  buildMessage :: AuthRoleGetRequest -> Builder
buildMessage
    = \ AuthRoleGetRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text AuthRoleGetRequest AuthRoleGetRequest Text Text
-> AuthRoleGetRequest -> Text
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 @"role") AuthRoleGetRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> Builder) -> (Text -> ByteString) -> Text -> 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet AuthRoleGetRequest AuthRoleGetRequest FieldSet FieldSet
-> AuthRoleGetRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthRoleGetRequest AuthRoleGetRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthRoleGetRequest FieldSet
Data.ProtoLens.unknownFields AuthRoleGetRequest
_x))
instance Control.DeepSeq.NFData AuthRoleGetRequest where
  rnf :: AuthRoleGetRequest -> ()
rnf
    = \ AuthRoleGetRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthRoleGetRequest -> FieldSet
_AuthRoleGetRequest'_unknownFields AuthRoleGetRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthRoleGetRequest -> Text
_AuthRoleGetRequest'role AuthRoleGetRequest
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthRoleGetResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthRoleGetResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.perm' @:: Lens' AuthRoleGetResponse [Proto.Etcd.Api.Authpb.Auth.Permission]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'perm' @:: Lens' AuthRoleGetResponse (Data.Vector.Vector Proto.Etcd.Api.Authpb.Auth.Permission)@ -}
data AuthRoleGetResponse
  = AuthRoleGetResponse'_constructor {AuthRoleGetResponse -> Maybe ResponseHeader
_AuthRoleGetResponse'header :: !(Prelude.Maybe ResponseHeader),
                                      AuthRoleGetResponse -> Vector Permission
_AuthRoleGetResponse'perm :: !(Data.Vector.Vector Proto.Etcd.Api.Authpb.Auth.Permission),
                                      AuthRoleGetResponse -> FieldSet
_AuthRoleGetResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthRoleGetResponse -> AuthRoleGetResponse -> Bool
(AuthRoleGetResponse -> AuthRoleGetResponse -> Bool)
-> (AuthRoleGetResponse -> AuthRoleGetResponse -> Bool)
-> Eq AuthRoleGetResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthRoleGetResponse -> AuthRoleGetResponse -> Bool
== :: AuthRoleGetResponse -> AuthRoleGetResponse -> Bool
$c/= :: AuthRoleGetResponse -> AuthRoleGetResponse -> Bool
/= :: AuthRoleGetResponse -> AuthRoleGetResponse -> Bool
Prelude.Eq, Eq AuthRoleGetResponse
Eq AuthRoleGetResponse =>
(AuthRoleGetResponse -> AuthRoleGetResponse -> Ordering)
-> (AuthRoleGetResponse -> AuthRoleGetResponse -> Bool)
-> (AuthRoleGetResponse -> AuthRoleGetResponse -> Bool)
-> (AuthRoleGetResponse -> AuthRoleGetResponse -> Bool)
-> (AuthRoleGetResponse -> AuthRoleGetResponse -> Bool)
-> (AuthRoleGetResponse
    -> AuthRoleGetResponse -> AuthRoleGetResponse)
-> (AuthRoleGetResponse
    -> AuthRoleGetResponse -> AuthRoleGetResponse)
-> Ord AuthRoleGetResponse
AuthRoleGetResponse -> AuthRoleGetResponse -> Bool
AuthRoleGetResponse -> AuthRoleGetResponse -> Ordering
AuthRoleGetResponse -> AuthRoleGetResponse -> AuthRoleGetResponse
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 :: AuthRoleGetResponse -> AuthRoleGetResponse -> Ordering
compare :: AuthRoleGetResponse -> AuthRoleGetResponse -> Ordering
$c< :: AuthRoleGetResponse -> AuthRoleGetResponse -> Bool
< :: AuthRoleGetResponse -> AuthRoleGetResponse -> Bool
$c<= :: AuthRoleGetResponse -> AuthRoleGetResponse -> Bool
<= :: AuthRoleGetResponse -> AuthRoleGetResponse -> Bool
$c> :: AuthRoleGetResponse -> AuthRoleGetResponse -> Bool
> :: AuthRoleGetResponse -> AuthRoleGetResponse -> Bool
$c>= :: AuthRoleGetResponse -> AuthRoleGetResponse -> Bool
>= :: AuthRoleGetResponse -> AuthRoleGetResponse -> Bool
$cmax :: AuthRoleGetResponse -> AuthRoleGetResponse -> AuthRoleGetResponse
max :: AuthRoleGetResponse -> AuthRoleGetResponse -> AuthRoleGetResponse
$cmin :: AuthRoleGetResponse -> AuthRoleGetResponse -> AuthRoleGetResponse
min :: AuthRoleGetResponse -> AuthRoleGetResponse -> AuthRoleGetResponse
Prelude.Ord)
instance Prelude.Show AuthRoleGetResponse where
  showsPrec :: Int -> AuthRoleGetResponse -> ShowS
showsPrec Int
_ AuthRoleGetResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthRoleGetResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthRoleGetResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthRoleGetResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthRoleGetResponse
-> f AuthRoleGetResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthRoleGetResponse -> f AuthRoleGetResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthRoleGetResponse
-> f AuthRoleGetResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleGetResponse -> Maybe ResponseHeader)
-> (AuthRoleGetResponse
    -> Maybe ResponseHeader -> AuthRoleGetResponse)
-> Lens
     AuthRoleGetResponse
     AuthRoleGetResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleGetResponse -> Maybe ResponseHeader
_AuthRoleGetResponse'header
           (\ AuthRoleGetResponse
x__ Maybe ResponseHeader
y__ -> AuthRoleGetResponse
x__ {_AuthRoleGetResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthRoleGetResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthRoleGetResponse
-> f AuthRoleGetResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthRoleGetResponse -> f AuthRoleGetResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthRoleGetResponse
-> f AuthRoleGetResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleGetResponse -> Maybe ResponseHeader)
-> (AuthRoleGetResponse
    -> Maybe ResponseHeader -> AuthRoleGetResponse)
-> Lens
     AuthRoleGetResponse
     AuthRoleGetResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleGetResponse -> Maybe ResponseHeader
_AuthRoleGetResponse'header
           (\ AuthRoleGetResponse
x__ Maybe ResponseHeader
y__ -> AuthRoleGetResponse
x__ {_AuthRoleGetResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthRoleGetResponse "perm" [Proto.Etcd.Api.Authpb.Auth.Permission] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "perm"
-> ([Permission] -> f [Permission])
-> AuthRoleGetResponse
-> f AuthRoleGetResponse
fieldOf Proxy# "perm"
_
    = ((Vector Permission -> f (Vector Permission))
 -> AuthRoleGetResponse -> f AuthRoleGetResponse)
-> (([Permission] -> f [Permission])
    -> Vector Permission -> f (Vector Permission))
-> ([Permission] -> f [Permission])
-> AuthRoleGetResponse
-> f AuthRoleGetResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleGetResponse -> Vector Permission)
-> (AuthRoleGetResponse
    -> Vector Permission -> AuthRoleGetResponse)
-> Lens
     AuthRoleGetResponse
     AuthRoleGetResponse
     (Vector Permission)
     (Vector Permission)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleGetResponse -> Vector Permission
_AuthRoleGetResponse'perm
           (\ AuthRoleGetResponse
x__ Vector Permission
y__ -> AuthRoleGetResponse
x__ {_AuthRoleGetResponse'perm = y__}))
        ((Vector Permission -> [Permission])
-> (Vector Permission -> [Permission] -> Vector Permission)
-> Lens
     (Vector Permission) (Vector Permission) [Permission] [Permission]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Permission -> [Permission]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Permission
_ [Permission]
y__ -> [Permission] -> Vector Permission
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Permission]
y__))
instance Data.ProtoLens.Field.HasField AuthRoleGetResponse "vec'perm" (Data.Vector.Vector Proto.Etcd.Api.Authpb.Auth.Permission) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'perm"
-> (Vector Permission -> f (Vector Permission))
-> AuthRoleGetResponse
-> f AuthRoleGetResponse
fieldOf Proxy# "vec'perm"
_
    = ((Vector Permission -> f (Vector Permission))
 -> AuthRoleGetResponse -> f AuthRoleGetResponse)
-> ((Vector Permission -> f (Vector Permission))
    -> Vector Permission -> f (Vector Permission))
-> (Vector Permission -> f (Vector Permission))
-> AuthRoleGetResponse
-> f AuthRoleGetResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleGetResponse -> Vector Permission)
-> (AuthRoleGetResponse
    -> Vector Permission -> AuthRoleGetResponse)
-> Lens
     AuthRoleGetResponse
     AuthRoleGetResponse
     (Vector Permission)
     (Vector Permission)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleGetResponse -> Vector Permission
_AuthRoleGetResponse'perm
           (\ AuthRoleGetResponse
x__ Vector Permission
y__ -> AuthRoleGetResponse
x__ {_AuthRoleGetResponse'perm = y__}))
        (Vector Permission -> f (Vector Permission))
-> Vector Permission -> f (Vector Permission)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthRoleGetResponse where
  messageName :: Proxy AuthRoleGetResponse -> Text
messageName Proxy AuthRoleGetResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthRoleGetResponse"
  packedMessageDescriptor :: Proxy AuthRoleGetResponse -> ByteString
packedMessageDescriptor Proxy AuthRoleGetResponse
_
    = ByteString
"\n\
      \\DC3AuthRoleGetResponse\DC2=\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheaderB\a\138\181\CAN\ETX3.0\DC2/\n\
      \\EOTperm\CAN\STX \ETX(\v2\DC2.authpb.PermissionR\EOTpermB\a\138\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthRoleGetResponse -> ByteString
packedFileDescriptor Proxy AuthRoleGetResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthRoleGetResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthRoleGetResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthRoleGetResponse ResponseHeader
-> FieldDescriptor AuthRoleGetResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthRoleGetResponse
  AuthRoleGetResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthRoleGetResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthRoleGetResponse
        perm__field_descriptor :: FieldDescriptor AuthRoleGetResponse
perm__field_descriptor
          = String
-> FieldTypeDescriptor Permission
-> FieldAccessor AuthRoleGetResponse Permission
-> FieldDescriptor AuthRoleGetResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"perm"
              (MessageOrGroup -> FieldTypeDescriptor Permission
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Etcd.Api.Authpb.Auth.Permission)
              (Packing
-> Lens' AuthRoleGetResponse [Permission]
-> FieldAccessor AuthRoleGetResponse Permission
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"perm")) ::
              Data.ProtoLens.FieldDescriptor AuthRoleGetResponse
      in
        [(Tag, FieldDescriptor AuthRoleGetResponse)]
-> Map Tag (FieldDescriptor AuthRoleGetResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthRoleGetResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AuthRoleGetResponse
perm__field_descriptor)]
  unknownFields :: Lens' AuthRoleGetResponse FieldSet
unknownFields
    = (AuthRoleGetResponse -> FieldSet)
-> (AuthRoleGetResponse -> FieldSet -> AuthRoleGetResponse)
-> Lens' AuthRoleGetResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthRoleGetResponse -> FieldSet
_AuthRoleGetResponse'_unknownFields
        (\ AuthRoleGetResponse
x__ FieldSet
y__ -> AuthRoleGetResponse
x__ {_AuthRoleGetResponse'_unknownFields = y__})
  defMessage :: AuthRoleGetResponse
defMessage
    = AuthRoleGetResponse'_constructor
        {_AuthRoleGetResponse'header :: Maybe ResponseHeader
_AuthRoleGetResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthRoleGetResponse'perm :: Vector Permission
_AuthRoleGetResponse'perm = Vector Permission
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AuthRoleGetResponse'_unknownFields :: FieldSet
_AuthRoleGetResponse'_unknownFields = []}
  parseMessage :: Parser AuthRoleGetResponse
parseMessage
    = let
        loop ::
          AuthRoleGetResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Etcd.Api.Authpb.Auth.Permission
             -> Data.ProtoLens.Encoding.Bytes.Parser AuthRoleGetResponse
        loop :: AuthRoleGetResponse
-> Growing Vector RealWorld Permission
-> Parser AuthRoleGetResponse
loop AuthRoleGetResponse
x Growing Vector RealWorld Permission
mutable'perm
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'perm <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'perm)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'perm") frozen'perm x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'perm
                        Word64
18
                          -> do !y <- Parser Permission -> String -> Parser Permission
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
"perm"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'perm y)
                                loop x v
                        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)
                                  mutable'perm
      in
        Parser AuthRoleGetResponse -> String -> Parser AuthRoleGetResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'perm <- IO (Growing Vector RealWorld Permission)
-> Parser (Growing Vector RealWorld Permission)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                IO (Growing Vector RealWorld Permission)
IO (Growing Vector (PrimState IO) Permission)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'perm)
          String
"AuthRoleGetResponse"
  buildMessage :: AuthRoleGetResponse -> Builder
buildMessage
    = \ AuthRoleGetResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthRoleGetResponse
  AuthRoleGetResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthRoleGetResponse -> Maybe ResponseHeader
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'header") AuthRoleGetResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((Permission -> Builder) -> Vector Permission -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ Permission
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (Permission -> ByteString) -> Permission -> 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))
                              Permission -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Permission
_v))
                   (FoldLike
  (Vector Permission)
  AuthRoleGetResponse
  AuthRoleGetResponse
  (Vector Permission)
  (Vector Permission)
-> AuthRoleGetResponse -> Vector Permission
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 @"vec'perm") AuthRoleGetResponse
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet AuthRoleGetResponse AuthRoleGetResponse FieldSet FieldSet
-> AuthRoleGetResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthRoleGetResponse AuthRoleGetResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthRoleGetResponse FieldSet
Data.ProtoLens.unknownFields AuthRoleGetResponse
_x)))
instance Control.DeepSeq.NFData AuthRoleGetResponse where
  rnf :: AuthRoleGetResponse -> ()
rnf
    = \ AuthRoleGetResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthRoleGetResponse -> FieldSet
_AuthRoleGetResponse'_unknownFields AuthRoleGetResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthRoleGetResponse -> Maybe ResponseHeader
_AuthRoleGetResponse'header AuthRoleGetResponse
x__)
                (Vector Permission -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthRoleGetResponse -> Vector Permission
_AuthRoleGetResponse'perm AuthRoleGetResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthRoleGrantPermissionRequest Data.Text.Text@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.perm' @:: Lens' AuthRoleGrantPermissionRequest Proto.Etcd.Api.Authpb.Auth.Permission@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'perm' @:: Lens' AuthRoleGrantPermissionRequest (Prelude.Maybe Proto.Etcd.Api.Authpb.Auth.Permission)@ -}
data AuthRoleGrantPermissionRequest
  = AuthRoleGrantPermissionRequest'_constructor {AuthRoleGrantPermissionRequest -> Text
_AuthRoleGrantPermissionRequest'name :: !Data.Text.Text,
                                                 AuthRoleGrantPermissionRequest -> Maybe Permission
_AuthRoleGrantPermissionRequest'perm :: !(Prelude.Maybe Proto.Etcd.Api.Authpb.Auth.Permission),
                                                 AuthRoleGrantPermissionRequest -> FieldSet
_AuthRoleGrantPermissionRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Bool
(AuthRoleGrantPermissionRequest
 -> AuthRoleGrantPermissionRequest -> Bool)
-> (AuthRoleGrantPermissionRequest
    -> AuthRoleGrantPermissionRequest -> Bool)
-> Eq AuthRoleGrantPermissionRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Bool
== :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Bool
$c/= :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Bool
/= :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Bool
Prelude.Eq, Eq AuthRoleGrantPermissionRequest
Eq AuthRoleGrantPermissionRequest =>
(AuthRoleGrantPermissionRequest
 -> AuthRoleGrantPermissionRequest -> Ordering)
-> (AuthRoleGrantPermissionRequest
    -> AuthRoleGrantPermissionRequest -> Bool)
-> (AuthRoleGrantPermissionRequest
    -> AuthRoleGrantPermissionRequest -> Bool)
-> (AuthRoleGrantPermissionRequest
    -> AuthRoleGrantPermissionRequest -> Bool)
-> (AuthRoleGrantPermissionRequest
    -> AuthRoleGrantPermissionRequest -> Bool)
-> (AuthRoleGrantPermissionRequest
    -> AuthRoleGrantPermissionRequest
    -> AuthRoleGrantPermissionRequest)
-> (AuthRoleGrantPermissionRequest
    -> AuthRoleGrantPermissionRequest
    -> AuthRoleGrantPermissionRequest)
-> Ord AuthRoleGrantPermissionRequest
AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Bool
AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Ordering
AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> AuthRoleGrantPermissionRequest
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 :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Ordering
compare :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Ordering
$c< :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Bool
< :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Bool
$c<= :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Bool
<= :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Bool
$c> :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Bool
> :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Bool
$c>= :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Bool
>= :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> Bool
$cmax :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> AuthRoleGrantPermissionRequest
max :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> AuthRoleGrantPermissionRequest
$cmin :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> AuthRoleGrantPermissionRequest
min :: AuthRoleGrantPermissionRequest
-> AuthRoleGrantPermissionRequest -> AuthRoleGrantPermissionRequest
Prelude.Ord)
instance Prelude.Show AuthRoleGrantPermissionRequest where
  showsPrec :: Int -> AuthRoleGrantPermissionRequest -> ShowS
showsPrec Int
_ AuthRoleGrantPermissionRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthRoleGrantPermissionRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthRoleGrantPermissionRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthRoleGrantPermissionRequest "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name"
-> (Text -> f Text)
-> AuthRoleGrantPermissionRequest
-> f AuthRoleGrantPermissionRequest
fieldOf Proxy# "name"
_
    = ((Text -> f Text)
 -> AuthRoleGrantPermissionRequest
 -> f AuthRoleGrantPermissionRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthRoleGrantPermissionRequest
-> f AuthRoleGrantPermissionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleGrantPermissionRequest -> Text)
-> (AuthRoleGrantPermissionRequest
    -> Text -> AuthRoleGrantPermissionRequest)
-> Lens
     AuthRoleGrantPermissionRequest
     AuthRoleGrantPermissionRequest
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleGrantPermissionRequest -> Text
_AuthRoleGrantPermissionRequest'name
           (\ AuthRoleGrantPermissionRequest
x__ Text
y__ -> AuthRoleGrantPermissionRequest
x__ {_AuthRoleGrantPermissionRequest'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthRoleGrantPermissionRequest "perm" Proto.Etcd.Api.Authpb.Auth.Permission where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "perm"
-> (Permission -> f Permission)
-> AuthRoleGrantPermissionRequest
-> f AuthRoleGrantPermissionRequest
fieldOf Proxy# "perm"
_
    = ((Maybe Permission -> f (Maybe Permission))
 -> AuthRoleGrantPermissionRequest
 -> f AuthRoleGrantPermissionRequest)
-> ((Permission -> f Permission)
    -> Maybe Permission -> f (Maybe Permission))
-> (Permission -> f Permission)
-> AuthRoleGrantPermissionRequest
-> f AuthRoleGrantPermissionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleGrantPermissionRequest -> Maybe Permission)
-> (AuthRoleGrantPermissionRequest
    -> Maybe Permission -> AuthRoleGrantPermissionRequest)
-> Lens
     AuthRoleGrantPermissionRequest
     AuthRoleGrantPermissionRequest
     (Maybe Permission)
     (Maybe Permission)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleGrantPermissionRequest -> Maybe Permission
_AuthRoleGrantPermissionRequest'perm
           (\ AuthRoleGrantPermissionRequest
x__ Maybe Permission
y__ -> AuthRoleGrantPermissionRequest
x__ {_AuthRoleGrantPermissionRequest'perm = y__}))
        (Permission -> Lens' (Maybe Permission) Permission
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Permission
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthRoleGrantPermissionRequest "maybe'perm" (Prelude.Maybe Proto.Etcd.Api.Authpb.Auth.Permission) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'perm"
-> (Maybe Permission -> f (Maybe Permission))
-> AuthRoleGrantPermissionRequest
-> f AuthRoleGrantPermissionRequest
fieldOf Proxy# "maybe'perm"
_
    = ((Maybe Permission -> f (Maybe Permission))
 -> AuthRoleGrantPermissionRequest
 -> f AuthRoleGrantPermissionRequest)
-> ((Maybe Permission -> f (Maybe Permission))
    -> Maybe Permission -> f (Maybe Permission))
-> (Maybe Permission -> f (Maybe Permission))
-> AuthRoleGrantPermissionRequest
-> f AuthRoleGrantPermissionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleGrantPermissionRequest -> Maybe Permission)
-> (AuthRoleGrantPermissionRequest
    -> Maybe Permission -> AuthRoleGrantPermissionRequest)
-> Lens
     AuthRoleGrantPermissionRequest
     AuthRoleGrantPermissionRequest
     (Maybe Permission)
     (Maybe Permission)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleGrantPermissionRequest -> Maybe Permission
_AuthRoleGrantPermissionRequest'perm
           (\ AuthRoleGrantPermissionRequest
x__ Maybe Permission
y__ -> AuthRoleGrantPermissionRequest
x__ {_AuthRoleGrantPermissionRequest'perm = y__}))
        (Maybe Permission -> f (Maybe Permission))
-> Maybe Permission -> f (Maybe Permission)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthRoleGrantPermissionRequest where
  messageName :: Proxy AuthRoleGrantPermissionRequest -> Text
messageName Proxy AuthRoleGrantPermissionRequest
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.AuthRoleGrantPermissionRequest"
  packedMessageDescriptor :: Proxy AuthRoleGrantPermissionRequest -> ByteString
packedMessageDescriptor Proxy AuthRoleGrantPermissionRequest
_
    = ByteString
"\n\
      \\RSAuthRoleGrantPermissionRequest\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2&\n\
      \\EOTperm\CAN\STX \SOH(\v2\DC2.authpb.PermissionR\EOTperm:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthRoleGrantPermissionRequest -> ByteString
packedFileDescriptor Proxy AuthRoleGrantPermissionRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthRoleGrantPermissionRequest)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor AuthRoleGrantPermissionRequest
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthRoleGrantPermissionRequest Text
-> FieldDescriptor AuthRoleGrantPermissionRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     AuthRoleGrantPermissionRequest
     AuthRoleGrantPermissionRequest
     Text
     Text
-> FieldAccessor AuthRoleGrantPermissionRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"name")) ::
              Data.ProtoLens.FieldDescriptor AuthRoleGrantPermissionRequest
        perm__field_descriptor :: FieldDescriptor AuthRoleGrantPermissionRequest
perm__field_descriptor
          = String
-> FieldTypeDescriptor Permission
-> FieldAccessor AuthRoleGrantPermissionRequest Permission
-> FieldDescriptor AuthRoleGrantPermissionRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"perm"
              (MessageOrGroup -> FieldTypeDescriptor Permission
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Etcd.Api.Authpb.Auth.Permission)
              (Lens
  AuthRoleGrantPermissionRequest
  AuthRoleGrantPermissionRequest
  (Maybe Permission)
  (Maybe Permission)
-> FieldAccessor AuthRoleGrantPermissionRequest Permission
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'perm")) ::
              Data.ProtoLens.FieldDescriptor AuthRoleGrantPermissionRequest
      in
        [(Tag, FieldDescriptor AuthRoleGrantPermissionRequest)]
-> Map Tag (FieldDescriptor AuthRoleGrantPermissionRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthRoleGrantPermissionRequest
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AuthRoleGrantPermissionRequest
perm__field_descriptor)]
  unknownFields :: Lens' AuthRoleGrantPermissionRequest FieldSet
unknownFields
    = (AuthRoleGrantPermissionRequest -> FieldSet)
-> (AuthRoleGrantPermissionRequest
    -> FieldSet -> AuthRoleGrantPermissionRequest)
-> Lens' AuthRoleGrantPermissionRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthRoleGrantPermissionRequest -> FieldSet
_AuthRoleGrantPermissionRequest'_unknownFields
        (\ AuthRoleGrantPermissionRequest
x__ FieldSet
y__
           -> AuthRoleGrantPermissionRequest
x__ {_AuthRoleGrantPermissionRequest'_unknownFields = y__})
  defMessage :: AuthRoleGrantPermissionRequest
defMessage
    = AuthRoleGrantPermissionRequest'_constructor
        {_AuthRoleGrantPermissionRequest'name :: Text
_AuthRoleGrantPermissionRequest'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthRoleGrantPermissionRequest'perm :: Maybe Permission
_AuthRoleGrantPermissionRequest'perm = Maybe Permission
forall a. Maybe a
Prelude.Nothing,
         _AuthRoleGrantPermissionRequest'_unknownFields :: FieldSet
_AuthRoleGrantPermissionRequest'_unknownFields = []}
  parseMessage :: Parser AuthRoleGrantPermissionRequest
parseMessage
    = let
        loop ::
          AuthRoleGrantPermissionRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthRoleGrantPermissionRequest
        loop :: AuthRoleGrantPermissionRequest
-> Parser AuthRoleGrantPermissionRequest
loop AuthRoleGrantPermissionRequest
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 Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
                        Word64
18
                          -> do y <- Parser Permission -> String -> Parser Permission
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
"perm"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"perm") 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 AuthRoleGrantPermissionRequest
-> String -> Parser AuthRoleGrantPermissionRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthRoleGrantPermissionRequest
-> Parser AuthRoleGrantPermissionRequest
loop AuthRoleGrantPermissionRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
          String
"AuthRoleGrantPermissionRequest"
  buildMessage :: AuthRoleGrantPermissionRequest -> Builder
buildMessage
    = \ AuthRoleGrantPermissionRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  AuthRoleGrantPermissionRequest
  AuthRoleGrantPermissionRequest
  Text
  Text
-> AuthRoleGrantPermissionRequest -> Text
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 @"name") AuthRoleGrantPermissionRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> Builder) -> (Text -> ByteString) -> Text -> 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Permission)
  AuthRoleGrantPermissionRequest
  AuthRoleGrantPermissionRequest
  (Maybe Permission)
  (Maybe Permission)
-> AuthRoleGrantPermissionRequest -> Maybe Permission
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'perm") AuthRoleGrantPermissionRequest
_x
                 of
                   Maybe Permission
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just Permission
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (Permission -> ByteString) -> Permission -> 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))
                             Permission -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Permission
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  AuthRoleGrantPermissionRequest
  AuthRoleGrantPermissionRequest
  FieldSet
  FieldSet
-> AuthRoleGrantPermissionRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthRoleGrantPermissionRequest
  AuthRoleGrantPermissionRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthRoleGrantPermissionRequest FieldSet
Data.ProtoLens.unknownFields AuthRoleGrantPermissionRequest
_x)))
instance Control.DeepSeq.NFData AuthRoleGrantPermissionRequest where
  rnf :: AuthRoleGrantPermissionRequest -> ()
rnf
    = \ AuthRoleGrantPermissionRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthRoleGrantPermissionRequest -> FieldSet
_AuthRoleGrantPermissionRequest'_unknownFields AuthRoleGrantPermissionRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthRoleGrantPermissionRequest -> Text
_AuthRoleGrantPermissionRequest'name AuthRoleGrantPermissionRequest
x__)
                (Maybe Permission -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AuthRoleGrantPermissionRequest -> Maybe Permission
_AuthRoleGrantPermissionRequest'perm AuthRoleGrantPermissionRequest
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthRoleGrantPermissionResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthRoleGrantPermissionResponse (Prelude.Maybe ResponseHeader)@ -}
data AuthRoleGrantPermissionResponse
  = AuthRoleGrantPermissionResponse'_constructor {AuthRoleGrantPermissionResponse -> Maybe ResponseHeader
_AuthRoleGrantPermissionResponse'header :: !(Prelude.Maybe ResponseHeader),
                                                  AuthRoleGrantPermissionResponse -> FieldSet
_AuthRoleGrantPermissionResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Bool
(AuthRoleGrantPermissionResponse
 -> AuthRoleGrantPermissionResponse -> Bool)
-> (AuthRoleGrantPermissionResponse
    -> AuthRoleGrantPermissionResponse -> Bool)
-> Eq AuthRoleGrantPermissionResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Bool
== :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Bool
$c/= :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Bool
/= :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Bool
Prelude.Eq, Eq AuthRoleGrantPermissionResponse
Eq AuthRoleGrantPermissionResponse =>
(AuthRoleGrantPermissionResponse
 -> AuthRoleGrantPermissionResponse -> Ordering)
-> (AuthRoleGrantPermissionResponse
    -> AuthRoleGrantPermissionResponse -> Bool)
-> (AuthRoleGrantPermissionResponse
    -> AuthRoleGrantPermissionResponse -> Bool)
-> (AuthRoleGrantPermissionResponse
    -> AuthRoleGrantPermissionResponse -> Bool)
-> (AuthRoleGrantPermissionResponse
    -> AuthRoleGrantPermissionResponse -> Bool)
-> (AuthRoleGrantPermissionResponse
    -> AuthRoleGrantPermissionResponse
    -> AuthRoleGrantPermissionResponse)
-> (AuthRoleGrantPermissionResponse
    -> AuthRoleGrantPermissionResponse
    -> AuthRoleGrantPermissionResponse)
-> Ord AuthRoleGrantPermissionResponse
AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Bool
AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Ordering
AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse
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 :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Ordering
compare :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Ordering
$c< :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Bool
< :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Bool
$c<= :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Bool
<= :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Bool
$c> :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Bool
> :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Bool
$c>= :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Bool
>= :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse -> Bool
$cmax :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse
max :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse
$cmin :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse
min :: AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse
-> AuthRoleGrantPermissionResponse
Prelude.Ord)
instance Prelude.Show AuthRoleGrantPermissionResponse where
  showsPrec :: Int -> AuthRoleGrantPermissionResponse -> ShowS
showsPrec Int
_ AuthRoleGrantPermissionResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthRoleGrantPermissionResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthRoleGrantPermissionResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthRoleGrantPermissionResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthRoleGrantPermissionResponse
-> f AuthRoleGrantPermissionResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthRoleGrantPermissionResponse
 -> f AuthRoleGrantPermissionResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthRoleGrantPermissionResponse
-> f AuthRoleGrantPermissionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleGrantPermissionResponse -> Maybe ResponseHeader)
-> (AuthRoleGrantPermissionResponse
    -> Maybe ResponseHeader -> AuthRoleGrantPermissionResponse)
-> Lens
     AuthRoleGrantPermissionResponse
     AuthRoleGrantPermissionResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleGrantPermissionResponse -> Maybe ResponseHeader
_AuthRoleGrantPermissionResponse'header
           (\ AuthRoleGrantPermissionResponse
x__ Maybe ResponseHeader
y__ -> AuthRoleGrantPermissionResponse
x__ {_AuthRoleGrantPermissionResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthRoleGrantPermissionResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthRoleGrantPermissionResponse
-> f AuthRoleGrantPermissionResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthRoleGrantPermissionResponse
 -> f AuthRoleGrantPermissionResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthRoleGrantPermissionResponse
-> f AuthRoleGrantPermissionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleGrantPermissionResponse -> Maybe ResponseHeader)
-> (AuthRoleGrantPermissionResponse
    -> Maybe ResponseHeader -> AuthRoleGrantPermissionResponse)
-> Lens
     AuthRoleGrantPermissionResponse
     AuthRoleGrantPermissionResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleGrantPermissionResponse -> Maybe ResponseHeader
_AuthRoleGrantPermissionResponse'header
           (\ AuthRoleGrantPermissionResponse
x__ Maybe ResponseHeader
y__ -> AuthRoleGrantPermissionResponse
x__ {_AuthRoleGrantPermissionResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthRoleGrantPermissionResponse where
  messageName :: Proxy AuthRoleGrantPermissionResponse -> Text
messageName Proxy AuthRoleGrantPermissionResponse
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.AuthRoleGrantPermissionResponse"
  packedMessageDescriptor :: Proxy AuthRoleGrantPermissionResponse -> ByteString
packedMessageDescriptor Proxy AuthRoleGrantPermissionResponse
_
    = ByteString
"\n\
      \\USAuthRoleGrantPermissionResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthRoleGrantPermissionResponse -> ByteString
packedFileDescriptor Proxy AuthRoleGrantPermissionResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthRoleGrantPermissionResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthRoleGrantPermissionResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthRoleGrantPermissionResponse ResponseHeader
-> FieldDescriptor AuthRoleGrantPermissionResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthRoleGrantPermissionResponse
  AuthRoleGrantPermissionResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthRoleGrantPermissionResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthRoleGrantPermissionResponse
      in
        [(Tag, FieldDescriptor AuthRoleGrantPermissionResponse)]
-> Map Tag (FieldDescriptor AuthRoleGrantPermissionResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthRoleGrantPermissionResponse
header__field_descriptor)]
  unknownFields :: Lens' AuthRoleGrantPermissionResponse FieldSet
unknownFields
    = (AuthRoleGrantPermissionResponse -> FieldSet)
-> (AuthRoleGrantPermissionResponse
    -> FieldSet -> AuthRoleGrantPermissionResponse)
-> Lens' AuthRoleGrantPermissionResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthRoleGrantPermissionResponse -> FieldSet
_AuthRoleGrantPermissionResponse'_unknownFields
        (\ AuthRoleGrantPermissionResponse
x__ FieldSet
y__
           -> AuthRoleGrantPermissionResponse
x__ {_AuthRoleGrantPermissionResponse'_unknownFields = y__})
  defMessage :: AuthRoleGrantPermissionResponse
defMessage
    = AuthRoleGrantPermissionResponse'_constructor
        {_AuthRoleGrantPermissionResponse'header :: Maybe ResponseHeader
_AuthRoleGrantPermissionResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthRoleGrantPermissionResponse'_unknownFields :: FieldSet
_AuthRoleGrantPermissionResponse'_unknownFields = []}
  parseMessage :: Parser AuthRoleGrantPermissionResponse
parseMessage
    = let
        loop ::
          AuthRoleGrantPermissionResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthRoleGrantPermissionResponse
        loop :: AuthRoleGrantPermissionResponse
-> Parser AuthRoleGrantPermissionResponse
loop AuthRoleGrantPermissionResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 AuthRoleGrantPermissionResponse
-> String -> Parser AuthRoleGrantPermissionResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthRoleGrantPermissionResponse
-> Parser AuthRoleGrantPermissionResponse
loop AuthRoleGrantPermissionResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
          String
"AuthRoleGrantPermissionResponse"
  buildMessage :: AuthRoleGrantPermissionResponse -> Builder
buildMessage
    = \ AuthRoleGrantPermissionResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthRoleGrantPermissionResponse
  AuthRoleGrantPermissionResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthRoleGrantPermissionResponse -> Maybe ResponseHeader
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'header") AuthRoleGrantPermissionResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  AuthRoleGrantPermissionResponse
  AuthRoleGrantPermissionResponse
  FieldSet
  FieldSet
-> AuthRoleGrantPermissionResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthRoleGrantPermissionResponse
  AuthRoleGrantPermissionResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthRoleGrantPermissionResponse FieldSet
Data.ProtoLens.unknownFields AuthRoleGrantPermissionResponse
_x))
instance Control.DeepSeq.NFData AuthRoleGrantPermissionResponse where
  rnf :: AuthRoleGrantPermissionResponse -> ()
rnf
    = \ AuthRoleGrantPermissionResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthRoleGrantPermissionResponse -> FieldSet
_AuthRoleGrantPermissionResponse'_unknownFields AuthRoleGrantPermissionResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthRoleGrantPermissionResponse -> Maybe ResponseHeader
_AuthRoleGrantPermissionResponse'header AuthRoleGrantPermissionResponse
x__) ())
{- | Fields :
      -}
data AuthRoleListRequest
  = AuthRoleListRequest'_constructor {AuthRoleListRequest -> FieldSet
_AuthRoleListRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthRoleListRequest -> AuthRoleListRequest -> Bool
(AuthRoleListRequest -> AuthRoleListRequest -> Bool)
-> (AuthRoleListRequest -> AuthRoleListRequest -> Bool)
-> Eq AuthRoleListRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthRoleListRequest -> AuthRoleListRequest -> Bool
== :: AuthRoleListRequest -> AuthRoleListRequest -> Bool
$c/= :: AuthRoleListRequest -> AuthRoleListRequest -> Bool
/= :: AuthRoleListRequest -> AuthRoleListRequest -> Bool
Prelude.Eq, Eq AuthRoleListRequest
Eq AuthRoleListRequest =>
(AuthRoleListRequest -> AuthRoleListRequest -> Ordering)
-> (AuthRoleListRequest -> AuthRoleListRequest -> Bool)
-> (AuthRoleListRequest -> AuthRoleListRequest -> Bool)
-> (AuthRoleListRequest -> AuthRoleListRequest -> Bool)
-> (AuthRoleListRequest -> AuthRoleListRequest -> Bool)
-> (AuthRoleListRequest
    -> AuthRoleListRequest -> AuthRoleListRequest)
-> (AuthRoleListRequest
    -> AuthRoleListRequest -> AuthRoleListRequest)
-> Ord AuthRoleListRequest
AuthRoleListRequest -> AuthRoleListRequest -> Bool
AuthRoleListRequest -> AuthRoleListRequest -> Ordering
AuthRoleListRequest -> AuthRoleListRequest -> AuthRoleListRequest
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 :: AuthRoleListRequest -> AuthRoleListRequest -> Ordering
compare :: AuthRoleListRequest -> AuthRoleListRequest -> Ordering
$c< :: AuthRoleListRequest -> AuthRoleListRequest -> Bool
< :: AuthRoleListRequest -> AuthRoleListRequest -> Bool
$c<= :: AuthRoleListRequest -> AuthRoleListRequest -> Bool
<= :: AuthRoleListRequest -> AuthRoleListRequest -> Bool
$c> :: AuthRoleListRequest -> AuthRoleListRequest -> Bool
> :: AuthRoleListRequest -> AuthRoleListRequest -> Bool
$c>= :: AuthRoleListRequest -> AuthRoleListRequest -> Bool
>= :: AuthRoleListRequest -> AuthRoleListRequest -> Bool
$cmax :: AuthRoleListRequest -> AuthRoleListRequest -> AuthRoleListRequest
max :: AuthRoleListRequest -> AuthRoleListRequest -> AuthRoleListRequest
$cmin :: AuthRoleListRequest -> AuthRoleListRequest -> AuthRoleListRequest
min :: AuthRoleListRequest -> AuthRoleListRequest -> AuthRoleListRequest
Prelude.Ord)
instance Prelude.Show AuthRoleListRequest where
  showsPrec :: Int -> AuthRoleListRequest -> ShowS
showsPrec Int
_ AuthRoleListRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthRoleListRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthRoleListRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message AuthRoleListRequest where
  messageName :: Proxy AuthRoleListRequest -> Text
messageName Proxy AuthRoleListRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthRoleListRequest"
  packedMessageDescriptor :: Proxy AuthRoleListRequest -> ByteString
packedMessageDescriptor Proxy AuthRoleListRequest
_
    = ByteString
"\n\
      \\DC3AuthRoleListRequest:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthRoleListRequest -> ByteString
packedFileDescriptor Proxy AuthRoleListRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthRoleListRequest)
fieldsByTag = let in [(Tag, FieldDescriptor AuthRoleListRequest)]
-> Map Tag (FieldDescriptor AuthRoleListRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' AuthRoleListRequest FieldSet
unknownFields
    = (AuthRoleListRequest -> FieldSet)
-> (AuthRoleListRequest -> FieldSet -> AuthRoleListRequest)
-> Lens' AuthRoleListRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthRoleListRequest -> FieldSet
_AuthRoleListRequest'_unknownFields
        (\ AuthRoleListRequest
x__ FieldSet
y__ -> AuthRoleListRequest
x__ {_AuthRoleListRequest'_unknownFields = y__})
  defMessage :: AuthRoleListRequest
defMessage
    = AuthRoleListRequest'_constructor
        {_AuthRoleListRequest'_unknownFields :: FieldSet
_AuthRoleListRequest'_unknownFields = []}
  parseMessage :: Parser AuthRoleListRequest
parseMessage
    = let
        loop ::
          AuthRoleListRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthRoleListRequest
        loop :: AuthRoleListRequest -> Parser AuthRoleListRequest
loop AuthRoleListRequest
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
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 AuthRoleListRequest -> String -> Parser AuthRoleListRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthRoleListRequest -> Parser AuthRoleListRequest
loop AuthRoleListRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthRoleListRequest"
  buildMessage :: AuthRoleListRequest -> Builder
buildMessage
    = \ AuthRoleListRequest
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet AuthRoleListRequest AuthRoleListRequest FieldSet FieldSet
-> AuthRoleListRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthRoleListRequest AuthRoleListRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthRoleListRequest FieldSet
Data.ProtoLens.unknownFields AuthRoleListRequest
_x)
instance Control.DeepSeq.NFData AuthRoleListRequest where
  rnf :: AuthRoleListRequest -> ()
rnf
    = \ AuthRoleListRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthRoleListRequest -> FieldSet
_AuthRoleListRequest'_unknownFields AuthRoleListRequest
x__) ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthRoleListResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthRoleListResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.roles' @:: Lens' AuthRoleListResponse [Data.Text.Text]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'roles' @:: Lens' AuthRoleListResponse (Data.Vector.Vector Data.Text.Text)@ -}
data AuthRoleListResponse
  = AuthRoleListResponse'_constructor {AuthRoleListResponse -> Maybe ResponseHeader
_AuthRoleListResponse'header :: !(Prelude.Maybe ResponseHeader),
                                       AuthRoleListResponse -> Vector Text
_AuthRoleListResponse'roles :: !(Data.Vector.Vector Data.Text.Text),
                                       AuthRoleListResponse -> FieldSet
_AuthRoleListResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthRoleListResponse -> AuthRoleListResponse -> Bool
(AuthRoleListResponse -> AuthRoleListResponse -> Bool)
-> (AuthRoleListResponse -> AuthRoleListResponse -> Bool)
-> Eq AuthRoleListResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthRoleListResponse -> AuthRoleListResponse -> Bool
== :: AuthRoleListResponse -> AuthRoleListResponse -> Bool
$c/= :: AuthRoleListResponse -> AuthRoleListResponse -> Bool
/= :: AuthRoleListResponse -> AuthRoleListResponse -> Bool
Prelude.Eq, Eq AuthRoleListResponse
Eq AuthRoleListResponse =>
(AuthRoleListResponse -> AuthRoleListResponse -> Ordering)
-> (AuthRoleListResponse -> AuthRoleListResponse -> Bool)
-> (AuthRoleListResponse -> AuthRoleListResponse -> Bool)
-> (AuthRoleListResponse -> AuthRoleListResponse -> Bool)
-> (AuthRoleListResponse -> AuthRoleListResponse -> Bool)
-> (AuthRoleListResponse
    -> AuthRoleListResponse -> AuthRoleListResponse)
-> (AuthRoleListResponse
    -> AuthRoleListResponse -> AuthRoleListResponse)
-> Ord AuthRoleListResponse
AuthRoleListResponse -> AuthRoleListResponse -> Bool
AuthRoleListResponse -> AuthRoleListResponse -> Ordering
AuthRoleListResponse
-> AuthRoleListResponse -> AuthRoleListResponse
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 :: AuthRoleListResponse -> AuthRoleListResponse -> Ordering
compare :: AuthRoleListResponse -> AuthRoleListResponse -> Ordering
$c< :: AuthRoleListResponse -> AuthRoleListResponse -> Bool
< :: AuthRoleListResponse -> AuthRoleListResponse -> Bool
$c<= :: AuthRoleListResponse -> AuthRoleListResponse -> Bool
<= :: AuthRoleListResponse -> AuthRoleListResponse -> Bool
$c> :: AuthRoleListResponse -> AuthRoleListResponse -> Bool
> :: AuthRoleListResponse -> AuthRoleListResponse -> Bool
$c>= :: AuthRoleListResponse -> AuthRoleListResponse -> Bool
>= :: AuthRoleListResponse -> AuthRoleListResponse -> Bool
$cmax :: AuthRoleListResponse
-> AuthRoleListResponse -> AuthRoleListResponse
max :: AuthRoleListResponse
-> AuthRoleListResponse -> AuthRoleListResponse
$cmin :: AuthRoleListResponse
-> AuthRoleListResponse -> AuthRoleListResponse
min :: AuthRoleListResponse
-> AuthRoleListResponse -> AuthRoleListResponse
Prelude.Ord)
instance Prelude.Show AuthRoleListResponse where
  showsPrec :: Int -> AuthRoleListResponse -> ShowS
showsPrec Int
_ AuthRoleListResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthRoleListResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthRoleListResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthRoleListResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthRoleListResponse
-> f AuthRoleListResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthRoleListResponse -> f AuthRoleListResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthRoleListResponse
-> f AuthRoleListResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleListResponse -> Maybe ResponseHeader)
-> (AuthRoleListResponse
    -> Maybe ResponseHeader -> AuthRoleListResponse)
-> Lens
     AuthRoleListResponse
     AuthRoleListResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleListResponse -> Maybe ResponseHeader
_AuthRoleListResponse'header
           (\ AuthRoleListResponse
x__ Maybe ResponseHeader
y__ -> AuthRoleListResponse
x__ {_AuthRoleListResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthRoleListResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthRoleListResponse
-> f AuthRoleListResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthRoleListResponse -> f AuthRoleListResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthRoleListResponse
-> f AuthRoleListResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleListResponse -> Maybe ResponseHeader)
-> (AuthRoleListResponse
    -> Maybe ResponseHeader -> AuthRoleListResponse)
-> Lens
     AuthRoleListResponse
     AuthRoleListResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleListResponse -> Maybe ResponseHeader
_AuthRoleListResponse'header
           (\ AuthRoleListResponse
x__ Maybe ResponseHeader
y__ -> AuthRoleListResponse
x__ {_AuthRoleListResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthRoleListResponse "roles" [Data.Text.Text] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "roles"
-> ([Text] -> f [Text])
-> AuthRoleListResponse
-> f AuthRoleListResponse
fieldOf Proxy# "roles"
_
    = ((Vector Text -> f (Vector Text))
 -> AuthRoleListResponse -> f AuthRoleListResponse)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> AuthRoleListResponse
-> f AuthRoleListResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleListResponse -> Vector Text)
-> (AuthRoleListResponse -> Vector Text -> AuthRoleListResponse)
-> Lens
     AuthRoleListResponse
     AuthRoleListResponse
     (Vector Text)
     (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleListResponse -> Vector Text
_AuthRoleListResponse'roles
           (\ AuthRoleListResponse
x__ Vector Text
y__ -> AuthRoleListResponse
x__ {_AuthRoleListResponse'roles = y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Text
_ [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField AuthRoleListResponse "vec'roles" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'roles"
-> (Vector Text -> f (Vector Text))
-> AuthRoleListResponse
-> f AuthRoleListResponse
fieldOf Proxy# "vec'roles"
_
    = ((Vector Text -> f (Vector Text))
 -> AuthRoleListResponse -> f AuthRoleListResponse)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> AuthRoleListResponse
-> f AuthRoleListResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleListResponse -> Vector Text)
-> (AuthRoleListResponse -> Vector Text -> AuthRoleListResponse)
-> Lens
     AuthRoleListResponse
     AuthRoleListResponse
     (Vector Text)
     (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleListResponse -> Vector Text
_AuthRoleListResponse'roles
           (\ AuthRoleListResponse
x__ Vector Text
y__ -> AuthRoleListResponse
x__ {_AuthRoleListResponse'roles = y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthRoleListResponse where
  messageName :: Proxy AuthRoleListResponse -> Text
messageName Proxy AuthRoleListResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthRoleListResponse"
  packedMessageDescriptor :: Proxy AuthRoleListResponse -> ByteString
packedMessageDescriptor Proxy AuthRoleListResponse
_
    = ByteString
"\n\
      \\DC4AuthRoleListResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\DC4\n\
      \\ENQroles\CAN\STX \ETX(\tR\ENQroles:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthRoleListResponse -> ByteString
packedFileDescriptor Proxy AuthRoleListResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthRoleListResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthRoleListResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthRoleListResponse ResponseHeader
-> FieldDescriptor AuthRoleListResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthRoleListResponse
  AuthRoleListResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthRoleListResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthRoleListResponse
        roles__field_descriptor :: FieldDescriptor AuthRoleListResponse
roles__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthRoleListResponse Text
-> FieldDescriptor AuthRoleListResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"roles"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing
-> Lens' AuthRoleListResponse [Text]
-> FieldAccessor AuthRoleListResponse Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"roles")) ::
              Data.ProtoLens.FieldDescriptor AuthRoleListResponse
      in
        [(Tag, FieldDescriptor AuthRoleListResponse)]
-> Map Tag (FieldDescriptor AuthRoleListResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthRoleListResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AuthRoleListResponse
roles__field_descriptor)]
  unknownFields :: Lens' AuthRoleListResponse FieldSet
unknownFields
    = (AuthRoleListResponse -> FieldSet)
-> (AuthRoleListResponse -> FieldSet -> AuthRoleListResponse)
-> Lens' AuthRoleListResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthRoleListResponse -> FieldSet
_AuthRoleListResponse'_unknownFields
        (\ AuthRoleListResponse
x__ FieldSet
y__ -> AuthRoleListResponse
x__ {_AuthRoleListResponse'_unknownFields = y__})
  defMessage :: AuthRoleListResponse
defMessage
    = AuthRoleListResponse'_constructor
        {_AuthRoleListResponse'header :: Maybe ResponseHeader
_AuthRoleListResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthRoleListResponse'roles :: Vector Text
_AuthRoleListResponse'roles = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AuthRoleListResponse'_unknownFields :: FieldSet
_AuthRoleListResponse'_unknownFields = []}
  parseMessage :: Parser AuthRoleListResponse
parseMessage
    = let
        loop ::
          AuthRoleListResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
             -> Data.ProtoLens.Encoding.Bytes.Parser AuthRoleListResponse
        loop :: AuthRoleListResponse
-> Growing Vector RealWorld Text -> Parser AuthRoleListResponse
loop AuthRoleListResponse
x Growing Vector RealWorld Text
mutable'roles
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'roles <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'roles)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'roles") frozen'roles x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'roles
                        Word64
18
                          -> do !y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.getText
                                              (Prelude.fromIntegral len))
                                        String
"roles"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'roles y)
                                loop x v
                        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)
                                  mutable'roles
      in
        Parser AuthRoleListResponse
-> String -> Parser AuthRoleListResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'roles <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld Text)
IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'roles)
          String
"AuthRoleListResponse"
  buildMessage :: AuthRoleListResponse -> Builder
buildMessage
    = \ AuthRoleListResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthRoleListResponse
  AuthRoleListResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthRoleListResponse -> Maybe ResponseHeader
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'header") AuthRoleListResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ Text
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                              Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                   (FoldLike
  (Vector Text)
  AuthRoleListResponse
  AuthRoleListResponse
  (Vector Text)
  (Vector Text)
-> AuthRoleListResponse -> Vector Text
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 @"vec'roles") AuthRoleListResponse
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  AuthRoleListResponse
  AuthRoleListResponse
  FieldSet
  FieldSet
-> AuthRoleListResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthRoleListResponse
  AuthRoleListResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthRoleListResponse FieldSet
Data.ProtoLens.unknownFields AuthRoleListResponse
_x)))
instance Control.DeepSeq.NFData AuthRoleListResponse where
  rnf :: AuthRoleListResponse -> ()
rnf
    = \ AuthRoleListResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthRoleListResponse -> FieldSet
_AuthRoleListResponse'_unknownFields AuthRoleListResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthRoleListResponse -> Maybe ResponseHeader
_AuthRoleListResponse'header AuthRoleListResponse
x__)
                (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthRoleListResponse -> Vector Text
_AuthRoleListResponse'roles AuthRoleListResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.role' @:: Lens' AuthRoleRevokePermissionRequest Data.Text.Text@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.key' @:: Lens' AuthRoleRevokePermissionRequest Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.rangeEnd' @:: Lens' AuthRoleRevokePermissionRequest Data.ByteString.ByteString@ -}
data AuthRoleRevokePermissionRequest
  = AuthRoleRevokePermissionRequest'_constructor {AuthRoleRevokePermissionRequest -> Text
_AuthRoleRevokePermissionRequest'role :: !Data.Text.Text,
                                                  AuthRoleRevokePermissionRequest -> ByteString
_AuthRoleRevokePermissionRequest'key :: !Data.ByteString.ByteString,
                                                  AuthRoleRevokePermissionRequest -> ByteString
_AuthRoleRevokePermissionRequest'rangeEnd :: !Data.ByteString.ByteString,
                                                  AuthRoleRevokePermissionRequest -> FieldSet
_AuthRoleRevokePermissionRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Bool
(AuthRoleRevokePermissionRequest
 -> AuthRoleRevokePermissionRequest -> Bool)
-> (AuthRoleRevokePermissionRequest
    -> AuthRoleRevokePermissionRequest -> Bool)
-> Eq AuthRoleRevokePermissionRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Bool
== :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Bool
$c/= :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Bool
/= :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Bool
Prelude.Eq, Eq AuthRoleRevokePermissionRequest
Eq AuthRoleRevokePermissionRequest =>
(AuthRoleRevokePermissionRequest
 -> AuthRoleRevokePermissionRequest -> Ordering)
-> (AuthRoleRevokePermissionRequest
    -> AuthRoleRevokePermissionRequest -> Bool)
-> (AuthRoleRevokePermissionRequest
    -> AuthRoleRevokePermissionRequest -> Bool)
-> (AuthRoleRevokePermissionRequest
    -> AuthRoleRevokePermissionRequest -> Bool)
-> (AuthRoleRevokePermissionRequest
    -> AuthRoleRevokePermissionRequest -> Bool)
-> (AuthRoleRevokePermissionRequest
    -> AuthRoleRevokePermissionRequest
    -> AuthRoleRevokePermissionRequest)
-> (AuthRoleRevokePermissionRequest
    -> AuthRoleRevokePermissionRequest
    -> AuthRoleRevokePermissionRequest)
-> Ord AuthRoleRevokePermissionRequest
AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Bool
AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Ordering
AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest
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 :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Ordering
compare :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Ordering
$c< :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Bool
< :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Bool
$c<= :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Bool
<= :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Bool
$c> :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Bool
> :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Bool
$c>= :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Bool
>= :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest -> Bool
$cmax :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest
max :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest
$cmin :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest
min :: AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest
-> AuthRoleRevokePermissionRequest
Prelude.Ord)
instance Prelude.Show AuthRoleRevokePermissionRequest where
  showsPrec :: Int -> AuthRoleRevokePermissionRequest -> ShowS
showsPrec Int
_ AuthRoleRevokePermissionRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthRoleRevokePermissionRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthRoleRevokePermissionRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthRoleRevokePermissionRequest "role" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "role"
-> (Text -> f Text)
-> AuthRoleRevokePermissionRequest
-> f AuthRoleRevokePermissionRequest
fieldOf Proxy# "role"
_
    = ((Text -> f Text)
 -> AuthRoleRevokePermissionRequest
 -> f AuthRoleRevokePermissionRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthRoleRevokePermissionRequest
-> f AuthRoleRevokePermissionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleRevokePermissionRequest -> Text)
-> (AuthRoleRevokePermissionRequest
    -> Text -> AuthRoleRevokePermissionRequest)
-> Lens
     AuthRoleRevokePermissionRequest
     AuthRoleRevokePermissionRequest
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleRevokePermissionRequest -> Text
_AuthRoleRevokePermissionRequest'role
           (\ AuthRoleRevokePermissionRequest
x__ Text
y__ -> AuthRoleRevokePermissionRequest
x__ {_AuthRoleRevokePermissionRequest'role = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthRoleRevokePermissionRequest "key" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (ByteString -> f ByteString)
-> AuthRoleRevokePermissionRequest
-> f AuthRoleRevokePermissionRequest
fieldOf Proxy# "key"
_
    = ((ByteString -> f ByteString)
 -> AuthRoleRevokePermissionRequest
 -> f AuthRoleRevokePermissionRequest)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> AuthRoleRevokePermissionRequest
-> f AuthRoleRevokePermissionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleRevokePermissionRequest -> ByteString)
-> (AuthRoleRevokePermissionRequest
    -> ByteString -> AuthRoleRevokePermissionRequest)
-> Lens
     AuthRoleRevokePermissionRequest
     AuthRoleRevokePermissionRequest
     ByteString
     ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleRevokePermissionRequest -> ByteString
_AuthRoleRevokePermissionRequest'key
           (\ AuthRoleRevokePermissionRequest
x__ ByteString
y__ -> AuthRoleRevokePermissionRequest
x__ {_AuthRoleRevokePermissionRequest'key = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthRoleRevokePermissionRequest "rangeEnd" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rangeEnd"
-> (ByteString -> f ByteString)
-> AuthRoleRevokePermissionRequest
-> f AuthRoleRevokePermissionRequest
fieldOf Proxy# "rangeEnd"
_
    = ((ByteString -> f ByteString)
 -> AuthRoleRevokePermissionRequest
 -> f AuthRoleRevokePermissionRequest)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> AuthRoleRevokePermissionRequest
-> f AuthRoleRevokePermissionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleRevokePermissionRequest -> ByteString)
-> (AuthRoleRevokePermissionRequest
    -> ByteString -> AuthRoleRevokePermissionRequest)
-> Lens
     AuthRoleRevokePermissionRequest
     AuthRoleRevokePermissionRequest
     ByteString
     ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleRevokePermissionRequest -> ByteString
_AuthRoleRevokePermissionRequest'rangeEnd
           (\ AuthRoleRevokePermissionRequest
x__ ByteString
y__
              -> AuthRoleRevokePermissionRequest
x__ {_AuthRoleRevokePermissionRequest'rangeEnd = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthRoleRevokePermissionRequest where
  messageName :: Proxy AuthRoleRevokePermissionRequest -> Text
messageName Proxy AuthRoleRevokePermissionRequest
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.AuthRoleRevokePermissionRequest"
  packedMessageDescriptor :: Proxy AuthRoleRevokePermissionRequest -> ByteString
packedMessageDescriptor Proxy AuthRoleRevokePermissionRequest
_
    = ByteString
"\n\
      \\USAuthRoleRevokePermissionRequest\DC2\DC2\n\
      \\EOTrole\CAN\SOH \SOH(\tR\EOTrole\DC2\DLE\n\
      \\ETXkey\CAN\STX \SOH(\fR\ETXkey\DC2\ESC\n\
      \\trange_end\CAN\ETX \SOH(\fR\brangeEnd:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthRoleRevokePermissionRequest -> ByteString
packedFileDescriptor Proxy AuthRoleRevokePermissionRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthRoleRevokePermissionRequest)
fieldsByTag
    = let
        role__field_descriptor :: FieldDescriptor AuthRoleRevokePermissionRequest
role__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthRoleRevokePermissionRequest Text
-> FieldDescriptor AuthRoleRevokePermissionRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"role"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     AuthRoleRevokePermissionRequest
     AuthRoleRevokePermissionRequest
     Text
     Text
-> FieldAccessor AuthRoleRevokePermissionRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"role")) ::
              Data.ProtoLens.FieldDescriptor AuthRoleRevokePermissionRequest
        key__field_descriptor :: FieldDescriptor AuthRoleRevokePermissionRequest
key__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor AuthRoleRevokePermissionRequest ByteString
-> FieldDescriptor AuthRoleRevokePermissionRequest
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
     AuthRoleRevokePermissionRequest
     AuthRoleRevokePermissionRequest
     ByteString
     ByteString
-> FieldAccessor AuthRoleRevokePermissionRequest 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 AuthRoleRevokePermissionRequest
        rangeEnd__field_descriptor :: FieldDescriptor AuthRoleRevokePermissionRequest
rangeEnd__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor AuthRoleRevokePermissionRequest ByteString
-> FieldDescriptor AuthRoleRevokePermissionRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"range_end"
              (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
     AuthRoleRevokePermissionRequest
     AuthRoleRevokePermissionRequest
     ByteString
     ByteString
-> FieldAccessor AuthRoleRevokePermissionRequest 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 @"rangeEnd")) ::
              Data.ProtoLens.FieldDescriptor AuthRoleRevokePermissionRequest
      in
        [(Tag, FieldDescriptor AuthRoleRevokePermissionRequest)]
-> Map Tag (FieldDescriptor AuthRoleRevokePermissionRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthRoleRevokePermissionRequest
role__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AuthRoleRevokePermissionRequest
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor AuthRoleRevokePermissionRequest
rangeEnd__field_descriptor)]
  unknownFields :: Lens' AuthRoleRevokePermissionRequest FieldSet
unknownFields
    = (AuthRoleRevokePermissionRequest -> FieldSet)
-> (AuthRoleRevokePermissionRequest
    -> FieldSet -> AuthRoleRevokePermissionRequest)
-> Lens' AuthRoleRevokePermissionRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthRoleRevokePermissionRequest -> FieldSet
_AuthRoleRevokePermissionRequest'_unknownFields
        (\ AuthRoleRevokePermissionRequest
x__ FieldSet
y__
           -> AuthRoleRevokePermissionRequest
x__ {_AuthRoleRevokePermissionRequest'_unknownFields = y__})
  defMessage :: AuthRoleRevokePermissionRequest
defMessage
    = AuthRoleRevokePermissionRequest'_constructor
        {_AuthRoleRevokePermissionRequest'role :: Text
_AuthRoleRevokePermissionRequest'role = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthRoleRevokePermissionRequest'key :: ByteString
_AuthRoleRevokePermissionRequest'key = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthRoleRevokePermissionRequest'rangeEnd :: ByteString
_AuthRoleRevokePermissionRequest'rangeEnd = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthRoleRevokePermissionRequest'_unknownFields :: FieldSet
_AuthRoleRevokePermissionRequest'_unknownFields = []}
  parseMessage :: Parser AuthRoleRevokePermissionRequest
parseMessage
    = let
        loop ::
          AuthRoleRevokePermissionRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthRoleRevokePermissionRequest
        loop :: AuthRoleRevokePermissionRequest
-> Parser AuthRoleRevokePermissionRequest
loop AuthRoleRevokePermissionRequest
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 Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"role"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"role") y x)
                        Word64
18
                          -> 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
26
                          -> 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
"range_end"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"rangeEnd") 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 AuthRoleRevokePermissionRequest
-> String -> Parser AuthRoleRevokePermissionRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthRoleRevokePermissionRequest
-> Parser AuthRoleRevokePermissionRequest
loop AuthRoleRevokePermissionRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
          String
"AuthRoleRevokePermissionRequest"
  buildMessage :: AuthRoleRevokePermissionRequest -> Builder
buildMessage
    = \ AuthRoleRevokePermissionRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  AuthRoleRevokePermissionRequest
  AuthRoleRevokePermissionRequest
  Text
  Text
-> AuthRoleRevokePermissionRequest -> Text
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 @"role") AuthRoleRevokePermissionRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> Builder) -> (Text -> ByteString) -> Text -> 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: ByteString
_v = FoldLike
  ByteString
  AuthRoleRevokePermissionRequest
  AuthRoleRevokePermissionRequest
  ByteString
  ByteString
-> AuthRoleRevokePermissionRequest -> 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") AuthRoleRevokePermissionRequest
_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
18)
                         ((\ 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 :: ByteString
_v = FoldLike
  ByteString
  AuthRoleRevokePermissionRequest
  AuthRoleRevokePermissionRequest
  ByteString
  ByteString
-> AuthRoleRevokePermissionRequest -> 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 @"rangeEnd") AuthRoleRevokePermissionRequest
_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
26)
                            ((\ 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))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  AuthRoleRevokePermissionRequest
  AuthRoleRevokePermissionRequest
  FieldSet
  FieldSet
-> AuthRoleRevokePermissionRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthRoleRevokePermissionRequest
  AuthRoleRevokePermissionRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthRoleRevokePermissionRequest FieldSet
Data.ProtoLens.unknownFields AuthRoleRevokePermissionRequest
_x))))
instance Control.DeepSeq.NFData AuthRoleRevokePermissionRequest where
  rnf :: AuthRoleRevokePermissionRequest -> ()
rnf
    = \ AuthRoleRevokePermissionRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthRoleRevokePermissionRequest -> FieldSet
_AuthRoleRevokePermissionRequest'_unknownFields AuthRoleRevokePermissionRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthRoleRevokePermissionRequest -> Text
_AuthRoleRevokePermissionRequest'role AuthRoleRevokePermissionRequest
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AuthRoleRevokePermissionRequest -> ByteString
_AuthRoleRevokePermissionRequest'key AuthRoleRevokePermissionRequest
x__)
                   (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (AuthRoleRevokePermissionRequest -> ByteString
_AuthRoleRevokePermissionRequest'rangeEnd AuthRoleRevokePermissionRequest
x__) ())))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthRoleRevokePermissionResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthRoleRevokePermissionResponse (Prelude.Maybe ResponseHeader)@ -}
data AuthRoleRevokePermissionResponse
  = AuthRoleRevokePermissionResponse'_constructor {AuthRoleRevokePermissionResponse -> Maybe ResponseHeader
_AuthRoleRevokePermissionResponse'header :: !(Prelude.Maybe ResponseHeader),
                                                   AuthRoleRevokePermissionResponse -> FieldSet
_AuthRoleRevokePermissionResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Bool
(AuthRoleRevokePermissionResponse
 -> AuthRoleRevokePermissionResponse -> Bool)
-> (AuthRoleRevokePermissionResponse
    -> AuthRoleRevokePermissionResponse -> Bool)
-> Eq AuthRoleRevokePermissionResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Bool
== :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Bool
$c/= :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Bool
/= :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Bool
Prelude.Eq, Eq AuthRoleRevokePermissionResponse
Eq AuthRoleRevokePermissionResponse =>
(AuthRoleRevokePermissionResponse
 -> AuthRoleRevokePermissionResponse -> Ordering)
-> (AuthRoleRevokePermissionResponse
    -> AuthRoleRevokePermissionResponse -> Bool)
-> (AuthRoleRevokePermissionResponse
    -> AuthRoleRevokePermissionResponse -> Bool)
-> (AuthRoleRevokePermissionResponse
    -> AuthRoleRevokePermissionResponse -> Bool)
-> (AuthRoleRevokePermissionResponse
    -> AuthRoleRevokePermissionResponse -> Bool)
-> (AuthRoleRevokePermissionResponse
    -> AuthRoleRevokePermissionResponse
    -> AuthRoleRevokePermissionResponse)
-> (AuthRoleRevokePermissionResponse
    -> AuthRoleRevokePermissionResponse
    -> AuthRoleRevokePermissionResponse)
-> Ord AuthRoleRevokePermissionResponse
AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Bool
AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Ordering
AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse
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 :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Ordering
compare :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Ordering
$c< :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Bool
< :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Bool
$c<= :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Bool
<= :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Bool
$c> :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Bool
> :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Bool
$c>= :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Bool
>= :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse -> Bool
$cmax :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse
max :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse
$cmin :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse
min :: AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse
-> AuthRoleRevokePermissionResponse
Prelude.Ord)
instance Prelude.Show AuthRoleRevokePermissionResponse where
  showsPrec :: Int -> AuthRoleRevokePermissionResponse -> ShowS
showsPrec Int
_ AuthRoleRevokePermissionResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthRoleRevokePermissionResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthRoleRevokePermissionResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthRoleRevokePermissionResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthRoleRevokePermissionResponse
-> f AuthRoleRevokePermissionResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthRoleRevokePermissionResponse
 -> f AuthRoleRevokePermissionResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthRoleRevokePermissionResponse
-> f AuthRoleRevokePermissionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleRevokePermissionResponse -> Maybe ResponseHeader)
-> (AuthRoleRevokePermissionResponse
    -> Maybe ResponseHeader -> AuthRoleRevokePermissionResponse)
-> Lens
     AuthRoleRevokePermissionResponse
     AuthRoleRevokePermissionResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleRevokePermissionResponse -> Maybe ResponseHeader
_AuthRoleRevokePermissionResponse'header
           (\ AuthRoleRevokePermissionResponse
x__ Maybe ResponseHeader
y__
              -> AuthRoleRevokePermissionResponse
x__ {_AuthRoleRevokePermissionResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthRoleRevokePermissionResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthRoleRevokePermissionResponse
-> f AuthRoleRevokePermissionResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthRoleRevokePermissionResponse
 -> f AuthRoleRevokePermissionResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthRoleRevokePermissionResponse
-> f AuthRoleRevokePermissionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthRoleRevokePermissionResponse -> Maybe ResponseHeader)
-> (AuthRoleRevokePermissionResponse
    -> Maybe ResponseHeader -> AuthRoleRevokePermissionResponse)
-> Lens
     AuthRoleRevokePermissionResponse
     AuthRoleRevokePermissionResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthRoleRevokePermissionResponse -> Maybe ResponseHeader
_AuthRoleRevokePermissionResponse'header
           (\ AuthRoleRevokePermissionResponse
x__ Maybe ResponseHeader
y__
              -> AuthRoleRevokePermissionResponse
x__ {_AuthRoleRevokePermissionResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthRoleRevokePermissionResponse where
  messageName :: Proxy AuthRoleRevokePermissionResponse -> Text
messageName Proxy AuthRoleRevokePermissionResponse
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.AuthRoleRevokePermissionResponse"
  packedMessageDescriptor :: Proxy AuthRoleRevokePermissionResponse -> ByteString
packedMessageDescriptor Proxy AuthRoleRevokePermissionResponse
_
    = ByteString
"\n\
      \ AuthRoleRevokePermissionResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthRoleRevokePermissionResponse -> ByteString
packedFileDescriptor Proxy AuthRoleRevokePermissionResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthRoleRevokePermissionResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthRoleRevokePermissionResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthRoleRevokePermissionResponse ResponseHeader
-> FieldDescriptor AuthRoleRevokePermissionResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthRoleRevokePermissionResponse
  AuthRoleRevokePermissionResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthRoleRevokePermissionResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthRoleRevokePermissionResponse
      in
        [(Tag, FieldDescriptor AuthRoleRevokePermissionResponse)]
-> Map Tag (FieldDescriptor AuthRoleRevokePermissionResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthRoleRevokePermissionResponse
header__field_descriptor)]
  unknownFields :: Lens' AuthRoleRevokePermissionResponse FieldSet
unknownFields
    = (AuthRoleRevokePermissionResponse -> FieldSet)
-> (AuthRoleRevokePermissionResponse
    -> FieldSet -> AuthRoleRevokePermissionResponse)
-> Lens' AuthRoleRevokePermissionResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthRoleRevokePermissionResponse -> FieldSet
_AuthRoleRevokePermissionResponse'_unknownFields
        (\ AuthRoleRevokePermissionResponse
x__ FieldSet
y__
           -> AuthRoleRevokePermissionResponse
x__ {_AuthRoleRevokePermissionResponse'_unknownFields = y__})
  defMessage :: AuthRoleRevokePermissionResponse
defMessage
    = AuthRoleRevokePermissionResponse'_constructor
        {_AuthRoleRevokePermissionResponse'header :: Maybe ResponseHeader
_AuthRoleRevokePermissionResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthRoleRevokePermissionResponse'_unknownFields :: FieldSet
_AuthRoleRevokePermissionResponse'_unknownFields = []}
  parseMessage :: Parser AuthRoleRevokePermissionResponse
parseMessage
    = let
        loop ::
          AuthRoleRevokePermissionResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthRoleRevokePermissionResponse
        loop :: AuthRoleRevokePermissionResponse
-> Parser AuthRoleRevokePermissionResponse
loop AuthRoleRevokePermissionResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 AuthRoleRevokePermissionResponse
-> String -> Parser AuthRoleRevokePermissionResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthRoleRevokePermissionResponse
-> Parser AuthRoleRevokePermissionResponse
loop AuthRoleRevokePermissionResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
          String
"AuthRoleRevokePermissionResponse"
  buildMessage :: AuthRoleRevokePermissionResponse -> Builder
buildMessage
    = \ AuthRoleRevokePermissionResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthRoleRevokePermissionResponse
  AuthRoleRevokePermissionResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthRoleRevokePermissionResponse -> Maybe ResponseHeader
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'header") AuthRoleRevokePermissionResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  AuthRoleRevokePermissionResponse
  AuthRoleRevokePermissionResponse
  FieldSet
  FieldSet
-> AuthRoleRevokePermissionResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthRoleRevokePermissionResponse
  AuthRoleRevokePermissionResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthRoleRevokePermissionResponse FieldSet
Data.ProtoLens.unknownFields AuthRoleRevokePermissionResponse
_x))
instance Control.DeepSeq.NFData AuthRoleRevokePermissionResponse where
  rnf :: AuthRoleRevokePermissionResponse -> ()
rnf
    = \ AuthRoleRevokePermissionResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthRoleRevokePermissionResponse -> FieldSet
_AuthRoleRevokePermissionResponse'_unknownFields AuthRoleRevokePermissionResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthRoleRevokePermissionResponse -> Maybe ResponseHeader
_AuthRoleRevokePermissionResponse'header AuthRoleRevokePermissionResponse
x__) ())
{- | Fields :
      -}
data AuthStatusRequest
  = AuthStatusRequest'_constructor {AuthStatusRequest -> FieldSet
_AuthStatusRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthStatusRequest -> AuthStatusRequest -> Bool
(AuthStatusRequest -> AuthStatusRequest -> Bool)
-> (AuthStatusRequest -> AuthStatusRequest -> Bool)
-> Eq AuthStatusRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthStatusRequest -> AuthStatusRequest -> Bool
== :: AuthStatusRequest -> AuthStatusRequest -> Bool
$c/= :: AuthStatusRequest -> AuthStatusRequest -> Bool
/= :: AuthStatusRequest -> AuthStatusRequest -> Bool
Prelude.Eq, Eq AuthStatusRequest
Eq AuthStatusRequest =>
(AuthStatusRequest -> AuthStatusRequest -> Ordering)
-> (AuthStatusRequest -> AuthStatusRequest -> Bool)
-> (AuthStatusRequest -> AuthStatusRequest -> Bool)
-> (AuthStatusRequest -> AuthStatusRequest -> Bool)
-> (AuthStatusRequest -> AuthStatusRequest -> Bool)
-> (AuthStatusRequest -> AuthStatusRequest -> AuthStatusRequest)
-> (AuthStatusRequest -> AuthStatusRequest -> AuthStatusRequest)
-> Ord AuthStatusRequest
AuthStatusRequest -> AuthStatusRequest -> Bool
AuthStatusRequest -> AuthStatusRequest -> Ordering
AuthStatusRequest -> AuthStatusRequest -> AuthStatusRequest
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 :: AuthStatusRequest -> AuthStatusRequest -> Ordering
compare :: AuthStatusRequest -> AuthStatusRequest -> Ordering
$c< :: AuthStatusRequest -> AuthStatusRequest -> Bool
< :: AuthStatusRequest -> AuthStatusRequest -> Bool
$c<= :: AuthStatusRequest -> AuthStatusRequest -> Bool
<= :: AuthStatusRequest -> AuthStatusRequest -> Bool
$c> :: AuthStatusRequest -> AuthStatusRequest -> Bool
> :: AuthStatusRequest -> AuthStatusRequest -> Bool
$c>= :: AuthStatusRequest -> AuthStatusRequest -> Bool
>= :: AuthStatusRequest -> AuthStatusRequest -> Bool
$cmax :: AuthStatusRequest -> AuthStatusRequest -> AuthStatusRequest
max :: AuthStatusRequest -> AuthStatusRequest -> AuthStatusRequest
$cmin :: AuthStatusRequest -> AuthStatusRequest -> AuthStatusRequest
min :: AuthStatusRequest -> AuthStatusRequest -> AuthStatusRequest
Prelude.Ord)
instance Prelude.Show AuthStatusRequest where
  showsPrec :: Int -> AuthStatusRequest -> ShowS
showsPrec Int
_ AuthStatusRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthStatusRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthStatusRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message AuthStatusRequest where
  messageName :: Proxy AuthStatusRequest -> Text
messageName Proxy AuthStatusRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthStatusRequest"
  packedMessageDescriptor :: Proxy AuthStatusRequest -> ByteString
packedMessageDescriptor Proxy AuthStatusRequest
_
    = ByteString
"\n\
      \\DC1AuthStatusRequest:\a\130\181\CAN\ETX3.5"
  packedFileDescriptor :: Proxy AuthStatusRequest -> ByteString
packedFileDescriptor Proxy AuthStatusRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthStatusRequest)
fieldsByTag = let in [(Tag, FieldDescriptor AuthStatusRequest)]
-> Map Tag (FieldDescriptor AuthStatusRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' AuthStatusRequest FieldSet
unknownFields
    = (AuthStatusRequest -> FieldSet)
-> (AuthStatusRequest -> FieldSet -> AuthStatusRequest)
-> Lens' AuthStatusRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthStatusRequest -> FieldSet
_AuthStatusRequest'_unknownFields
        (\ AuthStatusRequest
x__ FieldSet
y__ -> AuthStatusRequest
x__ {_AuthStatusRequest'_unknownFields = y__})
  defMessage :: AuthStatusRequest
defMessage
    = AuthStatusRequest'_constructor
        {_AuthStatusRequest'_unknownFields :: FieldSet
_AuthStatusRequest'_unknownFields = []}
  parseMessage :: Parser AuthStatusRequest
parseMessage
    = let
        loop ::
          AuthStatusRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthStatusRequest
        loop :: AuthStatusRequest -> Parser AuthStatusRequest
loop AuthStatusRequest
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
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 AuthStatusRequest -> String -> Parser AuthStatusRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthStatusRequest -> Parser AuthStatusRequest
loop AuthStatusRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthStatusRequest"
  buildMessage :: AuthStatusRequest -> Builder
buildMessage
    = \ AuthStatusRequest
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet AuthStatusRequest AuthStatusRequest FieldSet FieldSet
-> AuthStatusRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthStatusRequest AuthStatusRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthStatusRequest FieldSet
Data.ProtoLens.unknownFields AuthStatusRequest
_x)
instance Control.DeepSeq.NFData AuthStatusRequest where
  rnf :: AuthStatusRequest -> ()
rnf
    = \ AuthStatusRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthStatusRequest -> FieldSet
_AuthStatusRequest'_unknownFields AuthStatusRequest
x__) ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthStatusResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthStatusResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.enabled' @:: Lens' AuthStatusResponse Prelude.Bool@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.authRevision' @:: Lens' AuthStatusResponse Data.Word.Word64@ -}
data AuthStatusResponse
  = AuthStatusResponse'_constructor {AuthStatusResponse -> Maybe ResponseHeader
_AuthStatusResponse'header :: !(Prelude.Maybe ResponseHeader),
                                     AuthStatusResponse -> Bool
_AuthStatusResponse'enabled :: !Prelude.Bool,
                                     AuthStatusResponse -> Word64
_AuthStatusResponse'authRevision :: !Data.Word.Word64,
                                     AuthStatusResponse -> FieldSet
_AuthStatusResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthStatusResponse -> AuthStatusResponse -> Bool
(AuthStatusResponse -> AuthStatusResponse -> Bool)
-> (AuthStatusResponse -> AuthStatusResponse -> Bool)
-> Eq AuthStatusResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthStatusResponse -> AuthStatusResponse -> Bool
== :: AuthStatusResponse -> AuthStatusResponse -> Bool
$c/= :: AuthStatusResponse -> AuthStatusResponse -> Bool
/= :: AuthStatusResponse -> AuthStatusResponse -> Bool
Prelude.Eq, Eq AuthStatusResponse
Eq AuthStatusResponse =>
(AuthStatusResponse -> AuthStatusResponse -> Ordering)
-> (AuthStatusResponse -> AuthStatusResponse -> Bool)
-> (AuthStatusResponse -> AuthStatusResponse -> Bool)
-> (AuthStatusResponse -> AuthStatusResponse -> Bool)
-> (AuthStatusResponse -> AuthStatusResponse -> Bool)
-> (AuthStatusResponse -> AuthStatusResponse -> AuthStatusResponse)
-> (AuthStatusResponse -> AuthStatusResponse -> AuthStatusResponse)
-> Ord AuthStatusResponse
AuthStatusResponse -> AuthStatusResponse -> Bool
AuthStatusResponse -> AuthStatusResponse -> Ordering
AuthStatusResponse -> AuthStatusResponse -> AuthStatusResponse
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 :: AuthStatusResponse -> AuthStatusResponse -> Ordering
compare :: AuthStatusResponse -> AuthStatusResponse -> Ordering
$c< :: AuthStatusResponse -> AuthStatusResponse -> Bool
< :: AuthStatusResponse -> AuthStatusResponse -> Bool
$c<= :: AuthStatusResponse -> AuthStatusResponse -> Bool
<= :: AuthStatusResponse -> AuthStatusResponse -> Bool
$c> :: AuthStatusResponse -> AuthStatusResponse -> Bool
> :: AuthStatusResponse -> AuthStatusResponse -> Bool
$c>= :: AuthStatusResponse -> AuthStatusResponse -> Bool
>= :: AuthStatusResponse -> AuthStatusResponse -> Bool
$cmax :: AuthStatusResponse -> AuthStatusResponse -> AuthStatusResponse
max :: AuthStatusResponse -> AuthStatusResponse -> AuthStatusResponse
$cmin :: AuthStatusResponse -> AuthStatusResponse -> AuthStatusResponse
min :: AuthStatusResponse -> AuthStatusResponse -> AuthStatusResponse
Prelude.Ord)
instance Prelude.Show AuthStatusResponse where
  showsPrec :: Int -> AuthStatusResponse -> ShowS
showsPrec Int
_ AuthStatusResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthStatusResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthStatusResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthStatusResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthStatusResponse
-> f AuthStatusResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthStatusResponse -> f AuthStatusResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthStatusResponse
-> f AuthStatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthStatusResponse -> Maybe ResponseHeader)
-> (AuthStatusResponse
    -> Maybe ResponseHeader -> AuthStatusResponse)
-> Lens
     AuthStatusResponse
     AuthStatusResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthStatusResponse -> Maybe ResponseHeader
_AuthStatusResponse'header
           (\ AuthStatusResponse
x__ Maybe ResponseHeader
y__ -> AuthStatusResponse
x__ {_AuthStatusResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthStatusResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthStatusResponse
-> f AuthStatusResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthStatusResponse -> f AuthStatusResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthStatusResponse
-> f AuthStatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthStatusResponse -> Maybe ResponseHeader)
-> (AuthStatusResponse
    -> Maybe ResponseHeader -> AuthStatusResponse)
-> Lens
     AuthStatusResponse
     AuthStatusResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthStatusResponse -> Maybe ResponseHeader
_AuthStatusResponse'header
           (\ AuthStatusResponse
x__ Maybe ResponseHeader
y__ -> AuthStatusResponse
x__ {_AuthStatusResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthStatusResponse "enabled" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "enabled"
-> (Bool -> f Bool) -> AuthStatusResponse -> f AuthStatusResponse
fieldOf Proxy# "enabled"
_
    = ((Bool -> f Bool) -> AuthStatusResponse -> f AuthStatusResponse)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> AuthStatusResponse
-> f AuthStatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthStatusResponse -> Bool)
-> (AuthStatusResponse -> Bool -> AuthStatusResponse)
-> Lens AuthStatusResponse AuthStatusResponse Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthStatusResponse -> Bool
_AuthStatusResponse'enabled
           (\ AuthStatusResponse
x__ Bool
y__ -> AuthStatusResponse
x__ {_AuthStatusResponse'enabled = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthStatusResponse "authRevision" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "authRevision"
-> (Word64 -> f Word64)
-> AuthStatusResponse
-> f AuthStatusResponse
fieldOf Proxy# "authRevision"
_
    = ((Word64 -> f Word64)
 -> AuthStatusResponse -> f AuthStatusResponse)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> AuthStatusResponse
-> f AuthStatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthStatusResponse -> Word64)
-> (AuthStatusResponse -> Word64 -> AuthStatusResponse)
-> Lens AuthStatusResponse AuthStatusResponse Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthStatusResponse -> Word64
_AuthStatusResponse'authRevision
           (\ AuthStatusResponse
x__ Word64
y__ -> AuthStatusResponse
x__ {_AuthStatusResponse'authRevision = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthStatusResponse where
  messageName :: Proxy AuthStatusResponse -> Text
messageName Proxy AuthStatusResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthStatusResponse"
  packedMessageDescriptor :: Proxy AuthStatusResponse -> ByteString
packedMessageDescriptor Proxy AuthStatusResponse
_
    = ByteString
"\n\
      \\DC2AuthStatusResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\CAN\n\
      \\aenabled\CAN\STX \SOH(\bR\aenabled\DC2\"\n\
      \\fauthRevision\CAN\ETX \SOH(\EOTR\fauthRevision:\a\130\181\CAN\ETX3.5"
  packedFileDescriptor :: Proxy AuthStatusResponse -> ByteString
packedFileDescriptor Proxy AuthStatusResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthStatusResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthStatusResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthStatusResponse ResponseHeader
-> FieldDescriptor AuthStatusResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthStatusResponse
  AuthStatusResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthStatusResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthStatusResponse
        enabled__field_descriptor :: FieldDescriptor AuthStatusResponse
enabled__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor AuthStatusResponse Bool
-> FieldDescriptor AuthStatusResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"enabled"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens AuthStatusResponse AuthStatusResponse Bool Bool
-> FieldAccessor AuthStatusResponse Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"enabled")) ::
              Data.ProtoLens.FieldDescriptor AuthStatusResponse
        authRevision__field_descriptor :: FieldDescriptor AuthStatusResponse
authRevision__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor AuthStatusResponse Word64
-> FieldDescriptor AuthStatusResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"authRevision"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens AuthStatusResponse AuthStatusResponse Word64 Word64
-> FieldAccessor AuthStatusResponse Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"authRevision")) ::
              Data.ProtoLens.FieldDescriptor AuthStatusResponse
      in
        [(Tag, FieldDescriptor AuthStatusResponse)]
-> Map Tag (FieldDescriptor AuthStatusResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthStatusResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AuthStatusResponse
enabled__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor AuthStatusResponse
authRevision__field_descriptor)]
  unknownFields :: Lens' AuthStatusResponse FieldSet
unknownFields
    = (AuthStatusResponse -> FieldSet)
-> (AuthStatusResponse -> FieldSet -> AuthStatusResponse)
-> Lens' AuthStatusResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthStatusResponse -> FieldSet
_AuthStatusResponse'_unknownFields
        (\ AuthStatusResponse
x__ FieldSet
y__ -> AuthStatusResponse
x__ {_AuthStatusResponse'_unknownFields = y__})
  defMessage :: AuthStatusResponse
defMessage
    = AuthStatusResponse'_constructor
        {_AuthStatusResponse'header :: Maybe ResponseHeader
_AuthStatusResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthStatusResponse'enabled :: Bool
_AuthStatusResponse'enabled = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthStatusResponse'authRevision :: Word64
_AuthStatusResponse'authRevision = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthStatusResponse'_unknownFields :: FieldSet
_AuthStatusResponse'_unknownFields = []}
  parseMessage :: Parser AuthStatusResponse
parseMessage
    = let
        loop ::
          AuthStatusResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthStatusResponse
        loop :: AuthStatusResponse -> Parser AuthStatusResponse
loop AuthStatusResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                        Word64
16
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"enabled"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"enabled") y x)
                        Word64
24
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"authRevision"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"authRevision") 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 AuthStatusResponse -> String -> Parser AuthStatusResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthStatusResponse -> Parser AuthStatusResponse
loop AuthStatusResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthStatusResponse"
  buildMessage :: AuthStatusResponse -> Builder
buildMessage
    = \ AuthStatusResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthStatusResponse
  AuthStatusResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthStatusResponse -> Maybe ResponseHeader
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'header") AuthStatusResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Bool
_v = FoldLike Bool AuthStatusResponse AuthStatusResponse Bool Bool
-> AuthStatusResponse -> Bool
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 @"enabled") AuthStatusResponse
_x
                 in
                   if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                            Bool
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Word64
_v
                        = FoldLike Word64 AuthStatusResponse AuthStatusResponse Word64 Word64
-> AuthStatusResponse -> Word64
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 @"authRevision") AuthStatusResponse
_x
                    in
                      if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet AuthStatusResponse AuthStatusResponse FieldSet FieldSet
-> AuthStatusResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthStatusResponse AuthStatusResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthStatusResponse FieldSet
Data.ProtoLens.unknownFields AuthStatusResponse
_x))))
instance Control.DeepSeq.NFData AuthStatusResponse where
  rnf :: AuthStatusResponse -> ()
rnf
    = \ AuthStatusResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthStatusResponse -> FieldSet
_AuthStatusResponse'_unknownFields AuthStatusResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthStatusResponse -> Maybe ResponseHeader
_AuthStatusResponse'header AuthStatusResponse
x__)
                (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AuthStatusResponse -> Bool
_AuthStatusResponse'enabled AuthStatusResponse
x__)
                   (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (AuthStatusResponse -> Word64
_AuthStatusResponse'authRevision AuthStatusResponse
x__) ())))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthUserAddRequest Data.Text.Text@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.password' @:: Lens' AuthUserAddRequest Data.Text.Text@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.options' @:: Lens' AuthUserAddRequest Proto.Etcd.Api.Authpb.Auth.UserAddOptions@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'options' @:: Lens' AuthUserAddRequest (Prelude.Maybe Proto.Etcd.Api.Authpb.Auth.UserAddOptions)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.hashedPassword' @:: Lens' AuthUserAddRequest Data.Text.Text@ -}
data AuthUserAddRequest
  = AuthUserAddRequest'_constructor {AuthUserAddRequest -> Text
_AuthUserAddRequest'name :: !Data.Text.Text,
                                     AuthUserAddRequest -> Text
_AuthUserAddRequest'password :: !Data.Text.Text,
                                     AuthUserAddRequest -> Maybe UserAddOptions
_AuthUserAddRequest'options :: !(Prelude.Maybe Proto.Etcd.Api.Authpb.Auth.UserAddOptions),
                                     AuthUserAddRequest -> Text
_AuthUserAddRequest'hashedPassword :: !Data.Text.Text,
                                     AuthUserAddRequest -> FieldSet
_AuthUserAddRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthUserAddRequest -> AuthUserAddRequest -> Bool
(AuthUserAddRequest -> AuthUserAddRequest -> Bool)
-> (AuthUserAddRequest -> AuthUserAddRequest -> Bool)
-> Eq AuthUserAddRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthUserAddRequest -> AuthUserAddRequest -> Bool
== :: AuthUserAddRequest -> AuthUserAddRequest -> Bool
$c/= :: AuthUserAddRequest -> AuthUserAddRequest -> Bool
/= :: AuthUserAddRequest -> AuthUserAddRequest -> Bool
Prelude.Eq, Eq AuthUserAddRequest
Eq AuthUserAddRequest =>
(AuthUserAddRequest -> AuthUserAddRequest -> Ordering)
-> (AuthUserAddRequest -> AuthUserAddRequest -> Bool)
-> (AuthUserAddRequest -> AuthUserAddRequest -> Bool)
-> (AuthUserAddRequest -> AuthUserAddRequest -> Bool)
-> (AuthUserAddRequest -> AuthUserAddRequest -> Bool)
-> (AuthUserAddRequest -> AuthUserAddRequest -> AuthUserAddRequest)
-> (AuthUserAddRequest -> AuthUserAddRequest -> AuthUserAddRequest)
-> Ord AuthUserAddRequest
AuthUserAddRequest -> AuthUserAddRequest -> Bool
AuthUserAddRequest -> AuthUserAddRequest -> Ordering
AuthUserAddRequest -> AuthUserAddRequest -> AuthUserAddRequest
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 :: AuthUserAddRequest -> AuthUserAddRequest -> Ordering
compare :: AuthUserAddRequest -> AuthUserAddRequest -> Ordering
$c< :: AuthUserAddRequest -> AuthUserAddRequest -> Bool
< :: AuthUserAddRequest -> AuthUserAddRequest -> Bool
$c<= :: AuthUserAddRequest -> AuthUserAddRequest -> Bool
<= :: AuthUserAddRequest -> AuthUserAddRequest -> Bool
$c> :: AuthUserAddRequest -> AuthUserAddRequest -> Bool
> :: AuthUserAddRequest -> AuthUserAddRequest -> Bool
$c>= :: AuthUserAddRequest -> AuthUserAddRequest -> Bool
>= :: AuthUserAddRequest -> AuthUserAddRequest -> Bool
$cmax :: AuthUserAddRequest -> AuthUserAddRequest -> AuthUserAddRequest
max :: AuthUserAddRequest -> AuthUserAddRequest -> AuthUserAddRequest
$cmin :: AuthUserAddRequest -> AuthUserAddRequest -> AuthUserAddRequest
min :: AuthUserAddRequest -> AuthUserAddRequest -> AuthUserAddRequest
Prelude.Ord)
instance Prelude.Show AuthUserAddRequest where
  showsPrec :: Int -> AuthUserAddRequest -> ShowS
showsPrec Int
_ AuthUserAddRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthUserAddRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthUserAddRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthUserAddRequest "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name"
-> (Text -> f Text) -> AuthUserAddRequest -> f AuthUserAddRequest
fieldOf Proxy# "name"
_
    = ((Text -> f Text) -> AuthUserAddRequest -> f AuthUserAddRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthUserAddRequest
-> f AuthUserAddRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserAddRequest -> Text)
-> (AuthUserAddRequest -> Text -> AuthUserAddRequest)
-> Lens AuthUserAddRequest AuthUserAddRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserAddRequest -> Text
_AuthUserAddRequest'name
           (\ AuthUserAddRequest
x__ Text
y__ -> AuthUserAddRequest
x__ {_AuthUserAddRequest'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthUserAddRequest "password" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "password"
-> (Text -> f Text) -> AuthUserAddRequest -> f AuthUserAddRequest
fieldOf Proxy# "password"
_
    = ((Text -> f Text) -> AuthUserAddRequest -> f AuthUserAddRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthUserAddRequest
-> f AuthUserAddRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserAddRequest -> Text)
-> (AuthUserAddRequest -> Text -> AuthUserAddRequest)
-> Lens AuthUserAddRequest AuthUserAddRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserAddRequest -> Text
_AuthUserAddRequest'password
           (\ AuthUserAddRequest
x__ Text
y__ -> AuthUserAddRequest
x__ {_AuthUserAddRequest'password = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthUserAddRequest "options" Proto.Etcd.Api.Authpb.Auth.UserAddOptions where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "options"
-> (UserAddOptions -> f UserAddOptions)
-> AuthUserAddRequest
-> f AuthUserAddRequest
fieldOf Proxy# "options"
_
    = ((Maybe UserAddOptions -> f (Maybe UserAddOptions))
 -> AuthUserAddRequest -> f AuthUserAddRequest)
-> ((UserAddOptions -> f UserAddOptions)
    -> Maybe UserAddOptions -> f (Maybe UserAddOptions))
-> (UserAddOptions -> f UserAddOptions)
-> AuthUserAddRequest
-> f AuthUserAddRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserAddRequest -> Maybe UserAddOptions)
-> (AuthUserAddRequest
    -> Maybe UserAddOptions -> AuthUserAddRequest)
-> Lens
     AuthUserAddRequest
     AuthUserAddRequest
     (Maybe UserAddOptions)
     (Maybe UserAddOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserAddRequest -> Maybe UserAddOptions
_AuthUserAddRequest'options
           (\ AuthUserAddRequest
x__ Maybe UserAddOptions
y__ -> AuthUserAddRequest
x__ {_AuthUserAddRequest'options = y__}))
        (UserAddOptions -> Lens' (Maybe UserAddOptions) UserAddOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens UserAddOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthUserAddRequest "maybe'options" (Prelude.Maybe Proto.Etcd.Api.Authpb.Auth.UserAddOptions) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'options"
-> (Maybe UserAddOptions -> f (Maybe UserAddOptions))
-> AuthUserAddRequest
-> f AuthUserAddRequest
fieldOf Proxy# "maybe'options"
_
    = ((Maybe UserAddOptions -> f (Maybe UserAddOptions))
 -> AuthUserAddRequest -> f AuthUserAddRequest)
-> ((Maybe UserAddOptions -> f (Maybe UserAddOptions))
    -> Maybe UserAddOptions -> f (Maybe UserAddOptions))
-> (Maybe UserAddOptions -> f (Maybe UserAddOptions))
-> AuthUserAddRequest
-> f AuthUserAddRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserAddRequest -> Maybe UserAddOptions)
-> (AuthUserAddRequest
    -> Maybe UserAddOptions -> AuthUserAddRequest)
-> Lens
     AuthUserAddRequest
     AuthUserAddRequest
     (Maybe UserAddOptions)
     (Maybe UserAddOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserAddRequest -> Maybe UserAddOptions
_AuthUserAddRequest'options
           (\ AuthUserAddRequest
x__ Maybe UserAddOptions
y__ -> AuthUserAddRequest
x__ {_AuthUserAddRequest'options = y__}))
        (Maybe UserAddOptions -> f (Maybe UserAddOptions))
-> Maybe UserAddOptions -> f (Maybe UserAddOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthUserAddRequest "hashedPassword" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hashedPassword"
-> (Text -> f Text) -> AuthUserAddRequest -> f AuthUserAddRequest
fieldOf Proxy# "hashedPassword"
_
    = ((Text -> f Text) -> AuthUserAddRequest -> f AuthUserAddRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthUserAddRequest
-> f AuthUserAddRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserAddRequest -> Text)
-> (AuthUserAddRequest -> Text -> AuthUserAddRequest)
-> Lens AuthUserAddRequest AuthUserAddRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserAddRequest -> Text
_AuthUserAddRequest'hashedPassword
           (\ AuthUserAddRequest
x__ Text
y__ -> AuthUserAddRequest
x__ {_AuthUserAddRequest'hashedPassword = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthUserAddRequest where
  messageName :: Proxy AuthUserAddRequest -> Text
messageName Proxy AuthUserAddRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthUserAddRequest"
  packedMessageDescriptor :: Proxy AuthUserAddRequest -> ByteString
packedMessageDescriptor Proxy AuthUserAddRequest
_
    = ByteString
"\n\
      \\DC2AuthUserAddRequest\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\SUB\n\
      \\bpassword\CAN\STX \SOH(\tR\bpassword\DC29\n\
      \\aoptions\CAN\ETX \SOH(\v2\SYN.authpb.UserAddOptionsR\aoptionsB\a\138\181\CAN\ETX3.4\DC2/\n\
      \\SOhashedPassword\CAN\EOT \SOH(\tR\SOhashedPasswordB\a\138\181\CAN\ETX3.5:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthUserAddRequest -> ByteString
packedFileDescriptor Proxy AuthUserAddRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthUserAddRequest)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor AuthUserAddRequest
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthUserAddRequest Text
-> FieldDescriptor AuthUserAddRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AuthUserAddRequest AuthUserAddRequest Text Text
-> FieldAccessor AuthUserAddRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"name")) ::
              Data.ProtoLens.FieldDescriptor AuthUserAddRequest
        password__field_descriptor :: FieldDescriptor AuthUserAddRequest
password__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthUserAddRequest Text
-> FieldDescriptor AuthUserAddRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"password"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AuthUserAddRequest AuthUserAddRequest Text Text
-> FieldAccessor AuthUserAddRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"password")) ::
              Data.ProtoLens.FieldDescriptor AuthUserAddRequest
        options__field_descriptor :: FieldDescriptor AuthUserAddRequest
options__field_descriptor
          = String
-> FieldTypeDescriptor UserAddOptions
-> FieldAccessor AuthUserAddRequest UserAddOptions
-> FieldDescriptor AuthUserAddRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"options"
              (MessageOrGroup -> FieldTypeDescriptor UserAddOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Etcd.Api.Authpb.Auth.UserAddOptions)
              (Lens
  AuthUserAddRequest
  AuthUserAddRequest
  (Maybe UserAddOptions)
  (Maybe UserAddOptions)
-> FieldAccessor AuthUserAddRequest UserAddOptions
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'options")) ::
              Data.ProtoLens.FieldDescriptor AuthUserAddRequest
        hashedPassword__field_descriptor :: FieldDescriptor AuthUserAddRequest
hashedPassword__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthUserAddRequest Text
-> FieldDescriptor AuthUserAddRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"hashedPassword"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AuthUserAddRequest AuthUserAddRequest Text Text
-> FieldAccessor AuthUserAddRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"hashedPassword")) ::
              Data.ProtoLens.FieldDescriptor AuthUserAddRequest
      in
        [(Tag, FieldDescriptor AuthUserAddRequest)]
-> Map Tag (FieldDescriptor AuthUserAddRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthUserAddRequest
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AuthUserAddRequest
password__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor AuthUserAddRequest
options__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor AuthUserAddRequest
hashedPassword__field_descriptor)]
  unknownFields :: Lens' AuthUserAddRequest FieldSet
unknownFields
    = (AuthUserAddRequest -> FieldSet)
-> (AuthUserAddRequest -> FieldSet -> AuthUserAddRequest)
-> Lens' AuthUserAddRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthUserAddRequest -> FieldSet
_AuthUserAddRequest'_unknownFields
        (\ AuthUserAddRequest
x__ FieldSet
y__ -> AuthUserAddRequest
x__ {_AuthUserAddRequest'_unknownFields = y__})
  defMessage :: AuthUserAddRequest
defMessage
    = AuthUserAddRequest'_constructor
        {_AuthUserAddRequest'name :: Text
_AuthUserAddRequest'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthUserAddRequest'password :: Text
_AuthUserAddRequest'password = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthUserAddRequest'options :: Maybe UserAddOptions
_AuthUserAddRequest'options = Maybe UserAddOptions
forall a. Maybe a
Prelude.Nothing,
         _AuthUserAddRequest'hashedPassword :: Text
_AuthUserAddRequest'hashedPassword = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthUserAddRequest'_unknownFields :: FieldSet
_AuthUserAddRequest'_unknownFields = []}
  parseMessage :: Parser AuthUserAddRequest
parseMessage
    = let
        loop ::
          AuthUserAddRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthUserAddRequest
        loop :: AuthUserAddRequest -> Parser AuthUserAddRequest
loop AuthUserAddRequest
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 Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"password"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"password") y x)
                        Word64
26
                          -> do y <- Parser UserAddOptions -> String -> Parser UserAddOptions
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
"options"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"options") y x)
                        Word64
34
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"hashedPassword"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"hashedPassword") 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 AuthUserAddRequest -> String -> Parser AuthUserAddRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthUserAddRequest -> Parser AuthUserAddRequest
loop AuthUserAddRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthUserAddRequest"
  buildMessage :: AuthUserAddRequest -> Builder
buildMessage
    = \ AuthUserAddRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text AuthUserAddRequest AuthUserAddRequest Text Text
-> AuthUserAddRequest -> Text
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 @"name") AuthUserAddRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> Builder) -> (Text -> ByteString) -> Text -> 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike Text AuthUserAddRequest AuthUserAddRequest Text Text
-> AuthUserAddRequest -> Text
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 @"password") AuthUserAddRequest
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe UserAddOptions)
  AuthUserAddRequest
  AuthUserAddRequest
  (Maybe UserAddOptions)
  (Maybe UserAddOptions)
-> AuthUserAddRequest -> Maybe UserAddOptions
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'options") AuthUserAddRequest
_x
                    of
                      Maybe UserAddOptions
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just UserAddOptions
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                             ((ByteString -> Builder)
-> (UserAddOptions -> ByteString) -> UserAddOptions -> 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))
                                UserAddOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage UserAddOptions
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (let
                         _v :: Text
_v
                           = FoldLike Text AuthUserAddRequest AuthUserAddRequest Text Text
-> AuthUserAddRequest -> Text
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 @"hashedPassword") AuthUserAddRequest
_x
                       in
                         if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
34)
                               ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                                  Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike
  FieldSet AuthUserAddRequest AuthUserAddRequest FieldSet FieldSet
-> AuthUserAddRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthUserAddRequest AuthUserAddRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthUserAddRequest FieldSet
Data.ProtoLens.unknownFields AuthUserAddRequest
_x)))))
instance Control.DeepSeq.NFData AuthUserAddRequest where
  rnf :: AuthUserAddRequest -> ()
rnf
    = \ AuthUserAddRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthUserAddRequest -> FieldSet
_AuthUserAddRequest'_unknownFields AuthUserAddRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthUserAddRequest -> Text
_AuthUserAddRequest'name AuthUserAddRequest
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AuthUserAddRequest -> Text
_AuthUserAddRequest'password AuthUserAddRequest
x__)
                   (Maybe UserAddOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (AuthUserAddRequest -> Maybe UserAddOptions
_AuthUserAddRequest'options AuthUserAddRequest
x__)
                      (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (AuthUserAddRequest -> Text
_AuthUserAddRequest'hashedPassword AuthUserAddRequest
x__) ()))))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthUserAddResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthUserAddResponse (Prelude.Maybe ResponseHeader)@ -}
data AuthUserAddResponse
  = AuthUserAddResponse'_constructor {AuthUserAddResponse -> Maybe ResponseHeader
_AuthUserAddResponse'header :: !(Prelude.Maybe ResponseHeader),
                                      AuthUserAddResponse -> FieldSet
_AuthUserAddResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthUserAddResponse -> AuthUserAddResponse -> Bool
(AuthUserAddResponse -> AuthUserAddResponse -> Bool)
-> (AuthUserAddResponse -> AuthUserAddResponse -> Bool)
-> Eq AuthUserAddResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthUserAddResponse -> AuthUserAddResponse -> Bool
== :: AuthUserAddResponse -> AuthUserAddResponse -> Bool
$c/= :: AuthUserAddResponse -> AuthUserAddResponse -> Bool
/= :: AuthUserAddResponse -> AuthUserAddResponse -> Bool
Prelude.Eq, Eq AuthUserAddResponse
Eq AuthUserAddResponse =>
(AuthUserAddResponse -> AuthUserAddResponse -> Ordering)
-> (AuthUserAddResponse -> AuthUserAddResponse -> Bool)
-> (AuthUserAddResponse -> AuthUserAddResponse -> Bool)
-> (AuthUserAddResponse -> AuthUserAddResponse -> Bool)
-> (AuthUserAddResponse -> AuthUserAddResponse -> Bool)
-> (AuthUserAddResponse
    -> AuthUserAddResponse -> AuthUserAddResponse)
-> (AuthUserAddResponse
    -> AuthUserAddResponse -> AuthUserAddResponse)
-> Ord AuthUserAddResponse
AuthUserAddResponse -> AuthUserAddResponse -> Bool
AuthUserAddResponse -> AuthUserAddResponse -> Ordering
AuthUserAddResponse -> AuthUserAddResponse -> AuthUserAddResponse
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 :: AuthUserAddResponse -> AuthUserAddResponse -> Ordering
compare :: AuthUserAddResponse -> AuthUserAddResponse -> Ordering
$c< :: AuthUserAddResponse -> AuthUserAddResponse -> Bool
< :: AuthUserAddResponse -> AuthUserAddResponse -> Bool
$c<= :: AuthUserAddResponse -> AuthUserAddResponse -> Bool
<= :: AuthUserAddResponse -> AuthUserAddResponse -> Bool
$c> :: AuthUserAddResponse -> AuthUserAddResponse -> Bool
> :: AuthUserAddResponse -> AuthUserAddResponse -> Bool
$c>= :: AuthUserAddResponse -> AuthUserAddResponse -> Bool
>= :: AuthUserAddResponse -> AuthUserAddResponse -> Bool
$cmax :: AuthUserAddResponse -> AuthUserAddResponse -> AuthUserAddResponse
max :: AuthUserAddResponse -> AuthUserAddResponse -> AuthUserAddResponse
$cmin :: AuthUserAddResponse -> AuthUserAddResponse -> AuthUserAddResponse
min :: AuthUserAddResponse -> AuthUserAddResponse -> AuthUserAddResponse
Prelude.Ord)
instance Prelude.Show AuthUserAddResponse where
  showsPrec :: Int -> AuthUserAddResponse -> ShowS
showsPrec Int
_ AuthUserAddResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthUserAddResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthUserAddResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthUserAddResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthUserAddResponse
-> f AuthUserAddResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthUserAddResponse -> f AuthUserAddResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthUserAddResponse
-> f AuthUserAddResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserAddResponse -> Maybe ResponseHeader)
-> (AuthUserAddResponse
    -> Maybe ResponseHeader -> AuthUserAddResponse)
-> Lens
     AuthUserAddResponse
     AuthUserAddResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserAddResponse -> Maybe ResponseHeader
_AuthUserAddResponse'header
           (\ AuthUserAddResponse
x__ Maybe ResponseHeader
y__ -> AuthUserAddResponse
x__ {_AuthUserAddResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthUserAddResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthUserAddResponse
-> f AuthUserAddResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthUserAddResponse -> f AuthUserAddResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthUserAddResponse
-> f AuthUserAddResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserAddResponse -> Maybe ResponseHeader)
-> (AuthUserAddResponse
    -> Maybe ResponseHeader -> AuthUserAddResponse)
-> Lens
     AuthUserAddResponse
     AuthUserAddResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserAddResponse -> Maybe ResponseHeader
_AuthUserAddResponse'header
           (\ AuthUserAddResponse
x__ Maybe ResponseHeader
y__ -> AuthUserAddResponse
x__ {_AuthUserAddResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthUserAddResponse where
  messageName :: Proxy AuthUserAddResponse -> Text
messageName Proxy AuthUserAddResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthUserAddResponse"
  packedMessageDescriptor :: Proxy AuthUserAddResponse -> ByteString
packedMessageDescriptor Proxy AuthUserAddResponse
_
    = ByteString
"\n\
      \\DC3AuthUserAddResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthUserAddResponse -> ByteString
packedFileDescriptor Proxy AuthUserAddResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthUserAddResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthUserAddResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthUserAddResponse ResponseHeader
-> FieldDescriptor AuthUserAddResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthUserAddResponse
  AuthUserAddResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthUserAddResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthUserAddResponse
      in
        [(Tag, FieldDescriptor AuthUserAddResponse)]
-> Map Tag (FieldDescriptor AuthUserAddResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthUserAddResponse
header__field_descriptor)]
  unknownFields :: Lens' AuthUserAddResponse FieldSet
unknownFields
    = (AuthUserAddResponse -> FieldSet)
-> (AuthUserAddResponse -> FieldSet -> AuthUserAddResponse)
-> Lens' AuthUserAddResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthUserAddResponse -> FieldSet
_AuthUserAddResponse'_unknownFields
        (\ AuthUserAddResponse
x__ FieldSet
y__ -> AuthUserAddResponse
x__ {_AuthUserAddResponse'_unknownFields = y__})
  defMessage :: AuthUserAddResponse
defMessage
    = AuthUserAddResponse'_constructor
        {_AuthUserAddResponse'header :: Maybe ResponseHeader
_AuthUserAddResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthUserAddResponse'_unknownFields :: FieldSet
_AuthUserAddResponse'_unknownFields = []}
  parseMessage :: Parser AuthUserAddResponse
parseMessage
    = let
        loop ::
          AuthUserAddResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthUserAddResponse
        loop :: AuthUserAddResponse -> Parser AuthUserAddResponse
loop AuthUserAddResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 AuthUserAddResponse -> String -> Parser AuthUserAddResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthUserAddResponse -> Parser AuthUserAddResponse
loop AuthUserAddResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthUserAddResponse"
  buildMessage :: AuthUserAddResponse -> Builder
buildMessage
    = \ AuthUserAddResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthUserAddResponse
  AuthUserAddResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthUserAddResponse -> Maybe ResponseHeader
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'header") AuthUserAddResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet AuthUserAddResponse AuthUserAddResponse FieldSet FieldSet
-> AuthUserAddResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthUserAddResponse AuthUserAddResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthUserAddResponse FieldSet
Data.ProtoLens.unknownFields AuthUserAddResponse
_x))
instance Control.DeepSeq.NFData AuthUserAddResponse where
  rnf :: AuthUserAddResponse -> ()
rnf
    = \ AuthUserAddResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthUserAddResponse -> FieldSet
_AuthUserAddResponse'_unknownFields AuthUserAddResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthUserAddResponse -> Maybe ResponseHeader
_AuthUserAddResponse'header AuthUserAddResponse
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthUserChangePasswordRequest Data.Text.Text@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.password' @:: Lens' AuthUserChangePasswordRequest Data.Text.Text@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.hashedPassword' @:: Lens' AuthUserChangePasswordRequest Data.Text.Text@ -}
data AuthUserChangePasswordRequest
  = AuthUserChangePasswordRequest'_constructor {AuthUserChangePasswordRequest -> Text
_AuthUserChangePasswordRequest'name :: !Data.Text.Text,
                                                AuthUserChangePasswordRequest -> Text
_AuthUserChangePasswordRequest'password :: !Data.Text.Text,
                                                AuthUserChangePasswordRequest -> Text
_AuthUserChangePasswordRequest'hashedPassword :: !Data.Text.Text,
                                                AuthUserChangePasswordRequest -> FieldSet
_AuthUserChangePasswordRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Bool
(AuthUserChangePasswordRequest
 -> AuthUserChangePasswordRequest -> Bool)
-> (AuthUserChangePasswordRequest
    -> AuthUserChangePasswordRequest -> Bool)
-> Eq AuthUserChangePasswordRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Bool
== :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Bool
$c/= :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Bool
/= :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Bool
Prelude.Eq, Eq AuthUserChangePasswordRequest
Eq AuthUserChangePasswordRequest =>
(AuthUserChangePasswordRequest
 -> AuthUserChangePasswordRequest -> Ordering)
-> (AuthUserChangePasswordRequest
    -> AuthUserChangePasswordRequest -> Bool)
-> (AuthUserChangePasswordRequest
    -> AuthUserChangePasswordRequest -> Bool)
-> (AuthUserChangePasswordRequest
    -> AuthUserChangePasswordRequest -> Bool)
-> (AuthUserChangePasswordRequest
    -> AuthUserChangePasswordRequest -> Bool)
-> (AuthUserChangePasswordRequest
    -> AuthUserChangePasswordRequest -> AuthUserChangePasswordRequest)
-> (AuthUserChangePasswordRequest
    -> AuthUserChangePasswordRequest -> AuthUserChangePasswordRequest)
-> Ord AuthUserChangePasswordRequest
AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Bool
AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Ordering
AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> AuthUserChangePasswordRequest
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 :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Ordering
compare :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Ordering
$c< :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Bool
< :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Bool
$c<= :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Bool
<= :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Bool
$c> :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Bool
> :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Bool
$c>= :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Bool
>= :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> Bool
$cmax :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> AuthUserChangePasswordRequest
max :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> AuthUserChangePasswordRequest
$cmin :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> AuthUserChangePasswordRequest
min :: AuthUserChangePasswordRequest
-> AuthUserChangePasswordRequest -> AuthUserChangePasswordRequest
Prelude.Ord)
instance Prelude.Show AuthUserChangePasswordRequest where
  showsPrec :: Int -> AuthUserChangePasswordRequest -> ShowS
showsPrec Int
_ AuthUserChangePasswordRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthUserChangePasswordRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthUserChangePasswordRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthUserChangePasswordRequest "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name"
-> (Text -> f Text)
-> AuthUserChangePasswordRequest
-> f AuthUserChangePasswordRequest
fieldOf Proxy# "name"
_
    = ((Text -> f Text)
 -> AuthUserChangePasswordRequest
 -> f AuthUserChangePasswordRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthUserChangePasswordRequest
-> f AuthUserChangePasswordRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserChangePasswordRequest -> Text)
-> (AuthUserChangePasswordRequest
    -> Text -> AuthUserChangePasswordRequest)
-> Lens
     AuthUserChangePasswordRequest
     AuthUserChangePasswordRequest
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserChangePasswordRequest -> Text
_AuthUserChangePasswordRequest'name
           (\ AuthUserChangePasswordRequest
x__ Text
y__ -> AuthUserChangePasswordRequest
x__ {_AuthUserChangePasswordRequest'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthUserChangePasswordRequest "password" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "password"
-> (Text -> f Text)
-> AuthUserChangePasswordRequest
-> f AuthUserChangePasswordRequest
fieldOf Proxy# "password"
_
    = ((Text -> f Text)
 -> AuthUserChangePasswordRequest
 -> f AuthUserChangePasswordRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthUserChangePasswordRequest
-> f AuthUserChangePasswordRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserChangePasswordRequest -> Text)
-> (AuthUserChangePasswordRequest
    -> Text -> AuthUserChangePasswordRequest)
-> Lens
     AuthUserChangePasswordRequest
     AuthUserChangePasswordRequest
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserChangePasswordRequest -> Text
_AuthUserChangePasswordRequest'password
           (\ AuthUserChangePasswordRequest
x__ Text
y__ -> AuthUserChangePasswordRequest
x__ {_AuthUserChangePasswordRequest'password = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthUserChangePasswordRequest "hashedPassword" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hashedPassword"
-> (Text -> f Text)
-> AuthUserChangePasswordRequest
-> f AuthUserChangePasswordRequest
fieldOf Proxy# "hashedPassword"
_
    = ((Text -> f Text)
 -> AuthUserChangePasswordRequest
 -> f AuthUserChangePasswordRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthUserChangePasswordRequest
-> f AuthUserChangePasswordRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserChangePasswordRequest -> Text)
-> (AuthUserChangePasswordRequest
    -> Text -> AuthUserChangePasswordRequest)
-> Lens
     AuthUserChangePasswordRequest
     AuthUserChangePasswordRequest
     Text
     Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserChangePasswordRequest -> Text
_AuthUserChangePasswordRequest'hashedPassword
           (\ AuthUserChangePasswordRequest
x__ Text
y__
              -> AuthUserChangePasswordRequest
x__ {_AuthUserChangePasswordRequest'hashedPassword = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthUserChangePasswordRequest where
  messageName :: Proxy AuthUserChangePasswordRequest -> Text
messageName Proxy AuthUserChangePasswordRequest
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.AuthUserChangePasswordRequest"
  packedMessageDescriptor :: Proxy AuthUserChangePasswordRequest -> ByteString
packedMessageDescriptor Proxy AuthUserChangePasswordRequest
_
    = ByteString
"\n\
      \\GSAuthUserChangePasswordRequest\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\SUB\n\
      \\bpassword\CAN\STX \SOH(\tR\bpassword\DC2/\n\
      \\SOhashedPassword\CAN\ETX \SOH(\tR\SOhashedPasswordB\a\138\181\CAN\ETX3.5:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthUserChangePasswordRequest -> ByteString
packedFileDescriptor Proxy AuthUserChangePasswordRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthUserChangePasswordRequest)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor AuthUserChangePasswordRequest
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthUserChangePasswordRequest Text
-> FieldDescriptor AuthUserChangePasswordRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     AuthUserChangePasswordRequest
     AuthUserChangePasswordRequest
     Text
     Text
-> FieldAccessor AuthUserChangePasswordRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"name")) ::
              Data.ProtoLens.FieldDescriptor AuthUserChangePasswordRequest
        password__field_descriptor :: FieldDescriptor AuthUserChangePasswordRequest
password__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthUserChangePasswordRequest Text
-> FieldDescriptor AuthUserChangePasswordRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"password"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     AuthUserChangePasswordRequest
     AuthUserChangePasswordRequest
     Text
     Text
-> FieldAccessor AuthUserChangePasswordRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"password")) ::
              Data.ProtoLens.FieldDescriptor AuthUserChangePasswordRequest
        hashedPassword__field_descriptor :: FieldDescriptor AuthUserChangePasswordRequest
hashedPassword__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthUserChangePasswordRequest Text
-> FieldDescriptor AuthUserChangePasswordRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"hashedPassword"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     AuthUserChangePasswordRequest
     AuthUserChangePasswordRequest
     Text
     Text
-> FieldAccessor AuthUserChangePasswordRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"hashedPassword")) ::
              Data.ProtoLens.FieldDescriptor AuthUserChangePasswordRequest
      in
        [(Tag, FieldDescriptor AuthUserChangePasswordRequest)]
-> Map Tag (FieldDescriptor AuthUserChangePasswordRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthUserChangePasswordRequest
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AuthUserChangePasswordRequest
password__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor AuthUserChangePasswordRequest
hashedPassword__field_descriptor)]
  unknownFields :: Lens' AuthUserChangePasswordRequest FieldSet
unknownFields
    = (AuthUserChangePasswordRequest -> FieldSet)
-> (AuthUserChangePasswordRequest
    -> FieldSet -> AuthUserChangePasswordRequest)
-> Lens' AuthUserChangePasswordRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthUserChangePasswordRequest -> FieldSet
_AuthUserChangePasswordRequest'_unknownFields
        (\ AuthUserChangePasswordRequest
x__ FieldSet
y__
           -> AuthUserChangePasswordRequest
x__ {_AuthUserChangePasswordRequest'_unknownFields = y__})
  defMessage :: AuthUserChangePasswordRequest
defMessage
    = AuthUserChangePasswordRequest'_constructor
        {_AuthUserChangePasswordRequest'name :: Text
_AuthUserChangePasswordRequest'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthUserChangePasswordRequest'password :: Text
_AuthUserChangePasswordRequest'password = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthUserChangePasswordRequest'hashedPassword :: Text
_AuthUserChangePasswordRequest'hashedPassword = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthUserChangePasswordRequest'_unknownFields :: FieldSet
_AuthUserChangePasswordRequest'_unknownFields = []}
  parseMessage :: Parser AuthUserChangePasswordRequest
parseMessage
    = let
        loop ::
          AuthUserChangePasswordRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthUserChangePasswordRequest
        loop :: AuthUserChangePasswordRequest
-> Parser AuthUserChangePasswordRequest
loop AuthUserChangePasswordRequest
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 Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"password"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"password") y x)
                        Word64
26
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"hashedPassword"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"hashedPassword") 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 AuthUserChangePasswordRequest
-> String -> Parser AuthUserChangePasswordRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthUserChangePasswordRequest
-> Parser AuthUserChangePasswordRequest
loop AuthUserChangePasswordRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthUserChangePasswordRequest"
  buildMessage :: AuthUserChangePasswordRequest -> Builder
buildMessage
    = \ AuthUserChangePasswordRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  AuthUserChangePasswordRequest
  AuthUserChangePasswordRequest
  Text
  Text
-> AuthUserChangePasswordRequest -> Text
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 @"name") AuthUserChangePasswordRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> Builder) -> (Text -> ByteString) -> Text -> 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike
  Text
  AuthUserChangePasswordRequest
  AuthUserChangePasswordRequest
  Text
  Text
-> AuthUserChangePasswordRequest -> Text
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 @"password") AuthUserChangePasswordRequest
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Text
_v
                        = FoldLike
  Text
  AuthUserChangePasswordRequest
  AuthUserChangePasswordRequest
  Text
  Text
-> AuthUserChangePasswordRequest -> Text
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 @"hashedPassword") AuthUserChangePasswordRequest
_x
                    in
                      if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
26)
                            ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                               Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  AuthUserChangePasswordRequest
  AuthUserChangePasswordRequest
  FieldSet
  FieldSet
-> AuthUserChangePasswordRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthUserChangePasswordRequest
  AuthUserChangePasswordRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthUserChangePasswordRequest FieldSet
Data.ProtoLens.unknownFields AuthUserChangePasswordRequest
_x))))
instance Control.DeepSeq.NFData AuthUserChangePasswordRequest where
  rnf :: AuthUserChangePasswordRequest -> ()
rnf
    = \ AuthUserChangePasswordRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthUserChangePasswordRequest -> FieldSet
_AuthUserChangePasswordRequest'_unknownFields AuthUserChangePasswordRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthUserChangePasswordRequest -> Text
_AuthUserChangePasswordRequest'name AuthUserChangePasswordRequest
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AuthUserChangePasswordRequest -> Text
_AuthUserChangePasswordRequest'password AuthUserChangePasswordRequest
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (AuthUserChangePasswordRequest -> Text
_AuthUserChangePasswordRequest'hashedPassword AuthUserChangePasswordRequest
x__) ())))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthUserChangePasswordResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthUserChangePasswordResponse (Prelude.Maybe ResponseHeader)@ -}
data AuthUserChangePasswordResponse
  = AuthUserChangePasswordResponse'_constructor {AuthUserChangePasswordResponse -> Maybe ResponseHeader
_AuthUserChangePasswordResponse'header :: !(Prelude.Maybe ResponseHeader),
                                                 AuthUserChangePasswordResponse -> FieldSet
_AuthUserChangePasswordResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Bool
(AuthUserChangePasswordResponse
 -> AuthUserChangePasswordResponse -> Bool)
-> (AuthUserChangePasswordResponse
    -> AuthUserChangePasswordResponse -> Bool)
-> Eq AuthUserChangePasswordResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Bool
== :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Bool
$c/= :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Bool
/= :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Bool
Prelude.Eq, Eq AuthUserChangePasswordResponse
Eq AuthUserChangePasswordResponse =>
(AuthUserChangePasswordResponse
 -> AuthUserChangePasswordResponse -> Ordering)
-> (AuthUserChangePasswordResponse
    -> AuthUserChangePasswordResponse -> Bool)
-> (AuthUserChangePasswordResponse
    -> AuthUserChangePasswordResponse -> Bool)
-> (AuthUserChangePasswordResponse
    -> AuthUserChangePasswordResponse -> Bool)
-> (AuthUserChangePasswordResponse
    -> AuthUserChangePasswordResponse -> Bool)
-> (AuthUserChangePasswordResponse
    -> AuthUserChangePasswordResponse
    -> AuthUserChangePasswordResponse)
-> (AuthUserChangePasswordResponse
    -> AuthUserChangePasswordResponse
    -> AuthUserChangePasswordResponse)
-> Ord AuthUserChangePasswordResponse
AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Bool
AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Ordering
AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> AuthUserChangePasswordResponse
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 :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Ordering
compare :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Ordering
$c< :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Bool
< :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Bool
$c<= :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Bool
<= :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Bool
$c> :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Bool
> :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Bool
$c>= :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Bool
>= :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> Bool
$cmax :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> AuthUserChangePasswordResponse
max :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> AuthUserChangePasswordResponse
$cmin :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> AuthUserChangePasswordResponse
min :: AuthUserChangePasswordResponse
-> AuthUserChangePasswordResponse -> AuthUserChangePasswordResponse
Prelude.Ord)
instance Prelude.Show AuthUserChangePasswordResponse where
  showsPrec :: Int -> AuthUserChangePasswordResponse -> ShowS
showsPrec Int
_ AuthUserChangePasswordResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthUserChangePasswordResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthUserChangePasswordResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthUserChangePasswordResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthUserChangePasswordResponse
-> f AuthUserChangePasswordResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthUserChangePasswordResponse
 -> f AuthUserChangePasswordResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthUserChangePasswordResponse
-> f AuthUserChangePasswordResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserChangePasswordResponse -> Maybe ResponseHeader)
-> (AuthUserChangePasswordResponse
    -> Maybe ResponseHeader -> AuthUserChangePasswordResponse)
-> Lens
     AuthUserChangePasswordResponse
     AuthUserChangePasswordResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserChangePasswordResponse -> Maybe ResponseHeader
_AuthUserChangePasswordResponse'header
           (\ AuthUserChangePasswordResponse
x__ Maybe ResponseHeader
y__ -> AuthUserChangePasswordResponse
x__ {_AuthUserChangePasswordResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthUserChangePasswordResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthUserChangePasswordResponse
-> f AuthUserChangePasswordResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthUserChangePasswordResponse
 -> f AuthUserChangePasswordResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthUserChangePasswordResponse
-> f AuthUserChangePasswordResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserChangePasswordResponse -> Maybe ResponseHeader)
-> (AuthUserChangePasswordResponse
    -> Maybe ResponseHeader -> AuthUserChangePasswordResponse)
-> Lens
     AuthUserChangePasswordResponse
     AuthUserChangePasswordResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserChangePasswordResponse -> Maybe ResponseHeader
_AuthUserChangePasswordResponse'header
           (\ AuthUserChangePasswordResponse
x__ Maybe ResponseHeader
y__ -> AuthUserChangePasswordResponse
x__ {_AuthUserChangePasswordResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthUserChangePasswordResponse where
  messageName :: Proxy AuthUserChangePasswordResponse -> Text
messageName Proxy AuthUserChangePasswordResponse
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.AuthUserChangePasswordResponse"
  packedMessageDescriptor :: Proxy AuthUserChangePasswordResponse -> ByteString
packedMessageDescriptor Proxy AuthUserChangePasswordResponse
_
    = ByteString
"\n\
      \\RSAuthUserChangePasswordResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthUserChangePasswordResponse -> ByteString
packedFileDescriptor Proxy AuthUserChangePasswordResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthUserChangePasswordResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthUserChangePasswordResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthUserChangePasswordResponse ResponseHeader
-> FieldDescriptor AuthUserChangePasswordResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthUserChangePasswordResponse
  AuthUserChangePasswordResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthUserChangePasswordResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthUserChangePasswordResponse
      in
        [(Tag, FieldDescriptor AuthUserChangePasswordResponse)]
-> Map Tag (FieldDescriptor AuthUserChangePasswordResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthUserChangePasswordResponse
header__field_descriptor)]
  unknownFields :: Lens' AuthUserChangePasswordResponse FieldSet
unknownFields
    = (AuthUserChangePasswordResponse -> FieldSet)
-> (AuthUserChangePasswordResponse
    -> FieldSet -> AuthUserChangePasswordResponse)
-> Lens' AuthUserChangePasswordResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthUserChangePasswordResponse -> FieldSet
_AuthUserChangePasswordResponse'_unknownFields
        (\ AuthUserChangePasswordResponse
x__ FieldSet
y__
           -> AuthUserChangePasswordResponse
x__ {_AuthUserChangePasswordResponse'_unknownFields = y__})
  defMessage :: AuthUserChangePasswordResponse
defMessage
    = AuthUserChangePasswordResponse'_constructor
        {_AuthUserChangePasswordResponse'header :: Maybe ResponseHeader
_AuthUserChangePasswordResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthUserChangePasswordResponse'_unknownFields :: FieldSet
_AuthUserChangePasswordResponse'_unknownFields = []}
  parseMessage :: Parser AuthUserChangePasswordResponse
parseMessage
    = let
        loop ::
          AuthUserChangePasswordResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthUserChangePasswordResponse
        loop :: AuthUserChangePasswordResponse
-> Parser AuthUserChangePasswordResponse
loop AuthUserChangePasswordResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 AuthUserChangePasswordResponse
-> String -> Parser AuthUserChangePasswordResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthUserChangePasswordResponse
-> Parser AuthUserChangePasswordResponse
loop AuthUserChangePasswordResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
          String
"AuthUserChangePasswordResponse"
  buildMessage :: AuthUserChangePasswordResponse -> Builder
buildMessage
    = \ AuthUserChangePasswordResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthUserChangePasswordResponse
  AuthUserChangePasswordResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthUserChangePasswordResponse -> Maybe ResponseHeader
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'header") AuthUserChangePasswordResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  AuthUserChangePasswordResponse
  AuthUserChangePasswordResponse
  FieldSet
  FieldSet
-> AuthUserChangePasswordResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthUserChangePasswordResponse
  AuthUserChangePasswordResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthUserChangePasswordResponse FieldSet
Data.ProtoLens.unknownFields AuthUserChangePasswordResponse
_x))
instance Control.DeepSeq.NFData AuthUserChangePasswordResponse where
  rnf :: AuthUserChangePasswordResponse -> ()
rnf
    = \ AuthUserChangePasswordResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthUserChangePasswordResponse -> FieldSet
_AuthUserChangePasswordResponse'_unknownFields AuthUserChangePasswordResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthUserChangePasswordResponse -> Maybe ResponseHeader
_AuthUserChangePasswordResponse'header AuthUserChangePasswordResponse
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthUserDeleteRequest Data.Text.Text@ -}
data AuthUserDeleteRequest
  = AuthUserDeleteRequest'_constructor {AuthUserDeleteRequest -> Text
_AuthUserDeleteRequest'name :: !Data.Text.Text,
                                        AuthUserDeleteRequest -> FieldSet
_AuthUserDeleteRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool
(AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool)
-> (AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool)
-> Eq AuthUserDeleteRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool
== :: AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool
$c/= :: AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool
/= :: AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool
Prelude.Eq, Eq AuthUserDeleteRequest
Eq AuthUserDeleteRequest =>
(AuthUserDeleteRequest -> AuthUserDeleteRequest -> Ordering)
-> (AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool)
-> (AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool)
-> (AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool)
-> (AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool)
-> (AuthUserDeleteRequest
    -> AuthUserDeleteRequest -> AuthUserDeleteRequest)
-> (AuthUserDeleteRequest
    -> AuthUserDeleteRequest -> AuthUserDeleteRequest)
-> Ord AuthUserDeleteRequest
AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool
AuthUserDeleteRequest -> AuthUserDeleteRequest -> Ordering
AuthUserDeleteRequest
-> AuthUserDeleteRequest -> AuthUserDeleteRequest
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 :: AuthUserDeleteRequest -> AuthUserDeleteRequest -> Ordering
compare :: AuthUserDeleteRequest -> AuthUserDeleteRequest -> Ordering
$c< :: AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool
< :: AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool
$c<= :: AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool
<= :: AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool
$c> :: AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool
> :: AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool
$c>= :: AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool
>= :: AuthUserDeleteRequest -> AuthUserDeleteRequest -> Bool
$cmax :: AuthUserDeleteRequest
-> AuthUserDeleteRequest -> AuthUserDeleteRequest
max :: AuthUserDeleteRequest
-> AuthUserDeleteRequest -> AuthUserDeleteRequest
$cmin :: AuthUserDeleteRequest
-> AuthUserDeleteRequest -> AuthUserDeleteRequest
min :: AuthUserDeleteRequest
-> AuthUserDeleteRequest -> AuthUserDeleteRequest
Prelude.Ord)
instance Prelude.Show AuthUserDeleteRequest where
  showsPrec :: Int -> AuthUserDeleteRequest -> ShowS
showsPrec Int
_ AuthUserDeleteRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthUserDeleteRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthUserDeleteRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthUserDeleteRequest "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name"
-> (Text -> f Text)
-> AuthUserDeleteRequest
-> f AuthUserDeleteRequest
fieldOf Proxy# "name"
_
    = ((Text -> f Text)
 -> AuthUserDeleteRequest -> f AuthUserDeleteRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthUserDeleteRequest
-> f AuthUserDeleteRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserDeleteRequest -> Text)
-> (AuthUserDeleteRequest -> Text -> AuthUserDeleteRequest)
-> Lens AuthUserDeleteRequest AuthUserDeleteRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserDeleteRequest -> Text
_AuthUserDeleteRequest'name
           (\ AuthUserDeleteRequest
x__ Text
y__ -> AuthUserDeleteRequest
x__ {_AuthUserDeleteRequest'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthUserDeleteRequest where
  messageName :: Proxy AuthUserDeleteRequest -> Text
messageName Proxy AuthUserDeleteRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthUserDeleteRequest"
  packedMessageDescriptor :: Proxy AuthUserDeleteRequest -> ByteString
packedMessageDescriptor Proxy AuthUserDeleteRequest
_
    = ByteString
"\n\
      \\NAKAuthUserDeleteRequest\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthUserDeleteRequest -> ByteString
packedFileDescriptor Proxy AuthUserDeleteRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthUserDeleteRequest)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor AuthUserDeleteRequest
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthUserDeleteRequest Text
-> FieldDescriptor AuthUserDeleteRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AuthUserDeleteRequest AuthUserDeleteRequest Text Text
-> FieldAccessor AuthUserDeleteRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"name")) ::
              Data.ProtoLens.FieldDescriptor AuthUserDeleteRequest
      in
        [(Tag, FieldDescriptor AuthUserDeleteRequest)]
-> Map Tag (FieldDescriptor AuthUserDeleteRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthUserDeleteRequest
name__field_descriptor)]
  unknownFields :: Lens' AuthUserDeleteRequest FieldSet
unknownFields
    = (AuthUserDeleteRequest -> FieldSet)
-> (AuthUserDeleteRequest -> FieldSet -> AuthUserDeleteRequest)
-> Lens' AuthUserDeleteRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthUserDeleteRequest -> FieldSet
_AuthUserDeleteRequest'_unknownFields
        (\ AuthUserDeleteRequest
x__ FieldSet
y__ -> AuthUserDeleteRequest
x__ {_AuthUserDeleteRequest'_unknownFields = y__})
  defMessage :: AuthUserDeleteRequest
defMessage
    = AuthUserDeleteRequest'_constructor
        {_AuthUserDeleteRequest'name :: Text
_AuthUserDeleteRequest'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthUserDeleteRequest'_unknownFields :: FieldSet
_AuthUserDeleteRequest'_unknownFields = []}
  parseMessage :: Parser AuthUserDeleteRequest
parseMessage
    = let
        loop ::
          AuthUserDeleteRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthUserDeleteRequest
        loop :: AuthUserDeleteRequest -> Parser AuthUserDeleteRequest
loop AuthUserDeleteRequest
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 Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") 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 AuthUserDeleteRequest
-> String -> Parser AuthUserDeleteRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthUserDeleteRequest -> Parser AuthUserDeleteRequest
loop AuthUserDeleteRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthUserDeleteRequest"
  buildMessage :: AuthUserDeleteRequest -> Builder
buildMessage
    = \ AuthUserDeleteRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text AuthUserDeleteRequest AuthUserDeleteRequest Text Text
-> AuthUserDeleteRequest -> Text
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 @"name") AuthUserDeleteRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> Builder) -> (Text -> ByteString) -> Text -> 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  AuthUserDeleteRequest
  AuthUserDeleteRequest
  FieldSet
  FieldSet
-> AuthUserDeleteRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthUserDeleteRequest
  AuthUserDeleteRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthUserDeleteRequest FieldSet
Data.ProtoLens.unknownFields AuthUserDeleteRequest
_x))
instance Control.DeepSeq.NFData AuthUserDeleteRequest where
  rnf :: AuthUserDeleteRequest -> ()
rnf
    = \ AuthUserDeleteRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthUserDeleteRequest -> FieldSet
_AuthUserDeleteRequest'_unknownFields AuthUserDeleteRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthUserDeleteRequest -> Text
_AuthUserDeleteRequest'name AuthUserDeleteRequest
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthUserDeleteResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthUserDeleteResponse (Prelude.Maybe ResponseHeader)@ -}
data AuthUserDeleteResponse
  = AuthUserDeleteResponse'_constructor {AuthUserDeleteResponse -> Maybe ResponseHeader
_AuthUserDeleteResponse'header :: !(Prelude.Maybe ResponseHeader),
                                         AuthUserDeleteResponse -> FieldSet
_AuthUserDeleteResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool
(AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool)
-> (AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool)
-> Eq AuthUserDeleteResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool
== :: AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool
$c/= :: AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool
/= :: AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool
Prelude.Eq, Eq AuthUserDeleteResponse
Eq AuthUserDeleteResponse =>
(AuthUserDeleteResponse -> AuthUserDeleteResponse -> Ordering)
-> (AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool)
-> (AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool)
-> (AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool)
-> (AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool)
-> (AuthUserDeleteResponse
    -> AuthUserDeleteResponse -> AuthUserDeleteResponse)
-> (AuthUserDeleteResponse
    -> AuthUserDeleteResponse -> AuthUserDeleteResponse)
-> Ord AuthUserDeleteResponse
AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool
AuthUserDeleteResponse -> AuthUserDeleteResponse -> Ordering
AuthUserDeleteResponse
-> AuthUserDeleteResponse -> AuthUserDeleteResponse
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 :: AuthUserDeleteResponse -> AuthUserDeleteResponse -> Ordering
compare :: AuthUserDeleteResponse -> AuthUserDeleteResponse -> Ordering
$c< :: AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool
< :: AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool
$c<= :: AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool
<= :: AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool
$c> :: AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool
> :: AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool
$c>= :: AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool
>= :: AuthUserDeleteResponse -> AuthUserDeleteResponse -> Bool
$cmax :: AuthUserDeleteResponse
-> AuthUserDeleteResponse -> AuthUserDeleteResponse
max :: AuthUserDeleteResponse
-> AuthUserDeleteResponse -> AuthUserDeleteResponse
$cmin :: AuthUserDeleteResponse
-> AuthUserDeleteResponse -> AuthUserDeleteResponse
min :: AuthUserDeleteResponse
-> AuthUserDeleteResponse -> AuthUserDeleteResponse
Prelude.Ord)
instance Prelude.Show AuthUserDeleteResponse where
  showsPrec :: Int -> AuthUserDeleteResponse -> ShowS
showsPrec Int
_ AuthUserDeleteResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthUserDeleteResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthUserDeleteResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthUserDeleteResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthUserDeleteResponse
-> f AuthUserDeleteResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthUserDeleteResponse -> f AuthUserDeleteResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthUserDeleteResponse
-> f AuthUserDeleteResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserDeleteResponse -> Maybe ResponseHeader)
-> (AuthUserDeleteResponse
    -> Maybe ResponseHeader -> AuthUserDeleteResponse)
-> Lens
     AuthUserDeleteResponse
     AuthUserDeleteResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserDeleteResponse -> Maybe ResponseHeader
_AuthUserDeleteResponse'header
           (\ AuthUserDeleteResponse
x__ Maybe ResponseHeader
y__ -> AuthUserDeleteResponse
x__ {_AuthUserDeleteResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthUserDeleteResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthUserDeleteResponse
-> f AuthUserDeleteResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthUserDeleteResponse -> f AuthUserDeleteResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthUserDeleteResponse
-> f AuthUserDeleteResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserDeleteResponse -> Maybe ResponseHeader)
-> (AuthUserDeleteResponse
    -> Maybe ResponseHeader -> AuthUserDeleteResponse)
-> Lens
     AuthUserDeleteResponse
     AuthUserDeleteResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserDeleteResponse -> Maybe ResponseHeader
_AuthUserDeleteResponse'header
           (\ AuthUserDeleteResponse
x__ Maybe ResponseHeader
y__ -> AuthUserDeleteResponse
x__ {_AuthUserDeleteResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthUserDeleteResponse where
  messageName :: Proxy AuthUserDeleteResponse -> Text
messageName Proxy AuthUserDeleteResponse
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.AuthUserDeleteResponse"
  packedMessageDescriptor :: Proxy AuthUserDeleteResponse -> ByteString
packedMessageDescriptor Proxy AuthUserDeleteResponse
_
    = ByteString
"\n\
      \\SYNAuthUserDeleteResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthUserDeleteResponse -> ByteString
packedFileDescriptor Proxy AuthUserDeleteResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthUserDeleteResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthUserDeleteResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthUserDeleteResponse ResponseHeader
-> FieldDescriptor AuthUserDeleteResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthUserDeleteResponse
  AuthUserDeleteResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthUserDeleteResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthUserDeleteResponse
      in
        [(Tag, FieldDescriptor AuthUserDeleteResponse)]
-> Map Tag (FieldDescriptor AuthUserDeleteResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthUserDeleteResponse
header__field_descriptor)]
  unknownFields :: Lens' AuthUserDeleteResponse FieldSet
unknownFields
    = (AuthUserDeleteResponse -> FieldSet)
-> (AuthUserDeleteResponse -> FieldSet -> AuthUserDeleteResponse)
-> Lens' AuthUserDeleteResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthUserDeleteResponse -> FieldSet
_AuthUserDeleteResponse'_unknownFields
        (\ AuthUserDeleteResponse
x__ FieldSet
y__ -> AuthUserDeleteResponse
x__ {_AuthUserDeleteResponse'_unknownFields = y__})
  defMessage :: AuthUserDeleteResponse
defMessage
    = AuthUserDeleteResponse'_constructor
        {_AuthUserDeleteResponse'header :: Maybe ResponseHeader
_AuthUserDeleteResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthUserDeleteResponse'_unknownFields :: FieldSet
_AuthUserDeleteResponse'_unknownFields = []}
  parseMessage :: Parser AuthUserDeleteResponse
parseMessage
    = let
        loop ::
          AuthUserDeleteResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthUserDeleteResponse
        loop :: AuthUserDeleteResponse -> Parser AuthUserDeleteResponse
loop AuthUserDeleteResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 AuthUserDeleteResponse
-> String -> Parser AuthUserDeleteResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthUserDeleteResponse -> Parser AuthUserDeleteResponse
loop AuthUserDeleteResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthUserDeleteResponse"
  buildMessage :: AuthUserDeleteResponse -> Builder
buildMessage
    = \ AuthUserDeleteResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthUserDeleteResponse
  AuthUserDeleteResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthUserDeleteResponse -> Maybe ResponseHeader
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'header") AuthUserDeleteResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  AuthUserDeleteResponse
  AuthUserDeleteResponse
  FieldSet
  FieldSet
-> AuthUserDeleteResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthUserDeleteResponse
  AuthUserDeleteResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthUserDeleteResponse FieldSet
Data.ProtoLens.unknownFields AuthUserDeleteResponse
_x))
instance Control.DeepSeq.NFData AuthUserDeleteResponse where
  rnf :: AuthUserDeleteResponse -> ()
rnf
    = \ AuthUserDeleteResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthUserDeleteResponse -> FieldSet
_AuthUserDeleteResponse'_unknownFields AuthUserDeleteResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthUserDeleteResponse -> Maybe ResponseHeader
_AuthUserDeleteResponse'header AuthUserDeleteResponse
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthUserGetRequest Data.Text.Text@ -}
data AuthUserGetRequest
  = AuthUserGetRequest'_constructor {AuthUserGetRequest -> Text
_AuthUserGetRequest'name :: !Data.Text.Text,
                                     AuthUserGetRequest -> FieldSet
_AuthUserGetRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthUserGetRequest -> AuthUserGetRequest -> Bool
(AuthUserGetRequest -> AuthUserGetRequest -> Bool)
-> (AuthUserGetRequest -> AuthUserGetRequest -> Bool)
-> Eq AuthUserGetRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthUserGetRequest -> AuthUserGetRequest -> Bool
== :: AuthUserGetRequest -> AuthUserGetRequest -> Bool
$c/= :: AuthUserGetRequest -> AuthUserGetRequest -> Bool
/= :: AuthUserGetRequest -> AuthUserGetRequest -> Bool
Prelude.Eq, Eq AuthUserGetRequest
Eq AuthUserGetRequest =>
(AuthUserGetRequest -> AuthUserGetRequest -> Ordering)
-> (AuthUserGetRequest -> AuthUserGetRequest -> Bool)
-> (AuthUserGetRequest -> AuthUserGetRequest -> Bool)
-> (AuthUserGetRequest -> AuthUserGetRequest -> Bool)
-> (AuthUserGetRequest -> AuthUserGetRequest -> Bool)
-> (AuthUserGetRequest -> AuthUserGetRequest -> AuthUserGetRequest)
-> (AuthUserGetRequest -> AuthUserGetRequest -> AuthUserGetRequest)
-> Ord AuthUserGetRequest
AuthUserGetRequest -> AuthUserGetRequest -> Bool
AuthUserGetRequest -> AuthUserGetRequest -> Ordering
AuthUserGetRequest -> AuthUserGetRequest -> AuthUserGetRequest
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 :: AuthUserGetRequest -> AuthUserGetRequest -> Ordering
compare :: AuthUserGetRequest -> AuthUserGetRequest -> Ordering
$c< :: AuthUserGetRequest -> AuthUserGetRequest -> Bool
< :: AuthUserGetRequest -> AuthUserGetRequest -> Bool
$c<= :: AuthUserGetRequest -> AuthUserGetRequest -> Bool
<= :: AuthUserGetRequest -> AuthUserGetRequest -> Bool
$c> :: AuthUserGetRequest -> AuthUserGetRequest -> Bool
> :: AuthUserGetRequest -> AuthUserGetRequest -> Bool
$c>= :: AuthUserGetRequest -> AuthUserGetRequest -> Bool
>= :: AuthUserGetRequest -> AuthUserGetRequest -> Bool
$cmax :: AuthUserGetRequest -> AuthUserGetRequest -> AuthUserGetRequest
max :: AuthUserGetRequest -> AuthUserGetRequest -> AuthUserGetRequest
$cmin :: AuthUserGetRequest -> AuthUserGetRequest -> AuthUserGetRequest
min :: AuthUserGetRequest -> AuthUserGetRequest -> AuthUserGetRequest
Prelude.Ord)
instance Prelude.Show AuthUserGetRequest where
  showsPrec :: Int -> AuthUserGetRequest -> ShowS
showsPrec Int
_ AuthUserGetRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthUserGetRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthUserGetRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthUserGetRequest "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name"
-> (Text -> f Text) -> AuthUserGetRequest -> f AuthUserGetRequest
fieldOf Proxy# "name"
_
    = ((Text -> f Text) -> AuthUserGetRequest -> f AuthUserGetRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthUserGetRequest
-> f AuthUserGetRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserGetRequest -> Text)
-> (AuthUserGetRequest -> Text -> AuthUserGetRequest)
-> Lens AuthUserGetRequest AuthUserGetRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserGetRequest -> Text
_AuthUserGetRequest'name
           (\ AuthUserGetRequest
x__ Text
y__ -> AuthUserGetRequest
x__ {_AuthUserGetRequest'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthUserGetRequest where
  messageName :: Proxy AuthUserGetRequest -> Text
messageName Proxy AuthUserGetRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthUserGetRequest"
  packedMessageDescriptor :: Proxy AuthUserGetRequest -> ByteString
packedMessageDescriptor Proxy AuthUserGetRequest
_
    = ByteString
"\n\
      \\DC2AuthUserGetRequest\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthUserGetRequest -> ByteString
packedFileDescriptor Proxy AuthUserGetRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthUserGetRequest)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor AuthUserGetRequest
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthUserGetRequest Text
-> FieldDescriptor AuthUserGetRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AuthUserGetRequest AuthUserGetRequest Text Text
-> FieldAccessor AuthUserGetRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"name")) ::
              Data.ProtoLens.FieldDescriptor AuthUserGetRequest
      in
        [(Tag, FieldDescriptor AuthUserGetRequest)]
-> Map Tag (FieldDescriptor AuthUserGetRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthUserGetRequest
name__field_descriptor)]
  unknownFields :: Lens' AuthUserGetRequest FieldSet
unknownFields
    = (AuthUserGetRequest -> FieldSet)
-> (AuthUserGetRequest -> FieldSet -> AuthUserGetRequest)
-> Lens' AuthUserGetRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthUserGetRequest -> FieldSet
_AuthUserGetRequest'_unknownFields
        (\ AuthUserGetRequest
x__ FieldSet
y__ -> AuthUserGetRequest
x__ {_AuthUserGetRequest'_unknownFields = y__})
  defMessage :: AuthUserGetRequest
defMessage
    = AuthUserGetRequest'_constructor
        {_AuthUserGetRequest'name :: Text
_AuthUserGetRequest'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthUserGetRequest'_unknownFields :: FieldSet
_AuthUserGetRequest'_unknownFields = []}
  parseMessage :: Parser AuthUserGetRequest
parseMessage
    = let
        loop ::
          AuthUserGetRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthUserGetRequest
        loop :: AuthUserGetRequest -> Parser AuthUserGetRequest
loop AuthUserGetRequest
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 Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") 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 AuthUserGetRequest -> String -> Parser AuthUserGetRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthUserGetRequest -> Parser AuthUserGetRequest
loop AuthUserGetRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthUserGetRequest"
  buildMessage :: AuthUserGetRequest -> Builder
buildMessage
    = \ AuthUserGetRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text AuthUserGetRequest AuthUserGetRequest Text Text
-> AuthUserGetRequest -> Text
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 @"name") AuthUserGetRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> Builder) -> (Text -> ByteString) -> Text -> 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet AuthUserGetRequest AuthUserGetRequest FieldSet FieldSet
-> AuthUserGetRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthUserGetRequest AuthUserGetRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthUserGetRequest FieldSet
Data.ProtoLens.unknownFields AuthUserGetRequest
_x))
instance Control.DeepSeq.NFData AuthUserGetRequest where
  rnf :: AuthUserGetRequest -> ()
rnf
    = \ AuthUserGetRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthUserGetRequest -> FieldSet
_AuthUserGetRequest'_unknownFields AuthUserGetRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthUserGetRequest -> Text
_AuthUserGetRequest'name AuthUserGetRequest
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthUserGetResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthUserGetResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.roles' @:: Lens' AuthUserGetResponse [Data.Text.Text]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'roles' @:: Lens' AuthUserGetResponse (Data.Vector.Vector Data.Text.Text)@ -}
data AuthUserGetResponse
  = AuthUserGetResponse'_constructor {AuthUserGetResponse -> Maybe ResponseHeader
_AuthUserGetResponse'header :: !(Prelude.Maybe ResponseHeader),
                                      AuthUserGetResponse -> Vector Text
_AuthUserGetResponse'roles :: !(Data.Vector.Vector Data.Text.Text),
                                      AuthUserGetResponse -> FieldSet
_AuthUserGetResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthUserGetResponse -> AuthUserGetResponse -> Bool
(AuthUserGetResponse -> AuthUserGetResponse -> Bool)
-> (AuthUserGetResponse -> AuthUserGetResponse -> Bool)
-> Eq AuthUserGetResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthUserGetResponse -> AuthUserGetResponse -> Bool
== :: AuthUserGetResponse -> AuthUserGetResponse -> Bool
$c/= :: AuthUserGetResponse -> AuthUserGetResponse -> Bool
/= :: AuthUserGetResponse -> AuthUserGetResponse -> Bool
Prelude.Eq, Eq AuthUserGetResponse
Eq AuthUserGetResponse =>
(AuthUserGetResponse -> AuthUserGetResponse -> Ordering)
-> (AuthUserGetResponse -> AuthUserGetResponse -> Bool)
-> (AuthUserGetResponse -> AuthUserGetResponse -> Bool)
-> (AuthUserGetResponse -> AuthUserGetResponse -> Bool)
-> (AuthUserGetResponse -> AuthUserGetResponse -> Bool)
-> (AuthUserGetResponse
    -> AuthUserGetResponse -> AuthUserGetResponse)
-> (AuthUserGetResponse
    -> AuthUserGetResponse -> AuthUserGetResponse)
-> Ord AuthUserGetResponse
AuthUserGetResponse -> AuthUserGetResponse -> Bool
AuthUserGetResponse -> AuthUserGetResponse -> Ordering
AuthUserGetResponse -> AuthUserGetResponse -> AuthUserGetResponse
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 :: AuthUserGetResponse -> AuthUserGetResponse -> Ordering
compare :: AuthUserGetResponse -> AuthUserGetResponse -> Ordering
$c< :: AuthUserGetResponse -> AuthUserGetResponse -> Bool
< :: AuthUserGetResponse -> AuthUserGetResponse -> Bool
$c<= :: AuthUserGetResponse -> AuthUserGetResponse -> Bool
<= :: AuthUserGetResponse -> AuthUserGetResponse -> Bool
$c> :: AuthUserGetResponse -> AuthUserGetResponse -> Bool
> :: AuthUserGetResponse -> AuthUserGetResponse -> Bool
$c>= :: AuthUserGetResponse -> AuthUserGetResponse -> Bool
>= :: AuthUserGetResponse -> AuthUserGetResponse -> Bool
$cmax :: AuthUserGetResponse -> AuthUserGetResponse -> AuthUserGetResponse
max :: AuthUserGetResponse -> AuthUserGetResponse -> AuthUserGetResponse
$cmin :: AuthUserGetResponse -> AuthUserGetResponse -> AuthUserGetResponse
min :: AuthUserGetResponse -> AuthUserGetResponse -> AuthUserGetResponse
Prelude.Ord)
instance Prelude.Show AuthUserGetResponse where
  showsPrec :: Int -> AuthUserGetResponse -> ShowS
showsPrec Int
_ AuthUserGetResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthUserGetResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthUserGetResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthUserGetResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthUserGetResponse
-> f AuthUserGetResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthUserGetResponse -> f AuthUserGetResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthUserGetResponse
-> f AuthUserGetResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserGetResponse -> Maybe ResponseHeader)
-> (AuthUserGetResponse
    -> Maybe ResponseHeader -> AuthUserGetResponse)
-> Lens
     AuthUserGetResponse
     AuthUserGetResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserGetResponse -> Maybe ResponseHeader
_AuthUserGetResponse'header
           (\ AuthUserGetResponse
x__ Maybe ResponseHeader
y__ -> AuthUserGetResponse
x__ {_AuthUserGetResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthUserGetResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthUserGetResponse
-> f AuthUserGetResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthUserGetResponse -> f AuthUserGetResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthUserGetResponse
-> f AuthUserGetResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserGetResponse -> Maybe ResponseHeader)
-> (AuthUserGetResponse
    -> Maybe ResponseHeader -> AuthUserGetResponse)
-> Lens
     AuthUserGetResponse
     AuthUserGetResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserGetResponse -> Maybe ResponseHeader
_AuthUserGetResponse'header
           (\ AuthUserGetResponse
x__ Maybe ResponseHeader
y__ -> AuthUserGetResponse
x__ {_AuthUserGetResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthUserGetResponse "roles" [Data.Text.Text] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "roles"
-> ([Text] -> f [Text])
-> AuthUserGetResponse
-> f AuthUserGetResponse
fieldOf Proxy# "roles"
_
    = ((Vector Text -> f (Vector Text))
 -> AuthUserGetResponse -> f AuthUserGetResponse)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> AuthUserGetResponse
-> f AuthUserGetResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserGetResponse -> Vector Text)
-> (AuthUserGetResponse -> Vector Text -> AuthUserGetResponse)
-> Lens
     AuthUserGetResponse AuthUserGetResponse (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserGetResponse -> Vector Text
_AuthUserGetResponse'roles
           (\ AuthUserGetResponse
x__ Vector Text
y__ -> AuthUserGetResponse
x__ {_AuthUserGetResponse'roles = y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Text
_ [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField AuthUserGetResponse "vec'roles" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'roles"
-> (Vector Text -> f (Vector Text))
-> AuthUserGetResponse
-> f AuthUserGetResponse
fieldOf Proxy# "vec'roles"
_
    = ((Vector Text -> f (Vector Text))
 -> AuthUserGetResponse -> f AuthUserGetResponse)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> AuthUserGetResponse
-> f AuthUserGetResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserGetResponse -> Vector Text)
-> (AuthUserGetResponse -> Vector Text -> AuthUserGetResponse)
-> Lens
     AuthUserGetResponse AuthUserGetResponse (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserGetResponse -> Vector Text
_AuthUserGetResponse'roles
           (\ AuthUserGetResponse
x__ Vector Text
y__ -> AuthUserGetResponse
x__ {_AuthUserGetResponse'roles = y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthUserGetResponse where
  messageName :: Proxy AuthUserGetResponse -> Text
messageName Proxy AuthUserGetResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthUserGetResponse"
  packedMessageDescriptor :: Proxy AuthUserGetResponse -> ByteString
packedMessageDescriptor Proxy AuthUserGetResponse
_
    = ByteString
"\n\
      \\DC3AuthUserGetResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\DC4\n\
      \\ENQroles\CAN\STX \ETX(\tR\ENQroles:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthUserGetResponse -> ByteString
packedFileDescriptor Proxy AuthUserGetResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthUserGetResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthUserGetResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthUserGetResponse ResponseHeader
-> FieldDescriptor AuthUserGetResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthUserGetResponse
  AuthUserGetResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthUserGetResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthUserGetResponse
        roles__field_descriptor :: FieldDescriptor AuthUserGetResponse
roles__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthUserGetResponse Text
-> FieldDescriptor AuthUserGetResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"roles"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing
-> Lens' AuthUserGetResponse [Text]
-> FieldAccessor AuthUserGetResponse Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"roles")) ::
              Data.ProtoLens.FieldDescriptor AuthUserGetResponse
      in
        [(Tag, FieldDescriptor AuthUserGetResponse)]
-> Map Tag (FieldDescriptor AuthUserGetResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthUserGetResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AuthUserGetResponse
roles__field_descriptor)]
  unknownFields :: Lens' AuthUserGetResponse FieldSet
unknownFields
    = (AuthUserGetResponse -> FieldSet)
-> (AuthUserGetResponse -> FieldSet -> AuthUserGetResponse)
-> Lens' AuthUserGetResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthUserGetResponse -> FieldSet
_AuthUserGetResponse'_unknownFields
        (\ AuthUserGetResponse
x__ FieldSet
y__ -> AuthUserGetResponse
x__ {_AuthUserGetResponse'_unknownFields = y__})
  defMessage :: AuthUserGetResponse
defMessage
    = AuthUserGetResponse'_constructor
        {_AuthUserGetResponse'header :: Maybe ResponseHeader
_AuthUserGetResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthUserGetResponse'roles :: Vector Text
_AuthUserGetResponse'roles = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AuthUserGetResponse'_unknownFields :: FieldSet
_AuthUserGetResponse'_unknownFields = []}
  parseMessage :: Parser AuthUserGetResponse
parseMessage
    = let
        loop ::
          AuthUserGetResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
             -> Data.ProtoLens.Encoding.Bytes.Parser AuthUserGetResponse
        loop :: AuthUserGetResponse
-> Growing Vector RealWorld Text -> Parser AuthUserGetResponse
loop AuthUserGetResponse
x Growing Vector RealWorld Text
mutable'roles
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'roles <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'roles)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'roles") frozen'roles x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'roles
                        Word64
18
                          -> do !y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.getText
                                              (Prelude.fromIntegral len))
                                        String
"roles"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'roles y)
                                loop x v
                        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)
                                  mutable'roles
      in
        Parser AuthUserGetResponse -> String -> Parser AuthUserGetResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'roles <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld Text)
IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'roles)
          String
"AuthUserGetResponse"
  buildMessage :: AuthUserGetResponse -> Builder
buildMessage
    = \ AuthUserGetResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthUserGetResponse
  AuthUserGetResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthUserGetResponse -> Maybe ResponseHeader
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'header") AuthUserGetResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ Text
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                              Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                   (FoldLike
  (Vector Text)
  AuthUserGetResponse
  AuthUserGetResponse
  (Vector Text)
  (Vector Text)
-> AuthUserGetResponse -> Vector Text
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 @"vec'roles") AuthUserGetResponse
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet AuthUserGetResponse AuthUserGetResponse FieldSet FieldSet
-> AuthUserGetResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthUserGetResponse AuthUserGetResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthUserGetResponse FieldSet
Data.ProtoLens.unknownFields AuthUserGetResponse
_x)))
instance Control.DeepSeq.NFData AuthUserGetResponse where
  rnf :: AuthUserGetResponse -> ()
rnf
    = \ AuthUserGetResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthUserGetResponse -> FieldSet
_AuthUserGetResponse'_unknownFields AuthUserGetResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthUserGetResponse -> Maybe ResponseHeader
_AuthUserGetResponse'header AuthUserGetResponse
x__)
                (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthUserGetResponse -> Vector Text
_AuthUserGetResponse'roles AuthUserGetResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.user' @:: Lens' AuthUserGrantRoleRequest Data.Text.Text@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.role' @:: Lens' AuthUserGrantRoleRequest Data.Text.Text@ -}
data AuthUserGrantRoleRequest
  = AuthUserGrantRoleRequest'_constructor {AuthUserGrantRoleRequest -> Text
_AuthUserGrantRoleRequest'user :: !Data.Text.Text,
                                           AuthUserGrantRoleRequest -> Text
_AuthUserGrantRoleRequest'role :: !Data.Text.Text,
                                           AuthUserGrantRoleRequest -> FieldSet
_AuthUserGrantRoleRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool
(AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool)
-> (AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool)
-> Eq AuthUserGrantRoleRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool
== :: AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool
$c/= :: AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool
/= :: AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool
Prelude.Eq, Eq AuthUserGrantRoleRequest
Eq AuthUserGrantRoleRequest =>
(AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Ordering)
-> (AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool)
-> (AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool)
-> (AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool)
-> (AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool)
-> (AuthUserGrantRoleRequest
    -> AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest)
-> (AuthUserGrantRoleRequest
    -> AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest)
-> Ord AuthUserGrantRoleRequest
AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool
AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Ordering
AuthUserGrantRoleRequest
-> AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest
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 :: AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Ordering
compare :: AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Ordering
$c< :: AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool
< :: AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool
$c<= :: AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool
<= :: AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool
$c> :: AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool
> :: AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool
$c>= :: AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool
>= :: AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest -> Bool
$cmax :: AuthUserGrantRoleRequest
-> AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest
max :: AuthUserGrantRoleRequest
-> AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest
$cmin :: AuthUserGrantRoleRequest
-> AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest
min :: AuthUserGrantRoleRequest
-> AuthUserGrantRoleRequest -> AuthUserGrantRoleRequest
Prelude.Ord)
instance Prelude.Show AuthUserGrantRoleRequest where
  showsPrec :: Int -> AuthUserGrantRoleRequest -> ShowS
showsPrec Int
_ AuthUserGrantRoleRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthUserGrantRoleRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthUserGrantRoleRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthUserGrantRoleRequest "user" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "user"
-> (Text -> f Text)
-> AuthUserGrantRoleRequest
-> f AuthUserGrantRoleRequest
fieldOf Proxy# "user"
_
    = ((Text -> f Text)
 -> AuthUserGrantRoleRequest -> f AuthUserGrantRoleRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthUserGrantRoleRequest
-> f AuthUserGrantRoleRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserGrantRoleRequest -> Text)
-> (AuthUserGrantRoleRequest -> Text -> AuthUserGrantRoleRequest)
-> Lens AuthUserGrantRoleRequest AuthUserGrantRoleRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserGrantRoleRequest -> Text
_AuthUserGrantRoleRequest'user
           (\ AuthUserGrantRoleRequest
x__ Text
y__ -> AuthUserGrantRoleRequest
x__ {_AuthUserGrantRoleRequest'user = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthUserGrantRoleRequest "role" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "role"
-> (Text -> f Text)
-> AuthUserGrantRoleRequest
-> f AuthUserGrantRoleRequest
fieldOf Proxy# "role"
_
    = ((Text -> f Text)
 -> AuthUserGrantRoleRequest -> f AuthUserGrantRoleRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthUserGrantRoleRequest
-> f AuthUserGrantRoleRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserGrantRoleRequest -> Text)
-> (AuthUserGrantRoleRequest -> Text -> AuthUserGrantRoleRequest)
-> Lens AuthUserGrantRoleRequest AuthUserGrantRoleRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserGrantRoleRequest -> Text
_AuthUserGrantRoleRequest'role
           (\ AuthUserGrantRoleRequest
x__ Text
y__ -> AuthUserGrantRoleRequest
x__ {_AuthUserGrantRoleRequest'role = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthUserGrantRoleRequest where
  messageName :: Proxy AuthUserGrantRoleRequest -> Text
messageName Proxy AuthUserGrantRoleRequest
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.AuthUserGrantRoleRequest"
  packedMessageDescriptor :: Proxy AuthUserGrantRoleRequest -> ByteString
packedMessageDescriptor Proxy AuthUserGrantRoleRequest
_
    = ByteString
"\n\
      \\CANAuthUserGrantRoleRequest\DC2\DC2\n\
      \\EOTuser\CAN\SOH \SOH(\tR\EOTuser\DC2\DC2\n\
      \\EOTrole\CAN\STX \SOH(\tR\EOTrole:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthUserGrantRoleRequest -> ByteString
packedFileDescriptor Proxy AuthUserGrantRoleRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthUserGrantRoleRequest)
fieldsByTag
    = let
        user__field_descriptor :: FieldDescriptor AuthUserGrantRoleRequest
user__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthUserGrantRoleRequest Text
-> FieldDescriptor AuthUserGrantRoleRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"user"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AuthUserGrantRoleRequest AuthUserGrantRoleRequest Text Text
-> FieldAccessor AuthUserGrantRoleRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"user")) ::
              Data.ProtoLens.FieldDescriptor AuthUserGrantRoleRequest
        role__field_descriptor :: FieldDescriptor AuthUserGrantRoleRequest
role__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthUserGrantRoleRequest Text
-> FieldDescriptor AuthUserGrantRoleRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"role"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AuthUserGrantRoleRequest AuthUserGrantRoleRequest Text Text
-> FieldAccessor AuthUserGrantRoleRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"role")) ::
              Data.ProtoLens.FieldDescriptor AuthUserGrantRoleRequest
      in
        [(Tag, FieldDescriptor AuthUserGrantRoleRequest)]
-> Map Tag (FieldDescriptor AuthUserGrantRoleRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthUserGrantRoleRequest
user__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AuthUserGrantRoleRequest
role__field_descriptor)]
  unknownFields :: Lens' AuthUserGrantRoleRequest FieldSet
unknownFields
    = (AuthUserGrantRoleRequest -> FieldSet)
-> (AuthUserGrantRoleRequest
    -> FieldSet -> AuthUserGrantRoleRequest)
-> Lens' AuthUserGrantRoleRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthUserGrantRoleRequest -> FieldSet
_AuthUserGrantRoleRequest'_unknownFields
        (\ AuthUserGrantRoleRequest
x__ FieldSet
y__ -> AuthUserGrantRoleRequest
x__ {_AuthUserGrantRoleRequest'_unknownFields = y__})
  defMessage :: AuthUserGrantRoleRequest
defMessage
    = AuthUserGrantRoleRequest'_constructor
        {_AuthUserGrantRoleRequest'user :: Text
_AuthUserGrantRoleRequest'user = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthUserGrantRoleRequest'role :: Text
_AuthUserGrantRoleRequest'role = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthUserGrantRoleRequest'_unknownFields :: FieldSet
_AuthUserGrantRoleRequest'_unknownFields = []}
  parseMessage :: Parser AuthUserGrantRoleRequest
parseMessage
    = let
        loop ::
          AuthUserGrantRoleRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthUserGrantRoleRequest
        loop :: AuthUserGrantRoleRequest -> Parser AuthUserGrantRoleRequest
loop AuthUserGrantRoleRequest
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 Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"user"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"user") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"role"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"role") 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 AuthUserGrantRoleRequest
-> String -> Parser AuthUserGrantRoleRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthUserGrantRoleRequest -> Parser AuthUserGrantRoleRequest
loop AuthUserGrantRoleRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthUserGrantRoleRequest"
  buildMessage :: AuthUserGrantRoleRequest -> Builder
buildMessage
    = \ AuthUserGrantRoleRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text AuthUserGrantRoleRequest AuthUserGrantRoleRequest Text Text
-> AuthUserGrantRoleRequest -> Text
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 @"user") AuthUserGrantRoleRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> Builder) -> (Text -> ByteString) -> Text -> 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: Text
_v = FoldLike
  Text AuthUserGrantRoleRequest AuthUserGrantRoleRequest Text Text
-> AuthUserGrantRoleRequest -> Text
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 @"role") AuthUserGrantRoleRequest
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  AuthUserGrantRoleRequest
  AuthUserGrantRoleRequest
  FieldSet
  FieldSet
-> AuthUserGrantRoleRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthUserGrantRoleRequest
  AuthUserGrantRoleRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthUserGrantRoleRequest FieldSet
Data.ProtoLens.unknownFields AuthUserGrantRoleRequest
_x)))
instance Control.DeepSeq.NFData AuthUserGrantRoleRequest where
  rnf :: AuthUserGrantRoleRequest -> ()
rnf
    = \ AuthUserGrantRoleRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthUserGrantRoleRequest -> FieldSet
_AuthUserGrantRoleRequest'_unknownFields AuthUserGrantRoleRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthUserGrantRoleRequest -> Text
_AuthUserGrantRoleRequest'user AuthUserGrantRoleRequest
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthUserGrantRoleRequest -> Text
_AuthUserGrantRoleRequest'role AuthUserGrantRoleRequest
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthUserGrantRoleResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthUserGrantRoleResponse (Prelude.Maybe ResponseHeader)@ -}
data AuthUserGrantRoleResponse
  = AuthUserGrantRoleResponse'_constructor {AuthUserGrantRoleResponse -> Maybe ResponseHeader
_AuthUserGrantRoleResponse'header :: !(Prelude.Maybe ResponseHeader),
                                            AuthUserGrantRoleResponse -> FieldSet
_AuthUserGrantRoleResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool
(AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool)
-> (AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool)
-> Eq AuthUserGrantRoleResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool
== :: AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool
$c/= :: AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool
/= :: AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool
Prelude.Eq, Eq AuthUserGrantRoleResponse
Eq AuthUserGrantRoleResponse =>
(AuthUserGrantRoleResponse
 -> AuthUserGrantRoleResponse -> Ordering)
-> (AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool)
-> (AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool)
-> (AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool)
-> (AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool)
-> (AuthUserGrantRoleResponse
    -> AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse)
-> (AuthUserGrantRoleResponse
    -> AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse)
-> Ord AuthUserGrantRoleResponse
AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool
AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Ordering
AuthUserGrantRoleResponse
-> AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse
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 :: AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Ordering
compare :: AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Ordering
$c< :: AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool
< :: AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool
$c<= :: AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool
<= :: AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool
$c> :: AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool
> :: AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool
$c>= :: AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool
>= :: AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse -> Bool
$cmax :: AuthUserGrantRoleResponse
-> AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse
max :: AuthUserGrantRoleResponse
-> AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse
$cmin :: AuthUserGrantRoleResponse
-> AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse
min :: AuthUserGrantRoleResponse
-> AuthUserGrantRoleResponse -> AuthUserGrantRoleResponse
Prelude.Ord)
instance Prelude.Show AuthUserGrantRoleResponse where
  showsPrec :: Int -> AuthUserGrantRoleResponse -> ShowS
showsPrec Int
_ AuthUserGrantRoleResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthUserGrantRoleResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthUserGrantRoleResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthUserGrantRoleResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthUserGrantRoleResponse
-> f AuthUserGrantRoleResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthUserGrantRoleResponse -> f AuthUserGrantRoleResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthUserGrantRoleResponse
-> f AuthUserGrantRoleResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserGrantRoleResponse -> Maybe ResponseHeader)
-> (AuthUserGrantRoleResponse
    -> Maybe ResponseHeader -> AuthUserGrantRoleResponse)
-> Lens
     AuthUserGrantRoleResponse
     AuthUserGrantRoleResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserGrantRoleResponse -> Maybe ResponseHeader
_AuthUserGrantRoleResponse'header
           (\ AuthUserGrantRoleResponse
x__ Maybe ResponseHeader
y__ -> AuthUserGrantRoleResponse
x__ {_AuthUserGrantRoleResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthUserGrantRoleResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthUserGrantRoleResponse
-> f AuthUserGrantRoleResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthUserGrantRoleResponse -> f AuthUserGrantRoleResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthUserGrantRoleResponse
-> f AuthUserGrantRoleResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserGrantRoleResponse -> Maybe ResponseHeader)
-> (AuthUserGrantRoleResponse
    -> Maybe ResponseHeader -> AuthUserGrantRoleResponse)
-> Lens
     AuthUserGrantRoleResponse
     AuthUserGrantRoleResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserGrantRoleResponse -> Maybe ResponseHeader
_AuthUserGrantRoleResponse'header
           (\ AuthUserGrantRoleResponse
x__ Maybe ResponseHeader
y__ -> AuthUserGrantRoleResponse
x__ {_AuthUserGrantRoleResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthUserGrantRoleResponse where
  messageName :: Proxy AuthUserGrantRoleResponse -> Text
messageName Proxy AuthUserGrantRoleResponse
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.AuthUserGrantRoleResponse"
  packedMessageDescriptor :: Proxy AuthUserGrantRoleResponse -> ByteString
packedMessageDescriptor Proxy AuthUserGrantRoleResponse
_
    = ByteString
"\n\
      \\EMAuthUserGrantRoleResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthUserGrantRoleResponse -> ByteString
packedFileDescriptor Proxy AuthUserGrantRoleResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthUserGrantRoleResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthUserGrantRoleResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthUserGrantRoleResponse ResponseHeader
-> FieldDescriptor AuthUserGrantRoleResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthUserGrantRoleResponse
  AuthUserGrantRoleResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthUserGrantRoleResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthUserGrantRoleResponse
      in
        [(Tag, FieldDescriptor AuthUserGrantRoleResponse)]
-> Map Tag (FieldDescriptor AuthUserGrantRoleResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthUserGrantRoleResponse
header__field_descriptor)]
  unknownFields :: Lens' AuthUserGrantRoleResponse FieldSet
unknownFields
    = (AuthUserGrantRoleResponse -> FieldSet)
-> (AuthUserGrantRoleResponse
    -> FieldSet -> AuthUserGrantRoleResponse)
-> Lens' AuthUserGrantRoleResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthUserGrantRoleResponse -> FieldSet
_AuthUserGrantRoleResponse'_unknownFields
        (\ AuthUserGrantRoleResponse
x__ FieldSet
y__
           -> AuthUserGrantRoleResponse
x__ {_AuthUserGrantRoleResponse'_unknownFields = y__})
  defMessage :: AuthUserGrantRoleResponse
defMessage
    = AuthUserGrantRoleResponse'_constructor
        {_AuthUserGrantRoleResponse'header :: Maybe ResponseHeader
_AuthUserGrantRoleResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthUserGrantRoleResponse'_unknownFields :: FieldSet
_AuthUserGrantRoleResponse'_unknownFields = []}
  parseMessage :: Parser AuthUserGrantRoleResponse
parseMessage
    = let
        loop ::
          AuthUserGrantRoleResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthUserGrantRoleResponse
        loop :: AuthUserGrantRoleResponse -> Parser AuthUserGrantRoleResponse
loop AuthUserGrantRoleResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 AuthUserGrantRoleResponse
-> String -> Parser AuthUserGrantRoleResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthUserGrantRoleResponse -> Parser AuthUserGrantRoleResponse
loop AuthUserGrantRoleResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthUserGrantRoleResponse"
  buildMessage :: AuthUserGrantRoleResponse -> Builder
buildMessage
    = \ AuthUserGrantRoleResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthUserGrantRoleResponse
  AuthUserGrantRoleResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthUserGrantRoleResponse -> Maybe ResponseHeader
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'header") AuthUserGrantRoleResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  AuthUserGrantRoleResponse
  AuthUserGrantRoleResponse
  FieldSet
  FieldSet
-> AuthUserGrantRoleResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthUserGrantRoleResponse
  AuthUserGrantRoleResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthUserGrantRoleResponse FieldSet
Data.ProtoLens.unknownFields AuthUserGrantRoleResponse
_x))
instance Control.DeepSeq.NFData AuthUserGrantRoleResponse where
  rnf :: AuthUserGrantRoleResponse -> ()
rnf
    = \ AuthUserGrantRoleResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthUserGrantRoleResponse -> FieldSet
_AuthUserGrantRoleResponse'_unknownFields AuthUserGrantRoleResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthUserGrantRoleResponse -> Maybe ResponseHeader
_AuthUserGrantRoleResponse'header AuthUserGrantRoleResponse
x__) ())
{- | Fields :
      -}
data AuthUserListRequest
  = AuthUserListRequest'_constructor {AuthUserListRequest -> FieldSet
_AuthUserListRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthUserListRequest -> AuthUserListRequest -> Bool
(AuthUserListRequest -> AuthUserListRequest -> Bool)
-> (AuthUserListRequest -> AuthUserListRequest -> Bool)
-> Eq AuthUserListRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthUserListRequest -> AuthUserListRequest -> Bool
== :: AuthUserListRequest -> AuthUserListRequest -> Bool
$c/= :: AuthUserListRequest -> AuthUserListRequest -> Bool
/= :: AuthUserListRequest -> AuthUserListRequest -> Bool
Prelude.Eq, Eq AuthUserListRequest
Eq AuthUserListRequest =>
(AuthUserListRequest -> AuthUserListRequest -> Ordering)
-> (AuthUserListRequest -> AuthUserListRequest -> Bool)
-> (AuthUserListRequest -> AuthUserListRequest -> Bool)
-> (AuthUserListRequest -> AuthUserListRequest -> Bool)
-> (AuthUserListRequest -> AuthUserListRequest -> Bool)
-> (AuthUserListRequest
    -> AuthUserListRequest -> AuthUserListRequest)
-> (AuthUserListRequest
    -> AuthUserListRequest -> AuthUserListRequest)
-> Ord AuthUserListRequest
AuthUserListRequest -> AuthUserListRequest -> Bool
AuthUserListRequest -> AuthUserListRequest -> Ordering
AuthUserListRequest -> AuthUserListRequest -> AuthUserListRequest
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 :: AuthUserListRequest -> AuthUserListRequest -> Ordering
compare :: AuthUserListRequest -> AuthUserListRequest -> Ordering
$c< :: AuthUserListRequest -> AuthUserListRequest -> Bool
< :: AuthUserListRequest -> AuthUserListRequest -> Bool
$c<= :: AuthUserListRequest -> AuthUserListRequest -> Bool
<= :: AuthUserListRequest -> AuthUserListRequest -> Bool
$c> :: AuthUserListRequest -> AuthUserListRequest -> Bool
> :: AuthUserListRequest -> AuthUserListRequest -> Bool
$c>= :: AuthUserListRequest -> AuthUserListRequest -> Bool
>= :: AuthUserListRequest -> AuthUserListRequest -> Bool
$cmax :: AuthUserListRequest -> AuthUserListRequest -> AuthUserListRequest
max :: AuthUserListRequest -> AuthUserListRequest -> AuthUserListRequest
$cmin :: AuthUserListRequest -> AuthUserListRequest -> AuthUserListRequest
min :: AuthUserListRequest -> AuthUserListRequest -> AuthUserListRequest
Prelude.Ord)
instance Prelude.Show AuthUserListRequest where
  showsPrec :: Int -> AuthUserListRequest -> ShowS
showsPrec Int
_ AuthUserListRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthUserListRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthUserListRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message AuthUserListRequest where
  messageName :: Proxy AuthUserListRequest -> Text
messageName Proxy AuthUserListRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthUserListRequest"
  packedMessageDescriptor :: Proxy AuthUserListRequest -> ByteString
packedMessageDescriptor Proxy AuthUserListRequest
_
    = ByteString
"\n\
      \\DC3AuthUserListRequest:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthUserListRequest -> ByteString
packedFileDescriptor Proxy AuthUserListRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthUserListRequest)
fieldsByTag = let in [(Tag, FieldDescriptor AuthUserListRequest)]
-> Map Tag (FieldDescriptor AuthUserListRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' AuthUserListRequest FieldSet
unknownFields
    = (AuthUserListRequest -> FieldSet)
-> (AuthUserListRequest -> FieldSet -> AuthUserListRequest)
-> Lens' AuthUserListRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthUserListRequest -> FieldSet
_AuthUserListRequest'_unknownFields
        (\ AuthUserListRequest
x__ FieldSet
y__ -> AuthUserListRequest
x__ {_AuthUserListRequest'_unknownFields = y__})
  defMessage :: AuthUserListRequest
defMessage
    = AuthUserListRequest'_constructor
        {_AuthUserListRequest'_unknownFields :: FieldSet
_AuthUserListRequest'_unknownFields = []}
  parseMessage :: Parser AuthUserListRequest
parseMessage
    = let
        loop ::
          AuthUserListRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthUserListRequest
        loop :: AuthUserListRequest -> Parser AuthUserListRequest
loop AuthUserListRequest
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
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 AuthUserListRequest -> String -> Parser AuthUserListRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthUserListRequest -> Parser AuthUserListRequest
loop AuthUserListRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthUserListRequest"
  buildMessage :: AuthUserListRequest -> Builder
buildMessage
    = \ AuthUserListRequest
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet AuthUserListRequest AuthUserListRequest FieldSet FieldSet
-> AuthUserListRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthUserListRequest AuthUserListRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthUserListRequest FieldSet
Data.ProtoLens.unknownFields AuthUserListRequest
_x)
instance Control.DeepSeq.NFData AuthUserListRequest where
  rnf :: AuthUserListRequest -> ()
rnf
    = \ AuthUserListRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthUserListRequest -> FieldSet
_AuthUserListRequest'_unknownFields AuthUserListRequest
x__) ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthUserListResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthUserListResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.users' @:: Lens' AuthUserListResponse [Data.Text.Text]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'users' @:: Lens' AuthUserListResponse (Data.Vector.Vector Data.Text.Text)@ -}
data AuthUserListResponse
  = AuthUserListResponse'_constructor {AuthUserListResponse -> Maybe ResponseHeader
_AuthUserListResponse'header :: !(Prelude.Maybe ResponseHeader),
                                       AuthUserListResponse -> Vector Text
_AuthUserListResponse'users :: !(Data.Vector.Vector Data.Text.Text),
                                       AuthUserListResponse -> FieldSet
_AuthUserListResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthUserListResponse -> AuthUserListResponse -> Bool
(AuthUserListResponse -> AuthUserListResponse -> Bool)
-> (AuthUserListResponse -> AuthUserListResponse -> Bool)
-> Eq AuthUserListResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthUserListResponse -> AuthUserListResponse -> Bool
== :: AuthUserListResponse -> AuthUserListResponse -> Bool
$c/= :: AuthUserListResponse -> AuthUserListResponse -> Bool
/= :: AuthUserListResponse -> AuthUserListResponse -> Bool
Prelude.Eq, Eq AuthUserListResponse
Eq AuthUserListResponse =>
(AuthUserListResponse -> AuthUserListResponse -> Ordering)
-> (AuthUserListResponse -> AuthUserListResponse -> Bool)
-> (AuthUserListResponse -> AuthUserListResponse -> Bool)
-> (AuthUserListResponse -> AuthUserListResponse -> Bool)
-> (AuthUserListResponse -> AuthUserListResponse -> Bool)
-> (AuthUserListResponse
    -> AuthUserListResponse -> AuthUserListResponse)
-> (AuthUserListResponse
    -> AuthUserListResponse -> AuthUserListResponse)
-> Ord AuthUserListResponse
AuthUserListResponse -> AuthUserListResponse -> Bool
AuthUserListResponse -> AuthUserListResponse -> Ordering
AuthUserListResponse
-> AuthUserListResponse -> AuthUserListResponse
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 :: AuthUserListResponse -> AuthUserListResponse -> Ordering
compare :: AuthUserListResponse -> AuthUserListResponse -> Ordering
$c< :: AuthUserListResponse -> AuthUserListResponse -> Bool
< :: AuthUserListResponse -> AuthUserListResponse -> Bool
$c<= :: AuthUserListResponse -> AuthUserListResponse -> Bool
<= :: AuthUserListResponse -> AuthUserListResponse -> Bool
$c> :: AuthUserListResponse -> AuthUserListResponse -> Bool
> :: AuthUserListResponse -> AuthUserListResponse -> Bool
$c>= :: AuthUserListResponse -> AuthUserListResponse -> Bool
>= :: AuthUserListResponse -> AuthUserListResponse -> Bool
$cmax :: AuthUserListResponse
-> AuthUserListResponse -> AuthUserListResponse
max :: AuthUserListResponse
-> AuthUserListResponse -> AuthUserListResponse
$cmin :: AuthUserListResponse
-> AuthUserListResponse -> AuthUserListResponse
min :: AuthUserListResponse
-> AuthUserListResponse -> AuthUserListResponse
Prelude.Ord)
instance Prelude.Show AuthUserListResponse where
  showsPrec :: Int -> AuthUserListResponse -> ShowS
showsPrec Int
_ AuthUserListResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthUserListResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthUserListResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthUserListResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthUserListResponse
-> f AuthUserListResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthUserListResponse -> f AuthUserListResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthUserListResponse
-> f AuthUserListResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserListResponse -> Maybe ResponseHeader)
-> (AuthUserListResponse
    -> Maybe ResponseHeader -> AuthUserListResponse)
-> Lens
     AuthUserListResponse
     AuthUserListResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserListResponse -> Maybe ResponseHeader
_AuthUserListResponse'header
           (\ AuthUserListResponse
x__ Maybe ResponseHeader
y__ -> AuthUserListResponse
x__ {_AuthUserListResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthUserListResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthUserListResponse
-> f AuthUserListResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthUserListResponse -> f AuthUserListResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthUserListResponse
-> f AuthUserListResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserListResponse -> Maybe ResponseHeader)
-> (AuthUserListResponse
    -> Maybe ResponseHeader -> AuthUserListResponse)
-> Lens
     AuthUserListResponse
     AuthUserListResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserListResponse -> Maybe ResponseHeader
_AuthUserListResponse'header
           (\ AuthUserListResponse
x__ Maybe ResponseHeader
y__ -> AuthUserListResponse
x__ {_AuthUserListResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthUserListResponse "users" [Data.Text.Text] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "users"
-> ([Text] -> f [Text])
-> AuthUserListResponse
-> f AuthUserListResponse
fieldOf Proxy# "users"
_
    = ((Vector Text -> f (Vector Text))
 -> AuthUserListResponse -> f AuthUserListResponse)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> AuthUserListResponse
-> f AuthUserListResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserListResponse -> Vector Text)
-> (AuthUserListResponse -> Vector Text -> AuthUserListResponse)
-> Lens
     AuthUserListResponse
     AuthUserListResponse
     (Vector Text)
     (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserListResponse -> Vector Text
_AuthUserListResponse'users
           (\ AuthUserListResponse
x__ Vector Text
y__ -> AuthUserListResponse
x__ {_AuthUserListResponse'users = y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Text
_ [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField AuthUserListResponse "vec'users" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'users"
-> (Vector Text -> f (Vector Text))
-> AuthUserListResponse
-> f AuthUserListResponse
fieldOf Proxy# "vec'users"
_
    = ((Vector Text -> f (Vector Text))
 -> AuthUserListResponse -> f AuthUserListResponse)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> AuthUserListResponse
-> f AuthUserListResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserListResponse -> Vector Text)
-> (AuthUserListResponse -> Vector Text -> AuthUserListResponse)
-> Lens
     AuthUserListResponse
     AuthUserListResponse
     (Vector Text)
     (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserListResponse -> Vector Text
_AuthUserListResponse'users
           (\ AuthUserListResponse
x__ Vector Text
y__ -> AuthUserListResponse
x__ {_AuthUserListResponse'users = y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthUserListResponse where
  messageName :: Proxy AuthUserListResponse -> Text
messageName Proxy AuthUserListResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthUserListResponse"
  packedMessageDescriptor :: Proxy AuthUserListResponse -> ByteString
packedMessageDescriptor Proxy AuthUserListResponse
_
    = ByteString
"\n\
      \\DC4AuthUserListResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\DC4\n\
      \\ENQusers\CAN\STX \ETX(\tR\ENQusers:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthUserListResponse -> ByteString
packedFileDescriptor Proxy AuthUserListResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthUserListResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthUserListResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthUserListResponse ResponseHeader
-> FieldDescriptor AuthUserListResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthUserListResponse
  AuthUserListResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthUserListResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthUserListResponse
        users__field_descriptor :: FieldDescriptor AuthUserListResponse
users__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthUserListResponse Text
-> FieldDescriptor AuthUserListResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"users"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing
-> Lens' AuthUserListResponse [Text]
-> FieldAccessor AuthUserListResponse Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"users")) ::
              Data.ProtoLens.FieldDescriptor AuthUserListResponse
      in
        [(Tag, FieldDescriptor AuthUserListResponse)]
-> Map Tag (FieldDescriptor AuthUserListResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthUserListResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AuthUserListResponse
users__field_descriptor)]
  unknownFields :: Lens' AuthUserListResponse FieldSet
unknownFields
    = (AuthUserListResponse -> FieldSet)
-> (AuthUserListResponse -> FieldSet -> AuthUserListResponse)
-> Lens' AuthUserListResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthUserListResponse -> FieldSet
_AuthUserListResponse'_unknownFields
        (\ AuthUserListResponse
x__ FieldSet
y__ -> AuthUserListResponse
x__ {_AuthUserListResponse'_unknownFields = y__})
  defMessage :: AuthUserListResponse
defMessage
    = AuthUserListResponse'_constructor
        {_AuthUserListResponse'header :: Maybe ResponseHeader
_AuthUserListResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthUserListResponse'users :: Vector Text
_AuthUserListResponse'users = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _AuthUserListResponse'_unknownFields :: FieldSet
_AuthUserListResponse'_unknownFields = []}
  parseMessage :: Parser AuthUserListResponse
parseMessage
    = let
        loop ::
          AuthUserListResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
             -> Data.ProtoLens.Encoding.Bytes.Parser AuthUserListResponse
        loop :: AuthUserListResponse
-> Growing Vector RealWorld Text -> Parser AuthUserListResponse
loop AuthUserListResponse
x Growing Vector RealWorld Text
mutable'users
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'users <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'users)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'users") frozen'users x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'users
                        Word64
18
                          -> do !y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.getText
                                              (Prelude.fromIntegral len))
                                        String
"users"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'users y)
                                loop x v
                        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)
                                  mutable'users
      in
        Parser AuthUserListResponse
-> String -> Parser AuthUserListResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'users <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld Text)
IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'users)
          String
"AuthUserListResponse"
  buildMessage :: AuthUserListResponse -> Builder
buildMessage
    = \ AuthUserListResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthUserListResponse
  AuthUserListResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthUserListResponse -> Maybe ResponseHeader
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'header") AuthUserListResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ Text
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                              Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                   (FoldLike
  (Vector Text)
  AuthUserListResponse
  AuthUserListResponse
  (Vector Text)
  (Vector Text)
-> AuthUserListResponse -> Vector Text
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 @"vec'users") AuthUserListResponse
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  AuthUserListResponse
  AuthUserListResponse
  FieldSet
  FieldSet
-> AuthUserListResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthUserListResponse
  AuthUserListResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthUserListResponse FieldSet
Data.ProtoLens.unknownFields AuthUserListResponse
_x)))
instance Control.DeepSeq.NFData AuthUserListResponse where
  rnf :: AuthUserListResponse -> ()
rnf
    = \ AuthUserListResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthUserListResponse -> FieldSet
_AuthUserListResponse'_unknownFields AuthUserListResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthUserListResponse -> Maybe ResponseHeader
_AuthUserListResponse'header AuthUserListResponse
x__)
                (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthUserListResponse -> Vector Text
_AuthUserListResponse'users AuthUserListResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthUserRevokeRoleRequest Data.Text.Text@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.role' @:: Lens' AuthUserRevokeRoleRequest Data.Text.Text@ -}
data AuthUserRevokeRoleRequest
  = AuthUserRevokeRoleRequest'_constructor {AuthUserRevokeRoleRequest -> Text
_AuthUserRevokeRoleRequest'name :: !Data.Text.Text,
                                            AuthUserRevokeRoleRequest -> Text
_AuthUserRevokeRoleRequest'role :: !Data.Text.Text,
                                            AuthUserRevokeRoleRequest -> FieldSet
_AuthUserRevokeRoleRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool
(AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool)
-> (AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool)
-> Eq AuthUserRevokeRoleRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool
== :: AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool
$c/= :: AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool
/= :: AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool
Prelude.Eq, Eq AuthUserRevokeRoleRequest
Eq AuthUserRevokeRoleRequest =>
(AuthUserRevokeRoleRequest
 -> AuthUserRevokeRoleRequest -> Ordering)
-> (AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool)
-> (AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool)
-> (AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool)
-> (AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool)
-> (AuthUserRevokeRoleRequest
    -> AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest)
-> (AuthUserRevokeRoleRequest
    -> AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest)
-> Ord AuthUserRevokeRoleRequest
AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool
AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Ordering
AuthUserRevokeRoleRequest
-> AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest
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 :: AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Ordering
compare :: AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Ordering
$c< :: AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool
< :: AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool
$c<= :: AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool
<= :: AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool
$c> :: AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool
> :: AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool
$c>= :: AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool
>= :: AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest -> Bool
$cmax :: AuthUserRevokeRoleRequest
-> AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest
max :: AuthUserRevokeRoleRequest
-> AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest
$cmin :: AuthUserRevokeRoleRequest
-> AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest
min :: AuthUserRevokeRoleRequest
-> AuthUserRevokeRoleRequest -> AuthUserRevokeRoleRequest
Prelude.Ord)
instance Prelude.Show AuthUserRevokeRoleRequest where
  showsPrec :: Int -> AuthUserRevokeRoleRequest -> ShowS
showsPrec Int
_ AuthUserRevokeRoleRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthUserRevokeRoleRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthUserRevokeRoleRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthUserRevokeRoleRequest "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name"
-> (Text -> f Text)
-> AuthUserRevokeRoleRequest
-> f AuthUserRevokeRoleRequest
fieldOf Proxy# "name"
_
    = ((Text -> f Text)
 -> AuthUserRevokeRoleRequest -> f AuthUserRevokeRoleRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthUserRevokeRoleRequest
-> f AuthUserRevokeRoleRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserRevokeRoleRequest -> Text)
-> (AuthUserRevokeRoleRequest -> Text -> AuthUserRevokeRoleRequest)
-> Lens
     AuthUserRevokeRoleRequest AuthUserRevokeRoleRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserRevokeRoleRequest -> Text
_AuthUserRevokeRoleRequest'name
           (\ AuthUserRevokeRoleRequest
x__ Text
y__ -> AuthUserRevokeRoleRequest
x__ {_AuthUserRevokeRoleRequest'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthUserRevokeRoleRequest "role" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "role"
-> (Text -> f Text)
-> AuthUserRevokeRoleRequest
-> f AuthUserRevokeRoleRequest
fieldOf Proxy# "role"
_
    = ((Text -> f Text)
 -> AuthUserRevokeRoleRequest -> f AuthUserRevokeRoleRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthUserRevokeRoleRequest
-> f AuthUserRevokeRoleRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserRevokeRoleRequest -> Text)
-> (AuthUserRevokeRoleRequest -> Text -> AuthUserRevokeRoleRequest)
-> Lens
     AuthUserRevokeRoleRequest AuthUserRevokeRoleRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserRevokeRoleRequest -> Text
_AuthUserRevokeRoleRequest'role
           (\ AuthUserRevokeRoleRequest
x__ Text
y__ -> AuthUserRevokeRoleRequest
x__ {_AuthUserRevokeRoleRequest'role = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthUserRevokeRoleRequest where
  messageName :: Proxy AuthUserRevokeRoleRequest -> Text
messageName Proxy AuthUserRevokeRoleRequest
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.AuthUserRevokeRoleRequest"
  packedMessageDescriptor :: Proxy AuthUserRevokeRoleRequest -> ByteString
packedMessageDescriptor Proxy AuthUserRevokeRoleRequest
_
    = ByteString
"\n\
      \\EMAuthUserRevokeRoleRequest\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\DC2\n\
      \\EOTrole\CAN\STX \SOH(\tR\EOTrole:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthUserRevokeRoleRequest -> ByteString
packedFileDescriptor Proxy AuthUserRevokeRoleRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthUserRevokeRoleRequest)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor AuthUserRevokeRoleRequest
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthUserRevokeRoleRequest Text
-> FieldDescriptor AuthUserRevokeRoleRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     AuthUserRevokeRoleRequest AuthUserRevokeRoleRequest Text Text
-> FieldAccessor AuthUserRevokeRoleRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"name")) ::
              Data.ProtoLens.FieldDescriptor AuthUserRevokeRoleRequest
        role__field_descriptor :: FieldDescriptor AuthUserRevokeRoleRequest
role__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthUserRevokeRoleRequest Text
-> FieldDescriptor AuthUserRevokeRoleRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"role"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     AuthUserRevokeRoleRequest AuthUserRevokeRoleRequest Text Text
-> FieldAccessor AuthUserRevokeRoleRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"role")) ::
              Data.ProtoLens.FieldDescriptor AuthUserRevokeRoleRequest
      in
        [(Tag, FieldDescriptor AuthUserRevokeRoleRequest)]
-> Map Tag (FieldDescriptor AuthUserRevokeRoleRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthUserRevokeRoleRequest
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AuthUserRevokeRoleRequest
role__field_descriptor)]
  unknownFields :: Lens' AuthUserRevokeRoleRequest FieldSet
unknownFields
    = (AuthUserRevokeRoleRequest -> FieldSet)
-> (AuthUserRevokeRoleRequest
    -> FieldSet -> AuthUserRevokeRoleRequest)
-> Lens' AuthUserRevokeRoleRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthUserRevokeRoleRequest -> FieldSet
_AuthUserRevokeRoleRequest'_unknownFields
        (\ AuthUserRevokeRoleRequest
x__ FieldSet
y__
           -> AuthUserRevokeRoleRequest
x__ {_AuthUserRevokeRoleRequest'_unknownFields = y__})
  defMessage :: AuthUserRevokeRoleRequest
defMessage
    = AuthUserRevokeRoleRequest'_constructor
        {_AuthUserRevokeRoleRequest'name :: Text
_AuthUserRevokeRoleRequest'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthUserRevokeRoleRequest'role :: Text
_AuthUserRevokeRoleRequest'role = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthUserRevokeRoleRequest'_unknownFields :: FieldSet
_AuthUserRevokeRoleRequest'_unknownFields = []}
  parseMessage :: Parser AuthUserRevokeRoleRequest
parseMessage
    = let
        loop ::
          AuthUserRevokeRoleRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthUserRevokeRoleRequest
        loop :: AuthUserRevokeRoleRequest -> Parser AuthUserRevokeRoleRequest
loop AuthUserRevokeRoleRequest
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 Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"role"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"role") 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 AuthUserRevokeRoleRequest
-> String -> Parser AuthUserRevokeRoleRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthUserRevokeRoleRequest -> Parser AuthUserRevokeRoleRequest
loop AuthUserRevokeRoleRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthUserRevokeRoleRequest"
  buildMessage :: AuthUserRevokeRoleRequest -> Builder
buildMessage
    = \ AuthUserRevokeRoleRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text AuthUserRevokeRoleRequest AuthUserRevokeRoleRequest Text Text
-> AuthUserRevokeRoleRequest -> Text
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 @"name") AuthUserRevokeRoleRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> Builder) -> (Text -> ByteString) -> Text -> 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: Text
_v = FoldLike
  Text AuthUserRevokeRoleRequest AuthUserRevokeRoleRequest Text Text
-> AuthUserRevokeRoleRequest -> Text
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 @"role") AuthUserRevokeRoleRequest
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  AuthUserRevokeRoleRequest
  AuthUserRevokeRoleRequest
  FieldSet
  FieldSet
-> AuthUserRevokeRoleRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthUserRevokeRoleRequest
  AuthUserRevokeRoleRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthUserRevokeRoleRequest FieldSet
Data.ProtoLens.unknownFields AuthUserRevokeRoleRequest
_x)))
instance Control.DeepSeq.NFData AuthUserRevokeRoleRequest where
  rnf :: AuthUserRevokeRoleRequest -> ()
rnf
    = \ AuthUserRevokeRoleRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthUserRevokeRoleRequest -> FieldSet
_AuthUserRevokeRoleRequest'_unknownFields AuthUserRevokeRoleRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthUserRevokeRoleRequest -> Text
_AuthUserRevokeRoleRequest'name AuthUserRevokeRoleRequest
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthUserRevokeRoleRequest -> Text
_AuthUserRevokeRoleRequest'role AuthUserRevokeRoleRequest
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthUserRevokeRoleResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthUserRevokeRoleResponse (Prelude.Maybe ResponseHeader)@ -}
data AuthUserRevokeRoleResponse
  = AuthUserRevokeRoleResponse'_constructor {AuthUserRevokeRoleResponse -> Maybe ResponseHeader
_AuthUserRevokeRoleResponse'header :: !(Prelude.Maybe ResponseHeader),
                                             AuthUserRevokeRoleResponse -> FieldSet
_AuthUserRevokeRoleResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse -> Bool
(AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse -> Bool)
-> (AuthUserRevokeRoleResponse
    -> AuthUserRevokeRoleResponse -> Bool)
-> Eq AuthUserRevokeRoleResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse -> Bool
== :: AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse -> Bool
$c/= :: AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse -> Bool
/= :: AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse -> Bool
Prelude.Eq, Eq AuthUserRevokeRoleResponse
Eq AuthUserRevokeRoleResponse =>
(AuthUserRevokeRoleResponse
 -> AuthUserRevokeRoleResponse -> Ordering)
-> (AuthUserRevokeRoleResponse
    -> AuthUserRevokeRoleResponse -> Bool)
-> (AuthUserRevokeRoleResponse
    -> AuthUserRevokeRoleResponse -> Bool)
-> (AuthUserRevokeRoleResponse
    -> AuthUserRevokeRoleResponse -> Bool)
-> (AuthUserRevokeRoleResponse
    -> AuthUserRevokeRoleResponse -> Bool)
-> (AuthUserRevokeRoleResponse
    -> AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse)
-> (AuthUserRevokeRoleResponse
    -> AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse)
-> Ord AuthUserRevokeRoleResponse
AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse -> Bool
AuthUserRevokeRoleResponse
-> AuthUserRevokeRoleResponse -> Ordering
AuthUserRevokeRoleResponse
-> AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse
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 :: AuthUserRevokeRoleResponse
-> AuthUserRevokeRoleResponse -> Ordering
compare :: AuthUserRevokeRoleResponse
-> AuthUserRevokeRoleResponse -> Ordering
$c< :: AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse -> Bool
< :: AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse -> Bool
$c<= :: AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse -> Bool
<= :: AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse -> Bool
$c> :: AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse -> Bool
> :: AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse -> Bool
$c>= :: AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse -> Bool
>= :: AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse -> Bool
$cmax :: AuthUserRevokeRoleResponse
-> AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse
max :: AuthUserRevokeRoleResponse
-> AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse
$cmin :: AuthUserRevokeRoleResponse
-> AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse
min :: AuthUserRevokeRoleResponse
-> AuthUserRevokeRoleResponse -> AuthUserRevokeRoleResponse
Prelude.Ord)
instance Prelude.Show AuthUserRevokeRoleResponse where
  showsPrec :: Int -> AuthUserRevokeRoleResponse -> ShowS
showsPrec Int
_ AuthUserRevokeRoleResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthUserRevokeRoleResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthUserRevokeRoleResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthUserRevokeRoleResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthUserRevokeRoleResponse
-> f AuthUserRevokeRoleResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthUserRevokeRoleResponse -> f AuthUserRevokeRoleResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthUserRevokeRoleResponse
-> f AuthUserRevokeRoleResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserRevokeRoleResponse -> Maybe ResponseHeader)
-> (AuthUserRevokeRoleResponse
    -> Maybe ResponseHeader -> AuthUserRevokeRoleResponse)
-> Lens
     AuthUserRevokeRoleResponse
     AuthUserRevokeRoleResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserRevokeRoleResponse -> Maybe ResponseHeader
_AuthUserRevokeRoleResponse'header
           (\ AuthUserRevokeRoleResponse
x__ Maybe ResponseHeader
y__ -> AuthUserRevokeRoleResponse
x__ {_AuthUserRevokeRoleResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthUserRevokeRoleResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthUserRevokeRoleResponse
-> f AuthUserRevokeRoleResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthUserRevokeRoleResponse -> f AuthUserRevokeRoleResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthUserRevokeRoleResponse
-> f AuthUserRevokeRoleResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthUserRevokeRoleResponse -> Maybe ResponseHeader)
-> (AuthUserRevokeRoleResponse
    -> Maybe ResponseHeader -> AuthUserRevokeRoleResponse)
-> Lens
     AuthUserRevokeRoleResponse
     AuthUserRevokeRoleResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthUserRevokeRoleResponse -> Maybe ResponseHeader
_AuthUserRevokeRoleResponse'header
           (\ AuthUserRevokeRoleResponse
x__ Maybe ResponseHeader
y__ -> AuthUserRevokeRoleResponse
x__ {_AuthUserRevokeRoleResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthUserRevokeRoleResponse where
  messageName :: Proxy AuthUserRevokeRoleResponse -> Text
messageName Proxy AuthUserRevokeRoleResponse
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.AuthUserRevokeRoleResponse"
  packedMessageDescriptor :: Proxy AuthUserRevokeRoleResponse -> ByteString
packedMessageDescriptor Proxy AuthUserRevokeRoleResponse
_
    = ByteString
"\n\
      \\SUBAuthUserRevokeRoleResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthUserRevokeRoleResponse -> ByteString
packedFileDescriptor Proxy AuthUserRevokeRoleResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthUserRevokeRoleResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthUserRevokeRoleResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthUserRevokeRoleResponse ResponseHeader
-> FieldDescriptor AuthUserRevokeRoleResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthUserRevokeRoleResponse
  AuthUserRevokeRoleResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthUserRevokeRoleResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthUserRevokeRoleResponse
      in
        [(Tag, FieldDescriptor AuthUserRevokeRoleResponse)]
-> Map Tag (FieldDescriptor AuthUserRevokeRoleResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthUserRevokeRoleResponse
header__field_descriptor)]
  unknownFields :: Lens' AuthUserRevokeRoleResponse FieldSet
unknownFields
    = (AuthUserRevokeRoleResponse -> FieldSet)
-> (AuthUserRevokeRoleResponse
    -> FieldSet -> AuthUserRevokeRoleResponse)
-> Lens' AuthUserRevokeRoleResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthUserRevokeRoleResponse -> FieldSet
_AuthUserRevokeRoleResponse'_unknownFields
        (\ AuthUserRevokeRoleResponse
x__ FieldSet
y__
           -> AuthUserRevokeRoleResponse
x__ {_AuthUserRevokeRoleResponse'_unknownFields = y__})
  defMessage :: AuthUserRevokeRoleResponse
defMessage
    = AuthUserRevokeRoleResponse'_constructor
        {_AuthUserRevokeRoleResponse'header :: Maybe ResponseHeader
_AuthUserRevokeRoleResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthUserRevokeRoleResponse'_unknownFields :: FieldSet
_AuthUserRevokeRoleResponse'_unknownFields = []}
  parseMessage :: Parser AuthUserRevokeRoleResponse
parseMessage
    = let
        loop ::
          AuthUserRevokeRoleResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthUserRevokeRoleResponse
        loop :: AuthUserRevokeRoleResponse -> Parser AuthUserRevokeRoleResponse
loop AuthUserRevokeRoleResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 AuthUserRevokeRoleResponse
-> String -> Parser AuthUserRevokeRoleResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthUserRevokeRoleResponse -> Parser AuthUserRevokeRoleResponse
loop AuthUserRevokeRoleResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthUserRevokeRoleResponse"
  buildMessage :: AuthUserRevokeRoleResponse -> Builder
buildMessage
    = \ AuthUserRevokeRoleResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthUserRevokeRoleResponse
  AuthUserRevokeRoleResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthUserRevokeRoleResponse -> Maybe ResponseHeader
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'header") AuthUserRevokeRoleResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  AuthUserRevokeRoleResponse
  AuthUserRevokeRoleResponse
  FieldSet
  FieldSet
-> AuthUserRevokeRoleResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthUserRevokeRoleResponse
  AuthUserRevokeRoleResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthUserRevokeRoleResponse FieldSet
Data.ProtoLens.unknownFields AuthUserRevokeRoleResponse
_x))
instance Control.DeepSeq.NFData AuthUserRevokeRoleResponse where
  rnf :: AuthUserRevokeRoleResponse -> ()
rnf
    = \ AuthUserRevokeRoleResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthUserRevokeRoleResponse -> FieldSet
_AuthUserRevokeRoleResponse'_unknownFields AuthUserRevokeRoleResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthUserRevokeRoleResponse -> Maybe ResponseHeader
_AuthUserRevokeRoleResponse'header AuthUserRevokeRoleResponse
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthenticateRequest Data.Text.Text@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.password' @:: Lens' AuthenticateRequest Data.Text.Text@ -}
data AuthenticateRequest
  = AuthenticateRequest'_constructor {AuthenticateRequest -> Text
_AuthenticateRequest'name :: !Data.Text.Text,
                                      AuthenticateRequest -> Text
_AuthenticateRequest'password :: !Data.Text.Text,
                                      AuthenticateRequest -> FieldSet
_AuthenticateRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthenticateRequest -> AuthenticateRequest -> Bool
(AuthenticateRequest -> AuthenticateRequest -> Bool)
-> (AuthenticateRequest -> AuthenticateRequest -> Bool)
-> Eq AuthenticateRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthenticateRequest -> AuthenticateRequest -> Bool
== :: AuthenticateRequest -> AuthenticateRequest -> Bool
$c/= :: AuthenticateRequest -> AuthenticateRequest -> Bool
/= :: AuthenticateRequest -> AuthenticateRequest -> Bool
Prelude.Eq, Eq AuthenticateRequest
Eq AuthenticateRequest =>
(AuthenticateRequest -> AuthenticateRequest -> Ordering)
-> (AuthenticateRequest -> AuthenticateRequest -> Bool)
-> (AuthenticateRequest -> AuthenticateRequest -> Bool)
-> (AuthenticateRequest -> AuthenticateRequest -> Bool)
-> (AuthenticateRequest -> AuthenticateRequest -> Bool)
-> (AuthenticateRequest
    -> AuthenticateRequest -> AuthenticateRequest)
-> (AuthenticateRequest
    -> AuthenticateRequest -> AuthenticateRequest)
-> Ord AuthenticateRequest
AuthenticateRequest -> AuthenticateRequest -> Bool
AuthenticateRequest -> AuthenticateRequest -> Ordering
AuthenticateRequest -> AuthenticateRequest -> AuthenticateRequest
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 :: AuthenticateRequest -> AuthenticateRequest -> Ordering
compare :: AuthenticateRequest -> AuthenticateRequest -> Ordering
$c< :: AuthenticateRequest -> AuthenticateRequest -> Bool
< :: AuthenticateRequest -> AuthenticateRequest -> Bool
$c<= :: AuthenticateRequest -> AuthenticateRequest -> Bool
<= :: AuthenticateRequest -> AuthenticateRequest -> Bool
$c> :: AuthenticateRequest -> AuthenticateRequest -> Bool
> :: AuthenticateRequest -> AuthenticateRequest -> Bool
$c>= :: AuthenticateRequest -> AuthenticateRequest -> Bool
>= :: AuthenticateRequest -> AuthenticateRequest -> Bool
$cmax :: AuthenticateRequest -> AuthenticateRequest -> AuthenticateRequest
max :: AuthenticateRequest -> AuthenticateRequest -> AuthenticateRequest
$cmin :: AuthenticateRequest -> AuthenticateRequest -> AuthenticateRequest
min :: AuthenticateRequest -> AuthenticateRequest -> AuthenticateRequest
Prelude.Ord)
instance Prelude.Show AuthenticateRequest where
  showsPrec :: Int -> AuthenticateRequest -> ShowS
showsPrec Int
_ AuthenticateRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthenticateRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthenticateRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthenticateRequest "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name"
-> (Text -> f Text) -> AuthenticateRequest -> f AuthenticateRequest
fieldOf Proxy# "name"
_
    = ((Text -> f Text) -> AuthenticateRequest -> f AuthenticateRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthenticateRequest
-> f AuthenticateRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthenticateRequest -> Text)
-> (AuthenticateRequest -> Text -> AuthenticateRequest)
-> Lens AuthenticateRequest AuthenticateRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthenticateRequest -> Text
_AuthenticateRequest'name
           (\ AuthenticateRequest
x__ Text
y__ -> AuthenticateRequest
x__ {_AuthenticateRequest'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthenticateRequest "password" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "password"
-> (Text -> f Text) -> AuthenticateRequest -> f AuthenticateRequest
fieldOf Proxy# "password"
_
    = ((Text -> f Text) -> AuthenticateRequest -> f AuthenticateRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthenticateRequest
-> f AuthenticateRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthenticateRequest -> Text)
-> (AuthenticateRequest -> Text -> AuthenticateRequest)
-> Lens AuthenticateRequest AuthenticateRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthenticateRequest -> Text
_AuthenticateRequest'password
           (\ AuthenticateRequest
x__ Text
y__ -> AuthenticateRequest
x__ {_AuthenticateRequest'password = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthenticateRequest where
  messageName :: Proxy AuthenticateRequest -> Text
messageName Proxy AuthenticateRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthenticateRequest"
  packedMessageDescriptor :: Proxy AuthenticateRequest -> ByteString
packedMessageDescriptor Proxy AuthenticateRequest
_
    = ByteString
"\n\
      \\DC3AuthenticateRequest\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\SUB\n\
      \\bpassword\CAN\STX \SOH(\tR\bpassword:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthenticateRequest -> ByteString
packedFileDescriptor Proxy AuthenticateRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthenticateRequest)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor AuthenticateRequest
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthenticateRequest Text
-> FieldDescriptor AuthenticateRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AuthenticateRequest AuthenticateRequest Text Text
-> FieldAccessor AuthenticateRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"name")) ::
              Data.ProtoLens.FieldDescriptor AuthenticateRequest
        password__field_descriptor :: FieldDescriptor AuthenticateRequest
password__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthenticateRequest Text
-> FieldDescriptor AuthenticateRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"password"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AuthenticateRequest AuthenticateRequest Text Text
-> FieldAccessor AuthenticateRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"password")) ::
              Data.ProtoLens.FieldDescriptor AuthenticateRequest
      in
        [(Tag, FieldDescriptor AuthenticateRequest)]
-> Map Tag (FieldDescriptor AuthenticateRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthenticateRequest
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AuthenticateRequest
password__field_descriptor)]
  unknownFields :: Lens' AuthenticateRequest FieldSet
unknownFields
    = (AuthenticateRequest -> FieldSet)
-> (AuthenticateRequest -> FieldSet -> AuthenticateRequest)
-> Lens' AuthenticateRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthenticateRequest -> FieldSet
_AuthenticateRequest'_unknownFields
        (\ AuthenticateRequest
x__ FieldSet
y__ -> AuthenticateRequest
x__ {_AuthenticateRequest'_unknownFields = y__})
  defMessage :: AuthenticateRequest
defMessage
    = AuthenticateRequest'_constructor
        {_AuthenticateRequest'name :: Text
_AuthenticateRequest'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthenticateRequest'password :: Text
_AuthenticateRequest'password = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthenticateRequest'_unknownFields :: FieldSet
_AuthenticateRequest'_unknownFields = []}
  parseMessage :: Parser AuthenticateRequest
parseMessage
    = let
        loop ::
          AuthenticateRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthenticateRequest
        loop :: AuthenticateRequest -> Parser AuthenticateRequest
loop AuthenticateRequest
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 Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"password"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"password") 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 AuthenticateRequest -> String -> Parser AuthenticateRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthenticateRequest -> Parser AuthenticateRequest
loop AuthenticateRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthenticateRequest"
  buildMessage :: AuthenticateRequest -> Builder
buildMessage
    = \ AuthenticateRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text AuthenticateRequest AuthenticateRequest Text Text
-> AuthenticateRequest -> Text
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 @"name") AuthenticateRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> Builder) -> (Text -> ByteString) -> Text -> 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike Text AuthenticateRequest AuthenticateRequest Text Text
-> AuthenticateRequest -> Text
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 @"password") AuthenticateRequest
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet AuthenticateRequest AuthenticateRequest FieldSet FieldSet
-> AuthenticateRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AuthenticateRequest AuthenticateRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthenticateRequest FieldSet
Data.ProtoLens.unknownFields AuthenticateRequest
_x)))
instance Control.DeepSeq.NFData AuthenticateRequest where
  rnf :: AuthenticateRequest -> ()
rnf
    = \ AuthenticateRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthenticateRequest -> FieldSet
_AuthenticateRequest'_unknownFields AuthenticateRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthenticateRequest -> Text
_AuthenticateRequest'name AuthenticateRequest
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthenticateRequest -> Text
_AuthenticateRequest'password AuthenticateRequest
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthenticateResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthenticateResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.token' @:: Lens' AuthenticateResponse Data.Text.Text@ -}
data AuthenticateResponse
  = AuthenticateResponse'_constructor {AuthenticateResponse -> Maybe ResponseHeader
_AuthenticateResponse'header :: !(Prelude.Maybe ResponseHeader),
                                       AuthenticateResponse -> Text
_AuthenticateResponse'token :: !Data.Text.Text,
                                       AuthenticateResponse -> FieldSet
_AuthenticateResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AuthenticateResponse -> AuthenticateResponse -> Bool
(AuthenticateResponse -> AuthenticateResponse -> Bool)
-> (AuthenticateResponse -> AuthenticateResponse -> Bool)
-> Eq AuthenticateResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: AuthenticateResponse -> AuthenticateResponse -> Bool
== :: AuthenticateResponse -> AuthenticateResponse -> Bool
$c/= :: AuthenticateResponse -> AuthenticateResponse -> Bool
/= :: AuthenticateResponse -> AuthenticateResponse -> Bool
Prelude.Eq, Eq AuthenticateResponse
Eq AuthenticateResponse =>
(AuthenticateResponse -> AuthenticateResponse -> Ordering)
-> (AuthenticateResponse -> AuthenticateResponse -> Bool)
-> (AuthenticateResponse -> AuthenticateResponse -> Bool)
-> (AuthenticateResponse -> AuthenticateResponse -> Bool)
-> (AuthenticateResponse -> AuthenticateResponse -> Bool)
-> (AuthenticateResponse
    -> AuthenticateResponse -> AuthenticateResponse)
-> (AuthenticateResponse
    -> AuthenticateResponse -> AuthenticateResponse)
-> Ord AuthenticateResponse
AuthenticateResponse -> AuthenticateResponse -> Bool
AuthenticateResponse -> AuthenticateResponse -> Ordering
AuthenticateResponse
-> AuthenticateResponse -> AuthenticateResponse
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 :: AuthenticateResponse -> AuthenticateResponse -> Ordering
compare :: AuthenticateResponse -> AuthenticateResponse -> Ordering
$c< :: AuthenticateResponse -> AuthenticateResponse -> Bool
< :: AuthenticateResponse -> AuthenticateResponse -> Bool
$c<= :: AuthenticateResponse -> AuthenticateResponse -> Bool
<= :: AuthenticateResponse -> AuthenticateResponse -> Bool
$c> :: AuthenticateResponse -> AuthenticateResponse -> Bool
> :: AuthenticateResponse -> AuthenticateResponse -> Bool
$c>= :: AuthenticateResponse -> AuthenticateResponse -> Bool
>= :: AuthenticateResponse -> AuthenticateResponse -> Bool
$cmax :: AuthenticateResponse
-> AuthenticateResponse -> AuthenticateResponse
max :: AuthenticateResponse
-> AuthenticateResponse -> AuthenticateResponse
$cmin :: AuthenticateResponse
-> AuthenticateResponse -> AuthenticateResponse
min :: AuthenticateResponse
-> AuthenticateResponse -> AuthenticateResponse
Prelude.Ord)
instance Prelude.Show AuthenticateResponse where
  showsPrec :: Int -> AuthenticateResponse -> ShowS
showsPrec Int
_ AuthenticateResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (AuthenticateResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AuthenticateResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField AuthenticateResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> AuthenticateResponse
-> f AuthenticateResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthenticateResponse -> f AuthenticateResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> AuthenticateResponse
-> f AuthenticateResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthenticateResponse -> Maybe ResponseHeader)
-> (AuthenticateResponse
    -> Maybe ResponseHeader -> AuthenticateResponse)
-> Lens
     AuthenticateResponse
     AuthenticateResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthenticateResponse -> Maybe ResponseHeader
_AuthenticateResponse'header
           (\ AuthenticateResponse
x__ Maybe ResponseHeader
y__ -> AuthenticateResponse
x__ {_AuthenticateResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AuthenticateResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthenticateResponse
-> f AuthenticateResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> AuthenticateResponse -> f AuthenticateResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> AuthenticateResponse
-> f AuthenticateResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthenticateResponse -> Maybe ResponseHeader)
-> (AuthenticateResponse
    -> Maybe ResponseHeader -> AuthenticateResponse)
-> Lens
     AuthenticateResponse
     AuthenticateResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthenticateResponse -> Maybe ResponseHeader
_AuthenticateResponse'header
           (\ AuthenticateResponse
x__ Maybe ResponseHeader
y__ -> AuthenticateResponse
x__ {_AuthenticateResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AuthenticateResponse "token" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "token"
-> (Text -> f Text)
-> AuthenticateResponse
-> f AuthenticateResponse
fieldOf Proxy# "token"
_
    = ((Text -> f Text)
 -> AuthenticateResponse -> f AuthenticateResponse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AuthenticateResponse
-> f AuthenticateResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AuthenticateResponse -> Text)
-> (AuthenticateResponse -> Text -> AuthenticateResponse)
-> Lens AuthenticateResponse AuthenticateResponse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AuthenticateResponse -> Text
_AuthenticateResponse'token
           (\ AuthenticateResponse
x__ Text
y__ -> AuthenticateResponse
x__ {_AuthenticateResponse'token = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AuthenticateResponse where
  messageName :: Proxy AuthenticateResponse -> Text
messageName Proxy AuthenticateResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.AuthenticateResponse"
  packedMessageDescriptor :: Proxy AuthenticateResponse -> ByteString
packedMessageDescriptor Proxy AuthenticateResponse
_
    = ByteString
"\n\
      \\DC4AuthenticateResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\DC4\n\
      \\ENQtoken\CAN\STX \SOH(\tR\ENQtoken:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy AuthenticateResponse -> ByteString
packedFileDescriptor Proxy AuthenticateResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AuthenticateResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor AuthenticateResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor AuthenticateResponse ResponseHeader
-> FieldDescriptor AuthenticateResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  AuthenticateResponse
  AuthenticateResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor AuthenticateResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor AuthenticateResponse
        token__field_descriptor :: FieldDescriptor AuthenticateResponse
token__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AuthenticateResponse Text
-> FieldDescriptor AuthenticateResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"token"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AuthenticateResponse AuthenticateResponse Text Text
-> FieldAccessor AuthenticateResponse Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"token")) ::
              Data.ProtoLens.FieldDescriptor AuthenticateResponse
      in
        [(Tag, FieldDescriptor AuthenticateResponse)]
-> Map Tag (FieldDescriptor AuthenticateResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor AuthenticateResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor AuthenticateResponse
token__field_descriptor)]
  unknownFields :: Lens' AuthenticateResponse FieldSet
unknownFields
    = (AuthenticateResponse -> FieldSet)
-> (AuthenticateResponse -> FieldSet -> AuthenticateResponse)
-> Lens' AuthenticateResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AuthenticateResponse -> FieldSet
_AuthenticateResponse'_unknownFields
        (\ AuthenticateResponse
x__ FieldSet
y__ -> AuthenticateResponse
x__ {_AuthenticateResponse'_unknownFields = y__})
  defMessage :: AuthenticateResponse
defMessage
    = AuthenticateResponse'_constructor
        {_AuthenticateResponse'header :: Maybe ResponseHeader
_AuthenticateResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _AuthenticateResponse'token :: Text
_AuthenticateResponse'token = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AuthenticateResponse'_unknownFields :: FieldSet
_AuthenticateResponse'_unknownFields = []}
  parseMessage :: Parser AuthenticateResponse
parseMessage
    = let
        loop ::
          AuthenticateResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser AuthenticateResponse
        loop :: AuthenticateResponse -> Parser AuthenticateResponse
loop AuthenticateResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"token"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"token") 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 AuthenticateResponse
-> String -> Parser AuthenticateResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AuthenticateResponse -> Parser AuthenticateResponse
loop AuthenticateResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"AuthenticateResponse"
  buildMessage :: AuthenticateResponse -> Builder
buildMessage
    = \ AuthenticateResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  AuthenticateResponse
  AuthenticateResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> AuthenticateResponse -> Maybe ResponseHeader
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'header") AuthenticateResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike Text AuthenticateResponse AuthenticateResponse Text Text
-> AuthenticateResponse -> Text
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 @"token") AuthenticateResponse
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  AuthenticateResponse
  AuthenticateResponse
  FieldSet
  FieldSet
-> AuthenticateResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  AuthenticateResponse
  AuthenticateResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' AuthenticateResponse FieldSet
Data.ProtoLens.unknownFields AuthenticateResponse
_x)))
instance Control.DeepSeq.NFData AuthenticateResponse where
  rnf :: AuthenticateResponse -> ()
rnf
    = \ AuthenticateResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AuthenticateResponse -> FieldSet
_AuthenticateResponse'_unknownFields AuthenticateResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AuthenticateResponse -> Maybe ResponseHeader
_AuthenticateResponse'header AuthenticateResponse
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AuthenticateResponse -> Text
_AuthenticateResponse'token AuthenticateResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.revision' @:: Lens' CompactionRequest Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.physical' @:: Lens' CompactionRequest Prelude.Bool@ -}
data CompactionRequest
  = CompactionRequest'_constructor {CompactionRequest -> Int64
_CompactionRequest'revision :: !Data.Int.Int64,
                                    CompactionRequest -> Bool
_CompactionRequest'physical :: !Prelude.Bool,
                                    CompactionRequest -> FieldSet
_CompactionRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CompactionRequest -> CompactionRequest -> Bool
(CompactionRequest -> CompactionRequest -> Bool)
-> (CompactionRequest -> CompactionRequest -> Bool)
-> Eq CompactionRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CompactionRequest -> CompactionRequest -> Bool
== :: CompactionRequest -> CompactionRequest -> Bool
$c/= :: CompactionRequest -> CompactionRequest -> Bool
/= :: CompactionRequest -> CompactionRequest -> Bool
Prelude.Eq, Eq CompactionRequest
Eq CompactionRequest =>
(CompactionRequest -> CompactionRequest -> Ordering)
-> (CompactionRequest -> CompactionRequest -> Bool)
-> (CompactionRequest -> CompactionRequest -> Bool)
-> (CompactionRequest -> CompactionRequest -> Bool)
-> (CompactionRequest -> CompactionRequest -> Bool)
-> (CompactionRequest -> CompactionRequest -> CompactionRequest)
-> (CompactionRequest -> CompactionRequest -> CompactionRequest)
-> Ord CompactionRequest
CompactionRequest -> CompactionRequest -> Bool
CompactionRequest -> CompactionRequest -> Ordering
CompactionRequest -> CompactionRequest -> CompactionRequest
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 :: CompactionRequest -> CompactionRequest -> Ordering
compare :: CompactionRequest -> CompactionRequest -> Ordering
$c< :: CompactionRequest -> CompactionRequest -> Bool
< :: CompactionRequest -> CompactionRequest -> Bool
$c<= :: CompactionRequest -> CompactionRequest -> Bool
<= :: CompactionRequest -> CompactionRequest -> Bool
$c> :: CompactionRequest -> CompactionRequest -> Bool
> :: CompactionRequest -> CompactionRequest -> Bool
$c>= :: CompactionRequest -> CompactionRequest -> Bool
>= :: CompactionRequest -> CompactionRequest -> Bool
$cmax :: CompactionRequest -> CompactionRequest -> CompactionRequest
max :: CompactionRequest -> CompactionRequest -> CompactionRequest
$cmin :: CompactionRequest -> CompactionRequest -> CompactionRequest
min :: CompactionRequest -> CompactionRequest -> CompactionRequest
Prelude.Ord)
instance Prelude.Show CompactionRequest where
  showsPrec :: Int -> CompactionRequest -> ShowS
showsPrec Int
_ CompactionRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (CompactionRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CompactionRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CompactionRequest "revision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "revision"
-> (Int64 -> f Int64) -> CompactionRequest -> f CompactionRequest
fieldOf Proxy# "revision"
_
    = ((Int64 -> f Int64) -> CompactionRequest -> f CompactionRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> CompactionRequest
-> f CompactionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CompactionRequest -> Int64)
-> (CompactionRequest -> Int64 -> CompactionRequest)
-> Lens CompactionRequest CompactionRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CompactionRequest -> Int64
_CompactionRequest'revision
           (\ CompactionRequest
x__ Int64
y__ -> CompactionRequest
x__ {_CompactionRequest'revision = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CompactionRequest "physical" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "physical"
-> (Bool -> f Bool) -> CompactionRequest -> f CompactionRequest
fieldOf Proxy# "physical"
_
    = ((Bool -> f Bool) -> CompactionRequest -> f CompactionRequest)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> CompactionRequest
-> f CompactionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CompactionRequest -> Bool)
-> (CompactionRequest -> Bool -> CompactionRequest)
-> Lens CompactionRequest CompactionRequest Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CompactionRequest -> Bool
_CompactionRequest'physical
           (\ CompactionRequest
x__ Bool
y__ -> CompactionRequest
x__ {_CompactionRequest'physical = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CompactionRequest where
  messageName :: Proxy CompactionRequest -> Text
messageName Proxy CompactionRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.CompactionRequest"
  packedMessageDescriptor :: Proxy CompactionRequest -> ByteString
packedMessageDescriptor Proxy CompactionRequest
_
    = ByteString
"\n\
      \\DC1CompactionRequest\DC2\SUB\n\
      \\brevision\CAN\SOH \SOH(\ETXR\brevision\DC2\SUB\n\
      \\bphysical\CAN\STX \SOH(\bR\bphysical:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy CompactionRequest -> ByteString
packedFileDescriptor Proxy CompactionRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CompactionRequest)
fieldsByTag
    = let
        revision__field_descriptor :: FieldDescriptor CompactionRequest
revision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor CompactionRequest Int64
-> FieldDescriptor CompactionRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"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 CompactionRequest CompactionRequest Int64 Int64
-> FieldAccessor CompactionRequest 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 @"revision")) ::
              Data.ProtoLens.FieldDescriptor CompactionRequest
        physical__field_descriptor :: FieldDescriptor CompactionRequest
physical__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor CompactionRequest Bool
-> FieldDescriptor CompactionRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"physical"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens CompactionRequest CompactionRequest Bool Bool
-> FieldAccessor CompactionRequest Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"physical")) ::
              Data.ProtoLens.FieldDescriptor CompactionRequest
      in
        [(Tag, FieldDescriptor CompactionRequest)]
-> Map Tag (FieldDescriptor CompactionRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CompactionRequest
revision__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor CompactionRequest
physical__field_descriptor)]
  unknownFields :: Lens' CompactionRequest FieldSet
unknownFields
    = (CompactionRequest -> FieldSet)
-> (CompactionRequest -> FieldSet -> CompactionRequest)
-> Lens' CompactionRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CompactionRequest -> FieldSet
_CompactionRequest'_unknownFields
        (\ CompactionRequest
x__ FieldSet
y__ -> CompactionRequest
x__ {_CompactionRequest'_unknownFields = y__})
  defMessage :: CompactionRequest
defMessage
    = CompactionRequest'_constructor
        {_CompactionRequest'revision :: Int64
_CompactionRequest'revision = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _CompactionRequest'physical :: Bool
_CompactionRequest'physical = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _CompactionRequest'_unknownFields :: FieldSet
_CompactionRequest'_unknownFields = []}
  parseMessage :: Parser CompactionRequest
parseMessage
    = let
        loop ::
          CompactionRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser CompactionRequest
        loop :: CompactionRequest -> Parser CompactionRequest
loop CompactionRequest
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 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
"revision"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"revision") y x)
                        Word64
16
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"physical"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"physical") 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 CompactionRequest -> String -> Parser CompactionRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CompactionRequest -> Parser CompactionRequest
loop CompactionRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CompactionRequest"
  buildMessage :: CompactionRequest -> Builder
buildMessage
    = \ CompactionRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int64
_v = FoldLike Int64 CompactionRequest CompactionRequest Int64 Int64
-> CompactionRequest -> 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 @"revision") CompactionRequest
_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
8)
                      ((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 :: Bool
_v = FoldLike Bool CompactionRequest CompactionRequest Bool Bool
-> CompactionRequest -> Bool
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 @"physical") CompactionRequest
_x
                 in
                   if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                            Bool
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet CompactionRequest CompactionRequest FieldSet FieldSet
-> CompactionRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet CompactionRequest CompactionRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CompactionRequest FieldSet
Data.ProtoLens.unknownFields CompactionRequest
_x)))
instance Control.DeepSeq.NFData CompactionRequest where
  rnf :: CompactionRequest -> ()
rnf
    = \ CompactionRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CompactionRequest -> FieldSet
_CompactionRequest'_unknownFields CompactionRequest
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (CompactionRequest -> Int64
_CompactionRequest'revision CompactionRequest
x__)
                (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CompactionRequest -> Bool
_CompactionRequest'physical CompactionRequest
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' CompactionResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' CompactionResponse (Prelude.Maybe ResponseHeader)@ -}
data CompactionResponse
  = CompactionResponse'_constructor {CompactionResponse -> Maybe ResponseHeader
_CompactionResponse'header :: !(Prelude.Maybe ResponseHeader),
                                     CompactionResponse -> FieldSet
_CompactionResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CompactionResponse -> CompactionResponse -> Bool
(CompactionResponse -> CompactionResponse -> Bool)
-> (CompactionResponse -> CompactionResponse -> Bool)
-> Eq CompactionResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CompactionResponse -> CompactionResponse -> Bool
== :: CompactionResponse -> CompactionResponse -> Bool
$c/= :: CompactionResponse -> CompactionResponse -> Bool
/= :: CompactionResponse -> CompactionResponse -> Bool
Prelude.Eq, Eq CompactionResponse
Eq CompactionResponse =>
(CompactionResponse -> CompactionResponse -> Ordering)
-> (CompactionResponse -> CompactionResponse -> Bool)
-> (CompactionResponse -> CompactionResponse -> Bool)
-> (CompactionResponse -> CompactionResponse -> Bool)
-> (CompactionResponse -> CompactionResponse -> Bool)
-> (CompactionResponse -> CompactionResponse -> CompactionResponse)
-> (CompactionResponse -> CompactionResponse -> CompactionResponse)
-> Ord CompactionResponse
CompactionResponse -> CompactionResponse -> Bool
CompactionResponse -> CompactionResponse -> Ordering
CompactionResponse -> CompactionResponse -> CompactionResponse
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 :: CompactionResponse -> CompactionResponse -> Ordering
compare :: CompactionResponse -> CompactionResponse -> Ordering
$c< :: CompactionResponse -> CompactionResponse -> Bool
< :: CompactionResponse -> CompactionResponse -> Bool
$c<= :: CompactionResponse -> CompactionResponse -> Bool
<= :: CompactionResponse -> CompactionResponse -> Bool
$c> :: CompactionResponse -> CompactionResponse -> Bool
> :: CompactionResponse -> CompactionResponse -> Bool
$c>= :: CompactionResponse -> CompactionResponse -> Bool
>= :: CompactionResponse -> CompactionResponse -> Bool
$cmax :: CompactionResponse -> CompactionResponse -> CompactionResponse
max :: CompactionResponse -> CompactionResponse -> CompactionResponse
$cmin :: CompactionResponse -> CompactionResponse -> CompactionResponse
min :: CompactionResponse -> CompactionResponse -> CompactionResponse
Prelude.Ord)
instance Prelude.Show CompactionResponse where
  showsPrec :: Int -> CompactionResponse -> ShowS
showsPrec Int
_ CompactionResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (CompactionResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CompactionResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField CompactionResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> CompactionResponse
-> f CompactionResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> CompactionResponse -> f CompactionResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> CompactionResponse
-> f CompactionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CompactionResponse -> Maybe ResponseHeader)
-> (CompactionResponse
    -> Maybe ResponseHeader -> CompactionResponse)
-> Lens
     CompactionResponse
     CompactionResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CompactionResponse -> Maybe ResponseHeader
_CompactionResponse'header
           (\ CompactionResponse
x__ Maybe ResponseHeader
y__ -> CompactionResponse
x__ {_CompactionResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField CompactionResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> CompactionResponse
-> f CompactionResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> CompactionResponse -> f CompactionResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> CompactionResponse
-> f CompactionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CompactionResponse -> Maybe ResponseHeader)
-> (CompactionResponse
    -> Maybe ResponseHeader -> CompactionResponse)
-> Lens
     CompactionResponse
     CompactionResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CompactionResponse -> Maybe ResponseHeader
_CompactionResponse'header
           (\ CompactionResponse
x__ Maybe ResponseHeader
y__ -> CompactionResponse
x__ {_CompactionResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CompactionResponse where
  messageName :: Proxy CompactionResponse -> Text
messageName Proxy CompactionResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.CompactionResponse"
  packedMessageDescriptor :: Proxy CompactionResponse -> ByteString
packedMessageDescriptor Proxy CompactionResponse
_
    = ByteString
"\n\
      \\DC2CompactionResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy CompactionResponse -> ByteString
packedFileDescriptor Proxy CompactionResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CompactionResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor CompactionResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor CompactionResponse ResponseHeader
-> FieldDescriptor CompactionResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  CompactionResponse
  CompactionResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor CompactionResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor CompactionResponse
      in
        [(Tag, FieldDescriptor CompactionResponse)]
-> Map Tag (FieldDescriptor CompactionResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor CompactionResponse
header__field_descriptor)]
  unknownFields :: Lens' CompactionResponse FieldSet
unknownFields
    = (CompactionResponse -> FieldSet)
-> (CompactionResponse -> FieldSet -> CompactionResponse)
-> Lens' CompactionResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CompactionResponse -> FieldSet
_CompactionResponse'_unknownFields
        (\ CompactionResponse
x__ FieldSet
y__ -> CompactionResponse
x__ {_CompactionResponse'_unknownFields = y__})
  defMessage :: CompactionResponse
defMessage
    = CompactionResponse'_constructor
        {_CompactionResponse'header :: Maybe ResponseHeader
_CompactionResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _CompactionResponse'_unknownFields :: FieldSet
_CompactionResponse'_unknownFields = []}
  parseMessage :: Parser CompactionResponse
parseMessage
    = let
        loop ::
          CompactionResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser CompactionResponse
        loop :: CompactionResponse -> Parser CompactionResponse
loop CompactionResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 CompactionResponse -> String -> Parser CompactionResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CompactionResponse -> Parser CompactionResponse
loop CompactionResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"CompactionResponse"
  buildMessage :: CompactionResponse -> Builder
buildMessage
    = \ CompactionResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  CompactionResponse
  CompactionResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> CompactionResponse -> Maybe ResponseHeader
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'header") CompactionResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet CompactionResponse CompactionResponse FieldSet FieldSet
-> CompactionResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet CompactionResponse CompactionResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' CompactionResponse FieldSet
Data.ProtoLens.unknownFields CompactionResponse
_x))
instance Control.DeepSeq.NFData CompactionResponse where
  rnf :: CompactionResponse -> ()
rnf
    = \ CompactionResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CompactionResponse -> FieldSet
_CompactionResponse'_unknownFields CompactionResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CompactionResponse -> Maybe ResponseHeader
_CompactionResponse'header CompactionResponse
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.result' @:: Lens' Compare Compare'CompareResult@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.target' @:: Lens' Compare Compare'CompareTarget@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.key' @:: Lens' Compare Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.rangeEnd' @:: Lens' Compare Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'targetUnion' @:: Lens' Compare (Prelude.Maybe Compare'TargetUnion)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'version' @:: Lens' Compare (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.version' @:: Lens' Compare Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'createRevision' @:: Lens' Compare (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.createRevision' @:: Lens' Compare Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'modRevision' @:: Lens' Compare (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.modRevision' @:: Lens' Compare Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'value' @:: Lens' Compare (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.value' @:: Lens' Compare Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'lease' @:: Lens' Compare (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.lease' @:: Lens' Compare Data.Int.Int64@ -}
data Compare
  = Compare'_constructor {Compare -> Compare'CompareResult
_Compare'result :: !Compare'CompareResult,
                          Compare -> Compare'CompareTarget
_Compare'target :: !Compare'CompareTarget,
                          Compare -> ByteString
_Compare'key :: !Data.ByteString.ByteString,
                          Compare -> ByteString
_Compare'rangeEnd :: !Data.ByteString.ByteString,
                          Compare -> Maybe Compare'TargetUnion
_Compare'targetUnion :: !(Prelude.Maybe Compare'TargetUnion),
                          Compare -> FieldSet
_Compare'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Compare -> Compare -> Bool
(Compare -> Compare -> Bool)
-> (Compare -> Compare -> Bool) -> Eq Compare
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Compare -> Compare -> Bool
== :: Compare -> Compare -> Bool
$c/= :: Compare -> Compare -> Bool
/= :: Compare -> Compare -> Bool
Prelude.Eq, Eq Compare
Eq Compare =>
(Compare -> Compare -> Ordering)
-> (Compare -> Compare -> Bool)
-> (Compare -> Compare -> Bool)
-> (Compare -> Compare -> Bool)
-> (Compare -> Compare -> Bool)
-> (Compare -> Compare -> Compare)
-> (Compare -> Compare -> Compare)
-> Ord Compare
Compare -> Compare -> Bool
Compare -> Compare -> Ordering
Compare -> Compare -> Compare
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 :: Compare -> Compare -> Ordering
compare :: Compare -> Compare -> Ordering
$c< :: Compare -> Compare -> Bool
< :: Compare -> Compare -> Bool
$c<= :: Compare -> Compare -> Bool
<= :: Compare -> Compare -> Bool
$c> :: Compare -> Compare -> Bool
> :: Compare -> Compare -> Bool
$c>= :: Compare -> Compare -> Bool
>= :: Compare -> Compare -> Bool
$cmax :: Compare -> Compare -> Compare
max :: Compare -> Compare -> Compare
$cmin :: Compare -> Compare -> Compare
min :: Compare -> Compare -> Compare
Prelude.Ord)
instance Prelude.Show Compare where
  showsPrec :: Int -> Compare -> ShowS
showsPrec Int
_ Compare
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Compare -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Compare
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data Compare'TargetUnion
  = Compare'Version !Data.Int.Int64 |
    Compare'CreateRevision !Data.Int.Int64 |
    Compare'ModRevision !Data.Int.Int64 |
    Compare'Value !Data.ByteString.ByteString |
    Compare'Lease !Data.Int.Int64
  deriving stock (Int -> Compare'TargetUnion -> ShowS
[Compare'TargetUnion] -> ShowS
Compare'TargetUnion -> String
(Int -> Compare'TargetUnion -> ShowS)
-> (Compare'TargetUnion -> String)
-> ([Compare'TargetUnion] -> ShowS)
-> Show Compare'TargetUnion
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Compare'TargetUnion -> ShowS
showsPrec :: Int -> Compare'TargetUnion -> ShowS
$cshow :: Compare'TargetUnion -> String
show :: Compare'TargetUnion -> String
$cshowList :: [Compare'TargetUnion] -> ShowS
showList :: [Compare'TargetUnion] -> ShowS
Prelude.Show, Compare'TargetUnion -> Compare'TargetUnion -> Bool
(Compare'TargetUnion -> Compare'TargetUnion -> Bool)
-> (Compare'TargetUnion -> Compare'TargetUnion -> Bool)
-> Eq Compare'TargetUnion
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Compare'TargetUnion -> Compare'TargetUnion -> Bool
== :: Compare'TargetUnion -> Compare'TargetUnion -> Bool
$c/= :: Compare'TargetUnion -> Compare'TargetUnion -> Bool
/= :: Compare'TargetUnion -> Compare'TargetUnion -> Bool
Prelude.Eq, Eq Compare'TargetUnion
Eq Compare'TargetUnion =>
(Compare'TargetUnion -> Compare'TargetUnion -> Ordering)
-> (Compare'TargetUnion -> Compare'TargetUnion -> Bool)
-> (Compare'TargetUnion -> Compare'TargetUnion -> Bool)
-> (Compare'TargetUnion -> Compare'TargetUnion -> Bool)
-> (Compare'TargetUnion -> Compare'TargetUnion -> Bool)
-> (Compare'TargetUnion
    -> Compare'TargetUnion -> Compare'TargetUnion)
-> (Compare'TargetUnion
    -> Compare'TargetUnion -> Compare'TargetUnion)
-> Ord Compare'TargetUnion
Compare'TargetUnion -> Compare'TargetUnion -> Bool
Compare'TargetUnion -> Compare'TargetUnion -> Ordering
Compare'TargetUnion -> Compare'TargetUnion -> Compare'TargetUnion
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 :: Compare'TargetUnion -> Compare'TargetUnion -> Ordering
compare :: Compare'TargetUnion -> Compare'TargetUnion -> Ordering
$c< :: Compare'TargetUnion -> Compare'TargetUnion -> Bool
< :: Compare'TargetUnion -> Compare'TargetUnion -> Bool
$c<= :: Compare'TargetUnion -> Compare'TargetUnion -> Bool
<= :: Compare'TargetUnion -> Compare'TargetUnion -> Bool
$c> :: Compare'TargetUnion -> Compare'TargetUnion -> Bool
> :: Compare'TargetUnion -> Compare'TargetUnion -> Bool
$c>= :: Compare'TargetUnion -> Compare'TargetUnion -> Bool
>= :: Compare'TargetUnion -> Compare'TargetUnion -> Bool
$cmax :: Compare'TargetUnion -> Compare'TargetUnion -> Compare'TargetUnion
max :: Compare'TargetUnion -> Compare'TargetUnion -> Compare'TargetUnion
$cmin :: Compare'TargetUnion -> Compare'TargetUnion -> Compare'TargetUnion
min :: Compare'TargetUnion -> Compare'TargetUnion -> Compare'TargetUnion
Prelude.Ord)
instance Data.ProtoLens.Field.HasField Compare "result" Compare'CompareResult where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "result"
-> (Compare'CompareResult -> f Compare'CompareResult)
-> Compare
-> f Compare
fieldOf Proxy# "result"
_
    = ((Compare'CompareResult -> f Compare'CompareResult)
 -> Compare -> f Compare)
-> ((Compare'CompareResult -> f Compare'CompareResult)
    -> Compare'CompareResult -> f Compare'CompareResult)
-> (Compare'CompareResult -> f Compare'CompareResult)
-> Compare
-> f Compare
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Compare -> Compare'CompareResult)
-> (Compare -> Compare'CompareResult -> Compare)
-> Lens Compare Compare Compare'CompareResult Compare'CompareResult
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Compare -> Compare'CompareResult
_Compare'result (\ Compare
x__ Compare'CompareResult
y__ -> Compare
x__ {_Compare'result = y__}))
        (Compare'CompareResult -> f Compare'CompareResult)
-> Compare'CompareResult -> f Compare'CompareResult
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Compare "target" Compare'CompareTarget where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "target"
-> (Compare'CompareTarget -> f Compare'CompareTarget)
-> Compare
-> f Compare
fieldOf Proxy# "target"
_
    = ((Compare'CompareTarget -> f Compare'CompareTarget)
 -> Compare -> f Compare)
-> ((Compare'CompareTarget -> f Compare'CompareTarget)
    -> Compare'CompareTarget -> f Compare'CompareTarget)
-> (Compare'CompareTarget -> f Compare'CompareTarget)
-> Compare
-> f Compare
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Compare -> Compare'CompareTarget)
-> (Compare -> Compare'CompareTarget -> Compare)
-> Lens Compare Compare Compare'CompareTarget Compare'CompareTarget
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Compare -> Compare'CompareTarget
_Compare'target (\ Compare
x__ Compare'CompareTarget
y__ -> Compare
x__ {_Compare'target = y__}))
        (Compare'CompareTarget -> f Compare'CompareTarget)
-> Compare'CompareTarget -> f Compare'CompareTarget
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Compare "key" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (ByteString -> f ByteString) -> Compare -> f Compare
fieldOf Proxy# "key"
_
    = ((ByteString -> f ByteString) -> Compare -> f Compare)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Compare
-> f Compare
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Compare -> ByteString)
-> (Compare -> ByteString -> Compare)
-> Lens Compare Compare ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Compare -> ByteString
_Compare'key (\ Compare
x__ ByteString
y__ -> Compare
x__ {_Compare'key = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Compare "rangeEnd" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rangeEnd"
-> (ByteString -> f ByteString) -> Compare -> f Compare
fieldOf Proxy# "rangeEnd"
_
    = ((ByteString -> f ByteString) -> Compare -> f Compare)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> Compare
-> f Compare
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Compare -> ByteString)
-> (Compare -> ByteString -> Compare)
-> Lens Compare Compare ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Compare -> ByteString
_Compare'rangeEnd (\ Compare
x__ ByteString
y__ -> Compare
x__ {_Compare'rangeEnd = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Compare "maybe'targetUnion" (Prelude.Maybe Compare'TargetUnion) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'targetUnion"
-> (Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> Compare
-> f Compare
fieldOf Proxy# "maybe'targetUnion"
_
    = ((Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
 -> Compare -> f Compare)
-> ((Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
    -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> (Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> Compare
-> f Compare
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Compare -> Maybe Compare'TargetUnion)
-> (Compare -> Maybe Compare'TargetUnion -> Compare)
-> Lens
     Compare
     Compare
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Compare -> Maybe Compare'TargetUnion
_Compare'targetUnion
           (\ Compare
x__ Maybe Compare'TargetUnion
y__ -> Compare
x__ {_Compare'targetUnion = y__}))
        (Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Compare "maybe'version" (Prelude.Maybe Data.Int.Int64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'version"
-> (Maybe Int64 -> f (Maybe Int64)) -> Compare -> f Compare
fieldOf Proxy# "maybe'version"
_
    = ((Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
 -> Compare -> f Compare)
-> ((Maybe Int64 -> f (Maybe Int64))
    -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> (Maybe Int64 -> f (Maybe Int64))
-> Compare
-> f Compare
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Compare -> Maybe Compare'TargetUnion)
-> (Compare -> Maybe Compare'TargetUnion -> Compare)
-> Lens
     Compare
     Compare
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Compare -> Maybe Compare'TargetUnion
_Compare'targetUnion
           (\ Compare
x__ Maybe Compare'TargetUnion
y__ -> Compare
x__ {_Compare'targetUnion = y__}))
        ((Maybe Compare'TargetUnion -> Maybe Int64)
-> (Maybe Compare'TargetUnion
    -> Maybe Int64 -> Maybe Compare'TargetUnion)
-> Lens
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Compare'TargetUnion
x__
              -> case Maybe Compare'TargetUnion
x__ of
                   (Prelude.Just (Compare'Version Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                   Maybe Compare'TargetUnion
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Compare'TargetUnion
_ Maybe Int64
y__ -> (Int64 -> Compare'TargetUnion)
-> Maybe Int64 -> Maybe Compare'TargetUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Compare'TargetUnion
Compare'Version Maybe Int64
y__))
instance Data.ProtoLens.Field.HasField Compare "version" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "version" -> (Int64 -> f Int64) -> Compare -> f Compare
fieldOf Proxy# "version"
_
    = ((Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
 -> Compare -> f Compare)
-> ((Int64 -> f Int64)
    -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> (Int64 -> f Int64)
-> Compare
-> f Compare
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Compare -> Maybe Compare'TargetUnion)
-> (Compare -> Maybe Compare'TargetUnion -> Compare)
-> Lens
     Compare
     Compare
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Compare -> Maybe Compare'TargetUnion
_Compare'targetUnion
           (\ Compare
x__ Maybe Compare'TargetUnion
y__ -> Compare
x__ {_Compare'targetUnion = y__}))
        (((Maybe Int64 -> f (Maybe Int64))
 -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Maybe Compare'TargetUnion
-> f (Maybe Compare'TargetUnion)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Compare'TargetUnion -> Maybe Int64)
-> (Maybe Compare'TargetUnion
    -> Maybe Int64 -> Maybe Compare'TargetUnion)
-> Lens
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Compare'TargetUnion
x__
                 -> case Maybe Compare'TargetUnion
x__ of
                      (Prelude.Just (Compare'Version Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                      Maybe Compare'TargetUnion
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Compare'TargetUnion
_ Maybe Int64
y__ -> (Int64 -> Compare'TargetUnion)
-> Maybe Int64 -> Maybe Compare'TargetUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Compare'TargetUnion
Compare'Version Maybe Int64
y__))
           (Int64 -> Lens' (Maybe Int64) Int64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField Compare "maybe'createRevision" (Prelude.Maybe Data.Int.Int64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'createRevision"
-> (Maybe Int64 -> f (Maybe Int64)) -> Compare -> f Compare
fieldOf Proxy# "maybe'createRevision"
_
    = ((Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
 -> Compare -> f Compare)
-> ((Maybe Int64 -> f (Maybe Int64))
    -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> (Maybe Int64 -> f (Maybe Int64))
-> Compare
-> f Compare
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Compare -> Maybe Compare'TargetUnion)
-> (Compare -> Maybe Compare'TargetUnion -> Compare)
-> Lens
     Compare
     Compare
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Compare -> Maybe Compare'TargetUnion
_Compare'targetUnion
           (\ Compare
x__ Maybe Compare'TargetUnion
y__ -> Compare
x__ {_Compare'targetUnion = y__}))
        ((Maybe Compare'TargetUnion -> Maybe Int64)
-> (Maybe Compare'TargetUnion
    -> Maybe Int64 -> Maybe Compare'TargetUnion)
-> Lens
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Compare'TargetUnion
x__
              -> case Maybe Compare'TargetUnion
x__ of
                   (Prelude.Just (Compare'CreateRevision Int64
x__val))
                     -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                   Maybe Compare'TargetUnion
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Compare'TargetUnion
_ Maybe Int64
y__ -> (Int64 -> Compare'TargetUnion)
-> Maybe Int64 -> Maybe Compare'TargetUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Compare'TargetUnion
Compare'CreateRevision Maybe Int64
y__))
instance Data.ProtoLens.Field.HasField Compare "createRevision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "createRevision"
-> (Int64 -> f Int64) -> Compare -> f Compare
fieldOf Proxy# "createRevision"
_
    = ((Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
 -> Compare -> f Compare)
-> ((Int64 -> f Int64)
    -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> (Int64 -> f Int64)
-> Compare
-> f Compare
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Compare -> Maybe Compare'TargetUnion)
-> (Compare -> Maybe Compare'TargetUnion -> Compare)
-> Lens
     Compare
     Compare
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Compare -> Maybe Compare'TargetUnion
_Compare'targetUnion
           (\ Compare
x__ Maybe Compare'TargetUnion
y__ -> Compare
x__ {_Compare'targetUnion = y__}))
        (((Maybe Int64 -> f (Maybe Int64))
 -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Maybe Compare'TargetUnion
-> f (Maybe Compare'TargetUnion)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Compare'TargetUnion -> Maybe Int64)
-> (Maybe Compare'TargetUnion
    -> Maybe Int64 -> Maybe Compare'TargetUnion)
-> Lens
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Compare'TargetUnion
x__
                 -> case Maybe Compare'TargetUnion
x__ of
                      (Prelude.Just (Compare'CreateRevision Int64
x__val))
                        -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                      Maybe Compare'TargetUnion
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Compare'TargetUnion
_ Maybe Int64
y__ -> (Int64 -> Compare'TargetUnion)
-> Maybe Int64 -> Maybe Compare'TargetUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Compare'TargetUnion
Compare'CreateRevision Maybe Int64
y__))
           (Int64 -> Lens' (Maybe Int64) Int64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField Compare "maybe'modRevision" (Prelude.Maybe Data.Int.Int64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'modRevision"
-> (Maybe Int64 -> f (Maybe Int64)) -> Compare -> f Compare
fieldOf Proxy# "maybe'modRevision"
_
    = ((Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
 -> Compare -> f Compare)
-> ((Maybe Int64 -> f (Maybe Int64))
    -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> (Maybe Int64 -> f (Maybe Int64))
-> Compare
-> f Compare
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Compare -> Maybe Compare'TargetUnion)
-> (Compare -> Maybe Compare'TargetUnion -> Compare)
-> Lens
     Compare
     Compare
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Compare -> Maybe Compare'TargetUnion
_Compare'targetUnion
           (\ Compare
x__ Maybe Compare'TargetUnion
y__ -> Compare
x__ {_Compare'targetUnion = y__}))
        ((Maybe Compare'TargetUnion -> Maybe Int64)
-> (Maybe Compare'TargetUnion
    -> Maybe Int64 -> Maybe Compare'TargetUnion)
-> Lens
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Compare'TargetUnion
x__
              -> case Maybe Compare'TargetUnion
x__ of
                   (Prelude.Just (Compare'ModRevision Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                   Maybe Compare'TargetUnion
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Compare'TargetUnion
_ Maybe Int64
y__ -> (Int64 -> Compare'TargetUnion)
-> Maybe Int64 -> Maybe Compare'TargetUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Compare'TargetUnion
Compare'ModRevision Maybe Int64
y__))
instance Data.ProtoLens.Field.HasField Compare "modRevision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "modRevision" -> (Int64 -> f Int64) -> Compare -> f Compare
fieldOf Proxy# "modRevision"
_
    = ((Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
 -> Compare -> f Compare)
-> ((Int64 -> f Int64)
    -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> (Int64 -> f Int64)
-> Compare
-> f Compare
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Compare -> Maybe Compare'TargetUnion)
-> (Compare -> Maybe Compare'TargetUnion -> Compare)
-> Lens
     Compare
     Compare
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Compare -> Maybe Compare'TargetUnion
_Compare'targetUnion
           (\ Compare
x__ Maybe Compare'TargetUnion
y__ -> Compare
x__ {_Compare'targetUnion = y__}))
        (((Maybe Int64 -> f (Maybe Int64))
 -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Maybe Compare'TargetUnion
-> f (Maybe Compare'TargetUnion)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Compare'TargetUnion -> Maybe Int64)
-> (Maybe Compare'TargetUnion
    -> Maybe Int64 -> Maybe Compare'TargetUnion)
-> Lens
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Compare'TargetUnion
x__
                 -> case Maybe Compare'TargetUnion
x__ of
                      (Prelude.Just (Compare'ModRevision Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                      Maybe Compare'TargetUnion
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Compare'TargetUnion
_ Maybe Int64
y__ -> (Int64 -> Compare'TargetUnion)
-> Maybe Int64 -> Maybe Compare'TargetUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Compare'TargetUnion
Compare'ModRevision Maybe Int64
y__))
           (Int64 -> Lens' (Maybe Int64) Int64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField Compare "maybe'value" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'value"
-> (Maybe ByteString -> f (Maybe ByteString))
-> Compare
-> f Compare
fieldOf Proxy# "maybe'value"
_
    = ((Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
 -> Compare -> f Compare)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> (Maybe ByteString -> f (Maybe ByteString))
-> Compare
-> f Compare
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Compare -> Maybe Compare'TargetUnion)
-> (Compare -> Maybe Compare'TargetUnion -> Compare)
-> Lens
     Compare
     Compare
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Compare -> Maybe Compare'TargetUnion
_Compare'targetUnion
           (\ Compare
x__ Maybe Compare'TargetUnion
y__ -> Compare
x__ {_Compare'targetUnion = y__}))
        ((Maybe Compare'TargetUnion -> Maybe ByteString)
-> (Maybe Compare'TargetUnion
    -> Maybe ByteString -> Maybe Compare'TargetUnion)
-> Lens
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Compare'TargetUnion
x__
              -> case Maybe Compare'TargetUnion
x__ of
                   (Prelude.Just (Compare'Value ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                   Maybe Compare'TargetUnion
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Compare'TargetUnion
_ Maybe ByteString
y__ -> (ByteString -> Compare'TargetUnion)
-> Maybe ByteString -> Maybe Compare'TargetUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> Compare'TargetUnion
Compare'Value Maybe ByteString
y__))
instance Data.ProtoLens.Field.HasField Compare "value" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (ByteString -> f ByteString) -> Compare -> f Compare
fieldOf Proxy# "value"
_
    = ((Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
 -> Compare -> f Compare)
-> ((ByteString -> f ByteString)
    -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> (ByteString -> f ByteString)
-> Compare
-> f Compare
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Compare -> Maybe Compare'TargetUnion)
-> (Compare -> Maybe Compare'TargetUnion -> Compare)
-> Lens
     Compare
     Compare
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Compare -> Maybe Compare'TargetUnion
_Compare'targetUnion
           (\ Compare
x__ Maybe Compare'TargetUnion
y__ -> Compare
x__ {_Compare'targetUnion = y__}))
        (((Maybe ByteString -> f (Maybe ByteString))
 -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> Maybe Compare'TargetUnion
-> f (Maybe Compare'TargetUnion)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Compare'TargetUnion -> Maybe ByteString)
-> (Maybe Compare'TargetUnion
    -> Maybe ByteString -> Maybe Compare'TargetUnion)
-> Lens
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Compare'TargetUnion
x__
                 -> case Maybe Compare'TargetUnion
x__ of
                      (Prelude.Just (Compare'Value ByteString
x__val)) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
x__val
                      Maybe Compare'TargetUnion
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Compare'TargetUnion
_ Maybe ByteString
y__ -> (ByteString -> Compare'TargetUnion)
-> Maybe ByteString -> Maybe Compare'TargetUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ByteString -> Compare'TargetUnion
Compare'Value Maybe ByteString
y__))
           (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField Compare "maybe'lease" (Prelude.Maybe Data.Int.Int64) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'lease"
-> (Maybe Int64 -> f (Maybe Int64)) -> Compare -> f Compare
fieldOf Proxy# "maybe'lease"
_
    = ((Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
 -> Compare -> f Compare)
-> ((Maybe Int64 -> f (Maybe Int64))
    -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> (Maybe Int64 -> f (Maybe Int64))
-> Compare
-> f Compare
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Compare -> Maybe Compare'TargetUnion)
-> (Compare -> Maybe Compare'TargetUnion -> Compare)
-> Lens
     Compare
     Compare
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Compare -> Maybe Compare'TargetUnion
_Compare'targetUnion
           (\ Compare
x__ Maybe Compare'TargetUnion
y__ -> Compare
x__ {_Compare'targetUnion = y__}))
        ((Maybe Compare'TargetUnion -> Maybe Int64)
-> (Maybe Compare'TargetUnion
    -> Maybe Int64 -> Maybe Compare'TargetUnion)
-> Lens
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe Compare'TargetUnion
x__
              -> case Maybe Compare'TargetUnion
x__ of
                   (Prelude.Just (Compare'Lease Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                   Maybe Compare'TargetUnion
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe Compare'TargetUnion
_ Maybe Int64
y__ -> (Int64 -> Compare'TargetUnion)
-> Maybe Int64 -> Maybe Compare'TargetUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Compare'TargetUnion
Compare'Lease Maybe Int64
y__))
instance Data.ProtoLens.Field.HasField Compare "lease" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "lease" -> (Int64 -> f Int64) -> Compare -> f Compare
fieldOf Proxy# "lease"
_
    = ((Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
 -> Compare -> f Compare)
-> ((Int64 -> f Int64)
    -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> (Int64 -> f Int64)
-> Compare
-> f Compare
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Compare -> Maybe Compare'TargetUnion)
-> (Compare -> Maybe Compare'TargetUnion -> Compare)
-> Lens
     Compare
     Compare
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Compare -> Maybe Compare'TargetUnion
_Compare'targetUnion
           (\ Compare
x__ Maybe Compare'TargetUnion
y__ -> Compare
x__ {_Compare'targetUnion = y__}))
        (((Maybe Int64 -> f (Maybe Int64))
 -> Maybe Compare'TargetUnion -> f (Maybe Compare'TargetUnion))
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Maybe Compare'TargetUnion
-> f (Maybe Compare'TargetUnion)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe Compare'TargetUnion -> Maybe Int64)
-> (Maybe Compare'TargetUnion
    -> Maybe Int64 -> Maybe Compare'TargetUnion)
-> Lens
     (Maybe Compare'TargetUnion)
     (Maybe Compare'TargetUnion)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe Compare'TargetUnion
x__
                 -> case Maybe Compare'TargetUnion
x__ of
                      (Prelude.Just (Compare'Lease Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                      Maybe Compare'TargetUnion
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe Compare'TargetUnion
_ Maybe Int64
y__ -> (Int64 -> Compare'TargetUnion)
-> Maybe Int64 -> Maybe Compare'TargetUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> Compare'TargetUnion
Compare'Lease Maybe Int64
y__))
           (Int64 -> Lens' (Maybe Int64) Int64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message Compare where
  messageName :: Proxy Compare -> Text
messageName Proxy Compare
_ = String -> Text
Data.Text.pack String
"etcdserverpb.Compare"
  packedMessageDescriptor :: Proxy Compare -> ByteString
packedMessageDescriptor Proxy Compare
_
    = ByteString
"\n\
      \\aCompare\DC2;\n\
      \\ACKresult\CAN\SOH \SOH(\SO2#.etcdserverpb.Compare.CompareResultR\ACKresult\DC2;\n\
      \\ACKtarget\CAN\STX \SOH(\SO2#.etcdserverpb.Compare.CompareTargetR\ACKtarget\DC2\DLE\n\
      \\ETXkey\CAN\ETX \SOH(\fR\ETXkey\DC2\SUB\n\
      \\aversion\CAN\EOT \SOH(\ETXH\NULR\aversion\DC2)\n\
      \\SIcreate_revision\CAN\ENQ \SOH(\ETXH\NULR\SOcreateRevision\DC2#\n\
      \\fmod_revision\CAN\ACK \SOH(\ETXH\NULR\vmodRevision\DC2\SYN\n\
      \\ENQvalue\CAN\a \SOH(\fH\NULR\ENQvalue\DC2\US\n\
      \\ENQlease\CAN\b \SOH(\ETXH\NULR\ENQleaseB\a\138\181\CAN\ETX3.3\DC2$\n\
      \\trange_end\CAN@ \SOH(\fR\brangeEndB\a\138\181\CAN\ETX3.3\"R\n\
      \\rCompareResult\DC2\t\n\
      \\ENQEQUAL\DLE\NUL\DC2\v\n\
      \\aGREATER\DLE\SOH\DC2\b\n\
      \\EOTLESS\DLE\STX\DC2\SYN\n\
      \\tNOT_EQUAL\DLE\ETX\SUB\a\154\181\CAN\ETX3.1\SUB\a\146\181\CAN\ETX3.0\"Y\n\
      \\rCompareTarget\DC2\v\n\
      \\aVERSION\DLE\NUL\DC2\n\
      \\n\
      \\ACKCREATE\DLE\SOH\DC2\a\n\
      \\ETXMOD\DLE\STX\DC2\t\n\
      \\ENQVALUE\DLE\ETX\DC2\DC2\n\
      \\ENQLEASE\DLE\EOT\SUB\a\154\181\CAN\ETX3.3\SUB\a\146\181\CAN\ETX3.0B\SO\n\
      \\ftarget_union:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy Compare -> ByteString
packedFileDescriptor Proxy Compare
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Compare)
fieldsByTag
    = let
        result__field_descriptor :: FieldDescriptor Compare
result__field_descriptor
          = String
-> FieldTypeDescriptor Compare'CompareResult
-> FieldAccessor Compare Compare'CompareResult
-> FieldDescriptor Compare
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"result"
              (ScalarField Compare'CompareResult
-> FieldTypeDescriptor Compare'CompareResult
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Compare'CompareResult
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Compare'CompareResult)
              (WireDefault Compare'CompareResult
-> Lens Compare Compare Compare'CompareResult Compare'CompareResult
-> FieldAccessor Compare Compare'CompareResult
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Compare'CompareResult
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 @"result")) ::
              Data.ProtoLens.FieldDescriptor Compare
        target__field_descriptor :: FieldDescriptor Compare
target__field_descriptor
          = String
-> FieldTypeDescriptor Compare'CompareTarget
-> FieldAccessor Compare Compare'CompareTarget
-> FieldDescriptor Compare
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"target"
              (ScalarField Compare'CompareTarget
-> FieldTypeDescriptor Compare'CompareTarget
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Compare'CompareTarget
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor Compare'CompareTarget)
              (WireDefault Compare'CompareTarget
-> Lens Compare Compare Compare'CompareTarget Compare'CompareTarget
-> FieldAccessor Compare Compare'CompareTarget
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Compare'CompareTarget
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 @"target")) ::
              Data.ProtoLens.FieldDescriptor Compare
        key__field_descriptor :: FieldDescriptor Compare
key__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Compare ByteString
-> FieldDescriptor Compare
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 Compare Compare ByteString ByteString
-> FieldAccessor Compare 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 Compare
        rangeEnd__field_descriptor :: FieldDescriptor Compare
rangeEnd__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Compare ByteString
-> FieldDescriptor Compare
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"range_end"
              (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 Compare Compare ByteString ByteString
-> FieldAccessor Compare 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 @"rangeEnd")) ::
              Data.ProtoLens.FieldDescriptor Compare
        version__field_descriptor :: FieldDescriptor Compare
version__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor Compare Int64
-> FieldDescriptor Compare
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)
              (Lens' Compare (Maybe Int64) -> FieldAccessor Compare Int64
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'version")) ::
              Data.ProtoLens.FieldDescriptor Compare
        createRevision__field_descriptor :: FieldDescriptor Compare
createRevision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor Compare Int64
-> FieldDescriptor Compare
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)
              (Lens' Compare (Maybe Int64) -> FieldAccessor Compare Int64
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'createRevision")) ::
              Data.ProtoLens.FieldDescriptor Compare
        modRevision__field_descriptor :: FieldDescriptor Compare
modRevision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor Compare Int64
-> FieldDescriptor Compare
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)
              (Lens' Compare (Maybe Int64) -> FieldAccessor Compare Int64
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'modRevision")) ::
              Data.ProtoLens.FieldDescriptor Compare
        value__field_descriptor :: FieldDescriptor Compare
value__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor Compare ByteString
-> FieldDescriptor Compare
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)
              (Lens' Compare (Maybe ByteString)
-> FieldAccessor Compare ByteString
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'value")) ::
              Data.ProtoLens.FieldDescriptor Compare
        lease__field_descriptor :: FieldDescriptor Compare
lease__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor Compare Int64
-> FieldDescriptor Compare
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)
              (Lens' Compare (Maybe Int64) -> FieldAccessor Compare Int64
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'lease")) ::
              Data.ProtoLens.FieldDescriptor Compare
      in
        [(Tag, FieldDescriptor Compare)]
-> Map Tag (FieldDescriptor Compare)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Compare
result__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Compare
target__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Compare
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
64, FieldDescriptor Compare
rangeEnd__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Compare
version__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor Compare
createRevision__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor Compare
modRevision__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor Compare
value__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor Compare
lease__field_descriptor)]
  unknownFields :: Lens' Compare FieldSet
unknownFields
    = (Compare -> FieldSet)
-> (Compare -> FieldSet -> Compare) -> Lens' Compare FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Compare -> FieldSet
_Compare'_unknownFields
        (\ Compare
x__ FieldSet
y__ -> Compare
x__ {_Compare'_unknownFields = y__})
  defMessage :: Compare
defMessage
    = Compare'_constructor
        {_Compare'result :: Compare'CompareResult
_Compare'result = Compare'CompareResult
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Compare'target :: Compare'CompareTarget
_Compare'target = Compare'CompareTarget
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Compare'key :: ByteString
_Compare'key = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Compare'rangeEnd :: ByteString
_Compare'rangeEnd = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Compare'targetUnion :: Maybe Compare'TargetUnion
_Compare'targetUnion = Maybe Compare'TargetUnion
forall a. Maybe a
Prelude.Nothing,
         _Compare'_unknownFields :: FieldSet
_Compare'_unknownFields = []}
  parseMessage :: Parser Compare
parseMessage
    = let
        loop :: Compare -> Data.ProtoLens.Encoding.Bytes.Parser Compare
        loop :: Compare -> Parser Compare
loop Compare
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 Compare'CompareResult
-> String -> Parser Compare'CompareResult
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> Compare'CompareResult)
-> Parser Int -> Parser Compare'CompareResult
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> Compare'CompareResult
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
"result"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"result") y x)
                        Word64
16
                          -> do y <- Parser Compare'CompareTarget
-> String -> Parser Compare'CompareTarget
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> Compare'CompareTarget)
-> Parser Int -> Parser Compare'CompareTarget
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> Compare'CompareTarget
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
"target"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"target") y x)
                        Word64
26
                          -> 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
514
                          -> 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
"range_end"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"rangeEnd") 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
40
                          -> 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
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
"mod_revision"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"modRevision") y x)
                        Word64
58
                          -> 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
64
                          -> 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 Compare -> String -> Parser Compare
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Compare -> Parser Compare
loop Compare
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"Compare"
  buildMessage :: Compare -> Builder
buildMessage
    = \ Compare
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Compare'CompareResult
_v = FoldLike
  Compare'CompareResult
  Compare
  Compare
  Compare'CompareResult
  Compare'CompareResult
-> Compare -> Compare'CompareResult
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 @"result") Compare
_x
              in
                if Compare'CompareResult -> Compare'CompareResult -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Compare'CompareResult
_v Compare'CompareResult
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)
-> (Compare'CompareResult -> Int)
-> Compare'CompareResult
-> 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)
                         Compare'CompareResult -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Compare'CompareResult
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Compare'CompareTarget
_v = FoldLike
  Compare'CompareTarget
  Compare
  Compare
  Compare'CompareTarget
  Compare'CompareTarget
-> Compare -> Compare'CompareTarget
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 @"target") Compare
_x
                 in
                   if Compare'CompareTarget -> Compare'CompareTarget -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Compare'CompareTarget
_v Compare'CompareTarget
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)
                         ((Int -> Builder)
-> (Compare'CompareTarget -> Int)
-> Compare'CompareTarget
-> 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)
                            Compare'CompareTarget -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Compare'CompareTarget
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let _v :: ByteString
_v = FoldLike ByteString Compare Compare ByteString ByteString
-> Compare -> 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") Compare
_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
26)
                            ((\ 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 :: ByteString
_v = FoldLike ByteString Compare Compare ByteString ByteString
-> Compare -> 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 @"rangeEnd") Compare
_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
514)
                               ((\ 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.<>)
                         (case
                              FoldLike
  (Maybe Compare'TargetUnion)
  Compare
  Compare
  (Maybe Compare'TargetUnion)
  (Maybe Compare'TargetUnion)
-> Compare -> Maybe Compare'TargetUnion
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'targetUnion") Compare
_x
                          of
                            Maybe Compare'TargetUnion
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            (Prelude.Just (Compare'Version Int64
v))
                              -> 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)
                            (Prelude.Just (Compare'CreateRevision Int64
v))
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
40)
                                   ((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)
                            (Prelude.Just (Compare'ModRevision Int64
v))
                              -> 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)
                            (Prelude.Just (Compare'Value ByteString
v))
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
                                   ((\ 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)
                            (Prelude.Just (Compare'Lease Int64
v))
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
64)
                                   ((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 Compare Compare FieldSet FieldSet
-> Compare -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Compare Compare FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Compare FieldSet
Data.ProtoLens.unknownFields Compare
_x))))))
instance Control.DeepSeq.NFData Compare where
  rnf :: Compare -> ()
rnf
    = \ Compare
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Compare -> FieldSet
_Compare'_unknownFields Compare
x__)
             (Compare'CompareResult -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Compare -> Compare'CompareResult
_Compare'result Compare
x__)
                (Compare'CompareTarget -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Compare -> Compare'CompareTarget
_Compare'target Compare
x__)
                   (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (Compare -> ByteString
_Compare'key Compare
x__)
                      (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (Compare -> ByteString
_Compare'rangeEnd Compare
x__)
                         (Maybe Compare'TargetUnion -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Compare -> Maybe Compare'TargetUnion
_Compare'targetUnion Compare
x__) ())))))
instance Control.DeepSeq.NFData Compare'TargetUnion where
  rnf :: Compare'TargetUnion -> ()
rnf (Compare'Version Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
  rnf (Compare'CreateRevision Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
  rnf (Compare'ModRevision Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
  rnf (Compare'Value ByteString
x__) = ByteString -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ByteString
x__
  rnf (Compare'Lease Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
_Compare'Version ::
  Data.ProtoLens.Prism.Prism' Compare'TargetUnion Data.Int.Int64
_Compare'Version :: Prism' Compare'TargetUnion Int64
_Compare'Version
  = (Int64 -> Compare'TargetUnion)
-> (Compare'TargetUnion -> Maybe Int64)
-> Prism' Compare'TargetUnion Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Int64 -> Compare'TargetUnion
Compare'Version
      (\ Compare'TargetUnion
p__
         -> case Compare'TargetUnion
p__ of
              (Compare'Version Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
              Compare'TargetUnion
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
_Compare'CreateRevision ::
  Data.ProtoLens.Prism.Prism' Compare'TargetUnion Data.Int.Int64
_Compare'CreateRevision :: Prism' Compare'TargetUnion Int64
_Compare'CreateRevision
  = (Int64 -> Compare'TargetUnion)
-> (Compare'TargetUnion -> Maybe Int64)
-> Prism' Compare'TargetUnion Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Int64 -> Compare'TargetUnion
Compare'CreateRevision
      (\ Compare'TargetUnion
p__
         -> case Compare'TargetUnion
p__ of
              (Compare'CreateRevision Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
              Compare'TargetUnion
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
_Compare'ModRevision ::
  Data.ProtoLens.Prism.Prism' Compare'TargetUnion Data.Int.Int64
_Compare'ModRevision :: Prism' Compare'TargetUnion Int64
_Compare'ModRevision
  = (Int64 -> Compare'TargetUnion)
-> (Compare'TargetUnion -> Maybe Int64)
-> Prism' Compare'TargetUnion Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Int64 -> Compare'TargetUnion
Compare'ModRevision
      (\ Compare'TargetUnion
p__
         -> case Compare'TargetUnion
p__ of
              (Compare'ModRevision Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
              Compare'TargetUnion
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
_Compare'Value ::
  Data.ProtoLens.Prism.Prism' Compare'TargetUnion Data.ByteString.ByteString
_Compare'Value :: Prism' Compare'TargetUnion ByteString
_Compare'Value
  = (ByteString -> Compare'TargetUnion)
-> (Compare'TargetUnion -> Maybe ByteString)
-> Prism' Compare'TargetUnion ByteString
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ByteString -> Compare'TargetUnion
Compare'Value
      (\ Compare'TargetUnion
p__
         -> case Compare'TargetUnion
p__ of
              (Compare'Value ByteString
p__val) -> ByteString -> Maybe ByteString
forall a. a -> Maybe a
Prelude.Just ByteString
p__val
              Compare'TargetUnion
_otherwise -> Maybe ByteString
forall a. Maybe a
Prelude.Nothing)
_Compare'Lease ::
  Data.ProtoLens.Prism.Prism' Compare'TargetUnion Data.Int.Int64
_Compare'Lease :: Prism' Compare'TargetUnion Int64
_Compare'Lease
  = (Int64 -> Compare'TargetUnion)
-> (Compare'TargetUnion -> Maybe Int64)
-> Prism' Compare'TargetUnion Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Int64 -> Compare'TargetUnion
Compare'Lease
      (\ Compare'TargetUnion
p__
         -> case Compare'TargetUnion
p__ of
              (Compare'Lease Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
              Compare'TargetUnion
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
newtype Compare'CompareResult'UnrecognizedValue
  = Compare'CompareResult'UnrecognizedValue Data.Int.Int32
  deriving stock (Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Bool
(Compare'CompareResult'UnrecognizedValue
 -> Compare'CompareResult'UnrecognizedValue -> Bool)
-> (Compare'CompareResult'UnrecognizedValue
    -> Compare'CompareResult'UnrecognizedValue -> Bool)
-> Eq Compare'CompareResult'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Bool
== :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Bool
$c/= :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Bool
/= :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Bool
Prelude.Eq, Eq Compare'CompareResult'UnrecognizedValue
Eq Compare'CompareResult'UnrecognizedValue =>
(Compare'CompareResult'UnrecognizedValue
 -> Compare'CompareResult'UnrecognizedValue -> Ordering)
-> (Compare'CompareResult'UnrecognizedValue
    -> Compare'CompareResult'UnrecognizedValue -> Bool)
-> (Compare'CompareResult'UnrecognizedValue
    -> Compare'CompareResult'UnrecognizedValue -> Bool)
-> (Compare'CompareResult'UnrecognizedValue
    -> Compare'CompareResult'UnrecognizedValue -> Bool)
-> (Compare'CompareResult'UnrecognizedValue
    -> Compare'CompareResult'UnrecognizedValue -> Bool)
-> (Compare'CompareResult'UnrecognizedValue
    -> Compare'CompareResult'UnrecognizedValue
    -> Compare'CompareResult'UnrecognizedValue)
-> (Compare'CompareResult'UnrecognizedValue
    -> Compare'CompareResult'UnrecognizedValue
    -> Compare'CompareResult'UnrecognizedValue)
-> Ord Compare'CompareResult'UnrecognizedValue
Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Bool
Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Ordering
Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'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 :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Ordering
compare :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Ordering
$c< :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Bool
< :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Bool
$c<= :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Bool
<= :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Bool
$c> :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Bool
> :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Bool
$c>= :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Bool
>= :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue -> Bool
$cmax :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue
max :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue
$cmin :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue
min :: Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue
-> Compare'CompareResult'UnrecognizedValue
Prelude.Ord, Int -> Compare'CompareResult'UnrecognizedValue -> ShowS
[Compare'CompareResult'UnrecognizedValue] -> ShowS
Compare'CompareResult'UnrecognizedValue -> String
(Int -> Compare'CompareResult'UnrecognizedValue -> ShowS)
-> (Compare'CompareResult'UnrecognizedValue -> String)
-> ([Compare'CompareResult'UnrecognizedValue] -> ShowS)
-> Show Compare'CompareResult'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Compare'CompareResult'UnrecognizedValue -> ShowS
showsPrec :: Int -> Compare'CompareResult'UnrecognizedValue -> ShowS
$cshow :: Compare'CompareResult'UnrecognizedValue -> String
show :: Compare'CompareResult'UnrecognizedValue -> String
$cshowList :: [Compare'CompareResult'UnrecognizedValue] -> ShowS
showList :: [Compare'CompareResult'UnrecognizedValue] -> ShowS
Prelude.Show)
data Compare'CompareResult
  = Compare'EQUAL |
    Compare'GREATER |
    Compare'LESS |
    Compare'NOT_EQUAL |
    Compare'CompareResult'Unrecognized !Compare'CompareResult'UnrecognizedValue
  deriving stock (Int -> Compare'CompareResult -> ShowS
[Compare'CompareResult] -> ShowS
Compare'CompareResult -> String
(Int -> Compare'CompareResult -> ShowS)
-> (Compare'CompareResult -> String)
-> ([Compare'CompareResult] -> ShowS)
-> Show Compare'CompareResult
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Compare'CompareResult -> ShowS
showsPrec :: Int -> Compare'CompareResult -> ShowS
$cshow :: Compare'CompareResult -> String
show :: Compare'CompareResult -> String
$cshowList :: [Compare'CompareResult] -> ShowS
showList :: [Compare'CompareResult] -> ShowS
Prelude.Show, Compare'CompareResult -> Compare'CompareResult -> Bool
(Compare'CompareResult -> Compare'CompareResult -> Bool)
-> (Compare'CompareResult -> Compare'CompareResult -> Bool)
-> Eq Compare'CompareResult
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Compare'CompareResult -> Compare'CompareResult -> Bool
== :: Compare'CompareResult -> Compare'CompareResult -> Bool
$c/= :: Compare'CompareResult -> Compare'CompareResult -> Bool
/= :: Compare'CompareResult -> Compare'CompareResult -> Bool
Prelude.Eq, Eq Compare'CompareResult
Eq Compare'CompareResult =>
(Compare'CompareResult -> Compare'CompareResult -> Ordering)
-> (Compare'CompareResult -> Compare'CompareResult -> Bool)
-> (Compare'CompareResult -> Compare'CompareResult -> Bool)
-> (Compare'CompareResult -> Compare'CompareResult -> Bool)
-> (Compare'CompareResult -> Compare'CompareResult -> Bool)
-> (Compare'CompareResult
    -> Compare'CompareResult -> Compare'CompareResult)
-> (Compare'CompareResult
    -> Compare'CompareResult -> Compare'CompareResult)
-> Ord Compare'CompareResult
Compare'CompareResult -> Compare'CompareResult -> Bool
Compare'CompareResult -> Compare'CompareResult -> Ordering
Compare'CompareResult
-> Compare'CompareResult -> Compare'CompareResult
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 :: Compare'CompareResult -> Compare'CompareResult -> Ordering
compare :: Compare'CompareResult -> Compare'CompareResult -> Ordering
$c< :: Compare'CompareResult -> Compare'CompareResult -> Bool
< :: Compare'CompareResult -> Compare'CompareResult -> Bool
$c<= :: Compare'CompareResult -> Compare'CompareResult -> Bool
<= :: Compare'CompareResult -> Compare'CompareResult -> Bool
$c> :: Compare'CompareResult -> Compare'CompareResult -> Bool
> :: Compare'CompareResult -> Compare'CompareResult -> Bool
$c>= :: Compare'CompareResult -> Compare'CompareResult -> Bool
>= :: Compare'CompareResult -> Compare'CompareResult -> Bool
$cmax :: Compare'CompareResult
-> Compare'CompareResult -> Compare'CompareResult
max :: Compare'CompareResult
-> Compare'CompareResult -> Compare'CompareResult
$cmin :: Compare'CompareResult
-> Compare'CompareResult -> Compare'CompareResult
min :: Compare'CompareResult
-> Compare'CompareResult -> Compare'CompareResult
Prelude.Ord)
instance Data.ProtoLens.MessageEnum Compare'CompareResult where
  maybeToEnum :: Int -> Maybe Compare'CompareResult
maybeToEnum Int
0 = Compare'CompareResult -> Maybe Compare'CompareResult
forall a. a -> Maybe a
Prelude.Just Compare'CompareResult
Compare'EQUAL
  maybeToEnum Int
1 = Compare'CompareResult -> Maybe Compare'CompareResult
forall a. a -> Maybe a
Prelude.Just Compare'CompareResult
Compare'GREATER
  maybeToEnum Int
2 = Compare'CompareResult -> Maybe Compare'CompareResult
forall a. a -> Maybe a
Prelude.Just Compare'CompareResult
Compare'LESS
  maybeToEnum Int
3 = Compare'CompareResult -> Maybe Compare'CompareResult
forall a. a -> Maybe a
Prelude.Just Compare'CompareResult
Compare'NOT_EQUAL
  maybeToEnum Int
k
    = Compare'CompareResult -> Maybe Compare'CompareResult
forall a. a -> Maybe a
Prelude.Just
        (Compare'CompareResult'UnrecognizedValue -> Compare'CompareResult
Compare'CompareResult'Unrecognized
           (Int32 -> Compare'CompareResult'UnrecognizedValue
Compare'CompareResult'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: Compare'CompareResult -> String
showEnum Compare'CompareResult
Compare'EQUAL = String
"EQUAL"
  showEnum Compare'CompareResult
Compare'GREATER = String
"GREATER"
  showEnum Compare'CompareResult
Compare'LESS = String
"LESS"
  showEnum Compare'CompareResult
Compare'NOT_EQUAL = String
"NOT_EQUAL"
  showEnum
    (Compare'CompareResult'Unrecognized (Compare'CompareResult'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe Compare'CompareResult
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"EQUAL" = Compare'CompareResult -> Maybe Compare'CompareResult
forall a. a -> Maybe a
Prelude.Just Compare'CompareResult
Compare'EQUAL
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"GREATER" = Compare'CompareResult -> Maybe Compare'CompareResult
forall a. a -> Maybe a
Prelude.Just Compare'CompareResult
Compare'GREATER
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"LESS" = Compare'CompareResult -> Maybe Compare'CompareResult
forall a. a -> Maybe a
Prelude.Just Compare'CompareResult
Compare'LESS
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"NOT_EQUAL" = Compare'CompareResult -> Maybe Compare'CompareResult
forall a. a -> Maybe a
Prelude.Just Compare'CompareResult
Compare'NOT_EQUAL
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe Compare'CompareResult)
-> Maybe Compare'CompareResult
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 Compare'CompareResult
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded Compare'CompareResult where
  minBound :: Compare'CompareResult
minBound = Compare'CompareResult
Compare'EQUAL
  maxBound :: Compare'CompareResult
maxBound = Compare'CompareResult
Compare'NOT_EQUAL
instance Prelude.Enum Compare'CompareResult where
  toEnum :: Int -> Compare'CompareResult
toEnum Int
k__
    = Compare'CompareResult
-> (Compare'CompareResult -> Compare'CompareResult)
-> Maybe Compare'CompareResult
-> Compare'CompareResult
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> Compare'CompareResult
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum CompareResult: "
              (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        Compare'CompareResult -> Compare'CompareResult
forall a. a -> a
Prelude.id (Int -> Maybe Compare'CompareResult
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: Compare'CompareResult -> Int
fromEnum Compare'CompareResult
Compare'EQUAL = Int
0
  fromEnum Compare'CompareResult
Compare'GREATER = Int
1
  fromEnum Compare'CompareResult
Compare'LESS = Int
2
  fromEnum Compare'CompareResult
Compare'NOT_EQUAL = Int
3
  fromEnum
    (Compare'CompareResult'Unrecognized (Compare'CompareResult'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: Compare'CompareResult -> Compare'CompareResult
succ Compare'CompareResult
Compare'NOT_EQUAL
    = String -> Compare'CompareResult
forall a. HasCallStack => String -> a
Prelude.error
        String
"Compare'CompareResult.succ: bad argument Compare'NOT_EQUAL. This value would be out of bounds."
  succ Compare'CompareResult
Compare'EQUAL = Compare'CompareResult
Compare'GREATER
  succ Compare'CompareResult
Compare'GREATER = Compare'CompareResult
Compare'LESS
  succ Compare'CompareResult
Compare'LESS = Compare'CompareResult
Compare'NOT_EQUAL
  succ (Compare'CompareResult'Unrecognized Compare'CompareResult'UnrecognizedValue
_)
    = String -> Compare'CompareResult
forall a. HasCallStack => String -> a
Prelude.error
        String
"Compare'CompareResult.succ: bad argument: unrecognized value"
  pred :: Compare'CompareResult -> Compare'CompareResult
pred Compare'CompareResult
Compare'EQUAL
    = String -> Compare'CompareResult
forall a. HasCallStack => String -> a
Prelude.error
        String
"Compare'CompareResult.pred: bad argument Compare'EQUAL. This value would be out of bounds."
  pred Compare'CompareResult
Compare'GREATER = Compare'CompareResult
Compare'EQUAL
  pred Compare'CompareResult
Compare'LESS = Compare'CompareResult
Compare'GREATER
  pred Compare'CompareResult
Compare'NOT_EQUAL = Compare'CompareResult
Compare'LESS
  pred (Compare'CompareResult'Unrecognized Compare'CompareResult'UnrecognizedValue
_)
    = String -> Compare'CompareResult
forall a. HasCallStack => String -> a
Prelude.error
        String
"Compare'CompareResult.pred: bad argument: unrecognized value"
  enumFrom :: Compare'CompareResult -> [Compare'CompareResult]
enumFrom = Compare'CompareResult -> [Compare'CompareResult]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: Compare'CompareResult
-> Compare'CompareResult -> [Compare'CompareResult]
enumFromTo = Compare'CompareResult
-> Compare'CompareResult -> [Compare'CompareResult]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: Compare'CompareResult
-> Compare'CompareResult -> [Compare'CompareResult]
enumFromThen = Compare'CompareResult
-> Compare'CompareResult -> [Compare'CompareResult]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: Compare'CompareResult
-> Compare'CompareResult
-> Compare'CompareResult
-> [Compare'CompareResult]
enumFromThenTo = Compare'CompareResult
-> Compare'CompareResult
-> Compare'CompareResult
-> [Compare'CompareResult]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault Compare'CompareResult where
  fieldDefault :: Compare'CompareResult
fieldDefault = Compare'CompareResult
Compare'EQUAL
instance Control.DeepSeq.NFData Compare'CompareResult where
  rnf :: Compare'CompareResult -> ()
rnf Compare'CompareResult
x__ = Compare'CompareResult -> () -> ()
forall a b. a -> b -> b
Prelude.seq Compare'CompareResult
x__ ()
newtype Compare'CompareTarget'UnrecognizedValue
  = Compare'CompareTarget'UnrecognizedValue Data.Int.Int32
  deriving stock (Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Bool
(Compare'CompareTarget'UnrecognizedValue
 -> Compare'CompareTarget'UnrecognizedValue -> Bool)
-> (Compare'CompareTarget'UnrecognizedValue
    -> Compare'CompareTarget'UnrecognizedValue -> Bool)
-> Eq Compare'CompareTarget'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Bool
== :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Bool
$c/= :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Bool
/= :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Bool
Prelude.Eq, Eq Compare'CompareTarget'UnrecognizedValue
Eq Compare'CompareTarget'UnrecognizedValue =>
(Compare'CompareTarget'UnrecognizedValue
 -> Compare'CompareTarget'UnrecognizedValue -> Ordering)
-> (Compare'CompareTarget'UnrecognizedValue
    -> Compare'CompareTarget'UnrecognizedValue -> Bool)
-> (Compare'CompareTarget'UnrecognizedValue
    -> Compare'CompareTarget'UnrecognizedValue -> Bool)
-> (Compare'CompareTarget'UnrecognizedValue
    -> Compare'CompareTarget'UnrecognizedValue -> Bool)
-> (Compare'CompareTarget'UnrecognizedValue
    -> Compare'CompareTarget'UnrecognizedValue -> Bool)
-> (Compare'CompareTarget'UnrecognizedValue
    -> Compare'CompareTarget'UnrecognizedValue
    -> Compare'CompareTarget'UnrecognizedValue)
-> (Compare'CompareTarget'UnrecognizedValue
    -> Compare'CompareTarget'UnrecognizedValue
    -> Compare'CompareTarget'UnrecognizedValue)
-> Ord Compare'CompareTarget'UnrecognizedValue
Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Bool
Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Ordering
Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'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 :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Ordering
compare :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Ordering
$c< :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Bool
< :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Bool
$c<= :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Bool
<= :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Bool
$c> :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Bool
> :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Bool
$c>= :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Bool
>= :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue -> Bool
$cmax :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue
max :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue
$cmin :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue
min :: Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue
-> Compare'CompareTarget'UnrecognizedValue
Prelude.Ord, Int -> Compare'CompareTarget'UnrecognizedValue -> ShowS
[Compare'CompareTarget'UnrecognizedValue] -> ShowS
Compare'CompareTarget'UnrecognizedValue -> String
(Int -> Compare'CompareTarget'UnrecognizedValue -> ShowS)
-> (Compare'CompareTarget'UnrecognizedValue -> String)
-> ([Compare'CompareTarget'UnrecognizedValue] -> ShowS)
-> Show Compare'CompareTarget'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Compare'CompareTarget'UnrecognizedValue -> ShowS
showsPrec :: Int -> Compare'CompareTarget'UnrecognizedValue -> ShowS
$cshow :: Compare'CompareTarget'UnrecognizedValue -> String
show :: Compare'CompareTarget'UnrecognizedValue -> String
$cshowList :: [Compare'CompareTarget'UnrecognizedValue] -> ShowS
showList :: [Compare'CompareTarget'UnrecognizedValue] -> ShowS
Prelude.Show)
data Compare'CompareTarget
  = Compare'VERSION |
    Compare'CREATE |
    Compare'MOD |
    Compare'VALUE |
    Compare'LEASE |
    Compare'CompareTarget'Unrecognized !Compare'CompareTarget'UnrecognizedValue
  deriving stock (Int -> Compare'CompareTarget -> ShowS
[Compare'CompareTarget] -> ShowS
Compare'CompareTarget -> String
(Int -> Compare'CompareTarget -> ShowS)
-> (Compare'CompareTarget -> String)
-> ([Compare'CompareTarget] -> ShowS)
-> Show Compare'CompareTarget
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Compare'CompareTarget -> ShowS
showsPrec :: Int -> Compare'CompareTarget -> ShowS
$cshow :: Compare'CompareTarget -> String
show :: Compare'CompareTarget -> String
$cshowList :: [Compare'CompareTarget] -> ShowS
showList :: [Compare'CompareTarget] -> ShowS
Prelude.Show, Compare'CompareTarget -> Compare'CompareTarget -> Bool
(Compare'CompareTarget -> Compare'CompareTarget -> Bool)
-> (Compare'CompareTarget -> Compare'CompareTarget -> Bool)
-> Eq Compare'CompareTarget
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Compare'CompareTarget -> Compare'CompareTarget -> Bool
== :: Compare'CompareTarget -> Compare'CompareTarget -> Bool
$c/= :: Compare'CompareTarget -> Compare'CompareTarget -> Bool
/= :: Compare'CompareTarget -> Compare'CompareTarget -> Bool
Prelude.Eq, Eq Compare'CompareTarget
Eq Compare'CompareTarget =>
(Compare'CompareTarget -> Compare'CompareTarget -> Ordering)
-> (Compare'CompareTarget -> Compare'CompareTarget -> Bool)
-> (Compare'CompareTarget -> Compare'CompareTarget -> Bool)
-> (Compare'CompareTarget -> Compare'CompareTarget -> Bool)
-> (Compare'CompareTarget -> Compare'CompareTarget -> Bool)
-> (Compare'CompareTarget
    -> Compare'CompareTarget -> Compare'CompareTarget)
-> (Compare'CompareTarget
    -> Compare'CompareTarget -> Compare'CompareTarget)
-> Ord Compare'CompareTarget
Compare'CompareTarget -> Compare'CompareTarget -> Bool
Compare'CompareTarget -> Compare'CompareTarget -> Ordering
Compare'CompareTarget
-> Compare'CompareTarget -> Compare'CompareTarget
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 :: Compare'CompareTarget -> Compare'CompareTarget -> Ordering
compare :: Compare'CompareTarget -> Compare'CompareTarget -> Ordering
$c< :: Compare'CompareTarget -> Compare'CompareTarget -> Bool
< :: Compare'CompareTarget -> Compare'CompareTarget -> Bool
$c<= :: Compare'CompareTarget -> Compare'CompareTarget -> Bool
<= :: Compare'CompareTarget -> Compare'CompareTarget -> Bool
$c> :: Compare'CompareTarget -> Compare'CompareTarget -> Bool
> :: Compare'CompareTarget -> Compare'CompareTarget -> Bool
$c>= :: Compare'CompareTarget -> Compare'CompareTarget -> Bool
>= :: Compare'CompareTarget -> Compare'CompareTarget -> Bool
$cmax :: Compare'CompareTarget
-> Compare'CompareTarget -> Compare'CompareTarget
max :: Compare'CompareTarget
-> Compare'CompareTarget -> Compare'CompareTarget
$cmin :: Compare'CompareTarget
-> Compare'CompareTarget -> Compare'CompareTarget
min :: Compare'CompareTarget
-> Compare'CompareTarget -> Compare'CompareTarget
Prelude.Ord)
instance Data.ProtoLens.MessageEnum Compare'CompareTarget where
  maybeToEnum :: Int -> Maybe Compare'CompareTarget
maybeToEnum Int
0 = Compare'CompareTarget -> Maybe Compare'CompareTarget
forall a. a -> Maybe a
Prelude.Just Compare'CompareTarget
Compare'VERSION
  maybeToEnum Int
1 = Compare'CompareTarget -> Maybe Compare'CompareTarget
forall a. a -> Maybe a
Prelude.Just Compare'CompareTarget
Compare'CREATE
  maybeToEnum Int
2 = Compare'CompareTarget -> Maybe Compare'CompareTarget
forall a. a -> Maybe a
Prelude.Just Compare'CompareTarget
Compare'MOD
  maybeToEnum Int
3 = Compare'CompareTarget -> Maybe Compare'CompareTarget
forall a. a -> Maybe a
Prelude.Just Compare'CompareTarget
Compare'VALUE
  maybeToEnum Int
4 = Compare'CompareTarget -> Maybe Compare'CompareTarget
forall a. a -> Maybe a
Prelude.Just Compare'CompareTarget
Compare'LEASE
  maybeToEnum Int
k
    = Compare'CompareTarget -> Maybe Compare'CompareTarget
forall a. a -> Maybe a
Prelude.Just
        (Compare'CompareTarget'UnrecognizedValue -> Compare'CompareTarget
Compare'CompareTarget'Unrecognized
           (Int32 -> Compare'CompareTarget'UnrecognizedValue
Compare'CompareTarget'UnrecognizedValue (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: Compare'CompareTarget -> String
showEnum Compare'CompareTarget
Compare'VERSION = String
"VERSION"
  showEnum Compare'CompareTarget
Compare'CREATE = String
"CREATE"
  showEnum Compare'CompareTarget
Compare'MOD = String
"MOD"
  showEnum Compare'CompareTarget
Compare'VALUE = String
"VALUE"
  showEnum Compare'CompareTarget
Compare'LEASE = String
"LEASE"
  showEnum
    (Compare'CompareTarget'Unrecognized (Compare'CompareTarget'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe Compare'CompareTarget
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"VERSION" = Compare'CompareTarget -> Maybe Compare'CompareTarget
forall a. a -> Maybe a
Prelude.Just Compare'CompareTarget
Compare'VERSION
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"CREATE" = Compare'CompareTarget -> Maybe Compare'CompareTarget
forall a. a -> Maybe a
Prelude.Just Compare'CompareTarget
Compare'CREATE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"MOD" = Compare'CompareTarget -> Maybe Compare'CompareTarget
forall a. a -> Maybe a
Prelude.Just Compare'CompareTarget
Compare'MOD
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"VALUE" = Compare'CompareTarget -> Maybe Compare'CompareTarget
forall a. a -> Maybe a
Prelude.Just Compare'CompareTarget
Compare'VALUE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"LEASE" = Compare'CompareTarget -> Maybe Compare'CompareTarget
forall a. a -> Maybe a
Prelude.Just Compare'CompareTarget
Compare'LEASE
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe Compare'CompareTarget)
-> Maybe Compare'CompareTarget
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 Compare'CompareTarget
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded Compare'CompareTarget where
  minBound :: Compare'CompareTarget
minBound = Compare'CompareTarget
Compare'VERSION
  maxBound :: Compare'CompareTarget
maxBound = Compare'CompareTarget
Compare'LEASE
instance Prelude.Enum Compare'CompareTarget where
  toEnum :: Int -> Compare'CompareTarget
toEnum Int
k__
    = Compare'CompareTarget
-> (Compare'CompareTarget -> Compare'CompareTarget)
-> Maybe Compare'CompareTarget
-> Compare'CompareTarget
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> Compare'CompareTarget
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum CompareTarget: "
              (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        Compare'CompareTarget -> Compare'CompareTarget
forall a. a -> a
Prelude.id (Int -> Maybe Compare'CompareTarget
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: Compare'CompareTarget -> Int
fromEnum Compare'CompareTarget
Compare'VERSION = Int
0
  fromEnum Compare'CompareTarget
Compare'CREATE = Int
1
  fromEnum Compare'CompareTarget
Compare'MOD = Int
2
  fromEnum Compare'CompareTarget
Compare'VALUE = Int
3
  fromEnum Compare'CompareTarget
Compare'LEASE = Int
4
  fromEnum
    (Compare'CompareTarget'Unrecognized (Compare'CompareTarget'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: Compare'CompareTarget -> Compare'CompareTarget
succ Compare'CompareTarget
Compare'LEASE
    = String -> Compare'CompareTarget
forall a. HasCallStack => String -> a
Prelude.error
        String
"Compare'CompareTarget.succ: bad argument Compare'LEASE. This value would be out of bounds."
  succ Compare'CompareTarget
Compare'VERSION = Compare'CompareTarget
Compare'CREATE
  succ Compare'CompareTarget
Compare'CREATE = Compare'CompareTarget
Compare'MOD
  succ Compare'CompareTarget
Compare'MOD = Compare'CompareTarget
Compare'VALUE
  succ Compare'CompareTarget
Compare'VALUE = Compare'CompareTarget
Compare'LEASE
  succ (Compare'CompareTarget'Unrecognized Compare'CompareTarget'UnrecognizedValue
_)
    = String -> Compare'CompareTarget
forall a. HasCallStack => String -> a
Prelude.error
        String
"Compare'CompareTarget.succ: bad argument: unrecognized value"
  pred :: Compare'CompareTarget -> Compare'CompareTarget
pred Compare'CompareTarget
Compare'VERSION
    = String -> Compare'CompareTarget
forall a. HasCallStack => String -> a
Prelude.error
        String
"Compare'CompareTarget.pred: bad argument Compare'VERSION. This value would be out of bounds."
  pred Compare'CompareTarget
Compare'CREATE = Compare'CompareTarget
Compare'VERSION
  pred Compare'CompareTarget
Compare'MOD = Compare'CompareTarget
Compare'CREATE
  pred Compare'CompareTarget
Compare'VALUE = Compare'CompareTarget
Compare'MOD
  pred Compare'CompareTarget
Compare'LEASE = Compare'CompareTarget
Compare'VALUE
  pred (Compare'CompareTarget'Unrecognized Compare'CompareTarget'UnrecognizedValue
_)
    = String -> Compare'CompareTarget
forall a. HasCallStack => String -> a
Prelude.error
        String
"Compare'CompareTarget.pred: bad argument: unrecognized value"
  enumFrom :: Compare'CompareTarget -> [Compare'CompareTarget]
enumFrom = Compare'CompareTarget -> [Compare'CompareTarget]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: Compare'CompareTarget
-> Compare'CompareTarget -> [Compare'CompareTarget]
enumFromTo = Compare'CompareTarget
-> Compare'CompareTarget -> [Compare'CompareTarget]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: Compare'CompareTarget
-> Compare'CompareTarget -> [Compare'CompareTarget]
enumFromThen = Compare'CompareTarget
-> Compare'CompareTarget -> [Compare'CompareTarget]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: Compare'CompareTarget
-> Compare'CompareTarget
-> Compare'CompareTarget
-> [Compare'CompareTarget]
enumFromThenTo = Compare'CompareTarget
-> Compare'CompareTarget
-> Compare'CompareTarget
-> [Compare'CompareTarget]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault Compare'CompareTarget where
  fieldDefault :: Compare'CompareTarget
fieldDefault = Compare'CompareTarget
Compare'VERSION
instance Control.DeepSeq.NFData Compare'CompareTarget where
  rnf :: Compare'CompareTarget -> ()
rnf Compare'CompareTarget
x__ = Compare'CompareTarget -> () -> ()
forall a b. a -> b -> b
Prelude.seq Compare'CompareTarget
x__ ()
{- | Fields :
      -}
data DefragmentRequest
  = DefragmentRequest'_constructor {DefragmentRequest -> FieldSet
_DefragmentRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DefragmentRequest -> DefragmentRequest -> Bool
(DefragmentRequest -> DefragmentRequest -> Bool)
-> (DefragmentRequest -> DefragmentRequest -> Bool)
-> Eq DefragmentRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DefragmentRequest -> DefragmentRequest -> Bool
== :: DefragmentRequest -> DefragmentRequest -> Bool
$c/= :: DefragmentRequest -> DefragmentRequest -> Bool
/= :: DefragmentRequest -> DefragmentRequest -> Bool
Prelude.Eq, Eq DefragmentRequest
Eq DefragmentRequest =>
(DefragmentRequest -> DefragmentRequest -> Ordering)
-> (DefragmentRequest -> DefragmentRequest -> Bool)
-> (DefragmentRequest -> DefragmentRequest -> Bool)
-> (DefragmentRequest -> DefragmentRequest -> Bool)
-> (DefragmentRequest -> DefragmentRequest -> Bool)
-> (DefragmentRequest -> DefragmentRequest -> DefragmentRequest)
-> (DefragmentRequest -> DefragmentRequest -> DefragmentRequest)
-> Ord DefragmentRequest
DefragmentRequest -> DefragmentRequest -> Bool
DefragmentRequest -> DefragmentRequest -> Ordering
DefragmentRequest -> DefragmentRequest -> DefragmentRequest
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 :: DefragmentRequest -> DefragmentRequest -> Ordering
compare :: DefragmentRequest -> DefragmentRequest -> Ordering
$c< :: DefragmentRequest -> DefragmentRequest -> Bool
< :: DefragmentRequest -> DefragmentRequest -> Bool
$c<= :: DefragmentRequest -> DefragmentRequest -> Bool
<= :: DefragmentRequest -> DefragmentRequest -> Bool
$c> :: DefragmentRequest -> DefragmentRequest -> Bool
> :: DefragmentRequest -> DefragmentRequest -> Bool
$c>= :: DefragmentRequest -> DefragmentRequest -> Bool
>= :: DefragmentRequest -> DefragmentRequest -> Bool
$cmax :: DefragmentRequest -> DefragmentRequest -> DefragmentRequest
max :: DefragmentRequest -> DefragmentRequest -> DefragmentRequest
$cmin :: DefragmentRequest -> DefragmentRequest -> DefragmentRequest
min :: DefragmentRequest -> DefragmentRequest -> DefragmentRequest
Prelude.Ord)
instance Prelude.Show DefragmentRequest where
  showsPrec :: Int -> DefragmentRequest -> ShowS
showsPrec Int
_ DefragmentRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (DefragmentRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DefragmentRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message DefragmentRequest where
  messageName :: Proxy DefragmentRequest -> Text
messageName Proxy DefragmentRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.DefragmentRequest"
  packedMessageDescriptor :: Proxy DefragmentRequest -> ByteString
packedMessageDescriptor Proxy DefragmentRequest
_
    = ByteString
"\n\
      \\DC1DefragmentRequest:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy DefragmentRequest -> ByteString
packedFileDescriptor Proxy DefragmentRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DefragmentRequest)
fieldsByTag = let in [(Tag, FieldDescriptor DefragmentRequest)]
-> Map Tag (FieldDescriptor DefragmentRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' DefragmentRequest FieldSet
unknownFields
    = (DefragmentRequest -> FieldSet)
-> (DefragmentRequest -> FieldSet -> DefragmentRequest)
-> Lens' DefragmentRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DefragmentRequest -> FieldSet
_DefragmentRequest'_unknownFields
        (\ DefragmentRequest
x__ FieldSet
y__ -> DefragmentRequest
x__ {_DefragmentRequest'_unknownFields = y__})
  defMessage :: DefragmentRequest
defMessage
    = DefragmentRequest'_constructor
        {_DefragmentRequest'_unknownFields :: FieldSet
_DefragmentRequest'_unknownFields = []}
  parseMessage :: Parser DefragmentRequest
parseMessage
    = let
        loop ::
          DefragmentRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser DefragmentRequest
        loop :: DefragmentRequest -> Parser DefragmentRequest
loop DefragmentRequest
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
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 DefragmentRequest -> String -> Parser DefragmentRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DefragmentRequest -> Parser DefragmentRequest
loop DefragmentRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DefragmentRequest"
  buildMessage :: DefragmentRequest -> Builder
buildMessage
    = \ DefragmentRequest
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet DefragmentRequest DefragmentRequest FieldSet FieldSet
-> DefragmentRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet DefragmentRequest DefragmentRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' DefragmentRequest FieldSet
Data.ProtoLens.unknownFields DefragmentRequest
_x)
instance Control.DeepSeq.NFData DefragmentRequest where
  rnf :: DefragmentRequest -> ()
rnf
    = \ DefragmentRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DefragmentRequest -> FieldSet
_DefragmentRequest'_unknownFields DefragmentRequest
x__) ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' DefragmentResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' DefragmentResponse (Prelude.Maybe ResponseHeader)@ -}
data DefragmentResponse
  = DefragmentResponse'_constructor {DefragmentResponse -> Maybe ResponseHeader
_DefragmentResponse'header :: !(Prelude.Maybe ResponseHeader),
                                     DefragmentResponse -> FieldSet
_DefragmentResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DefragmentResponse -> DefragmentResponse -> Bool
(DefragmentResponse -> DefragmentResponse -> Bool)
-> (DefragmentResponse -> DefragmentResponse -> Bool)
-> Eq DefragmentResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DefragmentResponse -> DefragmentResponse -> Bool
== :: DefragmentResponse -> DefragmentResponse -> Bool
$c/= :: DefragmentResponse -> DefragmentResponse -> Bool
/= :: DefragmentResponse -> DefragmentResponse -> Bool
Prelude.Eq, Eq DefragmentResponse
Eq DefragmentResponse =>
(DefragmentResponse -> DefragmentResponse -> Ordering)
-> (DefragmentResponse -> DefragmentResponse -> Bool)
-> (DefragmentResponse -> DefragmentResponse -> Bool)
-> (DefragmentResponse -> DefragmentResponse -> Bool)
-> (DefragmentResponse -> DefragmentResponse -> Bool)
-> (DefragmentResponse -> DefragmentResponse -> DefragmentResponse)
-> (DefragmentResponse -> DefragmentResponse -> DefragmentResponse)
-> Ord DefragmentResponse
DefragmentResponse -> DefragmentResponse -> Bool
DefragmentResponse -> DefragmentResponse -> Ordering
DefragmentResponse -> DefragmentResponse -> DefragmentResponse
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 :: DefragmentResponse -> DefragmentResponse -> Ordering
compare :: DefragmentResponse -> DefragmentResponse -> Ordering
$c< :: DefragmentResponse -> DefragmentResponse -> Bool
< :: DefragmentResponse -> DefragmentResponse -> Bool
$c<= :: DefragmentResponse -> DefragmentResponse -> Bool
<= :: DefragmentResponse -> DefragmentResponse -> Bool
$c> :: DefragmentResponse -> DefragmentResponse -> Bool
> :: DefragmentResponse -> DefragmentResponse -> Bool
$c>= :: DefragmentResponse -> DefragmentResponse -> Bool
>= :: DefragmentResponse -> DefragmentResponse -> Bool
$cmax :: DefragmentResponse -> DefragmentResponse -> DefragmentResponse
max :: DefragmentResponse -> DefragmentResponse -> DefragmentResponse
$cmin :: DefragmentResponse -> DefragmentResponse -> DefragmentResponse
min :: DefragmentResponse -> DefragmentResponse -> DefragmentResponse
Prelude.Ord)
instance Prelude.Show DefragmentResponse where
  showsPrec :: Int -> DefragmentResponse -> ShowS
showsPrec Int
_ DefragmentResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (DefragmentResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DefragmentResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField DefragmentResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> DefragmentResponse
-> f DefragmentResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> DefragmentResponse -> f DefragmentResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> DefragmentResponse
-> f DefragmentResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DefragmentResponse -> Maybe ResponseHeader)
-> (DefragmentResponse
    -> Maybe ResponseHeader -> DefragmentResponse)
-> Lens
     DefragmentResponse
     DefragmentResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DefragmentResponse -> Maybe ResponseHeader
_DefragmentResponse'header
           (\ DefragmentResponse
x__ Maybe ResponseHeader
y__ -> DefragmentResponse
x__ {_DefragmentResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DefragmentResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> DefragmentResponse
-> f DefragmentResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> DefragmentResponse -> f DefragmentResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> DefragmentResponse
-> f DefragmentResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DefragmentResponse -> Maybe ResponseHeader)
-> (DefragmentResponse
    -> Maybe ResponseHeader -> DefragmentResponse)
-> Lens
     DefragmentResponse
     DefragmentResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DefragmentResponse -> Maybe ResponseHeader
_DefragmentResponse'header
           (\ DefragmentResponse
x__ Maybe ResponseHeader
y__ -> DefragmentResponse
x__ {_DefragmentResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DefragmentResponse where
  messageName :: Proxy DefragmentResponse -> Text
messageName Proxy DefragmentResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.DefragmentResponse"
  packedMessageDescriptor :: Proxy DefragmentResponse -> ByteString
packedMessageDescriptor Proxy DefragmentResponse
_
    = ByteString
"\n\
      \\DC2DefragmentResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy DefragmentResponse -> ByteString
packedFileDescriptor Proxy DefragmentResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DefragmentResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor DefragmentResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor DefragmentResponse ResponseHeader
-> FieldDescriptor DefragmentResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  DefragmentResponse
  DefragmentResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor DefragmentResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor DefragmentResponse
      in
        [(Tag, FieldDescriptor DefragmentResponse)]
-> Map Tag (FieldDescriptor DefragmentResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor DefragmentResponse
header__field_descriptor)]
  unknownFields :: Lens' DefragmentResponse FieldSet
unknownFields
    = (DefragmentResponse -> FieldSet)
-> (DefragmentResponse -> FieldSet -> DefragmentResponse)
-> Lens' DefragmentResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DefragmentResponse -> FieldSet
_DefragmentResponse'_unknownFields
        (\ DefragmentResponse
x__ FieldSet
y__ -> DefragmentResponse
x__ {_DefragmentResponse'_unknownFields = y__})
  defMessage :: DefragmentResponse
defMessage
    = DefragmentResponse'_constructor
        {_DefragmentResponse'header :: Maybe ResponseHeader
_DefragmentResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _DefragmentResponse'_unknownFields :: FieldSet
_DefragmentResponse'_unknownFields = []}
  parseMessage :: Parser DefragmentResponse
parseMessage
    = let
        loop ::
          DefragmentResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser DefragmentResponse
        loop :: DefragmentResponse -> Parser DefragmentResponse
loop DefragmentResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 DefragmentResponse -> String -> Parser DefragmentResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DefragmentResponse -> Parser DefragmentResponse
loop DefragmentResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DefragmentResponse"
  buildMessage :: DefragmentResponse -> Builder
buildMessage
    = \ DefragmentResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  DefragmentResponse
  DefragmentResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> DefragmentResponse -> Maybe ResponseHeader
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'header") DefragmentResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet DefragmentResponse DefragmentResponse FieldSet FieldSet
-> DefragmentResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet DefragmentResponse DefragmentResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' DefragmentResponse FieldSet
Data.ProtoLens.unknownFields DefragmentResponse
_x))
instance Control.DeepSeq.NFData DefragmentResponse where
  rnf :: DefragmentResponse -> ()
rnf
    = \ DefragmentResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DefragmentResponse -> FieldSet
_DefragmentResponse'_unknownFields DefragmentResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (DefragmentResponse -> Maybe ResponseHeader
_DefragmentResponse'header DefragmentResponse
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.key' @:: Lens' DeleteRangeRequest Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.rangeEnd' @:: Lens' DeleteRangeRequest Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.prevKv' @:: Lens' DeleteRangeRequest Prelude.Bool@ -}
data DeleteRangeRequest
  = DeleteRangeRequest'_constructor {DeleteRangeRequest -> ByteString
_DeleteRangeRequest'key :: !Data.ByteString.ByteString,
                                     DeleteRangeRequest -> ByteString
_DeleteRangeRequest'rangeEnd :: !Data.ByteString.ByteString,
                                     DeleteRangeRequest -> Bool
_DeleteRangeRequest'prevKv :: !Prelude.Bool,
                                     DeleteRangeRequest -> FieldSet
_DeleteRangeRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DeleteRangeRequest -> DeleteRangeRequest -> Bool
(DeleteRangeRequest -> DeleteRangeRequest -> Bool)
-> (DeleteRangeRequest -> DeleteRangeRequest -> Bool)
-> Eq DeleteRangeRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeleteRangeRequest -> DeleteRangeRequest -> Bool
== :: DeleteRangeRequest -> DeleteRangeRequest -> Bool
$c/= :: DeleteRangeRequest -> DeleteRangeRequest -> Bool
/= :: DeleteRangeRequest -> DeleteRangeRequest -> Bool
Prelude.Eq, Eq DeleteRangeRequest
Eq DeleteRangeRequest =>
(DeleteRangeRequest -> DeleteRangeRequest -> Ordering)
-> (DeleteRangeRequest -> DeleteRangeRequest -> Bool)
-> (DeleteRangeRequest -> DeleteRangeRequest -> Bool)
-> (DeleteRangeRequest -> DeleteRangeRequest -> Bool)
-> (DeleteRangeRequest -> DeleteRangeRequest -> Bool)
-> (DeleteRangeRequest -> DeleteRangeRequest -> DeleteRangeRequest)
-> (DeleteRangeRequest -> DeleteRangeRequest -> DeleteRangeRequest)
-> Ord DeleteRangeRequest
DeleteRangeRequest -> DeleteRangeRequest -> Bool
DeleteRangeRequest -> DeleteRangeRequest -> Ordering
DeleteRangeRequest -> DeleteRangeRequest -> DeleteRangeRequest
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 :: DeleteRangeRequest -> DeleteRangeRequest -> Ordering
compare :: DeleteRangeRequest -> DeleteRangeRequest -> Ordering
$c< :: DeleteRangeRequest -> DeleteRangeRequest -> Bool
< :: DeleteRangeRequest -> DeleteRangeRequest -> Bool
$c<= :: DeleteRangeRequest -> DeleteRangeRequest -> Bool
<= :: DeleteRangeRequest -> DeleteRangeRequest -> Bool
$c> :: DeleteRangeRequest -> DeleteRangeRequest -> Bool
> :: DeleteRangeRequest -> DeleteRangeRequest -> Bool
$c>= :: DeleteRangeRequest -> DeleteRangeRequest -> Bool
>= :: DeleteRangeRequest -> DeleteRangeRequest -> Bool
$cmax :: DeleteRangeRequest -> DeleteRangeRequest -> DeleteRangeRequest
max :: DeleteRangeRequest -> DeleteRangeRequest -> DeleteRangeRequest
$cmin :: DeleteRangeRequest -> DeleteRangeRequest -> DeleteRangeRequest
min :: DeleteRangeRequest -> DeleteRangeRequest -> DeleteRangeRequest
Prelude.Ord)
instance Prelude.Show DeleteRangeRequest where
  showsPrec :: Int -> DeleteRangeRequest -> ShowS
showsPrec Int
_ DeleteRangeRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (DeleteRangeRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DeleteRangeRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField DeleteRangeRequest "key" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (ByteString -> f ByteString)
-> DeleteRangeRequest
-> f DeleteRangeRequest
fieldOf Proxy# "key"
_
    = ((ByteString -> f ByteString)
 -> DeleteRangeRequest -> f DeleteRangeRequest)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> DeleteRangeRequest
-> f DeleteRangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeleteRangeRequest -> ByteString)
-> (DeleteRangeRequest -> ByteString -> DeleteRangeRequest)
-> Lens DeleteRangeRequest DeleteRangeRequest ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeleteRangeRequest -> ByteString
_DeleteRangeRequest'key
           (\ DeleteRangeRequest
x__ ByteString
y__ -> DeleteRangeRequest
x__ {_DeleteRangeRequest'key = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeleteRangeRequest "rangeEnd" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rangeEnd"
-> (ByteString -> f ByteString)
-> DeleteRangeRequest
-> f DeleteRangeRequest
fieldOf Proxy# "rangeEnd"
_
    = ((ByteString -> f ByteString)
 -> DeleteRangeRequest -> f DeleteRangeRequest)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> DeleteRangeRequest
-> f DeleteRangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeleteRangeRequest -> ByteString)
-> (DeleteRangeRequest -> ByteString -> DeleteRangeRequest)
-> Lens DeleteRangeRequest DeleteRangeRequest ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeleteRangeRequest -> ByteString
_DeleteRangeRequest'rangeEnd
           (\ DeleteRangeRequest
x__ ByteString
y__ -> DeleteRangeRequest
x__ {_DeleteRangeRequest'rangeEnd = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeleteRangeRequest "prevKv" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "prevKv"
-> (Bool -> f Bool) -> DeleteRangeRequest -> f DeleteRangeRequest
fieldOf Proxy# "prevKv"
_
    = ((Bool -> f Bool) -> DeleteRangeRequest -> f DeleteRangeRequest)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> DeleteRangeRequest
-> f DeleteRangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeleteRangeRequest -> Bool)
-> (DeleteRangeRequest -> Bool -> DeleteRangeRequest)
-> Lens DeleteRangeRequest DeleteRangeRequest Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeleteRangeRequest -> Bool
_DeleteRangeRequest'prevKv
           (\ DeleteRangeRequest
x__ Bool
y__ -> DeleteRangeRequest
x__ {_DeleteRangeRequest'prevKv = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DeleteRangeRequest where
  messageName :: Proxy DeleteRangeRequest -> Text
messageName Proxy DeleteRangeRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.DeleteRangeRequest"
  packedMessageDescriptor :: Proxy DeleteRangeRequest -> ByteString
packedMessageDescriptor Proxy DeleteRangeRequest
_
    = ByteString
"\n\
      \\DC2DeleteRangeRequest\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\fR\ETXkey\DC2\ESC\n\
      \\trange_end\CAN\STX \SOH(\fR\brangeEnd\DC2 \n\
      \\aprev_kv\CAN\ETX \SOH(\bR\ACKprevKvB\a\138\181\CAN\ETX3.1:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy DeleteRangeRequest -> ByteString
packedFileDescriptor Proxy DeleteRangeRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DeleteRangeRequest)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor DeleteRangeRequest
key__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor DeleteRangeRequest ByteString
-> FieldDescriptor DeleteRangeRequest
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 DeleteRangeRequest DeleteRangeRequest ByteString ByteString
-> FieldAccessor DeleteRangeRequest 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 DeleteRangeRequest
        rangeEnd__field_descriptor :: FieldDescriptor DeleteRangeRequest
rangeEnd__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor DeleteRangeRequest ByteString
-> FieldDescriptor DeleteRangeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"range_end"
              (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 DeleteRangeRequest DeleteRangeRequest ByteString ByteString
-> FieldAccessor DeleteRangeRequest 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 @"rangeEnd")) ::
              Data.ProtoLens.FieldDescriptor DeleteRangeRequest
        prevKv__field_descriptor :: FieldDescriptor DeleteRangeRequest
prevKv__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor DeleteRangeRequest Bool
-> FieldDescriptor DeleteRangeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"prev_kv"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens DeleteRangeRequest DeleteRangeRequest Bool Bool
-> FieldAccessor DeleteRangeRequest Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"prevKv")) ::
              Data.ProtoLens.FieldDescriptor DeleteRangeRequest
      in
        [(Tag, FieldDescriptor DeleteRangeRequest)]
-> Map Tag (FieldDescriptor DeleteRangeRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor DeleteRangeRequest
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor DeleteRangeRequest
rangeEnd__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor DeleteRangeRequest
prevKv__field_descriptor)]
  unknownFields :: Lens' DeleteRangeRequest FieldSet
unknownFields
    = (DeleteRangeRequest -> FieldSet)
-> (DeleteRangeRequest -> FieldSet -> DeleteRangeRequest)
-> Lens' DeleteRangeRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DeleteRangeRequest -> FieldSet
_DeleteRangeRequest'_unknownFields
        (\ DeleteRangeRequest
x__ FieldSet
y__ -> DeleteRangeRequest
x__ {_DeleteRangeRequest'_unknownFields = y__})
  defMessage :: DeleteRangeRequest
defMessage
    = DeleteRangeRequest'_constructor
        {_DeleteRangeRequest'key :: ByteString
_DeleteRangeRequest'key = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeleteRangeRequest'rangeEnd :: ByteString
_DeleteRangeRequest'rangeEnd = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeleteRangeRequest'prevKv :: Bool
_DeleteRangeRequest'prevKv = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeleteRangeRequest'_unknownFields :: FieldSet
_DeleteRangeRequest'_unknownFields = []}
  parseMessage :: Parser DeleteRangeRequest
parseMessage
    = let
        loop ::
          DeleteRangeRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser DeleteRangeRequest
        loop :: DeleteRangeRequest -> Parser DeleteRangeRequest
loop DeleteRangeRequest
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
18
                          -> 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
"range_end"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"rangeEnd") y x)
                        Word64
24
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       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 DeleteRangeRequest -> String -> Parser DeleteRangeRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DeleteRangeRequest -> Parser DeleteRangeRequest
loop DeleteRangeRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DeleteRangeRequest"
  buildMessage :: DeleteRangeRequest -> Builder
buildMessage
    = \ DeleteRangeRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike
  ByteString
  DeleteRangeRequest
  DeleteRangeRequest
  ByteString
  ByteString
-> DeleteRangeRequest -> 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") DeleteRangeRequest
_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 :: ByteString
_v = FoldLike
  ByteString
  DeleteRangeRequest
  DeleteRangeRequest
  ByteString
  ByteString
-> DeleteRangeRequest -> 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 @"rangeEnd") DeleteRangeRequest
_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
18)
                         ((\ 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 :: Bool
_v = FoldLike Bool DeleteRangeRequest DeleteRangeRequest Bool Bool
-> DeleteRangeRequest -> Bool
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 @"prevKv") DeleteRangeRequest
_x
                    in
                      if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                               Bool
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet DeleteRangeRequest DeleteRangeRequest FieldSet FieldSet
-> DeleteRangeRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet DeleteRangeRequest DeleteRangeRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' DeleteRangeRequest FieldSet
Data.ProtoLens.unknownFields DeleteRangeRequest
_x))))
instance Control.DeepSeq.NFData DeleteRangeRequest where
  rnf :: DeleteRangeRequest -> ()
rnf
    = \ DeleteRangeRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DeleteRangeRequest -> FieldSet
_DeleteRangeRequest'_unknownFields DeleteRangeRequest
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (DeleteRangeRequest -> ByteString
_DeleteRangeRequest'key DeleteRangeRequest
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (DeleteRangeRequest -> ByteString
_DeleteRangeRequest'rangeEnd DeleteRangeRequest
x__)
                   (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (DeleteRangeRequest -> Bool
_DeleteRangeRequest'prevKv DeleteRangeRequest
x__) ())))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' DeleteRangeResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' DeleteRangeResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.deleted' @:: Lens' DeleteRangeResponse Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.prevKvs' @:: Lens' DeleteRangeResponse [Proto.Etcd.Api.Mvccpb.Kv.KeyValue]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'prevKvs' @:: Lens' DeleteRangeResponse (Data.Vector.Vector Proto.Etcd.Api.Mvccpb.Kv.KeyValue)@ -}
data DeleteRangeResponse
  = DeleteRangeResponse'_constructor {DeleteRangeResponse -> Maybe ResponseHeader
_DeleteRangeResponse'header :: !(Prelude.Maybe ResponseHeader),
                                      DeleteRangeResponse -> Int64
_DeleteRangeResponse'deleted :: !Data.Int.Int64,
                                      DeleteRangeResponse -> Vector KeyValue
_DeleteRangeResponse'prevKvs :: !(Data.Vector.Vector Proto.Etcd.Api.Mvccpb.Kv.KeyValue),
                                      DeleteRangeResponse -> FieldSet
_DeleteRangeResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DeleteRangeResponse -> DeleteRangeResponse -> Bool
(DeleteRangeResponse -> DeleteRangeResponse -> Bool)
-> (DeleteRangeResponse -> DeleteRangeResponse -> Bool)
-> Eq DeleteRangeResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DeleteRangeResponse -> DeleteRangeResponse -> Bool
== :: DeleteRangeResponse -> DeleteRangeResponse -> Bool
$c/= :: DeleteRangeResponse -> DeleteRangeResponse -> Bool
/= :: DeleteRangeResponse -> DeleteRangeResponse -> Bool
Prelude.Eq, Eq DeleteRangeResponse
Eq DeleteRangeResponse =>
(DeleteRangeResponse -> DeleteRangeResponse -> Ordering)
-> (DeleteRangeResponse -> DeleteRangeResponse -> Bool)
-> (DeleteRangeResponse -> DeleteRangeResponse -> Bool)
-> (DeleteRangeResponse -> DeleteRangeResponse -> Bool)
-> (DeleteRangeResponse -> DeleteRangeResponse -> Bool)
-> (DeleteRangeResponse
    -> DeleteRangeResponse -> DeleteRangeResponse)
-> (DeleteRangeResponse
    -> DeleteRangeResponse -> DeleteRangeResponse)
-> Ord DeleteRangeResponse
DeleteRangeResponse -> DeleteRangeResponse -> Bool
DeleteRangeResponse -> DeleteRangeResponse -> Ordering
DeleteRangeResponse -> DeleteRangeResponse -> DeleteRangeResponse
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 :: DeleteRangeResponse -> DeleteRangeResponse -> Ordering
compare :: DeleteRangeResponse -> DeleteRangeResponse -> Ordering
$c< :: DeleteRangeResponse -> DeleteRangeResponse -> Bool
< :: DeleteRangeResponse -> DeleteRangeResponse -> Bool
$c<= :: DeleteRangeResponse -> DeleteRangeResponse -> Bool
<= :: DeleteRangeResponse -> DeleteRangeResponse -> Bool
$c> :: DeleteRangeResponse -> DeleteRangeResponse -> Bool
> :: DeleteRangeResponse -> DeleteRangeResponse -> Bool
$c>= :: DeleteRangeResponse -> DeleteRangeResponse -> Bool
>= :: DeleteRangeResponse -> DeleteRangeResponse -> Bool
$cmax :: DeleteRangeResponse -> DeleteRangeResponse -> DeleteRangeResponse
max :: DeleteRangeResponse -> DeleteRangeResponse -> DeleteRangeResponse
$cmin :: DeleteRangeResponse -> DeleteRangeResponse -> DeleteRangeResponse
min :: DeleteRangeResponse -> DeleteRangeResponse -> DeleteRangeResponse
Prelude.Ord)
instance Prelude.Show DeleteRangeResponse where
  showsPrec :: Int -> DeleteRangeResponse -> ShowS
showsPrec Int
_ DeleteRangeResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (DeleteRangeResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DeleteRangeResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField DeleteRangeResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> DeleteRangeResponse
-> f DeleteRangeResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> DeleteRangeResponse -> f DeleteRangeResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> DeleteRangeResponse
-> f DeleteRangeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeleteRangeResponse -> Maybe ResponseHeader)
-> (DeleteRangeResponse
    -> Maybe ResponseHeader -> DeleteRangeResponse)
-> Lens
     DeleteRangeResponse
     DeleteRangeResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeleteRangeResponse -> Maybe ResponseHeader
_DeleteRangeResponse'header
           (\ DeleteRangeResponse
x__ Maybe ResponseHeader
y__ -> DeleteRangeResponse
x__ {_DeleteRangeResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DeleteRangeResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> DeleteRangeResponse
-> f DeleteRangeResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> DeleteRangeResponse -> f DeleteRangeResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> DeleteRangeResponse
-> f DeleteRangeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeleteRangeResponse -> Maybe ResponseHeader)
-> (DeleteRangeResponse
    -> Maybe ResponseHeader -> DeleteRangeResponse)
-> Lens
     DeleteRangeResponse
     DeleteRangeResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeleteRangeResponse -> Maybe ResponseHeader
_DeleteRangeResponse'header
           (\ DeleteRangeResponse
x__ Maybe ResponseHeader
y__ -> DeleteRangeResponse
x__ {_DeleteRangeResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeleteRangeResponse "deleted" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "deleted"
-> (Int64 -> f Int64)
-> DeleteRangeResponse
-> f DeleteRangeResponse
fieldOf Proxy# "deleted"
_
    = ((Int64 -> f Int64)
 -> DeleteRangeResponse -> f DeleteRangeResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> DeleteRangeResponse
-> f DeleteRangeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeleteRangeResponse -> Int64)
-> (DeleteRangeResponse -> Int64 -> DeleteRangeResponse)
-> Lens DeleteRangeResponse DeleteRangeResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeleteRangeResponse -> Int64
_DeleteRangeResponse'deleted
           (\ DeleteRangeResponse
x__ Int64
y__ -> DeleteRangeResponse
x__ {_DeleteRangeResponse'deleted = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeleteRangeResponse "prevKvs" [Proto.Etcd.Api.Mvccpb.Kv.KeyValue] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "prevKvs"
-> ([KeyValue] -> f [KeyValue])
-> DeleteRangeResponse
-> f DeleteRangeResponse
fieldOf Proxy# "prevKvs"
_
    = ((Vector KeyValue -> f (Vector KeyValue))
 -> DeleteRangeResponse -> f DeleteRangeResponse)
-> (([KeyValue] -> f [KeyValue])
    -> Vector KeyValue -> f (Vector KeyValue))
-> ([KeyValue] -> f [KeyValue])
-> DeleteRangeResponse
-> f DeleteRangeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeleteRangeResponse -> Vector KeyValue)
-> (DeleteRangeResponse -> Vector KeyValue -> DeleteRangeResponse)
-> Lens
     DeleteRangeResponse
     DeleteRangeResponse
     (Vector KeyValue)
     (Vector KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeleteRangeResponse -> Vector KeyValue
_DeleteRangeResponse'prevKvs
           (\ DeleteRangeResponse
x__ Vector KeyValue
y__ -> DeleteRangeResponse
x__ {_DeleteRangeResponse'prevKvs = y__}))
        ((Vector KeyValue -> [KeyValue])
-> (Vector KeyValue -> [KeyValue] -> Vector KeyValue)
-> Lens (Vector KeyValue) (Vector KeyValue) [KeyValue] [KeyValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector KeyValue -> [KeyValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector KeyValue
_ [KeyValue]
y__ -> [KeyValue] -> Vector KeyValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [KeyValue]
y__))
instance Data.ProtoLens.Field.HasField DeleteRangeResponse "vec'prevKvs" (Data.Vector.Vector Proto.Etcd.Api.Mvccpb.Kv.KeyValue) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'prevKvs"
-> (Vector KeyValue -> f (Vector KeyValue))
-> DeleteRangeResponse
-> f DeleteRangeResponse
fieldOf Proxy# "vec'prevKvs"
_
    = ((Vector KeyValue -> f (Vector KeyValue))
 -> DeleteRangeResponse -> f DeleteRangeResponse)
-> ((Vector KeyValue -> f (Vector KeyValue))
    -> Vector KeyValue -> f (Vector KeyValue))
-> (Vector KeyValue -> f (Vector KeyValue))
-> DeleteRangeResponse
-> f DeleteRangeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DeleteRangeResponse -> Vector KeyValue)
-> (DeleteRangeResponse -> Vector KeyValue -> DeleteRangeResponse)
-> Lens
     DeleteRangeResponse
     DeleteRangeResponse
     (Vector KeyValue)
     (Vector KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DeleteRangeResponse -> Vector KeyValue
_DeleteRangeResponse'prevKvs
           (\ DeleteRangeResponse
x__ Vector KeyValue
y__ -> DeleteRangeResponse
x__ {_DeleteRangeResponse'prevKvs = y__}))
        (Vector KeyValue -> f (Vector KeyValue))
-> Vector KeyValue -> f (Vector KeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DeleteRangeResponse where
  messageName :: Proxy DeleteRangeResponse -> Text
messageName Proxy DeleteRangeResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.DeleteRangeResponse"
  packedMessageDescriptor :: Proxy DeleteRangeResponse -> ByteString
packedMessageDescriptor Proxy DeleteRangeResponse
_
    = ByteString
"\n\
      \\DC3DeleteRangeResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\CAN\n\
      \\adeleted\CAN\STX \SOH(\ETXR\adeleted\DC24\n\
      \\bprev_kvs\CAN\ETX \ETX(\v2\DLE.mvccpb.KeyValueR\aprevKvsB\a\138\181\CAN\ETX3.1:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy DeleteRangeResponse -> ByteString
packedFileDescriptor Proxy DeleteRangeResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DeleteRangeResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor DeleteRangeResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor DeleteRangeResponse ResponseHeader
-> FieldDescriptor DeleteRangeResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  DeleteRangeResponse
  DeleteRangeResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor DeleteRangeResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor DeleteRangeResponse
        deleted__field_descriptor :: FieldDescriptor DeleteRangeResponse
deleted__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor DeleteRangeResponse Int64
-> FieldDescriptor DeleteRangeResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"deleted"
              (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 DeleteRangeResponse DeleteRangeResponse Int64 Int64
-> FieldAccessor DeleteRangeResponse 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 @"deleted")) ::
              Data.ProtoLens.FieldDescriptor DeleteRangeResponse
        prevKvs__field_descriptor :: FieldDescriptor DeleteRangeResponse
prevKvs__field_descriptor
          = String
-> FieldTypeDescriptor KeyValue
-> FieldAccessor DeleteRangeResponse KeyValue
-> FieldDescriptor DeleteRangeResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"prev_kvs"
              (MessageOrGroup -> FieldTypeDescriptor KeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Etcd.Api.Mvccpb.Kv.KeyValue)
              (Packing
-> Lens' DeleteRangeResponse [KeyValue]
-> FieldAccessor DeleteRangeResponse KeyValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"prevKvs")) ::
              Data.ProtoLens.FieldDescriptor DeleteRangeResponse
      in
        [(Tag, FieldDescriptor DeleteRangeResponse)]
-> Map Tag (FieldDescriptor DeleteRangeResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor DeleteRangeResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor DeleteRangeResponse
deleted__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor DeleteRangeResponse
prevKvs__field_descriptor)]
  unknownFields :: Lens' DeleteRangeResponse FieldSet
unknownFields
    = (DeleteRangeResponse -> FieldSet)
-> (DeleteRangeResponse -> FieldSet -> DeleteRangeResponse)
-> Lens' DeleteRangeResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DeleteRangeResponse -> FieldSet
_DeleteRangeResponse'_unknownFields
        (\ DeleteRangeResponse
x__ FieldSet
y__ -> DeleteRangeResponse
x__ {_DeleteRangeResponse'_unknownFields = y__})
  defMessage :: DeleteRangeResponse
defMessage
    = DeleteRangeResponse'_constructor
        {_DeleteRangeResponse'header :: Maybe ResponseHeader
_DeleteRangeResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _DeleteRangeResponse'deleted :: Int64
_DeleteRangeResponse'deleted = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DeleteRangeResponse'prevKvs :: Vector KeyValue
_DeleteRangeResponse'prevKvs = Vector KeyValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _DeleteRangeResponse'_unknownFields :: FieldSet
_DeleteRangeResponse'_unknownFields = []}
  parseMessage :: Parser DeleteRangeResponse
parseMessage
    = let
        loop ::
          DeleteRangeResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Etcd.Api.Mvccpb.Kv.KeyValue
             -> Data.ProtoLens.Encoding.Bytes.Parser DeleteRangeResponse
        loop :: DeleteRangeResponse
-> Growing Vector RealWorld KeyValue -> Parser DeleteRangeResponse
loop DeleteRangeResponse
x Growing Vector RealWorld KeyValue
mutable'prevKvs
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'prevKvs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'prevKvs)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'prevKvs") frozen'prevKvs x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'prevKvs
                        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
"deleted"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"deleted") y x)
                                  mutable'prevKvs
                        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_kvs"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'prevKvs y)
                                loop x v
                        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)
                                  mutable'prevKvs
      in
        Parser DeleteRangeResponse -> String -> Parser DeleteRangeResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'prevKvs <- IO (Growing Vector RealWorld KeyValue)
-> Parser (Growing Vector RealWorld KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld KeyValue)
IO (Growing Vector (PrimState IO) KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'prevKvs)
          String
"DeleteRangeResponse"
  buildMessage :: DeleteRangeResponse -> Builder
buildMessage
    = \ DeleteRangeResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  DeleteRangeResponse
  DeleteRangeResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> DeleteRangeResponse -> Maybe ResponseHeader
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'header") DeleteRangeResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Int64
_v = FoldLike Int64 DeleteRangeResponse DeleteRangeResponse Int64 Int64
-> DeleteRangeResponse -> 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 @"deleted") DeleteRangeResponse
_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.<>)
                   ((KeyValue -> Builder) -> Vector KeyValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ 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))
                      (FoldLike
  (Vector KeyValue)
  DeleteRangeResponse
  DeleteRangeResponse
  (Vector KeyValue)
  (Vector KeyValue)
-> DeleteRangeResponse -> Vector 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 @"vec'prevKvs") DeleteRangeResponse
_x))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet DeleteRangeResponse DeleteRangeResponse FieldSet FieldSet
-> DeleteRangeResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet DeleteRangeResponse DeleteRangeResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' DeleteRangeResponse FieldSet
Data.ProtoLens.unknownFields DeleteRangeResponse
_x))))
instance Control.DeepSeq.NFData DeleteRangeResponse where
  rnf :: DeleteRangeResponse -> ()
rnf
    = \ DeleteRangeResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DeleteRangeResponse -> FieldSet
_DeleteRangeResponse'_unknownFields DeleteRangeResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (DeleteRangeResponse -> Maybe ResponseHeader
_DeleteRangeResponse'header DeleteRangeResponse
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (DeleteRangeResponse -> Int64
_DeleteRangeResponse'deleted DeleteRangeResponse
x__)
                   (Vector KeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (DeleteRangeResponse -> Vector KeyValue
_DeleteRangeResponse'prevKvs DeleteRangeResponse
x__) ())))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.action' @:: Lens' DowngradeRequest DowngradeRequest'DowngradeAction@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.version' @:: Lens' DowngradeRequest Data.Text.Text@ -}
data DowngradeRequest
  = DowngradeRequest'_constructor {DowngradeRequest -> DowngradeRequest'DowngradeAction
_DowngradeRequest'action :: !DowngradeRequest'DowngradeAction,
                                   DowngradeRequest -> Text
_DowngradeRequest'version :: !Data.Text.Text,
                                   DowngradeRequest -> FieldSet
_DowngradeRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DowngradeRequest -> DowngradeRequest -> Bool
(DowngradeRequest -> DowngradeRequest -> Bool)
-> (DowngradeRequest -> DowngradeRequest -> Bool)
-> Eq DowngradeRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DowngradeRequest -> DowngradeRequest -> Bool
== :: DowngradeRequest -> DowngradeRequest -> Bool
$c/= :: DowngradeRequest -> DowngradeRequest -> Bool
/= :: DowngradeRequest -> DowngradeRequest -> Bool
Prelude.Eq, Eq DowngradeRequest
Eq DowngradeRequest =>
(DowngradeRequest -> DowngradeRequest -> Ordering)
-> (DowngradeRequest -> DowngradeRequest -> Bool)
-> (DowngradeRequest -> DowngradeRequest -> Bool)
-> (DowngradeRequest -> DowngradeRequest -> Bool)
-> (DowngradeRequest -> DowngradeRequest -> Bool)
-> (DowngradeRequest -> DowngradeRequest -> DowngradeRequest)
-> (DowngradeRequest -> DowngradeRequest -> DowngradeRequest)
-> Ord DowngradeRequest
DowngradeRequest -> DowngradeRequest -> Bool
DowngradeRequest -> DowngradeRequest -> Ordering
DowngradeRequest -> DowngradeRequest -> DowngradeRequest
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 :: DowngradeRequest -> DowngradeRequest -> Ordering
compare :: DowngradeRequest -> DowngradeRequest -> Ordering
$c< :: DowngradeRequest -> DowngradeRequest -> Bool
< :: DowngradeRequest -> DowngradeRequest -> Bool
$c<= :: DowngradeRequest -> DowngradeRequest -> Bool
<= :: DowngradeRequest -> DowngradeRequest -> Bool
$c> :: DowngradeRequest -> DowngradeRequest -> Bool
> :: DowngradeRequest -> DowngradeRequest -> Bool
$c>= :: DowngradeRequest -> DowngradeRequest -> Bool
>= :: DowngradeRequest -> DowngradeRequest -> Bool
$cmax :: DowngradeRequest -> DowngradeRequest -> DowngradeRequest
max :: DowngradeRequest -> DowngradeRequest -> DowngradeRequest
$cmin :: DowngradeRequest -> DowngradeRequest -> DowngradeRequest
min :: DowngradeRequest -> DowngradeRequest -> DowngradeRequest
Prelude.Ord)
instance Prelude.Show DowngradeRequest where
  showsPrec :: Int -> DowngradeRequest -> ShowS
showsPrec Int
_ DowngradeRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (DowngradeRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DowngradeRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField DowngradeRequest "action" DowngradeRequest'DowngradeAction where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "action"
-> (DowngradeRequest'DowngradeAction
    -> f DowngradeRequest'DowngradeAction)
-> DowngradeRequest
-> f DowngradeRequest
fieldOf Proxy# "action"
_
    = ((DowngradeRequest'DowngradeAction
  -> f DowngradeRequest'DowngradeAction)
 -> DowngradeRequest -> f DowngradeRequest)
-> ((DowngradeRequest'DowngradeAction
     -> f DowngradeRequest'DowngradeAction)
    -> DowngradeRequest'DowngradeAction
    -> f DowngradeRequest'DowngradeAction)
-> (DowngradeRequest'DowngradeAction
    -> f DowngradeRequest'DowngradeAction)
-> DowngradeRequest
-> f DowngradeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DowngradeRequest -> DowngradeRequest'DowngradeAction)
-> (DowngradeRequest
    -> DowngradeRequest'DowngradeAction -> DowngradeRequest)
-> Lens
     DowngradeRequest
     DowngradeRequest
     DowngradeRequest'DowngradeAction
     DowngradeRequest'DowngradeAction
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DowngradeRequest -> DowngradeRequest'DowngradeAction
_DowngradeRequest'action
           (\ DowngradeRequest
x__ DowngradeRequest'DowngradeAction
y__ -> DowngradeRequest
x__ {_DowngradeRequest'action = y__}))
        (DowngradeRequest'DowngradeAction
 -> f DowngradeRequest'DowngradeAction)
-> DowngradeRequest'DowngradeAction
-> f DowngradeRequest'DowngradeAction
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DowngradeRequest "version" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "version"
-> (Text -> f Text) -> DowngradeRequest -> f DowngradeRequest
fieldOf Proxy# "version"
_
    = ((Text -> f Text) -> DowngradeRequest -> f DowngradeRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DowngradeRequest
-> f DowngradeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DowngradeRequest -> Text)
-> (DowngradeRequest -> Text -> DowngradeRequest)
-> Lens DowngradeRequest DowngradeRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DowngradeRequest -> Text
_DowngradeRequest'version
           (\ DowngradeRequest
x__ Text
y__ -> DowngradeRequest
x__ {_DowngradeRequest'version = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DowngradeRequest where
  messageName :: Proxy DowngradeRequest -> Text
messageName Proxy DowngradeRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.DowngradeRequest"
  packedMessageDescriptor :: Proxy DowngradeRequest -> ByteString
packedMessageDescriptor Proxy DowngradeRequest
_
    = ByteString
"\n\
      \\DLEDowngradeRequest\DC2F\n\
      \\ACKaction\CAN\SOH \SOH(\SO2..etcdserverpb.DowngradeRequest.DowngradeActionR\ACKaction\DC2\CAN\n\
      \\aversion\CAN\STX \SOH(\tR\aversion\"@\n\
      \\SIDowngradeAction\DC2\f\n\
      \\bVALIDATE\DLE\NUL\DC2\n\
      \\n\
      \\ACKENABLE\DLE\SOH\DC2\n\
      \\n\
      \\ACKCANCEL\DLE\STX\SUB\a\146\181\CAN\ETX3.5:\a\130\181\CAN\ETX3.5"
  packedFileDescriptor :: Proxy DowngradeRequest -> ByteString
packedFileDescriptor Proxy DowngradeRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DowngradeRequest)
fieldsByTag
    = let
        action__field_descriptor :: FieldDescriptor DowngradeRequest
action__field_descriptor
          = String
-> FieldTypeDescriptor DowngradeRequest'DowngradeAction
-> FieldAccessor DowngradeRequest DowngradeRequest'DowngradeAction
-> FieldDescriptor DowngradeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"action"
              (ScalarField DowngradeRequest'DowngradeAction
-> FieldTypeDescriptor DowngradeRequest'DowngradeAction
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField DowngradeRequest'DowngradeAction
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor DowngradeRequest'DowngradeAction)
              (WireDefault DowngradeRequest'DowngradeAction
-> Lens
     DowngradeRequest
     DowngradeRequest
     DowngradeRequest'DowngradeAction
     DowngradeRequest'DowngradeAction
-> FieldAccessor DowngradeRequest DowngradeRequest'DowngradeAction
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault DowngradeRequest'DowngradeAction
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 @"action")) ::
              Data.ProtoLens.FieldDescriptor DowngradeRequest
        version__field_descriptor :: FieldDescriptor DowngradeRequest
version__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor DowngradeRequest Text
-> FieldDescriptor DowngradeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"version"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens DowngradeRequest DowngradeRequest Text Text
-> FieldAccessor DowngradeRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 DowngradeRequest
      in
        [(Tag, FieldDescriptor DowngradeRequest)]
-> Map Tag (FieldDescriptor DowngradeRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor DowngradeRequest
action__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor DowngradeRequest
version__field_descriptor)]
  unknownFields :: Lens' DowngradeRequest FieldSet
unknownFields
    = (DowngradeRequest -> FieldSet)
-> (DowngradeRequest -> FieldSet -> DowngradeRequest)
-> Lens' DowngradeRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DowngradeRequest -> FieldSet
_DowngradeRequest'_unknownFields
        (\ DowngradeRequest
x__ FieldSet
y__ -> DowngradeRequest
x__ {_DowngradeRequest'_unknownFields = y__})
  defMessage :: DowngradeRequest
defMessage
    = DowngradeRequest'_constructor
        {_DowngradeRequest'action :: DowngradeRequest'DowngradeAction
_DowngradeRequest'action = DowngradeRequest'DowngradeAction
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DowngradeRequest'version :: Text
_DowngradeRequest'version = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DowngradeRequest'_unknownFields :: FieldSet
_DowngradeRequest'_unknownFields = []}
  parseMessage :: Parser DowngradeRequest
parseMessage
    = let
        loop ::
          DowngradeRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser DowngradeRequest
        loop :: DowngradeRequest -> Parser DowngradeRequest
loop DowngradeRequest
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 DowngradeRequest'DowngradeAction
-> String -> Parser DowngradeRequest'DowngradeAction
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> DowngradeRequest'DowngradeAction)
-> Parser Int -> Parser DowngradeRequest'DowngradeAction
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> DowngradeRequest'DowngradeAction
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
"action"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"action") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"version"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"version") 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 DowngradeRequest -> String -> Parser DowngradeRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DowngradeRequest -> Parser DowngradeRequest
loop DowngradeRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DowngradeRequest"
  buildMessage :: DowngradeRequest -> Builder
buildMessage
    = \ DowngradeRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: DowngradeRequest'DowngradeAction
_v = FoldLike
  DowngradeRequest'DowngradeAction
  DowngradeRequest
  DowngradeRequest
  DowngradeRequest'DowngradeAction
  DowngradeRequest'DowngradeAction
-> DowngradeRequest -> DowngradeRequest'DowngradeAction
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 @"action") DowngradeRequest
_x
              in
                if DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) DowngradeRequest'DowngradeAction
_v DowngradeRequest'DowngradeAction
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)
-> (DowngradeRequest'DowngradeAction -> Int)
-> DowngradeRequest'DowngradeAction
-> 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)
                         DowngradeRequest'DowngradeAction -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum DowngradeRequest'DowngradeAction
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike Text DowngradeRequest DowngradeRequest Text Text
-> DowngradeRequest -> Text
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") DowngradeRequest
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet DowngradeRequest DowngradeRequest FieldSet FieldSet
-> DowngradeRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet DowngradeRequest DowngradeRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' DowngradeRequest FieldSet
Data.ProtoLens.unknownFields DowngradeRequest
_x)))
instance Control.DeepSeq.NFData DowngradeRequest where
  rnf :: DowngradeRequest -> ()
rnf
    = \ DowngradeRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DowngradeRequest -> FieldSet
_DowngradeRequest'_unknownFields DowngradeRequest
x__)
             (DowngradeRequest'DowngradeAction -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (DowngradeRequest -> DowngradeRequest'DowngradeAction
_DowngradeRequest'action DowngradeRequest
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (DowngradeRequest -> Text
_DowngradeRequest'version DowngradeRequest
x__) ()))
newtype DowngradeRequest'DowngradeAction'UnrecognizedValue
  = DowngradeRequest'DowngradeAction'UnrecognizedValue Data.Int.Int32
  deriving stock (DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool
(DowngradeRequest'DowngradeAction'UnrecognizedValue
 -> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool)
-> (DowngradeRequest'DowngradeAction'UnrecognizedValue
    -> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool)
-> Eq DowngradeRequest'DowngradeAction'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool
== :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool
$c/= :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool
/= :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool
Prelude.Eq, Eq DowngradeRequest'DowngradeAction'UnrecognizedValue
Eq DowngradeRequest'DowngradeAction'UnrecognizedValue =>
(DowngradeRequest'DowngradeAction'UnrecognizedValue
 -> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Ordering)
-> (DowngradeRequest'DowngradeAction'UnrecognizedValue
    -> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool)
-> (DowngradeRequest'DowngradeAction'UnrecognizedValue
    -> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool)
-> (DowngradeRequest'DowngradeAction'UnrecognizedValue
    -> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool)
-> (DowngradeRequest'DowngradeAction'UnrecognizedValue
    -> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool)
-> (DowngradeRequest'DowngradeAction'UnrecognizedValue
    -> DowngradeRequest'DowngradeAction'UnrecognizedValue
    -> DowngradeRequest'DowngradeAction'UnrecognizedValue)
-> (DowngradeRequest'DowngradeAction'UnrecognizedValue
    -> DowngradeRequest'DowngradeAction'UnrecognizedValue
    -> DowngradeRequest'DowngradeAction'UnrecognizedValue)
-> Ord DowngradeRequest'DowngradeAction'UnrecognizedValue
DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool
DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Ordering
DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'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 :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Ordering
compare :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Ordering
$c< :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool
< :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool
$c<= :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool
<= :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool
$c> :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool
> :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool
$c>= :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool
>= :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue -> Bool
$cmax :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue
max :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue
$cmin :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue
min :: DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction'UnrecognizedValue
Prelude.Ord, Int -> DowngradeRequest'DowngradeAction'UnrecognizedValue -> ShowS
[DowngradeRequest'DowngradeAction'UnrecognizedValue] -> ShowS
DowngradeRequest'DowngradeAction'UnrecognizedValue -> String
(Int
 -> DowngradeRequest'DowngradeAction'UnrecognizedValue -> ShowS)
-> (DowngradeRequest'DowngradeAction'UnrecognizedValue -> String)
-> ([DowngradeRequest'DowngradeAction'UnrecognizedValue] -> ShowS)
-> Show DowngradeRequest'DowngradeAction'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DowngradeRequest'DowngradeAction'UnrecognizedValue -> ShowS
showsPrec :: Int -> DowngradeRequest'DowngradeAction'UnrecognizedValue -> ShowS
$cshow :: DowngradeRequest'DowngradeAction'UnrecognizedValue -> String
show :: DowngradeRequest'DowngradeAction'UnrecognizedValue -> String
$cshowList :: [DowngradeRequest'DowngradeAction'UnrecognizedValue] -> ShowS
showList :: [DowngradeRequest'DowngradeAction'UnrecognizedValue] -> ShowS
Prelude.Show)
data DowngradeRequest'DowngradeAction
  = DowngradeRequest'VALIDATE |
    DowngradeRequest'ENABLE |
    DowngradeRequest'CANCEL |
    DowngradeRequest'DowngradeAction'Unrecognized !DowngradeRequest'DowngradeAction'UnrecognizedValue
  deriving stock (Int -> DowngradeRequest'DowngradeAction -> ShowS
[DowngradeRequest'DowngradeAction] -> ShowS
DowngradeRequest'DowngradeAction -> String
(Int -> DowngradeRequest'DowngradeAction -> ShowS)
-> (DowngradeRequest'DowngradeAction -> String)
-> ([DowngradeRequest'DowngradeAction] -> ShowS)
-> Show DowngradeRequest'DowngradeAction
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> DowngradeRequest'DowngradeAction -> ShowS
showsPrec :: Int -> DowngradeRequest'DowngradeAction -> ShowS
$cshow :: DowngradeRequest'DowngradeAction -> String
show :: DowngradeRequest'DowngradeAction -> String
$cshowList :: [DowngradeRequest'DowngradeAction] -> ShowS
showList :: [DowngradeRequest'DowngradeAction] -> ShowS
Prelude.Show, DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Bool
(DowngradeRequest'DowngradeAction
 -> DowngradeRequest'DowngradeAction -> Bool)
-> (DowngradeRequest'DowngradeAction
    -> DowngradeRequest'DowngradeAction -> Bool)
-> Eq DowngradeRequest'DowngradeAction
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Bool
== :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Bool
$c/= :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Bool
/= :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Bool
Prelude.Eq, Eq DowngradeRequest'DowngradeAction
Eq DowngradeRequest'DowngradeAction =>
(DowngradeRequest'DowngradeAction
 -> DowngradeRequest'DowngradeAction -> Ordering)
-> (DowngradeRequest'DowngradeAction
    -> DowngradeRequest'DowngradeAction -> Bool)
-> (DowngradeRequest'DowngradeAction
    -> DowngradeRequest'DowngradeAction -> Bool)
-> (DowngradeRequest'DowngradeAction
    -> DowngradeRequest'DowngradeAction -> Bool)
-> (DowngradeRequest'DowngradeAction
    -> DowngradeRequest'DowngradeAction -> Bool)
-> (DowngradeRequest'DowngradeAction
    -> DowngradeRequest'DowngradeAction
    -> DowngradeRequest'DowngradeAction)
-> (DowngradeRequest'DowngradeAction
    -> DowngradeRequest'DowngradeAction
    -> DowngradeRequest'DowngradeAction)
-> Ord DowngradeRequest'DowngradeAction
DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Bool
DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Ordering
DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
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 :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Ordering
compare :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Ordering
$c< :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Bool
< :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Bool
$c<= :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Bool
<= :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Bool
$c> :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Bool
> :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Bool
$c>= :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Bool
>= :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction -> Bool
$cmax :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
max :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
$cmin :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
min :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
Prelude.Ord)
instance Data.ProtoLens.MessageEnum DowngradeRequest'DowngradeAction where
  maybeToEnum :: Int -> Maybe DowngradeRequest'DowngradeAction
maybeToEnum Int
0 = DowngradeRequest'DowngradeAction
-> Maybe DowngradeRequest'DowngradeAction
forall a. a -> Maybe a
Prelude.Just DowngradeRequest'DowngradeAction
DowngradeRequest'VALIDATE
  maybeToEnum Int
1 = DowngradeRequest'DowngradeAction
-> Maybe DowngradeRequest'DowngradeAction
forall a. a -> Maybe a
Prelude.Just DowngradeRequest'DowngradeAction
DowngradeRequest'ENABLE
  maybeToEnum Int
2 = DowngradeRequest'DowngradeAction
-> Maybe DowngradeRequest'DowngradeAction
forall a. a -> Maybe a
Prelude.Just DowngradeRequest'DowngradeAction
DowngradeRequest'CANCEL
  maybeToEnum Int
k
    = DowngradeRequest'DowngradeAction
-> Maybe DowngradeRequest'DowngradeAction
forall a. a -> Maybe a
Prelude.Just
        (DowngradeRequest'DowngradeAction'UnrecognizedValue
-> DowngradeRequest'DowngradeAction
DowngradeRequest'DowngradeAction'Unrecognized
           (Int32 -> DowngradeRequest'DowngradeAction'UnrecognizedValue
DowngradeRequest'DowngradeAction'UnrecognizedValue
              (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: DowngradeRequest'DowngradeAction -> String
showEnum DowngradeRequest'DowngradeAction
DowngradeRequest'VALIDATE = String
"VALIDATE"
  showEnum DowngradeRequest'DowngradeAction
DowngradeRequest'ENABLE = String
"ENABLE"
  showEnum DowngradeRequest'DowngradeAction
DowngradeRequest'CANCEL = String
"CANCEL"
  showEnum
    (DowngradeRequest'DowngradeAction'Unrecognized (DowngradeRequest'DowngradeAction'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe DowngradeRequest'DowngradeAction
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"VALIDATE"
    = DowngradeRequest'DowngradeAction
-> Maybe DowngradeRequest'DowngradeAction
forall a. a -> Maybe a
Prelude.Just DowngradeRequest'DowngradeAction
DowngradeRequest'VALIDATE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"ENABLE" = DowngradeRequest'DowngradeAction
-> Maybe DowngradeRequest'DowngradeAction
forall a. a -> Maybe a
Prelude.Just DowngradeRequest'DowngradeAction
DowngradeRequest'ENABLE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"CANCEL" = DowngradeRequest'DowngradeAction
-> Maybe DowngradeRequest'DowngradeAction
forall a. a -> Maybe a
Prelude.Just DowngradeRequest'DowngradeAction
DowngradeRequest'CANCEL
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe DowngradeRequest'DowngradeAction)
-> Maybe DowngradeRequest'DowngradeAction
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 DowngradeRequest'DowngradeAction
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded DowngradeRequest'DowngradeAction where
  minBound :: DowngradeRequest'DowngradeAction
minBound = DowngradeRequest'DowngradeAction
DowngradeRequest'VALIDATE
  maxBound :: DowngradeRequest'DowngradeAction
maxBound = DowngradeRequest'DowngradeAction
DowngradeRequest'CANCEL
instance Prelude.Enum DowngradeRequest'DowngradeAction where
  toEnum :: Int -> DowngradeRequest'DowngradeAction
toEnum Int
k__
    = DowngradeRequest'DowngradeAction
-> (DowngradeRequest'DowngradeAction
    -> DowngradeRequest'DowngradeAction)
-> Maybe DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> DowngradeRequest'DowngradeAction
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum DowngradeAction: "
              (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
forall a. a -> a
Prelude.id (Int -> Maybe DowngradeRequest'DowngradeAction
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: DowngradeRequest'DowngradeAction -> Int
fromEnum DowngradeRequest'DowngradeAction
DowngradeRequest'VALIDATE = Int
0
  fromEnum DowngradeRequest'DowngradeAction
DowngradeRequest'ENABLE = Int
1
  fromEnum DowngradeRequest'DowngradeAction
DowngradeRequest'CANCEL = Int
2
  fromEnum
    (DowngradeRequest'DowngradeAction'Unrecognized (DowngradeRequest'DowngradeAction'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
succ DowngradeRequest'DowngradeAction
DowngradeRequest'CANCEL
    = String -> DowngradeRequest'DowngradeAction
forall a. HasCallStack => String -> a
Prelude.error
        String
"DowngradeRequest'DowngradeAction.succ: bad argument DowngradeRequest'CANCEL. This value would be out of bounds."
  succ DowngradeRequest'DowngradeAction
DowngradeRequest'VALIDATE = DowngradeRequest'DowngradeAction
DowngradeRequest'ENABLE
  succ DowngradeRequest'DowngradeAction
DowngradeRequest'ENABLE = DowngradeRequest'DowngradeAction
DowngradeRequest'CANCEL
  succ (DowngradeRequest'DowngradeAction'Unrecognized DowngradeRequest'DowngradeAction'UnrecognizedValue
_)
    = String -> DowngradeRequest'DowngradeAction
forall a. HasCallStack => String -> a
Prelude.error
        String
"DowngradeRequest'DowngradeAction.succ: bad argument: unrecognized value"
  pred :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
pred DowngradeRequest'DowngradeAction
DowngradeRequest'VALIDATE
    = String -> DowngradeRequest'DowngradeAction
forall a. HasCallStack => String -> a
Prelude.error
        String
"DowngradeRequest'DowngradeAction.pred: bad argument DowngradeRequest'VALIDATE. This value would be out of bounds."
  pred DowngradeRequest'DowngradeAction
DowngradeRequest'ENABLE = DowngradeRequest'DowngradeAction
DowngradeRequest'VALIDATE
  pred DowngradeRequest'DowngradeAction
DowngradeRequest'CANCEL = DowngradeRequest'DowngradeAction
DowngradeRequest'ENABLE
  pred (DowngradeRequest'DowngradeAction'Unrecognized DowngradeRequest'DowngradeAction'UnrecognizedValue
_)
    = String -> DowngradeRequest'DowngradeAction
forall a. HasCallStack => String -> a
Prelude.error
        String
"DowngradeRequest'DowngradeAction.pred: bad argument: unrecognized value"
  enumFrom :: DowngradeRequest'DowngradeAction
-> [DowngradeRequest'DowngradeAction]
enumFrom = DowngradeRequest'DowngradeAction
-> [DowngradeRequest'DowngradeAction]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
-> [DowngradeRequest'DowngradeAction]
enumFromTo = DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
-> [DowngradeRequest'DowngradeAction]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
-> [DowngradeRequest'DowngradeAction]
enumFromThen = DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
-> [DowngradeRequest'DowngradeAction]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
-> [DowngradeRequest'DowngradeAction]
enumFromThenTo = DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
-> DowngradeRequest'DowngradeAction
-> [DowngradeRequest'DowngradeAction]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault DowngradeRequest'DowngradeAction where
  fieldDefault :: DowngradeRequest'DowngradeAction
fieldDefault = DowngradeRequest'DowngradeAction
DowngradeRequest'VALIDATE
instance Control.DeepSeq.NFData DowngradeRequest'DowngradeAction where
  rnf :: DowngradeRequest'DowngradeAction -> ()
rnf DowngradeRequest'DowngradeAction
x__ = DowngradeRequest'DowngradeAction -> () -> ()
forall a b. a -> b -> b
Prelude.seq DowngradeRequest'DowngradeAction
x__ ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' DowngradeResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' DowngradeResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.version' @:: Lens' DowngradeResponse Data.Text.Text@ -}
data DowngradeResponse
  = DowngradeResponse'_constructor {DowngradeResponse -> Maybe ResponseHeader
_DowngradeResponse'header :: !(Prelude.Maybe ResponseHeader),
                                    DowngradeResponse -> Text
_DowngradeResponse'version :: !Data.Text.Text,
                                    DowngradeResponse -> FieldSet
_DowngradeResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DowngradeResponse -> DowngradeResponse -> Bool
(DowngradeResponse -> DowngradeResponse -> Bool)
-> (DowngradeResponse -> DowngradeResponse -> Bool)
-> Eq DowngradeResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DowngradeResponse -> DowngradeResponse -> Bool
== :: DowngradeResponse -> DowngradeResponse -> Bool
$c/= :: DowngradeResponse -> DowngradeResponse -> Bool
/= :: DowngradeResponse -> DowngradeResponse -> Bool
Prelude.Eq, Eq DowngradeResponse
Eq DowngradeResponse =>
(DowngradeResponse -> DowngradeResponse -> Ordering)
-> (DowngradeResponse -> DowngradeResponse -> Bool)
-> (DowngradeResponse -> DowngradeResponse -> Bool)
-> (DowngradeResponse -> DowngradeResponse -> Bool)
-> (DowngradeResponse -> DowngradeResponse -> Bool)
-> (DowngradeResponse -> DowngradeResponse -> DowngradeResponse)
-> (DowngradeResponse -> DowngradeResponse -> DowngradeResponse)
-> Ord DowngradeResponse
DowngradeResponse -> DowngradeResponse -> Bool
DowngradeResponse -> DowngradeResponse -> Ordering
DowngradeResponse -> DowngradeResponse -> DowngradeResponse
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 :: DowngradeResponse -> DowngradeResponse -> Ordering
compare :: DowngradeResponse -> DowngradeResponse -> Ordering
$c< :: DowngradeResponse -> DowngradeResponse -> Bool
< :: DowngradeResponse -> DowngradeResponse -> Bool
$c<= :: DowngradeResponse -> DowngradeResponse -> Bool
<= :: DowngradeResponse -> DowngradeResponse -> Bool
$c> :: DowngradeResponse -> DowngradeResponse -> Bool
> :: DowngradeResponse -> DowngradeResponse -> Bool
$c>= :: DowngradeResponse -> DowngradeResponse -> Bool
>= :: DowngradeResponse -> DowngradeResponse -> Bool
$cmax :: DowngradeResponse -> DowngradeResponse -> DowngradeResponse
max :: DowngradeResponse -> DowngradeResponse -> DowngradeResponse
$cmin :: DowngradeResponse -> DowngradeResponse -> DowngradeResponse
min :: DowngradeResponse -> DowngradeResponse -> DowngradeResponse
Prelude.Ord)
instance Prelude.Show DowngradeResponse where
  showsPrec :: Int -> DowngradeResponse -> ShowS
showsPrec Int
_ DowngradeResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (DowngradeResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DowngradeResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField DowngradeResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> DowngradeResponse
-> f DowngradeResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> DowngradeResponse -> f DowngradeResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> DowngradeResponse
-> f DowngradeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DowngradeResponse -> Maybe ResponseHeader)
-> (DowngradeResponse -> Maybe ResponseHeader -> DowngradeResponse)
-> Lens
     DowngradeResponse
     DowngradeResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DowngradeResponse -> Maybe ResponseHeader
_DowngradeResponse'header
           (\ DowngradeResponse
x__ Maybe ResponseHeader
y__ -> DowngradeResponse
x__ {_DowngradeResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DowngradeResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> DowngradeResponse
-> f DowngradeResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> DowngradeResponse -> f DowngradeResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> DowngradeResponse
-> f DowngradeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DowngradeResponse -> Maybe ResponseHeader)
-> (DowngradeResponse -> Maybe ResponseHeader -> DowngradeResponse)
-> Lens
     DowngradeResponse
     DowngradeResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DowngradeResponse -> Maybe ResponseHeader
_DowngradeResponse'header
           (\ DowngradeResponse
x__ Maybe ResponseHeader
y__ -> DowngradeResponse
x__ {_DowngradeResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DowngradeResponse "version" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "version"
-> (Text -> f Text) -> DowngradeResponse -> f DowngradeResponse
fieldOf Proxy# "version"
_
    = ((Text -> f Text) -> DowngradeResponse -> f DowngradeResponse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DowngradeResponse
-> f DowngradeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DowngradeResponse -> Text)
-> (DowngradeResponse -> Text -> DowngradeResponse)
-> Lens DowngradeResponse DowngradeResponse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DowngradeResponse -> Text
_DowngradeResponse'version
           (\ DowngradeResponse
x__ Text
y__ -> DowngradeResponse
x__ {_DowngradeResponse'version = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DowngradeResponse where
  messageName :: Proxy DowngradeResponse -> Text
messageName Proxy DowngradeResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.DowngradeResponse"
  packedMessageDescriptor :: Proxy DowngradeResponse -> ByteString
packedMessageDescriptor Proxy DowngradeResponse
_
    = ByteString
"\n\
      \\DC1DowngradeResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\CAN\n\
      \\aversion\CAN\STX \SOH(\tR\aversion:\a\130\181\CAN\ETX3.5"
  packedFileDescriptor :: Proxy DowngradeResponse -> ByteString
packedFileDescriptor Proxy DowngradeResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DowngradeResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor DowngradeResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor DowngradeResponse ResponseHeader
-> FieldDescriptor DowngradeResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  DowngradeResponse
  DowngradeResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor DowngradeResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor DowngradeResponse
        version__field_descriptor :: FieldDescriptor DowngradeResponse
version__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor DowngradeResponse Text
-> FieldDescriptor DowngradeResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"version"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens DowngradeResponse DowngradeResponse Text Text
-> FieldAccessor DowngradeResponse Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 DowngradeResponse
      in
        [(Tag, FieldDescriptor DowngradeResponse)]
-> Map Tag (FieldDescriptor DowngradeResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor DowngradeResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor DowngradeResponse
version__field_descriptor)]
  unknownFields :: Lens' DowngradeResponse FieldSet
unknownFields
    = (DowngradeResponse -> FieldSet)
-> (DowngradeResponse -> FieldSet -> DowngradeResponse)
-> Lens' DowngradeResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DowngradeResponse -> FieldSet
_DowngradeResponse'_unknownFields
        (\ DowngradeResponse
x__ FieldSet
y__ -> DowngradeResponse
x__ {_DowngradeResponse'_unknownFields = y__})
  defMessage :: DowngradeResponse
defMessage
    = DowngradeResponse'_constructor
        {_DowngradeResponse'header :: Maybe ResponseHeader
_DowngradeResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _DowngradeResponse'version :: Text
_DowngradeResponse'version = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DowngradeResponse'_unknownFields :: FieldSet
_DowngradeResponse'_unknownFields = []}
  parseMessage :: Parser DowngradeResponse
parseMessage
    = let
        loop ::
          DowngradeResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser DowngradeResponse
        loop :: DowngradeResponse -> Parser DowngradeResponse
loop DowngradeResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"version"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"version") 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 DowngradeResponse -> String -> Parser DowngradeResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DowngradeResponse -> Parser DowngradeResponse
loop DowngradeResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DowngradeResponse"
  buildMessage :: DowngradeResponse -> Builder
buildMessage
    = \ DowngradeResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  DowngradeResponse
  DowngradeResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> DowngradeResponse -> Maybe ResponseHeader
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'header") DowngradeResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike Text DowngradeResponse DowngradeResponse Text Text
-> DowngradeResponse -> Text
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") DowngradeResponse
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet DowngradeResponse DowngradeResponse FieldSet FieldSet
-> DowngradeResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet DowngradeResponse DowngradeResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' DowngradeResponse FieldSet
Data.ProtoLens.unknownFields DowngradeResponse
_x)))
instance Control.DeepSeq.NFData DowngradeResponse where
  rnf :: DowngradeResponse -> ()
rnf
    = \ DowngradeResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DowngradeResponse -> FieldSet
_DowngradeResponse'_unknownFields DowngradeResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (DowngradeResponse -> Maybe ResponseHeader
_DowngradeResponse'header DowngradeResponse
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (DowngradeResponse -> Text
_DowngradeResponse'version DowngradeResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.ver' @:: Lens' DowngradeVersionTestRequest Data.Text.Text@ -}
data DowngradeVersionTestRequest
  = DowngradeVersionTestRequest'_constructor {DowngradeVersionTestRequest -> Text
_DowngradeVersionTestRequest'ver :: !Data.Text.Text,
                                              DowngradeVersionTestRequest -> FieldSet
_DowngradeVersionTestRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (DowngradeVersionTestRequest -> DowngradeVersionTestRequest -> Bool
(DowngradeVersionTestRequest
 -> DowngradeVersionTestRequest -> Bool)
-> (DowngradeVersionTestRequest
    -> DowngradeVersionTestRequest -> Bool)
-> Eq DowngradeVersionTestRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: DowngradeVersionTestRequest -> DowngradeVersionTestRequest -> Bool
== :: DowngradeVersionTestRequest -> DowngradeVersionTestRequest -> Bool
$c/= :: DowngradeVersionTestRequest -> DowngradeVersionTestRequest -> Bool
/= :: DowngradeVersionTestRequest -> DowngradeVersionTestRequest -> Bool
Prelude.Eq, Eq DowngradeVersionTestRequest
Eq DowngradeVersionTestRequest =>
(DowngradeVersionTestRequest
 -> DowngradeVersionTestRequest -> Ordering)
-> (DowngradeVersionTestRequest
    -> DowngradeVersionTestRequest -> Bool)
-> (DowngradeVersionTestRequest
    -> DowngradeVersionTestRequest -> Bool)
-> (DowngradeVersionTestRequest
    -> DowngradeVersionTestRequest -> Bool)
-> (DowngradeVersionTestRequest
    -> DowngradeVersionTestRequest -> Bool)
-> (DowngradeVersionTestRequest
    -> DowngradeVersionTestRequest -> DowngradeVersionTestRequest)
-> (DowngradeVersionTestRequest
    -> DowngradeVersionTestRequest -> DowngradeVersionTestRequest)
-> Ord DowngradeVersionTestRequest
DowngradeVersionTestRequest -> DowngradeVersionTestRequest -> Bool
DowngradeVersionTestRequest
-> DowngradeVersionTestRequest -> Ordering
DowngradeVersionTestRequest
-> DowngradeVersionTestRequest -> DowngradeVersionTestRequest
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 :: DowngradeVersionTestRequest
-> DowngradeVersionTestRequest -> Ordering
compare :: DowngradeVersionTestRequest
-> DowngradeVersionTestRequest -> Ordering
$c< :: DowngradeVersionTestRequest -> DowngradeVersionTestRequest -> Bool
< :: DowngradeVersionTestRequest -> DowngradeVersionTestRequest -> Bool
$c<= :: DowngradeVersionTestRequest -> DowngradeVersionTestRequest -> Bool
<= :: DowngradeVersionTestRequest -> DowngradeVersionTestRequest -> Bool
$c> :: DowngradeVersionTestRequest -> DowngradeVersionTestRequest -> Bool
> :: DowngradeVersionTestRequest -> DowngradeVersionTestRequest -> Bool
$c>= :: DowngradeVersionTestRequest -> DowngradeVersionTestRequest -> Bool
>= :: DowngradeVersionTestRequest -> DowngradeVersionTestRequest -> Bool
$cmax :: DowngradeVersionTestRequest
-> DowngradeVersionTestRequest -> DowngradeVersionTestRequest
max :: DowngradeVersionTestRequest
-> DowngradeVersionTestRequest -> DowngradeVersionTestRequest
$cmin :: DowngradeVersionTestRequest
-> DowngradeVersionTestRequest -> DowngradeVersionTestRequest
min :: DowngradeVersionTestRequest
-> DowngradeVersionTestRequest -> DowngradeVersionTestRequest
Prelude.Ord)
instance Prelude.Show DowngradeVersionTestRequest where
  showsPrec :: Int -> DowngradeVersionTestRequest -> ShowS
showsPrec Int
_ DowngradeVersionTestRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (DowngradeVersionTestRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DowngradeVersionTestRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField DowngradeVersionTestRequest "ver" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ver"
-> (Text -> f Text)
-> DowngradeVersionTestRequest
-> f DowngradeVersionTestRequest
fieldOf Proxy# "ver"
_
    = ((Text -> f Text)
 -> DowngradeVersionTestRequest -> f DowngradeVersionTestRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DowngradeVersionTestRequest
-> f DowngradeVersionTestRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DowngradeVersionTestRequest -> Text)
-> (DowngradeVersionTestRequest
    -> Text -> DowngradeVersionTestRequest)
-> Lens
     DowngradeVersionTestRequest DowngradeVersionTestRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DowngradeVersionTestRequest -> Text
_DowngradeVersionTestRequest'ver
           (\ DowngradeVersionTestRequest
x__ Text
y__ -> DowngradeVersionTestRequest
x__ {_DowngradeVersionTestRequest'ver = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DowngradeVersionTestRequest where
  messageName :: Proxy DowngradeVersionTestRequest -> Text
messageName Proxy DowngradeVersionTestRequest
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.DowngradeVersionTestRequest"
  packedMessageDescriptor :: Proxy DowngradeVersionTestRequest -> ByteString
packedMessageDescriptor Proxy DowngradeVersionTestRequest
_
    = ByteString
"\n\
      \\ESCDowngradeVersionTestRequest\DC2\DLE\n\
      \\ETXver\CAN\SOH \SOH(\tR\ETXver:\a\130\181\CAN\ETX3.6"
  packedFileDescriptor :: Proxy DowngradeVersionTestRequest -> ByteString
packedFileDescriptor Proxy DowngradeVersionTestRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor DowngradeVersionTestRequest)
fieldsByTag
    = let
        ver__field_descriptor :: FieldDescriptor DowngradeVersionTestRequest
ver__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor DowngradeVersionTestRequest Text
-> FieldDescriptor DowngradeVersionTestRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ver"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     DowngradeVersionTestRequest DowngradeVersionTestRequest Text Text
-> FieldAccessor DowngradeVersionTestRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"ver")) ::
              Data.ProtoLens.FieldDescriptor DowngradeVersionTestRequest
      in
        [(Tag, FieldDescriptor DowngradeVersionTestRequest)]
-> Map Tag (FieldDescriptor DowngradeVersionTestRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor DowngradeVersionTestRequest
ver__field_descriptor)]
  unknownFields :: Lens' DowngradeVersionTestRequest FieldSet
unknownFields
    = (DowngradeVersionTestRequest -> FieldSet)
-> (DowngradeVersionTestRequest
    -> FieldSet -> DowngradeVersionTestRequest)
-> Lens' DowngradeVersionTestRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DowngradeVersionTestRequest -> FieldSet
_DowngradeVersionTestRequest'_unknownFields
        (\ DowngradeVersionTestRequest
x__ FieldSet
y__
           -> DowngradeVersionTestRequest
x__ {_DowngradeVersionTestRequest'_unknownFields = y__})
  defMessage :: DowngradeVersionTestRequest
defMessage
    = DowngradeVersionTestRequest'_constructor
        {_DowngradeVersionTestRequest'ver :: Text
_DowngradeVersionTestRequest'ver = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _DowngradeVersionTestRequest'_unknownFields :: FieldSet
_DowngradeVersionTestRequest'_unknownFields = []}
  parseMessage :: Parser DowngradeVersionTestRequest
parseMessage
    = let
        loop ::
          DowngradeVersionTestRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser DowngradeVersionTestRequest
        loop :: DowngradeVersionTestRequest -> Parser DowngradeVersionTestRequest
loop DowngradeVersionTestRequest
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 Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"ver"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ver") 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 DowngradeVersionTestRequest
-> String -> Parser DowngradeVersionTestRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DowngradeVersionTestRequest -> Parser DowngradeVersionTestRequest
loop DowngradeVersionTestRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"DowngradeVersionTestRequest"
  buildMessage :: DowngradeVersionTestRequest -> Builder
buildMessage
    = \ DowngradeVersionTestRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  DowngradeVersionTestRequest
  DowngradeVersionTestRequest
  Text
  Text
-> DowngradeVersionTestRequest -> Text
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 @"ver") DowngradeVersionTestRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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 -> Builder) -> (Text -> ByteString) -> Text -> 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))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  DowngradeVersionTestRequest
  DowngradeVersionTestRequest
  FieldSet
  FieldSet
-> DowngradeVersionTestRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  DowngradeVersionTestRequest
  DowngradeVersionTestRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' DowngradeVersionTestRequest FieldSet
Data.ProtoLens.unknownFields DowngradeVersionTestRequest
_x))
instance Control.DeepSeq.NFData DowngradeVersionTestRequest where
  rnf :: DowngradeVersionTestRequest -> ()
rnf
    = \ DowngradeVersionTestRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DowngradeVersionTestRequest -> FieldSet
_DowngradeVersionTestRequest'_unknownFields DowngradeVersionTestRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (DowngradeVersionTestRequest -> Text
_DowngradeVersionTestRequest'ver DowngradeVersionTestRequest
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.revision' @:: Lens' HashKVRequest Data.Int.Int64@ -}
data HashKVRequest
  = HashKVRequest'_constructor {HashKVRequest -> Int64
_HashKVRequest'revision :: !Data.Int.Int64,
                                HashKVRequest -> FieldSet
_HashKVRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (HashKVRequest -> HashKVRequest -> Bool
(HashKVRequest -> HashKVRequest -> Bool)
-> (HashKVRequest -> HashKVRequest -> Bool) -> Eq HashKVRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HashKVRequest -> HashKVRequest -> Bool
== :: HashKVRequest -> HashKVRequest -> Bool
$c/= :: HashKVRequest -> HashKVRequest -> Bool
/= :: HashKVRequest -> HashKVRequest -> Bool
Prelude.Eq, Eq HashKVRequest
Eq HashKVRequest =>
(HashKVRequest -> HashKVRequest -> Ordering)
-> (HashKVRequest -> HashKVRequest -> Bool)
-> (HashKVRequest -> HashKVRequest -> Bool)
-> (HashKVRequest -> HashKVRequest -> Bool)
-> (HashKVRequest -> HashKVRequest -> Bool)
-> (HashKVRequest -> HashKVRequest -> HashKVRequest)
-> (HashKVRequest -> HashKVRequest -> HashKVRequest)
-> Ord HashKVRequest
HashKVRequest -> HashKVRequest -> Bool
HashKVRequest -> HashKVRequest -> Ordering
HashKVRequest -> HashKVRequest -> HashKVRequest
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 :: HashKVRequest -> HashKVRequest -> Ordering
compare :: HashKVRequest -> HashKVRequest -> Ordering
$c< :: HashKVRequest -> HashKVRequest -> Bool
< :: HashKVRequest -> HashKVRequest -> Bool
$c<= :: HashKVRequest -> HashKVRequest -> Bool
<= :: HashKVRequest -> HashKVRequest -> Bool
$c> :: HashKVRequest -> HashKVRequest -> Bool
> :: HashKVRequest -> HashKVRequest -> Bool
$c>= :: HashKVRequest -> HashKVRequest -> Bool
>= :: HashKVRequest -> HashKVRequest -> Bool
$cmax :: HashKVRequest -> HashKVRequest -> HashKVRequest
max :: HashKVRequest -> HashKVRequest -> HashKVRequest
$cmin :: HashKVRequest -> HashKVRequest -> HashKVRequest
min :: HashKVRequest -> HashKVRequest -> HashKVRequest
Prelude.Ord)
instance Prelude.Show HashKVRequest where
  showsPrec :: Int -> HashKVRequest -> ShowS
showsPrec Int
_ HashKVRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (HashKVRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort HashKVRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField HashKVRequest "revision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "revision"
-> (Int64 -> f Int64) -> HashKVRequest -> f HashKVRequest
fieldOf Proxy# "revision"
_
    = ((Int64 -> f Int64) -> HashKVRequest -> f HashKVRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> HashKVRequest
-> f HashKVRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((HashKVRequest -> Int64)
-> (HashKVRequest -> Int64 -> HashKVRequest)
-> Lens HashKVRequest HashKVRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           HashKVRequest -> Int64
_HashKVRequest'revision
           (\ HashKVRequest
x__ Int64
y__ -> HashKVRequest
x__ {_HashKVRequest'revision = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message HashKVRequest where
  messageName :: Proxy HashKVRequest -> Text
messageName Proxy HashKVRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.HashKVRequest"
  packedMessageDescriptor :: Proxy HashKVRequest -> ByteString
packedMessageDescriptor Proxy HashKVRequest
_
    = ByteString
"\n\
      \\rHashKVRequest\DC2\SUB\n\
      \\brevision\CAN\SOH \SOH(\ETXR\brevision:\a\130\181\CAN\ETX3.3"
  packedFileDescriptor :: Proxy HashKVRequest -> ByteString
packedFileDescriptor Proxy HashKVRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor HashKVRequest)
fieldsByTag
    = let
        revision__field_descriptor :: FieldDescriptor HashKVRequest
revision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor HashKVRequest Int64
-> FieldDescriptor HashKVRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"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 HashKVRequest HashKVRequest Int64 Int64
-> FieldAccessor HashKVRequest 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 @"revision")) ::
              Data.ProtoLens.FieldDescriptor HashKVRequest
      in
        [(Tag, FieldDescriptor HashKVRequest)]
-> Map Tag (FieldDescriptor HashKVRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor HashKVRequest
revision__field_descriptor)]
  unknownFields :: Lens' HashKVRequest FieldSet
unknownFields
    = (HashKVRequest -> FieldSet)
-> (HashKVRequest -> FieldSet -> HashKVRequest)
-> Lens' HashKVRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        HashKVRequest -> FieldSet
_HashKVRequest'_unknownFields
        (\ HashKVRequest
x__ FieldSet
y__ -> HashKVRequest
x__ {_HashKVRequest'_unknownFields = y__})
  defMessage :: HashKVRequest
defMessage
    = HashKVRequest'_constructor
        {_HashKVRequest'revision :: Int64
_HashKVRequest'revision = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _HashKVRequest'_unknownFields :: FieldSet
_HashKVRequest'_unknownFields = []}
  parseMessage :: Parser HashKVRequest
parseMessage
    = let
        loop ::
          HashKVRequest -> Data.ProtoLens.Encoding.Bytes.Parser HashKVRequest
        loop :: HashKVRequest -> Parser HashKVRequest
loop HashKVRequest
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 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
"revision"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"revision") 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 HashKVRequest -> String -> Parser HashKVRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do HashKVRequest -> Parser HashKVRequest
loop HashKVRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"HashKVRequest"
  buildMessage :: HashKVRequest -> Builder
buildMessage
    = \ HashKVRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int64
_v = FoldLike Int64 HashKVRequest HashKVRequest Int64 Int64
-> HashKVRequest -> 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 @"revision") HashKVRequest
_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
8)
                      ((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 HashKVRequest HashKVRequest FieldSet FieldSet
-> HashKVRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet HashKVRequest HashKVRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' HashKVRequest FieldSet
Data.ProtoLens.unknownFields HashKVRequest
_x))
instance Control.DeepSeq.NFData HashKVRequest where
  rnf :: HashKVRequest -> ()
rnf
    = \ HashKVRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (HashKVRequest -> FieldSet
_HashKVRequest'_unknownFields HashKVRequest
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (HashKVRequest -> Int64
_HashKVRequest'revision HashKVRequest
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' HashKVResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' HashKVResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.hash' @:: Lens' HashKVResponse Data.Word.Word32@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.compactRevision' @:: Lens' HashKVResponse Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.hashRevision' @:: Lens' HashKVResponse Data.Int.Int64@ -}
data HashKVResponse
  = HashKVResponse'_constructor {HashKVResponse -> Maybe ResponseHeader
_HashKVResponse'header :: !(Prelude.Maybe ResponseHeader),
                                 HashKVResponse -> Word32
_HashKVResponse'hash :: !Data.Word.Word32,
                                 HashKVResponse -> Int64
_HashKVResponse'compactRevision :: !Data.Int.Int64,
                                 HashKVResponse -> Int64
_HashKVResponse'hashRevision :: !Data.Int.Int64,
                                 HashKVResponse -> FieldSet
_HashKVResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (HashKVResponse -> HashKVResponse -> Bool
(HashKVResponse -> HashKVResponse -> Bool)
-> (HashKVResponse -> HashKVResponse -> Bool) -> Eq HashKVResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HashKVResponse -> HashKVResponse -> Bool
== :: HashKVResponse -> HashKVResponse -> Bool
$c/= :: HashKVResponse -> HashKVResponse -> Bool
/= :: HashKVResponse -> HashKVResponse -> Bool
Prelude.Eq, Eq HashKVResponse
Eq HashKVResponse =>
(HashKVResponse -> HashKVResponse -> Ordering)
-> (HashKVResponse -> HashKVResponse -> Bool)
-> (HashKVResponse -> HashKVResponse -> Bool)
-> (HashKVResponse -> HashKVResponse -> Bool)
-> (HashKVResponse -> HashKVResponse -> Bool)
-> (HashKVResponse -> HashKVResponse -> HashKVResponse)
-> (HashKVResponse -> HashKVResponse -> HashKVResponse)
-> Ord HashKVResponse
HashKVResponse -> HashKVResponse -> Bool
HashKVResponse -> HashKVResponse -> Ordering
HashKVResponse -> HashKVResponse -> HashKVResponse
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 :: HashKVResponse -> HashKVResponse -> Ordering
compare :: HashKVResponse -> HashKVResponse -> Ordering
$c< :: HashKVResponse -> HashKVResponse -> Bool
< :: HashKVResponse -> HashKVResponse -> Bool
$c<= :: HashKVResponse -> HashKVResponse -> Bool
<= :: HashKVResponse -> HashKVResponse -> Bool
$c> :: HashKVResponse -> HashKVResponse -> Bool
> :: HashKVResponse -> HashKVResponse -> Bool
$c>= :: HashKVResponse -> HashKVResponse -> Bool
>= :: HashKVResponse -> HashKVResponse -> Bool
$cmax :: HashKVResponse -> HashKVResponse -> HashKVResponse
max :: HashKVResponse -> HashKVResponse -> HashKVResponse
$cmin :: HashKVResponse -> HashKVResponse -> HashKVResponse
min :: HashKVResponse -> HashKVResponse -> HashKVResponse
Prelude.Ord)
instance Prelude.Show HashKVResponse where
  showsPrec :: Int -> HashKVResponse -> ShowS
showsPrec Int
_ HashKVResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (HashKVResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort HashKVResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField HashKVResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> HashKVResponse
-> f HashKVResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> HashKVResponse -> f HashKVResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> HashKVResponse
-> f HashKVResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((HashKVResponse -> Maybe ResponseHeader)
-> (HashKVResponse -> Maybe ResponseHeader -> HashKVResponse)
-> Lens
     HashKVResponse
     HashKVResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           HashKVResponse -> Maybe ResponseHeader
_HashKVResponse'header
           (\ HashKVResponse
x__ Maybe ResponseHeader
y__ -> HashKVResponse
x__ {_HashKVResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField HashKVResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> HashKVResponse
-> f HashKVResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> HashKVResponse -> f HashKVResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> HashKVResponse
-> f HashKVResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((HashKVResponse -> Maybe ResponseHeader)
-> (HashKVResponse -> Maybe ResponseHeader -> HashKVResponse)
-> Lens
     HashKVResponse
     HashKVResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           HashKVResponse -> Maybe ResponseHeader
_HashKVResponse'header
           (\ HashKVResponse
x__ Maybe ResponseHeader
y__ -> HashKVResponse
x__ {_HashKVResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HashKVResponse "hash" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hash"
-> (Word32 -> f Word32) -> HashKVResponse -> f HashKVResponse
fieldOf Proxy# "hash"
_
    = ((Word32 -> f Word32) -> HashKVResponse -> f HashKVResponse)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> HashKVResponse
-> f HashKVResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((HashKVResponse -> Word32)
-> (HashKVResponse -> Word32 -> HashKVResponse)
-> Lens HashKVResponse HashKVResponse Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           HashKVResponse -> Word32
_HashKVResponse'hash
           (\ HashKVResponse
x__ Word32
y__ -> HashKVResponse
x__ {_HashKVResponse'hash = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HashKVResponse "compactRevision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "compactRevision"
-> (Int64 -> f Int64) -> HashKVResponse -> f HashKVResponse
fieldOf Proxy# "compactRevision"
_
    = ((Int64 -> f Int64) -> HashKVResponse -> f HashKVResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> HashKVResponse
-> f HashKVResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((HashKVResponse -> Int64)
-> (HashKVResponse -> Int64 -> HashKVResponse)
-> Lens HashKVResponse HashKVResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           HashKVResponse -> Int64
_HashKVResponse'compactRevision
           (\ HashKVResponse
x__ Int64
y__ -> HashKVResponse
x__ {_HashKVResponse'compactRevision = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HashKVResponse "hashRevision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hashRevision"
-> (Int64 -> f Int64) -> HashKVResponse -> f HashKVResponse
fieldOf Proxy# "hashRevision"
_
    = ((Int64 -> f Int64) -> HashKVResponse -> f HashKVResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> HashKVResponse
-> f HashKVResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((HashKVResponse -> Int64)
-> (HashKVResponse -> Int64 -> HashKVResponse)
-> Lens HashKVResponse HashKVResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           HashKVResponse -> Int64
_HashKVResponse'hashRevision
           (\ HashKVResponse
x__ Int64
y__ -> HashKVResponse
x__ {_HashKVResponse'hashRevision = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message HashKVResponse where
  messageName :: Proxy HashKVResponse -> Text
messageName Proxy HashKVResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.HashKVResponse"
  packedMessageDescriptor :: Proxy HashKVResponse -> ByteString
packedMessageDescriptor Proxy HashKVResponse
_
    = ByteString
"\n\
      \\SO\&HashKVResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\DC2\n\
      \\EOThash\CAN\STX \SOH(\rR\EOThash\DC2)\n\
      \\DLEcompact_revision\CAN\ETX \SOH(\ETXR\SIcompactRevision\DC2,\n\
      \\rhash_revision\CAN\EOT \SOH(\ETXR\fhashRevisionB\a\138\181\CAN\ETX3.6:\a\130\181\CAN\ETX3.3"
  packedFileDescriptor :: Proxy HashKVResponse -> ByteString
packedFileDescriptor Proxy HashKVResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor HashKVResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor HashKVResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor HashKVResponse ResponseHeader
-> FieldDescriptor HashKVResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  HashKVResponse
  HashKVResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor HashKVResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor HashKVResponse
        hash__field_descriptor :: FieldDescriptor HashKVResponse
hash__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor HashKVResponse Word32
-> FieldDescriptor HashKVResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"hash"
              (ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
              (WireDefault Word32
-> Lens HashKVResponse HashKVResponse Word32 Word32
-> FieldAccessor HashKVResponse Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word32
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 @"hash")) ::
              Data.ProtoLens.FieldDescriptor HashKVResponse
        compactRevision__field_descriptor :: FieldDescriptor HashKVResponse
compactRevision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor HashKVResponse Int64
-> FieldDescriptor HashKVResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"compact_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 HashKVResponse HashKVResponse Int64 Int64
-> FieldAccessor HashKVResponse 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 @"compactRevision")) ::
              Data.ProtoLens.FieldDescriptor HashKVResponse
        hashRevision__field_descriptor :: FieldDescriptor HashKVResponse
hashRevision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor HashKVResponse Int64
-> FieldDescriptor HashKVResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"hash_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 HashKVResponse HashKVResponse Int64 Int64
-> FieldAccessor HashKVResponse 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 @"hashRevision")) ::
              Data.ProtoLens.FieldDescriptor HashKVResponse
      in
        [(Tag, FieldDescriptor HashKVResponse)]
-> Map Tag (FieldDescriptor HashKVResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor HashKVResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor HashKVResponse
hash__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor HashKVResponse
compactRevision__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor HashKVResponse
hashRevision__field_descriptor)]
  unknownFields :: Lens' HashKVResponse FieldSet
unknownFields
    = (HashKVResponse -> FieldSet)
-> (HashKVResponse -> FieldSet -> HashKVResponse)
-> Lens' HashKVResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        HashKVResponse -> FieldSet
_HashKVResponse'_unknownFields
        (\ HashKVResponse
x__ FieldSet
y__ -> HashKVResponse
x__ {_HashKVResponse'_unknownFields = y__})
  defMessage :: HashKVResponse
defMessage
    = HashKVResponse'_constructor
        {_HashKVResponse'header :: Maybe ResponseHeader
_HashKVResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _HashKVResponse'hash :: Word32
_HashKVResponse'hash = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _HashKVResponse'compactRevision :: Int64
_HashKVResponse'compactRevision = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _HashKVResponse'hashRevision :: Int64
_HashKVResponse'hashRevision = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _HashKVResponse'_unknownFields :: FieldSet
_HashKVResponse'_unknownFields = []}
  parseMessage :: Parser HashKVResponse
parseMessage
    = let
        loop ::
          HashKVResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser HashKVResponse
        loop :: HashKVResponse -> Parser HashKVResponse
loop HashKVResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                        Word64
16
                          -> do y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"hash"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") 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
"compact_revision"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"compactRevision") 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
"hash_revision"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"hashRevision") 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 HashKVResponse -> String -> Parser HashKVResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do HashKVResponse -> Parser HashKVResponse
loop HashKVResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"HashKVResponse"
  buildMessage :: HashKVResponse -> Builder
buildMessage
    = \ HashKVResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  HashKVResponse
  HashKVResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> HashKVResponse -> Maybe ResponseHeader
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'header") HashKVResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: Word32
_v = FoldLike Word32 HashKVResponse HashKVResponse Word32 Word32
-> HashKVResponse -> Word32
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 @"hash") HashKVResponse
_x
                 in
                   if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
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) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Int64
_v
                        = FoldLike Int64 HashKVResponse HashKVResponse Int64 Int64
-> HashKVResponse -> 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 @"compactRevision") HashKVResponse
_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 HashKVResponse HashKVResponse Int64 Int64
-> HashKVResponse -> 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 @"hashRevision") HashKVResponse
_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))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike FieldSet HashKVResponse HashKVResponse FieldSet FieldSet
-> HashKVResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet HashKVResponse HashKVResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' HashKVResponse FieldSet
Data.ProtoLens.unknownFields HashKVResponse
_x)))))
instance Control.DeepSeq.NFData HashKVResponse where
  rnf :: HashKVResponse -> ()
rnf
    = \ HashKVResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (HashKVResponse -> FieldSet
_HashKVResponse'_unknownFields HashKVResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (HashKVResponse -> Maybe ResponseHeader
_HashKVResponse'header HashKVResponse
x__)
                (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (HashKVResponse -> Word32
_HashKVResponse'hash HashKVResponse
x__)
                   (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (HashKVResponse -> Int64
_HashKVResponse'compactRevision HashKVResponse
x__)
                      (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (HashKVResponse -> Int64
_HashKVResponse'hashRevision HashKVResponse
x__) ()))))
{- | Fields :
      -}
data HashRequest
  = HashRequest'_constructor {HashRequest -> FieldSet
_HashRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (HashRequest -> HashRequest -> Bool
(HashRequest -> HashRequest -> Bool)
-> (HashRequest -> HashRequest -> Bool) -> Eq HashRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HashRequest -> HashRequest -> Bool
== :: HashRequest -> HashRequest -> Bool
$c/= :: HashRequest -> HashRequest -> Bool
/= :: HashRequest -> HashRequest -> Bool
Prelude.Eq, Eq HashRequest
Eq HashRequest =>
(HashRequest -> HashRequest -> Ordering)
-> (HashRequest -> HashRequest -> Bool)
-> (HashRequest -> HashRequest -> Bool)
-> (HashRequest -> HashRequest -> Bool)
-> (HashRequest -> HashRequest -> Bool)
-> (HashRequest -> HashRequest -> HashRequest)
-> (HashRequest -> HashRequest -> HashRequest)
-> Ord HashRequest
HashRequest -> HashRequest -> Bool
HashRequest -> HashRequest -> Ordering
HashRequest -> HashRequest -> HashRequest
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 :: HashRequest -> HashRequest -> Ordering
compare :: HashRequest -> HashRequest -> Ordering
$c< :: HashRequest -> HashRequest -> Bool
< :: HashRequest -> HashRequest -> Bool
$c<= :: HashRequest -> HashRequest -> Bool
<= :: HashRequest -> HashRequest -> Bool
$c> :: HashRequest -> HashRequest -> Bool
> :: HashRequest -> HashRequest -> Bool
$c>= :: HashRequest -> HashRequest -> Bool
>= :: HashRequest -> HashRequest -> Bool
$cmax :: HashRequest -> HashRequest -> HashRequest
max :: HashRequest -> HashRequest -> HashRequest
$cmin :: HashRequest -> HashRequest -> HashRequest
min :: HashRequest -> HashRequest -> HashRequest
Prelude.Ord)
instance Prelude.Show HashRequest where
  showsPrec :: Int -> HashRequest -> ShowS
showsPrec Int
_ HashRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (HashRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort HashRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message HashRequest where
  messageName :: Proxy HashRequest -> Text
messageName Proxy HashRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.HashRequest"
  packedMessageDescriptor :: Proxy HashRequest -> ByteString
packedMessageDescriptor Proxy HashRequest
_
    = ByteString
"\n\
      \\vHashRequest:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy HashRequest -> ByteString
packedFileDescriptor Proxy HashRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor HashRequest)
fieldsByTag = let in [(Tag, FieldDescriptor HashRequest)]
-> Map Tag (FieldDescriptor HashRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' HashRequest FieldSet
unknownFields
    = (HashRequest -> FieldSet)
-> (HashRequest -> FieldSet -> HashRequest)
-> Lens' HashRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        HashRequest -> FieldSet
_HashRequest'_unknownFields
        (\ HashRequest
x__ FieldSet
y__ -> HashRequest
x__ {_HashRequest'_unknownFields = y__})
  defMessage :: HashRequest
defMessage
    = HashRequest'_constructor {_HashRequest'_unknownFields :: FieldSet
_HashRequest'_unknownFields = []}
  parseMessage :: Parser HashRequest
parseMessage
    = let
        loop ::
          HashRequest -> Data.ProtoLens.Encoding.Bytes.Parser HashRequest
        loop :: HashRequest -> Parser HashRequest
loop HashRequest
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
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 HashRequest -> String -> Parser HashRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do HashRequest -> Parser HashRequest
loop HashRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"HashRequest"
  buildMessage :: HashRequest -> Builder
buildMessage
    = \ HashRequest
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike FieldSet HashRequest HashRequest FieldSet FieldSet
-> HashRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet HashRequest HashRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' HashRequest FieldSet
Data.ProtoLens.unknownFields HashRequest
_x)
instance Control.DeepSeq.NFData HashRequest where
  rnf :: HashRequest -> ()
rnf
    = \ HashRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (HashRequest -> FieldSet
_HashRequest'_unknownFields HashRequest
x__) ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' HashResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' HashResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.hash' @:: Lens' HashResponse Data.Word.Word32@ -}
data HashResponse
  = HashResponse'_constructor {HashResponse -> Maybe ResponseHeader
_HashResponse'header :: !(Prelude.Maybe ResponseHeader),
                               HashResponse -> Word32
_HashResponse'hash :: !Data.Word.Word32,
                               HashResponse -> FieldSet
_HashResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (HashResponse -> HashResponse -> Bool
(HashResponse -> HashResponse -> Bool)
-> (HashResponse -> HashResponse -> Bool) -> Eq HashResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: HashResponse -> HashResponse -> Bool
== :: HashResponse -> HashResponse -> Bool
$c/= :: HashResponse -> HashResponse -> Bool
/= :: HashResponse -> HashResponse -> Bool
Prelude.Eq, Eq HashResponse
Eq HashResponse =>
(HashResponse -> HashResponse -> Ordering)
-> (HashResponse -> HashResponse -> Bool)
-> (HashResponse -> HashResponse -> Bool)
-> (HashResponse -> HashResponse -> Bool)
-> (HashResponse -> HashResponse -> Bool)
-> (HashResponse -> HashResponse -> HashResponse)
-> (HashResponse -> HashResponse -> HashResponse)
-> Ord HashResponse
HashResponse -> HashResponse -> Bool
HashResponse -> HashResponse -> Ordering
HashResponse -> HashResponse -> HashResponse
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 :: HashResponse -> HashResponse -> Ordering
compare :: HashResponse -> HashResponse -> Ordering
$c< :: HashResponse -> HashResponse -> Bool
< :: HashResponse -> HashResponse -> Bool
$c<= :: HashResponse -> HashResponse -> Bool
<= :: HashResponse -> HashResponse -> Bool
$c> :: HashResponse -> HashResponse -> Bool
> :: HashResponse -> HashResponse -> Bool
$c>= :: HashResponse -> HashResponse -> Bool
>= :: HashResponse -> HashResponse -> Bool
$cmax :: HashResponse -> HashResponse -> HashResponse
max :: HashResponse -> HashResponse -> HashResponse
$cmin :: HashResponse -> HashResponse -> HashResponse
min :: HashResponse -> HashResponse -> HashResponse
Prelude.Ord)
instance Prelude.Show HashResponse where
  showsPrec :: Int -> HashResponse -> ShowS
showsPrec Int
_ HashResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (HashResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort HashResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField HashResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> HashResponse
-> f HashResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> HashResponse -> f HashResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> HashResponse
-> f HashResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((HashResponse -> Maybe ResponseHeader)
-> (HashResponse -> Maybe ResponseHeader -> HashResponse)
-> Lens
     HashResponse
     HashResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           HashResponse -> Maybe ResponseHeader
_HashResponse'header
           (\ HashResponse
x__ Maybe ResponseHeader
y__ -> HashResponse
x__ {_HashResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField HashResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> HashResponse
-> f HashResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> HashResponse -> f HashResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> HashResponse
-> f HashResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((HashResponse -> Maybe ResponseHeader)
-> (HashResponse -> Maybe ResponseHeader -> HashResponse)
-> Lens
     HashResponse
     HashResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           HashResponse -> Maybe ResponseHeader
_HashResponse'header
           (\ HashResponse
x__ Maybe ResponseHeader
y__ -> HashResponse
x__ {_HashResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField HashResponse "hash" Data.Word.Word32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "hash"
-> (Word32 -> f Word32) -> HashResponse -> f HashResponse
fieldOf Proxy# "hash"
_
    = ((Word32 -> f Word32) -> HashResponse -> f HashResponse)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> HashResponse
-> f HashResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((HashResponse -> Word32)
-> (HashResponse -> Word32 -> HashResponse)
-> Lens HashResponse HashResponse Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           HashResponse -> Word32
_HashResponse'hash (\ HashResponse
x__ Word32
y__ -> HashResponse
x__ {_HashResponse'hash = y__}))
        (Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message HashResponse where
  messageName :: Proxy HashResponse -> Text
messageName Proxy HashResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.HashResponse"
  packedMessageDescriptor :: Proxy HashResponse -> ByteString
packedMessageDescriptor Proxy HashResponse
_
    = ByteString
"\n\
      \\fHashResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\DC2\n\
      \\EOThash\CAN\STX \SOH(\rR\EOThash:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy HashResponse -> ByteString
packedFileDescriptor Proxy HashResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor HashResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor HashResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor HashResponse ResponseHeader
-> FieldDescriptor HashResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  HashResponse
  HashResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor HashResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor HashResponse
        hash__field_descriptor :: FieldDescriptor HashResponse
hash__field_descriptor
          = String
-> FieldTypeDescriptor Word32
-> FieldAccessor HashResponse Word32
-> FieldDescriptor HashResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"hash"
              (ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
              (WireDefault Word32
-> Lens HashResponse HashResponse Word32 Word32
-> FieldAccessor HashResponse Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word32
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 @"hash")) ::
              Data.ProtoLens.FieldDescriptor HashResponse
      in
        [(Tag, FieldDescriptor HashResponse)]
-> Map Tag (FieldDescriptor HashResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor HashResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor HashResponse
hash__field_descriptor)]
  unknownFields :: Lens' HashResponse FieldSet
unknownFields
    = (HashResponse -> FieldSet)
-> (HashResponse -> FieldSet -> HashResponse)
-> Lens' HashResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        HashResponse -> FieldSet
_HashResponse'_unknownFields
        (\ HashResponse
x__ FieldSet
y__ -> HashResponse
x__ {_HashResponse'_unknownFields = y__})
  defMessage :: HashResponse
defMessage
    = HashResponse'_constructor
        {_HashResponse'header :: Maybe ResponseHeader
_HashResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _HashResponse'hash :: Word32
_HashResponse'hash = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _HashResponse'_unknownFields :: FieldSet
_HashResponse'_unknownFields = []}
  parseMessage :: Parser HashResponse
parseMessage
    = let
        loop ::
          HashResponse -> Data.ProtoLens.Encoding.Bytes.Parser HashResponse
        loop :: HashResponse -> Parser HashResponse
loop HashResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                        Word64
16
                          -> do y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"hash"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"hash") 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 HashResponse -> String -> Parser HashResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do HashResponse -> Parser HashResponse
loop HashResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"HashResponse"
  buildMessage :: HashResponse -> Builder
buildMessage
    = \ HashResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  HashResponse
  HashResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> HashResponse -> Maybe ResponseHeader
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'header") HashResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: Word32
_v = FoldLike Word32 HashResponse HashResponse Word32 Word32
-> HashResponse -> Word32
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 @"hash") HashResponse
_x
                 in
                   if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
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) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet HashResponse HashResponse FieldSet FieldSet
-> HashResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet HashResponse HashResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' HashResponse FieldSet
Data.ProtoLens.unknownFields HashResponse
_x)))
instance Control.DeepSeq.NFData HashResponse where
  rnf :: HashResponse -> ()
rnf
    = \ HashResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (HashResponse -> FieldSet
_HashResponse'_unknownFields HashResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (HashResponse -> Maybe ResponseHeader
_HashResponse'header HashResponse
x__)
                (Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (HashResponse -> Word32
_HashResponse'hash HashResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseCheckpoint Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.remainingTTL' @:: Lens' LeaseCheckpoint Data.Int.Int64@ -}
data LeaseCheckpoint
  = LeaseCheckpoint'_constructor {LeaseCheckpoint -> Int64
_LeaseCheckpoint'id :: !Data.Int.Int64,
                                  LeaseCheckpoint -> Int64
_LeaseCheckpoint'remainingTTL :: !Data.Int.Int64,
                                  LeaseCheckpoint -> FieldSet
_LeaseCheckpoint'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LeaseCheckpoint -> LeaseCheckpoint -> Bool
(LeaseCheckpoint -> LeaseCheckpoint -> Bool)
-> (LeaseCheckpoint -> LeaseCheckpoint -> Bool)
-> Eq LeaseCheckpoint
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LeaseCheckpoint -> LeaseCheckpoint -> Bool
== :: LeaseCheckpoint -> LeaseCheckpoint -> Bool
$c/= :: LeaseCheckpoint -> LeaseCheckpoint -> Bool
/= :: LeaseCheckpoint -> LeaseCheckpoint -> Bool
Prelude.Eq, Eq LeaseCheckpoint
Eq LeaseCheckpoint =>
(LeaseCheckpoint -> LeaseCheckpoint -> Ordering)
-> (LeaseCheckpoint -> LeaseCheckpoint -> Bool)
-> (LeaseCheckpoint -> LeaseCheckpoint -> Bool)
-> (LeaseCheckpoint -> LeaseCheckpoint -> Bool)
-> (LeaseCheckpoint -> LeaseCheckpoint -> Bool)
-> (LeaseCheckpoint -> LeaseCheckpoint -> LeaseCheckpoint)
-> (LeaseCheckpoint -> LeaseCheckpoint -> LeaseCheckpoint)
-> Ord LeaseCheckpoint
LeaseCheckpoint -> LeaseCheckpoint -> Bool
LeaseCheckpoint -> LeaseCheckpoint -> Ordering
LeaseCheckpoint -> LeaseCheckpoint -> LeaseCheckpoint
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 :: LeaseCheckpoint -> LeaseCheckpoint -> Ordering
compare :: LeaseCheckpoint -> LeaseCheckpoint -> Ordering
$c< :: LeaseCheckpoint -> LeaseCheckpoint -> Bool
< :: LeaseCheckpoint -> LeaseCheckpoint -> Bool
$c<= :: LeaseCheckpoint -> LeaseCheckpoint -> Bool
<= :: LeaseCheckpoint -> LeaseCheckpoint -> Bool
$c> :: LeaseCheckpoint -> LeaseCheckpoint -> Bool
> :: LeaseCheckpoint -> LeaseCheckpoint -> Bool
$c>= :: LeaseCheckpoint -> LeaseCheckpoint -> Bool
>= :: LeaseCheckpoint -> LeaseCheckpoint -> Bool
$cmax :: LeaseCheckpoint -> LeaseCheckpoint -> LeaseCheckpoint
max :: LeaseCheckpoint -> LeaseCheckpoint -> LeaseCheckpoint
$cmin :: LeaseCheckpoint -> LeaseCheckpoint -> LeaseCheckpoint
min :: LeaseCheckpoint -> LeaseCheckpoint -> LeaseCheckpoint
Prelude.Ord)
instance Prelude.Show LeaseCheckpoint where
  showsPrec :: Int -> LeaseCheckpoint -> ShowS
showsPrec Int
_ LeaseCheckpoint
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LeaseCheckpoint -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LeaseCheckpoint
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField LeaseCheckpoint "id" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id"
-> (Int64 -> f Int64) -> LeaseCheckpoint -> f LeaseCheckpoint
fieldOf Proxy# "id"
_
    = ((Int64 -> f Int64) -> LeaseCheckpoint -> f LeaseCheckpoint)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> LeaseCheckpoint
-> f LeaseCheckpoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseCheckpoint -> Int64)
-> (LeaseCheckpoint -> Int64 -> LeaseCheckpoint)
-> Lens LeaseCheckpoint LeaseCheckpoint Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseCheckpoint -> Int64
_LeaseCheckpoint'id (\ LeaseCheckpoint
x__ Int64
y__ -> LeaseCheckpoint
x__ {_LeaseCheckpoint'id = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField LeaseCheckpoint "remainingTTL" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "remainingTTL"
-> (Int64 -> f Int64) -> LeaseCheckpoint -> f LeaseCheckpoint
fieldOf Proxy# "remainingTTL"
_
    = ((Int64 -> f Int64) -> LeaseCheckpoint -> f LeaseCheckpoint)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> LeaseCheckpoint
-> f LeaseCheckpoint
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseCheckpoint -> Int64)
-> (LeaseCheckpoint -> Int64 -> LeaseCheckpoint)
-> Lens LeaseCheckpoint LeaseCheckpoint Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseCheckpoint -> Int64
_LeaseCheckpoint'remainingTTL
           (\ LeaseCheckpoint
x__ Int64
y__ -> LeaseCheckpoint
x__ {_LeaseCheckpoint'remainingTTL = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message LeaseCheckpoint where
  messageName :: Proxy LeaseCheckpoint -> Text
messageName Proxy LeaseCheckpoint
_ = String -> Text
Data.Text.pack String
"etcdserverpb.LeaseCheckpoint"
  packedMessageDescriptor :: Proxy LeaseCheckpoint -> ByteString
packedMessageDescriptor Proxy LeaseCheckpoint
_
    = ByteString
"\n\
      \\SILeaseCheckpoint\DC2\SO\n\
      \\STXID\CAN\SOH \SOH(\ETXR\STXID\DC2#\n\
      \\rremaining_TTL\CAN\STX \SOH(\ETXR\fremainingTTL:\a\130\181\CAN\ETX3.4"
  packedFileDescriptor :: Proxy LeaseCheckpoint -> ByteString
packedFileDescriptor Proxy LeaseCheckpoint
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LeaseCheckpoint)
fieldsByTag
    = let
        id__field_descriptor :: FieldDescriptor LeaseCheckpoint
id__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor LeaseCheckpoint Int64
-> FieldDescriptor LeaseCheckpoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ID"
              (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 LeaseCheckpoint LeaseCheckpoint Int64 Int64
-> FieldAccessor LeaseCheckpoint 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 @"id")) ::
              Data.ProtoLens.FieldDescriptor LeaseCheckpoint
        remainingTTL__field_descriptor :: FieldDescriptor LeaseCheckpoint
remainingTTL__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor LeaseCheckpoint Int64
-> FieldDescriptor LeaseCheckpoint
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"remaining_TTL"
              (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 LeaseCheckpoint LeaseCheckpoint Int64 Int64
-> FieldAccessor LeaseCheckpoint 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 @"remainingTTL")) ::
              Data.ProtoLens.FieldDescriptor LeaseCheckpoint
      in
        [(Tag, FieldDescriptor LeaseCheckpoint)]
-> Map Tag (FieldDescriptor LeaseCheckpoint)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor LeaseCheckpoint
id__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor LeaseCheckpoint
remainingTTL__field_descriptor)]
  unknownFields :: Lens' LeaseCheckpoint FieldSet
unknownFields
    = (LeaseCheckpoint -> FieldSet)
-> (LeaseCheckpoint -> FieldSet -> LeaseCheckpoint)
-> Lens' LeaseCheckpoint FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LeaseCheckpoint -> FieldSet
_LeaseCheckpoint'_unknownFields
        (\ LeaseCheckpoint
x__ FieldSet
y__ -> LeaseCheckpoint
x__ {_LeaseCheckpoint'_unknownFields = y__})
  defMessage :: LeaseCheckpoint
defMessage
    = LeaseCheckpoint'_constructor
        {_LeaseCheckpoint'id :: Int64
_LeaseCheckpoint'id = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseCheckpoint'remainingTTL :: Int64
_LeaseCheckpoint'remainingTTL = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseCheckpoint'_unknownFields :: FieldSet
_LeaseCheckpoint'_unknownFields = []}
  parseMessage :: Parser LeaseCheckpoint
parseMessage
    = let
        loop ::
          LeaseCheckpoint
          -> Data.ProtoLens.Encoding.Bytes.Parser LeaseCheckpoint
        loop :: LeaseCheckpoint -> Parser LeaseCheckpoint
loop LeaseCheckpoint
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 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
"ID"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") 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
"remaining_TTL"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"remainingTTL") 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 LeaseCheckpoint -> String -> Parser LeaseCheckpoint
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do LeaseCheckpoint -> Parser LeaseCheckpoint
loop LeaseCheckpoint
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"LeaseCheckpoint"
  buildMessage :: LeaseCheckpoint -> Builder
buildMessage
    = \ LeaseCheckpoint
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Int64
_v = FoldLike Int64 LeaseCheckpoint LeaseCheckpoint Int64 Int64
-> LeaseCheckpoint -> 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 @"id") LeaseCheckpoint
_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
8)
                      ((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 LeaseCheckpoint LeaseCheckpoint Int64 Int64
-> LeaseCheckpoint -> 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 @"remainingTTL") LeaseCheckpoint
_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))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet LeaseCheckpoint LeaseCheckpoint FieldSet FieldSet
-> LeaseCheckpoint -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet LeaseCheckpoint LeaseCheckpoint FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LeaseCheckpoint FieldSet
Data.ProtoLens.unknownFields LeaseCheckpoint
_x)))
instance Control.DeepSeq.NFData LeaseCheckpoint where
  rnf :: LeaseCheckpoint -> ()
rnf
    = \ LeaseCheckpoint
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LeaseCheckpoint -> FieldSet
_LeaseCheckpoint'_unknownFields LeaseCheckpoint
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (LeaseCheckpoint -> Int64
_LeaseCheckpoint'id LeaseCheckpoint
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (LeaseCheckpoint -> Int64
_LeaseCheckpoint'remainingTTL LeaseCheckpoint
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.checkpoints' @:: Lens' LeaseCheckpointRequest [LeaseCheckpoint]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'checkpoints' @:: Lens' LeaseCheckpointRequest (Data.Vector.Vector LeaseCheckpoint)@ -}
data LeaseCheckpointRequest
  = LeaseCheckpointRequest'_constructor {LeaseCheckpointRequest -> Vector LeaseCheckpoint
_LeaseCheckpointRequest'checkpoints :: !(Data.Vector.Vector LeaseCheckpoint),
                                         LeaseCheckpointRequest -> FieldSet
_LeaseCheckpointRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool
(LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool)
-> (LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool)
-> Eq LeaseCheckpointRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool
== :: LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool
$c/= :: LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool
/= :: LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool
Prelude.Eq, Eq LeaseCheckpointRequest
Eq LeaseCheckpointRequest =>
(LeaseCheckpointRequest -> LeaseCheckpointRequest -> Ordering)
-> (LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool)
-> (LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool)
-> (LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool)
-> (LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool)
-> (LeaseCheckpointRequest
    -> LeaseCheckpointRequest -> LeaseCheckpointRequest)
-> (LeaseCheckpointRequest
    -> LeaseCheckpointRequest -> LeaseCheckpointRequest)
-> Ord LeaseCheckpointRequest
LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool
LeaseCheckpointRequest -> LeaseCheckpointRequest -> Ordering
LeaseCheckpointRequest
-> LeaseCheckpointRequest -> LeaseCheckpointRequest
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 :: LeaseCheckpointRequest -> LeaseCheckpointRequest -> Ordering
compare :: LeaseCheckpointRequest -> LeaseCheckpointRequest -> Ordering
$c< :: LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool
< :: LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool
$c<= :: LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool
<= :: LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool
$c> :: LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool
> :: LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool
$c>= :: LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool
>= :: LeaseCheckpointRequest -> LeaseCheckpointRequest -> Bool
$cmax :: LeaseCheckpointRequest
-> LeaseCheckpointRequest -> LeaseCheckpointRequest
max :: LeaseCheckpointRequest
-> LeaseCheckpointRequest -> LeaseCheckpointRequest
$cmin :: LeaseCheckpointRequest
-> LeaseCheckpointRequest -> LeaseCheckpointRequest
min :: LeaseCheckpointRequest
-> LeaseCheckpointRequest -> LeaseCheckpointRequest
Prelude.Ord)
instance Prelude.Show LeaseCheckpointRequest where
  showsPrec :: Int -> LeaseCheckpointRequest -> ShowS
showsPrec Int
_ LeaseCheckpointRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LeaseCheckpointRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LeaseCheckpointRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField LeaseCheckpointRequest "checkpoints" [LeaseCheckpoint] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "checkpoints"
-> ([LeaseCheckpoint] -> f [LeaseCheckpoint])
-> LeaseCheckpointRequest
-> f LeaseCheckpointRequest
fieldOf Proxy# "checkpoints"
_
    = ((Vector LeaseCheckpoint -> f (Vector LeaseCheckpoint))
 -> LeaseCheckpointRequest -> f LeaseCheckpointRequest)
-> (([LeaseCheckpoint] -> f [LeaseCheckpoint])
    -> Vector LeaseCheckpoint -> f (Vector LeaseCheckpoint))
-> ([LeaseCheckpoint] -> f [LeaseCheckpoint])
-> LeaseCheckpointRequest
-> f LeaseCheckpointRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseCheckpointRequest -> Vector LeaseCheckpoint)
-> (LeaseCheckpointRequest
    -> Vector LeaseCheckpoint -> LeaseCheckpointRequest)
-> Lens
     LeaseCheckpointRequest
     LeaseCheckpointRequest
     (Vector LeaseCheckpoint)
     (Vector LeaseCheckpoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseCheckpointRequest -> Vector LeaseCheckpoint
_LeaseCheckpointRequest'checkpoints
           (\ LeaseCheckpointRequest
x__ Vector LeaseCheckpoint
y__ -> LeaseCheckpointRequest
x__ {_LeaseCheckpointRequest'checkpoints = y__}))
        ((Vector LeaseCheckpoint -> [LeaseCheckpoint])
-> (Vector LeaseCheckpoint
    -> [LeaseCheckpoint] -> Vector LeaseCheckpoint)
-> Lens
     (Vector LeaseCheckpoint)
     (Vector LeaseCheckpoint)
     [LeaseCheckpoint]
     [LeaseCheckpoint]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector LeaseCheckpoint -> [LeaseCheckpoint]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector LeaseCheckpoint
_ [LeaseCheckpoint]
y__ -> [LeaseCheckpoint] -> Vector LeaseCheckpoint
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [LeaseCheckpoint]
y__))
instance Data.ProtoLens.Field.HasField LeaseCheckpointRequest "vec'checkpoints" (Data.Vector.Vector LeaseCheckpoint) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'checkpoints"
-> (Vector LeaseCheckpoint -> f (Vector LeaseCheckpoint))
-> LeaseCheckpointRequest
-> f LeaseCheckpointRequest
fieldOf Proxy# "vec'checkpoints"
_
    = ((Vector LeaseCheckpoint -> f (Vector LeaseCheckpoint))
 -> LeaseCheckpointRequest -> f LeaseCheckpointRequest)
-> ((Vector LeaseCheckpoint -> f (Vector LeaseCheckpoint))
    -> Vector LeaseCheckpoint -> f (Vector LeaseCheckpoint))
-> (Vector LeaseCheckpoint -> f (Vector LeaseCheckpoint))
-> LeaseCheckpointRequest
-> f LeaseCheckpointRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseCheckpointRequest -> Vector LeaseCheckpoint)
-> (LeaseCheckpointRequest
    -> Vector LeaseCheckpoint -> LeaseCheckpointRequest)
-> Lens
     LeaseCheckpointRequest
     LeaseCheckpointRequest
     (Vector LeaseCheckpoint)
     (Vector LeaseCheckpoint)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseCheckpointRequest -> Vector LeaseCheckpoint
_LeaseCheckpointRequest'checkpoints
           (\ LeaseCheckpointRequest
x__ Vector LeaseCheckpoint
y__ -> LeaseCheckpointRequest
x__ {_LeaseCheckpointRequest'checkpoints = y__}))
        (Vector LeaseCheckpoint -> f (Vector LeaseCheckpoint))
-> Vector LeaseCheckpoint -> f (Vector LeaseCheckpoint)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message LeaseCheckpointRequest where
  messageName :: Proxy LeaseCheckpointRequest -> Text
messageName Proxy LeaseCheckpointRequest
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.LeaseCheckpointRequest"
  packedMessageDescriptor :: Proxy LeaseCheckpointRequest -> ByteString
packedMessageDescriptor Proxy LeaseCheckpointRequest
_
    = ByteString
"\n\
      \\SYNLeaseCheckpointRequest\DC2?\n\
      \\vcheckpoints\CAN\SOH \ETX(\v2\GS.etcdserverpb.LeaseCheckpointR\vcheckpoints:\a\130\181\CAN\ETX3.4"
  packedFileDescriptor :: Proxy LeaseCheckpointRequest -> ByteString
packedFileDescriptor Proxy LeaseCheckpointRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LeaseCheckpointRequest)
fieldsByTag
    = let
        checkpoints__field_descriptor :: FieldDescriptor LeaseCheckpointRequest
checkpoints__field_descriptor
          = String
-> FieldTypeDescriptor LeaseCheckpoint
-> FieldAccessor LeaseCheckpointRequest LeaseCheckpoint
-> FieldDescriptor LeaseCheckpointRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"checkpoints"
              (MessageOrGroup -> FieldTypeDescriptor LeaseCheckpoint
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor LeaseCheckpoint)
              (Packing
-> Lens' LeaseCheckpointRequest [LeaseCheckpoint]
-> FieldAccessor LeaseCheckpointRequest LeaseCheckpoint
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"checkpoints")) ::
              Data.ProtoLens.FieldDescriptor LeaseCheckpointRequest
      in
        [(Tag, FieldDescriptor LeaseCheckpointRequest)]
-> Map Tag (FieldDescriptor LeaseCheckpointRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor LeaseCheckpointRequest
checkpoints__field_descriptor)]
  unknownFields :: Lens' LeaseCheckpointRequest FieldSet
unknownFields
    = (LeaseCheckpointRequest -> FieldSet)
-> (LeaseCheckpointRequest -> FieldSet -> LeaseCheckpointRequest)
-> Lens' LeaseCheckpointRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LeaseCheckpointRequest -> FieldSet
_LeaseCheckpointRequest'_unknownFields
        (\ LeaseCheckpointRequest
x__ FieldSet
y__ -> LeaseCheckpointRequest
x__ {_LeaseCheckpointRequest'_unknownFields = y__})
  defMessage :: LeaseCheckpointRequest
defMessage
    = LeaseCheckpointRequest'_constructor
        {_LeaseCheckpointRequest'checkpoints :: Vector LeaseCheckpoint
_LeaseCheckpointRequest'checkpoints = Vector LeaseCheckpoint
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _LeaseCheckpointRequest'_unknownFields :: FieldSet
_LeaseCheckpointRequest'_unknownFields = []}
  parseMessage :: Parser LeaseCheckpointRequest
parseMessage
    = let
        loop ::
          LeaseCheckpointRequest
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld LeaseCheckpoint
             -> Data.ProtoLens.Encoding.Bytes.Parser LeaseCheckpointRequest
        loop :: LeaseCheckpointRequest
-> Growing Vector RealWorld LeaseCheckpoint
-> Parser LeaseCheckpointRequest
loop LeaseCheckpointRequest
x Growing Vector RealWorld LeaseCheckpoint
mutable'checkpoints
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'checkpoints <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                              (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                 mutable'checkpoints)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'checkpoints") frozen'checkpoints
                              x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser LeaseCheckpoint -> String -> Parser LeaseCheckpoint
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
"checkpoints"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append
                                          mutable'checkpoints y)
                                loop x v
                        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)
                                  mutable'checkpoints
      in
        Parser LeaseCheckpointRequest
-> String -> Parser LeaseCheckpointRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'checkpoints <- IO (Growing Vector RealWorld LeaseCheckpoint)
-> Parser (Growing Vector RealWorld LeaseCheckpoint)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       IO (Growing Vector RealWorld LeaseCheckpoint)
IO (Growing Vector (PrimState IO) LeaseCheckpoint)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'checkpoints)
          String
"LeaseCheckpointRequest"
  buildMessage :: LeaseCheckpointRequest -> Builder
buildMessage
    = \ LeaseCheckpointRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((LeaseCheckpoint -> Builder) -> Vector LeaseCheckpoint -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ LeaseCheckpoint
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (LeaseCheckpoint -> ByteString) -> LeaseCheckpoint -> 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))
                           LeaseCheckpoint -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage LeaseCheckpoint
_v))
                (FoldLike
  (Vector LeaseCheckpoint)
  LeaseCheckpointRequest
  LeaseCheckpointRequest
  (Vector LeaseCheckpoint)
  (Vector LeaseCheckpoint)
-> LeaseCheckpointRequest -> Vector LeaseCheckpoint
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 @"vec'checkpoints") LeaseCheckpointRequest
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  LeaseCheckpointRequest
  LeaseCheckpointRequest
  FieldSet
  FieldSet
-> LeaseCheckpointRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  LeaseCheckpointRequest
  LeaseCheckpointRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LeaseCheckpointRequest FieldSet
Data.ProtoLens.unknownFields LeaseCheckpointRequest
_x))
instance Control.DeepSeq.NFData LeaseCheckpointRequest where
  rnf :: LeaseCheckpointRequest -> ()
rnf
    = \ LeaseCheckpointRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LeaseCheckpointRequest -> FieldSet
_LeaseCheckpointRequest'_unknownFields LeaseCheckpointRequest
x__)
             (Vector LeaseCheckpoint -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (LeaseCheckpointRequest -> Vector LeaseCheckpoint
_LeaseCheckpointRequest'checkpoints LeaseCheckpointRequest
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' LeaseCheckpointResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' LeaseCheckpointResponse (Prelude.Maybe ResponseHeader)@ -}
data LeaseCheckpointResponse
  = LeaseCheckpointResponse'_constructor {LeaseCheckpointResponse -> Maybe ResponseHeader
_LeaseCheckpointResponse'header :: !(Prelude.Maybe ResponseHeader),
                                          LeaseCheckpointResponse -> FieldSet
_LeaseCheckpointResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool
(LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool)
-> (LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool)
-> Eq LeaseCheckpointResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool
== :: LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool
$c/= :: LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool
/= :: LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool
Prelude.Eq, Eq LeaseCheckpointResponse
Eq LeaseCheckpointResponse =>
(LeaseCheckpointResponse -> LeaseCheckpointResponse -> Ordering)
-> (LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool)
-> (LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool)
-> (LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool)
-> (LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool)
-> (LeaseCheckpointResponse
    -> LeaseCheckpointResponse -> LeaseCheckpointResponse)
-> (LeaseCheckpointResponse
    -> LeaseCheckpointResponse -> LeaseCheckpointResponse)
-> Ord LeaseCheckpointResponse
LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool
LeaseCheckpointResponse -> LeaseCheckpointResponse -> Ordering
LeaseCheckpointResponse
-> LeaseCheckpointResponse -> LeaseCheckpointResponse
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 :: LeaseCheckpointResponse -> LeaseCheckpointResponse -> Ordering
compare :: LeaseCheckpointResponse -> LeaseCheckpointResponse -> Ordering
$c< :: LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool
< :: LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool
$c<= :: LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool
<= :: LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool
$c> :: LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool
> :: LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool
$c>= :: LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool
>= :: LeaseCheckpointResponse -> LeaseCheckpointResponse -> Bool
$cmax :: LeaseCheckpointResponse
-> LeaseCheckpointResponse -> LeaseCheckpointResponse
max :: LeaseCheckpointResponse
-> LeaseCheckpointResponse -> LeaseCheckpointResponse
$cmin :: LeaseCheckpointResponse
-> LeaseCheckpointResponse -> LeaseCheckpointResponse
min :: LeaseCheckpointResponse
-> LeaseCheckpointResponse -> LeaseCheckpointResponse
Prelude.Ord)
instance Prelude.Show LeaseCheckpointResponse where
  showsPrec :: Int -> LeaseCheckpointResponse -> ShowS
showsPrec Int
_ LeaseCheckpointResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LeaseCheckpointResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LeaseCheckpointResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField LeaseCheckpointResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> LeaseCheckpointResponse
-> f LeaseCheckpointResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> LeaseCheckpointResponse -> f LeaseCheckpointResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> LeaseCheckpointResponse
-> f LeaseCheckpointResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseCheckpointResponse -> Maybe ResponseHeader)
-> (LeaseCheckpointResponse
    -> Maybe ResponseHeader -> LeaseCheckpointResponse)
-> Lens
     LeaseCheckpointResponse
     LeaseCheckpointResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseCheckpointResponse -> Maybe ResponseHeader
_LeaseCheckpointResponse'header
           (\ LeaseCheckpointResponse
x__ Maybe ResponseHeader
y__ -> LeaseCheckpointResponse
x__ {_LeaseCheckpointResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField LeaseCheckpointResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> LeaseCheckpointResponse
-> f LeaseCheckpointResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> LeaseCheckpointResponse -> f LeaseCheckpointResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> LeaseCheckpointResponse
-> f LeaseCheckpointResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseCheckpointResponse -> Maybe ResponseHeader)
-> (LeaseCheckpointResponse
    -> Maybe ResponseHeader -> LeaseCheckpointResponse)
-> Lens
     LeaseCheckpointResponse
     LeaseCheckpointResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseCheckpointResponse -> Maybe ResponseHeader
_LeaseCheckpointResponse'header
           (\ LeaseCheckpointResponse
x__ Maybe ResponseHeader
y__ -> LeaseCheckpointResponse
x__ {_LeaseCheckpointResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message LeaseCheckpointResponse where
  messageName :: Proxy LeaseCheckpointResponse -> Text
messageName Proxy LeaseCheckpointResponse
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.LeaseCheckpointResponse"
  packedMessageDescriptor :: Proxy LeaseCheckpointResponse -> ByteString
packedMessageDescriptor Proxy LeaseCheckpointResponse
_
    = ByteString
"\n\
      \\ETBLeaseCheckpointResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.4"
  packedFileDescriptor :: Proxy LeaseCheckpointResponse -> ByteString
packedFileDescriptor Proxy LeaseCheckpointResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LeaseCheckpointResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor LeaseCheckpointResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor LeaseCheckpointResponse ResponseHeader
-> FieldDescriptor LeaseCheckpointResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  LeaseCheckpointResponse
  LeaseCheckpointResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor LeaseCheckpointResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor LeaseCheckpointResponse
      in
        [(Tag, FieldDescriptor LeaseCheckpointResponse)]
-> Map Tag (FieldDescriptor LeaseCheckpointResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor LeaseCheckpointResponse
header__field_descriptor)]
  unknownFields :: Lens' LeaseCheckpointResponse FieldSet
unknownFields
    = (LeaseCheckpointResponse -> FieldSet)
-> (LeaseCheckpointResponse -> FieldSet -> LeaseCheckpointResponse)
-> Lens' LeaseCheckpointResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LeaseCheckpointResponse -> FieldSet
_LeaseCheckpointResponse'_unknownFields
        (\ LeaseCheckpointResponse
x__ FieldSet
y__ -> LeaseCheckpointResponse
x__ {_LeaseCheckpointResponse'_unknownFields = y__})
  defMessage :: LeaseCheckpointResponse
defMessage
    = LeaseCheckpointResponse'_constructor
        {_LeaseCheckpointResponse'header :: Maybe ResponseHeader
_LeaseCheckpointResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _LeaseCheckpointResponse'_unknownFields :: FieldSet
_LeaseCheckpointResponse'_unknownFields = []}
  parseMessage :: Parser LeaseCheckpointResponse
parseMessage
    = let
        loop ::
          LeaseCheckpointResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser LeaseCheckpointResponse
        loop :: LeaseCheckpointResponse -> Parser LeaseCheckpointResponse
loop LeaseCheckpointResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 LeaseCheckpointResponse
-> String -> Parser LeaseCheckpointResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do LeaseCheckpointResponse -> Parser LeaseCheckpointResponse
loop LeaseCheckpointResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"LeaseCheckpointResponse"
  buildMessage :: LeaseCheckpointResponse -> Builder
buildMessage
    = \ LeaseCheckpointResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  LeaseCheckpointResponse
  LeaseCheckpointResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> LeaseCheckpointResponse -> Maybe ResponseHeader
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'header") LeaseCheckpointResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  LeaseCheckpointResponse
  LeaseCheckpointResponse
  FieldSet
  FieldSet
-> LeaseCheckpointResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  LeaseCheckpointResponse
  LeaseCheckpointResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LeaseCheckpointResponse FieldSet
Data.ProtoLens.unknownFields LeaseCheckpointResponse
_x))
instance Control.DeepSeq.NFData LeaseCheckpointResponse where
  rnf :: LeaseCheckpointResponse -> ()
rnf
    = \ LeaseCheckpointResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LeaseCheckpointResponse -> FieldSet
_LeaseCheckpointResponse'_unknownFields LeaseCheckpointResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (LeaseCheckpointResponse -> Maybe ResponseHeader
_LeaseCheckpointResponse'header LeaseCheckpointResponse
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.ttl' @:: Lens' LeaseGrantRequest Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseGrantRequest Data.Int.Int64@ -}
data LeaseGrantRequest
  = LeaseGrantRequest'_constructor {LeaseGrantRequest -> Int64
_LeaseGrantRequest'ttl :: !Data.Int.Int64,
                                    LeaseGrantRequest -> Int64
_LeaseGrantRequest'id :: !Data.Int.Int64,
                                    LeaseGrantRequest -> FieldSet
_LeaseGrantRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LeaseGrantRequest -> LeaseGrantRequest -> Bool
(LeaseGrantRequest -> LeaseGrantRequest -> Bool)
-> (LeaseGrantRequest -> LeaseGrantRequest -> Bool)
-> Eq LeaseGrantRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LeaseGrantRequest -> LeaseGrantRequest -> Bool
== :: LeaseGrantRequest -> LeaseGrantRequest -> Bool
$c/= :: LeaseGrantRequest -> LeaseGrantRequest -> Bool
/= :: LeaseGrantRequest -> LeaseGrantRequest -> Bool
Prelude.Eq, Eq LeaseGrantRequest
Eq LeaseGrantRequest =>
(LeaseGrantRequest -> LeaseGrantRequest -> Ordering)
-> (LeaseGrantRequest -> LeaseGrantRequest -> Bool)
-> (LeaseGrantRequest -> LeaseGrantRequest -> Bool)
-> (LeaseGrantRequest -> LeaseGrantRequest -> Bool)
-> (LeaseGrantRequest -> LeaseGrantRequest -> Bool)
-> (LeaseGrantRequest -> LeaseGrantRequest -> LeaseGrantRequest)
-> (LeaseGrantRequest -> LeaseGrantRequest -> LeaseGrantRequest)
-> Ord LeaseGrantRequest
LeaseGrantRequest -> LeaseGrantRequest -> Bool
LeaseGrantRequest -> LeaseGrantRequest -> Ordering
LeaseGrantRequest -> LeaseGrantRequest -> LeaseGrantRequest
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 :: LeaseGrantRequest -> LeaseGrantRequest -> Ordering
compare :: LeaseGrantRequest -> LeaseGrantRequest -> Ordering
$c< :: LeaseGrantRequest -> LeaseGrantRequest -> Bool
< :: LeaseGrantRequest -> LeaseGrantRequest -> Bool
$c<= :: LeaseGrantRequest -> LeaseGrantRequest -> Bool
<= :: LeaseGrantRequest -> LeaseGrantRequest -> Bool
$c> :: LeaseGrantRequest -> LeaseGrantRequest -> Bool
> :: LeaseGrantRequest -> LeaseGrantRequest -> Bool
$c>= :: LeaseGrantRequest -> LeaseGrantRequest -> Bool
>= :: LeaseGrantRequest -> LeaseGrantRequest -> Bool
$cmax :: LeaseGrantRequest -> LeaseGrantRequest -> LeaseGrantRequest
max :: LeaseGrantRequest -> LeaseGrantRequest -> LeaseGrantRequest
$cmin :: LeaseGrantRequest -> LeaseGrantRequest -> LeaseGrantRequest
min :: LeaseGrantRequest -> LeaseGrantRequest -> LeaseGrantRequest
Prelude.Ord)
instance Prelude.Show LeaseGrantRequest where
  showsPrec :: Int -> LeaseGrantRequest -> ShowS
showsPrec Int
_ LeaseGrantRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LeaseGrantRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LeaseGrantRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField LeaseGrantRequest "ttl" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ttl"
-> (Int64 -> f Int64) -> LeaseGrantRequest -> f LeaseGrantRequest
fieldOf Proxy# "ttl"
_
    = ((Int64 -> f Int64) -> LeaseGrantRequest -> f LeaseGrantRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> LeaseGrantRequest
-> f LeaseGrantRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseGrantRequest -> Int64)
-> (LeaseGrantRequest -> Int64 -> LeaseGrantRequest)
-> Lens LeaseGrantRequest LeaseGrantRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseGrantRequest -> Int64
_LeaseGrantRequest'ttl
           (\ LeaseGrantRequest
x__ Int64
y__ -> LeaseGrantRequest
x__ {_LeaseGrantRequest'ttl = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField LeaseGrantRequest "id" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id"
-> (Int64 -> f Int64) -> LeaseGrantRequest -> f LeaseGrantRequest
fieldOf Proxy# "id"
_
    = ((Int64 -> f Int64) -> LeaseGrantRequest -> f LeaseGrantRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> LeaseGrantRequest
-> f LeaseGrantRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseGrantRequest -> Int64)
-> (LeaseGrantRequest -> Int64 -> LeaseGrantRequest)
-> Lens LeaseGrantRequest LeaseGrantRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseGrantRequest -> Int64
_LeaseGrantRequest'id
           (\ LeaseGrantRequest
x__ Int64
y__ -> LeaseGrantRequest
x__ {_LeaseGrantRequest'id = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message LeaseGrantRequest where
  messageName :: Proxy LeaseGrantRequest -> Text
messageName Proxy LeaseGrantRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.LeaseGrantRequest"
  packedMessageDescriptor :: Proxy LeaseGrantRequest -> ByteString
packedMessageDescriptor Proxy LeaseGrantRequest
_
    = ByteString
"\n\
      \\DC1LeaseGrantRequest\DC2\DLE\n\
      \\ETXTTL\CAN\SOH \SOH(\ETXR\ETXTTL\DC2\SO\n\
      \\STXID\CAN\STX \SOH(\ETXR\STXID:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy LeaseGrantRequest -> ByteString
packedFileDescriptor Proxy LeaseGrantRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LeaseGrantRequest)
fieldsByTag
    = let
        ttl__field_descriptor :: FieldDescriptor LeaseGrantRequest
ttl__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor LeaseGrantRequest Int64
-> FieldDescriptor LeaseGrantRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"TTL"
              (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 LeaseGrantRequest LeaseGrantRequest Int64 Int64
-> FieldAccessor LeaseGrantRequest 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 @"ttl")) ::
              Data.ProtoLens.FieldDescriptor LeaseGrantRequest
        id__field_descriptor :: FieldDescriptor LeaseGrantRequest
id__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor LeaseGrantRequest Int64
-> FieldDescriptor LeaseGrantRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ID"
              (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 LeaseGrantRequest LeaseGrantRequest Int64 Int64
-> FieldAccessor LeaseGrantRequest 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 @"id")) ::
              Data.ProtoLens.FieldDescriptor LeaseGrantRequest
      in
        [(Tag, FieldDescriptor LeaseGrantRequest)]
-> Map Tag (FieldDescriptor LeaseGrantRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor LeaseGrantRequest
ttl__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor LeaseGrantRequest
id__field_descriptor)]
  unknownFields :: Lens' LeaseGrantRequest FieldSet
unknownFields
    = (LeaseGrantRequest -> FieldSet)
-> (LeaseGrantRequest -> FieldSet -> LeaseGrantRequest)
-> Lens' LeaseGrantRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LeaseGrantRequest -> FieldSet
_LeaseGrantRequest'_unknownFields
        (\ LeaseGrantRequest
x__ FieldSet
y__ -> LeaseGrantRequest
x__ {_LeaseGrantRequest'_unknownFields = y__})
  defMessage :: LeaseGrantRequest
defMessage
    = LeaseGrantRequest'_constructor
        {_LeaseGrantRequest'ttl :: Int64
_LeaseGrantRequest'ttl = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseGrantRequest'id :: Int64
_LeaseGrantRequest'id = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseGrantRequest'_unknownFields :: FieldSet
_LeaseGrantRequest'_unknownFields = []}
  parseMessage :: Parser LeaseGrantRequest
parseMessage
    = let
        loop ::
          LeaseGrantRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser LeaseGrantRequest
        loop :: LeaseGrantRequest -> Parser LeaseGrantRequest
loop LeaseGrantRequest
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 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
"TTL"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ttl") 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
"ID"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") 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 LeaseGrantRequest -> String -> Parser LeaseGrantRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do LeaseGrantRequest -> Parser LeaseGrantRequest
loop LeaseGrantRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"LeaseGrantRequest"
  buildMessage :: LeaseGrantRequest -> Builder
buildMessage
    = \ LeaseGrantRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Int64
_v = FoldLike Int64 LeaseGrantRequest LeaseGrantRequest Int64 Int64
-> LeaseGrantRequest -> 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 @"ttl") LeaseGrantRequest
_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
8)
                      ((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 LeaseGrantRequest LeaseGrantRequest Int64 Int64
-> LeaseGrantRequest -> 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 @"id") LeaseGrantRequest
_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))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet LeaseGrantRequest LeaseGrantRequest FieldSet FieldSet
-> LeaseGrantRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet LeaseGrantRequest LeaseGrantRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LeaseGrantRequest FieldSet
Data.ProtoLens.unknownFields LeaseGrantRequest
_x)))
instance Control.DeepSeq.NFData LeaseGrantRequest where
  rnf :: LeaseGrantRequest -> ()
rnf
    = \ LeaseGrantRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LeaseGrantRequest -> FieldSet
_LeaseGrantRequest'_unknownFields LeaseGrantRequest
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (LeaseGrantRequest -> Int64
_LeaseGrantRequest'ttl LeaseGrantRequest
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (LeaseGrantRequest -> Int64
_LeaseGrantRequest'id LeaseGrantRequest
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' LeaseGrantResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' LeaseGrantResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseGrantResponse Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.ttl' @:: Lens' LeaseGrantResponse Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.error' @:: Lens' LeaseGrantResponse Data.Text.Text@ -}
data LeaseGrantResponse
  = LeaseGrantResponse'_constructor {LeaseGrantResponse -> Maybe ResponseHeader
_LeaseGrantResponse'header :: !(Prelude.Maybe ResponseHeader),
                                     LeaseGrantResponse -> Int64
_LeaseGrantResponse'id :: !Data.Int.Int64,
                                     LeaseGrantResponse -> Int64
_LeaseGrantResponse'ttl :: !Data.Int.Int64,
                                     LeaseGrantResponse -> Text
_LeaseGrantResponse'error :: !Data.Text.Text,
                                     LeaseGrantResponse -> FieldSet
_LeaseGrantResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LeaseGrantResponse -> LeaseGrantResponse -> Bool
(LeaseGrantResponse -> LeaseGrantResponse -> Bool)
-> (LeaseGrantResponse -> LeaseGrantResponse -> Bool)
-> Eq LeaseGrantResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LeaseGrantResponse -> LeaseGrantResponse -> Bool
== :: LeaseGrantResponse -> LeaseGrantResponse -> Bool
$c/= :: LeaseGrantResponse -> LeaseGrantResponse -> Bool
/= :: LeaseGrantResponse -> LeaseGrantResponse -> Bool
Prelude.Eq, Eq LeaseGrantResponse
Eq LeaseGrantResponse =>
(LeaseGrantResponse -> LeaseGrantResponse -> Ordering)
-> (LeaseGrantResponse -> LeaseGrantResponse -> Bool)
-> (LeaseGrantResponse -> LeaseGrantResponse -> Bool)
-> (LeaseGrantResponse -> LeaseGrantResponse -> Bool)
-> (LeaseGrantResponse -> LeaseGrantResponse -> Bool)
-> (LeaseGrantResponse -> LeaseGrantResponse -> LeaseGrantResponse)
-> (LeaseGrantResponse -> LeaseGrantResponse -> LeaseGrantResponse)
-> Ord LeaseGrantResponse
LeaseGrantResponse -> LeaseGrantResponse -> Bool
LeaseGrantResponse -> LeaseGrantResponse -> Ordering
LeaseGrantResponse -> LeaseGrantResponse -> LeaseGrantResponse
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 :: LeaseGrantResponse -> LeaseGrantResponse -> Ordering
compare :: LeaseGrantResponse -> LeaseGrantResponse -> Ordering
$c< :: LeaseGrantResponse -> LeaseGrantResponse -> Bool
< :: LeaseGrantResponse -> LeaseGrantResponse -> Bool
$c<= :: LeaseGrantResponse -> LeaseGrantResponse -> Bool
<= :: LeaseGrantResponse -> LeaseGrantResponse -> Bool
$c> :: LeaseGrantResponse -> LeaseGrantResponse -> Bool
> :: LeaseGrantResponse -> LeaseGrantResponse -> Bool
$c>= :: LeaseGrantResponse -> LeaseGrantResponse -> Bool
>= :: LeaseGrantResponse -> LeaseGrantResponse -> Bool
$cmax :: LeaseGrantResponse -> LeaseGrantResponse -> LeaseGrantResponse
max :: LeaseGrantResponse -> LeaseGrantResponse -> LeaseGrantResponse
$cmin :: LeaseGrantResponse -> LeaseGrantResponse -> LeaseGrantResponse
min :: LeaseGrantResponse -> LeaseGrantResponse -> LeaseGrantResponse
Prelude.Ord)
instance Prelude.Show LeaseGrantResponse where
  showsPrec :: Int -> LeaseGrantResponse -> ShowS
showsPrec Int
_ LeaseGrantResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LeaseGrantResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LeaseGrantResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField LeaseGrantResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> LeaseGrantResponse
-> f LeaseGrantResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> LeaseGrantResponse -> f LeaseGrantResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> LeaseGrantResponse
-> f LeaseGrantResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseGrantResponse -> Maybe ResponseHeader)
-> (LeaseGrantResponse
    -> Maybe ResponseHeader -> LeaseGrantResponse)
-> Lens
     LeaseGrantResponse
     LeaseGrantResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseGrantResponse -> Maybe ResponseHeader
_LeaseGrantResponse'header
           (\ LeaseGrantResponse
x__ Maybe ResponseHeader
y__ -> LeaseGrantResponse
x__ {_LeaseGrantResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField LeaseGrantResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> LeaseGrantResponse
-> f LeaseGrantResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> LeaseGrantResponse -> f LeaseGrantResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> LeaseGrantResponse
-> f LeaseGrantResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseGrantResponse -> Maybe ResponseHeader)
-> (LeaseGrantResponse
    -> Maybe ResponseHeader -> LeaseGrantResponse)
-> Lens
     LeaseGrantResponse
     LeaseGrantResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseGrantResponse -> Maybe ResponseHeader
_LeaseGrantResponse'header
           (\ LeaseGrantResponse
x__ Maybe ResponseHeader
y__ -> LeaseGrantResponse
x__ {_LeaseGrantResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField LeaseGrantResponse "id" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id"
-> (Int64 -> f Int64) -> LeaseGrantResponse -> f LeaseGrantResponse
fieldOf Proxy# "id"
_
    = ((Int64 -> f Int64) -> LeaseGrantResponse -> f LeaseGrantResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> LeaseGrantResponse
-> f LeaseGrantResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseGrantResponse -> Int64)
-> (LeaseGrantResponse -> Int64 -> LeaseGrantResponse)
-> Lens LeaseGrantResponse LeaseGrantResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseGrantResponse -> Int64
_LeaseGrantResponse'id
           (\ LeaseGrantResponse
x__ Int64
y__ -> LeaseGrantResponse
x__ {_LeaseGrantResponse'id = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField LeaseGrantResponse "ttl" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ttl"
-> (Int64 -> f Int64) -> LeaseGrantResponse -> f LeaseGrantResponse
fieldOf Proxy# "ttl"
_
    = ((Int64 -> f Int64) -> LeaseGrantResponse -> f LeaseGrantResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> LeaseGrantResponse
-> f LeaseGrantResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseGrantResponse -> Int64)
-> (LeaseGrantResponse -> Int64 -> LeaseGrantResponse)
-> Lens LeaseGrantResponse LeaseGrantResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseGrantResponse -> Int64
_LeaseGrantResponse'ttl
           (\ LeaseGrantResponse
x__ Int64
y__ -> LeaseGrantResponse
x__ {_LeaseGrantResponse'ttl = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField LeaseGrantResponse "error" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "error"
-> (Text -> f Text) -> LeaseGrantResponse -> f LeaseGrantResponse
fieldOf Proxy# "error"
_
    = ((Text -> f Text) -> LeaseGrantResponse -> f LeaseGrantResponse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> LeaseGrantResponse
-> f LeaseGrantResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseGrantResponse -> Text)
-> (LeaseGrantResponse -> Text -> LeaseGrantResponse)
-> Lens LeaseGrantResponse LeaseGrantResponse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseGrantResponse -> Text
_LeaseGrantResponse'error
           (\ LeaseGrantResponse
x__ Text
y__ -> LeaseGrantResponse
x__ {_LeaseGrantResponse'error = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message LeaseGrantResponse where
  messageName :: Proxy LeaseGrantResponse -> Text
messageName Proxy LeaseGrantResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.LeaseGrantResponse"
  packedMessageDescriptor :: Proxy LeaseGrantResponse -> ByteString
packedMessageDescriptor Proxy LeaseGrantResponse
_
    = ByteString
"\n\
      \\DC2LeaseGrantResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\SO\n\
      \\STXID\CAN\STX \SOH(\ETXR\STXID\DC2\DLE\n\
      \\ETXTTL\CAN\ETX \SOH(\ETXR\ETXTTL\DC2\DC4\n\
      \\ENQerror\CAN\EOT \SOH(\tR\ENQerror:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy LeaseGrantResponse -> ByteString
packedFileDescriptor Proxy LeaseGrantResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LeaseGrantResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor LeaseGrantResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor LeaseGrantResponse ResponseHeader
-> FieldDescriptor LeaseGrantResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  LeaseGrantResponse
  LeaseGrantResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor LeaseGrantResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor LeaseGrantResponse
        id__field_descriptor :: FieldDescriptor LeaseGrantResponse
id__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor LeaseGrantResponse Int64
-> FieldDescriptor LeaseGrantResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ID"
              (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 LeaseGrantResponse LeaseGrantResponse Int64 Int64
-> FieldAccessor LeaseGrantResponse 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 @"id")) ::
              Data.ProtoLens.FieldDescriptor LeaseGrantResponse
        ttl__field_descriptor :: FieldDescriptor LeaseGrantResponse
ttl__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor LeaseGrantResponse Int64
-> FieldDescriptor LeaseGrantResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"TTL"
              (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 LeaseGrantResponse LeaseGrantResponse Int64 Int64
-> FieldAccessor LeaseGrantResponse 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 @"ttl")) ::
              Data.ProtoLens.FieldDescriptor LeaseGrantResponse
        error__field_descriptor :: FieldDescriptor LeaseGrantResponse
error__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor LeaseGrantResponse Text
-> FieldDescriptor LeaseGrantResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"error"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens LeaseGrantResponse LeaseGrantResponse Text Text
-> FieldAccessor LeaseGrantResponse Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"error")) ::
              Data.ProtoLens.FieldDescriptor LeaseGrantResponse
      in
        [(Tag, FieldDescriptor LeaseGrantResponse)]
-> Map Tag (FieldDescriptor LeaseGrantResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor LeaseGrantResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor LeaseGrantResponse
id__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor LeaseGrantResponse
ttl__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor LeaseGrantResponse
error__field_descriptor)]
  unknownFields :: Lens' LeaseGrantResponse FieldSet
unknownFields
    = (LeaseGrantResponse -> FieldSet)
-> (LeaseGrantResponse -> FieldSet -> LeaseGrantResponse)
-> Lens' LeaseGrantResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LeaseGrantResponse -> FieldSet
_LeaseGrantResponse'_unknownFields
        (\ LeaseGrantResponse
x__ FieldSet
y__ -> LeaseGrantResponse
x__ {_LeaseGrantResponse'_unknownFields = y__})
  defMessage :: LeaseGrantResponse
defMessage
    = LeaseGrantResponse'_constructor
        {_LeaseGrantResponse'header :: Maybe ResponseHeader
_LeaseGrantResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _LeaseGrantResponse'id :: Int64
_LeaseGrantResponse'id = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseGrantResponse'ttl :: Int64
_LeaseGrantResponse'ttl = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseGrantResponse'error :: Text
_LeaseGrantResponse'error = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseGrantResponse'_unknownFields :: FieldSet
_LeaseGrantResponse'_unknownFields = []}
  parseMessage :: Parser LeaseGrantResponse
parseMessage
    = let
        loop ::
          LeaseGrantResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser LeaseGrantResponse
        loop :: LeaseGrantResponse -> Parser LeaseGrantResponse
loop LeaseGrantResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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
"ID"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") 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
"TTL"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ttl") y x)
                        Word64
34
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"error"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"error") 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 LeaseGrantResponse -> String -> Parser LeaseGrantResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do LeaseGrantResponse -> Parser LeaseGrantResponse
loop LeaseGrantResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"LeaseGrantResponse"
  buildMessage :: LeaseGrantResponse -> Builder
buildMessage
    = \ LeaseGrantResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  LeaseGrantResponse
  LeaseGrantResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> LeaseGrantResponse -> Maybe ResponseHeader
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'header") LeaseGrantResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: Int64
_v = FoldLike Int64 LeaseGrantResponse LeaseGrantResponse Int64 Int64
-> LeaseGrantResponse -> 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 @"id") LeaseGrantResponse
_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 LeaseGrantResponse LeaseGrantResponse Int64 Int64
-> LeaseGrantResponse -> 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 @"ttl") LeaseGrantResponse
_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 :: Text
_v = FoldLike Text LeaseGrantResponse LeaseGrantResponse Text Text
-> LeaseGrantResponse -> Text
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 @"error") LeaseGrantResponse
_x
                       in
                         if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
34)
                               ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                                  Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike
  FieldSet LeaseGrantResponse LeaseGrantResponse FieldSet FieldSet
-> LeaseGrantResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet LeaseGrantResponse LeaseGrantResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LeaseGrantResponse FieldSet
Data.ProtoLens.unknownFields LeaseGrantResponse
_x)))))
instance Control.DeepSeq.NFData LeaseGrantResponse where
  rnf :: LeaseGrantResponse -> ()
rnf
    = \ LeaseGrantResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LeaseGrantResponse -> FieldSet
_LeaseGrantResponse'_unknownFields LeaseGrantResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (LeaseGrantResponse -> Maybe ResponseHeader
_LeaseGrantResponse'header LeaseGrantResponse
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (LeaseGrantResponse -> Int64
_LeaseGrantResponse'id LeaseGrantResponse
x__)
                   (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (LeaseGrantResponse -> Int64
_LeaseGrantResponse'ttl LeaseGrantResponse
x__)
                      (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (LeaseGrantResponse -> Text
_LeaseGrantResponse'error LeaseGrantResponse
x__) ()))))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseKeepAliveRequest Data.Int.Int64@ -}
data LeaseKeepAliveRequest
  = LeaseKeepAliveRequest'_constructor {LeaseKeepAliveRequest -> Int64
_LeaseKeepAliveRequest'id :: !Data.Int.Int64,
                                        LeaseKeepAliveRequest -> FieldSet
_LeaseKeepAliveRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool
(LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool)
-> (LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool)
-> Eq LeaseKeepAliveRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool
== :: LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool
$c/= :: LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool
/= :: LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool
Prelude.Eq, Eq LeaseKeepAliveRequest
Eq LeaseKeepAliveRequest =>
(LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Ordering)
-> (LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool)
-> (LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool)
-> (LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool)
-> (LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool)
-> (LeaseKeepAliveRequest
    -> LeaseKeepAliveRequest -> LeaseKeepAliveRequest)
-> (LeaseKeepAliveRequest
    -> LeaseKeepAliveRequest -> LeaseKeepAliveRequest)
-> Ord LeaseKeepAliveRequest
LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool
LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Ordering
LeaseKeepAliveRequest
-> LeaseKeepAliveRequest -> LeaseKeepAliveRequest
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 :: LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Ordering
compare :: LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Ordering
$c< :: LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool
< :: LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool
$c<= :: LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool
<= :: LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool
$c> :: LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool
> :: LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool
$c>= :: LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool
>= :: LeaseKeepAliveRequest -> LeaseKeepAliveRequest -> Bool
$cmax :: LeaseKeepAliveRequest
-> LeaseKeepAliveRequest -> LeaseKeepAliveRequest
max :: LeaseKeepAliveRequest
-> LeaseKeepAliveRequest -> LeaseKeepAliveRequest
$cmin :: LeaseKeepAliveRequest
-> LeaseKeepAliveRequest -> LeaseKeepAliveRequest
min :: LeaseKeepAliveRequest
-> LeaseKeepAliveRequest -> LeaseKeepAliveRequest
Prelude.Ord)
instance Prelude.Show LeaseKeepAliveRequest where
  showsPrec :: Int -> LeaseKeepAliveRequest -> ShowS
showsPrec Int
_ LeaseKeepAliveRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LeaseKeepAliveRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LeaseKeepAliveRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField LeaseKeepAliveRequest "id" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id"
-> (Int64 -> f Int64)
-> LeaseKeepAliveRequest
-> f LeaseKeepAliveRequest
fieldOf Proxy# "id"
_
    = ((Int64 -> f Int64)
 -> LeaseKeepAliveRequest -> f LeaseKeepAliveRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> LeaseKeepAliveRequest
-> f LeaseKeepAliveRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseKeepAliveRequest -> Int64)
-> (LeaseKeepAliveRequest -> Int64 -> LeaseKeepAliveRequest)
-> Lens LeaseKeepAliveRequest LeaseKeepAliveRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseKeepAliveRequest -> Int64
_LeaseKeepAliveRequest'id
           (\ LeaseKeepAliveRequest
x__ Int64
y__ -> LeaseKeepAliveRequest
x__ {_LeaseKeepAliveRequest'id = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message LeaseKeepAliveRequest where
  messageName :: Proxy LeaseKeepAliveRequest -> Text
messageName Proxy LeaseKeepAliveRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.LeaseKeepAliveRequest"
  packedMessageDescriptor :: Proxy LeaseKeepAliveRequest -> ByteString
packedMessageDescriptor Proxy LeaseKeepAliveRequest
_
    = ByteString
"\n\
      \\NAKLeaseKeepAliveRequest\DC2\SO\n\
      \\STXID\CAN\SOH \SOH(\ETXR\STXID:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy LeaseKeepAliveRequest -> ByteString
packedFileDescriptor Proxy LeaseKeepAliveRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LeaseKeepAliveRequest)
fieldsByTag
    = let
        id__field_descriptor :: FieldDescriptor LeaseKeepAliveRequest
id__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor LeaseKeepAliveRequest Int64
-> FieldDescriptor LeaseKeepAliveRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ID"
              (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 LeaseKeepAliveRequest LeaseKeepAliveRequest Int64 Int64
-> FieldAccessor LeaseKeepAliveRequest 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 @"id")) ::
              Data.ProtoLens.FieldDescriptor LeaseKeepAliveRequest
      in [(Tag, FieldDescriptor LeaseKeepAliveRequest)]
-> Map Tag (FieldDescriptor LeaseKeepAliveRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor LeaseKeepAliveRequest
id__field_descriptor)]
  unknownFields :: Lens' LeaseKeepAliveRequest FieldSet
unknownFields
    = (LeaseKeepAliveRequest -> FieldSet)
-> (LeaseKeepAliveRequest -> FieldSet -> LeaseKeepAliveRequest)
-> Lens' LeaseKeepAliveRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LeaseKeepAliveRequest -> FieldSet
_LeaseKeepAliveRequest'_unknownFields
        (\ LeaseKeepAliveRequest
x__ FieldSet
y__ -> LeaseKeepAliveRequest
x__ {_LeaseKeepAliveRequest'_unknownFields = y__})
  defMessage :: LeaseKeepAliveRequest
defMessage
    = LeaseKeepAliveRequest'_constructor
        {_LeaseKeepAliveRequest'id :: Int64
_LeaseKeepAliveRequest'id = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseKeepAliveRequest'_unknownFields :: FieldSet
_LeaseKeepAliveRequest'_unknownFields = []}
  parseMessage :: Parser LeaseKeepAliveRequest
parseMessage
    = let
        loop ::
          LeaseKeepAliveRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser LeaseKeepAliveRequest
        loop :: LeaseKeepAliveRequest -> Parser LeaseKeepAliveRequest
loop LeaseKeepAliveRequest
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 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
"ID"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") 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 LeaseKeepAliveRequest
-> String -> Parser LeaseKeepAliveRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do LeaseKeepAliveRequest -> Parser LeaseKeepAliveRequest
loop LeaseKeepAliveRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"LeaseKeepAliveRequest"
  buildMessage :: LeaseKeepAliveRequest -> Builder
buildMessage
    = \ LeaseKeepAliveRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Int64
_v = FoldLike
  Int64 LeaseKeepAliveRequest LeaseKeepAliveRequest Int64 Int64
-> LeaseKeepAliveRequest -> 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 @"id") LeaseKeepAliveRequest
_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
8)
                      ((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
  LeaseKeepAliveRequest
  LeaseKeepAliveRequest
  FieldSet
  FieldSet
-> LeaseKeepAliveRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  LeaseKeepAliveRequest
  LeaseKeepAliveRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LeaseKeepAliveRequest FieldSet
Data.ProtoLens.unknownFields LeaseKeepAliveRequest
_x))
instance Control.DeepSeq.NFData LeaseKeepAliveRequest where
  rnf :: LeaseKeepAliveRequest -> ()
rnf
    = \ LeaseKeepAliveRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LeaseKeepAliveRequest -> FieldSet
_LeaseKeepAliveRequest'_unknownFields LeaseKeepAliveRequest
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (LeaseKeepAliveRequest -> Int64
_LeaseKeepAliveRequest'id LeaseKeepAliveRequest
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' LeaseKeepAliveResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' LeaseKeepAliveResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseKeepAliveResponse Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.ttl' @:: Lens' LeaseKeepAliveResponse Data.Int.Int64@ -}
data LeaseKeepAliveResponse
  = LeaseKeepAliveResponse'_constructor {LeaseKeepAliveResponse -> Maybe ResponseHeader
_LeaseKeepAliveResponse'header :: !(Prelude.Maybe ResponseHeader),
                                         LeaseKeepAliveResponse -> Int64
_LeaseKeepAliveResponse'id :: !Data.Int.Int64,
                                         LeaseKeepAliveResponse -> Int64
_LeaseKeepAliveResponse'ttl :: !Data.Int.Int64,
                                         LeaseKeepAliveResponse -> FieldSet
_LeaseKeepAliveResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool
(LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool)
-> (LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool)
-> Eq LeaseKeepAliveResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool
== :: LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool
$c/= :: LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool
/= :: LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool
Prelude.Eq, Eq LeaseKeepAliveResponse
Eq LeaseKeepAliveResponse =>
(LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Ordering)
-> (LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool)
-> (LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool)
-> (LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool)
-> (LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool)
-> (LeaseKeepAliveResponse
    -> LeaseKeepAliveResponse -> LeaseKeepAliveResponse)
-> (LeaseKeepAliveResponse
    -> LeaseKeepAliveResponse -> LeaseKeepAliveResponse)
-> Ord LeaseKeepAliveResponse
LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool
LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Ordering
LeaseKeepAliveResponse
-> LeaseKeepAliveResponse -> LeaseKeepAliveResponse
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 :: LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Ordering
compare :: LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Ordering
$c< :: LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool
< :: LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool
$c<= :: LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool
<= :: LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool
$c> :: LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool
> :: LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool
$c>= :: LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool
>= :: LeaseKeepAliveResponse -> LeaseKeepAliveResponse -> Bool
$cmax :: LeaseKeepAliveResponse
-> LeaseKeepAliveResponse -> LeaseKeepAliveResponse
max :: LeaseKeepAliveResponse
-> LeaseKeepAliveResponse -> LeaseKeepAliveResponse
$cmin :: LeaseKeepAliveResponse
-> LeaseKeepAliveResponse -> LeaseKeepAliveResponse
min :: LeaseKeepAliveResponse
-> LeaseKeepAliveResponse -> LeaseKeepAliveResponse
Prelude.Ord)
instance Prelude.Show LeaseKeepAliveResponse where
  showsPrec :: Int -> LeaseKeepAliveResponse -> ShowS
showsPrec Int
_ LeaseKeepAliveResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LeaseKeepAliveResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LeaseKeepAliveResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField LeaseKeepAliveResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> LeaseKeepAliveResponse
-> f LeaseKeepAliveResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> LeaseKeepAliveResponse -> f LeaseKeepAliveResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> LeaseKeepAliveResponse
-> f LeaseKeepAliveResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseKeepAliveResponse -> Maybe ResponseHeader)
-> (LeaseKeepAliveResponse
    -> Maybe ResponseHeader -> LeaseKeepAliveResponse)
-> Lens
     LeaseKeepAliveResponse
     LeaseKeepAliveResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseKeepAliveResponse -> Maybe ResponseHeader
_LeaseKeepAliveResponse'header
           (\ LeaseKeepAliveResponse
x__ Maybe ResponseHeader
y__ -> LeaseKeepAliveResponse
x__ {_LeaseKeepAliveResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField LeaseKeepAliveResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> LeaseKeepAliveResponse
-> f LeaseKeepAliveResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> LeaseKeepAliveResponse -> f LeaseKeepAliveResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> LeaseKeepAliveResponse
-> f LeaseKeepAliveResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseKeepAliveResponse -> Maybe ResponseHeader)
-> (LeaseKeepAliveResponse
    -> Maybe ResponseHeader -> LeaseKeepAliveResponse)
-> Lens
     LeaseKeepAliveResponse
     LeaseKeepAliveResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseKeepAliveResponse -> Maybe ResponseHeader
_LeaseKeepAliveResponse'header
           (\ LeaseKeepAliveResponse
x__ Maybe ResponseHeader
y__ -> LeaseKeepAliveResponse
x__ {_LeaseKeepAliveResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField LeaseKeepAliveResponse "id" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id"
-> (Int64 -> f Int64)
-> LeaseKeepAliveResponse
-> f LeaseKeepAliveResponse
fieldOf Proxy# "id"
_
    = ((Int64 -> f Int64)
 -> LeaseKeepAliveResponse -> f LeaseKeepAliveResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> LeaseKeepAliveResponse
-> f LeaseKeepAliveResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseKeepAliveResponse -> Int64)
-> (LeaseKeepAliveResponse -> Int64 -> LeaseKeepAliveResponse)
-> Lens LeaseKeepAliveResponse LeaseKeepAliveResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseKeepAliveResponse -> Int64
_LeaseKeepAliveResponse'id
           (\ LeaseKeepAliveResponse
x__ Int64
y__ -> LeaseKeepAliveResponse
x__ {_LeaseKeepAliveResponse'id = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField LeaseKeepAliveResponse "ttl" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ttl"
-> (Int64 -> f Int64)
-> LeaseKeepAliveResponse
-> f LeaseKeepAliveResponse
fieldOf Proxy# "ttl"
_
    = ((Int64 -> f Int64)
 -> LeaseKeepAliveResponse -> f LeaseKeepAliveResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> LeaseKeepAliveResponse
-> f LeaseKeepAliveResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseKeepAliveResponse -> Int64)
-> (LeaseKeepAliveResponse -> Int64 -> LeaseKeepAliveResponse)
-> Lens LeaseKeepAliveResponse LeaseKeepAliveResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseKeepAliveResponse -> Int64
_LeaseKeepAliveResponse'ttl
           (\ LeaseKeepAliveResponse
x__ Int64
y__ -> LeaseKeepAliveResponse
x__ {_LeaseKeepAliveResponse'ttl = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message LeaseKeepAliveResponse where
  messageName :: Proxy LeaseKeepAliveResponse -> Text
messageName Proxy LeaseKeepAliveResponse
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.LeaseKeepAliveResponse"
  packedMessageDescriptor :: Proxy LeaseKeepAliveResponse -> ByteString
packedMessageDescriptor Proxy LeaseKeepAliveResponse
_
    = ByteString
"\n\
      \\SYNLeaseKeepAliveResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\SO\n\
      \\STXID\CAN\STX \SOH(\ETXR\STXID\DC2\DLE\n\
      \\ETXTTL\CAN\ETX \SOH(\ETXR\ETXTTL:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy LeaseKeepAliveResponse -> ByteString
packedFileDescriptor Proxy LeaseKeepAliveResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LeaseKeepAliveResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor LeaseKeepAliveResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor LeaseKeepAliveResponse ResponseHeader
-> FieldDescriptor LeaseKeepAliveResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  LeaseKeepAliveResponse
  LeaseKeepAliveResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor LeaseKeepAliveResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor LeaseKeepAliveResponse
        id__field_descriptor :: FieldDescriptor LeaseKeepAliveResponse
id__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor LeaseKeepAliveResponse Int64
-> FieldDescriptor LeaseKeepAliveResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ID"
              (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 LeaseKeepAliveResponse LeaseKeepAliveResponse Int64 Int64
-> FieldAccessor LeaseKeepAliveResponse 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 @"id")) ::
              Data.ProtoLens.FieldDescriptor LeaseKeepAliveResponse
        ttl__field_descriptor :: FieldDescriptor LeaseKeepAliveResponse
ttl__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor LeaseKeepAliveResponse Int64
-> FieldDescriptor LeaseKeepAliveResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"TTL"
              (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 LeaseKeepAliveResponse LeaseKeepAliveResponse Int64 Int64
-> FieldAccessor LeaseKeepAliveResponse 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 @"ttl")) ::
              Data.ProtoLens.FieldDescriptor LeaseKeepAliveResponse
      in
        [(Tag, FieldDescriptor LeaseKeepAliveResponse)]
-> Map Tag (FieldDescriptor LeaseKeepAliveResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor LeaseKeepAliveResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor LeaseKeepAliveResponse
id__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor LeaseKeepAliveResponse
ttl__field_descriptor)]
  unknownFields :: Lens' LeaseKeepAliveResponse FieldSet
unknownFields
    = (LeaseKeepAliveResponse -> FieldSet)
-> (LeaseKeepAliveResponse -> FieldSet -> LeaseKeepAliveResponse)
-> Lens' LeaseKeepAliveResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LeaseKeepAliveResponse -> FieldSet
_LeaseKeepAliveResponse'_unknownFields
        (\ LeaseKeepAliveResponse
x__ FieldSet
y__ -> LeaseKeepAliveResponse
x__ {_LeaseKeepAliveResponse'_unknownFields = y__})
  defMessage :: LeaseKeepAliveResponse
defMessage
    = LeaseKeepAliveResponse'_constructor
        {_LeaseKeepAliveResponse'header :: Maybe ResponseHeader
_LeaseKeepAliveResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _LeaseKeepAliveResponse'id :: Int64
_LeaseKeepAliveResponse'id = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseKeepAliveResponse'ttl :: Int64
_LeaseKeepAliveResponse'ttl = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseKeepAliveResponse'_unknownFields :: FieldSet
_LeaseKeepAliveResponse'_unknownFields = []}
  parseMessage :: Parser LeaseKeepAliveResponse
parseMessage
    = let
        loop ::
          LeaseKeepAliveResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser LeaseKeepAliveResponse
        loop :: LeaseKeepAliveResponse -> Parser LeaseKeepAliveResponse
loop LeaseKeepAliveResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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
"ID"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") 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
"TTL"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"ttl") 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 LeaseKeepAliveResponse
-> String -> Parser LeaseKeepAliveResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do LeaseKeepAliveResponse -> Parser LeaseKeepAliveResponse
loop LeaseKeepAliveResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"LeaseKeepAliveResponse"
  buildMessage :: LeaseKeepAliveResponse -> Builder
buildMessage
    = \ LeaseKeepAliveResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  LeaseKeepAliveResponse
  LeaseKeepAliveResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> LeaseKeepAliveResponse -> Maybe ResponseHeader
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'header") LeaseKeepAliveResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: Int64
_v = FoldLike
  Int64 LeaseKeepAliveResponse LeaseKeepAliveResponse Int64 Int64
-> LeaseKeepAliveResponse -> 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 @"id") LeaseKeepAliveResponse
_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 LeaseKeepAliveResponse LeaseKeepAliveResponse Int64 Int64
-> LeaseKeepAliveResponse -> 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 @"ttl") LeaseKeepAliveResponse
_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))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  LeaseKeepAliveResponse
  LeaseKeepAliveResponse
  FieldSet
  FieldSet
-> LeaseKeepAliveResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  LeaseKeepAliveResponse
  LeaseKeepAliveResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LeaseKeepAliveResponse FieldSet
Data.ProtoLens.unknownFields LeaseKeepAliveResponse
_x))))
instance Control.DeepSeq.NFData LeaseKeepAliveResponse where
  rnf :: LeaseKeepAliveResponse -> ()
rnf
    = \ LeaseKeepAliveResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LeaseKeepAliveResponse -> FieldSet
_LeaseKeepAliveResponse'_unknownFields LeaseKeepAliveResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (LeaseKeepAliveResponse -> Maybe ResponseHeader
_LeaseKeepAliveResponse'header LeaseKeepAliveResponse
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (LeaseKeepAliveResponse -> Int64
_LeaseKeepAliveResponse'id LeaseKeepAliveResponse
x__)
                   (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (LeaseKeepAliveResponse -> Int64
_LeaseKeepAliveResponse'ttl LeaseKeepAliveResponse
x__) ())))
{- | Fields :
      -}
data LeaseLeasesRequest
  = LeaseLeasesRequest'_constructor {LeaseLeasesRequest -> FieldSet
_LeaseLeasesRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LeaseLeasesRequest -> LeaseLeasesRequest -> Bool
(LeaseLeasesRequest -> LeaseLeasesRequest -> Bool)
-> (LeaseLeasesRequest -> LeaseLeasesRequest -> Bool)
-> Eq LeaseLeasesRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LeaseLeasesRequest -> LeaseLeasesRequest -> Bool
== :: LeaseLeasesRequest -> LeaseLeasesRequest -> Bool
$c/= :: LeaseLeasesRequest -> LeaseLeasesRequest -> Bool
/= :: LeaseLeasesRequest -> LeaseLeasesRequest -> Bool
Prelude.Eq, Eq LeaseLeasesRequest
Eq LeaseLeasesRequest =>
(LeaseLeasesRequest -> LeaseLeasesRequest -> Ordering)
-> (LeaseLeasesRequest -> LeaseLeasesRequest -> Bool)
-> (LeaseLeasesRequest -> LeaseLeasesRequest -> Bool)
-> (LeaseLeasesRequest -> LeaseLeasesRequest -> Bool)
-> (LeaseLeasesRequest -> LeaseLeasesRequest -> Bool)
-> (LeaseLeasesRequest -> LeaseLeasesRequest -> LeaseLeasesRequest)
-> (LeaseLeasesRequest -> LeaseLeasesRequest -> LeaseLeasesRequest)
-> Ord LeaseLeasesRequest
LeaseLeasesRequest -> LeaseLeasesRequest -> Bool
LeaseLeasesRequest -> LeaseLeasesRequest -> Ordering
LeaseLeasesRequest -> LeaseLeasesRequest -> LeaseLeasesRequest
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 :: LeaseLeasesRequest -> LeaseLeasesRequest -> Ordering
compare :: LeaseLeasesRequest -> LeaseLeasesRequest -> Ordering
$c< :: LeaseLeasesRequest -> LeaseLeasesRequest -> Bool
< :: LeaseLeasesRequest -> LeaseLeasesRequest -> Bool
$c<= :: LeaseLeasesRequest -> LeaseLeasesRequest -> Bool
<= :: LeaseLeasesRequest -> LeaseLeasesRequest -> Bool
$c> :: LeaseLeasesRequest -> LeaseLeasesRequest -> Bool
> :: LeaseLeasesRequest -> LeaseLeasesRequest -> Bool
$c>= :: LeaseLeasesRequest -> LeaseLeasesRequest -> Bool
>= :: LeaseLeasesRequest -> LeaseLeasesRequest -> Bool
$cmax :: LeaseLeasesRequest -> LeaseLeasesRequest -> LeaseLeasesRequest
max :: LeaseLeasesRequest -> LeaseLeasesRequest -> LeaseLeasesRequest
$cmin :: LeaseLeasesRequest -> LeaseLeasesRequest -> LeaseLeasesRequest
min :: LeaseLeasesRequest -> LeaseLeasesRequest -> LeaseLeasesRequest
Prelude.Ord)
instance Prelude.Show LeaseLeasesRequest where
  showsPrec :: Int -> LeaseLeasesRequest -> ShowS
showsPrec Int
_ LeaseLeasesRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LeaseLeasesRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LeaseLeasesRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message LeaseLeasesRequest where
  messageName :: Proxy LeaseLeasesRequest -> Text
messageName Proxy LeaseLeasesRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.LeaseLeasesRequest"
  packedMessageDescriptor :: Proxy LeaseLeasesRequest -> ByteString
packedMessageDescriptor Proxy LeaseLeasesRequest
_
    = ByteString
"\n\
      \\DC2LeaseLeasesRequest:\a\130\181\CAN\ETX3.3"
  packedFileDescriptor :: Proxy LeaseLeasesRequest -> ByteString
packedFileDescriptor Proxy LeaseLeasesRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LeaseLeasesRequest)
fieldsByTag = let in [(Tag, FieldDescriptor LeaseLeasesRequest)]
-> Map Tag (FieldDescriptor LeaseLeasesRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' LeaseLeasesRequest FieldSet
unknownFields
    = (LeaseLeasesRequest -> FieldSet)
-> (LeaseLeasesRequest -> FieldSet -> LeaseLeasesRequest)
-> Lens' LeaseLeasesRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LeaseLeasesRequest -> FieldSet
_LeaseLeasesRequest'_unknownFields
        (\ LeaseLeasesRequest
x__ FieldSet
y__ -> LeaseLeasesRequest
x__ {_LeaseLeasesRequest'_unknownFields = y__})
  defMessage :: LeaseLeasesRequest
defMessage
    = LeaseLeasesRequest'_constructor
        {_LeaseLeasesRequest'_unknownFields :: FieldSet
_LeaseLeasesRequest'_unknownFields = []}
  parseMessage :: Parser LeaseLeasesRequest
parseMessage
    = let
        loop ::
          LeaseLeasesRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser LeaseLeasesRequest
        loop :: LeaseLeasesRequest -> Parser LeaseLeasesRequest
loop LeaseLeasesRequest
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
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 LeaseLeasesRequest -> String -> Parser LeaseLeasesRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do LeaseLeasesRequest -> Parser LeaseLeasesRequest
loop LeaseLeasesRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"LeaseLeasesRequest"
  buildMessage :: LeaseLeasesRequest -> Builder
buildMessage
    = \ LeaseLeasesRequest
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet LeaseLeasesRequest LeaseLeasesRequest FieldSet FieldSet
-> LeaseLeasesRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet LeaseLeasesRequest LeaseLeasesRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LeaseLeasesRequest FieldSet
Data.ProtoLens.unknownFields LeaseLeasesRequest
_x)
instance Control.DeepSeq.NFData LeaseLeasesRequest where
  rnf :: LeaseLeasesRequest -> ()
rnf
    = \ LeaseLeasesRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LeaseLeasesRequest -> FieldSet
_LeaseLeasesRequest'_unknownFields LeaseLeasesRequest
x__) ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' LeaseLeasesResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' LeaseLeasesResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.leases' @:: Lens' LeaseLeasesResponse [LeaseStatus]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'leases' @:: Lens' LeaseLeasesResponse (Data.Vector.Vector LeaseStatus)@ -}
data LeaseLeasesResponse
  = LeaseLeasesResponse'_constructor {LeaseLeasesResponse -> Maybe ResponseHeader
_LeaseLeasesResponse'header :: !(Prelude.Maybe ResponseHeader),
                                      LeaseLeasesResponse -> Vector LeaseStatus
_LeaseLeasesResponse'leases :: !(Data.Vector.Vector LeaseStatus),
                                      LeaseLeasesResponse -> FieldSet
_LeaseLeasesResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LeaseLeasesResponse -> LeaseLeasesResponse -> Bool
(LeaseLeasesResponse -> LeaseLeasesResponse -> Bool)
-> (LeaseLeasesResponse -> LeaseLeasesResponse -> Bool)
-> Eq LeaseLeasesResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LeaseLeasesResponse -> LeaseLeasesResponse -> Bool
== :: LeaseLeasesResponse -> LeaseLeasesResponse -> Bool
$c/= :: LeaseLeasesResponse -> LeaseLeasesResponse -> Bool
/= :: LeaseLeasesResponse -> LeaseLeasesResponse -> Bool
Prelude.Eq, Eq LeaseLeasesResponse
Eq LeaseLeasesResponse =>
(LeaseLeasesResponse -> LeaseLeasesResponse -> Ordering)
-> (LeaseLeasesResponse -> LeaseLeasesResponse -> Bool)
-> (LeaseLeasesResponse -> LeaseLeasesResponse -> Bool)
-> (LeaseLeasesResponse -> LeaseLeasesResponse -> Bool)
-> (LeaseLeasesResponse -> LeaseLeasesResponse -> Bool)
-> (LeaseLeasesResponse
    -> LeaseLeasesResponse -> LeaseLeasesResponse)
-> (LeaseLeasesResponse
    -> LeaseLeasesResponse -> LeaseLeasesResponse)
-> Ord LeaseLeasesResponse
LeaseLeasesResponse -> LeaseLeasesResponse -> Bool
LeaseLeasesResponse -> LeaseLeasesResponse -> Ordering
LeaseLeasesResponse -> LeaseLeasesResponse -> LeaseLeasesResponse
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 :: LeaseLeasesResponse -> LeaseLeasesResponse -> Ordering
compare :: LeaseLeasesResponse -> LeaseLeasesResponse -> Ordering
$c< :: LeaseLeasesResponse -> LeaseLeasesResponse -> Bool
< :: LeaseLeasesResponse -> LeaseLeasesResponse -> Bool
$c<= :: LeaseLeasesResponse -> LeaseLeasesResponse -> Bool
<= :: LeaseLeasesResponse -> LeaseLeasesResponse -> Bool
$c> :: LeaseLeasesResponse -> LeaseLeasesResponse -> Bool
> :: LeaseLeasesResponse -> LeaseLeasesResponse -> Bool
$c>= :: LeaseLeasesResponse -> LeaseLeasesResponse -> Bool
>= :: LeaseLeasesResponse -> LeaseLeasesResponse -> Bool
$cmax :: LeaseLeasesResponse -> LeaseLeasesResponse -> LeaseLeasesResponse
max :: LeaseLeasesResponse -> LeaseLeasesResponse -> LeaseLeasesResponse
$cmin :: LeaseLeasesResponse -> LeaseLeasesResponse -> LeaseLeasesResponse
min :: LeaseLeasesResponse -> LeaseLeasesResponse -> LeaseLeasesResponse
Prelude.Ord)
instance Prelude.Show LeaseLeasesResponse where
  showsPrec :: Int -> LeaseLeasesResponse -> ShowS
showsPrec Int
_ LeaseLeasesResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LeaseLeasesResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LeaseLeasesResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField LeaseLeasesResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> LeaseLeasesResponse
-> f LeaseLeasesResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> LeaseLeasesResponse -> f LeaseLeasesResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> LeaseLeasesResponse
-> f LeaseLeasesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseLeasesResponse -> Maybe ResponseHeader)
-> (LeaseLeasesResponse
    -> Maybe ResponseHeader -> LeaseLeasesResponse)
-> Lens
     LeaseLeasesResponse
     LeaseLeasesResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseLeasesResponse -> Maybe ResponseHeader
_LeaseLeasesResponse'header
           (\ LeaseLeasesResponse
x__ Maybe ResponseHeader
y__ -> LeaseLeasesResponse
x__ {_LeaseLeasesResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField LeaseLeasesResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> LeaseLeasesResponse
-> f LeaseLeasesResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> LeaseLeasesResponse -> f LeaseLeasesResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> LeaseLeasesResponse
-> f LeaseLeasesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseLeasesResponse -> Maybe ResponseHeader)
-> (LeaseLeasesResponse
    -> Maybe ResponseHeader -> LeaseLeasesResponse)
-> Lens
     LeaseLeasesResponse
     LeaseLeasesResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseLeasesResponse -> Maybe ResponseHeader
_LeaseLeasesResponse'header
           (\ LeaseLeasesResponse
x__ Maybe ResponseHeader
y__ -> LeaseLeasesResponse
x__ {_LeaseLeasesResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField LeaseLeasesResponse "leases" [LeaseStatus] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "leases"
-> ([LeaseStatus] -> f [LeaseStatus])
-> LeaseLeasesResponse
-> f LeaseLeasesResponse
fieldOf Proxy# "leases"
_
    = ((Vector LeaseStatus -> f (Vector LeaseStatus))
 -> LeaseLeasesResponse -> f LeaseLeasesResponse)
-> (([LeaseStatus] -> f [LeaseStatus])
    -> Vector LeaseStatus -> f (Vector LeaseStatus))
-> ([LeaseStatus] -> f [LeaseStatus])
-> LeaseLeasesResponse
-> f LeaseLeasesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseLeasesResponse -> Vector LeaseStatus)
-> (LeaseLeasesResponse
    -> Vector LeaseStatus -> LeaseLeasesResponse)
-> Lens
     LeaseLeasesResponse
     LeaseLeasesResponse
     (Vector LeaseStatus)
     (Vector LeaseStatus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseLeasesResponse -> Vector LeaseStatus
_LeaseLeasesResponse'leases
           (\ LeaseLeasesResponse
x__ Vector LeaseStatus
y__ -> LeaseLeasesResponse
x__ {_LeaseLeasesResponse'leases = y__}))
        ((Vector LeaseStatus -> [LeaseStatus])
-> (Vector LeaseStatus -> [LeaseStatus] -> Vector LeaseStatus)
-> Lens
     (Vector LeaseStatus)
     (Vector LeaseStatus)
     [LeaseStatus]
     [LeaseStatus]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector LeaseStatus -> [LeaseStatus]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector LeaseStatus
_ [LeaseStatus]
y__ -> [LeaseStatus] -> Vector LeaseStatus
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [LeaseStatus]
y__))
instance Data.ProtoLens.Field.HasField LeaseLeasesResponse "vec'leases" (Data.Vector.Vector LeaseStatus) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'leases"
-> (Vector LeaseStatus -> f (Vector LeaseStatus))
-> LeaseLeasesResponse
-> f LeaseLeasesResponse
fieldOf Proxy# "vec'leases"
_
    = ((Vector LeaseStatus -> f (Vector LeaseStatus))
 -> LeaseLeasesResponse -> f LeaseLeasesResponse)
-> ((Vector LeaseStatus -> f (Vector LeaseStatus))
    -> Vector LeaseStatus -> f (Vector LeaseStatus))
-> (Vector LeaseStatus -> f (Vector LeaseStatus))
-> LeaseLeasesResponse
-> f LeaseLeasesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseLeasesResponse -> Vector LeaseStatus)
-> (LeaseLeasesResponse
    -> Vector LeaseStatus -> LeaseLeasesResponse)
-> Lens
     LeaseLeasesResponse
     LeaseLeasesResponse
     (Vector LeaseStatus)
     (Vector LeaseStatus)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseLeasesResponse -> Vector LeaseStatus
_LeaseLeasesResponse'leases
           (\ LeaseLeasesResponse
x__ Vector LeaseStatus
y__ -> LeaseLeasesResponse
x__ {_LeaseLeasesResponse'leases = y__}))
        (Vector LeaseStatus -> f (Vector LeaseStatus))
-> Vector LeaseStatus -> f (Vector LeaseStatus)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message LeaseLeasesResponse where
  messageName :: Proxy LeaseLeasesResponse -> Text
messageName Proxy LeaseLeasesResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.LeaseLeasesResponse"
  packedMessageDescriptor :: Proxy LeaseLeasesResponse -> ByteString
packedMessageDescriptor Proxy LeaseLeasesResponse
_
    = ByteString
"\n\
      \\DC3LeaseLeasesResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC21\n\
      \\ACKleases\CAN\STX \ETX(\v2\EM.etcdserverpb.LeaseStatusR\ACKleases:\a\130\181\CAN\ETX3.3"
  packedFileDescriptor :: Proxy LeaseLeasesResponse -> ByteString
packedFileDescriptor Proxy LeaseLeasesResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LeaseLeasesResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor LeaseLeasesResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor LeaseLeasesResponse ResponseHeader
-> FieldDescriptor LeaseLeasesResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  LeaseLeasesResponse
  LeaseLeasesResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor LeaseLeasesResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor LeaseLeasesResponse
        leases__field_descriptor :: FieldDescriptor LeaseLeasesResponse
leases__field_descriptor
          = String
-> FieldTypeDescriptor LeaseStatus
-> FieldAccessor LeaseLeasesResponse LeaseStatus
-> FieldDescriptor LeaseLeasesResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"leases"
              (MessageOrGroup -> FieldTypeDescriptor LeaseStatus
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor LeaseStatus)
              (Packing
-> Lens' LeaseLeasesResponse [LeaseStatus]
-> FieldAccessor LeaseLeasesResponse LeaseStatus
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"leases")) ::
              Data.ProtoLens.FieldDescriptor LeaseLeasesResponse
      in
        [(Tag, FieldDescriptor LeaseLeasesResponse)]
-> Map Tag (FieldDescriptor LeaseLeasesResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor LeaseLeasesResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor LeaseLeasesResponse
leases__field_descriptor)]
  unknownFields :: Lens' LeaseLeasesResponse FieldSet
unknownFields
    = (LeaseLeasesResponse -> FieldSet)
-> (LeaseLeasesResponse -> FieldSet -> LeaseLeasesResponse)
-> Lens' LeaseLeasesResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LeaseLeasesResponse -> FieldSet
_LeaseLeasesResponse'_unknownFields
        (\ LeaseLeasesResponse
x__ FieldSet
y__ -> LeaseLeasesResponse
x__ {_LeaseLeasesResponse'_unknownFields = y__})
  defMessage :: LeaseLeasesResponse
defMessage
    = LeaseLeasesResponse'_constructor
        {_LeaseLeasesResponse'header :: Maybe ResponseHeader
_LeaseLeasesResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _LeaseLeasesResponse'leases :: Vector LeaseStatus
_LeaseLeasesResponse'leases = Vector LeaseStatus
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _LeaseLeasesResponse'_unknownFields :: FieldSet
_LeaseLeasesResponse'_unknownFields = []}
  parseMessage :: Parser LeaseLeasesResponse
parseMessage
    = let
        loop ::
          LeaseLeasesResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld LeaseStatus
             -> Data.ProtoLens.Encoding.Bytes.Parser LeaseLeasesResponse
        loop :: LeaseLeasesResponse
-> Growing Vector RealWorld LeaseStatus
-> Parser LeaseLeasesResponse
loop LeaseLeasesResponse
x Growing Vector RealWorld LeaseStatus
mutable'leases
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'leases <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            mutable'leases)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'leases") frozen'leases x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'leases
                        Word64
18
                          -> do !y <- Parser LeaseStatus -> String -> Parser LeaseStatus
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
"leases"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'leases y)
                                loop x v
                        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)
                                  mutable'leases
      in
        Parser LeaseLeasesResponse -> String -> Parser LeaseLeasesResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'leases <- IO (Growing Vector RealWorld LeaseStatus)
-> Parser (Growing Vector RealWorld LeaseStatus)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld LeaseStatus)
IO (Growing Vector (PrimState IO) LeaseStatus)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'leases)
          String
"LeaseLeasesResponse"
  buildMessage :: LeaseLeasesResponse -> Builder
buildMessage
    = \ LeaseLeasesResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  LeaseLeasesResponse
  LeaseLeasesResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> LeaseLeasesResponse -> Maybe ResponseHeader
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'header") LeaseLeasesResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((LeaseStatus -> Builder) -> Vector LeaseStatus -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ LeaseStatus
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (LeaseStatus -> ByteString) -> LeaseStatus -> 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))
                              LeaseStatus -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage LeaseStatus
_v))
                   (FoldLike
  (Vector LeaseStatus)
  LeaseLeasesResponse
  LeaseLeasesResponse
  (Vector LeaseStatus)
  (Vector LeaseStatus)
-> LeaseLeasesResponse -> Vector LeaseStatus
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 @"vec'leases") LeaseLeasesResponse
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet LeaseLeasesResponse LeaseLeasesResponse FieldSet FieldSet
-> LeaseLeasesResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet LeaseLeasesResponse LeaseLeasesResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LeaseLeasesResponse FieldSet
Data.ProtoLens.unknownFields LeaseLeasesResponse
_x)))
instance Control.DeepSeq.NFData LeaseLeasesResponse where
  rnf :: LeaseLeasesResponse -> ()
rnf
    = \ LeaseLeasesResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LeaseLeasesResponse -> FieldSet
_LeaseLeasesResponse'_unknownFields LeaseLeasesResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (LeaseLeasesResponse -> Maybe ResponseHeader
_LeaseLeasesResponse'header LeaseLeasesResponse
x__)
                (Vector LeaseStatus -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (LeaseLeasesResponse -> Vector LeaseStatus
_LeaseLeasesResponse'leases LeaseLeasesResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseRevokeRequest Data.Int.Int64@ -}
data LeaseRevokeRequest
  = LeaseRevokeRequest'_constructor {LeaseRevokeRequest -> Int64
_LeaseRevokeRequest'id :: !Data.Int.Int64,
                                     LeaseRevokeRequest -> FieldSet
_LeaseRevokeRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LeaseRevokeRequest -> LeaseRevokeRequest -> Bool
(LeaseRevokeRequest -> LeaseRevokeRequest -> Bool)
-> (LeaseRevokeRequest -> LeaseRevokeRequest -> Bool)
-> Eq LeaseRevokeRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LeaseRevokeRequest -> LeaseRevokeRequest -> Bool
== :: LeaseRevokeRequest -> LeaseRevokeRequest -> Bool
$c/= :: LeaseRevokeRequest -> LeaseRevokeRequest -> Bool
/= :: LeaseRevokeRequest -> LeaseRevokeRequest -> Bool
Prelude.Eq, Eq LeaseRevokeRequest
Eq LeaseRevokeRequest =>
(LeaseRevokeRequest -> LeaseRevokeRequest -> Ordering)
-> (LeaseRevokeRequest -> LeaseRevokeRequest -> Bool)
-> (LeaseRevokeRequest -> LeaseRevokeRequest -> Bool)
-> (LeaseRevokeRequest -> LeaseRevokeRequest -> Bool)
-> (LeaseRevokeRequest -> LeaseRevokeRequest -> Bool)
-> (LeaseRevokeRequest -> LeaseRevokeRequest -> LeaseRevokeRequest)
-> (LeaseRevokeRequest -> LeaseRevokeRequest -> LeaseRevokeRequest)
-> Ord LeaseRevokeRequest
LeaseRevokeRequest -> LeaseRevokeRequest -> Bool
LeaseRevokeRequest -> LeaseRevokeRequest -> Ordering
LeaseRevokeRequest -> LeaseRevokeRequest -> LeaseRevokeRequest
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 :: LeaseRevokeRequest -> LeaseRevokeRequest -> Ordering
compare :: LeaseRevokeRequest -> LeaseRevokeRequest -> Ordering
$c< :: LeaseRevokeRequest -> LeaseRevokeRequest -> Bool
< :: LeaseRevokeRequest -> LeaseRevokeRequest -> Bool
$c<= :: LeaseRevokeRequest -> LeaseRevokeRequest -> Bool
<= :: LeaseRevokeRequest -> LeaseRevokeRequest -> Bool
$c> :: LeaseRevokeRequest -> LeaseRevokeRequest -> Bool
> :: LeaseRevokeRequest -> LeaseRevokeRequest -> Bool
$c>= :: LeaseRevokeRequest -> LeaseRevokeRequest -> Bool
>= :: LeaseRevokeRequest -> LeaseRevokeRequest -> Bool
$cmax :: LeaseRevokeRequest -> LeaseRevokeRequest -> LeaseRevokeRequest
max :: LeaseRevokeRequest -> LeaseRevokeRequest -> LeaseRevokeRequest
$cmin :: LeaseRevokeRequest -> LeaseRevokeRequest -> LeaseRevokeRequest
min :: LeaseRevokeRequest -> LeaseRevokeRequest -> LeaseRevokeRequest
Prelude.Ord)
instance Prelude.Show LeaseRevokeRequest where
  showsPrec :: Int -> LeaseRevokeRequest -> ShowS
showsPrec Int
_ LeaseRevokeRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LeaseRevokeRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LeaseRevokeRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField LeaseRevokeRequest "id" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id"
-> (Int64 -> f Int64) -> LeaseRevokeRequest -> f LeaseRevokeRequest
fieldOf Proxy# "id"
_
    = ((Int64 -> f Int64) -> LeaseRevokeRequest -> f LeaseRevokeRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> LeaseRevokeRequest
-> f LeaseRevokeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseRevokeRequest -> Int64)
-> (LeaseRevokeRequest -> Int64 -> LeaseRevokeRequest)
-> Lens LeaseRevokeRequest LeaseRevokeRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseRevokeRequest -> Int64
_LeaseRevokeRequest'id
           (\ LeaseRevokeRequest
x__ Int64
y__ -> LeaseRevokeRequest
x__ {_LeaseRevokeRequest'id = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message LeaseRevokeRequest where
  messageName :: Proxy LeaseRevokeRequest -> Text
messageName Proxy LeaseRevokeRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.LeaseRevokeRequest"
  packedMessageDescriptor :: Proxy LeaseRevokeRequest -> ByteString
packedMessageDescriptor Proxy LeaseRevokeRequest
_
    = ByteString
"\n\
      \\DC2LeaseRevokeRequest\DC2\SO\n\
      \\STXID\CAN\SOH \SOH(\ETXR\STXID:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy LeaseRevokeRequest -> ByteString
packedFileDescriptor Proxy LeaseRevokeRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LeaseRevokeRequest)
fieldsByTag
    = let
        id__field_descriptor :: FieldDescriptor LeaseRevokeRequest
id__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor LeaseRevokeRequest Int64
-> FieldDescriptor LeaseRevokeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ID"
              (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 LeaseRevokeRequest LeaseRevokeRequest Int64 Int64
-> FieldAccessor LeaseRevokeRequest 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 @"id")) ::
              Data.ProtoLens.FieldDescriptor LeaseRevokeRequest
      in [(Tag, FieldDescriptor LeaseRevokeRequest)]
-> Map Tag (FieldDescriptor LeaseRevokeRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor LeaseRevokeRequest
id__field_descriptor)]
  unknownFields :: Lens' LeaseRevokeRequest FieldSet
unknownFields
    = (LeaseRevokeRequest -> FieldSet)
-> (LeaseRevokeRequest -> FieldSet -> LeaseRevokeRequest)
-> Lens' LeaseRevokeRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LeaseRevokeRequest -> FieldSet
_LeaseRevokeRequest'_unknownFields
        (\ LeaseRevokeRequest
x__ FieldSet
y__ -> LeaseRevokeRequest
x__ {_LeaseRevokeRequest'_unknownFields = y__})
  defMessage :: LeaseRevokeRequest
defMessage
    = LeaseRevokeRequest'_constructor
        {_LeaseRevokeRequest'id :: Int64
_LeaseRevokeRequest'id = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseRevokeRequest'_unknownFields :: FieldSet
_LeaseRevokeRequest'_unknownFields = []}
  parseMessage :: Parser LeaseRevokeRequest
parseMessage
    = let
        loop ::
          LeaseRevokeRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser LeaseRevokeRequest
        loop :: LeaseRevokeRequest -> Parser LeaseRevokeRequest
loop LeaseRevokeRequest
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 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
"ID"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") 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 LeaseRevokeRequest -> String -> Parser LeaseRevokeRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do LeaseRevokeRequest -> Parser LeaseRevokeRequest
loop LeaseRevokeRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"LeaseRevokeRequest"
  buildMessage :: LeaseRevokeRequest -> Builder
buildMessage
    = \ LeaseRevokeRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Int64
_v = FoldLike Int64 LeaseRevokeRequest LeaseRevokeRequest Int64 Int64
-> LeaseRevokeRequest -> 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 @"id") LeaseRevokeRequest
_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
8)
                      ((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 LeaseRevokeRequest LeaseRevokeRequest FieldSet FieldSet
-> LeaseRevokeRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet LeaseRevokeRequest LeaseRevokeRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LeaseRevokeRequest FieldSet
Data.ProtoLens.unknownFields LeaseRevokeRequest
_x))
instance Control.DeepSeq.NFData LeaseRevokeRequest where
  rnf :: LeaseRevokeRequest -> ()
rnf
    = \ LeaseRevokeRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LeaseRevokeRequest -> FieldSet
_LeaseRevokeRequest'_unknownFields LeaseRevokeRequest
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (LeaseRevokeRequest -> Int64
_LeaseRevokeRequest'id LeaseRevokeRequest
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' LeaseRevokeResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' LeaseRevokeResponse (Prelude.Maybe ResponseHeader)@ -}
data LeaseRevokeResponse
  = LeaseRevokeResponse'_constructor {LeaseRevokeResponse -> Maybe ResponseHeader
_LeaseRevokeResponse'header :: !(Prelude.Maybe ResponseHeader),
                                      LeaseRevokeResponse -> FieldSet
_LeaseRevokeResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LeaseRevokeResponse -> LeaseRevokeResponse -> Bool
(LeaseRevokeResponse -> LeaseRevokeResponse -> Bool)
-> (LeaseRevokeResponse -> LeaseRevokeResponse -> Bool)
-> Eq LeaseRevokeResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LeaseRevokeResponse -> LeaseRevokeResponse -> Bool
== :: LeaseRevokeResponse -> LeaseRevokeResponse -> Bool
$c/= :: LeaseRevokeResponse -> LeaseRevokeResponse -> Bool
/= :: LeaseRevokeResponse -> LeaseRevokeResponse -> Bool
Prelude.Eq, Eq LeaseRevokeResponse
Eq LeaseRevokeResponse =>
(LeaseRevokeResponse -> LeaseRevokeResponse -> Ordering)
-> (LeaseRevokeResponse -> LeaseRevokeResponse -> Bool)
-> (LeaseRevokeResponse -> LeaseRevokeResponse -> Bool)
-> (LeaseRevokeResponse -> LeaseRevokeResponse -> Bool)
-> (LeaseRevokeResponse -> LeaseRevokeResponse -> Bool)
-> (LeaseRevokeResponse
    -> LeaseRevokeResponse -> LeaseRevokeResponse)
-> (LeaseRevokeResponse
    -> LeaseRevokeResponse -> LeaseRevokeResponse)
-> Ord LeaseRevokeResponse
LeaseRevokeResponse -> LeaseRevokeResponse -> Bool
LeaseRevokeResponse -> LeaseRevokeResponse -> Ordering
LeaseRevokeResponse -> LeaseRevokeResponse -> LeaseRevokeResponse
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 :: LeaseRevokeResponse -> LeaseRevokeResponse -> Ordering
compare :: LeaseRevokeResponse -> LeaseRevokeResponse -> Ordering
$c< :: LeaseRevokeResponse -> LeaseRevokeResponse -> Bool
< :: LeaseRevokeResponse -> LeaseRevokeResponse -> Bool
$c<= :: LeaseRevokeResponse -> LeaseRevokeResponse -> Bool
<= :: LeaseRevokeResponse -> LeaseRevokeResponse -> Bool
$c> :: LeaseRevokeResponse -> LeaseRevokeResponse -> Bool
> :: LeaseRevokeResponse -> LeaseRevokeResponse -> Bool
$c>= :: LeaseRevokeResponse -> LeaseRevokeResponse -> Bool
>= :: LeaseRevokeResponse -> LeaseRevokeResponse -> Bool
$cmax :: LeaseRevokeResponse -> LeaseRevokeResponse -> LeaseRevokeResponse
max :: LeaseRevokeResponse -> LeaseRevokeResponse -> LeaseRevokeResponse
$cmin :: LeaseRevokeResponse -> LeaseRevokeResponse -> LeaseRevokeResponse
min :: LeaseRevokeResponse -> LeaseRevokeResponse -> LeaseRevokeResponse
Prelude.Ord)
instance Prelude.Show LeaseRevokeResponse where
  showsPrec :: Int -> LeaseRevokeResponse -> ShowS
showsPrec Int
_ LeaseRevokeResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LeaseRevokeResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LeaseRevokeResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField LeaseRevokeResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> LeaseRevokeResponse
-> f LeaseRevokeResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> LeaseRevokeResponse -> f LeaseRevokeResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> LeaseRevokeResponse
-> f LeaseRevokeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseRevokeResponse -> Maybe ResponseHeader)
-> (LeaseRevokeResponse
    -> Maybe ResponseHeader -> LeaseRevokeResponse)
-> Lens
     LeaseRevokeResponse
     LeaseRevokeResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseRevokeResponse -> Maybe ResponseHeader
_LeaseRevokeResponse'header
           (\ LeaseRevokeResponse
x__ Maybe ResponseHeader
y__ -> LeaseRevokeResponse
x__ {_LeaseRevokeResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField LeaseRevokeResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> LeaseRevokeResponse
-> f LeaseRevokeResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> LeaseRevokeResponse -> f LeaseRevokeResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> LeaseRevokeResponse
-> f LeaseRevokeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseRevokeResponse -> Maybe ResponseHeader)
-> (LeaseRevokeResponse
    -> Maybe ResponseHeader -> LeaseRevokeResponse)
-> Lens
     LeaseRevokeResponse
     LeaseRevokeResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseRevokeResponse -> Maybe ResponseHeader
_LeaseRevokeResponse'header
           (\ LeaseRevokeResponse
x__ Maybe ResponseHeader
y__ -> LeaseRevokeResponse
x__ {_LeaseRevokeResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message LeaseRevokeResponse where
  messageName :: Proxy LeaseRevokeResponse -> Text
messageName Proxy LeaseRevokeResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.LeaseRevokeResponse"
  packedMessageDescriptor :: Proxy LeaseRevokeResponse -> ByteString
packedMessageDescriptor Proxy LeaseRevokeResponse
_
    = ByteString
"\n\
      \\DC3LeaseRevokeResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy LeaseRevokeResponse -> ByteString
packedFileDescriptor Proxy LeaseRevokeResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LeaseRevokeResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor LeaseRevokeResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor LeaseRevokeResponse ResponseHeader
-> FieldDescriptor LeaseRevokeResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  LeaseRevokeResponse
  LeaseRevokeResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor LeaseRevokeResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor LeaseRevokeResponse
      in
        [(Tag, FieldDescriptor LeaseRevokeResponse)]
-> Map Tag (FieldDescriptor LeaseRevokeResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor LeaseRevokeResponse
header__field_descriptor)]
  unknownFields :: Lens' LeaseRevokeResponse FieldSet
unknownFields
    = (LeaseRevokeResponse -> FieldSet)
-> (LeaseRevokeResponse -> FieldSet -> LeaseRevokeResponse)
-> Lens' LeaseRevokeResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LeaseRevokeResponse -> FieldSet
_LeaseRevokeResponse'_unknownFields
        (\ LeaseRevokeResponse
x__ FieldSet
y__ -> LeaseRevokeResponse
x__ {_LeaseRevokeResponse'_unknownFields = y__})
  defMessage :: LeaseRevokeResponse
defMessage
    = LeaseRevokeResponse'_constructor
        {_LeaseRevokeResponse'header :: Maybe ResponseHeader
_LeaseRevokeResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _LeaseRevokeResponse'_unknownFields :: FieldSet
_LeaseRevokeResponse'_unknownFields = []}
  parseMessage :: Parser LeaseRevokeResponse
parseMessage
    = let
        loop ::
          LeaseRevokeResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser LeaseRevokeResponse
        loop :: LeaseRevokeResponse -> Parser LeaseRevokeResponse
loop LeaseRevokeResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 LeaseRevokeResponse -> String -> Parser LeaseRevokeResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do LeaseRevokeResponse -> Parser LeaseRevokeResponse
loop LeaseRevokeResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"LeaseRevokeResponse"
  buildMessage :: LeaseRevokeResponse -> Builder
buildMessage
    = \ LeaseRevokeResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  LeaseRevokeResponse
  LeaseRevokeResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> LeaseRevokeResponse -> Maybe ResponseHeader
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'header") LeaseRevokeResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet LeaseRevokeResponse LeaseRevokeResponse FieldSet FieldSet
-> LeaseRevokeResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet LeaseRevokeResponse LeaseRevokeResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LeaseRevokeResponse FieldSet
Data.ProtoLens.unknownFields LeaseRevokeResponse
_x))
instance Control.DeepSeq.NFData LeaseRevokeResponse where
  rnf :: LeaseRevokeResponse -> ()
rnf
    = \ LeaseRevokeResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LeaseRevokeResponse -> FieldSet
_LeaseRevokeResponse'_unknownFields LeaseRevokeResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (LeaseRevokeResponse -> Maybe ResponseHeader
_LeaseRevokeResponse'header LeaseRevokeResponse
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseStatus Data.Int.Int64@ -}
data LeaseStatus
  = LeaseStatus'_constructor {LeaseStatus -> Int64
_LeaseStatus'id :: !Data.Int.Int64,
                              LeaseStatus -> FieldSet
_LeaseStatus'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LeaseStatus -> LeaseStatus -> Bool
(LeaseStatus -> LeaseStatus -> Bool)
-> (LeaseStatus -> LeaseStatus -> Bool) -> Eq LeaseStatus
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LeaseStatus -> LeaseStatus -> Bool
== :: LeaseStatus -> LeaseStatus -> Bool
$c/= :: LeaseStatus -> LeaseStatus -> Bool
/= :: LeaseStatus -> LeaseStatus -> Bool
Prelude.Eq, Eq LeaseStatus
Eq LeaseStatus =>
(LeaseStatus -> LeaseStatus -> Ordering)
-> (LeaseStatus -> LeaseStatus -> Bool)
-> (LeaseStatus -> LeaseStatus -> Bool)
-> (LeaseStatus -> LeaseStatus -> Bool)
-> (LeaseStatus -> LeaseStatus -> Bool)
-> (LeaseStatus -> LeaseStatus -> LeaseStatus)
-> (LeaseStatus -> LeaseStatus -> LeaseStatus)
-> Ord LeaseStatus
LeaseStatus -> LeaseStatus -> Bool
LeaseStatus -> LeaseStatus -> Ordering
LeaseStatus -> LeaseStatus -> LeaseStatus
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 :: LeaseStatus -> LeaseStatus -> Ordering
compare :: LeaseStatus -> LeaseStatus -> Ordering
$c< :: LeaseStatus -> LeaseStatus -> Bool
< :: LeaseStatus -> LeaseStatus -> Bool
$c<= :: LeaseStatus -> LeaseStatus -> Bool
<= :: LeaseStatus -> LeaseStatus -> Bool
$c> :: LeaseStatus -> LeaseStatus -> Bool
> :: LeaseStatus -> LeaseStatus -> Bool
$c>= :: LeaseStatus -> LeaseStatus -> Bool
>= :: LeaseStatus -> LeaseStatus -> Bool
$cmax :: LeaseStatus -> LeaseStatus -> LeaseStatus
max :: LeaseStatus -> LeaseStatus -> LeaseStatus
$cmin :: LeaseStatus -> LeaseStatus -> LeaseStatus
min :: LeaseStatus -> LeaseStatus -> LeaseStatus
Prelude.Ord)
instance Prelude.Show LeaseStatus where
  showsPrec :: Int -> LeaseStatus -> ShowS
showsPrec Int
_ LeaseStatus
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LeaseStatus -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LeaseStatus
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField LeaseStatus "id" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id" -> (Int64 -> f Int64) -> LeaseStatus -> f LeaseStatus
fieldOf Proxy# "id"
_
    = ((Int64 -> f Int64) -> LeaseStatus -> f LeaseStatus)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> LeaseStatus
-> f LeaseStatus
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseStatus -> Int64)
-> (LeaseStatus -> Int64 -> LeaseStatus)
-> Lens LeaseStatus LeaseStatus Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseStatus -> Int64
_LeaseStatus'id (\ LeaseStatus
x__ Int64
y__ -> LeaseStatus
x__ {_LeaseStatus'id = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message LeaseStatus where
  messageName :: Proxy LeaseStatus -> Text
messageName Proxy LeaseStatus
_ = String -> Text
Data.Text.pack String
"etcdserverpb.LeaseStatus"
  packedMessageDescriptor :: Proxy LeaseStatus -> ByteString
packedMessageDescriptor Proxy LeaseStatus
_
    = ByteString
"\n\
      \\vLeaseStatus\DC2\SO\n\
      \\STXID\CAN\SOH \SOH(\ETXR\STXID:\a\130\181\CAN\ETX3.3"
  packedFileDescriptor :: Proxy LeaseStatus -> ByteString
packedFileDescriptor Proxy LeaseStatus
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LeaseStatus)
fieldsByTag
    = let
        id__field_descriptor :: FieldDescriptor LeaseStatus
id__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor LeaseStatus Int64
-> FieldDescriptor LeaseStatus
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ID"
              (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 LeaseStatus LeaseStatus Int64 Int64
-> FieldAccessor LeaseStatus 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 @"id")) ::
              Data.ProtoLens.FieldDescriptor LeaseStatus
      in [(Tag, FieldDescriptor LeaseStatus)]
-> Map Tag (FieldDescriptor LeaseStatus)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor LeaseStatus
id__field_descriptor)]
  unknownFields :: Lens' LeaseStatus FieldSet
unknownFields
    = (LeaseStatus -> FieldSet)
-> (LeaseStatus -> FieldSet -> LeaseStatus)
-> Lens' LeaseStatus FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LeaseStatus -> FieldSet
_LeaseStatus'_unknownFields
        (\ LeaseStatus
x__ FieldSet
y__ -> LeaseStatus
x__ {_LeaseStatus'_unknownFields = y__})
  defMessage :: LeaseStatus
defMessage
    = LeaseStatus'_constructor
        {_LeaseStatus'id :: Int64
_LeaseStatus'id = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseStatus'_unknownFields :: FieldSet
_LeaseStatus'_unknownFields = []}
  parseMessage :: Parser LeaseStatus
parseMessage
    = let
        loop ::
          LeaseStatus -> Data.ProtoLens.Encoding.Bytes.Parser LeaseStatus
        loop :: LeaseStatus -> Parser LeaseStatus
loop LeaseStatus
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 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
"ID"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") 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 LeaseStatus -> String -> Parser LeaseStatus
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do LeaseStatus -> Parser LeaseStatus
loop LeaseStatus
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"LeaseStatus"
  buildMessage :: LeaseStatus -> Builder
buildMessage
    = \ LeaseStatus
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Int64
_v = FoldLike Int64 LeaseStatus LeaseStatus Int64 Int64
-> LeaseStatus -> 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 @"id") LeaseStatus
_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
8)
                      ((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 LeaseStatus LeaseStatus FieldSet FieldSet
-> LeaseStatus -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet LeaseStatus LeaseStatus FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LeaseStatus FieldSet
Data.ProtoLens.unknownFields LeaseStatus
_x))
instance Control.DeepSeq.NFData LeaseStatus where
  rnf :: LeaseStatus -> ()
rnf
    = \ LeaseStatus
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LeaseStatus -> FieldSet
_LeaseStatus'_unknownFields LeaseStatus
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (LeaseStatus -> Int64
_LeaseStatus'id LeaseStatus
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseTimeToLiveRequest Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.keys' @:: Lens' LeaseTimeToLiveRequest Prelude.Bool@ -}
data LeaseTimeToLiveRequest
  = LeaseTimeToLiveRequest'_constructor {LeaseTimeToLiveRequest -> Int64
_LeaseTimeToLiveRequest'id :: !Data.Int.Int64,
                                         LeaseTimeToLiveRequest -> Bool
_LeaseTimeToLiveRequest'keys :: !Prelude.Bool,
                                         LeaseTimeToLiveRequest -> FieldSet
_LeaseTimeToLiveRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool
(LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool)
-> (LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool)
-> Eq LeaseTimeToLiveRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool
== :: LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool
$c/= :: LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool
/= :: LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool
Prelude.Eq, Eq LeaseTimeToLiveRequest
Eq LeaseTimeToLiveRequest =>
(LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Ordering)
-> (LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool)
-> (LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool)
-> (LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool)
-> (LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool)
-> (LeaseTimeToLiveRequest
    -> LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest)
-> (LeaseTimeToLiveRequest
    -> LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest)
-> Ord LeaseTimeToLiveRequest
LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool
LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Ordering
LeaseTimeToLiveRequest
-> LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest
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 :: LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Ordering
compare :: LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Ordering
$c< :: LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool
< :: LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool
$c<= :: LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool
<= :: LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool
$c> :: LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool
> :: LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool
$c>= :: LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool
>= :: LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest -> Bool
$cmax :: LeaseTimeToLiveRequest
-> LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest
max :: LeaseTimeToLiveRequest
-> LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest
$cmin :: LeaseTimeToLiveRequest
-> LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest
min :: LeaseTimeToLiveRequest
-> LeaseTimeToLiveRequest -> LeaseTimeToLiveRequest
Prelude.Ord)
instance Prelude.Show LeaseTimeToLiveRequest where
  showsPrec :: Int -> LeaseTimeToLiveRequest -> ShowS
showsPrec Int
_ LeaseTimeToLiveRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LeaseTimeToLiveRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LeaseTimeToLiveRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField LeaseTimeToLiveRequest "id" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id"
-> (Int64 -> f Int64)
-> LeaseTimeToLiveRequest
-> f LeaseTimeToLiveRequest
fieldOf Proxy# "id"
_
    = ((Int64 -> f Int64)
 -> LeaseTimeToLiveRequest -> f LeaseTimeToLiveRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> LeaseTimeToLiveRequest
-> f LeaseTimeToLiveRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseTimeToLiveRequest -> Int64)
-> (LeaseTimeToLiveRequest -> Int64 -> LeaseTimeToLiveRequest)
-> Lens LeaseTimeToLiveRequest LeaseTimeToLiveRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseTimeToLiveRequest -> Int64
_LeaseTimeToLiveRequest'id
           (\ LeaseTimeToLiveRequest
x__ Int64
y__ -> LeaseTimeToLiveRequest
x__ {_LeaseTimeToLiveRequest'id = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField LeaseTimeToLiveRequest "keys" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "keys"
-> (Bool -> f Bool)
-> LeaseTimeToLiveRequest
-> f LeaseTimeToLiveRequest
fieldOf Proxy# "keys"
_
    = ((Bool -> f Bool)
 -> LeaseTimeToLiveRequest -> f LeaseTimeToLiveRequest)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> LeaseTimeToLiveRequest
-> f LeaseTimeToLiveRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseTimeToLiveRequest -> Bool)
-> (LeaseTimeToLiveRequest -> Bool -> LeaseTimeToLiveRequest)
-> Lens LeaseTimeToLiveRequest LeaseTimeToLiveRequest Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseTimeToLiveRequest -> Bool
_LeaseTimeToLiveRequest'keys
           (\ LeaseTimeToLiveRequest
x__ Bool
y__ -> LeaseTimeToLiveRequest
x__ {_LeaseTimeToLiveRequest'keys = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message LeaseTimeToLiveRequest where
  messageName :: Proxy LeaseTimeToLiveRequest -> Text
messageName Proxy LeaseTimeToLiveRequest
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.LeaseTimeToLiveRequest"
  packedMessageDescriptor :: Proxy LeaseTimeToLiveRequest -> ByteString
packedMessageDescriptor Proxy LeaseTimeToLiveRequest
_
    = ByteString
"\n\
      \\SYNLeaseTimeToLiveRequest\DC2\SO\n\
      \\STXID\CAN\SOH \SOH(\ETXR\STXID\DC2\DC2\n\
      \\EOTkeys\CAN\STX \SOH(\bR\EOTkeys:\a\130\181\CAN\ETX3.1"
  packedFileDescriptor :: Proxy LeaseTimeToLiveRequest -> ByteString
packedFileDescriptor Proxy LeaseTimeToLiveRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LeaseTimeToLiveRequest)
fieldsByTag
    = let
        id__field_descriptor :: FieldDescriptor LeaseTimeToLiveRequest
id__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor LeaseTimeToLiveRequest Int64
-> FieldDescriptor LeaseTimeToLiveRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ID"
              (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 LeaseTimeToLiveRequest LeaseTimeToLiveRequest Int64 Int64
-> FieldAccessor LeaseTimeToLiveRequest 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 @"id")) ::
              Data.ProtoLens.FieldDescriptor LeaseTimeToLiveRequest
        keys__field_descriptor :: FieldDescriptor LeaseTimeToLiveRequest
keys__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor LeaseTimeToLiveRequest Bool
-> FieldDescriptor LeaseTimeToLiveRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"keys"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens LeaseTimeToLiveRequest LeaseTimeToLiveRequest Bool Bool
-> FieldAccessor LeaseTimeToLiveRequest Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"keys")) ::
              Data.ProtoLens.FieldDescriptor LeaseTimeToLiveRequest
      in
        [(Tag, FieldDescriptor LeaseTimeToLiveRequest)]
-> Map Tag (FieldDescriptor LeaseTimeToLiveRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor LeaseTimeToLiveRequest
id__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor LeaseTimeToLiveRequest
keys__field_descriptor)]
  unknownFields :: Lens' LeaseTimeToLiveRequest FieldSet
unknownFields
    = (LeaseTimeToLiveRequest -> FieldSet)
-> (LeaseTimeToLiveRequest -> FieldSet -> LeaseTimeToLiveRequest)
-> Lens' LeaseTimeToLiveRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LeaseTimeToLiveRequest -> FieldSet
_LeaseTimeToLiveRequest'_unknownFields
        (\ LeaseTimeToLiveRequest
x__ FieldSet
y__ -> LeaseTimeToLiveRequest
x__ {_LeaseTimeToLiveRequest'_unknownFields = y__})
  defMessage :: LeaseTimeToLiveRequest
defMessage
    = LeaseTimeToLiveRequest'_constructor
        {_LeaseTimeToLiveRequest'id :: Int64
_LeaseTimeToLiveRequest'id = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseTimeToLiveRequest'keys :: Bool
_LeaseTimeToLiveRequest'keys = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseTimeToLiveRequest'_unknownFields :: FieldSet
_LeaseTimeToLiveRequest'_unknownFields = []}
  parseMessage :: Parser LeaseTimeToLiveRequest
parseMessage
    = let
        loop ::
          LeaseTimeToLiveRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser LeaseTimeToLiveRequest
        loop :: LeaseTimeToLiveRequest -> Parser LeaseTimeToLiveRequest
loop LeaseTimeToLiveRequest
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 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
"ID"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x)
                        Word64
16
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"keys"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"keys") 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 LeaseTimeToLiveRequest
-> String -> Parser LeaseTimeToLiveRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do LeaseTimeToLiveRequest -> Parser LeaseTimeToLiveRequest
loop LeaseTimeToLiveRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"LeaseTimeToLiveRequest"
  buildMessage :: LeaseTimeToLiveRequest -> Builder
buildMessage
    = \ LeaseTimeToLiveRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Int64
_v = FoldLike
  Int64 LeaseTimeToLiveRequest LeaseTimeToLiveRequest Int64 Int64
-> LeaseTimeToLiveRequest -> 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 @"id") LeaseTimeToLiveRequest
_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
8)
                      ((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 :: Bool
_v = FoldLike
  Bool LeaseTimeToLiveRequest LeaseTimeToLiveRequest Bool Bool
-> LeaseTimeToLiveRequest -> Bool
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 @"keys") LeaseTimeToLiveRequest
_x
                 in
                   if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                            Bool
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  LeaseTimeToLiveRequest
  LeaseTimeToLiveRequest
  FieldSet
  FieldSet
-> LeaseTimeToLiveRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  LeaseTimeToLiveRequest
  LeaseTimeToLiveRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LeaseTimeToLiveRequest FieldSet
Data.ProtoLens.unknownFields LeaseTimeToLiveRequest
_x)))
instance Control.DeepSeq.NFData LeaseTimeToLiveRequest where
  rnf :: LeaseTimeToLiveRequest -> ()
rnf
    = \ LeaseTimeToLiveRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LeaseTimeToLiveRequest -> FieldSet
_LeaseTimeToLiveRequest'_unknownFields LeaseTimeToLiveRequest
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (LeaseTimeToLiveRequest -> Int64
_LeaseTimeToLiveRequest'id LeaseTimeToLiveRequest
x__)
                (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (LeaseTimeToLiveRequest -> Bool
_LeaseTimeToLiveRequest'keys LeaseTimeToLiveRequest
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' LeaseTimeToLiveResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' LeaseTimeToLiveResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseTimeToLiveResponse Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.ttl' @:: Lens' LeaseTimeToLiveResponse Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.grantedTTL' @:: Lens' LeaseTimeToLiveResponse Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.keys' @:: Lens' LeaseTimeToLiveResponse [Data.ByteString.ByteString]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'keys' @:: Lens' LeaseTimeToLiveResponse (Data.Vector.Vector Data.ByteString.ByteString)@ -}
data LeaseTimeToLiveResponse
  = LeaseTimeToLiveResponse'_constructor {LeaseTimeToLiveResponse -> Maybe ResponseHeader
_LeaseTimeToLiveResponse'header :: !(Prelude.Maybe ResponseHeader),
                                          LeaseTimeToLiveResponse -> Int64
_LeaseTimeToLiveResponse'id :: !Data.Int.Int64,
                                          LeaseTimeToLiveResponse -> Int64
_LeaseTimeToLiveResponse'ttl :: !Data.Int.Int64,
                                          LeaseTimeToLiveResponse -> Int64
_LeaseTimeToLiveResponse'grantedTTL :: !Data.Int.Int64,
                                          LeaseTimeToLiveResponse -> Vector ByteString
_LeaseTimeToLiveResponse'keys :: !(Data.Vector.Vector Data.ByteString.ByteString),
                                          LeaseTimeToLiveResponse -> FieldSet
_LeaseTimeToLiveResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool
(LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool)
-> (LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool)
-> Eq LeaseTimeToLiveResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool
== :: LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool
$c/= :: LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool
/= :: LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool
Prelude.Eq, Eq LeaseTimeToLiveResponse
Eq LeaseTimeToLiveResponse =>
(LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Ordering)
-> (LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool)
-> (LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool)
-> (LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool)
-> (LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool)
-> (LeaseTimeToLiveResponse
    -> LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse)
-> (LeaseTimeToLiveResponse
    -> LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse)
-> Ord LeaseTimeToLiveResponse
LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool
LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Ordering
LeaseTimeToLiveResponse
-> LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse
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 :: LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Ordering
compare :: LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Ordering
$c< :: LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool
< :: LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool
$c<= :: LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool
<= :: LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool
$c> :: LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool
> :: LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool
$c>= :: LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool
>= :: LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse -> Bool
$cmax :: LeaseTimeToLiveResponse
-> LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse
max :: LeaseTimeToLiveResponse
-> LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse
$cmin :: LeaseTimeToLiveResponse
-> LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse
min :: LeaseTimeToLiveResponse
-> LeaseTimeToLiveResponse -> LeaseTimeToLiveResponse
Prelude.Ord)
instance Prelude.Show LeaseTimeToLiveResponse where
  showsPrec :: Int -> LeaseTimeToLiveResponse -> ShowS
showsPrec Int
_ LeaseTimeToLiveResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (LeaseTimeToLiveResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort LeaseTimeToLiveResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField LeaseTimeToLiveResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> LeaseTimeToLiveResponse
-> f LeaseTimeToLiveResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> LeaseTimeToLiveResponse -> f LeaseTimeToLiveResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> LeaseTimeToLiveResponse
-> f LeaseTimeToLiveResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseTimeToLiveResponse -> Maybe ResponseHeader)
-> (LeaseTimeToLiveResponse
    -> Maybe ResponseHeader -> LeaseTimeToLiveResponse)
-> Lens
     LeaseTimeToLiveResponse
     LeaseTimeToLiveResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseTimeToLiveResponse -> Maybe ResponseHeader
_LeaseTimeToLiveResponse'header
           (\ LeaseTimeToLiveResponse
x__ Maybe ResponseHeader
y__ -> LeaseTimeToLiveResponse
x__ {_LeaseTimeToLiveResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField LeaseTimeToLiveResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> LeaseTimeToLiveResponse
-> f LeaseTimeToLiveResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> LeaseTimeToLiveResponse -> f LeaseTimeToLiveResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> LeaseTimeToLiveResponse
-> f LeaseTimeToLiveResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseTimeToLiveResponse -> Maybe ResponseHeader)
-> (LeaseTimeToLiveResponse
    -> Maybe ResponseHeader -> LeaseTimeToLiveResponse)
-> Lens
     LeaseTimeToLiveResponse
     LeaseTimeToLiveResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseTimeToLiveResponse -> Maybe ResponseHeader
_LeaseTimeToLiveResponse'header
           (\ LeaseTimeToLiveResponse
x__ Maybe ResponseHeader
y__ -> LeaseTimeToLiveResponse
x__ {_LeaseTimeToLiveResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField LeaseTimeToLiveResponse "id" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id"
-> (Int64 -> f Int64)
-> LeaseTimeToLiveResponse
-> f LeaseTimeToLiveResponse
fieldOf Proxy# "id"
_
    = ((Int64 -> f Int64)
 -> LeaseTimeToLiveResponse -> f LeaseTimeToLiveResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> LeaseTimeToLiveResponse
-> f LeaseTimeToLiveResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseTimeToLiveResponse -> Int64)
-> (LeaseTimeToLiveResponse -> Int64 -> LeaseTimeToLiveResponse)
-> Lens LeaseTimeToLiveResponse LeaseTimeToLiveResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseTimeToLiveResponse -> Int64
_LeaseTimeToLiveResponse'id
           (\ LeaseTimeToLiveResponse
x__ Int64
y__ -> LeaseTimeToLiveResponse
x__ {_LeaseTimeToLiveResponse'id = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField LeaseTimeToLiveResponse "ttl" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ttl"
-> (Int64 -> f Int64)
-> LeaseTimeToLiveResponse
-> f LeaseTimeToLiveResponse
fieldOf Proxy# "ttl"
_
    = ((Int64 -> f Int64)
 -> LeaseTimeToLiveResponse -> f LeaseTimeToLiveResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> LeaseTimeToLiveResponse
-> f LeaseTimeToLiveResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseTimeToLiveResponse -> Int64)
-> (LeaseTimeToLiveResponse -> Int64 -> LeaseTimeToLiveResponse)
-> Lens LeaseTimeToLiveResponse LeaseTimeToLiveResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseTimeToLiveResponse -> Int64
_LeaseTimeToLiveResponse'ttl
           (\ LeaseTimeToLiveResponse
x__ Int64
y__ -> LeaseTimeToLiveResponse
x__ {_LeaseTimeToLiveResponse'ttl = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField LeaseTimeToLiveResponse "grantedTTL" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "grantedTTL"
-> (Int64 -> f Int64)
-> LeaseTimeToLiveResponse
-> f LeaseTimeToLiveResponse
fieldOf Proxy# "grantedTTL"
_
    = ((Int64 -> f Int64)
 -> LeaseTimeToLiveResponse -> f LeaseTimeToLiveResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> LeaseTimeToLiveResponse
-> f LeaseTimeToLiveResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseTimeToLiveResponse -> Int64)
-> (LeaseTimeToLiveResponse -> Int64 -> LeaseTimeToLiveResponse)
-> Lens LeaseTimeToLiveResponse LeaseTimeToLiveResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseTimeToLiveResponse -> Int64
_LeaseTimeToLiveResponse'grantedTTL
           (\ LeaseTimeToLiveResponse
x__ Int64
y__ -> LeaseTimeToLiveResponse
x__ {_LeaseTimeToLiveResponse'grantedTTL = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField LeaseTimeToLiveResponse "keys" [Data.ByteString.ByteString] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "keys"
-> ([ByteString] -> f [ByteString])
-> LeaseTimeToLiveResponse
-> f LeaseTimeToLiveResponse
fieldOf Proxy# "keys"
_
    = ((Vector ByteString -> f (Vector ByteString))
 -> LeaseTimeToLiveResponse -> f LeaseTimeToLiveResponse)
-> (([ByteString] -> f [ByteString])
    -> Vector ByteString -> f (Vector ByteString))
-> ([ByteString] -> f [ByteString])
-> LeaseTimeToLiveResponse
-> f LeaseTimeToLiveResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseTimeToLiveResponse -> Vector ByteString)
-> (LeaseTimeToLiveResponse
    -> Vector ByteString -> LeaseTimeToLiveResponse)
-> Lens
     LeaseTimeToLiveResponse
     LeaseTimeToLiveResponse
     (Vector ByteString)
     (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseTimeToLiveResponse -> Vector ByteString
_LeaseTimeToLiveResponse'keys
           (\ LeaseTimeToLiveResponse
x__ Vector ByteString
y__ -> LeaseTimeToLiveResponse
x__ {_LeaseTimeToLiveResponse'keys = y__}))
        ((Vector ByteString -> [ByteString])
-> (Vector ByteString -> [ByteString] -> Vector ByteString)
-> Lens
     (Vector ByteString) (Vector ByteString) [ByteString] [ByteString]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector ByteString -> [ByteString]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector ByteString
_ [ByteString]
y__ -> [ByteString] -> Vector ByteString
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ByteString]
y__))
instance Data.ProtoLens.Field.HasField LeaseTimeToLiveResponse "vec'keys" (Data.Vector.Vector Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'keys"
-> (Vector ByteString -> f (Vector ByteString))
-> LeaseTimeToLiveResponse
-> f LeaseTimeToLiveResponse
fieldOf Proxy# "vec'keys"
_
    = ((Vector ByteString -> f (Vector ByteString))
 -> LeaseTimeToLiveResponse -> f LeaseTimeToLiveResponse)
-> ((Vector ByteString -> f (Vector ByteString))
    -> Vector ByteString -> f (Vector ByteString))
-> (Vector ByteString -> f (Vector ByteString))
-> LeaseTimeToLiveResponse
-> f LeaseTimeToLiveResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((LeaseTimeToLiveResponse -> Vector ByteString)
-> (LeaseTimeToLiveResponse
    -> Vector ByteString -> LeaseTimeToLiveResponse)
-> Lens
     LeaseTimeToLiveResponse
     LeaseTimeToLiveResponse
     (Vector ByteString)
     (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           LeaseTimeToLiveResponse -> Vector ByteString
_LeaseTimeToLiveResponse'keys
           (\ LeaseTimeToLiveResponse
x__ Vector ByteString
y__ -> LeaseTimeToLiveResponse
x__ {_LeaseTimeToLiveResponse'keys = y__}))
        (Vector ByteString -> f (Vector ByteString))
-> Vector ByteString -> f (Vector ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message LeaseTimeToLiveResponse where
  messageName :: Proxy LeaseTimeToLiveResponse -> Text
messageName Proxy LeaseTimeToLiveResponse
_
    = String -> Text
Data.Text.pack String
"etcdserverpb.LeaseTimeToLiveResponse"
  packedMessageDescriptor :: Proxy LeaseTimeToLiveResponse -> ByteString
packedMessageDescriptor Proxy LeaseTimeToLiveResponse
_
    = ByteString
"\n\
      \\ETBLeaseTimeToLiveResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\SO\n\
      \\STXID\CAN\STX \SOH(\ETXR\STXID\DC2\DLE\n\
      \\ETXTTL\CAN\ETX \SOH(\ETXR\ETXTTL\DC2\RS\n\
      \\n\
      \grantedTTL\CAN\EOT \SOH(\ETXR\n\
      \grantedTTL\DC2\DC2\n\
      \\EOTkeys\CAN\ENQ \ETX(\fR\EOTkeys:\a\130\181\CAN\ETX3.1"
  packedFileDescriptor :: Proxy LeaseTimeToLiveResponse -> ByteString
packedFileDescriptor Proxy LeaseTimeToLiveResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor LeaseTimeToLiveResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor LeaseTimeToLiveResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor LeaseTimeToLiveResponse ResponseHeader
-> FieldDescriptor LeaseTimeToLiveResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  LeaseTimeToLiveResponse
  LeaseTimeToLiveResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor LeaseTimeToLiveResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor LeaseTimeToLiveResponse
        id__field_descriptor :: FieldDescriptor LeaseTimeToLiveResponse
id__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor LeaseTimeToLiveResponse Int64
-> FieldDescriptor LeaseTimeToLiveResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ID"
              (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 LeaseTimeToLiveResponse LeaseTimeToLiveResponse Int64 Int64
-> FieldAccessor LeaseTimeToLiveResponse 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 @"id")) ::
              Data.ProtoLens.FieldDescriptor LeaseTimeToLiveResponse
        ttl__field_descriptor :: FieldDescriptor LeaseTimeToLiveResponse
ttl__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor LeaseTimeToLiveResponse Int64
-> FieldDescriptor LeaseTimeToLiveResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"TTL"
              (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 LeaseTimeToLiveResponse LeaseTimeToLiveResponse Int64 Int64
-> FieldAccessor LeaseTimeToLiveResponse 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 @"ttl")) ::
              Data.ProtoLens.FieldDescriptor LeaseTimeToLiveResponse
        grantedTTL__field_descriptor :: FieldDescriptor LeaseTimeToLiveResponse
grantedTTL__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor LeaseTimeToLiveResponse Int64
-> FieldDescriptor LeaseTimeToLiveResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"grantedTTL"
              (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 LeaseTimeToLiveResponse LeaseTimeToLiveResponse Int64 Int64
-> FieldAccessor LeaseTimeToLiveResponse 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 @"grantedTTL")) ::
              Data.ProtoLens.FieldDescriptor LeaseTimeToLiveResponse
        keys__field_descriptor :: FieldDescriptor LeaseTimeToLiveResponse
keys__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor LeaseTimeToLiveResponse ByteString
-> FieldDescriptor LeaseTimeToLiveResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"keys"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Packing
-> Lens' LeaseTimeToLiveResponse [ByteString]
-> FieldAccessor LeaseTimeToLiveResponse ByteString
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"keys")) ::
              Data.ProtoLens.FieldDescriptor LeaseTimeToLiveResponse
      in
        [(Tag, FieldDescriptor LeaseTimeToLiveResponse)]
-> Map Tag (FieldDescriptor LeaseTimeToLiveResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor LeaseTimeToLiveResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor LeaseTimeToLiveResponse
id__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor LeaseTimeToLiveResponse
ttl__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor LeaseTimeToLiveResponse
grantedTTL__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor LeaseTimeToLiveResponse
keys__field_descriptor)]
  unknownFields :: Lens' LeaseTimeToLiveResponse FieldSet
unknownFields
    = (LeaseTimeToLiveResponse -> FieldSet)
-> (LeaseTimeToLiveResponse -> FieldSet -> LeaseTimeToLiveResponse)
-> Lens' LeaseTimeToLiveResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        LeaseTimeToLiveResponse -> FieldSet
_LeaseTimeToLiveResponse'_unknownFields
        (\ LeaseTimeToLiveResponse
x__ FieldSet
y__ -> LeaseTimeToLiveResponse
x__ {_LeaseTimeToLiveResponse'_unknownFields = y__})
  defMessage :: LeaseTimeToLiveResponse
defMessage
    = LeaseTimeToLiveResponse'_constructor
        {_LeaseTimeToLiveResponse'header :: Maybe ResponseHeader
_LeaseTimeToLiveResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _LeaseTimeToLiveResponse'id :: Int64
_LeaseTimeToLiveResponse'id = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseTimeToLiveResponse'ttl :: Int64
_LeaseTimeToLiveResponse'ttl = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseTimeToLiveResponse'grantedTTL :: Int64
_LeaseTimeToLiveResponse'grantedTTL = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _LeaseTimeToLiveResponse'keys :: Vector ByteString
_LeaseTimeToLiveResponse'keys = Vector ByteString
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _LeaseTimeToLiveResponse'_unknownFields :: FieldSet
_LeaseTimeToLiveResponse'_unknownFields = []}
  parseMessage :: Parser LeaseTimeToLiveResponse
parseMessage
    = let
        loop ::
          LeaseTimeToLiveResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString
             -> Data.ProtoLens.Encoding.Bytes.Parser LeaseTimeToLiveResponse
        loop :: LeaseTimeToLiveResponse
-> Growing Vector RealWorld ByteString
-> Parser LeaseTimeToLiveResponse
loop LeaseTimeToLiveResponse
x Growing Vector RealWorld ByteString
mutable'keys
          = do end <- Parser Bool
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 (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'keys") frozen'keys x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'keys
                        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
"ID"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x)
                                  mutable'keys
                        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
"TTL"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"ttl") y x)
                                  mutable'keys
                        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
"grantedTTL"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"grantedTTL") y x)
                                  mutable'keys
                        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
"keys"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'keys y)
                                loop x v
                        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)
                                  mutable'keys
      in
        Parser LeaseTimeToLiveResponse
-> String -> Parser LeaseTimeToLiveResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'keys <- IO (Growing Vector RealWorld ByteString)
-> Parser (Growing Vector RealWorld ByteString)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                IO (Growing Vector RealWorld ByteString)
IO (Growing Vector (PrimState IO) ByteString)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'keys)
          String
"LeaseTimeToLiveResponse"
  buildMessage :: LeaseTimeToLiveResponse -> Builder
buildMessage
    = \ LeaseTimeToLiveResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  LeaseTimeToLiveResponse
  LeaseTimeToLiveResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> LeaseTimeToLiveResponse -> Maybe ResponseHeader
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'header") LeaseTimeToLiveResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: Int64
_v = FoldLike
  Int64 LeaseTimeToLiveResponse LeaseTimeToLiveResponse Int64 Int64
-> LeaseTimeToLiveResponse -> 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 @"id") LeaseTimeToLiveResponse
_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 LeaseTimeToLiveResponse LeaseTimeToLiveResponse Int64 Int64
-> LeaseTimeToLiveResponse -> 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 @"ttl") LeaseTimeToLiveResponse
_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 LeaseTimeToLiveResponse LeaseTimeToLiveResponse Int64 Int64
-> LeaseTimeToLiveResponse -> 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 @"grantedTTL") LeaseTimeToLiveResponse
_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.<>)
                         ((ByteString -> Builder) -> Vector ByteString -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                            (\ ByteString
_v
                               -> 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))
                            (FoldLike
  (Vector ByteString)
  LeaseTimeToLiveResponse
  LeaseTimeToLiveResponse
  (Vector ByteString)
  (Vector ByteString)
-> LeaseTimeToLiveResponse -> Vector 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 @"vec'keys") LeaseTimeToLiveResponse
_x))
                         (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                            (FoldLike
  FieldSet
  LeaseTimeToLiveResponse
  LeaseTimeToLiveResponse
  FieldSet
  FieldSet
-> LeaseTimeToLiveResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  LeaseTimeToLiveResponse
  LeaseTimeToLiveResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' LeaseTimeToLiveResponse FieldSet
Data.ProtoLens.unknownFields LeaseTimeToLiveResponse
_x))))))
instance Control.DeepSeq.NFData LeaseTimeToLiveResponse where
  rnf :: LeaseTimeToLiveResponse -> ()
rnf
    = \ LeaseTimeToLiveResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (LeaseTimeToLiveResponse -> FieldSet
_LeaseTimeToLiveResponse'_unknownFields LeaseTimeToLiveResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (LeaseTimeToLiveResponse -> Maybe ResponseHeader
_LeaseTimeToLiveResponse'header LeaseTimeToLiveResponse
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (LeaseTimeToLiveResponse -> Int64
_LeaseTimeToLiveResponse'id LeaseTimeToLiveResponse
x__)
                   (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (LeaseTimeToLiveResponse -> Int64
_LeaseTimeToLiveResponse'ttl LeaseTimeToLiveResponse
x__)
                      (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (LeaseTimeToLiveResponse -> Int64
_LeaseTimeToLiveResponse'grantedTTL LeaseTimeToLiveResponse
x__)
                         (Vector ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (LeaseTimeToLiveResponse -> Vector ByteString
_LeaseTimeToLiveResponse'keys LeaseTimeToLiveResponse
x__) ())))))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.id' @:: Lens' Member Data.Word.Word64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.name' @:: Lens' Member Data.Text.Text@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.peerURLs' @:: Lens' Member [Data.Text.Text]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'peerURLs' @:: Lens' Member (Data.Vector.Vector Data.Text.Text)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.clientURLs' @:: Lens' Member [Data.Text.Text]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'clientURLs' @:: Lens' Member (Data.Vector.Vector Data.Text.Text)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.isLearner' @:: Lens' Member Prelude.Bool@ -}
data Member
  = Member'_constructor {Member -> Word64
_Member'id :: !Data.Word.Word64,
                         Member -> Text
_Member'name :: !Data.Text.Text,
                         Member -> Vector Text
_Member'peerURLs :: !(Data.Vector.Vector Data.Text.Text),
                         Member -> Vector Text
_Member'clientURLs :: !(Data.Vector.Vector Data.Text.Text),
                         Member -> Bool
_Member'isLearner :: !Prelude.Bool,
                         Member -> FieldSet
_Member'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (Member -> Member -> Bool
(Member -> Member -> Bool)
-> (Member -> Member -> Bool) -> Eq Member
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Member -> Member -> Bool
== :: Member -> Member -> Bool
$c/= :: Member -> Member -> Bool
/= :: Member -> Member -> Bool
Prelude.Eq, Eq Member
Eq Member =>
(Member -> Member -> Ordering)
-> (Member -> Member -> Bool)
-> (Member -> Member -> Bool)
-> (Member -> Member -> Bool)
-> (Member -> Member -> Bool)
-> (Member -> Member -> Member)
-> (Member -> Member -> Member)
-> Ord Member
Member -> Member -> Bool
Member -> Member -> Ordering
Member -> Member -> Member
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 :: Member -> Member -> Ordering
compare :: Member -> Member -> Ordering
$c< :: Member -> Member -> Bool
< :: Member -> Member -> Bool
$c<= :: Member -> Member -> Bool
<= :: Member -> Member -> Bool
$c> :: Member -> Member -> Bool
> :: Member -> Member -> Bool
$c>= :: Member -> Member -> Bool
>= :: Member -> Member -> Bool
$cmax :: Member -> Member -> Member
max :: Member -> Member -> Member
$cmin :: Member -> Member -> Member
min :: Member -> Member -> Member
Prelude.Ord)
instance Prelude.Show Member where
  showsPrec :: Int -> Member -> ShowS
showsPrec Int
_ Member
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (Member -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort Member
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField Member "id" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id" -> (Word64 -> f Word64) -> Member -> f Member
fieldOf Proxy# "id"
_
    = ((Word64 -> f Word64) -> Member -> f Member)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> Member
-> f Member
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Member -> Word64)
-> (Member -> Word64 -> Member) -> Lens Member Member Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Member -> Word64
_Member'id (\ Member
x__ Word64
y__ -> Member
x__ {_Member'id = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Member "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name" -> (Text -> f Text) -> Member -> f Member
fieldOf Proxy# "name"
_
    = ((Text -> f Text) -> Member -> f Member)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> Member
-> f Member
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Member -> Text)
-> (Member -> Text -> Member) -> Lens Member Member Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Member -> Text
_Member'name (\ Member
x__ Text
y__ -> Member
x__ {_Member'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Member "peerURLs" [Data.Text.Text] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "peerURLs" -> ([Text] -> f [Text]) -> Member -> f Member
fieldOf Proxy# "peerURLs"
_
    = ((Vector Text -> f (Vector Text)) -> Member -> f Member)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> Member
-> f Member
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Member -> Vector Text)
-> (Member -> Vector Text -> Member)
-> Lens Member Member (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Member -> Vector Text
_Member'peerURLs (\ Member
x__ Vector Text
y__ -> Member
x__ {_Member'peerURLs = y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Text
_ [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField Member "vec'peerURLs" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'peerURLs"
-> (Vector Text -> f (Vector Text)) -> Member -> f Member
fieldOf Proxy# "vec'peerURLs"
_
    = ((Vector Text -> f (Vector Text)) -> Member -> f Member)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> Member
-> f Member
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Member -> Vector Text)
-> (Member -> Vector Text -> Member)
-> Lens Member Member (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Member -> Vector Text
_Member'peerURLs (\ Member
x__ Vector Text
y__ -> Member
x__ {_Member'peerURLs = y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Member "clientURLs" [Data.Text.Text] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "clientURLs" -> ([Text] -> f [Text]) -> Member -> f Member
fieldOf Proxy# "clientURLs"
_
    = ((Vector Text -> f (Vector Text)) -> Member -> f Member)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> Member
-> f Member
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Member -> Vector Text)
-> (Member -> Vector Text -> Member)
-> Lens Member Member (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Member -> Vector Text
_Member'clientURLs (\ Member
x__ Vector Text
y__ -> Member
x__ {_Member'clientURLs = y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Text
_ [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField Member "vec'clientURLs" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'clientURLs"
-> (Vector Text -> f (Vector Text)) -> Member -> f Member
fieldOf Proxy# "vec'clientURLs"
_
    = ((Vector Text -> f (Vector Text)) -> Member -> f Member)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> Member
-> f Member
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Member -> Vector Text)
-> (Member -> Vector Text -> Member)
-> Lens Member Member (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Member -> Vector Text
_Member'clientURLs (\ Member
x__ Vector Text
y__ -> Member
x__ {_Member'clientURLs = y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField Member "isLearner" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "isLearner" -> (Bool -> f Bool) -> Member -> f Member
fieldOf Proxy# "isLearner"
_
    = ((Bool -> f Bool) -> Member -> f Member)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> Member
-> f Member
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((Member -> Bool)
-> (Member -> Bool -> Member) -> Lens Member Member Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Member -> Bool
_Member'isLearner (\ Member
x__ Bool
y__ -> Member
x__ {_Member'isLearner = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message Member where
  messageName :: Proxy Member -> Text
messageName Proxy Member
_ = String -> Text
Data.Text.pack String
"etcdserverpb.Member"
  packedMessageDescriptor :: Proxy Member -> ByteString
packedMessageDescriptor Proxy Member
_
    = ByteString
"\n\
      \\ACKMember\DC2\SO\n\
      \\STXID\CAN\SOH \SOH(\EOTR\STXID\DC2\DC2\n\
      \\EOTname\CAN\STX \SOH(\tR\EOTname\DC2\SUB\n\
      \\bpeerURLs\CAN\ETX \ETX(\tR\bpeerURLs\DC2\RS\n\
      \\n\
      \clientURLs\CAN\EOT \ETX(\tR\n\
      \clientURLs\DC2%\n\
      \\tisLearner\CAN\ENQ \SOH(\bR\tisLearnerB\a\138\181\CAN\ETX3.4:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy Member -> ByteString
packedFileDescriptor Proxy Member
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor Member)
fieldsByTag
    = let
        id__field_descriptor :: FieldDescriptor Member
id__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor Member Word64
-> FieldDescriptor Member
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ID"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens Member Member Word64 Word64 -> FieldAccessor Member Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"id")) ::
              Data.ProtoLens.FieldDescriptor Member
        name__field_descriptor :: FieldDescriptor Member
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Member Text
-> FieldDescriptor Member
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens Member Member Text Text -> FieldAccessor Member Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"name")) ::
              Data.ProtoLens.FieldDescriptor Member
        peerURLs__field_descriptor :: FieldDescriptor Member
peerURLs__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Member Text
-> FieldDescriptor Member
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"peerURLs"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing -> Lens' Member [Text] -> FieldAccessor Member Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"peerURLs")) ::
              Data.ProtoLens.FieldDescriptor Member
        clientURLs__field_descriptor :: FieldDescriptor Member
clientURLs__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor Member Text
-> FieldDescriptor Member
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"clientURLs"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing -> Lens' Member [Text] -> FieldAccessor Member Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"clientURLs")) ::
              Data.ProtoLens.FieldDescriptor Member
        isLearner__field_descriptor :: FieldDescriptor Member
isLearner__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor Member Bool
-> FieldDescriptor Member
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"isLearner"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens Member Member Bool Bool -> FieldAccessor Member Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"isLearner")) ::
              Data.ProtoLens.FieldDescriptor Member
      in
        [(Tag, FieldDescriptor Member)] -> Map Tag (FieldDescriptor Member)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor Member
id__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor Member
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor Member
peerURLs__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor Member
clientURLs__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor Member
isLearner__field_descriptor)]
  unknownFields :: Lens' Member FieldSet
unknownFields
    = (Member -> FieldSet)
-> (Member -> FieldSet -> Member) -> Lens' Member FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        Member -> FieldSet
_Member'_unknownFields
        (\ Member
x__ FieldSet
y__ -> Member
x__ {_Member'_unknownFields = y__})
  defMessage :: Member
defMessage
    = Member'_constructor
        {_Member'id :: Word64
_Member'id = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Member'name :: Text
_Member'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Member'peerURLs :: Vector Text
_Member'peerURLs = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Member'clientURLs :: Vector Text
_Member'clientURLs = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _Member'isLearner :: Bool
_Member'isLearner = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _Member'_unknownFields :: FieldSet
_Member'_unknownFields = []}
  parseMessage :: Parser Member
parseMessage
    = let
        loop ::
          Member
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
                -> Data.ProtoLens.Encoding.Bytes.Parser Member
        loop :: Member
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Parser Member
loop Member
x Growing Vector RealWorld Text
mutable'clientURLs Growing Vector RealWorld Text
mutable'peerURLs
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'clientURLs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                             (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                mutable'clientURLs)
                      frozen'peerURLs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                           (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                              mutable'peerURLs)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'clientURLs") frozen'clientURLs
                              (Lens.Family2.set
                                 (Data.ProtoLens.Field.field @"vec'peerURLs") frozen'peerURLs x)))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"ID"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x)
                                  mutable'clientURLs mutable'peerURLs
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
                                  mutable'clientURLs mutable'peerURLs
                        Word64
26
                          -> do !y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.getText
                                              (Prelude.fromIntegral len))
                                        String
"peerURLs"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'peerURLs y)
                                loop x mutable'clientURLs v
                        Word64
34
                          -> do !y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.getText
                                              (Prelude.fromIntegral len))
                                        String
"clientURLs"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'clientURLs y)
                                loop x v mutable'peerURLs
                        Word64
40
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"isLearner"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"isLearner") y x)
                                  mutable'clientURLs mutable'peerURLs
                        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)
                                  mutable'clientURLs mutable'peerURLs
      in
        Parser Member -> String -> Parser Member
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'clientURLs <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                      IO (Growing Vector RealWorld Text)
IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              mutable'peerURLs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                    Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'clientURLs mutable'peerURLs)
          String
"Member"
  buildMessage :: Member -> Builder
buildMessage
    = \ Member
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Word64
_v = FoldLike Word64 Member Member Word64 Word64 -> Member -> Word64
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 @"id") Member
_x
              in
                if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: Text
_v = FoldLike Text Member Member Text Text -> Member -> Text
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 @"name") Member
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ Text
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                              ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                                 Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                      (FoldLike (Vector Text) Member Member (Vector Text) (Vector Text)
-> Member -> Vector Text
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 @"vec'peerURLs") Member
_x))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                         (\ Text
_v
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                 ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                                    Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                         (FoldLike (Vector Text) Member Member (Vector Text) (Vector Text)
-> Member -> Vector Text
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 @"vec'clientURLs") Member
_x))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (let
                            _v :: Bool
_v = FoldLike Bool Member Member Bool Bool -> Member -> Bool
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 @"isLearner") Member
_x
                          in
                            if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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
40)
                                  ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                     Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                         (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                            (FoldLike FieldSet Member Member FieldSet FieldSet
-> Member -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet Member Member FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' Member FieldSet
Data.ProtoLens.unknownFields Member
_x))))))
instance Control.DeepSeq.NFData Member where
  rnf :: Member -> ()
rnf
    = \ Member
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (Member -> FieldSet
_Member'_unknownFields Member
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (Member -> Word64
_Member'id Member
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (Member -> Text
_Member'name Member
x__)
                   (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (Member -> Vector Text
_Member'peerURLs Member
x__)
                      (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (Member -> Vector Text
_Member'clientURLs Member
x__)
                         (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (Member -> Bool
_Member'isLearner Member
x__) ())))))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.peerURLs' @:: Lens' MemberAddRequest [Data.Text.Text]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'peerURLs' @:: Lens' MemberAddRequest (Data.Vector.Vector Data.Text.Text)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.isLearner' @:: Lens' MemberAddRequest Prelude.Bool@ -}
data MemberAddRequest
  = MemberAddRequest'_constructor {MemberAddRequest -> Vector Text
_MemberAddRequest'peerURLs :: !(Data.Vector.Vector Data.Text.Text),
                                   MemberAddRequest -> Bool
_MemberAddRequest'isLearner :: !Prelude.Bool,
                                   MemberAddRequest -> FieldSet
_MemberAddRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MemberAddRequest -> MemberAddRequest -> Bool
(MemberAddRequest -> MemberAddRequest -> Bool)
-> (MemberAddRequest -> MemberAddRequest -> Bool)
-> Eq MemberAddRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MemberAddRequest -> MemberAddRequest -> Bool
== :: MemberAddRequest -> MemberAddRequest -> Bool
$c/= :: MemberAddRequest -> MemberAddRequest -> Bool
/= :: MemberAddRequest -> MemberAddRequest -> Bool
Prelude.Eq, Eq MemberAddRequest
Eq MemberAddRequest =>
(MemberAddRequest -> MemberAddRequest -> Ordering)
-> (MemberAddRequest -> MemberAddRequest -> Bool)
-> (MemberAddRequest -> MemberAddRequest -> Bool)
-> (MemberAddRequest -> MemberAddRequest -> Bool)
-> (MemberAddRequest -> MemberAddRequest -> Bool)
-> (MemberAddRequest -> MemberAddRequest -> MemberAddRequest)
-> (MemberAddRequest -> MemberAddRequest -> MemberAddRequest)
-> Ord MemberAddRequest
MemberAddRequest -> MemberAddRequest -> Bool
MemberAddRequest -> MemberAddRequest -> Ordering
MemberAddRequest -> MemberAddRequest -> MemberAddRequest
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 :: MemberAddRequest -> MemberAddRequest -> Ordering
compare :: MemberAddRequest -> MemberAddRequest -> Ordering
$c< :: MemberAddRequest -> MemberAddRequest -> Bool
< :: MemberAddRequest -> MemberAddRequest -> Bool
$c<= :: MemberAddRequest -> MemberAddRequest -> Bool
<= :: MemberAddRequest -> MemberAddRequest -> Bool
$c> :: MemberAddRequest -> MemberAddRequest -> Bool
> :: MemberAddRequest -> MemberAddRequest -> Bool
$c>= :: MemberAddRequest -> MemberAddRequest -> Bool
>= :: MemberAddRequest -> MemberAddRequest -> Bool
$cmax :: MemberAddRequest -> MemberAddRequest -> MemberAddRequest
max :: MemberAddRequest -> MemberAddRequest -> MemberAddRequest
$cmin :: MemberAddRequest -> MemberAddRequest -> MemberAddRequest
min :: MemberAddRequest -> MemberAddRequest -> MemberAddRequest
Prelude.Ord)
instance Prelude.Show MemberAddRequest where
  showsPrec :: Int -> MemberAddRequest -> ShowS
showsPrec Int
_ MemberAddRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MemberAddRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemberAddRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MemberAddRequest "peerURLs" [Data.Text.Text] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "peerURLs"
-> ([Text] -> f [Text]) -> MemberAddRequest -> f MemberAddRequest
fieldOf Proxy# "peerURLs"
_
    = ((Vector Text -> f (Vector Text))
 -> MemberAddRequest -> f MemberAddRequest)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> MemberAddRequest
-> f MemberAddRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberAddRequest -> Vector Text)
-> (MemberAddRequest -> Vector Text -> MemberAddRequest)
-> Lens
     MemberAddRequest MemberAddRequest (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberAddRequest -> Vector Text
_MemberAddRequest'peerURLs
           (\ MemberAddRequest
x__ Vector Text
y__ -> MemberAddRequest
x__ {_MemberAddRequest'peerURLs = y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Text
_ [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField MemberAddRequest "vec'peerURLs" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'peerURLs"
-> (Vector Text -> f (Vector Text))
-> MemberAddRequest
-> f MemberAddRequest
fieldOf Proxy# "vec'peerURLs"
_
    = ((Vector Text -> f (Vector Text))
 -> MemberAddRequest -> f MemberAddRequest)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> MemberAddRequest
-> f MemberAddRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberAddRequest -> Vector Text)
-> (MemberAddRequest -> Vector Text -> MemberAddRequest)
-> Lens
     MemberAddRequest MemberAddRequest (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberAddRequest -> Vector Text
_MemberAddRequest'peerURLs
           (\ MemberAddRequest
x__ Vector Text
y__ -> MemberAddRequest
x__ {_MemberAddRequest'peerURLs = y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemberAddRequest "isLearner" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "isLearner"
-> (Bool -> f Bool) -> MemberAddRequest -> f MemberAddRequest
fieldOf Proxy# "isLearner"
_
    = ((Bool -> f Bool) -> MemberAddRequest -> f MemberAddRequest)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> MemberAddRequest
-> f MemberAddRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberAddRequest -> Bool)
-> (MemberAddRequest -> Bool -> MemberAddRequest)
-> Lens MemberAddRequest MemberAddRequest Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberAddRequest -> Bool
_MemberAddRequest'isLearner
           (\ MemberAddRequest
x__ Bool
y__ -> MemberAddRequest
x__ {_MemberAddRequest'isLearner = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemberAddRequest where
  messageName :: Proxy MemberAddRequest -> Text
messageName Proxy MemberAddRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.MemberAddRequest"
  packedMessageDescriptor :: Proxy MemberAddRequest -> ByteString
packedMessageDescriptor Proxy MemberAddRequest
_
    = ByteString
"\n\
      \\DLEMemberAddRequest\DC2\SUB\n\
      \\bpeerURLs\CAN\SOH \ETX(\tR\bpeerURLs\DC2%\n\
      \\tisLearner\CAN\STX \SOH(\bR\tisLearnerB\a\138\181\CAN\ETX3.4:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy MemberAddRequest -> ByteString
packedFileDescriptor Proxy MemberAddRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MemberAddRequest)
fieldsByTag
    = let
        peerURLs__field_descriptor :: FieldDescriptor MemberAddRequest
peerURLs__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor MemberAddRequest Text
-> FieldDescriptor MemberAddRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"peerURLs"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing
-> Lens' MemberAddRequest [Text]
-> FieldAccessor MemberAddRequest Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"peerURLs")) ::
              Data.ProtoLens.FieldDescriptor MemberAddRequest
        isLearner__field_descriptor :: FieldDescriptor MemberAddRequest
isLearner__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor MemberAddRequest Bool
-> FieldDescriptor MemberAddRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"isLearner"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens MemberAddRequest MemberAddRequest Bool Bool
-> FieldAccessor MemberAddRequest Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"isLearner")) ::
              Data.ProtoLens.FieldDescriptor MemberAddRequest
      in
        [(Tag, FieldDescriptor MemberAddRequest)]
-> Map Tag (FieldDescriptor MemberAddRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MemberAddRequest
peerURLs__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor MemberAddRequest
isLearner__field_descriptor)]
  unknownFields :: Lens' MemberAddRequest FieldSet
unknownFields
    = (MemberAddRequest -> FieldSet)
-> (MemberAddRequest -> FieldSet -> MemberAddRequest)
-> Lens' MemberAddRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MemberAddRequest -> FieldSet
_MemberAddRequest'_unknownFields
        (\ MemberAddRequest
x__ FieldSet
y__ -> MemberAddRequest
x__ {_MemberAddRequest'_unknownFields = y__})
  defMessage :: MemberAddRequest
defMessage
    = MemberAddRequest'_constructor
        {_MemberAddRequest'peerURLs :: Vector Text
_MemberAddRequest'peerURLs = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MemberAddRequest'isLearner :: Bool
_MemberAddRequest'isLearner = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MemberAddRequest'_unknownFields :: FieldSet
_MemberAddRequest'_unknownFields = []}
  parseMessage :: Parser MemberAddRequest
parseMessage
    = let
        loop ::
          MemberAddRequest
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
             -> Data.ProtoLens.Encoding.Bytes.Parser MemberAddRequest
        loop :: MemberAddRequest
-> Growing Vector RealWorld Text -> Parser MemberAddRequest
loop MemberAddRequest
x Growing Vector RealWorld Text
mutable'peerURLs
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'peerURLs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                           (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                              mutable'peerURLs)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'peerURLs") frozen'peerURLs x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.getText
                                              (Prelude.fromIntegral len))
                                        String
"peerURLs"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'peerURLs y)
                                loop x v
                        Word64
16
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"isLearner"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"isLearner") y x)
                                  mutable'peerURLs
                        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)
                                  mutable'peerURLs
      in
        Parser MemberAddRequest -> String -> Parser MemberAddRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'peerURLs <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                    IO (Growing Vector RealWorld Text)
IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'peerURLs)
          String
"MemberAddRequest"
  buildMessage :: MemberAddRequest -> Builder
buildMessage
    = \ MemberAddRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ Text
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                           Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (FoldLike
  (Vector Text)
  MemberAddRequest
  MemberAddRequest
  (Vector Text)
  (Vector Text)
-> MemberAddRequest -> Vector Text
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 @"vec'peerURLs") MemberAddRequest
_x))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Bool
_v = FoldLike Bool MemberAddRequest MemberAddRequest Bool Bool
-> MemberAddRequest -> Bool
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 @"isLearner") MemberAddRequest
_x
                 in
                   if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                            Bool
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet MemberAddRequest MemberAddRequest FieldSet FieldSet
-> MemberAddRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet MemberAddRequest MemberAddRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MemberAddRequest FieldSet
Data.ProtoLens.unknownFields MemberAddRequest
_x)))
instance Control.DeepSeq.NFData MemberAddRequest where
  rnf :: MemberAddRequest -> ()
rnf
    = \ MemberAddRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MemberAddRequest -> FieldSet
_MemberAddRequest'_unknownFields MemberAddRequest
x__)
             (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MemberAddRequest -> Vector Text
_MemberAddRequest'peerURLs MemberAddRequest
x__)
                (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MemberAddRequest -> Bool
_MemberAddRequest'isLearner MemberAddRequest
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' MemberAddResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' MemberAddResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.member' @:: Lens' MemberAddResponse Member@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'member' @:: Lens' MemberAddResponse (Prelude.Maybe Member)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.members' @:: Lens' MemberAddResponse [Member]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'members' @:: Lens' MemberAddResponse (Data.Vector.Vector Member)@ -}
data MemberAddResponse
  = MemberAddResponse'_constructor {MemberAddResponse -> Maybe ResponseHeader
_MemberAddResponse'header :: !(Prelude.Maybe ResponseHeader),
                                    MemberAddResponse -> Maybe Member
_MemberAddResponse'member :: !(Prelude.Maybe Member),
                                    MemberAddResponse -> Vector Member
_MemberAddResponse'members :: !(Data.Vector.Vector Member),
                                    MemberAddResponse -> FieldSet
_MemberAddResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MemberAddResponse -> MemberAddResponse -> Bool
(MemberAddResponse -> MemberAddResponse -> Bool)
-> (MemberAddResponse -> MemberAddResponse -> Bool)
-> Eq MemberAddResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MemberAddResponse -> MemberAddResponse -> Bool
== :: MemberAddResponse -> MemberAddResponse -> Bool
$c/= :: MemberAddResponse -> MemberAddResponse -> Bool
/= :: MemberAddResponse -> MemberAddResponse -> Bool
Prelude.Eq, Eq MemberAddResponse
Eq MemberAddResponse =>
(MemberAddResponse -> MemberAddResponse -> Ordering)
-> (MemberAddResponse -> MemberAddResponse -> Bool)
-> (MemberAddResponse -> MemberAddResponse -> Bool)
-> (MemberAddResponse -> MemberAddResponse -> Bool)
-> (MemberAddResponse -> MemberAddResponse -> Bool)
-> (MemberAddResponse -> MemberAddResponse -> MemberAddResponse)
-> (MemberAddResponse -> MemberAddResponse -> MemberAddResponse)
-> Ord MemberAddResponse
MemberAddResponse -> MemberAddResponse -> Bool
MemberAddResponse -> MemberAddResponse -> Ordering
MemberAddResponse -> MemberAddResponse -> MemberAddResponse
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 :: MemberAddResponse -> MemberAddResponse -> Ordering
compare :: MemberAddResponse -> MemberAddResponse -> Ordering
$c< :: MemberAddResponse -> MemberAddResponse -> Bool
< :: MemberAddResponse -> MemberAddResponse -> Bool
$c<= :: MemberAddResponse -> MemberAddResponse -> Bool
<= :: MemberAddResponse -> MemberAddResponse -> Bool
$c> :: MemberAddResponse -> MemberAddResponse -> Bool
> :: MemberAddResponse -> MemberAddResponse -> Bool
$c>= :: MemberAddResponse -> MemberAddResponse -> Bool
>= :: MemberAddResponse -> MemberAddResponse -> Bool
$cmax :: MemberAddResponse -> MemberAddResponse -> MemberAddResponse
max :: MemberAddResponse -> MemberAddResponse -> MemberAddResponse
$cmin :: MemberAddResponse -> MemberAddResponse -> MemberAddResponse
min :: MemberAddResponse -> MemberAddResponse -> MemberAddResponse
Prelude.Ord)
instance Prelude.Show MemberAddResponse where
  showsPrec :: Int -> MemberAddResponse -> ShowS
showsPrec Int
_ MemberAddResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MemberAddResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemberAddResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MemberAddResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> MemberAddResponse
-> f MemberAddResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> MemberAddResponse -> f MemberAddResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> MemberAddResponse
-> f MemberAddResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberAddResponse -> Maybe ResponseHeader)
-> (MemberAddResponse -> Maybe ResponseHeader -> MemberAddResponse)
-> Lens
     MemberAddResponse
     MemberAddResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberAddResponse -> Maybe ResponseHeader
_MemberAddResponse'header
           (\ MemberAddResponse
x__ Maybe ResponseHeader
y__ -> MemberAddResponse
x__ {_MemberAddResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MemberAddResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> MemberAddResponse
-> f MemberAddResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> MemberAddResponse -> f MemberAddResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> MemberAddResponse
-> f MemberAddResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberAddResponse -> Maybe ResponseHeader)
-> (MemberAddResponse -> Maybe ResponseHeader -> MemberAddResponse)
-> Lens
     MemberAddResponse
     MemberAddResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberAddResponse -> Maybe ResponseHeader
_MemberAddResponse'header
           (\ MemberAddResponse
x__ Maybe ResponseHeader
y__ -> MemberAddResponse
x__ {_MemberAddResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemberAddResponse "member" Member where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "member"
-> (Member -> f Member) -> MemberAddResponse -> f MemberAddResponse
fieldOf Proxy# "member"
_
    = ((Maybe Member -> f (Maybe Member))
 -> MemberAddResponse -> f MemberAddResponse)
-> ((Member -> f Member) -> Maybe Member -> f (Maybe Member))
-> (Member -> f Member)
-> MemberAddResponse
-> f MemberAddResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberAddResponse -> Maybe Member)
-> (MemberAddResponse -> Maybe Member -> MemberAddResponse)
-> Lens
     MemberAddResponse MemberAddResponse (Maybe Member) (Maybe Member)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberAddResponse -> Maybe Member
_MemberAddResponse'member
           (\ MemberAddResponse
x__ Maybe Member
y__ -> MemberAddResponse
x__ {_MemberAddResponse'member = y__}))
        (Member -> Lens' (Maybe Member) Member
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Member
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MemberAddResponse "maybe'member" (Prelude.Maybe Member) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'member"
-> (Maybe Member -> f (Maybe Member))
-> MemberAddResponse
-> f MemberAddResponse
fieldOf Proxy# "maybe'member"
_
    = ((Maybe Member -> f (Maybe Member))
 -> MemberAddResponse -> f MemberAddResponse)
-> ((Maybe Member -> f (Maybe Member))
    -> Maybe Member -> f (Maybe Member))
-> (Maybe Member -> f (Maybe Member))
-> MemberAddResponse
-> f MemberAddResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberAddResponse -> Maybe Member)
-> (MemberAddResponse -> Maybe Member -> MemberAddResponse)
-> Lens
     MemberAddResponse MemberAddResponse (Maybe Member) (Maybe Member)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberAddResponse -> Maybe Member
_MemberAddResponse'member
           (\ MemberAddResponse
x__ Maybe Member
y__ -> MemberAddResponse
x__ {_MemberAddResponse'member = y__}))
        (Maybe Member -> f (Maybe Member))
-> Maybe Member -> f (Maybe Member)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemberAddResponse "members" [Member] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "members"
-> ([Member] -> f [Member])
-> MemberAddResponse
-> f MemberAddResponse
fieldOf Proxy# "members"
_
    = ((Vector Member -> f (Vector Member))
 -> MemberAddResponse -> f MemberAddResponse)
-> (([Member] -> f [Member]) -> Vector Member -> f (Vector Member))
-> ([Member] -> f [Member])
-> MemberAddResponse
-> f MemberAddResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberAddResponse -> Vector Member)
-> (MemberAddResponse -> Vector Member -> MemberAddResponse)
-> Lens
     MemberAddResponse MemberAddResponse (Vector Member) (Vector Member)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberAddResponse -> Vector Member
_MemberAddResponse'members
           (\ MemberAddResponse
x__ Vector Member
y__ -> MemberAddResponse
x__ {_MemberAddResponse'members = y__}))
        ((Vector Member -> [Member])
-> (Vector Member -> [Member] -> Vector Member)
-> Lens (Vector Member) (Vector Member) [Member] [Member]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Member -> [Member]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Member
_ [Member]
y__ -> [Member] -> Vector Member
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Member]
y__))
instance Data.ProtoLens.Field.HasField MemberAddResponse "vec'members" (Data.Vector.Vector Member) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'members"
-> (Vector Member -> f (Vector Member))
-> MemberAddResponse
-> f MemberAddResponse
fieldOf Proxy# "vec'members"
_
    = ((Vector Member -> f (Vector Member))
 -> MemberAddResponse -> f MemberAddResponse)
-> ((Vector Member -> f (Vector Member))
    -> Vector Member -> f (Vector Member))
-> (Vector Member -> f (Vector Member))
-> MemberAddResponse
-> f MemberAddResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberAddResponse -> Vector Member)
-> (MemberAddResponse -> Vector Member -> MemberAddResponse)
-> Lens
     MemberAddResponse MemberAddResponse (Vector Member) (Vector Member)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberAddResponse -> Vector Member
_MemberAddResponse'members
           (\ MemberAddResponse
x__ Vector Member
y__ -> MemberAddResponse
x__ {_MemberAddResponse'members = y__}))
        (Vector Member -> f (Vector Member))
-> Vector Member -> f (Vector Member)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemberAddResponse where
  messageName :: Proxy MemberAddResponse -> Text
messageName Proxy MemberAddResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.MemberAddResponse"
  packedMessageDescriptor :: Proxy MemberAddResponse -> ByteString
packedMessageDescriptor Proxy MemberAddResponse
_
    = ByteString
"\n\
      \\DC1MemberAddResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2,\n\
      \\ACKmember\CAN\STX \SOH(\v2\DC4.etcdserverpb.MemberR\ACKmember\DC2.\n\
      \\amembers\CAN\ETX \ETX(\v2\DC4.etcdserverpb.MemberR\amembers:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy MemberAddResponse -> ByteString
packedFileDescriptor Proxy MemberAddResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MemberAddResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor MemberAddResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor MemberAddResponse ResponseHeader
-> FieldDescriptor MemberAddResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  MemberAddResponse
  MemberAddResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor MemberAddResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor MemberAddResponse
        member__field_descriptor :: FieldDescriptor MemberAddResponse
member__field_descriptor
          = String
-> FieldTypeDescriptor Member
-> FieldAccessor MemberAddResponse Member
-> FieldDescriptor MemberAddResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"member"
              (MessageOrGroup -> FieldTypeDescriptor Member
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Member)
              (Lens
  MemberAddResponse MemberAddResponse (Maybe Member) (Maybe Member)
-> FieldAccessor MemberAddResponse Member
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'member")) ::
              Data.ProtoLens.FieldDescriptor MemberAddResponse
        members__field_descriptor :: FieldDescriptor MemberAddResponse
members__field_descriptor
          = String
-> FieldTypeDescriptor Member
-> FieldAccessor MemberAddResponse Member
-> FieldDescriptor MemberAddResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"members"
              (MessageOrGroup -> FieldTypeDescriptor Member
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Member)
              (Packing
-> Lens' MemberAddResponse [Member]
-> FieldAccessor MemberAddResponse Member
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"members")) ::
              Data.ProtoLens.FieldDescriptor MemberAddResponse
      in
        [(Tag, FieldDescriptor MemberAddResponse)]
-> Map Tag (FieldDescriptor MemberAddResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MemberAddResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor MemberAddResponse
member__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor MemberAddResponse
members__field_descriptor)]
  unknownFields :: Lens' MemberAddResponse FieldSet
unknownFields
    = (MemberAddResponse -> FieldSet)
-> (MemberAddResponse -> FieldSet -> MemberAddResponse)
-> Lens' MemberAddResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MemberAddResponse -> FieldSet
_MemberAddResponse'_unknownFields
        (\ MemberAddResponse
x__ FieldSet
y__ -> MemberAddResponse
x__ {_MemberAddResponse'_unknownFields = y__})
  defMessage :: MemberAddResponse
defMessage
    = MemberAddResponse'_constructor
        {_MemberAddResponse'header :: Maybe ResponseHeader
_MemberAddResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _MemberAddResponse'member :: Maybe Member
_MemberAddResponse'member = Maybe Member
forall a. Maybe a
Prelude.Nothing,
         _MemberAddResponse'members :: Vector Member
_MemberAddResponse'members = Vector Member
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MemberAddResponse'_unknownFields :: FieldSet
_MemberAddResponse'_unknownFields = []}
  parseMessage :: Parser MemberAddResponse
parseMessage
    = let
        loop ::
          MemberAddResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Member
             -> Data.ProtoLens.Encoding.Bytes.Parser MemberAddResponse
        loop :: MemberAddResponse
-> Growing Vector RealWorld Member -> Parser MemberAddResponse
loop MemberAddResponse
x Growing Vector RealWorld Member
mutable'members
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'members <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'members)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'members") frozen'members x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'members
                        Word64
18
                          -> do y <- Parser Member -> String -> Parser Member
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
"member"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"member") y x)
                                  mutable'members
                        Word64
26
                          -> do !y <- Parser Member -> String -> Parser Member
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
"members"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'members y)
                                loop x v
                        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)
                                  mutable'members
      in
        Parser MemberAddResponse -> String -> Parser MemberAddResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'members <- IO (Growing Vector RealWorld Member)
-> Parser (Growing Vector RealWorld Member)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld Member)
IO (Growing Vector (PrimState IO) Member)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'members)
          String
"MemberAddResponse"
  buildMessage :: MemberAddResponse -> Builder
buildMessage
    = \ MemberAddResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  MemberAddResponse
  MemberAddResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> MemberAddResponse -> Maybe ResponseHeader
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'header") MemberAddResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Member)
  MemberAddResponse
  MemberAddResponse
  (Maybe Member)
  (Maybe Member)
-> MemberAddResponse -> Maybe Member
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'member") MemberAddResponse
_x
                 of
                   Maybe Member
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just Member
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (Member -> ByteString) -> Member -> 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))
                             Member -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Member
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((Member -> Builder) -> Vector Member -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ Member
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                              ((ByteString -> Builder)
-> (Member -> ByteString) -> Member -> 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))
                                 Member -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Member
_v))
                      (FoldLike
  (Vector Member)
  MemberAddResponse
  MemberAddResponse
  (Vector Member)
  (Vector Member)
-> MemberAddResponse -> Vector Member
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 @"vec'members") MemberAddResponse
_x))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet MemberAddResponse MemberAddResponse FieldSet FieldSet
-> MemberAddResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet MemberAddResponse MemberAddResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MemberAddResponse FieldSet
Data.ProtoLens.unknownFields MemberAddResponse
_x))))
instance Control.DeepSeq.NFData MemberAddResponse where
  rnf :: MemberAddResponse -> ()
rnf
    = \ MemberAddResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MemberAddResponse -> FieldSet
_MemberAddResponse'_unknownFields MemberAddResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MemberAddResponse -> Maybe ResponseHeader
_MemberAddResponse'header MemberAddResponse
x__)
                (Maybe Member -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (MemberAddResponse -> Maybe Member
_MemberAddResponse'member MemberAddResponse
x__)
                   (Vector Member -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MemberAddResponse -> Vector Member
_MemberAddResponse'members MemberAddResponse
x__) ())))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.linearizable' @:: Lens' MemberListRequest Prelude.Bool@ -}
data MemberListRequest
  = MemberListRequest'_constructor {MemberListRequest -> Bool
_MemberListRequest'linearizable :: !Prelude.Bool,
                                    MemberListRequest -> FieldSet
_MemberListRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MemberListRequest -> MemberListRequest -> Bool
(MemberListRequest -> MemberListRequest -> Bool)
-> (MemberListRequest -> MemberListRequest -> Bool)
-> Eq MemberListRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MemberListRequest -> MemberListRequest -> Bool
== :: MemberListRequest -> MemberListRequest -> Bool
$c/= :: MemberListRequest -> MemberListRequest -> Bool
/= :: MemberListRequest -> MemberListRequest -> Bool
Prelude.Eq, Eq MemberListRequest
Eq MemberListRequest =>
(MemberListRequest -> MemberListRequest -> Ordering)
-> (MemberListRequest -> MemberListRequest -> Bool)
-> (MemberListRequest -> MemberListRequest -> Bool)
-> (MemberListRequest -> MemberListRequest -> Bool)
-> (MemberListRequest -> MemberListRequest -> Bool)
-> (MemberListRequest -> MemberListRequest -> MemberListRequest)
-> (MemberListRequest -> MemberListRequest -> MemberListRequest)
-> Ord MemberListRequest
MemberListRequest -> MemberListRequest -> Bool
MemberListRequest -> MemberListRequest -> Ordering
MemberListRequest -> MemberListRequest -> MemberListRequest
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 :: MemberListRequest -> MemberListRequest -> Ordering
compare :: MemberListRequest -> MemberListRequest -> Ordering
$c< :: MemberListRequest -> MemberListRequest -> Bool
< :: MemberListRequest -> MemberListRequest -> Bool
$c<= :: MemberListRequest -> MemberListRequest -> Bool
<= :: MemberListRequest -> MemberListRequest -> Bool
$c> :: MemberListRequest -> MemberListRequest -> Bool
> :: MemberListRequest -> MemberListRequest -> Bool
$c>= :: MemberListRequest -> MemberListRequest -> Bool
>= :: MemberListRequest -> MemberListRequest -> Bool
$cmax :: MemberListRequest -> MemberListRequest -> MemberListRequest
max :: MemberListRequest -> MemberListRequest -> MemberListRequest
$cmin :: MemberListRequest -> MemberListRequest -> MemberListRequest
min :: MemberListRequest -> MemberListRequest -> MemberListRequest
Prelude.Ord)
instance Prelude.Show MemberListRequest where
  showsPrec :: Int -> MemberListRequest -> ShowS
showsPrec Int
_ MemberListRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MemberListRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemberListRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MemberListRequest "linearizable" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "linearizable"
-> (Bool -> f Bool) -> MemberListRequest -> f MemberListRequest
fieldOf Proxy# "linearizable"
_
    = ((Bool -> f Bool) -> MemberListRequest -> f MemberListRequest)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> MemberListRequest
-> f MemberListRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberListRequest -> Bool)
-> (MemberListRequest -> Bool -> MemberListRequest)
-> Lens MemberListRequest MemberListRequest Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberListRequest -> Bool
_MemberListRequest'linearizable
           (\ MemberListRequest
x__ Bool
y__ -> MemberListRequest
x__ {_MemberListRequest'linearizable = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemberListRequest where
  messageName :: Proxy MemberListRequest -> Text
messageName Proxy MemberListRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.MemberListRequest"
  packedMessageDescriptor :: Proxy MemberListRequest -> ByteString
packedMessageDescriptor Proxy MemberListRequest
_
    = ByteString
"\n\
      \\DC1MemberListRequest\DC2+\n\
      \\flinearizable\CAN\SOH \SOH(\bR\flinearizableB\a\138\181\CAN\ETX3.5:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy MemberListRequest -> ByteString
packedFileDescriptor Proxy MemberListRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MemberListRequest)
fieldsByTag
    = let
        linearizable__field_descriptor :: FieldDescriptor MemberListRequest
linearizable__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor MemberListRequest Bool
-> FieldDescriptor MemberListRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"linearizable"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens MemberListRequest MemberListRequest Bool Bool
-> FieldAccessor MemberListRequest Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"linearizable")) ::
              Data.ProtoLens.FieldDescriptor MemberListRequest
      in
        [(Tag, FieldDescriptor MemberListRequest)]
-> Map Tag (FieldDescriptor MemberListRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MemberListRequest
linearizable__field_descriptor)]
  unknownFields :: Lens' MemberListRequest FieldSet
unknownFields
    = (MemberListRequest -> FieldSet)
-> (MemberListRequest -> FieldSet -> MemberListRequest)
-> Lens' MemberListRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MemberListRequest -> FieldSet
_MemberListRequest'_unknownFields
        (\ MemberListRequest
x__ FieldSet
y__ -> MemberListRequest
x__ {_MemberListRequest'_unknownFields = y__})
  defMessage :: MemberListRequest
defMessage
    = MemberListRequest'_constructor
        {_MemberListRequest'linearizable :: Bool
_MemberListRequest'linearizable = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MemberListRequest'_unknownFields :: FieldSet
_MemberListRequest'_unknownFields = []}
  parseMessage :: Parser MemberListRequest
parseMessage
    = let
        loop ::
          MemberListRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser MemberListRequest
        loop :: MemberListRequest -> Parser MemberListRequest
loop MemberListRequest
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 Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"linearizable"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"linearizable") 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 MemberListRequest -> String -> Parser MemberListRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do MemberListRequest -> Parser MemberListRequest
loop MemberListRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"MemberListRequest"
  buildMessage :: MemberListRequest -> Builder
buildMessage
    = \ MemberListRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Bool
_v
                  = FoldLike Bool MemberListRequest MemberListRequest Bool Bool
-> MemberListRequest -> Bool
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 @"linearizable") MemberListRequest
_x
              in
                if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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)
                      ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                         Bool
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet MemberListRequest MemberListRequest FieldSet FieldSet
-> MemberListRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet MemberListRequest MemberListRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MemberListRequest FieldSet
Data.ProtoLens.unknownFields MemberListRequest
_x))
instance Control.DeepSeq.NFData MemberListRequest where
  rnf :: MemberListRequest -> ()
rnf
    = \ MemberListRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MemberListRequest -> FieldSet
_MemberListRequest'_unknownFields MemberListRequest
x__)
             (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MemberListRequest -> Bool
_MemberListRequest'linearizable MemberListRequest
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' MemberListResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' MemberListResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.members' @:: Lens' MemberListResponse [Member]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'members' @:: Lens' MemberListResponse (Data.Vector.Vector Member)@ -}
data MemberListResponse
  = MemberListResponse'_constructor {MemberListResponse -> Maybe ResponseHeader
_MemberListResponse'header :: !(Prelude.Maybe ResponseHeader),
                                     MemberListResponse -> Vector Member
_MemberListResponse'members :: !(Data.Vector.Vector Member),
                                     MemberListResponse -> FieldSet
_MemberListResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MemberListResponse -> MemberListResponse -> Bool
(MemberListResponse -> MemberListResponse -> Bool)
-> (MemberListResponse -> MemberListResponse -> Bool)
-> Eq MemberListResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MemberListResponse -> MemberListResponse -> Bool
== :: MemberListResponse -> MemberListResponse -> Bool
$c/= :: MemberListResponse -> MemberListResponse -> Bool
/= :: MemberListResponse -> MemberListResponse -> Bool
Prelude.Eq, Eq MemberListResponse
Eq MemberListResponse =>
(MemberListResponse -> MemberListResponse -> Ordering)
-> (MemberListResponse -> MemberListResponse -> Bool)
-> (MemberListResponse -> MemberListResponse -> Bool)
-> (MemberListResponse -> MemberListResponse -> Bool)
-> (MemberListResponse -> MemberListResponse -> Bool)
-> (MemberListResponse -> MemberListResponse -> MemberListResponse)
-> (MemberListResponse -> MemberListResponse -> MemberListResponse)
-> Ord MemberListResponse
MemberListResponse -> MemberListResponse -> Bool
MemberListResponse -> MemberListResponse -> Ordering
MemberListResponse -> MemberListResponse -> MemberListResponse
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 :: MemberListResponse -> MemberListResponse -> Ordering
compare :: MemberListResponse -> MemberListResponse -> Ordering
$c< :: MemberListResponse -> MemberListResponse -> Bool
< :: MemberListResponse -> MemberListResponse -> Bool
$c<= :: MemberListResponse -> MemberListResponse -> Bool
<= :: MemberListResponse -> MemberListResponse -> Bool
$c> :: MemberListResponse -> MemberListResponse -> Bool
> :: MemberListResponse -> MemberListResponse -> Bool
$c>= :: MemberListResponse -> MemberListResponse -> Bool
>= :: MemberListResponse -> MemberListResponse -> Bool
$cmax :: MemberListResponse -> MemberListResponse -> MemberListResponse
max :: MemberListResponse -> MemberListResponse -> MemberListResponse
$cmin :: MemberListResponse -> MemberListResponse -> MemberListResponse
min :: MemberListResponse -> MemberListResponse -> MemberListResponse
Prelude.Ord)
instance Prelude.Show MemberListResponse where
  showsPrec :: Int -> MemberListResponse -> ShowS
showsPrec Int
_ MemberListResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MemberListResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemberListResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MemberListResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> MemberListResponse
-> f MemberListResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> MemberListResponse -> f MemberListResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> MemberListResponse
-> f MemberListResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberListResponse -> Maybe ResponseHeader)
-> (MemberListResponse
    -> Maybe ResponseHeader -> MemberListResponse)
-> Lens
     MemberListResponse
     MemberListResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberListResponse -> Maybe ResponseHeader
_MemberListResponse'header
           (\ MemberListResponse
x__ Maybe ResponseHeader
y__ -> MemberListResponse
x__ {_MemberListResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MemberListResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> MemberListResponse
-> f MemberListResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> MemberListResponse -> f MemberListResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> MemberListResponse
-> f MemberListResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberListResponse -> Maybe ResponseHeader)
-> (MemberListResponse
    -> Maybe ResponseHeader -> MemberListResponse)
-> Lens
     MemberListResponse
     MemberListResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberListResponse -> Maybe ResponseHeader
_MemberListResponse'header
           (\ MemberListResponse
x__ Maybe ResponseHeader
y__ -> MemberListResponse
x__ {_MemberListResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemberListResponse "members" [Member] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "members"
-> ([Member] -> f [Member])
-> MemberListResponse
-> f MemberListResponse
fieldOf Proxy# "members"
_
    = ((Vector Member -> f (Vector Member))
 -> MemberListResponse -> f MemberListResponse)
-> (([Member] -> f [Member]) -> Vector Member -> f (Vector Member))
-> ([Member] -> f [Member])
-> MemberListResponse
-> f MemberListResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberListResponse -> Vector Member)
-> (MemberListResponse -> Vector Member -> MemberListResponse)
-> Lens
     MemberListResponse
     MemberListResponse
     (Vector Member)
     (Vector Member)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberListResponse -> Vector Member
_MemberListResponse'members
           (\ MemberListResponse
x__ Vector Member
y__ -> MemberListResponse
x__ {_MemberListResponse'members = y__}))
        ((Vector Member -> [Member])
-> (Vector Member -> [Member] -> Vector Member)
-> Lens (Vector Member) (Vector Member) [Member] [Member]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Member -> [Member]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Member
_ [Member]
y__ -> [Member] -> Vector Member
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Member]
y__))
instance Data.ProtoLens.Field.HasField MemberListResponse "vec'members" (Data.Vector.Vector Member) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'members"
-> (Vector Member -> f (Vector Member))
-> MemberListResponse
-> f MemberListResponse
fieldOf Proxy# "vec'members"
_
    = ((Vector Member -> f (Vector Member))
 -> MemberListResponse -> f MemberListResponse)
-> ((Vector Member -> f (Vector Member))
    -> Vector Member -> f (Vector Member))
-> (Vector Member -> f (Vector Member))
-> MemberListResponse
-> f MemberListResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberListResponse -> Vector Member)
-> (MemberListResponse -> Vector Member -> MemberListResponse)
-> Lens
     MemberListResponse
     MemberListResponse
     (Vector Member)
     (Vector Member)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberListResponse -> Vector Member
_MemberListResponse'members
           (\ MemberListResponse
x__ Vector Member
y__ -> MemberListResponse
x__ {_MemberListResponse'members = y__}))
        (Vector Member -> f (Vector Member))
-> Vector Member -> f (Vector Member)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemberListResponse where
  messageName :: Proxy MemberListResponse -> Text
messageName Proxy MemberListResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.MemberListResponse"
  packedMessageDescriptor :: Proxy MemberListResponse -> ByteString
packedMessageDescriptor Proxy MemberListResponse
_
    = ByteString
"\n\
      \\DC2MemberListResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2.\n\
      \\amembers\CAN\STX \ETX(\v2\DC4.etcdserverpb.MemberR\amembers:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy MemberListResponse -> ByteString
packedFileDescriptor Proxy MemberListResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MemberListResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor MemberListResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor MemberListResponse ResponseHeader
-> FieldDescriptor MemberListResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  MemberListResponse
  MemberListResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor MemberListResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor MemberListResponse
        members__field_descriptor :: FieldDescriptor MemberListResponse
members__field_descriptor
          = String
-> FieldTypeDescriptor Member
-> FieldAccessor MemberListResponse Member
-> FieldDescriptor MemberListResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"members"
              (MessageOrGroup -> FieldTypeDescriptor Member
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Member)
              (Packing
-> Lens' MemberListResponse [Member]
-> FieldAccessor MemberListResponse Member
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"members")) ::
              Data.ProtoLens.FieldDescriptor MemberListResponse
      in
        [(Tag, FieldDescriptor MemberListResponse)]
-> Map Tag (FieldDescriptor MemberListResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MemberListResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor MemberListResponse
members__field_descriptor)]
  unknownFields :: Lens' MemberListResponse FieldSet
unknownFields
    = (MemberListResponse -> FieldSet)
-> (MemberListResponse -> FieldSet -> MemberListResponse)
-> Lens' MemberListResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MemberListResponse -> FieldSet
_MemberListResponse'_unknownFields
        (\ MemberListResponse
x__ FieldSet
y__ -> MemberListResponse
x__ {_MemberListResponse'_unknownFields = y__})
  defMessage :: MemberListResponse
defMessage
    = MemberListResponse'_constructor
        {_MemberListResponse'header :: Maybe ResponseHeader
_MemberListResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _MemberListResponse'members :: Vector Member
_MemberListResponse'members = Vector Member
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MemberListResponse'_unknownFields :: FieldSet
_MemberListResponse'_unknownFields = []}
  parseMessage :: Parser MemberListResponse
parseMessage
    = let
        loop ::
          MemberListResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Member
             -> Data.ProtoLens.Encoding.Bytes.Parser MemberListResponse
        loop :: MemberListResponse
-> Growing Vector RealWorld Member -> Parser MemberListResponse
loop MemberListResponse
x Growing Vector RealWorld Member
mutable'members
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'members <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'members)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'members") frozen'members x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'members
                        Word64
18
                          -> do !y <- Parser Member -> String -> Parser Member
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
"members"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'members y)
                                loop x v
                        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)
                                  mutable'members
      in
        Parser MemberListResponse -> String -> Parser MemberListResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'members <- IO (Growing Vector RealWorld Member)
-> Parser (Growing Vector RealWorld Member)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld Member)
IO (Growing Vector (PrimState IO) Member)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'members)
          String
"MemberListResponse"
  buildMessage :: MemberListResponse -> Builder
buildMessage
    = \ MemberListResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  MemberListResponse
  MemberListResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> MemberListResponse -> Maybe ResponseHeader
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'header") MemberListResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((Member -> Builder) -> Vector Member -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ Member
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (Member -> ByteString) -> Member -> 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))
                              Member -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Member
_v))
                   (FoldLike
  (Vector Member)
  MemberListResponse
  MemberListResponse
  (Vector Member)
  (Vector Member)
-> MemberListResponse -> Vector Member
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 @"vec'members") MemberListResponse
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet MemberListResponse MemberListResponse FieldSet FieldSet
-> MemberListResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet MemberListResponse MemberListResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MemberListResponse FieldSet
Data.ProtoLens.unknownFields MemberListResponse
_x)))
instance Control.DeepSeq.NFData MemberListResponse where
  rnf :: MemberListResponse -> ()
rnf
    = \ MemberListResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MemberListResponse -> FieldSet
_MemberListResponse'_unknownFields MemberListResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MemberListResponse -> Maybe ResponseHeader
_MemberListResponse'header MemberListResponse
x__)
                (Vector Member -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MemberListResponse -> Vector Member
_MemberListResponse'members MemberListResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.id' @:: Lens' MemberPromoteRequest Data.Word.Word64@ -}
data MemberPromoteRequest
  = MemberPromoteRequest'_constructor {MemberPromoteRequest -> Word64
_MemberPromoteRequest'id :: !Data.Word.Word64,
                                       MemberPromoteRequest -> FieldSet
_MemberPromoteRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MemberPromoteRequest -> MemberPromoteRequest -> Bool
(MemberPromoteRequest -> MemberPromoteRequest -> Bool)
-> (MemberPromoteRequest -> MemberPromoteRequest -> Bool)
-> Eq MemberPromoteRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MemberPromoteRequest -> MemberPromoteRequest -> Bool
== :: MemberPromoteRequest -> MemberPromoteRequest -> Bool
$c/= :: MemberPromoteRequest -> MemberPromoteRequest -> Bool
/= :: MemberPromoteRequest -> MemberPromoteRequest -> Bool
Prelude.Eq, Eq MemberPromoteRequest
Eq MemberPromoteRequest =>
(MemberPromoteRequest -> MemberPromoteRequest -> Ordering)
-> (MemberPromoteRequest -> MemberPromoteRequest -> Bool)
-> (MemberPromoteRequest -> MemberPromoteRequest -> Bool)
-> (MemberPromoteRequest -> MemberPromoteRequest -> Bool)
-> (MemberPromoteRequest -> MemberPromoteRequest -> Bool)
-> (MemberPromoteRequest
    -> MemberPromoteRequest -> MemberPromoteRequest)
-> (MemberPromoteRequest
    -> MemberPromoteRequest -> MemberPromoteRequest)
-> Ord MemberPromoteRequest
MemberPromoteRequest -> MemberPromoteRequest -> Bool
MemberPromoteRequest -> MemberPromoteRequest -> Ordering
MemberPromoteRequest
-> MemberPromoteRequest -> MemberPromoteRequest
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 :: MemberPromoteRequest -> MemberPromoteRequest -> Ordering
compare :: MemberPromoteRequest -> MemberPromoteRequest -> Ordering
$c< :: MemberPromoteRequest -> MemberPromoteRequest -> Bool
< :: MemberPromoteRequest -> MemberPromoteRequest -> Bool
$c<= :: MemberPromoteRequest -> MemberPromoteRequest -> Bool
<= :: MemberPromoteRequest -> MemberPromoteRequest -> Bool
$c> :: MemberPromoteRequest -> MemberPromoteRequest -> Bool
> :: MemberPromoteRequest -> MemberPromoteRequest -> Bool
$c>= :: MemberPromoteRequest -> MemberPromoteRequest -> Bool
>= :: MemberPromoteRequest -> MemberPromoteRequest -> Bool
$cmax :: MemberPromoteRequest
-> MemberPromoteRequest -> MemberPromoteRequest
max :: MemberPromoteRequest
-> MemberPromoteRequest -> MemberPromoteRequest
$cmin :: MemberPromoteRequest
-> MemberPromoteRequest -> MemberPromoteRequest
min :: MemberPromoteRequest
-> MemberPromoteRequest -> MemberPromoteRequest
Prelude.Ord)
instance Prelude.Show MemberPromoteRequest where
  showsPrec :: Int -> MemberPromoteRequest -> ShowS
showsPrec Int
_ MemberPromoteRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MemberPromoteRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemberPromoteRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MemberPromoteRequest "id" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id"
-> (Word64 -> f Word64)
-> MemberPromoteRequest
-> f MemberPromoteRequest
fieldOf Proxy# "id"
_
    = ((Word64 -> f Word64)
 -> MemberPromoteRequest -> f MemberPromoteRequest)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> MemberPromoteRequest
-> f MemberPromoteRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberPromoteRequest -> Word64)
-> (MemberPromoteRequest -> Word64 -> MemberPromoteRequest)
-> Lens MemberPromoteRequest MemberPromoteRequest Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberPromoteRequest -> Word64
_MemberPromoteRequest'id
           (\ MemberPromoteRequest
x__ Word64
y__ -> MemberPromoteRequest
x__ {_MemberPromoteRequest'id = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemberPromoteRequest where
  messageName :: Proxy MemberPromoteRequest -> Text
messageName Proxy MemberPromoteRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.MemberPromoteRequest"
  packedMessageDescriptor :: Proxy MemberPromoteRequest -> ByteString
packedMessageDescriptor Proxy MemberPromoteRequest
_
    = ByteString
"\n\
      \\DC4MemberPromoteRequest\DC2\SO\n\
      \\STXID\CAN\SOH \SOH(\EOTR\STXID:\a\130\181\CAN\ETX3.4"
  packedFileDescriptor :: Proxy MemberPromoteRequest -> ByteString
packedFileDescriptor Proxy MemberPromoteRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MemberPromoteRequest)
fieldsByTag
    = let
        id__field_descriptor :: FieldDescriptor MemberPromoteRequest
id__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor MemberPromoteRequest Word64
-> FieldDescriptor MemberPromoteRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ID"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens MemberPromoteRequest MemberPromoteRequest Word64 Word64
-> FieldAccessor MemberPromoteRequest Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"id")) ::
              Data.ProtoLens.FieldDescriptor MemberPromoteRequest
      in [(Tag, FieldDescriptor MemberPromoteRequest)]
-> Map Tag (FieldDescriptor MemberPromoteRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MemberPromoteRequest
id__field_descriptor)]
  unknownFields :: Lens' MemberPromoteRequest FieldSet
unknownFields
    = (MemberPromoteRequest -> FieldSet)
-> (MemberPromoteRequest -> FieldSet -> MemberPromoteRequest)
-> Lens' MemberPromoteRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MemberPromoteRequest -> FieldSet
_MemberPromoteRequest'_unknownFields
        (\ MemberPromoteRequest
x__ FieldSet
y__ -> MemberPromoteRequest
x__ {_MemberPromoteRequest'_unknownFields = y__})
  defMessage :: MemberPromoteRequest
defMessage
    = MemberPromoteRequest'_constructor
        {_MemberPromoteRequest'id :: Word64
_MemberPromoteRequest'id = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MemberPromoteRequest'_unknownFields :: FieldSet
_MemberPromoteRequest'_unknownFields = []}
  parseMessage :: Parser MemberPromoteRequest
parseMessage
    = let
        loop ::
          MemberPromoteRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser MemberPromoteRequest
        loop :: MemberPromoteRequest -> Parser MemberPromoteRequest
loop MemberPromoteRequest
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 Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"ID"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") 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 MemberPromoteRequest
-> String -> Parser MemberPromoteRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do MemberPromoteRequest -> Parser MemberPromoteRequest
loop MemberPromoteRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"MemberPromoteRequest"
  buildMessage :: MemberPromoteRequest -> Builder
buildMessage
    = \ MemberPromoteRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Word64
_v = FoldLike
  Word64 MemberPromoteRequest MemberPromoteRequest Word64 Word64
-> MemberPromoteRequest -> Word64
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 @"id") MemberPromoteRequest
_x
              in
                if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  MemberPromoteRequest
  MemberPromoteRequest
  FieldSet
  FieldSet
-> MemberPromoteRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  MemberPromoteRequest
  MemberPromoteRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MemberPromoteRequest FieldSet
Data.ProtoLens.unknownFields MemberPromoteRequest
_x))
instance Control.DeepSeq.NFData MemberPromoteRequest where
  rnf :: MemberPromoteRequest -> ()
rnf
    = \ MemberPromoteRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MemberPromoteRequest -> FieldSet
_MemberPromoteRequest'_unknownFields MemberPromoteRequest
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MemberPromoteRequest -> Word64
_MemberPromoteRequest'id MemberPromoteRequest
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' MemberPromoteResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' MemberPromoteResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.members' @:: Lens' MemberPromoteResponse [Member]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'members' @:: Lens' MemberPromoteResponse (Data.Vector.Vector Member)@ -}
data MemberPromoteResponse
  = MemberPromoteResponse'_constructor {MemberPromoteResponse -> Maybe ResponseHeader
_MemberPromoteResponse'header :: !(Prelude.Maybe ResponseHeader),
                                        MemberPromoteResponse -> Vector Member
_MemberPromoteResponse'members :: !(Data.Vector.Vector Member),
                                        MemberPromoteResponse -> FieldSet
_MemberPromoteResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MemberPromoteResponse -> MemberPromoteResponse -> Bool
(MemberPromoteResponse -> MemberPromoteResponse -> Bool)
-> (MemberPromoteResponse -> MemberPromoteResponse -> Bool)
-> Eq MemberPromoteResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MemberPromoteResponse -> MemberPromoteResponse -> Bool
== :: MemberPromoteResponse -> MemberPromoteResponse -> Bool
$c/= :: MemberPromoteResponse -> MemberPromoteResponse -> Bool
/= :: MemberPromoteResponse -> MemberPromoteResponse -> Bool
Prelude.Eq, Eq MemberPromoteResponse
Eq MemberPromoteResponse =>
(MemberPromoteResponse -> MemberPromoteResponse -> Ordering)
-> (MemberPromoteResponse -> MemberPromoteResponse -> Bool)
-> (MemberPromoteResponse -> MemberPromoteResponse -> Bool)
-> (MemberPromoteResponse -> MemberPromoteResponse -> Bool)
-> (MemberPromoteResponse -> MemberPromoteResponse -> Bool)
-> (MemberPromoteResponse
    -> MemberPromoteResponse -> MemberPromoteResponse)
-> (MemberPromoteResponse
    -> MemberPromoteResponse -> MemberPromoteResponse)
-> Ord MemberPromoteResponse
MemberPromoteResponse -> MemberPromoteResponse -> Bool
MemberPromoteResponse -> MemberPromoteResponse -> Ordering
MemberPromoteResponse
-> MemberPromoteResponse -> MemberPromoteResponse
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 :: MemberPromoteResponse -> MemberPromoteResponse -> Ordering
compare :: MemberPromoteResponse -> MemberPromoteResponse -> Ordering
$c< :: MemberPromoteResponse -> MemberPromoteResponse -> Bool
< :: MemberPromoteResponse -> MemberPromoteResponse -> Bool
$c<= :: MemberPromoteResponse -> MemberPromoteResponse -> Bool
<= :: MemberPromoteResponse -> MemberPromoteResponse -> Bool
$c> :: MemberPromoteResponse -> MemberPromoteResponse -> Bool
> :: MemberPromoteResponse -> MemberPromoteResponse -> Bool
$c>= :: MemberPromoteResponse -> MemberPromoteResponse -> Bool
>= :: MemberPromoteResponse -> MemberPromoteResponse -> Bool
$cmax :: MemberPromoteResponse
-> MemberPromoteResponse -> MemberPromoteResponse
max :: MemberPromoteResponse
-> MemberPromoteResponse -> MemberPromoteResponse
$cmin :: MemberPromoteResponse
-> MemberPromoteResponse -> MemberPromoteResponse
min :: MemberPromoteResponse
-> MemberPromoteResponse -> MemberPromoteResponse
Prelude.Ord)
instance Prelude.Show MemberPromoteResponse where
  showsPrec :: Int -> MemberPromoteResponse -> ShowS
showsPrec Int
_ MemberPromoteResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MemberPromoteResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemberPromoteResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MemberPromoteResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> MemberPromoteResponse
-> f MemberPromoteResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> MemberPromoteResponse -> f MemberPromoteResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> MemberPromoteResponse
-> f MemberPromoteResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberPromoteResponse -> Maybe ResponseHeader)
-> (MemberPromoteResponse
    -> Maybe ResponseHeader -> MemberPromoteResponse)
-> Lens
     MemberPromoteResponse
     MemberPromoteResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberPromoteResponse -> Maybe ResponseHeader
_MemberPromoteResponse'header
           (\ MemberPromoteResponse
x__ Maybe ResponseHeader
y__ -> MemberPromoteResponse
x__ {_MemberPromoteResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MemberPromoteResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> MemberPromoteResponse
-> f MemberPromoteResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> MemberPromoteResponse -> f MemberPromoteResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> MemberPromoteResponse
-> f MemberPromoteResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberPromoteResponse -> Maybe ResponseHeader)
-> (MemberPromoteResponse
    -> Maybe ResponseHeader -> MemberPromoteResponse)
-> Lens
     MemberPromoteResponse
     MemberPromoteResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberPromoteResponse -> Maybe ResponseHeader
_MemberPromoteResponse'header
           (\ MemberPromoteResponse
x__ Maybe ResponseHeader
y__ -> MemberPromoteResponse
x__ {_MemberPromoteResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemberPromoteResponse "members" [Member] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "members"
-> ([Member] -> f [Member])
-> MemberPromoteResponse
-> f MemberPromoteResponse
fieldOf Proxy# "members"
_
    = ((Vector Member -> f (Vector Member))
 -> MemberPromoteResponse -> f MemberPromoteResponse)
-> (([Member] -> f [Member]) -> Vector Member -> f (Vector Member))
-> ([Member] -> f [Member])
-> MemberPromoteResponse
-> f MemberPromoteResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberPromoteResponse -> Vector Member)
-> (MemberPromoteResponse
    -> Vector Member -> MemberPromoteResponse)
-> Lens
     MemberPromoteResponse
     MemberPromoteResponse
     (Vector Member)
     (Vector Member)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberPromoteResponse -> Vector Member
_MemberPromoteResponse'members
           (\ MemberPromoteResponse
x__ Vector Member
y__ -> MemberPromoteResponse
x__ {_MemberPromoteResponse'members = y__}))
        ((Vector Member -> [Member])
-> (Vector Member -> [Member] -> Vector Member)
-> Lens (Vector Member) (Vector Member) [Member] [Member]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Member -> [Member]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Member
_ [Member]
y__ -> [Member] -> Vector Member
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Member]
y__))
instance Data.ProtoLens.Field.HasField MemberPromoteResponse "vec'members" (Data.Vector.Vector Member) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'members"
-> (Vector Member -> f (Vector Member))
-> MemberPromoteResponse
-> f MemberPromoteResponse
fieldOf Proxy# "vec'members"
_
    = ((Vector Member -> f (Vector Member))
 -> MemberPromoteResponse -> f MemberPromoteResponse)
-> ((Vector Member -> f (Vector Member))
    -> Vector Member -> f (Vector Member))
-> (Vector Member -> f (Vector Member))
-> MemberPromoteResponse
-> f MemberPromoteResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberPromoteResponse -> Vector Member)
-> (MemberPromoteResponse
    -> Vector Member -> MemberPromoteResponse)
-> Lens
     MemberPromoteResponse
     MemberPromoteResponse
     (Vector Member)
     (Vector Member)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberPromoteResponse -> Vector Member
_MemberPromoteResponse'members
           (\ MemberPromoteResponse
x__ Vector Member
y__ -> MemberPromoteResponse
x__ {_MemberPromoteResponse'members = y__}))
        (Vector Member -> f (Vector Member))
-> Vector Member -> f (Vector Member)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemberPromoteResponse where
  messageName :: Proxy MemberPromoteResponse -> Text
messageName Proxy MemberPromoteResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.MemberPromoteResponse"
  packedMessageDescriptor :: Proxy MemberPromoteResponse -> ByteString
packedMessageDescriptor Proxy MemberPromoteResponse
_
    = ByteString
"\n\
      \\NAKMemberPromoteResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2.\n\
      \\amembers\CAN\STX \ETX(\v2\DC4.etcdserverpb.MemberR\amembers:\a\130\181\CAN\ETX3.4"
  packedFileDescriptor :: Proxy MemberPromoteResponse -> ByteString
packedFileDescriptor Proxy MemberPromoteResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MemberPromoteResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor MemberPromoteResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor MemberPromoteResponse ResponseHeader
-> FieldDescriptor MemberPromoteResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  MemberPromoteResponse
  MemberPromoteResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor MemberPromoteResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor MemberPromoteResponse
        members__field_descriptor :: FieldDescriptor MemberPromoteResponse
members__field_descriptor
          = String
-> FieldTypeDescriptor Member
-> FieldAccessor MemberPromoteResponse Member
-> FieldDescriptor MemberPromoteResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"members"
              (MessageOrGroup -> FieldTypeDescriptor Member
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Member)
              (Packing
-> Lens' MemberPromoteResponse [Member]
-> FieldAccessor MemberPromoteResponse Member
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"members")) ::
              Data.ProtoLens.FieldDescriptor MemberPromoteResponse
      in
        [(Tag, FieldDescriptor MemberPromoteResponse)]
-> Map Tag (FieldDescriptor MemberPromoteResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MemberPromoteResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor MemberPromoteResponse
members__field_descriptor)]
  unknownFields :: Lens' MemberPromoteResponse FieldSet
unknownFields
    = (MemberPromoteResponse -> FieldSet)
-> (MemberPromoteResponse -> FieldSet -> MemberPromoteResponse)
-> Lens' MemberPromoteResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MemberPromoteResponse -> FieldSet
_MemberPromoteResponse'_unknownFields
        (\ MemberPromoteResponse
x__ FieldSet
y__ -> MemberPromoteResponse
x__ {_MemberPromoteResponse'_unknownFields = y__})
  defMessage :: MemberPromoteResponse
defMessage
    = MemberPromoteResponse'_constructor
        {_MemberPromoteResponse'header :: Maybe ResponseHeader
_MemberPromoteResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _MemberPromoteResponse'members :: Vector Member
_MemberPromoteResponse'members = Vector Member
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MemberPromoteResponse'_unknownFields :: FieldSet
_MemberPromoteResponse'_unknownFields = []}
  parseMessage :: Parser MemberPromoteResponse
parseMessage
    = let
        loop ::
          MemberPromoteResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Member
             -> Data.ProtoLens.Encoding.Bytes.Parser MemberPromoteResponse
        loop :: MemberPromoteResponse
-> Growing Vector RealWorld Member -> Parser MemberPromoteResponse
loop MemberPromoteResponse
x Growing Vector RealWorld Member
mutable'members
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'members <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'members)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'members") frozen'members x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'members
                        Word64
18
                          -> do !y <- Parser Member -> String -> Parser Member
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
"members"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'members y)
                                loop x v
                        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)
                                  mutable'members
      in
        Parser MemberPromoteResponse
-> String -> Parser MemberPromoteResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'members <- IO (Growing Vector RealWorld Member)
-> Parser (Growing Vector RealWorld Member)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld Member)
IO (Growing Vector (PrimState IO) Member)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'members)
          String
"MemberPromoteResponse"
  buildMessage :: MemberPromoteResponse -> Builder
buildMessage
    = \ MemberPromoteResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  MemberPromoteResponse
  MemberPromoteResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> MemberPromoteResponse -> Maybe ResponseHeader
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'header") MemberPromoteResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((Member -> Builder) -> Vector Member -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ Member
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (Member -> ByteString) -> Member -> 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))
                              Member -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Member
_v))
                   (FoldLike
  (Vector Member)
  MemberPromoteResponse
  MemberPromoteResponse
  (Vector Member)
  (Vector Member)
-> MemberPromoteResponse -> Vector Member
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 @"vec'members") MemberPromoteResponse
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  MemberPromoteResponse
  MemberPromoteResponse
  FieldSet
  FieldSet
-> MemberPromoteResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  MemberPromoteResponse
  MemberPromoteResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MemberPromoteResponse FieldSet
Data.ProtoLens.unknownFields MemberPromoteResponse
_x)))
instance Control.DeepSeq.NFData MemberPromoteResponse where
  rnf :: MemberPromoteResponse -> ()
rnf
    = \ MemberPromoteResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MemberPromoteResponse -> FieldSet
_MemberPromoteResponse'_unknownFields MemberPromoteResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MemberPromoteResponse -> Maybe ResponseHeader
_MemberPromoteResponse'header MemberPromoteResponse
x__)
                (Vector Member -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MemberPromoteResponse -> Vector Member
_MemberPromoteResponse'members MemberPromoteResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.id' @:: Lens' MemberRemoveRequest Data.Word.Word64@ -}
data MemberRemoveRequest
  = MemberRemoveRequest'_constructor {MemberRemoveRequest -> Word64
_MemberRemoveRequest'id :: !Data.Word.Word64,
                                      MemberRemoveRequest -> FieldSet
_MemberRemoveRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MemberRemoveRequest -> MemberRemoveRequest -> Bool
(MemberRemoveRequest -> MemberRemoveRequest -> Bool)
-> (MemberRemoveRequest -> MemberRemoveRequest -> Bool)
-> Eq MemberRemoveRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MemberRemoveRequest -> MemberRemoveRequest -> Bool
== :: MemberRemoveRequest -> MemberRemoveRequest -> Bool
$c/= :: MemberRemoveRequest -> MemberRemoveRequest -> Bool
/= :: MemberRemoveRequest -> MemberRemoveRequest -> Bool
Prelude.Eq, Eq MemberRemoveRequest
Eq MemberRemoveRequest =>
(MemberRemoveRequest -> MemberRemoveRequest -> Ordering)
-> (MemberRemoveRequest -> MemberRemoveRequest -> Bool)
-> (MemberRemoveRequest -> MemberRemoveRequest -> Bool)
-> (MemberRemoveRequest -> MemberRemoveRequest -> Bool)
-> (MemberRemoveRequest -> MemberRemoveRequest -> Bool)
-> (MemberRemoveRequest
    -> MemberRemoveRequest -> MemberRemoveRequest)
-> (MemberRemoveRequest
    -> MemberRemoveRequest -> MemberRemoveRequest)
-> Ord MemberRemoveRequest
MemberRemoveRequest -> MemberRemoveRequest -> Bool
MemberRemoveRequest -> MemberRemoveRequest -> Ordering
MemberRemoveRequest -> MemberRemoveRequest -> MemberRemoveRequest
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 :: MemberRemoveRequest -> MemberRemoveRequest -> Ordering
compare :: MemberRemoveRequest -> MemberRemoveRequest -> Ordering
$c< :: MemberRemoveRequest -> MemberRemoveRequest -> Bool
< :: MemberRemoveRequest -> MemberRemoveRequest -> Bool
$c<= :: MemberRemoveRequest -> MemberRemoveRequest -> Bool
<= :: MemberRemoveRequest -> MemberRemoveRequest -> Bool
$c> :: MemberRemoveRequest -> MemberRemoveRequest -> Bool
> :: MemberRemoveRequest -> MemberRemoveRequest -> Bool
$c>= :: MemberRemoveRequest -> MemberRemoveRequest -> Bool
>= :: MemberRemoveRequest -> MemberRemoveRequest -> Bool
$cmax :: MemberRemoveRequest -> MemberRemoveRequest -> MemberRemoveRequest
max :: MemberRemoveRequest -> MemberRemoveRequest -> MemberRemoveRequest
$cmin :: MemberRemoveRequest -> MemberRemoveRequest -> MemberRemoveRequest
min :: MemberRemoveRequest -> MemberRemoveRequest -> MemberRemoveRequest
Prelude.Ord)
instance Prelude.Show MemberRemoveRequest where
  showsPrec :: Int -> MemberRemoveRequest -> ShowS
showsPrec Int
_ MemberRemoveRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MemberRemoveRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemberRemoveRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MemberRemoveRequest "id" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id"
-> (Word64 -> f Word64)
-> MemberRemoveRequest
-> f MemberRemoveRequest
fieldOf Proxy# "id"
_
    = ((Word64 -> f Word64)
 -> MemberRemoveRequest -> f MemberRemoveRequest)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> MemberRemoveRequest
-> f MemberRemoveRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberRemoveRequest -> Word64)
-> (MemberRemoveRequest -> Word64 -> MemberRemoveRequest)
-> Lens MemberRemoveRequest MemberRemoveRequest Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberRemoveRequest -> Word64
_MemberRemoveRequest'id
           (\ MemberRemoveRequest
x__ Word64
y__ -> MemberRemoveRequest
x__ {_MemberRemoveRequest'id = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemberRemoveRequest where
  messageName :: Proxy MemberRemoveRequest -> Text
messageName Proxy MemberRemoveRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.MemberRemoveRequest"
  packedMessageDescriptor :: Proxy MemberRemoveRequest -> ByteString
packedMessageDescriptor Proxy MemberRemoveRequest
_
    = ByteString
"\n\
      \\DC3MemberRemoveRequest\DC2\SO\n\
      \\STXID\CAN\SOH \SOH(\EOTR\STXID:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy MemberRemoveRequest -> ByteString
packedFileDescriptor Proxy MemberRemoveRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MemberRemoveRequest)
fieldsByTag
    = let
        id__field_descriptor :: FieldDescriptor MemberRemoveRequest
id__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor MemberRemoveRequest Word64
-> FieldDescriptor MemberRemoveRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ID"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens MemberRemoveRequest MemberRemoveRequest Word64 Word64
-> FieldAccessor MemberRemoveRequest Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"id")) ::
              Data.ProtoLens.FieldDescriptor MemberRemoveRequest
      in [(Tag, FieldDescriptor MemberRemoveRequest)]
-> Map Tag (FieldDescriptor MemberRemoveRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MemberRemoveRequest
id__field_descriptor)]
  unknownFields :: Lens' MemberRemoveRequest FieldSet
unknownFields
    = (MemberRemoveRequest -> FieldSet)
-> (MemberRemoveRequest -> FieldSet -> MemberRemoveRequest)
-> Lens' MemberRemoveRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MemberRemoveRequest -> FieldSet
_MemberRemoveRequest'_unknownFields
        (\ MemberRemoveRequest
x__ FieldSet
y__ -> MemberRemoveRequest
x__ {_MemberRemoveRequest'_unknownFields = y__})
  defMessage :: MemberRemoveRequest
defMessage
    = MemberRemoveRequest'_constructor
        {_MemberRemoveRequest'id :: Word64
_MemberRemoveRequest'id = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MemberRemoveRequest'_unknownFields :: FieldSet
_MemberRemoveRequest'_unknownFields = []}
  parseMessage :: Parser MemberRemoveRequest
parseMessage
    = let
        loop ::
          MemberRemoveRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser MemberRemoveRequest
        loop :: MemberRemoveRequest -> Parser MemberRemoveRequest
loop MemberRemoveRequest
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 Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"ID"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"id") 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 MemberRemoveRequest -> String -> Parser MemberRemoveRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do MemberRemoveRequest -> Parser MemberRemoveRequest
loop MemberRemoveRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"MemberRemoveRequest"
  buildMessage :: MemberRemoveRequest -> Builder
buildMessage
    = \ MemberRemoveRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Word64
_v = FoldLike
  Word64 MemberRemoveRequest MemberRemoveRequest Word64 Word64
-> MemberRemoveRequest -> Word64
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 @"id") MemberRemoveRequest
_x
              in
                if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet MemberRemoveRequest MemberRemoveRequest FieldSet FieldSet
-> MemberRemoveRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet MemberRemoveRequest MemberRemoveRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MemberRemoveRequest FieldSet
Data.ProtoLens.unknownFields MemberRemoveRequest
_x))
instance Control.DeepSeq.NFData MemberRemoveRequest where
  rnf :: MemberRemoveRequest -> ()
rnf
    = \ MemberRemoveRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MemberRemoveRequest -> FieldSet
_MemberRemoveRequest'_unknownFields MemberRemoveRequest
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MemberRemoveRequest -> Word64
_MemberRemoveRequest'id MemberRemoveRequest
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' MemberRemoveResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' MemberRemoveResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.members' @:: Lens' MemberRemoveResponse [Member]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'members' @:: Lens' MemberRemoveResponse (Data.Vector.Vector Member)@ -}
data MemberRemoveResponse
  = MemberRemoveResponse'_constructor {MemberRemoveResponse -> Maybe ResponseHeader
_MemberRemoveResponse'header :: !(Prelude.Maybe ResponseHeader),
                                       MemberRemoveResponse -> Vector Member
_MemberRemoveResponse'members :: !(Data.Vector.Vector Member),
                                       MemberRemoveResponse -> FieldSet
_MemberRemoveResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MemberRemoveResponse -> MemberRemoveResponse -> Bool
(MemberRemoveResponse -> MemberRemoveResponse -> Bool)
-> (MemberRemoveResponse -> MemberRemoveResponse -> Bool)
-> Eq MemberRemoveResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MemberRemoveResponse -> MemberRemoveResponse -> Bool
== :: MemberRemoveResponse -> MemberRemoveResponse -> Bool
$c/= :: MemberRemoveResponse -> MemberRemoveResponse -> Bool
/= :: MemberRemoveResponse -> MemberRemoveResponse -> Bool
Prelude.Eq, Eq MemberRemoveResponse
Eq MemberRemoveResponse =>
(MemberRemoveResponse -> MemberRemoveResponse -> Ordering)
-> (MemberRemoveResponse -> MemberRemoveResponse -> Bool)
-> (MemberRemoveResponse -> MemberRemoveResponse -> Bool)
-> (MemberRemoveResponse -> MemberRemoveResponse -> Bool)
-> (MemberRemoveResponse -> MemberRemoveResponse -> Bool)
-> (MemberRemoveResponse
    -> MemberRemoveResponse -> MemberRemoveResponse)
-> (MemberRemoveResponse
    -> MemberRemoveResponse -> MemberRemoveResponse)
-> Ord MemberRemoveResponse
MemberRemoveResponse -> MemberRemoveResponse -> Bool
MemberRemoveResponse -> MemberRemoveResponse -> Ordering
MemberRemoveResponse
-> MemberRemoveResponse -> MemberRemoveResponse
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 :: MemberRemoveResponse -> MemberRemoveResponse -> Ordering
compare :: MemberRemoveResponse -> MemberRemoveResponse -> Ordering
$c< :: MemberRemoveResponse -> MemberRemoveResponse -> Bool
< :: MemberRemoveResponse -> MemberRemoveResponse -> Bool
$c<= :: MemberRemoveResponse -> MemberRemoveResponse -> Bool
<= :: MemberRemoveResponse -> MemberRemoveResponse -> Bool
$c> :: MemberRemoveResponse -> MemberRemoveResponse -> Bool
> :: MemberRemoveResponse -> MemberRemoveResponse -> Bool
$c>= :: MemberRemoveResponse -> MemberRemoveResponse -> Bool
>= :: MemberRemoveResponse -> MemberRemoveResponse -> Bool
$cmax :: MemberRemoveResponse
-> MemberRemoveResponse -> MemberRemoveResponse
max :: MemberRemoveResponse
-> MemberRemoveResponse -> MemberRemoveResponse
$cmin :: MemberRemoveResponse
-> MemberRemoveResponse -> MemberRemoveResponse
min :: MemberRemoveResponse
-> MemberRemoveResponse -> MemberRemoveResponse
Prelude.Ord)
instance Prelude.Show MemberRemoveResponse where
  showsPrec :: Int -> MemberRemoveResponse -> ShowS
showsPrec Int
_ MemberRemoveResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MemberRemoveResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemberRemoveResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MemberRemoveResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> MemberRemoveResponse
-> f MemberRemoveResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> MemberRemoveResponse -> f MemberRemoveResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> MemberRemoveResponse
-> f MemberRemoveResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberRemoveResponse -> Maybe ResponseHeader)
-> (MemberRemoveResponse
    -> Maybe ResponseHeader -> MemberRemoveResponse)
-> Lens
     MemberRemoveResponse
     MemberRemoveResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberRemoveResponse -> Maybe ResponseHeader
_MemberRemoveResponse'header
           (\ MemberRemoveResponse
x__ Maybe ResponseHeader
y__ -> MemberRemoveResponse
x__ {_MemberRemoveResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MemberRemoveResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> MemberRemoveResponse
-> f MemberRemoveResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> MemberRemoveResponse -> f MemberRemoveResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> MemberRemoveResponse
-> f MemberRemoveResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberRemoveResponse -> Maybe ResponseHeader)
-> (MemberRemoveResponse
    -> Maybe ResponseHeader -> MemberRemoveResponse)
-> Lens
     MemberRemoveResponse
     MemberRemoveResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberRemoveResponse -> Maybe ResponseHeader
_MemberRemoveResponse'header
           (\ MemberRemoveResponse
x__ Maybe ResponseHeader
y__ -> MemberRemoveResponse
x__ {_MemberRemoveResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemberRemoveResponse "members" [Member] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "members"
-> ([Member] -> f [Member])
-> MemberRemoveResponse
-> f MemberRemoveResponse
fieldOf Proxy# "members"
_
    = ((Vector Member -> f (Vector Member))
 -> MemberRemoveResponse -> f MemberRemoveResponse)
-> (([Member] -> f [Member]) -> Vector Member -> f (Vector Member))
-> ([Member] -> f [Member])
-> MemberRemoveResponse
-> f MemberRemoveResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberRemoveResponse -> Vector Member)
-> (MemberRemoveResponse -> Vector Member -> MemberRemoveResponse)
-> Lens
     MemberRemoveResponse
     MemberRemoveResponse
     (Vector Member)
     (Vector Member)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberRemoveResponse -> Vector Member
_MemberRemoveResponse'members
           (\ MemberRemoveResponse
x__ Vector Member
y__ -> MemberRemoveResponse
x__ {_MemberRemoveResponse'members = y__}))
        ((Vector Member -> [Member])
-> (Vector Member -> [Member] -> Vector Member)
-> Lens (Vector Member) (Vector Member) [Member] [Member]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Member -> [Member]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Member
_ [Member]
y__ -> [Member] -> Vector Member
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Member]
y__))
instance Data.ProtoLens.Field.HasField MemberRemoveResponse "vec'members" (Data.Vector.Vector Member) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'members"
-> (Vector Member -> f (Vector Member))
-> MemberRemoveResponse
-> f MemberRemoveResponse
fieldOf Proxy# "vec'members"
_
    = ((Vector Member -> f (Vector Member))
 -> MemberRemoveResponse -> f MemberRemoveResponse)
-> ((Vector Member -> f (Vector Member))
    -> Vector Member -> f (Vector Member))
-> (Vector Member -> f (Vector Member))
-> MemberRemoveResponse
-> f MemberRemoveResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberRemoveResponse -> Vector Member)
-> (MemberRemoveResponse -> Vector Member -> MemberRemoveResponse)
-> Lens
     MemberRemoveResponse
     MemberRemoveResponse
     (Vector Member)
     (Vector Member)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberRemoveResponse -> Vector Member
_MemberRemoveResponse'members
           (\ MemberRemoveResponse
x__ Vector Member
y__ -> MemberRemoveResponse
x__ {_MemberRemoveResponse'members = y__}))
        (Vector Member -> f (Vector Member))
-> Vector Member -> f (Vector Member)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemberRemoveResponse where
  messageName :: Proxy MemberRemoveResponse -> Text
messageName Proxy MemberRemoveResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.MemberRemoveResponse"
  packedMessageDescriptor :: Proxy MemberRemoveResponse -> ByteString
packedMessageDescriptor Proxy MemberRemoveResponse
_
    = ByteString
"\n\
      \\DC4MemberRemoveResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2.\n\
      \\amembers\CAN\STX \ETX(\v2\DC4.etcdserverpb.MemberR\amembers:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy MemberRemoveResponse -> ByteString
packedFileDescriptor Proxy MemberRemoveResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MemberRemoveResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor MemberRemoveResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor MemberRemoveResponse ResponseHeader
-> FieldDescriptor MemberRemoveResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  MemberRemoveResponse
  MemberRemoveResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor MemberRemoveResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor MemberRemoveResponse
        members__field_descriptor :: FieldDescriptor MemberRemoveResponse
members__field_descriptor
          = String
-> FieldTypeDescriptor Member
-> FieldAccessor MemberRemoveResponse Member
-> FieldDescriptor MemberRemoveResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"members"
              (MessageOrGroup -> FieldTypeDescriptor Member
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Member)
              (Packing
-> Lens' MemberRemoveResponse [Member]
-> FieldAccessor MemberRemoveResponse Member
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"members")) ::
              Data.ProtoLens.FieldDescriptor MemberRemoveResponse
      in
        [(Tag, FieldDescriptor MemberRemoveResponse)]
-> Map Tag (FieldDescriptor MemberRemoveResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MemberRemoveResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor MemberRemoveResponse
members__field_descriptor)]
  unknownFields :: Lens' MemberRemoveResponse FieldSet
unknownFields
    = (MemberRemoveResponse -> FieldSet)
-> (MemberRemoveResponse -> FieldSet -> MemberRemoveResponse)
-> Lens' MemberRemoveResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MemberRemoveResponse -> FieldSet
_MemberRemoveResponse'_unknownFields
        (\ MemberRemoveResponse
x__ FieldSet
y__ -> MemberRemoveResponse
x__ {_MemberRemoveResponse'_unknownFields = y__})
  defMessage :: MemberRemoveResponse
defMessage
    = MemberRemoveResponse'_constructor
        {_MemberRemoveResponse'header :: Maybe ResponseHeader
_MemberRemoveResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _MemberRemoveResponse'members :: Vector Member
_MemberRemoveResponse'members = Vector Member
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MemberRemoveResponse'_unknownFields :: FieldSet
_MemberRemoveResponse'_unknownFields = []}
  parseMessage :: Parser MemberRemoveResponse
parseMessage
    = let
        loop ::
          MemberRemoveResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Member
             -> Data.ProtoLens.Encoding.Bytes.Parser MemberRemoveResponse
        loop :: MemberRemoveResponse
-> Growing Vector RealWorld Member -> Parser MemberRemoveResponse
loop MemberRemoveResponse
x Growing Vector RealWorld Member
mutable'members
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'members <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'members)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'members") frozen'members x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'members
                        Word64
18
                          -> do !y <- Parser Member -> String -> Parser Member
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
"members"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'members y)
                                loop x v
                        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)
                                  mutable'members
      in
        Parser MemberRemoveResponse
-> String -> Parser MemberRemoveResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'members <- IO (Growing Vector RealWorld Member)
-> Parser (Growing Vector RealWorld Member)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld Member)
IO (Growing Vector (PrimState IO) Member)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'members)
          String
"MemberRemoveResponse"
  buildMessage :: MemberRemoveResponse -> Builder
buildMessage
    = \ MemberRemoveResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  MemberRemoveResponse
  MemberRemoveResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> MemberRemoveResponse -> Maybe ResponseHeader
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'header") MemberRemoveResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((Member -> Builder) -> Vector Member -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ Member
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (Member -> ByteString) -> Member -> 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))
                              Member -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Member
_v))
                   (FoldLike
  (Vector Member)
  MemberRemoveResponse
  MemberRemoveResponse
  (Vector Member)
  (Vector Member)
-> MemberRemoveResponse -> Vector Member
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 @"vec'members") MemberRemoveResponse
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  MemberRemoveResponse
  MemberRemoveResponse
  FieldSet
  FieldSet
-> MemberRemoveResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  MemberRemoveResponse
  MemberRemoveResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MemberRemoveResponse FieldSet
Data.ProtoLens.unknownFields MemberRemoveResponse
_x)))
instance Control.DeepSeq.NFData MemberRemoveResponse where
  rnf :: MemberRemoveResponse -> ()
rnf
    = \ MemberRemoveResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MemberRemoveResponse -> FieldSet
_MemberRemoveResponse'_unknownFields MemberRemoveResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MemberRemoveResponse -> Maybe ResponseHeader
_MemberRemoveResponse'header MemberRemoveResponse
x__)
                (Vector Member -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MemberRemoveResponse -> Vector Member
_MemberRemoveResponse'members MemberRemoveResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.id' @:: Lens' MemberUpdateRequest Data.Word.Word64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.peerURLs' @:: Lens' MemberUpdateRequest [Data.Text.Text]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'peerURLs' @:: Lens' MemberUpdateRequest (Data.Vector.Vector Data.Text.Text)@ -}
data MemberUpdateRequest
  = MemberUpdateRequest'_constructor {MemberUpdateRequest -> Word64
_MemberUpdateRequest'id :: !Data.Word.Word64,
                                      MemberUpdateRequest -> Vector Text
_MemberUpdateRequest'peerURLs :: !(Data.Vector.Vector Data.Text.Text),
                                      MemberUpdateRequest -> FieldSet
_MemberUpdateRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MemberUpdateRequest -> MemberUpdateRequest -> Bool
(MemberUpdateRequest -> MemberUpdateRequest -> Bool)
-> (MemberUpdateRequest -> MemberUpdateRequest -> Bool)
-> Eq MemberUpdateRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MemberUpdateRequest -> MemberUpdateRequest -> Bool
== :: MemberUpdateRequest -> MemberUpdateRequest -> Bool
$c/= :: MemberUpdateRequest -> MemberUpdateRequest -> Bool
/= :: MemberUpdateRequest -> MemberUpdateRequest -> Bool
Prelude.Eq, Eq MemberUpdateRequest
Eq MemberUpdateRequest =>
(MemberUpdateRequest -> MemberUpdateRequest -> Ordering)
-> (MemberUpdateRequest -> MemberUpdateRequest -> Bool)
-> (MemberUpdateRequest -> MemberUpdateRequest -> Bool)
-> (MemberUpdateRequest -> MemberUpdateRequest -> Bool)
-> (MemberUpdateRequest -> MemberUpdateRequest -> Bool)
-> (MemberUpdateRequest
    -> MemberUpdateRequest -> MemberUpdateRequest)
-> (MemberUpdateRequest
    -> MemberUpdateRequest -> MemberUpdateRequest)
-> Ord MemberUpdateRequest
MemberUpdateRequest -> MemberUpdateRequest -> Bool
MemberUpdateRequest -> MemberUpdateRequest -> Ordering
MemberUpdateRequest -> MemberUpdateRequest -> MemberUpdateRequest
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 :: MemberUpdateRequest -> MemberUpdateRequest -> Ordering
compare :: MemberUpdateRequest -> MemberUpdateRequest -> Ordering
$c< :: MemberUpdateRequest -> MemberUpdateRequest -> Bool
< :: MemberUpdateRequest -> MemberUpdateRequest -> Bool
$c<= :: MemberUpdateRequest -> MemberUpdateRequest -> Bool
<= :: MemberUpdateRequest -> MemberUpdateRequest -> Bool
$c> :: MemberUpdateRequest -> MemberUpdateRequest -> Bool
> :: MemberUpdateRequest -> MemberUpdateRequest -> Bool
$c>= :: MemberUpdateRequest -> MemberUpdateRequest -> Bool
>= :: MemberUpdateRequest -> MemberUpdateRequest -> Bool
$cmax :: MemberUpdateRequest -> MemberUpdateRequest -> MemberUpdateRequest
max :: MemberUpdateRequest -> MemberUpdateRequest -> MemberUpdateRequest
$cmin :: MemberUpdateRequest -> MemberUpdateRequest -> MemberUpdateRequest
min :: MemberUpdateRequest -> MemberUpdateRequest -> MemberUpdateRequest
Prelude.Ord)
instance Prelude.Show MemberUpdateRequest where
  showsPrec :: Int -> MemberUpdateRequest -> ShowS
showsPrec Int
_ MemberUpdateRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MemberUpdateRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemberUpdateRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MemberUpdateRequest "id" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "id"
-> (Word64 -> f Word64)
-> MemberUpdateRequest
-> f MemberUpdateRequest
fieldOf Proxy# "id"
_
    = ((Word64 -> f Word64)
 -> MemberUpdateRequest -> f MemberUpdateRequest)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> MemberUpdateRequest
-> f MemberUpdateRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberUpdateRequest -> Word64)
-> (MemberUpdateRequest -> Word64 -> MemberUpdateRequest)
-> Lens MemberUpdateRequest MemberUpdateRequest Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberUpdateRequest -> Word64
_MemberUpdateRequest'id
           (\ MemberUpdateRequest
x__ Word64
y__ -> MemberUpdateRequest
x__ {_MemberUpdateRequest'id = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemberUpdateRequest "peerURLs" [Data.Text.Text] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "peerURLs"
-> ([Text] -> f [Text])
-> MemberUpdateRequest
-> f MemberUpdateRequest
fieldOf Proxy# "peerURLs"
_
    = ((Vector Text -> f (Vector Text))
 -> MemberUpdateRequest -> f MemberUpdateRequest)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> MemberUpdateRequest
-> f MemberUpdateRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberUpdateRequest -> Vector Text)
-> (MemberUpdateRequest -> Vector Text -> MemberUpdateRequest)
-> Lens
     MemberUpdateRequest MemberUpdateRequest (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberUpdateRequest -> Vector Text
_MemberUpdateRequest'peerURLs
           (\ MemberUpdateRequest
x__ Vector Text
y__ -> MemberUpdateRequest
x__ {_MemberUpdateRequest'peerURLs = y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Text
_ [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField MemberUpdateRequest "vec'peerURLs" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'peerURLs"
-> (Vector Text -> f (Vector Text))
-> MemberUpdateRequest
-> f MemberUpdateRequest
fieldOf Proxy# "vec'peerURLs"
_
    = ((Vector Text -> f (Vector Text))
 -> MemberUpdateRequest -> f MemberUpdateRequest)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> MemberUpdateRequest
-> f MemberUpdateRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberUpdateRequest -> Vector Text)
-> (MemberUpdateRequest -> Vector Text -> MemberUpdateRequest)
-> Lens
     MemberUpdateRequest MemberUpdateRequest (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberUpdateRequest -> Vector Text
_MemberUpdateRequest'peerURLs
           (\ MemberUpdateRequest
x__ Vector Text
y__ -> MemberUpdateRequest
x__ {_MemberUpdateRequest'peerURLs = y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemberUpdateRequest where
  messageName :: Proxy MemberUpdateRequest -> Text
messageName Proxy MemberUpdateRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.MemberUpdateRequest"
  packedMessageDescriptor :: Proxy MemberUpdateRequest -> ByteString
packedMessageDescriptor Proxy MemberUpdateRequest
_
    = ByteString
"\n\
      \\DC3MemberUpdateRequest\DC2\SO\n\
      \\STXID\CAN\SOH \SOH(\EOTR\STXID\DC2\SUB\n\
      \\bpeerURLs\CAN\STX \ETX(\tR\bpeerURLs:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy MemberUpdateRequest -> ByteString
packedFileDescriptor Proxy MemberUpdateRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MemberUpdateRequest)
fieldsByTag
    = let
        id__field_descriptor :: FieldDescriptor MemberUpdateRequest
id__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor MemberUpdateRequest Word64
-> FieldDescriptor MemberUpdateRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ID"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens MemberUpdateRequest MemberUpdateRequest Word64 Word64
-> FieldAccessor MemberUpdateRequest Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"id")) ::
              Data.ProtoLens.FieldDescriptor MemberUpdateRequest
        peerURLs__field_descriptor :: FieldDescriptor MemberUpdateRequest
peerURLs__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor MemberUpdateRequest Text
-> FieldDescriptor MemberUpdateRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"peerURLs"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing
-> Lens' MemberUpdateRequest [Text]
-> FieldAccessor MemberUpdateRequest Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"peerURLs")) ::
              Data.ProtoLens.FieldDescriptor MemberUpdateRequest
      in
        [(Tag, FieldDescriptor MemberUpdateRequest)]
-> Map Tag (FieldDescriptor MemberUpdateRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MemberUpdateRequest
id__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor MemberUpdateRequest
peerURLs__field_descriptor)]
  unknownFields :: Lens' MemberUpdateRequest FieldSet
unknownFields
    = (MemberUpdateRequest -> FieldSet)
-> (MemberUpdateRequest -> FieldSet -> MemberUpdateRequest)
-> Lens' MemberUpdateRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MemberUpdateRequest -> FieldSet
_MemberUpdateRequest'_unknownFields
        (\ MemberUpdateRequest
x__ FieldSet
y__ -> MemberUpdateRequest
x__ {_MemberUpdateRequest'_unknownFields = y__})
  defMessage :: MemberUpdateRequest
defMessage
    = MemberUpdateRequest'_constructor
        {_MemberUpdateRequest'id :: Word64
_MemberUpdateRequest'id = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MemberUpdateRequest'peerURLs :: Vector Text
_MemberUpdateRequest'peerURLs = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MemberUpdateRequest'_unknownFields :: FieldSet
_MemberUpdateRequest'_unknownFields = []}
  parseMessage :: Parser MemberUpdateRequest
parseMessage
    = let
        loop ::
          MemberUpdateRequest
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
             -> Data.ProtoLens.Encoding.Bytes.Parser MemberUpdateRequest
        loop :: MemberUpdateRequest
-> Growing Vector RealWorld Text -> Parser MemberUpdateRequest
loop MemberUpdateRequest
x Growing Vector RealWorld Text
mutable'peerURLs
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'peerURLs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                           (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                              mutable'peerURLs)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'peerURLs") frozen'peerURLs x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"ID"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"id") y x)
                                  mutable'peerURLs
                        Word64
18
                          -> do !y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.getText
                                              (Prelude.fromIntegral len))
                                        String
"peerURLs"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'peerURLs y)
                                loop x v
                        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)
                                  mutable'peerURLs
      in
        Parser MemberUpdateRequest -> String -> Parser MemberUpdateRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'peerURLs <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                    IO (Growing Vector RealWorld Text)
IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'peerURLs)
          String
"MemberUpdateRequest"
  buildMessage :: MemberUpdateRequest -> Builder
buildMessage
    = \ MemberUpdateRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Word64
_v = FoldLike
  Word64 MemberUpdateRequest MemberUpdateRequest Word64 Word64
-> MemberUpdateRequest -> Word64
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 @"id") MemberUpdateRequest
_x
              in
                if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ Text
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                              Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                   (FoldLike
  (Vector Text)
  MemberUpdateRequest
  MemberUpdateRequest
  (Vector Text)
  (Vector Text)
-> MemberUpdateRequest -> Vector Text
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 @"vec'peerURLs") MemberUpdateRequest
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet MemberUpdateRequest MemberUpdateRequest FieldSet FieldSet
-> MemberUpdateRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet MemberUpdateRequest MemberUpdateRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MemberUpdateRequest FieldSet
Data.ProtoLens.unknownFields MemberUpdateRequest
_x)))
instance Control.DeepSeq.NFData MemberUpdateRequest where
  rnf :: MemberUpdateRequest -> ()
rnf
    = \ MemberUpdateRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MemberUpdateRequest -> FieldSet
_MemberUpdateRequest'_unknownFields MemberUpdateRequest
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MemberUpdateRequest -> Word64
_MemberUpdateRequest'id MemberUpdateRequest
x__)
                (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MemberUpdateRequest -> Vector Text
_MemberUpdateRequest'peerURLs MemberUpdateRequest
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' MemberUpdateResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' MemberUpdateResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.members' @:: Lens' MemberUpdateResponse [Member]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'members' @:: Lens' MemberUpdateResponse (Data.Vector.Vector Member)@ -}
data MemberUpdateResponse
  = MemberUpdateResponse'_constructor {MemberUpdateResponse -> Maybe ResponseHeader
_MemberUpdateResponse'header :: !(Prelude.Maybe ResponseHeader),
                                       MemberUpdateResponse -> Vector Member
_MemberUpdateResponse'members :: !(Data.Vector.Vector Member),
                                       MemberUpdateResponse -> FieldSet
_MemberUpdateResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MemberUpdateResponse -> MemberUpdateResponse -> Bool
(MemberUpdateResponse -> MemberUpdateResponse -> Bool)
-> (MemberUpdateResponse -> MemberUpdateResponse -> Bool)
-> Eq MemberUpdateResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MemberUpdateResponse -> MemberUpdateResponse -> Bool
== :: MemberUpdateResponse -> MemberUpdateResponse -> Bool
$c/= :: MemberUpdateResponse -> MemberUpdateResponse -> Bool
/= :: MemberUpdateResponse -> MemberUpdateResponse -> Bool
Prelude.Eq, Eq MemberUpdateResponse
Eq MemberUpdateResponse =>
(MemberUpdateResponse -> MemberUpdateResponse -> Ordering)
-> (MemberUpdateResponse -> MemberUpdateResponse -> Bool)
-> (MemberUpdateResponse -> MemberUpdateResponse -> Bool)
-> (MemberUpdateResponse -> MemberUpdateResponse -> Bool)
-> (MemberUpdateResponse -> MemberUpdateResponse -> Bool)
-> (MemberUpdateResponse
    -> MemberUpdateResponse -> MemberUpdateResponse)
-> (MemberUpdateResponse
    -> MemberUpdateResponse -> MemberUpdateResponse)
-> Ord MemberUpdateResponse
MemberUpdateResponse -> MemberUpdateResponse -> Bool
MemberUpdateResponse -> MemberUpdateResponse -> Ordering
MemberUpdateResponse
-> MemberUpdateResponse -> MemberUpdateResponse
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 :: MemberUpdateResponse -> MemberUpdateResponse -> Ordering
compare :: MemberUpdateResponse -> MemberUpdateResponse -> Ordering
$c< :: MemberUpdateResponse -> MemberUpdateResponse -> Bool
< :: MemberUpdateResponse -> MemberUpdateResponse -> Bool
$c<= :: MemberUpdateResponse -> MemberUpdateResponse -> Bool
<= :: MemberUpdateResponse -> MemberUpdateResponse -> Bool
$c> :: MemberUpdateResponse -> MemberUpdateResponse -> Bool
> :: MemberUpdateResponse -> MemberUpdateResponse -> Bool
$c>= :: MemberUpdateResponse -> MemberUpdateResponse -> Bool
>= :: MemberUpdateResponse -> MemberUpdateResponse -> Bool
$cmax :: MemberUpdateResponse
-> MemberUpdateResponse -> MemberUpdateResponse
max :: MemberUpdateResponse
-> MemberUpdateResponse -> MemberUpdateResponse
$cmin :: MemberUpdateResponse
-> MemberUpdateResponse -> MemberUpdateResponse
min :: MemberUpdateResponse
-> MemberUpdateResponse -> MemberUpdateResponse
Prelude.Ord)
instance Prelude.Show MemberUpdateResponse where
  showsPrec :: Int -> MemberUpdateResponse -> ShowS
showsPrec Int
_ MemberUpdateResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MemberUpdateResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemberUpdateResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MemberUpdateResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> MemberUpdateResponse
-> f MemberUpdateResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> MemberUpdateResponse -> f MemberUpdateResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> MemberUpdateResponse
-> f MemberUpdateResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberUpdateResponse -> Maybe ResponseHeader)
-> (MemberUpdateResponse
    -> Maybe ResponseHeader -> MemberUpdateResponse)
-> Lens
     MemberUpdateResponse
     MemberUpdateResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberUpdateResponse -> Maybe ResponseHeader
_MemberUpdateResponse'header
           (\ MemberUpdateResponse
x__ Maybe ResponseHeader
y__ -> MemberUpdateResponse
x__ {_MemberUpdateResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MemberUpdateResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> MemberUpdateResponse
-> f MemberUpdateResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> MemberUpdateResponse -> f MemberUpdateResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> MemberUpdateResponse
-> f MemberUpdateResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberUpdateResponse -> Maybe ResponseHeader)
-> (MemberUpdateResponse
    -> Maybe ResponseHeader -> MemberUpdateResponse)
-> Lens
     MemberUpdateResponse
     MemberUpdateResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberUpdateResponse -> Maybe ResponseHeader
_MemberUpdateResponse'header
           (\ MemberUpdateResponse
x__ Maybe ResponseHeader
y__ -> MemberUpdateResponse
x__ {_MemberUpdateResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemberUpdateResponse "members" [Member] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "members"
-> ([Member] -> f [Member])
-> MemberUpdateResponse
-> f MemberUpdateResponse
fieldOf Proxy# "members"
_
    = ((Vector Member -> f (Vector Member))
 -> MemberUpdateResponse -> f MemberUpdateResponse)
-> (([Member] -> f [Member]) -> Vector Member -> f (Vector Member))
-> ([Member] -> f [Member])
-> MemberUpdateResponse
-> f MemberUpdateResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberUpdateResponse -> Vector Member)
-> (MemberUpdateResponse -> Vector Member -> MemberUpdateResponse)
-> Lens
     MemberUpdateResponse
     MemberUpdateResponse
     (Vector Member)
     (Vector Member)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberUpdateResponse -> Vector Member
_MemberUpdateResponse'members
           (\ MemberUpdateResponse
x__ Vector Member
y__ -> MemberUpdateResponse
x__ {_MemberUpdateResponse'members = y__}))
        ((Vector Member -> [Member])
-> (Vector Member -> [Member] -> Vector Member)
-> Lens (Vector Member) (Vector Member) [Member] [Member]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Member -> [Member]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Member
_ [Member]
y__ -> [Member] -> Vector Member
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Member]
y__))
instance Data.ProtoLens.Field.HasField MemberUpdateResponse "vec'members" (Data.Vector.Vector Member) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'members"
-> (Vector Member -> f (Vector Member))
-> MemberUpdateResponse
-> f MemberUpdateResponse
fieldOf Proxy# "vec'members"
_
    = ((Vector Member -> f (Vector Member))
 -> MemberUpdateResponse -> f MemberUpdateResponse)
-> ((Vector Member -> f (Vector Member))
    -> Vector Member -> f (Vector Member))
-> (Vector Member -> f (Vector Member))
-> MemberUpdateResponse
-> f MemberUpdateResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemberUpdateResponse -> Vector Member)
-> (MemberUpdateResponse -> Vector Member -> MemberUpdateResponse)
-> Lens
     MemberUpdateResponse
     MemberUpdateResponse
     (Vector Member)
     (Vector Member)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemberUpdateResponse -> Vector Member
_MemberUpdateResponse'members
           (\ MemberUpdateResponse
x__ Vector Member
y__ -> MemberUpdateResponse
x__ {_MemberUpdateResponse'members = y__}))
        (Vector Member -> f (Vector Member))
-> Vector Member -> f (Vector Member)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemberUpdateResponse where
  messageName :: Proxy MemberUpdateResponse -> Text
messageName Proxy MemberUpdateResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.MemberUpdateResponse"
  packedMessageDescriptor :: Proxy MemberUpdateResponse -> ByteString
packedMessageDescriptor Proxy MemberUpdateResponse
_
    = ByteString
"\n\
      \\DC4MemberUpdateResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC27\n\
      \\amembers\CAN\STX \ETX(\v2\DC4.etcdserverpb.MemberR\amembersB\a\138\181\CAN\ETX3.1:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy MemberUpdateResponse -> ByteString
packedFileDescriptor Proxy MemberUpdateResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MemberUpdateResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor MemberUpdateResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor MemberUpdateResponse ResponseHeader
-> FieldDescriptor MemberUpdateResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  MemberUpdateResponse
  MemberUpdateResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor MemberUpdateResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor MemberUpdateResponse
        members__field_descriptor :: FieldDescriptor MemberUpdateResponse
members__field_descriptor
          = String
-> FieldTypeDescriptor Member
-> FieldAccessor MemberUpdateResponse Member
-> FieldDescriptor MemberUpdateResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"members"
              (MessageOrGroup -> FieldTypeDescriptor Member
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Member)
              (Packing
-> Lens' MemberUpdateResponse [Member]
-> FieldAccessor MemberUpdateResponse Member
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"members")) ::
              Data.ProtoLens.FieldDescriptor MemberUpdateResponse
      in
        [(Tag, FieldDescriptor MemberUpdateResponse)]
-> Map Tag (FieldDescriptor MemberUpdateResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MemberUpdateResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor MemberUpdateResponse
members__field_descriptor)]
  unknownFields :: Lens' MemberUpdateResponse FieldSet
unknownFields
    = (MemberUpdateResponse -> FieldSet)
-> (MemberUpdateResponse -> FieldSet -> MemberUpdateResponse)
-> Lens' MemberUpdateResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MemberUpdateResponse -> FieldSet
_MemberUpdateResponse'_unknownFields
        (\ MemberUpdateResponse
x__ FieldSet
y__ -> MemberUpdateResponse
x__ {_MemberUpdateResponse'_unknownFields = y__})
  defMessage :: MemberUpdateResponse
defMessage
    = MemberUpdateResponse'_constructor
        {_MemberUpdateResponse'header :: Maybe ResponseHeader
_MemberUpdateResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _MemberUpdateResponse'members :: Vector Member
_MemberUpdateResponse'members = Vector Member
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MemberUpdateResponse'_unknownFields :: FieldSet
_MemberUpdateResponse'_unknownFields = []}
  parseMessage :: Parser MemberUpdateResponse
parseMessage
    = let
        loop ::
          MemberUpdateResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Member
             -> Data.ProtoLens.Encoding.Bytes.Parser MemberUpdateResponse
        loop :: MemberUpdateResponse
-> Growing Vector RealWorld Member -> Parser MemberUpdateResponse
loop MemberUpdateResponse
x Growing Vector RealWorld Member
mutable'members
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'members <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'members)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'members") frozen'members x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'members
                        Word64
18
                          -> do !y <- Parser Member -> String -> Parser Member
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
"members"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'members y)
                                loop x v
                        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)
                                  mutable'members
      in
        Parser MemberUpdateResponse
-> String -> Parser MemberUpdateResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'members <- IO (Growing Vector RealWorld Member)
-> Parser (Growing Vector RealWorld Member)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld Member)
IO (Growing Vector (PrimState IO) Member)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'members)
          String
"MemberUpdateResponse"
  buildMessage :: MemberUpdateResponse -> Builder
buildMessage
    = \ MemberUpdateResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  MemberUpdateResponse
  MemberUpdateResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> MemberUpdateResponse -> Maybe ResponseHeader
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'header") MemberUpdateResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((Member -> Builder) -> Vector Member -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ Member
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (Member -> ByteString) -> Member -> 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))
                              Member -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Member
_v))
                   (FoldLike
  (Vector Member)
  MemberUpdateResponse
  MemberUpdateResponse
  (Vector Member)
  (Vector Member)
-> MemberUpdateResponse -> Vector Member
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 @"vec'members") MemberUpdateResponse
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  MemberUpdateResponse
  MemberUpdateResponse
  FieldSet
  FieldSet
-> MemberUpdateResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  MemberUpdateResponse
  MemberUpdateResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MemberUpdateResponse FieldSet
Data.ProtoLens.unknownFields MemberUpdateResponse
_x)))
instance Control.DeepSeq.NFData MemberUpdateResponse where
  rnf :: MemberUpdateResponse -> ()
rnf
    = \ MemberUpdateResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MemberUpdateResponse -> FieldSet
_MemberUpdateResponse'_unknownFields MemberUpdateResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MemberUpdateResponse -> Maybe ResponseHeader
_MemberUpdateResponse'header MemberUpdateResponse
x__)
                (Vector Member -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MemberUpdateResponse -> Vector Member
_MemberUpdateResponse'members MemberUpdateResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.targetID' @:: Lens' MoveLeaderRequest Data.Word.Word64@ -}
data MoveLeaderRequest
  = MoveLeaderRequest'_constructor {MoveLeaderRequest -> Word64
_MoveLeaderRequest'targetID :: !Data.Word.Word64,
                                    MoveLeaderRequest -> FieldSet
_MoveLeaderRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MoveLeaderRequest -> MoveLeaderRequest -> Bool
(MoveLeaderRequest -> MoveLeaderRequest -> Bool)
-> (MoveLeaderRequest -> MoveLeaderRequest -> Bool)
-> Eq MoveLeaderRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MoveLeaderRequest -> MoveLeaderRequest -> Bool
== :: MoveLeaderRequest -> MoveLeaderRequest -> Bool
$c/= :: MoveLeaderRequest -> MoveLeaderRequest -> Bool
/= :: MoveLeaderRequest -> MoveLeaderRequest -> Bool
Prelude.Eq, Eq MoveLeaderRequest
Eq MoveLeaderRequest =>
(MoveLeaderRequest -> MoveLeaderRequest -> Ordering)
-> (MoveLeaderRequest -> MoveLeaderRequest -> Bool)
-> (MoveLeaderRequest -> MoveLeaderRequest -> Bool)
-> (MoveLeaderRequest -> MoveLeaderRequest -> Bool)
-> (MoveLeaderRequest -> MoveLeaderRequest -> Bool)
-> (MoveLeaderRequest -> MoveLeaderRequest -> MoveLeaderRequest)
-> (MoveLeaderRequest -> MoveLeaderRequest -> MoveLeaderRequest)
-> Ord MoveLeaderRequest
MoveLeaderRequest -> MoveLeaderRequest -> Bool
MoveLeaderRequest -> MoveLeaderRequest -> Ordering
MoveLeaderRequest -> MoveLeaderRequest -> MoveLeaderRequest
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 :: MoveLeaderRequest -> MoveLeaderRequest -> Ordering
compare :: MoveLeaderRequest -> MoveLeaderRequest -> Ordering
$c< :: MoveLeaderRequest -> MoveLeaderRequest -> Bool
< :: MoveLeaderRequest -> MoveLeaderRequest -> Bool
$c<= :: MoveLeaderRequest -> MoveLeaderRequest -> Bool
<= :: MoveLeaderRequest -> MoveLeaderRequest -> Bool
$c> :: MoveLeaderRequest -> MoveLeaderRequest -> Bool
> :: MoveLeaderRequest -> MoveLeaderRequest -> Bool
$c>= :: MoveLeaderRequest -> MoveLeaderRequest -> Bool
>= :: MoveLeaderRequest -> MoveLeaderRequest -> Bool
$cmax :: MoveLeaderRequest -> MoveLeaderRequest -> MoveLeaderRequest
max :: MoveLeaderRequest -> MoveLeaderRequest -> MoveLeaderRequest
$cmin :: MoveLeaderRequest -> MoveLeaderRequest -> MoveLeaderRequest
min :: MoveLeaderRequest -> MoveLeaderRequest -> MoveLeaderRequest
Prelude.Ord)
instance Prelude.Show MoveLeaderRequest where
  showsPrec :: Int -> MoveLeaderRequest -> ShowS
showsPrec Int
_ MoveLeaderRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MoveLeaderRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MoveLeaderRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MoveLeaderRequest "targetID" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "targetID"
-> (Word64 -> f Word64) -> MoveLeaderRequest -> f MoveLeaderRequest
fieldOf Proxy# "targetID"
_
    = ((Word64 -> f Word64) -> MoveLeaderRequest -> f MoveLeaderRequest)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> MoveLeaderRequest
-> f MoveLeaderRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MoveLeaderRequest -> Word64)
-> (MoveLeaderRequest -> Word64 -> MoveLeaderRequest)
-> Lens MoveLeaderRequest MoveLeaderRequest Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MoveLeaderRequest -> Word64
_MoveLeaderRequest'targetID
           (\ MoveLeaderRequest
x__ Word64
y__ -> MoveLeaderRequest
x__ {_MoveLeaderRequest'targetID = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MoveLeaderRequest where
  messageName :: Proxy MoveLeaderRequest -> Text
messageName Proxy MoveLeaderRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.MoveLeaderRequest"
  packedMessageDescriptor :: Proxy MoveLeaderRequest -> ByteString
packedMessageDescriptor Proxy MoveLeaderRequest
_
    = ByteString
"\n\
      \\DC1MoveLeaderRequest\DC2\SUB\n\
      \\btargetID\CAN\SOH \SOH(\EOTR\btargetID:\a\130\181\CAN\ETX3.3"
  packedFileDescriptor :: Proxy MoveLeaderRequest -> ByteString
packedFileDescriptor Proxy MoveLeaderRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MoveLeaderRequest)
fieldsByTag
    = let
        targetID__field_descriptor :: FieldDescriptor MoveLeaderRequest
targetID__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor MoveLeaderRequest Word64
-> FieldDescriptor MoveLeaderRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"targetID"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens MoveLeaderRequest MoveLeaderRequest Word64 Word64
-> FieldAccessor MoveLeaderRequest Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"targetID")) ::
              Data.ProtoLens.FieldDescriptor MoveLeaderRequest
      in
        [(Tag, FieldDescriptor MoveLeaderRequest)]
-> Map Tag (FieldDescriptor MoveLeaderRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MoveLeaderRequest
targetID__field_descriptor)]
  unknownFields :: Lens' MoveLeaderRequest FieldSet
unknownFields
    = (MoveLeaderRequest -> FieldSet)
-> (MoveLeaderRequest -> FieldSet -> MoveLeaderRequest)
-> Lens' MoveLeaderRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MoveLeaderRequest -> FieldSet
_MoveLeaderRequest'_unknownFields
        (\ MoveLeaderRequest
x__ FieldSet
y__ -> MoveLeaderRequest
x__ {_MoveLeaderRequest'_unknownFields = y__})
  defMessage :: MoveLeaderRequest
defMessage
    = MoveLeaderRequest'_constructor
        {_MoveLeaderRequest'targetID :: Word64
_MoveLeaderRequest'targetID = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MoveLeaderRequest'_unknownFields :: FieldSet
_MoveLeaderRequest'_unknownFields = []}
  parseMessage :: Parser MoveLeaderRequest
parseMessage
    = let
        loop ::
          MoveLeaderRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser MoveLeaderRequest
        loop :: MoveLeaderRequest -> Parser MoveLeaderRequest
loop MoveLeaderRequest
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 Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"targetID"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"targetID") 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 MoveLeaderRequest -> String -> Parser MoveLeaderRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do MoveLeaderRequest -> Parser MoveLeaderRequest
loop MoveLeaderRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"MoveLeaderRequest"
  buildMessage :: MoveLeaderRequest -> Builder
buildMessage
    = \ MoveLeaderRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Word64
_v = FoldLike Word64 MoveLeaderRequest MoveLeaderRequest Word64 Word64
-> MoveLeaderRequest -> Word64
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 @"targetID") MoveLeaderRequest
_x
              in
                if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet MoveLeaderRequest MoveLeaderRequest FieldSet FieldSet
-> MoveLeaderRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet MoveLeaderRequest MoveLeaderRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MoveLeaderRequest FieldSet
Data.ProtoLens.unknownFields MoveLeaderRequest
_x))
instance Control.DeepSeq.NFData MoveLeaderRequest where
  rnf :: MoveLeaderRequest -> ()
rnf
    = \ MoveLeaderRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MoveLeaderRequest -> FieldSet
_MoveLeaderRequest'_unknownFields MoveLeaderRequest
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MoveLeaderRequest -> Word64
_MoveLeaderRequest'targetID MoveLeaderRequest
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' MoveLeaderResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' MoveLeaderResponse (Prelude.Maybe ResponseHeader)@ -}
data MoveLeaderResponse
  = MoveLeaderResponse'_constructor {MoveLeaderResponse -> Maybe ResponseHeader
_MoveLeaderResponse'header :: !(Prelude.Maybe ResponseHeader),
                                     MoveLeaderResponse -> FieldSet
_MoveLeaderResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MoveLeaderResponse -> MoveLeaderResponse -> Bool
(MoveLeaderResponse -> MoveLeaderResponse -> Bool)
-> (MoveLeaderResponse -> MoveLeaderResponse -> Bool)
-> Eq MoveLeaderResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: MoveLeaderResponse -> MoveLeaderResponse -> Bool
== :: MoveLeaderResponse -> MoveLeaderResponse -> Bool
$c/= :: MoveLeaderResponse -> MoveLeaderResponse -> Bool
/= :: MoveLeaderResponse -> MoveLeaderResponse -> Bool
Prelude.Eq, Eq MoveLeaderResponse
Eq MoveLeaderResponse =>
(MoveLeaderResponse -> MoveLeaderResponse -> Ordering)
-> (MoveLeaderResponse -> MoveLeaderResponse -> Bool)
-> (MoveLeaderResponse -> MoveLeaderResponse -> Bool)
-> (MoveLeaderResponse -> MoveLeaderResponse -> Bool)
-> (MoveLeaderResponse -> MoveLeaderResponse -> Bool)
-> (MoveLeaderResponse -> MoveLeaderResponse -> MoveLeaderResponse)
-> (MoveLeaderResponse -> MoveLeaderResponse -> MoveLeaderResponse)
-> Ord MoveLeaderResponse
MoveLeaderResponse -> MoveLeaderResponse -> Bool
MoveLeaderResponse -> MoveLeaderResponse -> Ordering
MoveLeaderResponse -> MoveLeaderResponse -> MoveLeaderResponse
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 :: MoveLeaderResponse -> MoveLeaderResponse -> Ordering
compare :: MoveLeaderResponse -> MoveLeaderResponse -> Ordering
$c< :: MoveLeaderResponse -> MoveLeaderResponse -> Bool
< :: MoveLeaderResponse -> MoveLeaderResponse -> Bool
$c<= :: MoveLeaderResponse -> MoveLeaderResponse -> Bool
<= :: MoveLeaderResponse -> MoveLeaderResponse -> Bool
$c> :: MoveLeaderResponse -> MoveLeaderResponse -> Bool
> :: MoveLeaderResponse -> MoveLeaderResponse -> Bool
$c>= :: MoveLeaderResponse -> MoveLeaderResponse -> Bool
>= :: MoveLeaderResponse -> MoveLeaderResponse -> Bool
$cmax :: MoveLeaderResponse -> MoveLeaderResponse -> MoveLeaderResponse
max :: MoveLeaderResponse -> MoveLeaderResponse -> MoveLeaderResponse
$cmin :: MoveLeaderResponse -> MoveLeaderResponse -> MoveLeaderResponse
min :: MoveLeaderResponse -> MoveLeaderResponse -> MoveLeaderResponse
Prelude.Ord)
instance Prelude.Show MoveLeaderResponse where
  showsPrec :: Int -> MoveLeaderResponse -> ShowS
showsPrec Int
_ MoveLeaderResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (MoveLeaderResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MoveLeaderResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField MoveLeaderResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> MoveLeaderResponse
-> f MoveLeaderResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> MoveLeaderResponse -> f MoveLeaderResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> MoveLeaderResponse
-> f MoveLeaderResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MoveLeaderResponse -> Maybe ResponseHeader)
-> (MoveLeaderResponse
    -> Maybe ResponseHeader -> MoveLeaderResponse)
-> Lens
     MoveLeaderResponse
     MoveLeaderResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MoveLeaderResponse -> Maybe ResponseHeader
_MoveLeaderResponse'header
           (\ MoveLeaderResponse
x__ Maybe ResponseHeader
y__ -> MoveLeaderResponse
x__ {_MoveLeaderResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MoveLeaderResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> MoveLeaderResponse
-> f MoveLeaderResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> MoveLeaderResponse -> f MoveLeaderResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> MoveLeaderResponse
-> f MoveLeaderResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MoveLeaderResponse -> Maybe ResponseHeader)
-> (MoveLeaderResponse
    -> Maybe ResponseHeader -> MoveLeaderResponse)
-> Lens
     MoveLeaderResponse
     MoveLeaderResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MoveLeaderResponse -> Maybe ResponseHeader
_MoveLeaderResponse'header
           (\ MoveLeaderResponse
x__ Maybe ResponseHeader
y__ -> MoveLeaderResponse
x__ {_MoveLeaderResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MoveLeaderResponse where
  messageName :: Proxy MoveLeaderResponse -> Text
messageName Proxy MoveLeaderResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.MoveLeaderResponse"
  packedMessageDescriptor :: Proxy MoveLeaderResponse -> ByteString
packedMessageDescriptor Proxy MoveLeaderResponse
_
    = ByteString
"\n\
      \\DC2MoveLeaderResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.3"
  packedFileDescriptor :: Proxy MoveLeaderResponse -> ByteString
packedFileDescriptor Proxy MoveLeaderResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MoveLeaderResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor MoveLeaderResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor MoveLeaderResponse ResponseHeader
-> FieldDescriptor MoveLeaderResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  MoveLeaderResponse
  MoveLeaderResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor MoveLeaderResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor MoveLeaderResponse
      in
        [(Tag, FieldDescriptor MoveLeaderResponse)]
-> Map Tag (FieldDescriptor MoveLeaderResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor MoveLeaderResponse
header__field_descriptor)]
  unknownFields :: Lens' MoveLeaderResponse FieldSet
unknownFields
    = (MoveLeaderResponse -> FieldSet)
-> (MoveLeaderResponse -> FieldSet -> MoveLeaderResponse)
-> Lens' MoveLeaderResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MoveLeaderResponse -> FieldSet
_MoveLeaderResponse'_unknownFields
        (\ MoveLeaderResponse
x__ FieldSet
y__ -> MoveLeaderResponse
x__ {_MoveLeaderResponse'_unknownFields = y__})
  defMessage :: MoveLeaderResponse
defMessage
    = MoveLeaderResponse'_constructor
        {_MoveLeaderResponse'header :: Maybe ResponseHeader
_MoveLeaderResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _MoveLeaderResponse'_unknownFields :: FieldSet
_MoveLeaderResponse'_unknownFields = []}
  parseMessage :: Parser MoveLeaderResponse
parseMessage
    = let
        loop ::
          MoveLeaderResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser MoveLeaderResponse
        loop :: MoveLeaderResponse -> Parser MoveLeaderResponse
loop MoveLeaderResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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 MoveLeaderResponse -> String -> Parser MoveLeaderResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do MoveLeaderResponse -> Parser MoveLeaderResponse
loop MoveLeaderResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"MoveLeaderResponse"
  buildMessage :: MoveLeaderResponse -> Builder
buildMessage
    = \ MoveLeaderResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  MoveLeaderResponse
  MoveLeaderResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> MoveLeaderResponse -> Maybe ResponseHeader
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'header") MoveLeaderResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet MoveLeaderResponse MoveLeaderResponse FieldSet FieldSet
-> MoveLeaderResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet MoveLeaderResponse MoveLeaderResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' MoveLeaderResponse FieldSet
Data.ProtoLens.unknownFields MoveLeaderResponse
_x))
instance Control.DeepSeq.NFData MoveLeaderResponse where
  rnf :: MoveLeaderResponse -> ()
rnf
    = \ MoveLeaderResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MoveLeaderResponse -> FieldSet
_MoveLeaderResponse'_unknownFields MoveLeaderResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MoveLeaderResponse -> Maybe ResponseHeader
_MoveLeaderResponse'header MoveLeaderResponse
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.key' @:: Lens' PutRequest Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.value' @:: Lens' PutRequest Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.lease' @:: Lens' PutRequest Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.prevKv' @:: Lens' PutRequest Prelude.Bool@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.ignoreValue' @:: Lens' PutRequest Prelude.Bool@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.ignoreLease' @:: Lens' PutRequest Prelude.Bool@ -}
data PutRequest
  = PutRequest'_constructor {PutRequest -> ByteString
_PutRequest'key :: !Data.ByteString.ByteString,
                             PutRequest -> ByteString
_PutRequest'value :: !Data.ByteString.ByteString,
                             PutRequest -> Int64
_PutRequest'lease :: !Data.Int.Int64,
                             PutRequest -> Bool
_PutRequest'prevKv :: !Prelude.Bool,
                             PutRequest -> Bool
_PutRequest'ignoreValue :: !Prelude.Bool,
                             PutRequest -> Bool
_PutRequest'ignoreLease :: !Prelude.Bool,
                             PutRequest -> FieldSet
_PutRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (PutRequest -> PutRequest -> Bool
(PutRequest -> PutRequest -> Bool)
-> (PutRequest -> PutRequest -> Bool) -> Eq PutRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PutRequest -> PutRequest -> Bool
== :: PutRequest -> PutRequest -> Bool
$c/= :: PutRequest -> PutRequest -> Bool
/= :: PutRequest -> PutRequest -> Bool
Prelude.Eq, Eq PutRequest
Eq PutRequest =>
(PutRequest -> PutRequest -> Ordering)
-> (PutRequest -> PutRequest -> Bool)
-> (PutRequest -> PutRequest -> Bool)
-> (PutRequest -> PutRequest -> Bool)
-> (PutRequest -> PutRequest -> Bool)
-> (PutRequest -> PutRequest -> PutRequest)
-> (PutRequest -> PutRequest -> PutRequest)
-> Ord PutRequest
PutRequest -> PutRequest -> Bool
PutRequest -> PutRequest -> Ordering
PutRequest -> PutRequest -> PutRequest
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 :: PutRequest -> PutRequest -> Ordering
compare :: PutRequest -> PutRequest -> Ordering
$c< :: PutRequest -> PutRequest -> Bool
< :: PutRequest -> PutRequest -> Bool
$c<= :: PutRequest -> PutRequest -> Bool
<= :: PutRequest -> PutRequest -> Bool
$c> :: PutRequest -> PutRequest -> Bool
> :: PutRequest -> PutRequest -> Bool
$c>= :: PutRequest -> PutRequest -> Bool
>= :: PutRequest -> PutRequest -> Bool
$cmax :: PutRequest -> PutRequest -> PutRequest
max :: PutRequest -> PutRequest -> PutRequest
$cmin :: PutRequest -> PutRequest -> PutRequest
min :: PutRequest -> PutRequest -> PutRequest
Prelude.Ord)
instance Prelude.Show PutRequest where
  showsPrec :: Int -> PutRequest -> ShowS
showsPrec Int
_ PutRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (PutRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort PutRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField PutRequest "key" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (ByteString -> f ByteString) -> PutRequest -> f PutRequest
fieldOf Proxy# "key"
_
    = ((ByteString -> f ByteString) -> PutRequest -> f PutRequest)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> PutRequest
-> f PutRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PutRequest -> ByteString)
-> (PutRequest -> ByteString -> PutRequest)
-> Lens PutRequest PutRequest ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PutRequest -> ByteString
_PutRequest'key (\ PutRequest
x__ ByteString
y__ -> PutRequest
x__ {_PutRequest'key = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PutRequest "value" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (ByteString -> f ByteString) -> PutRequest -> f PutRequest
fieldOf Proxy# "value"
_
    = ((ByteString -> f ByteString) -> PutRequest -> f PutRequest)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> PutRequest
-> f PutRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PutRequest -> ByteString)
-> (PutRequest -> ByteString -> PutRequest)
-> Lens PutRequest PutRequest ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PutRequest -> ByteString
_PutRequest'value (\ PutRequest
x__ ByteString
y__ -> PutRequest
x__ {_PutRequest'value = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PutRequest "lease" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "lease" -> (Int64 -> f Int64) -> PutRequest -> f PutRequest
fieldOf Proxy# "lease"
_
    = ((Int64 -> f Int64) -> PutRequest -> f PutRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> PutRequest
-> f PutRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PutRequest -> Int64)
-> (PutRequest -> Int64 -> PutRequest)
-> Lens PutRequest PutRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PutRequest -> Int64
_PutRequest'lease (\ PutRequest
x__ Int64
y__ -> PutRequest
x__ {_PutRequest'lease = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PutRequest "prevKv" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "prevKv" -> (Bool -> f Bool) -> PutRequest -> f PutRequest
fieldOf Proxy# "prevKv"
_
    = ((Bool -> f Bool) -> PutRequest -> f PutRequest)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> PutRequest
-> f PutRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PutRequest -> Bool)
-> (PutRequest -> Bool -> PutRequest)
-> Lens PutRequest PutRequest Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PutRequest -> Bool
_PutRequest'prevKv (\ PutRequest
x__ Bool
y__ -> PutRequest
x__ {_PutRequest'prevKv = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PutRequest "ignoreValue" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ignoreValue"
-> (Bool -> f Bool) -> PutRequest -> f PutRequest
fieldOf Proxy# "ignoreValue"
_
    = ((Bool -> f Bool) -> PutRequest -> f PutRequest)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> PutRequest
-> f PutRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PutRequest -> Bool)
-> (PutRequest -> Bool -> PutRequest)
-> Lens PutRequest PutRequest Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PutRequest -> Bool
_PutRequest'ignoreValue
           (\ PutRequest
x__ Bool
y__ -> PutRequest
x__ {_PutRequest'ignoreValue = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PutRequest "ignoreLease" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "ignoreLease"
-> (Bool -> f Bool) -> PutRequest -> f PutRequest
fieldOf Proxy# "ignoreLease"
_
    = ((Bool -> f Bool) -> PutRequest -> f PutRequest)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> PutRequest
-> f PutRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PutRequest -> Bool)
-> (PutRequest -> Bool -> PutRequest)
-> Lens PutRequest PutRequest Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PutRequest -> Bool
_PutRequest'ignoreLease
           (\ PutRequest
x__ Bool
y__ -> PutRequest
x__ {_PutRequest'ignoreLease = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message PutRequest where
  messageName :: Proxy PutRequest -> Text
messageName Proxy PutRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.PutRequest"
  packedMessageDescriptor :: Proxy PutRequest -> ByteString
packedMessageDescriptor Proxy PutRequest
_
    = ByteString
"\n\
      \\n\
      \PutRequest\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\fR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\fR\ENQvalue\DC2\DC4\n\
      \\ENQlease\CAN\ETX \SOH(\ETXR\ENQlease\DC2 \n\
      \\aprev_kv\CAN\EOT \SOH(\bR\ACKprevKvB\a\138\181\CAN\ETX3.1\DC2*\n\
      \\fignore_value\CAN\ENQ \SOH(\bR\vignoreValueB\a\138\181\CAN\ETX3.2\DC2*\n\
      \\fignore_lease\CAN\ACK \SOH(\bR\vignoreLeaseB\a\138\181\CAN\ETX3.2:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy PutRequest -> ByteString
packedFileDescriptor Proxy PutRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor PutRequest)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor PutRequest
key__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor PutRequest ByteString
-> FieldDescriptor PutRequest
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 PutRequest PutRequest ByteString ByteString
-> FieldAccessor PutRequest 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 PutRequest
        value__field_descriptor :: FieldDescriptor PutRequest
value__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor PutRequest ByteString
-> FieldDescriptor PutRequest
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 PutRequest PutRequest ByteString ByteString
-> FieldAccessor PutRequest 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 PutRequest
        lease__field_descriptor :: FieldDescriptor PutRequest
lease__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor PutRequest Int64
-> FieldDescriptor PutRequest
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 PutRequest PutRequest Int64 Int64
-> FieldAccessor PutRequest 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 PutRequest
        prevKv__field_descriptor :: FieldDescriptor PutRequest
prevKv__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor PutRequest Bool
-> FieldDescriptor PutRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"prev_kv"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens PutRequest PutRequest Bool Bool
-> FieldAccessor PutRequest Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"prevKv")) ::
              Data.ProtoLens.FieldDescriptor PutRequest
        ignoreValue__field_descriptor :: FieldDescriptor PutRequest
ignoreValue__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor PutRequest Bool
-> FieldDescriptor PutRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ignore_value"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens PutRequest PutRequest Bool Bool
-> FieldAccessor PutRequest Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"ignoreValue")) ::
              Data.ProtoLens.FieldDescriptor PutRequest
        ignoreLease__field_descriptor :: FieldDescriptor PutRequest
ignoreLease__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor PutRequest Bool
-> FieldDescriptor PutRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"ignore_lease"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens PutRequest PutRequest Bool Bool
-> FieldAccessor PutRequest Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"ignoreLease")) ::
              Data.ProtoLens.FieldDescriptor PutRequest
      in
        [(Tag, FieldDescriptor PutRequest)]
-> Map Tag (FieldDescriptor PutRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor PutRequest
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor PutRequest
value__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor PutRequest
lease__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor PutRequest
prevKv__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor PutRequest
ignoreValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor PutRequest
ignoreLease__field_descriptor)]
  unknownFields :: Lens' PutRequest FieldSet
unknownFields
    = (PutRequest -> FieldSet)
-> (PutRequest -> FieldSet -> PutRequest)
-> Lens' PutRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        PutRequest -> FieldSet
_PutRequest'_unknownFields
        (\ PutRequest
x__ FieldSet
y__ -> PutRequest
x__ {_PutRequest'_unknownFields = y__})
  defMessage :: PutRequest
defMessage
    = PutRequest'_constructor
        {_PutRequest'key :: ByteString
_PutRequest'key = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PutRequest'value :: ByteString
_PutRequest'value = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PutRequest'lease :: Int64
_PutRequest'lease = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PutRequest'prevKv :: Bool
_PutRequest'prevKv = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PutRequest'ignoreValue :: Bool
_PutRequest'ignoreValue = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PutRequest'ignoreLease :: Bool
_PutRequest'ignoreLease = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PutRequest'_unknownFields :: FieldSet
_PutRequest'_unknownFields = []}
  parseMessage :: Parser PutRequest
parseMessage
    = let
        loop ::
          PutRequest -> Data.ProtoLens.Encoding.Bytes.Parser PutRequest
        loop :: PutRequest -> Parser PutRequest
loop PutRequest
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
18
                          -> 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
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
"lease"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"lease") y x)
                        Word64
32
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"prev_kv"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"prevKv") y x)
                        Word64
40
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"ignore_value"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"ignoreValue") y x)
                        Word64
48
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"ignore_lease"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"ignoreLease") 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 PutRequest -> String -> Parser PutRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do PutRequest -> Parser PutRequest
loop PutRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"PutRequest"
  buildMessage :: PutRequest -> Builder
buildMessage
    = \ PutRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike ByteString PutRequest PutRequest ByteString ByteString
-> PutRequest -> 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") PutRequest
_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 :: ByteString
_v = FoldLike ByteString PutRequest PutRequest ByteString ByteString
-> PutRequest -> 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") PutRequest
_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
18)
                         ((\ 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 PutRequest PutRequest Int64 Int64
-> PutRequest -> 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") PutRequest
_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 :: Bool
_v = FoldLike Bool PutRequest PutRequest Bool Bool -> PutRequest -> Bool
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 @"prevKv") PutRequest
_x
                       in
                         if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (let
                            _v :: Bool
_v
                              = FoldLike Bool PutRequest PutRequest Bool Bool -> PutRequest -> Bool
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 @"ignoreValue") PutRequest
_x
                          in
                            if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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
40)
                                  ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                     Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (let
                               _v :: Bool
_v
                                 = FoldLike Bool PutRequest PutRequest Bool Bool -> PutRequest -> Bool
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 @"ignoreLease") PutRequest
_x
                             in
                               if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                        Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                            (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                               (FoldLike FieldSet PutRequest PutRequest FieldSet FieldSet
-> PutRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet PutRequest PutRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PutRequest FieldSet
Data.ProtoLens.unknownFields PutRequest
_x)))))))
instance Control.DeepSeq.NFData PutRequest where
  rnf :: PutRequest -> ()
rnf
    = \ PutRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (PutRequest -> FieldSet
_PutRequest'_unknownFields PutRequest
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (PutRequest -> ByteString
_PutRequest'key PutRequest
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (PutRequest -> ByteString
_PutRequest'value PutRequest
x__)
                   (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (PutRequest -> Int64
_PutRequest'lease PutRequest
x__)
                      (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (PutRequest -> Bool
_PutRequest'prevKv PutRequest
x__)
                         (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (PutRequest -> Bool
_PutRequest'ignoreValue PutRequest
x__)
                            (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (PutRequest -> Bool
_PutRequest'ignoreLease PutRequest
x__) ()))))))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' PutResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' PutResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.prevKv' @:: Lens' PutResponse Proto.Etcd.Api.Mvccpb.Kv.KeyValue@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'prevKv' @:: Lens' PutResponse (Prelude.Maybe Proto.Etcd.Api.Mvccpb.Kv.KeyValue)@ -}
data PutResponse
  = PutResponse'_constructor {PutResponse -> Maybe ResponseHeader
_PutResponse'header :: !(Prelude.Maybe ResponseHeader),
                              PutResponse -> Maybe KeyValue
_PutResponse'prevKv :: !(Prelude.Maybe Proto.Etcd.Api.Mvccpb.Kv.KeyValue),
                              PutResponse -> FieldSet
_PutResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (PutResponse -> PutResponse -> Bool
(PutResponse -> PutResponse -> Bool)
-> (PutResponse -> PutResponse -> Bool) -> Eq PutResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PutResponse -> PutResponse -> Bool
== :: PutResponse -> PutResponse -> Bool
$c/= :: PutResponse -> PutResponse -> Bool
/= :: PutResponse -> PutResponse -> Bool
Prelude.Eq, Eq PutResponse
Eq PutResponse =>
(PutResponse -> PutResponse -> Ordering)
-> (PutResponse -> PutResponse -> Bool)
-> (PutResponse -> PutResponse -> Bool)
-> (PutResponse -> PutResponse -> Bool)
-> (PutResponse -> PutResponse -> Bool)
-> (PutResponse -> PutResponse -> PutResponse)
-> (PutResponse -> PutResponse -> PutResponse)
-> Ord PutResponse
PutResponse -> PutResponse -> Bool
PutResponse -> PutResponse -> Ordering
PutResponse -> PutResponse -> PutResponse
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 :: PutResponse -> PutResponse -> Ordering
compare :: PutResponse -> PutResponse -> Ordering
$c< :: PutResponse -> PutResponse -> Bool
< :: PutResponse -> PutResponse -> Bool
$c<= :: PutResponse -> PutResponse -> Bool
<= :: PutResponse -> PutResponse -> Bool
$c> :: PutResponse -> PutResponse -> Bool
> :: PutResponse -> PutResponse -> Bool
$c>= :: PutResponse -> PutResponse -> Bool
>= :: PutResponse -> PutResponse -> Bool
$cmax :: PutResponse -> PutResponse -> PutResponse
max :: PutResponse -> PutResponse -> PutResponse
$cmin :: PutResponse -> PutResponse -> PutResponse
min :: PutResponse -> PutResponse -> PutResponse
Prelude.Ord)
instance Prelude.Show PutResponse where
  showsPrec :: Int -> PutResponse -> ShowS
showsPrec Int
_ PutResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (PutResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort PutResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField PutResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> PutResponse
-> f PutResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> PutResponse -> f PutResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> PutResponse
-> f PutResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PutResponse -> Maybe ResponseHeader)
-> (PutResponse -> Maybe ResponseHeader -> PutResponse)
-> Lens
     PutResponse
     PutResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PutResponse -> Maybe ResponseHeader
_PutResponse'header (\ PutResponse
x__ Maybe ResponseHeader
y__ -> PutResponse
x__ {_PutResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField PutResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> PutResponse
-> f PutResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> PutResponse -> f PutResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> PutResponse
-> f PutResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PutResponse -> Maybe ResponseHeader)
-> (PutResponse -> Maybe ResponseHeader -> PutResponse)
-> Lens
     PutResponse
     PutResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PutResponse -> Maybe ResponseHeader
_PutResponse'header (\ PutResponse
x__ Maybe ResponseHeader
y__ -> PutResponse
x__ {_PutResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PutResponse "prevKv" Proto.Etcd.Api.Mvccpb.Kv.KeyValue where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "prevKv"
-> (KeyValue -> f KeyValue) -> PutResponse -> f PutResponse
fieldOf Proxy# "prevKv"
_
    = ((Maybe KeyValue -> f (Maybe KeyValue))
 -> PutResponse -> f PutResponse)
-> ((KeyValue -> f KeyValue)
    -> Maybe KeyValue -> f (Maybe KeyValue))
-> (KeyValue -> f KeyValue)
-> PutResponse
-> f PutResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PutResponse -> Maybe KeyValue)
-> (PutResponse -> Maybe KeyValue -> PutResponse)
-> Lens PutResponse PutResponse (Maybe KeyValue) (Maybe KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PutResponse -> Maybe KeyValue
_PutResponse'prevKv (\ PutResponse
x__ Maybe KeyValue
y__ -> PutResponse
x__ {_PutResponse'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 PutResponse "maybe'prevKv" (Prelude.Maybe Proto.Etcd.Api.Mvccpb.Kv.KeyValue) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'prevKv"
-> (Maybe KeyValue -> f (Maybe KeyValue))
-> PutResponse
-> f PutResponse
fieldOf Proxy# "maybe'prevKv"
_
    = ((Maybe KeyValue -> f (Maybe KeyValue))
 -> PutResponse -> f PutResponse)
-> ((Maybe KeyValue -> f (Maybe KeyValue))
    -> Maybe KeyValue -> f (Maybe KeyValue))
-> (Maybe KeyValue -> f (Maybe KeyValue))
-> PutResponse
-> f PutResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PutResponse -> Maybe KeyValue)
-> (PutResponse -> Maybe KeyValue -> PutResponse)
-> Lens PutResponse PutResponse (Maybe KeyValue) (Maybe KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PutResponse -> Maybe KeyValue
_PutResponse'prevKv (\ PutResponse
x__ Maybe KeyValue
y__ -> PutResponse
x__ {_PutResponse'prevKv = y__}))
        (Maybe KeyValue -> f (Maybe KeyValue))
-> Maybe KeyValue -> f (Maybe KeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message PutResponse where
  messageName :: Proxy PutResponse -> Text
messageName Proxy PutResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.PutResponse"
  packedMessageDescriptor :: Proxy PutResponse -> ByteString
packedMessageDescriptor Proxy PutResponse
_
    = ByteString
"\n\
      \\vPutResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC22\n\
      \\aprev_kv\CAN\STX \SOH(\v2\DLE.mvccpb.KeyValueR\ACKprevKvB\a\138\181\CAN\ETX3.1:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy PutResponse -> ByteString
packedFileDescriptor Proxy PutResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor PutResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor PutResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor PutResponse ResponseHeader
-> FieldDescriptor PutResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  PutResponse
  PutResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor PutResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor PutResponse
        prevKv__field_descriptor :: FieldDescriptor PutResponse
prevKv__field_descriptor
          = String
-> FieldTypeDescriptor KeyValue
-> FieldAccessor PutResponse KeyValue
-> FieldDescriptor PutResponse
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 Proto.Etcd.Api.Mvccpb.Kv.KeyValue)
              (Lens PutResponse PutResponse (Maybe KeyValue) (Maybe KeyValue)
-> FieldAccessor PutResponse 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 PutResponse
      in
        [(Tag, FieldDescriptor PutResponse)]
-> Map Tag (FieldDescriptor PutResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor PutResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor PutResponse
prevKv__field_descriptor)]
  unknownFields :: Lens' PutResponse FieldSet
unknownFields
    = (PutResponse -> FieldSet)
-> (PutResponse -> FieldSet -> PutResponse)
-> Lens' PutResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        PutResponse -> FieldSet
_PutResponse'_unknownFields
        (\ PutResponse
x__ FieldSet
y__ -> PutResponse
x__ {_PutResponse'_unknownFields = y__})
  defMessage :: PutResponse
defMessage
    = PutResponse'_constructor
        {_PutResponse'header :: Maybe ResponseHeader
_PutResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _PutResponse'prevKv :: Maybe KeyValue
_PutResponse'prevKv = Maybe KeyValue
forall a. Maybe a
Prelude.Nothing,
         _PutResponse'_unknownFields :: FieldSet
_PutResponse'_unknownFields = []}
  parseMessage :: Parser PutResponse
parseMessage
    = let
        loop ::
          PutResponse -> Data.ProtoLens.Encoding.Bytes.Parser PutResponse
        loop :: PutResponse -> Parser PutResponse
loop PutResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") 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
"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 PutResponse -> String -> Parser PutResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do PutResponse -> Parser PutResponse
loop PutResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"PutResponse"
  buildMessage :: PutResponse -> Builder
buildMessage
    = \ PutResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  PutResponse
  PutResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> PutResponse -> Maybe ResponseHeader
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'header") PutResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe KeyValue)
  PutResponse
  PutResponse
  (Maybe KeyValue)
  (Maybe KeyValue)
-> PutResponse -> 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") PutResponse
_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))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet PutResponse PutResponse FieldSet FieldSet
-> PutResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet PutResponse PutResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' PutResponse FieldSet
Data.ProtoLens.unknownFields PutResponse
_x)))
instance Control.DeepSeq.NFData PutResponse where
  rnf :: PutResponse -> ()
rnf
    = \ PutResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (PutResponse -> FieldSet
_PutResponse'_unknownFields PutResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (PutResponse -> Maybe ResponseHeader
_PutResponse'header PutResponse
x__)
                (Maybe KeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (PutResponse -> Maybe KeyValue
_PutResponse'prevKv PutResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.key' @:: Lens' RangeRequest Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.rangeEnd' @:: Lens' RangeRequest Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.limit' @:: Lens' RangeRequest Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.revision' @:: Lens' RangeRequest Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.sortOrder' @:: Lens' RangeRequest RangeRequest'SortOrder@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.sortTarget' @:: Lens' RangeRequest RangeRequest'SortTarget@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.serializable' @:: Lens' RangeRequest Prelude.Bool@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.keysOnly' @:: Lens' RangeRequest Prelude.Bool@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.countOnly' @:: Lens' RangeRequest Prelude.Bool@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.minModRevision' @:: Lens' RangeRequest Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maxModRevision' @:: Lens' RangeRequest Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.minCreateRevision' @:: Lens' RangeRequest Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maxCreateRevision' @:: Lens' RangeRequest Data.Int.Int64@ -}
data RangeRequest
  = RangeRequest'_constructor {RangeRequest -> ByteString
_RangeRequest'key :: !Data.ByteString.ByteString,
                               RangeRequest -> ByteString
_RangeRequest'rangeEnd :: !Data.ByteString.ByteString,
                               RangeRequest -> Int64
_RangeRequest'limit :: !Data.Int.Int64,
                               RangeRequest -> Int64
_RangeRequest'revision :: !Data.Int.Int64,
                               RangeRequest -> RangeRequest'SortOrder
_RangeRequest'sortOrder :: !RangeRequest'SortOrder,
                               RangeRequest -> RangeRequest'SortTarget
_RangeRequest'sortTarget :: !RangeRequest'SortTarget,
                               RangeRequest -> Bool
_RangeRequest'serializable :: !Prelude.Bool,
                               RangeRequest -> Bool
_RangeRequest'keysOnly :: !Prelude.Bool,
                               RangeRequest -> Bool
_RangeRequest'countOnly :: !Prelude.Bool,
                               RangeRequest -> Int64
_RangeRequest'minModRevision :: !Data.Int.Int64,
                               RangeRequest -> Int64
_RangeRequest'maxModRevision :: !Data.Int.Int64,
                               RangeRequest -> Int64
_RangeRequest'minCreateRevision :: !Data.Int.Int64,
                               RangeRequest -> Int64
_RangeRequest'maxCreateRevision :: !Data.Int.Int64,
                               RangeRequest -> FieldSet
_RangeRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (RangeRequest -> RangeRequest -> Bool
(RangeRequest -> RangeRequest -> Bool)
-> (RangeRequest -> RangeRequest -> Bool) -> Eq RangeRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RangeRequest -> RangeRequest -> Bool
== :: RangeRequest -> RangeRequest -> Bool
$c/= :: RangeRequest -> RangeRequest -> Bool
/= :: RangeRequest -> RangeRequest -> Bool
Prelude.Eq, Eq RangeRequest
Eq RangeRequest =>
(RangeRequest -> RangeRequest -> Ordering)
-> (RangeRequest -> RangeRequest -> Bool)
-> (RangeRequest -> RangeRequest -> Bool)
-> (RangeRequest -> RangeRequest -> Bool)
-> (RangeRequest -> RangeRequest -> Bool)
-> (RangeRequest -> RangeRequest -> RangeRequest)
-> (RangeRequest -> RangeRequest -> RangeRequest)
-> Ord RangeRequest
RangeRequest -> RangeRequest -> Bool
RangeRequest -> RangeRequest -> Ordering
RangeRequest -> RangeRequest -> RangeRequest
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 :: RangeRequest -> RangeRequest -> Ordering
compare :: RangeRequest -> RangeRequest -> Ordering
$c< :: RangeRequest -> RangeRequest -> Bool
< :: RangeRequest -> RangeRequest -> Bool
$c<= :: RangeRequest -> RangeRequest -> Bool
<= :: RangeRequest -> RangeRequest -> Bool
$c> :: RangeRequest -> RangeRequest -> Bool
> :: RangeRequest -> RangeRequest -> Bool
$c>= :: RangeRequest -> RangeRequest -> Bool
>= :: RangeRequest -> RangeRequest -> Bool
$cmax :: RangeRequest -> RangeRequest -> RangeRequest
max :: RangeRequest -> RangeRequest -> RangeRequest
$cmin :: RangeRequest -> RangeRequest -> RangeRequest
min :: RangeRequest -> RangeRequest -> RangeRequest
Prelude.Ord)
instance Prelude.Show RangeRequest where
  showsPrec :: Int -> RangeRequest -> ShowS
showsPrec Int
_ RangeRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (RangeRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RangeRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField RangeRequest "key" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (ByteString -> f ByteString) -> RangeRequest -> f RangeRequest
fieldOf Proxy# "key"
_
    = ((ByteString -> f ByteString) -> RangeRequest -> f RangeRequest)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> RangeRequest
-> f RangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeRequest -> ByteString)
-> (RangeRequest -> ByteString -> RangeRequest)
-> Lens RangeRequest RangeRequest ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeRequest -> ByteString
_RangeRequest'key (\ RangeRequest
x__ ByteString
y__ -> RangeRequest
x__ {_RangeRequest'key = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RangeRequest "rangeEnd" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rangeEnd"
-> (ByteString -> f ByteString) -> RangeRequest -> f RangeRequest
fieldOf Proxy# "rangeEnd"
_
    = ((ByteString -> f ByteString) -> RangeRequest -> f RangeRequest)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> RangeRequest
-> f RangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeRequest -> ByteString)
-> (RangeRequest -> ByteString -> RangeRequest)
-> Lens RangeRequest RangeRequest ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeRequest -> ByteString
_RangeRequest'rangeEnd
           (\ RangeRequest
x__ ByteString
y__ -> RangeRequest
x__ {_RangeRequest'rangeEnd = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RangeRequest "limit" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "limit"
-> (Int64 -> f Int64) -> RangeRequest -> f RangeRequest
fieldOf Proxy# "limit"
_
    = ((Int64 -> f Int64) -> RangeRequest -> f RangeRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> RangeRequest
-> f RangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeRequest -> Int64)
-> (RangeRequest -> Int64 -> RangeRequest)
-> Lens RangeRequest RangeRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeRequest -> Int64
_RangeRequest'limit (\ RangeRequest
x__ Int64
y__ -> RangeRequest
x__ {_RangeRequest'limit = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RangeRequest "revision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "revision"
-> (Int64 -> f Int64) -> RangeRequest -> f RangeRequest
fieldOf Proxy# "revision"
_
    = ((Int64 -> f Int64) -> RangeRequest -> f RangeRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> RangeRequest
-> f RangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeRequest -> Int64)
-> (RangeRequest -> Int64 -> RangeRequest)
-> Lens RangeRequest RangeRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeRequest -> Int64
_RangeRequest'revision
           (\ RangeRequest
x__ Int64
y__ -> RangeRequest
x__ {_RangeRequest'revision = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RangeRequest "sortOrder" RangeRequest'SortOrder where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "sortOrder"
-> (RangeRequest'SortOrder -> f RangeRequest'SortOrder)
-> RangeRequest
-> f RangeRequest
fieldOf Proxy# "sortOrder"
_
    = ((RangeRequest'SortOrder -> f RangeRequest'SortOrder)
 -> RangeRequest -> f RangeRequest)
-> ((RangeRequest'SortOrder -> f RangeRequest'SortOrder)
    -> RangeRequest'SortOrder -> f RangeRequest'SortOrder)
-> (RangeRequest'SortOrder -> f RangeRequest'SortOrder)
-> RangeRequest
-> f RangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeRequest -> RangeRequest'SortOrder)
-> (RangeRequest -> RangeRequest'SortOrder -> RangeRequest)
-> Lens
     RangeRequest
     RangeRequest
     RangeRequest'SortOrder
     RangeRequest'SortOrder
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeRequest -> RangeRequest'SortOrder
_RangeRequest'sortOrder
           (\ RangeRequest
x__ RangeRequest'SortOrder
y__ -> RangeRequest
x__ {_RangeRequest'sortOrder = y__}))
        (RangeRequest'SortOrder -> f RangeRequest'SortOrder)
-> RangeRequest'SortOrder -> f RangeRequest'SortOrder
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RangeRequest "sortTarget" RangeRequest'SortTarget where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "sortTarget"
-> (RangeRequest'SortTarget -> f RangeRequest'SortTarget)
-> RangeRequest
-> f RangeRequest
fieldOf Proxy# "sortTarget"
_
    = ((RangeRequest'SortTarget -> f RangeRequest'SortTarget)
 -> RangeRequest -> f RangeRequest)
-> ((RangeRequest'SortTarget -> f RangeRequest'SortTarget)
    -> RangeRequest'SortTarget -> f RangeRequest'SortTarget)
-> (RangeRequest'SortTarget -> f RangeRequest'SortTarget)
-> RangeRequest
-> f RangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeRequest -> RangeRequest'SortTarget)
-> (RangeRequest -> RangeRequest'SortTarget -> RangeRequest)
-> Lens
     RangeRequest
     RangeRequest
     RangeRequest'SortTarget
     RangeRequest'SortTarget
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeRequest -> RangeRequest'SortTarget
_RangeRequest'sortTarget
           (\ RangeRequest
x__ RangeRequest'SortTarget
y__ -> RangeRequest
x__ {_RangeRequest'sortTarget = y__}))
        (RangeRequest'SortTarget -> f RangeRequest'SortTarget)
-> RangeRequest'SortTarget -> f RangeRequest'SortTarget
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RangeRequest "serializable" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "serializable"
-> (Bool -> f Bool) -> RangeRequest -> f RangeRequest
fieldOf Proxy# "serializable"
_
    = ((Bool -> f Bool) -> RangeRequest -> f RangeRequest)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> RangeRequest
-> f RangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeRequest -> Bool)
-> (RangeRequest -> Bool -> RangeRequest)
-> Lens RangeRequest RangeRequest Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeRequest -> Bool
_RangeRequest'serializable
           (\ RangeRequest
x__ Bool
y__ -> RangeRequest
x__ {_RangeRequest'serializable = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RangeRequest "keysOnly" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "keysOnly"
-> (Bool -> f Bool) -> RangeRequest -> f RangeRequest
fieldOf Proxy# "keysOnly"
_
    = ((Bool -> f Bool) -> RangeRequest -> f RangeRequest)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> RangeRequest
-> f RangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeRequest -> Bool)
-> (RangeRequest -> Bool -> RangeRequest)
-> Lens RangeRequest RangeRequest Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeRequest -> Bool
_RangeRequest'keysOnly
           (\ RangeRequest
x__ Bool
y__ -> RangeRequest
x__ {_RangeRequest'keysOnly = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RangeRequest "countOnly" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "countOnly"
-> (Bool -> f Bool) -> RangeRequest -> f RangeRequest
fieldOf Proxy# "countOnly"
_
    = ((Bool -> f Bool) -> RangeRequest -> f RangeRequest)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> RangeRequest
-> f RangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeRequest -> Bool)
-> (RangeRequest -> Bool -> RangeRequest)
-> Lens RangeRequest RangeRequest Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeRequest -> Bool
_RangeRequest'countOnly
           (\ RangeRequest
x__ Bool
y__ -> RangeRequest
x__ {_RangeRequest'countOnly = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RangeRequest "minModRevision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minModRevision"
-> (Int64 -> f Int64) -> RangeRequest -> f RangeRequest
fieldOf Proxy# "minModRevision"
_
    = ((Int64 -> f Int64) -> RangeRequest -> f RangeRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> RangeRequest
-> f RangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeRequest -> Int64)
-> (RangeRequest -> Int64 -> RangeRequest)
-> Lens RangeRequest RangeRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeRequest -> Int64
_RangeRequest'minModRevision
           (\ RangeRequest
x__ Int64
y__ -> RangeRequest
x__ {_RangeRequest'minModRevision = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RangeRequest "maxModRevision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxModRevision"
-> (Int64 -> f Int64) -> RangeRequest -> f RangeRequest
fieldOf Proxy# "maxModRevision"
_
    = ((Int64 -> f Int64) -> RangeRequest -> f RangeRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> RangeRequest
-> f RangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeRequest -> Int64)
-> (RangeRequest -> Int64 -> RangeRequest)
-> Lens RangeRequest RangeRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeRequest -> Int64
_RangeRequest'maxModRevision
           (\ RangeRequest
x__ Int64
y__ -> RangeRequest
x__ {_RangeRequest'maxModRevision = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RangeRequest "minCreateRevision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "minCreateRevision"
-> (Int64 -> f Int64) -> RangeRequest -> f RangeRequest
fieldOf Proxy# "minCreateRevision"
_
    = ((Int64 -> f Int64) -> RangeRequest -> f RangeRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> RangeRequest
-> f RangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeRequest -> Int64)
-> (RangeRequest -> Int64 -> RangeRequest)
-> Lens RangeRequest RangeRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeRequest -> Int64
_RangeRequest'minCreateRevision
           (\ RangeRequest
x__ Int64
y__ -> RangeRequest
x__ {_RangeRequest'minCreateRevision = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RangeRequest "maxCreateRevision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maxCreateRevision"
-> (Int64 -> f Int64) -> RangeRequest -> f RangeRequest
fieldOf Proxy# "maxCreateRevision"
_
    = ((Int64 -> f Int64) -> RangeRequest -> f RangeRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> RangeRequest
-> f RangeRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeRequest -> Int64)
-> (RangeRequest -> Int64 -> RangeRequest)
-> Lens RangeRequest RangeRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeRequest -> Int64
_RangeRequest'maxCreateRevision
           (\ RangeRequest
x__ Int64
y__ -> RangeRequest
x__ {_RangeRequest'maxCreateRevision = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RangeRequest where
  messageName :: Proxy RangeRequest -> Text
messageName Proxy RangeRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.RangeRequest"
  packedMessageDescriptor :: Proxy RangeRequest -> ByteString
packedMessageDescriptor Proxy RangeRequest
_
    = ByteString
"\n\
      \\fRangeRequest\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\fR\ETXkey\DC2\ESC\n\
      \\trange_end\CAN\STX \SOH(\fR\brangeEnd\DC2\DC4\n\
      \\ENQlimit\CAN\ETX \SOH(\ETXR\ENQlimit\DC2\SUB\n\
      \\brevision\CAN\EOT \SOH(\ETXR\brevision\DC2C\n\
      \\n\
      \sort_order\CAN\ENQ \SOH(\SO2$.etcdserverpb.RangeRequest.SortOrderR\tsortOrder\DC2F\n\
      \\vsort_target\CAN\ACK \SOH(\SO2%.etcdserverpb.RangeRequest.SortTargetR\n\
      \sortTarget\DC2\"\n\
      \\fserializable\CAN\a \SOH(\bR\fserializable\DC2\ESC\n\
      \\tkeys_only\CAN\b \SOH(\bR\bkeysOnly\DC2\GS\n\
      \\n\
      \count_only\CAN\t \SOH(\bR\tcountOnly\DC21\n\
      \\DLEmin_mod_revision\CAN\n\
      \ \SOH(\ETXR\SOminModRevisionB\a\138\181\CAN\ETX3.1\DC21\n\
      \\DLEmax_mod_revision\CAN\v \SOH(\ETXR\SOmaxModRevisionB\a\138\181\CAN\ETX3.1\DC27\n\
      \\DC3min_create_revision\CAN\f \SOH(\ETXR\DC1minCreateRevisionB\a\138\181\CAN\ETX3.1\DC27\n\
      \\DC3max_create_revision\CAN\r \SOH(\ETXR\DC1maxCreateRevisionB\a\138\181\CAN\ETX3.1\"7\n\
      \\tSortOrder\DC2\b\n\
      \\EOTNONE\DLE\NUL\DC2\n\
      \\n\
      \\ACKASCEND\DLE\SOH\DC2\v\n\
      \\aDESCEND\DLE\STX\SUB\a\146\181\CAN\ETX3.0\"K\n\
      \\n\
      \SortTarget\DC2\a\n\
      \\ETXKEY\DLE\NUL\DC2\v\n\
      \\aVERSION\DLE\SOH\DC2\n\
      \\n\
      \\ACKCREATE\DLE\STX\DC2\a\n\
      \\ETXMOD\DLE\ETX\DC2\t\n\
      \\ENQVALUE\DLE\EOT\SUB\a\146\181\CAN\ETX3.0:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy RangeRequest -> ByteString
packedFileDescriptor Proxy RangeRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor RangeRequest)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor RangeRequest
key__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor RangeRequest ByteString
-> FieldDescriptor RangeRequest
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 RangeRequest RangeRequest ByteString ByteString
-> FieldAccessor RangeRequest 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 RangeRequest
        rangeEnd__field_descriptor :: FieldDescriptor RangeRequest
rangeEnd__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor RangeRequest ByteString
-> FieldDescriptor RangeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"range_end"
              (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 RangeRequest RangeRequest ByteString ByteString
-> FieldAccessor RangeRequest 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 @"rangeEnd")) ::
              Data.ProtoLens.FieldDescriptor RangeRequest
        limit__field_descriptor :: FieldDescriptor RangeRequest
limit__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor RangeRequest Int64
-> FieldDescriptor RangeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"limit"
              (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 RangeRequest RangeRequest Int64 Int64
-> FieldAccessor RangeRequest 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 @"limit")) ::
              Data.ProtoLens.FieldDescriptor RangeRequest
        revision__field_descriptor :: FieldDescriptor RangeRequest
revision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor RangeRequest Int64
-> FieldDescriptor RangeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"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 RangeRequest RangeRequest Int64 Int64
-> FieldAccessor RangeRequest 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 @"revision")) ::
              Data.ProtoLens.FieldDescriptor RangeRequest
        sortOrder__field_descriptor :: FieldDescriptor RangeRequest
sortOrder__field_descriptor
          = String
-> FieldTypeDescriptor RangeRequest'SortOrder
-> FieldAccessor RangeRequest RangeRequest'SortOrder
-> FieldDescriptor RangeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"sort_order"
              (ScalarField RangeRequest'SortOrder
-> FieldTypeDescriptor RangeRequest'SortOrder
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField RangeRequest'SortOrder
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor RangeRequest'SortOrder)
              (WireDefault RangeRequest'SortOrder
-> Lens
     RangeRequest
     RangeRequest
     RangeRequest'SortOrder
     RangeRequest'SortOrder
-> FieldAccessor RangeRequest RangeRequest'SortOrder
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault RangeRequest'SortOrder
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 @"sortOrder")) ::
              Data.ProtoLens.FieldDescriptor RangeRequest
        sortTarget__field_descriptor :: FieldDescriptor RangeRequest
sortTarget__field_descriptor
          = String
-> FieldTypeDescriptor RangeRequest'SortTarget
-> FieldAccessor RangeRequest RangeRequest'SortTarget
-> FieldDescriptor RangeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"sort_target"
              (ScalarField RangeRequest'SortTarget
-> FieldTypeDescriptor RangeRequest'SortTarget
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField RangeRequest'SortTarget
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor RangeRequest'SortTarget)
              (WireDefault RangeRequest'SortTarget
-> Lens
     RangeRequest
     RangeRequest
     RangeRequest'SortTarget
     RangeRequest'SortTarget
-> FieldAccessor RangeRequest RangeRequest'SortTarget
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault RangeRequest'SortTarget
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 @"sortTarget")) ::
              Data.ProtoLens.FieldDescriptor RangeRequest
        serializable__field_descriptor :: FieldDescriptor RangeRequest
serializable__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor RangeRequest Bool
-> FieldDescriptor RangeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"serializable"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens RangeRequest RangeRequest Bool Bool
-> FieldAccessor RangeRequest Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"serializable")) ::
              Data.ProtoLens.FieldDescriptor RangeRequest
        keysOnly__field_descriptor :: FieldDescriptor RangeRequest
keysOnly__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor RangeRequest Bool
-> FieldDescriptor RangeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"keys_only"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens RangeRequest RangeRequest Bool Bool
-> FieldAccessor RangeRequest Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"keysOnly")) ::
              Data.ProtoLens.FieldDescriptor RangeRequest
        countOnly__field_descriptor :: FieldDescriptor RangeRequest
countOnly__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor RangeRequest Bool
-> FieldDescriptor RangeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"count_only"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens RangeRequest RangeRequest Bool Bool
-> FieldAccessor RangeRequest Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"countOnly")) ::
              Data.ProtoLens.FieldDescriptor RangeRequest
        minModRevision__field_descriptor :: FieldDescriptor RangeRequest
minModRevision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor RangeRequest Int64
-> FieldDescriptor RangeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"min_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 RangeRequest RangeRequest Int64 Int64
-> FieldAccessor RangeRequest 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 @"minModRevision")) ::
              Data.ProtoLens.FieldDescriptor RangeRequest
        maxModRevision__field_descriptor :: FieldDescriptor RangeRequest
maxModRevision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor RangeRequest Int64
-> FieldDescriptor RangeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"max_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 RangeRequest RangeRequest Int64 Int64
-> FieldAccessor RangeRequest 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 @"maxModRevision")) ::
              Data.ProtoLens.FieldDescriptor RangeRequest
        minCreateRevision__field_descriptor :: FieldDescriptor RangeRequest
minCreateRevision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor RangeRequest Int64
-> FieldDescriptor RangeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"min_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 RangeRequest RangeRequest Int64 Int64
-> FieldAccessor RangeRequest 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 @"minCreateRevision")) ::
              Data.ProtoLens.FieldDescriptor RangeRequest
        maxCreateRevision__field_descriptor :: FieldDescriptor RangeRequest
maxCreateRevision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor RangeRequest Int64
-> FieldDescriptor RangeRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"max_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 RangeRequest RangeRequest Int64 Int64
-> FieldAccessor RangeRequest 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 @"maxCreateRevision")) ::
              Data.ProtoLens.FieldDescriptor RangeRequest
      in
        [(Tag, FieldDescriptor RangeRequest)]
-> Map Tag (FieldDescriptor RangeRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor RangeRequest
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor RangeRequest
rangeEnd__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor RangeRequest
limit__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor RangeRequest
revision__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor RangeRequest
sortOrder__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor RangeRequest
sortTarget__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor RangeRequest
serializable__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor RangeRequest
keysOnly__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor RangeRequest
countOnly__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor RangeRequest
minModRevision__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor RangeRequest
maxModRevision__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
12, FieldDescriptor RangeRequest
minCreateRevision__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
13, FieldDescriptor RangeRequest
maxCreateRevision__field_descriptor)]
  unknownFields :: Lens' RangeRequest FieldSet
unknownFields
    = (RangeRequest -> FieldSet)
-> (RangeRequest -> FieldSet -> RangeRequest)
-> Lens' RangeRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        RangeRequest -> FieldSet
_RangeRequest'_unknownFields
        (\ RangeRequest
x__ FieldSet
y__ -> RangeRequest
x__ {_RangeRequest'_unknownFields = y__})
  defMessage :: RangeRequest
defMessage
    = RangeRequest'_constructor
        {_RangeRequest'key :: ByteString
_RangeRequest'key = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RangeRequest'rangeEnd :: ByteString
_RangeRequest'rangeEnd = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RangeRequest'limit :: Int64
_RangeRequest'limit = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RangeRequest'revision :: Int64
_RangeRequest'revision = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RangeRequest'sortOrder :: RangeRequest'SortOrder
_RangeRequest'sortOrder = RangeRequest'SortOrder
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RangeRequest'sortTarget :: RangeRequest'SortTarget
_RangeRequest'sortTarget = RangeRequest'SortTarget
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RangeRequest'serializable :: Bool
_RangeRequest'serializable = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RangeRequest'keysOnly :: Bool
_RangeRequest'keysOnly = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RangeRequest'countOnly :: Bool
_RangeRequest'countOnly = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RangeRequest'minModRevision :: Int64
_RangeRequest'minModRevision = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RangeRequest'maxModRevision :: Int64
_RangeRequest'maxModRevision = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RangeRequest'minCreateRevision :: Int64
_RangeRequest'minCreateRevision = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RangeRequest'maxCreateRevision :: Int64
_RangeRequest'maxCreateRevision = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RangeRequest'_unknownFields :: FieldSet
_RangeRequest'_unknownFields = []}
  parseMessage :: Parser RangeRequest
parseMessage
    = let
        loop ::
          RangeRequest -> Data.ProtoLens.Encoding.Bytes.Parser RangeRequest
        loop :: RangeRequest -> Parser RangeRequest
loop RangeRequest
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
18
                          -> 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
"range_end"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"rangeEnd") 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
"limit"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"limit") 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
"revision"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"revision") y x)
                        Word64
40
                          -> do y <- Parser RangeRequest'SortOrder
-> String -> Parser RangeRequest'SortOrder
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> RangeRequest'SortOrder)
-> Parser Int -> Parser RangeRequest'SortOrder
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> RangeRequest'SortOrder
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
"sort_order"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"sortOrder") y x)
                        Word64
48
                          -> do y <- Parser RangeRequest'SortTarget
-> String -> Parser RangeRequest'SortTarget
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> RangeRequest'SortTarget)
-> Parser Int -> Parser RangeRequest'SortTarget
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> RangeRequest'SortTarget
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
"sort_target"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"sortTarget") y x)
                        Word64
56
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"serializable"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"serializable") y x)
                        Word64
64
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"keys_only"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"keysOnly") y x)
                        Word64
72
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"count_only"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"countOnly") y x)
                        Word64
80
                          -> 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
"min_mod_revision"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"minModRevision") y x)
                        Word64
88
                          -> 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
"max_mod_revision"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"maxModRevision") y x)
                        Word64
96
                          -> 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
"min_create_revision"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"minCreateRevision") y x)
                        Word64
104
                          -> 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
"max_create_revision"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"maxCreateRevision") 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 RangeRequest -> String -> Parser RangeRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do RangeRequest -> Parser RangeRequest
loop RangeRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"RangeRequest"
  buildMessage :: RangeRequest -> Builder
buildMessage
    = \ RangeRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike ByteString RangeRequest RangeRequest ByteString ByteString
-> RangeRequest -> 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") RangeRequest
_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 :: ByteString
_v = FoldLike ByteString RangeRequest RangeRequest ByteString ByteString
-> RangeRequest -> 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 @"rangeEnd") RangeRequest
_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
18)
                         ((\ 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 RangeRequest RangeRequest Int64 Int64
-> RangeRequest -> 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 @"limit") RangeRequest
_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 RangeRequest RangeRequest Int64 Int64
-> RangeRequest -> 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 @"revision") RangeRequest
_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 :: RangeRequest'SortOrder
_v = FoldLike
  RangeRequest'SortOrder
  RangeRequest
  RangeRequest
  RangeRequest'SortOrder
  RangeRequest'SortOrder
-> RangeRequest -> RangeRequest'SortOrder
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 @"sortOrder") RangeRequest
_x
                          in
                            if RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) RangeRequest'SortOrder
_v RangeRequest'SortOrder
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
40)
                                  ((Int -> Builder)
-> (RangeRequest'SortOrder -> Int)
-> RangeRequest'SortOrder
-> 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)
                                     RangeRequest'SortOrder -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum RangeRequest'SortOrder
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (let
                               _v :: RangeRequest'SortTarget
_v
                                 = FoldLike
  RangeRequest'SortTarget
  RangeRequest
  RangeRequest
  RangeRequest'SortTarget
  RangeRequest'SortTarget
-> RangeRequest -> RangeRequest'SortTarget
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 @"sortTarget") RangeRequest
_x
                             in
                               if RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) RangeRequest'SortTarget
_v RangeRequest'SortTarget
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)
                                     ((Int -> Builder)
-> (RangeRequest'SortTarget -> Int)
-> RangeRequest'SortTarget
-> 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)
                                        RangeRequest'SortTarget -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum RangeRequest'SortTarget
_v))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (let
                                  _v :: Bool
_v
                                    = FoldLike Bool RangeRequest RangeRequest Bool Bool
-> RangeRequest -> Bool
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 @"serializable") RangeRequest
_x
                                in
                                  if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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
56)
                                        ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                           Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (let
                                     _v :: Bool
_v
                                       = FoldLike Bool RangeRequest RangeRequest Bool Bool
-> RangeRequest -> Bool
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 @"keysOnly") RangeRequest
_x
                                   in
                                     if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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
64)
                                           ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                              Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                              (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                                  (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (let
                                        _v :: Bool
_v
                                          = FoldLike Bool RangeRequest RangeRequest Bool Bool
-> RangeRequest -> Bool
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 @"countOnly") RangeRequest
_x
                                      in
                                        if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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
72)
                                              ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                 Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                 (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                                     (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (let
                                           _v :: Int64
_v
                                             = FoldLike Int64 RangeRequest RangeRequest Int64 Int64
-> RangeRequest -> 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 @"minModRevision") RangeRequest
_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
80)
                                                 ((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 RangeRequest RangeRequest Int64 Int64
-> RangeRequest -> 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 @"maxModRevision")
                                                    RangeRequest
_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
88)
                                                    ((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 RangeRequest RangeRequest Int64 Int64
-> RangeRequest -> 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
                                                          @"minCreateRevision")
                                                       RangeRequest
_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
96)
                                                       ((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 RangeRequest RangeRequest Int64 Int64
-> RangeRequest -> 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
                                                             @"maxCreateRevision")
                                                          RangeRequest
_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
104)
                                                          ((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 RangeRequest RangeRequest FieldSet FieldSet
-> RangeRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                       FoldLike FieldSet RangeRequest RangeRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RangeRequest FieldSet
Data.ProtoLens.unknownFields RangeRequest
_x))))))))))))))
instance Control.DeepSeq.NFData RangeRequest where
  rnf :: RangeRequest -> ()
rnf
    = \ RangeRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (RangeRequest -> FieldSet
_RangeRequest'_unknownFields RangeRequest
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (RangeRequest -> ByteString
_RangeRequest'key RangeRequest
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (RangeRequest -> ByteString
_RangeRequest'rangeEnd RangeRequest
x__)
                   (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (RangeRequest -> Int64
_RangeRequest'limit RangeRequest
x__)
                      (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (RangeRequest -> Int64
_RangeRequest'revision RangeRequest
x__)
                         (RangeRequest'SortOrder -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (RangeRequest -> RangeRequest'SortOrder
_RangeRequest'sortOrder RangeRequest
x__)
                            (RangeRequest'SortTarget -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (RangeRequest -> RangeRequest'SortTarget
_RangeRequest'sortTarget RangeRequest
x__)
                               (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (RangeRequest -> Bool
_RangeRequest'serializable RangeRequest
x__)
                                  (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (RangeRequest -> Bool
_RangeRequest'keysOnly RangeRequest
x__)
                                     (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                        (RangeRequest -> Bool
_RangeRequest'countOnly RangeRequest
x__)
                                        (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                           (RangeRequest -> Int64
_RangeRequest'minModRevision RangeRequest
x__)
                                           (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                              (RangeRequest -> Int64
_RangeRequest'maxModRevision RangeRequest
x__)
                                              (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                 (RangeRequest -> Int64
_RangeRequest'minCreateRevision RangeRequest
x__)
                                                 (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                    (RangeRequest -> Int64
_RangeRequest'maxCreateRevision RangeRequest
x__)
                                                    ())))))))))))))
newtype RangeRequest'SortOrder'UnrecognizedValue
  = RangeRequest'SortOrder'UnrecognizedValue Data.Int.Int32
  deriving stock (RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Bool
(RangeRequest'SortOrder'UnrecognizedValue
 -> RangeRequest'SortOrder'UnrecognizedValue -> Bool)
-> (RangeRequest'SortOrder'UnrecognizedValue
    -> RangeRequest'SortOrder'UnrecognizedValue -> Bool)
-> Eq RangeRequest'SortOrder'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Bool
== :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Bool
$c/= :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Bool
/= :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Bool
Prelude.Eq, Eq RangeRequest'SortOrder'UnrecognizedValue
Eq RangeRequest'SortOrder'UnrecognizedValue =>
(RangeRequest'SortOrder'UnrecognizedValue
 -> RangeRequest'SortOrder'UnrecognizedValue -> Ordering)
-> (RangeRequest'SortOrder'UnrecognizedValue
    -> RangeRequest'SortOrder'UnrecognizedValue -> Bool)
-> (RangeRequest'SortOrder'UnrecognizedValue
    -> RangeRequest'SortOrder'UnrecognizedValue -> Bool)
-> (RangeRequest'SortOrder'UnrecognizedValue
    -> RangeRequest'SortOrder'UnrecognizedValue -> Bool)
-> (RangeRequest'SortOrder'UnrecognizedValue
    -> RangeRequest'SortOrder'UnrecognizedValue -> Bool)
-> (RangeRequest'SortOrder'UnrecognizedValue
    -> RangeRequest'SortOrder'UnrecognizedValue
    -> RangeRequest'SortOrder'UnrecognizedValue)
-> (RangeRequest'SortOrder'UnrecognizedValue
    -> RangeRequest'SortOrder'UnrecognizedValue
    -> RangeRequest'SortOrder'UnrecognizedValue)
-> Ord RangeRequest'SortOrder'UnrecognizedValue
RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Bool
RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Ordering
RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'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 :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Ordering
compare :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Ordering
$c< :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Bool
< :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Bool
$c<= :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Bool
<= :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Bool
$c> :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Bool
> :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Bool
$c>= :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Bool
>= :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue -> Bool
$cmax :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue
max :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue
$cmin :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue
min :: RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue
-> RangeRequest'SortOrder'UnrecognizedValue
Prelude.Ord, Int -> RangeRequest'SortOrder'UnrecognizedValue -> ShowS
[RangeRequest'SortOrder'UnrecognizedValue] -> ShowS
RangeRequest'SortOrder'UnrecognizedValue -> String
(Int -> RangeRequest'SortOrder'UnrecognizedValue -> ShowS)
-> (RangeRequest'SortOrder'UnrecognizedValue -> String)
-> ([RangeRequest'SortOrder'UnrecognizedValue] -> ShowS)
-> Show RangeRequest'SortOrder'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RangeRequest'SortOrder'UnrecognizedValue -> ShowS
showsPrec :: Int -> RangeRequest'SortOrder'UnrecognizedValue -> ShowS
$cshow :: RangeRequest'SortOrder'UnrecognizedValue -> String
show :: RangeRequest'SortOrder'UnrecognizedValue -> String
$cshowList :: [RangeRequest'SortOrder'UnrecognizedValue] -> ShowS
showList :: [RangeRequest'SortOrder'UnrecognizedValue] -> ShowS
Prelude.Show)
data RangeRequest'SortOrder
  = RangeRequest'NONE |
    RangeRequest'ASCEND |
    RangeRequest'DESCEND |
    RangeRequest'SortOrder'Unrecognized !RangeRequest'SortOrder'UnrecognizedValue
  deriving stock (Int -> RangeRequest'SortOrder -> ShowS
[RangeRequest'SortOrder] -> ShowS
RangeRequest'SortOrder -> String
(Int -> RangeRequest'SortOrder -> ShowS)
-> (RangeRequest'SortOrder -> String)
-> ([RangeRequest'SortOrder] -> ShowS)
-> Show RangeRequest'SortOrder
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RangeRequest'SortOrder -> ShowS
showsPrec :: Int -> RangeRequest'SortOrder -> ShowS
$cshow :: RangeRequest'SortOrder -> String
show :: RangeRequest'SortOrder -> String
$cshowList :: [RangeRequest'SortOrder] -> ShowS
showList :: [RangeRequest'SortOrder] -> ShowS
Prelude.Show, RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool
(RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool)
-> (RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool)
-> Eq RangeRequest'SortOrder
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool
== :: RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool
$c/= :: RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool
/= :: RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool
Prelude.Eq, Eq RangeRequest'SortOrder
Eq RangeRequest'SortOrder =>
(RangeRequest'SortOrder -> RangeRequest'SortOrder -> Ordering)
-> (RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool)
-> (RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool)
-> (RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool)
-> (RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool)
-> (RangeRequest'SortOrder
    -> RangeRequest'SortOrder -> RangeRequest'SortOrder)
-> (RangeRequest'SortOrder
    -> RangeRequest'SortOrder -> RangeRequest'SortOrder)
-> Ord RangeRequest'SortOrder
RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool
RangeRequest'SortOrder -> RangeRequest'SortOrder -> Ordering
RangeRequest'SortOrder
-> RangeRequest'SortOrder -> RangeRequest'SortOrder
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 :: RangeRequest'SortOrder -> RangeRequest'SortOrder -> Ordering
compare :: RangeRequest'SortOrder -> RangeRequest'SortOrder -> Ordering
$c< :: RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool
< :: RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool
$c<= :: RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool
<= :: RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool
$c> :: RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool
> :: RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool
$c>= :: RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool
>= :: RangeRequest'SortOrder -> RangeRequest'SortOrder -> Bool
$cmax :: RangeRequest'SortOrder
-> RangeRequest'SortOrder -> RangeRequest'SortOrder
max :: RangeRequest'SortOrder
-> RangeRequest'SortOrder -> RangeRequest'SortOrder
$cmin :: RangeRequest'SortOrder
-> RangeRequest'SortOrder -> RangeRequest'SortOrder
min :: RangeRequest'SortOrder
-> RangeRequest'SortOrder -> RangeRequest'SortOrder
Prelude.Ord)
instance Data.ProtoLens.MessageEnum RangeRequest'SortOrder where
  maybeToEnum :: Int -> Maybe RangeRequest'SortOrder
maybeToEnum Int
0 = RangeRequest'SortOrder -> Maybe RangeRequest'SortOrder
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortOrder
RangeRequest'NONE
  maybeToEnum Int
1 = RangeRequest'SortOrder -> Maybe RangeRequest'SortOrder
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortOrder
RangeRequest'ASCEND
  maybeToEnum Int
2 = RangeRequest'SortOrder -> Maybe RangeRequest'SortOrder
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortOrder
RangeRequest'DESCEND
  maybeToEnum Int
k
    = RangeRequest'SortOrder -> Maybe RangeRequest'SortOrder
forall a. a -> Maybe a
Prelude.Just
        (RangeRequest'SortOrder'UnrecognizedValue -> RangeRequest'SortOrder
RangeRequest'SortOrder'Unrecognized
           (Int32 -> RangeRequest'SortOrder'UnrecognizedValue
RangeRequest'SortOrder'UnrecognizedValue
              (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: RangeRequest'SortOrder -> String
showEnum RangeRequest'SortOrder
RangeRequest'NONE = String
"NONE"
  showEnum RangeRequest'SortOrder
RangeRequest'ASCEND = String
"ASCEND"
  showEnum RangeRequest'SortOrder
RangeRequest'DESCEND = String
"DESCEND"
  showEnum
    (RangeRequest'SortOrder'Unrecognized (RangeRequest'SortOrder'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe RangeRequest'SortOrder
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"NONE" = RangeRequest'SortOrder -> Maybe RangeRequest'SortOrder
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortOrder
RangeRequest'NONE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"ASCEND" = RangeRequest'SortOrder -> Maybe RangeRequest'SortOrder
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortOrder
RangeRequest'ASCEND
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"DESCEND" = RangeRequest'SortOrder -> Maybe RangeRequest'SortOrder
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortOrder
RangeRequest'DESCEND
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe RangeRequest'SortOrder)
-> Maybe RangeRequest'SortOrder
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 RangeRequest'SortOrder
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded RangeRequest'SortOrder where
  minBound :: RangeRequest'SortOrder
minBound = RangeRequest'SortOrder
RangeRequest'NONE
  maxBound :: RangeRequest'SortOrder
maxBound = RangeRequest'SortOrder
RangeRequest'DESCEND
instance Prelude.Enum RangeRequest'SortOrder where
  toEnum :: Int -> RangeRequest'SortOrder
toEnum Int
k__
    = RangeRequest'SortOrder
-> (RangeRequest'SortOrder -> RangeRequest'SortOrder)
-> Maybe RangeRequest'SortOrder
-> RangeRequest'SortOrder
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> RangeRequest'SortOrder
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum SortOrder: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        RangeRequest'SortOrder -> RangeRequest'SortOrder
forall a. a -> a
Prelude.id (Int -> Maybe RangeRequest'SortOrder
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: RangeRequest'SortOrder -> Int
fromEnum RangeRequest'SortOrder
RangeRequest'NONE = Int
0
  fromEnum RangeRequest'SortOrder
RangeRequest'ASCEND = Int
1
  fromEnum RangeRequest'SortOrder
RangeRequest'DESCEND = Int
2
  fromEnum
    (RangeRequest'SortOrder'Unrecognized (RangeRequest'SortOrder'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: RangeRequest'SortOrder -> RangeRequest'SortOrder
succ RangeRequest'SortOrder
RangeRequest'DESCEND
    = String -> RangeRequest'SortOrder
forall a. HasCallStack => String -> a
Prelude.error
        String
"RangeRequest'SortOrder.succ: bad argument RangeRequest'DESCEND. This value would be out of bounds."
  succ RangeRequest'SortOrder
RangeRequest'NONE = RangeRequest'SortOrder
RangeRequest'ASCEND
  succ RangeRequest'SortOrder
RangeRequest'ASCEND = RangeRequest'SortOrder
RangeRequest'DESCEND
  succ (RangeRequest'SortOrder'Unrecognized RangeRequest'SortOrder'UnrecognizedValue
_)
    = String -> RangeRequest'SortOrder
forall a. HasCallStack => String -> a
Prelude.error
        String
"RangeRequest'SortOrder.succ: bad argument: unrecognized value"
  pred :: RangeRequest'SortOrder -> RangeRequest'SortOrder
pred RangeRequest'SortOrder
RangeRequest'NONE
    = String -> RangeRequest'SortOrder
forall a. HasCallStack => String -> a
Prelude.error
        String
"RangeRequest'SortOrder.pred: bad argument RangeRequest'NONE. This value would be out of bounds."
  pred RangeRequest'SortOrder
RangeRequest'ASCEND = RangeRequest'SortOrder
RangeRequest'NONE
  pred RangeRequest'SortOrder
RangeRequest'DESCEND = RangeRequest'SortOrder
RangeRequest'ASCEND
  pred (RangeRequest'SortOrder'Unrecognized RangeRequest'SortOrder'UnrecognizedValue
_)
    = String -> RangeRequest'SortOrder
forall a. HasCallStack => String -> a
Prelude.error
        String
"RangeRequest'SortOrder.pred: bad argument: unrecognized value"
  enumFrom :: RangeRequest'SortOrder -> [RangeRequest'SortOrder]
enumFrom = RangeRequest'SortOrder -> [RangeRequest'SortOrder]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: RangeRequest'SortOrder
-> RangeRequest'SortOrder -> [RangeRequest'SortOrder]
enumFromTo = RangeRequest'SortOrder
-> RangeRequest'SortOrder -> [RangeRequest'SortOrder]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: RangeRequest'SortOrder
-> RangeRequest'SortOrder -> [RangeRequest'SortOrder]
enumFromThen = RangeRequest'SortOrder
-> RangeRequest'SortOrder -> [RangeRequest'SortOrder]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: RangeRequest'SortOrder
-> RangeRequest'SortOrder
-> RangeRequest'SortOrder
-> [RangeRequest'SortOrder]
enumFromThenTo = RangeRequest'SortOrder
-> RangeRequest'SortOrder
-> RangeRequest'SortOrder
-> [RangeRequest'SortOrder]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault RangeRequest'SortOrder where
  fieldDefault :: RangeRequest'SortOrder
fieldDefault = RangeRequest'SortOrder
RangeRequest'NONE
instance Control.DeepSeq.NFData RangeRequest'SortOrder where
  rnf :: RangeRequest'SortOrder -> ()
rnf RangeRequest'SortOrder
x__ = RangeRequest'SortOrder -> () -> ()
forall a b. a -> b -> b
Prelude.seq RangeRequest'SortOrder
x__ ()
newtype RangeRequest'SortTarget'UnrecognizedValue
  = RangeRequest'SortTarget'UnrecognizedValue Data.Int.Int32
  deriving stock (RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Bool
(RangeRequest'SortTarget'UnrecognizedValue
 -> RangeRequest'SortTarget'UnrecognizedValue -> Bool)
-> (RangeRequest'SortTarget'UnrecognizedValue
    -> RangeRequest'SortTarget'UnrecognizedValue -> Bool)
-> Eq RangeRequest'SortTarget'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Bool
== :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Bool
$c/= :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Bool
/= :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Bool
Prelude.Eq, Eq RangeRequest'SortTarget'UnrecognizedValue
Eq RangeRequest'SortTarget'UnrecognizedValue =>
(RangeRequest'SortTarget'UnrecognizedValue
 -> RangeRequest'SortTarget'UnrecognizedValue -> Ordering)
-> (RangeRequest'SortTarget'UnrecognizedValue
    -> RangeRequest'SortTarget'UnrecognizedValue -> Bool)
-> (RangeRequest'SortTarget'UnrecognizedValue
    -> RangeRequest'SortTarget'UnrecognizedValue -> Bool)
-> (RangeRequest'SortTarget'UnrecognizedValue
    -> RangeRequest'SortTarget'UnrecognizedValue -> Bool)
-> (RangeRequest'SortTarget'UnrecognizedValue
    -> RangeRequest'SortTarget'UnrecognizedValue -> Bool)
-> (RangeRequest'SortTarget'UnrecognizedValue
    -> RangeRequest'SortTarget'UnrecognizedValue
    -> RangeRequest'SortTarget'UnrecognizedValue)
-> (RangeRequest'SortTarget'UnrecognizedValue
    -> RangeRequest'SortTarget'UnrecognizedValue
    -> RangeRequest'SortTarget'UnrecognizedValue)
-> Ord RangeRequest'SortTarget'UnrecognizedValue
RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Bool
RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Ordering
RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'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 :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Ordering
compare :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Ordering
$c< :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Bool
< :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Bool
$c<= :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Bool
<= :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Bool
$c> :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Bool
> :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Bool
$c>= :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Bool
>= :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue -> Bool
$cmax :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue
max :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue
$cmin :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue
min :: RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget'UnrecognizedValue
Prelude.Ord, Int -> RangeRequest'SortTarget'UnrecognizedValue -> ShowS
[RangeRequest'SortTarget'UnrecognizedValue] -> ShowS
RangeRequest'SortTarget'UnrecognizedValue -> String
(Int -> RangeRequest'SortTarget'UnrecognizedValue -> ShowS)
-> (RangeRequest'SortTarget'UnrecognizedValue -> String)
-> ([RangeRequest'SortTarget'UnrecognizedValue] -> ShowS)
-> Show RangeRequest'SortTarget'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RangeRequest'SortTarget'UnrecognizedValue -> ShowS
showsPrec :: Int -> RangeRequest'SortTarget'UnrecognizedValue -> ShowS
$cshow :: RangeRequest'SortTarget'UnrecognizedValue -> String
show :: RangeRequest'SortTarget'UnrecognizedValue -> String
$cshowList :: [RangeRequest'SortTarget'UnrecognizedValue] -> ShowS
showList :: [RangeRequest'SortTarget'UnrecognizedValue] -> ShowS
Prelude.Show)
data RangeRequest'SortTarget
  = RangeRequest'KEY |
    RangeRequest'VERSION |
    RangeRequest'CREATE |
    RangeRequest'MOD |
    RangeRequest'VALUE |
    RangeRequest'SortTarget'Unrecognized !RangeRequest'SortTarget'UnrecognizedValue
  deriving stock (Int -> RangeRequest'SortTarget -> ShowS
[RangeRequest'SortTarget] -> ShowS
RangeRequest'SortTarget -> String
(Int -> RangeRequest'SortTarget -> ShowS)
-> (RangeRequest'SortTarget -> String)
-> ([RangeRequest'SortTarget] -> ShowS)
-> Show RangeRequest'SortTarget
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RangeRequest'SortTarget -> ShowS
showsPrec :: Int -> RangeRequest'SortTarget -> ShowS
$cshow :: RangeRequest'SortTarget -> String
show :: RangeRequest'SortTarget -> String
$cshowList :: [RangeRequest'SortTarget] -> ShowS
showList :: [RangeRequest'SortTarget] -> ShowS
Prelude.Show, RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool
(RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool)
-> (RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool)
-> Eq RangeRequest'SortTarget
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool
== :: RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool
$c/= :: RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool
/= :: RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool
Prelude.Eq, Eq RangeRequest'SortTarget
Eq RangeRequest'SortTarget =>
(RangeRequest'SortTarget -> RangeRequest'SortTarget -> Ordering)
-> (RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool)
-> (RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool)
-> (RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool)
-> (RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool)
-> (RangeRequest'SortTarget
    -> RangeRequest'SortTarget -> RangeRequest'SortTarget)
-> (RangeRequest'SortTarget
    -> RangeRequest'SortTarget -> RangeRequest'SortTarget)
-> Ord RangeRequest'SortTarget
RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool
RangeRequest'SortTarget -> RangeRequest'SortTarget -> Ordering
RangeRequest'SortTarget
-> RangeRequest'SortTarget -> RangeRequest'SortTarget
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 :: RangeRequest'SortTarget -> RangeRequest'SortTarget -> Ordering
compare :: RangeRequest'SortTarget -> RangeRequest'SortTarget -> Ordering
$c< :: RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool
< :: RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool
$c<= :: RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool
<= :: RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool
$c> :: RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool
> :: RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool
$c>= :: RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool
>= :: RangeRequest'SortTarget -> RangeRequest'SortTarget -> Bool
$cmax :: RangeRequest'SortTarget
-> RangeRequest'SortTarget -> RangeRequest'SortTarget
max :: RangeRequest'SortTarget
-> RangeRequest'SortTarget -> RangeRequest'SortTarget
$cmin :: RangeRequest'SortTarget
-> RangeRequest'SortTarget -> RangeRequest'SortTarget
min :: RangeRequest'SortTarget
-> RangeRequest'SortTarget -> RangeRequest'SortTarget
Prelude.Ord)
instance Data.ProtoLens.MessageEnum RangeRequest'SortTarget where
  maybeToEnum :: Int -> Maybe RangeRequest'SortTarget
maybeToEnum Int
0 = RangeRequest'SortTarget -> Maybe RangeRequest'SortTarget
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortTarget
RangeRequest'KEY
  maybeToEnum Int
1 = RangeRequest'SortTarget -> Maybe RangeRequest'SortTarget
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortTarget
RangeRequest'VERSION
  maybeToEnum Int
2 = RangeRequest'SortTarget -> Maybe RangeRequest'SortTarget
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortTarget
RangeRequest'CREATE
  maybeToEnum Int
3 = RangeRequest'SortTarget -> Maybe RangeRequest'SortTarget
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortTarget
RangeRequest'MOD
  maybeToEnum Int
4 = RangeRequest'SortTarget -> Maybe RangeRequest'SortTarget
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortTarget
RangeRequest'VALUE
  maybeToEnum Int
k
    = RangeRequest'SortTarget -> Maybe RangeRequest'SortTarget
forall a. a -> Maybe a
Prelude.Just
        (RangeRequest'SortTarget'UnrecognizedValue
-> RangeRequest'SortTarget
RangeRequest'SortTarget'Unrecognized
           (Int32 -> RangeRequest'SortTarget'UnrecognizedValue
RangeRequest'SortTarget'UnrecognizedValue
              (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: RangeRequest'SortTarget -> String
showEnum RangeRequest'SortTarget
RangeRequest'KEY = String
"KEY"
  showEnum RangeRequest'SortTarget
RangeRequest'VERSION = String
"VERSION"
  showEnum RangeRequest'SortTarget
RangeRequest'CREATE = String
"CREATE"
  showEnum RangeRequest'SortTarget
RangeRequest'MOD = String
"MOD"
  showEnum RangeRequest'SortTarget
RangeRequest'VALUE = String
"VALUE"
  showEnum
    (RangeRequest'SortTarget'Unrecognized (RangeRequest'SortTarget'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe RangeRequest'SortTarget
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"KEY" = RangeRequest'SortTarget -> Maybe RangeRequest'SortTarget
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortTarget
RangeRequest'KEY
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"VERSION" = RangeRequest'SortTarget -> Maybe RangeRequest'SortTarget
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortTarget
RangeRequest'VERSION
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"CREATE" = RangeRequest'SortTarget -> Maybe RangeRequest'SortTarget
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortTarget
RangeRequest'CREATE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"MOD" = RangeRequest'SortTarget -> Maybe RangeRequest'SortTarget
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortTarget
RangeRequest'MOD
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"VALUE" = RangeRequest'SortTarget -> Maybe RangeRequest'SortTarget
forall a. a -> Maybe a
Prelude.Just RangeRequest'SortTarget
RangeRequest'VALUE
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe RangeRequest'SortTarget)
-> Maybe RangeRequest'SortTarget
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 RangeRequest'SortTarget
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded RangeRequest'SortTarget where
  minBound :: RangeRequest'SortTarget
minBound = RangeRequest'SortTarget
RangeRequest'KEY
  maxBound :: RangeRequest'SortTarget
maxBound = RangeRequest'SortTarget
RangeRequest'VALUE
instance Prelude.Enum RangeRequest'SortTarget where
  toEnum :: Int -> RangeRequest'SortTarget
toEnum Int
k__
    = RangeRequest'SortTarget
-> (RangeRequest'SortTarget -> RangeRequest'SortTarget)
-> Maybe RangeRequest'SortTarget
-> RangeRequest'SortTarget
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> RangeRequest'SortTarget
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum SortTarget: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        RangeRequest'SortTarget -> RangeRequest'SortTarget
forall a. a -> a
Prelude.id (Int -> Maybe RangeRequest'SortTarget
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: RangeRequest'SortTarget -> Int
fromEnum RangeRequest'SortTarget
RangeRequest'KEY = Int
0
  fromEnum RangeRequest'SortTarget
RangeRequest'VERSION = Int
1
  fromEnum RangeRequest'SortTarget
RangeRequest'CREATE = Int
2
  fromEnum RangeRequest'SortTarget
RangeRequest'MOD = Int
3
  fromEnum RangeRequest'SortTarget
RangeRequest'VALUE = Int
4
  fromEnum
    (RangeRequest'SortTarget'Unrecognized (RangeRequest'SortTarget'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: RangeRequest'SortTarget -> RangeRequest'SortTarget
succ RangeRequest'SortTarget
RangeRequest'VALUE
    = String -> RangeRequest'SortTarget
forall a. HasCallStack => String -> a
Prelude.error
        String
"RangeRequest'SortTarget.succ: bad argument RangeRequest'VALUE. This value would be out of bounds."
  succ RangeRequest'SortTarget
RangeRequest'KEY = RangeRequest'SortTarget
RangeRequest'VERSION
  succ RangeRequest'SortTarget
RangeRequest'VERSION = RangeRequest'SortTarget
RangeRequest'CREATE
  succ RangeRequest'SortTarget
RangeRequest'CREATE = RangeRequest'SortTarget
RangeRequest'MOD
  succ RangeRequest'SortTarget
RangeRequest'MOD = RangeRequest'SortTarget
RangeRequest'VALUE
  succ (RangeRequest'SortTarget'Unrecognized RangeRequest'SortTarget'UnrecognizedValue
_)
    = String -> RangeRequest'SortTarget
forall a. HasCallStack => String -> a
Prelude.error
        String
"RangeRequest'SortTarget.succ: bad argument: unrecognized value"
  pred :: RangeRequest'SortTarget -> RangeRequest'SortTarget
pred RangeRequest'SortTarget
RangeRequest'KEY
    = String -> RangeRequest'SortTarget
forall a. HasCallStack => String -> a
Prelude.error
        String
"RangeRequest'SortTarget.pred: bad argument RangeRequest'KEY. This value would be out of bounds."
  pred RangeRequest'SortTarget
RangeRequest'VERSION = RangeRequest'SortTarget
RangeRequest'KEY
  pred RangeRequest'SortTarget
RangeRequest'CREATE = RangeRequest'SortTarget
RangeRequest'VERSION
  pred RangeRequest'SortTarget
RangeRequest'MOD = RangeRequest'SortTarget
RangeRequest'CREATE
  pred RangeRequest'SortTarget
RangeRequest'VALUE = RangeRequest'SortTarget
RangeRequest'MOD
  pred (RangeRequest'SortTarget'Unrecognized RangeRequest'SortTarget'UnrecognizedValue
_)
    = String -> RangeRequest'SortTarget
forall a. HasCallStack => String -> a
Prelude.error
        String
"RangeRequest'SortTarget.pred: bad argument: unrecognized value"
  enumFrom :: RangeRequest'SortTarget -> [RangeRequest'SortTarget]
enumFrom = RangeRequest'SortTarget -> [RangeRequest'SortTarget]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: RangeRequest'SortTarget
-> RangeRequest'SortTarget -> [RangeRequest'SortTarget]
enumFromTo = RangeRequest'SortTarget
-> RangeRequest'SortTarget -> [RangeRequest'SortTarget]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: RangeRequest'SortTarget
-> RangeRequest'SortTarget -> [RangeRequest'SortTarget]
enumFromThen = RangeRequest'SortTarget
-> RangeRequest'SortTarget -> [RangeRequest'SortTarget]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: RangeRequest'SortTarget
-> RangeRequest'SortTarget
-> RangeRequest'SortTarget
-> [RangeRequest'SortTarget]
enumFromThenTo = RangeRequest'SortTarget
-> RangeRequest'SortTarget
-> RangeRequest'SortTarget
-> [RangeRequest'SortTarget]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault RangeRequest'SortTarget where
  fieldDefault :: RangeRequest'SortTarget
fieldDefault = RangeRequest'SortTarget
RangeRequest'KEY
instance Control.DeepSeq.NFData RangeRequest'SortTarget where
  rnf :: RangeRequest'SortTarget -> ()
rnf RangeRequest'SortTarget
x__ = RangeRequest'SortTarget -> () -> ()
forall a b. a -> b -> b
Prelude.seq RangeRequest'SortTarget
x__ ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' RangeResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' RangeResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.kvs' @:: Lens' RangeResponse [Proto.Etcd.Api.Mvccpb.Kv.KeyValue]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'kvs' @:: Lens' RangeResponse (Data.Vector.Vector Proto.Etcd.Api.Mvccpb.Kv.KeyValue)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.more' @:: Lens' RangeResponse Prelude.Bool@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.count' @:: Lens' RangeResponse Data.Int.Int64@ -}
data RangeResponse
  = RangeResponse'_constructor {RangeResponse -> Maybe ResponseHeader
_RangeResponse'header :: !(Prelude.Maybe ResponseHeader),
                                RangeResponse -> Vector KeyValue
_RangeResponse'kvs :: !(Data.Vector.Vector Proto.Etcd.Api.Mvccpb.Kv.KeyValue),
                                RangeResponse -> Bool
_RangeResponse'more :: !Prelude.Bool,
                                RangeResponse -> Int64
_RangeResponse'count :: !Data.Int.Int64,
                                RangeResponse -> FieldSet
_RangeResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (RangeResponse -> RangeResponse -> Bool
(RangeResponse -> RangeResponse -> Bool)
-> (RangeResponse -> RangeResponse -> Bool) -> Eq RangeResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RangeResponse -> RangeResponse -> Bool
== :: RangeResponse -> RangeResponse -> Bool
$c/= :: RangeResponse -> RangeResponse -> Bool
/= :: RangeResponse -> RangeResponse -> Bool
Prelude.Eq, Eq RangeResponse
Eq RangeResponse =>
(RangeResponse -> RangeResponse -> Ordering)
-> (RangeResponse -> RangeResponse -> Bool)
-> (RangeResponse -> RangeResponse -> Bool)
-> (RangeResponse -> RangeResponse -> Bool)
-> (RangeResponse -> RangeResponse -> Bool)
-> (RangeResponse -> RangeResponse -> RangeResponse)
-> (RangeResponse -> RangeResponse -> RangeResponse)
-> Ord RangeResponse
RangeResponse -> RangeResponse -> Bool
RangeResponse -> RangeResponse -> Ordering
RangeResponse -> RangeResponse -> RangeResponse
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 :: RangeResponse -> RangeResponse -> Ordering
compare :: RangeResponse -> RangeResponse -> Ordering
$c< :: RangeResponse -> RangeResponse -> Bool
< :: RangeResponse -> RangeResponse -> Bool
$c<= :: RangeResponse -> RangeResponse -> Bool
<= :: RangeResponse -> RangeResponse -> Bool
$c> :: RangeResponse -> RangeResponse -> Bool
> :: RangeResponse -> RangeResponse -> Bool
$c>= :: RangeResponse -> RangeResponse -> Bool
>= :: RangeResponse -> RangeResponse -> Bool
$cmax :: RangeResponse -> RangeResponse -> RangeResponse
max :: RangeResponse -> RangeResponse -> RangeResponse
$cmin :: RangeResponse -> RangeResponse -> RangeResponse
min :: RangeResponse -> RangeResponse -> RangeResponse
Prelude.Ord)
instance Prelude.Show RangeResponse where
  showsPrec :: Int -> RangeResponse -> ShowS
showsPrec Int
_ RangeResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (RangeResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RangeResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField RangeResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> RangeResponse
-> f RangeResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> RangeResponse -> f RangeResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> RangeResponse
-> f RangeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeResponse -> Maybe ResponseHeader)
-> (RangeResponse -> Maybe ResponseHeader -> RangeResponse)
-> Lens
     RangeResponse
     RangeResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeResponse -> Maybe ResponseHeader
_RangeResponse'header
           (\ RangeResponse
x__ Maybe ResponseHeader
y__ -> RangeResponse
x__ {_RangeResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField RangeResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> RangeResponse
-> f RangeResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> RangeResponse -> f RangeResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> RangeResponse
-> f RangeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeResponse -> Maybe ResponseHeader)
-> (RangeResponse -> Maybe ResponseHeader -> RangeResponse)
-> Lens
     RangeResponse
     RangeResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeResponse -> Maybe ResponseHeader
_RangeResponse'header
           (\ RangeResponse
x__ Maybe ResponseHeader
y__ -> RangeResponse
x__ {_RangeResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RangeResponse "kvs" [Proto.Etcd.Api.Mvccpb.Kv.KeyValue] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "kvs"
-> ([KeyValue] -> f [KeyValue]) -> RangeResponse -> f RangeResponse
fieldOf Proxy# "kvs"
_
    = ((Vector KeyValue -> f (Vector KeyValue))
 -> RangeResponse -> f RangeResponse)
-> (([KeyValue] -> f [KeyValue])
    -> Vector KeyValue -> f (Vector KeyValue))
-> ([KeyValue] -> f [KeyValue])
-> RangeResponse
-> f RangeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeResponse -> Vector KeyValue)
-> (RangeResponse -> Vector KeyValue -> RangeResponse)
-> Lens
     RangeResponse RangeResponse (Vector KeyValue) (Vector KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeResponse -> Vector KeyValue
_RangeResponse'kvs (\ RangeResponse
x__ Vector KeyValue
y__ -> RangeResponse
x__ {_RangeResponse'kvs = y__}))
        ((Vector KeyValue -> [KeyValue])
-> (Vector KeyValue -> [KeyValue] -> Vector KeyValue)
-> Lens (Vector KeyValue) (Vector KeyValue) [KeyValue] [KeyValue]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector KeyValue -> [KeyValue]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector KeyValue
_ [KeyValue]
y__ -> [KeyValue] -> Vector KeyValue
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [KeyValue]
y__))
instance Data.ProtoLens.Field.HasField RangeResponse "vec'kvs" (Data.Vector.Vector Proto.Etcd.Api.Mvccpb.Kv.KeyValue) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'kvs"
-> (Vector KeyValue -> f (Vector KeyValue))
-> RangeResponse
-> f RangeResponse
fieldOf Proxy# "vec'kvs"
_
    = ((Vector KeyValue -> f (Vector KeyValue))
 -> RangeResponse -> f RangeResponse)
-> ((Vector KeyValue -> f (Vector KeyValue))
    -> Vector KeyValue -> f (Vector KeyValue))
-> (Vector KeyValue -> f (Vector KeyValue))
-> RangeResponse
-> f RangeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeResponse -> Vector KeyValue)
-> (RangeResponse -> Vector KeyValue -> RangeResponse)
-> Lens
     RangeResponse RangeResponse (Vector KeyValue) (Vector KeyValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeResponse -> Vector KeyValue
_RangeResponse'kvs (\ RangeResponse
x__ Vector KeyValue
y__ -> RangeResponse
x__ {_RangeResponse'kvs = y__}))
        (Vector KeyValue -> f (Vector KeyValue))
-> Vector KeyValue -> f (Vector KeyValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RangeResponse "more" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "more"
-> (Bool -> f Bool) -> RangeResponse -> f RangeResponse
fieldOf Proxy# "more"
_
    = ((Bool -> f Bool) -> RangeResponse -> f RangeResponse)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> RangeResponse
-> f RangeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeResponse -> Bool)
-> (RangeResponse -> Bool -> RangeResponse)
-> Lens RangeResponse RangeResponse Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeResponse -> Bool
_RangeResponse'more (\ RangeResponse
x__ Bool
y__ -> RangeResponse
x__ {_RangeResponse'more = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RangeResponse "count" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "count"
-> (Int64 -> f Int64) -> RangeResponse -> f RangeResponse
fieldOf Proxy# "count"
_
    = ((Int64 -> f Int64) -> RangeResponse -> f RangeResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> RangeResponse
-> f RangeResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RangeResponse -> Int64)
-> (RangeResponse -> Int64 -> RangeResponse)
-> Lens RangeResponse RangeResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RangeResponse -> Int64
_RangeResponse'count
           (\ RangeResponse
x__ Int64
y__ -> RangeResponse
x__ {_RangeResponse'count = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RangeResponse where
  messageName :: Proxy RangeResponse -> Text
messageName Proxy RangeResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.RangeResponse"
  packedMessageDescriptor :: Proxy RangeResponse -> ByteString
packedMessageDescriptor Proxy RangeResponse
_
    = ByteString
"\n\
      \\rRangeResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\"\n\
      \\ETXkvs\CAN\STX \ETX(\v2\DLE.mvccpb.KeyValueR\ETXkvs\DC2\DC2\n\
      \\EOTmore\CAN\ETX \SOH(\bR\EOTmore\DC2\DC4\n\
      \\ENQcount\CAN\EOT \SOH(\ETXR\ENQcount:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy RangeResponse -> ByteString
packedFileDescriptor Proxy RangeResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor RangeResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor RangeResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor RangeResponse ResponseHeader
-> FieldDescriptor RangeResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  RangeResponse
  RangeResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor RangeResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor RangeResponse
        kvs__field_descriptor :: FieldDescriptor RangeResponse
kvs__field_descriptor
          = String
-> FieldTypeDescriptor KeyValue
-> FieldAccessor RangeResponse KeyValue
-> FieldDescriptor RangeResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"kvs"
              (MessageOrGroup -> FieldTypeDescriptor KeyValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Etcd.Api.Mvccpb.Kv.KeyValue)
              (Packing
-> Lens' RangeResponse [KeyValue]
-> FieldAccessor RangeResponse KeyValue
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kvs")) ::
              Data.ProtoLens.FieldDescriptor RangeResponse
        more__field_descriptor :: FieldDescriptor RangeResponse
more__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor RangeResponse Bool
-> FieldDescriptor RangeResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"more"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens RangeResponse RangeResponse Bool Bool
-> FieldAccessor RangeResponse Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"more")) ::
              Data.ProtoLens.FieldDescriptor RangeResponse
        count__field_descriptor :: FieldDescriptor RangeResponse
count__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor RangeResponse Int64
-> FieldDescriptor RangeResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"count"
              (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 RangeResponse RangeResponse Int64 Int64
-> FieldAccessor RangeResponse 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 @"count")) ::
              Data.ProtoLens.FieldDescriptor RangeResponse
      in
        [(Tag, FieldDescriptor RangeResponse)]
-> Map Tag (FieldDescriptor RangeResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor RangeResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor RangeResponse
kvs__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor RangeResponse
more__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor RangeResponse
count__field_descriptor)]
  unknownFields :: Lens' RangeResponse FieldSet
unknownFields
    = (RangeResponse -> FieldSet)
-> (RangeResponse -> FieldSet -> RangeResponse)
-> Lens' RangeResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        RangeResponse -> FieldSet
_RangeResponse'_unknownFields
        (\ RangeResponse
x__ FieldSet
y__ -> RangeResponse
x__ {_RangeResponse'_unknownFields = y__})
  defMessage :: RangeResponse
defMessage
    = RangeResponse'_constructor
        {_RangeResponse'header :: Maybe ResponseHeader
_RangeResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _RangeResponse'kvs :: Vector KeyValue
_RangeResponse'kvs = Vector KeyValue
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _RangeResponse'more :: Bool
_RangeResponse'more = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RangeResponse'count :: Int64
_RangeResponse'count = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RangeResponse'_unknownFields :: FieldSet
_RangeResponse'_unknownFields = []}
  parseMessage :: Parser RangeResponse
parseMessage
    = let
        loop ::
          RangeResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Etcd.Api.Mvccpb.Kv.KeyValue
             -> Data.ProtoLens.Encoding.Bytes.Parser RangeResponse
        loop :: RangeResponse
-> Growing Vector RealWorld KeyValue -> Parser RangeResponse
loop RangeResponse
x Growing Vector RealWorld KeyValue
mutable'kvs
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'kvs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                      (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'kvs)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'kvs") frozen'kvs x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'kvs
                        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
"kvs"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'kvs y)
                                loop x v
                        Word64
24
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"more"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"more") y x)
                                  mutable'kvs
                        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
"count"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"count") y x)
                                  mutable'kvs
                        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)
                                  mutable'kvs
      in
        Parser RangeResponse -> String -> Parser RangeResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'kvs <- IO (Growing Vector RealWorld KeyValue)
-> Parser (Growing Vector RealWorld KeyValue)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                               IO (Growing Vector RealWorld KeyValue)
IO (Growing Vector (PrimState IO) KeyValue)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'kvs)
          String
"RangeResponse"
  buildMessage :: RangeResponse -> Builder
buildMessage
    = \ RangeResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  RangeResponse
  RangeResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> RangeResponse -> Maybe ResponseHeader
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'header") RangeResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((KeyValue -> Builder) -> Vector KeyValue -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ 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))
                   (FoldLike
  (Vector KeyValue)
  RangeResponse
  RangeResponse
  (Vector KeyValue)
  (Vector KeyValue)
-> RangeResponse -> Vector 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 @"vec'kvs") RangeResponse
_x))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let _v :: Bool
_v = FoldLike Bool RangeResponse RangeResponse Bool Bool
-> RangeResponse -> Bool
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 @"more") RangeResponse
_x
                    in
                      if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                               Bool
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (let
                         _v :: Int64
_v = FoldLike Int64 RangeResponse RangeResponse Int64 Int64
-> RangeResponse -> 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 @"count") RangeResponse
_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))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike FieldSet RangeResponse RangeResponse FieldSet FieldSet
-> RangeResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet RangeResponse RangeResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RangeResponse FieldSet
Data.ProtoLens.unknownFields RangeResponse
_x)))))
instance Control.DeepSeq.NFData RangeResponse where
  rnf :: RangeResponse -> ()
rnf
    = \ RangeResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (RangeResponse -> FieldSet
_RangeResponse'_unknownFields RangeResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (RangeResponse -> Maybe ResponseHeader
_RangeResponse'header RangeResponse
x__)
                (Vector KeyValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (RangeResponse -> Vector KeyValue
_RangeResponse'kvs RangeResponse
x__)
                   (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (RangeResponse -> Bool
_RangeResponse'more RangeResponse
x__)
                      (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (RangeResponse -> Int64
_RangeResponse'count RangeResponse
x__) ()))))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'request' @:: Lens' RequestOp (Prelude.Maybe RequestOp'Request)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'requestRange' @:: Lens' RequestOp (Prelude.Maybe RangeRequest)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.requestRange' @:: Lens' RequestOp RangeRequest@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'requestPut' @:: Lens' RequestOp (Prelude.Maybe PutRequest)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.requestPut' @:: Lens' RequestOp PutRequest@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'requestDeleteRange' @:: Lens' RequestOp (Prelude.Maybe DeleteRangeRequest)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.requestDeleteRange' @:: Lens' RequestOp DeleteRangeRequest@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'requestTxn' @:: Lens' RequestOp (Prelude.Maybe TxnRequest)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.requestTxn' @:: Lens' RequestOp TxnRequest@ -}
data RequestOp
  = RequestOp'_constructor {RequestOp -> Maybe RequestOp'Request
_RequestOp'request :: !(Prelude.Maybe RequestOp'Request),
                            RequestOp -> FieldSet
_RequestOp'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (RequestOp -> RequestOp -> Bool
(RequestOp -> RequestOp -> Bool)
-> (RequestOp -> RequestOp -> Bool) -> Eq RequestOp
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RequestOp -> RequestOp -> Bool
== :: RequestOp -> RequestOp -> Bool
$c/= :: RequestOp -> RequestOp -> Bool
/= :: RequestOp -> RequestOp -> Bool
Prelude.Eq, Eq RequestOp
Eq RequestOp =>
(RequestOp -> RequestOp -> Ordering)
-> (RequestOp -> RequestOp -> Bool)
-> (RequestOp -> RequestOp -> Bool)
-> (RequestOp -> RequestOp -> Bool)
-> (RequestOp -> RequestOp -> Bool)
-> (RequestOp -> RequestOp -> RequestOp)
-> (RequestOp -> RequestOp -> RequestOp)
-> Ord RequestOp
RequestOp -> RequestOp -> Bool
RequestOp -> RequestOp -> Ordering
RequestOp -> RequestOp -> RequestOp
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 :: RequestOp -> RequestOp -> Ordering
compare :: RequestOp -> RequestOp -> Ordering
$c< :: RequestOp -> RequestOp -> Bool
< :: RequestOp -> RequestOp -> Bool
$c<= :: RequestOp -> RequestOp -> Bool
<= :: RequestOp -> RequestOp -> Bool
$c> :: RequestOp -> RequestOp -> Bool
> :: RequestOp -> RequestOp -> Bool
$c>= :: RequestOp -> RequestOp -> Bool
>= :: RequestOp -> RequestOp -> Bool
$cmax :: RequestOp -> RequestOp -> RequestOp
max :: RequestOp -> RequestOp -> RequestOp
$cmin :: RequestOp -> RequestOp -> RequestOp
min :: RequestOp -> RequestOp -> RequestOp
Prelude.Ord)
instance Prelude.Show RequestOp where
  showsPrec :: Int -> RequestOp -> ShowS
showsPrec Int
_ RequestOp
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (RequestOp -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RequestOp
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data RequestOp'Request
  = RequestOp'RequestRange !RangeRequest |
    RequestOp'RequestPut !PutRequest |
    RequestOp'RequestDeleteRange !DeleteRangeRequest |
    RequestOp'RequestTxn !TxnRequest
  deriving stock (Int -> RequestOp'Request -> ShowS
[RequestOp'Request] -> ShowS
RequestOp'Request -> String
(Int -> RequestOp'Request -> ShowS)
-> (RequestOp'Request -> String)
-> ([RequestOp'Request] -> ShowS)
-> Show RequestOp'Request
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> RequestOp'Request -> ShowS
showsPrec :: Int -> RequestOp'Request -> ShowS
$cshow :: RequestOp'Request -> String
show :: RequestOp'Request -> String
$cshowList :: [RequestOp'Request] -> ShowS
showList :: [RequestOp'Request] -> ShowS
Prelude.Show, RequestOp'Request -> RequestOp'Request -> Bool
(RequestOp'Request -> RequestOp'Request -> Bool)
-> (RequestOp'Request -> RequestOp'Request -> Bool)
-> Eq RequestOp'Request
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: RequestOp'Request -> RequestOp'Request -> Bool
== :: RequestOp'Request -> RequestOp'Request -> Bool
$c/= :: RequestOp'Request -> RequestOp'Request -> Bool
/= :: RequestOp'Request -> RequestOp'Request -> Bool
Prelude.Eq, Eq RequestOp'Request
Eq RequestOp'Request =>
(RequestOp'Request -> RequestOp'Request -> Ordering)
-> (RequestOp'Request -> RequestOp'Request -> Bool)
-> (RequestOp'Request -> RequestOp'Request -> Bool)
-> (RequestOp'Request -> RequestOp'Request -> Bool)
-> (RequestOp'Request -> RequestOp'Request -> Bool)
-> (RequestOp'Request -> RequestOp'Request -> RequestOp'Request)
-> (RequestOp'Request -> RequestOp'Request -> RequestOp'Request)
-> Ord RequestOp'Request
RequestOp'Request -> RequestOp'Request -> Bool
RequestOp'Request -> RequestOp'Request -> Ordering
RequestOp'Request -> RequestOp'Request -> RequestOp'Request
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 :: RequestOp'Request -> RequestOp'Request -> Ordering
compare :: RequestOp'Request -> RequestOp'Request -> Ordering
$c< :: RequestOp'Request -> RequestOp'Request -> Bool
< :: RequestOp'Request -> RequestOp'Request -> Bool
$c<= :: RequestOp'Request -> RequestOp'Request -> Bool
<= :: RequestOp'Request -> RequestOp'Request -> Bool
$c> :: RequestOp'Request -> RequestOp'Request -> Bool
> :: RequestOp'Request -> RequestOp'Request -> Bool
$c>= :: RequestOp'Request -> RequestOp'Request -> Bool
>= :: RequestOp'Request -> RequestOp'Request -> Bool
$cmax :: RequestOp'Request -> RequestOp'Request -> RequestOp'Request
max :: RequestOp'Request -> RequestOp'Request -> RequestOp'Request
$cmin :: RequestOp'Request -> RequestOp'Request -> RequestOp'Request
min :: RequestOp'Request -> RequestOp'Request -> RequestOp'Request
Prelude.Ord)
instance Data.ProtoLens.Field.HasField RequestOp "maybe'request" (Prelude.Maybe RequestOp'Request) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'request"
-> (Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> RequestOp
-> f RequestOp
fieldOf Proxy# "maybe'request"
_
    = ((Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
 -> RequestOp -> f RequestOp)
-> ((Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
    -> Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> (Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> RequestOp
-> f RequestOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RequestOp -> Maybe RequestOp'Request)
-> (RequestOp -> Maybe RequestOp'Request -> RequestOp)
-> Lens
     RequestOp
     RequestOp
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RequestOp -> Maybe RequestOp'Request
_RequestOp'request (\ RequestOp
x__ Maybe RequestOp'Request
y__ -> RequestOp
x__ {_RequestOp'request = y__}))
        (Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> Maybe RequestOp'Request -> f (Maybe RequestOp'Request)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RequestOp "maybe'requestRange" (Prelude.Maybe RangeRequest) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'requestRange"
-> (Maybe RangeRequest -> f (Maybe RangeRequest))
-> RequestOp
-> f RequestOp
fieldOf Proxy# "maybe'requestRange"
_
    = ((Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
 -> RequestOp -> f RequestOp)
-> ((Maybe RangeRequest -> f (Maybe RangeRequest))
    -> Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> (Maybe RangeRequest -> f (Maybe RangeRequest))
-> RequestOp
-> f RequestOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RequestOp -> Maybe RequestOp'Request)
-> (RequestOp -> Maybe RequestOp'Request -> RequestOp)
-> Lens
     RequestOp
     RequestOp
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RequestOp -> Maybe RequestOp'Request
_RequestOp'request (\ RequestOp
x__ Maybe RequestOp'Request
y__ -> RequestOp
x__ {_RequestOp'request = y__}))
        ((Maybe RequestOp'Request -> Maybe RangeRequest)
-> (Maybe RequestOp'Request
    -> Maybe RangeRequest -> Maybe RequestOp'Request)
-> Lens
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
     (Maybe RangeRequest)
     (Maybe RangeRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe RequestOp'Request
x__
              -> case Maybe RequestOp'Request
x__ of
                   (Prelude.Just (RequestOp'RequestRange RangeRequest
x__val))
                     -> RangeRequest -> Maybe RangeRequest
forall a. a -> Maybe a
Prelude.Just RangeRequest
x__val
                   Maybe RequestOp'Request
_otherwise -> Maybe RangeRequest
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe RequestOp'Request
_ Maybe RangeRequest
y__ -> (RangeRequest -> RequestOp'Request)
-> Maybe RangeRequest -> Maybe RequestOp'Request
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap RangeRequest -> RequestOp'Request
RequestOp'RequestRange Maybe RangeRequest
y__))
instance Data.ProtoLens.Field.HasField RequestOp "requestRange" RangeRequest where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "requestRange"
-> (RangeRequest -> f RangeRequest) -> RequestOp -> f RequestOp
fieldOf Proxy# "requestRange"
_
    = ((Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
 -> RequestOp -> f RequestOp)
-> ((RangeRequest -> f RangeRequest)
    -> Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> (RangeRequest -> f RangeRequest)
-> RequestOp
-> f RequestOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RequestOp -> Maybe RequestOp'Request)
-> (RequestOp -> Maybe RequestOp'Request -> RequestOp)
-> Lens
     RequestOp
     RequestOp
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RequestOp -> Maybe RequestOp'Request
_RequestOp'request (\ RequestOp
x__ Maybe RequestOp'Request
y__ -> RequestOp
x__ {_RequestOp'request = y__}))
        (((Maybe RangeRequest -> f (Maybe RangeRequest))
 -> Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> ((RangeRequest -> f RangeRequest)
    -> Maybe RangeRequest -> f (Maybe RangeRequest))
-> (RangeRequest -> f RangeRequest)
-> Maybe RequestOp'Request
-> f (Maybe RequestOp'Request)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe RequestOp'Request -> Maybe RangeRequest)
-> (Maybe RequestOp'Request
    -> Maybe RangeRequest -> Maybe RequestOp'Request)
-> Lens
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
     (Maybe RangeRequest)
     (Maybe RangeRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe RequestOp'Request
x__
                 -> case Maybe RequestOp'Request
x__ of
                      (Prelude.Just (RequestOp'RequestRange RangeRequest
x__val))
                        -> RangeRequest -> Maybe RangeRequest
forall a. a -> Maybe a
Prelude.Just RangeRequest
x__val
                      Maybe RequestOp'Request
_otherwise -> Maybe RangeRequest
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe RequestOp'Request
_ Maybe RangeRequest
y__ -> (RangeRequest -> RequestOp'Request)
-> Maybe RangeRequest -> Maybe RequestOp'Request
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap RangeRequest -> RequestOp'Request
RequestOp'RequestRange Maybe RangeRequest
y__))
           (RangeRequest -> Lens' (Maybe RangeRequest) RangeRequest
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RangeRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField RequestOp "maybe'requestPut" (Prelude.Maybe PutRequest) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'requestPut"
-> (Maybe PutRequest -> f (Maybe PutRequest))
-> RequestOp
-> f RequestOp
fieldOf Proxy# "maybe'requestPut"
_
    = ((Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
 -> RequestOp -> f RequestOp)
-> ((Maybe PutRequest -> f (Maybe PutRequest))
    -> Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> (Maybe PutRequest -> f (Maybe PutRequest))
-> RequestOp
-> f RequestOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RequestOp -> Maybe RequestOp'Request)
-> (RequestOp -> Maybe RequestOp'Request -> RequestOp)
-> Lens
     RequestOp
     RequestOp
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RequestOp -> Maybe RequestOp'Request
_RequestOp'request (\ RequestOp
x__ Maybe RequestOp'Request
y__ -> RequestOp
x__ {_RequestOp'request = y__}))
        ((Maybe RequestOp'Request -> Maybe PutRequest)
-> (Maybe RequestOp'Request
    -> Maybe PutRequest -> Maybe RequestOp'Request)
-> Lens
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
     (Maybe PutRequest)
     (Maybe PutRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe RequestOp'Request
x__
              -> case Maybe RequestOp'Request
x__ of
                   (Prelude.Just (RequestOp'RequestPut PutRequest
x__val)) -> PutRequest -> Maybe PutRequest
forall a. a -> Maybe a
Prelude.Just PutRequest
x__val
                   Maybe RequestOp'Request
_otherwise -> Maybe PutRequest
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe RequestOp'Request
_ Maybe PutRequest
y__ -> (PutRequest -> RequestOp'Request)
-> Maybe PutRequest -> Maybe RequestOp'Request
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PutRequest -> RequestOp'Request
RequestOp'RequestPut Maybe PutRequest
y__))
instance Data.ProtoLens.Field.HasField RequestOp "requestPut" PutRequest where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "requestPut"
-> (PutRequest -> f PutRequest) -> RequestOp -> f RequestOp
fieldOf Proxy# "requestPut"
_
    = ((Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
 -> RequestOp -> f RequestOp)
-> ((PutRequest -> f PutRequest)
    -> Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> (PutRequest -> f PutRequest)
-> RequestOp
-> f RequestOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RequestOp -> Maybe RequestOp'Request)
-> (RequestOp -> Maybe RequestOp'Request -> RequestOp)
-> Lens
     RequestOp
     RequestOp
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RequestOp -> Maybe RequestOp'Request
_RequestOp'request (\ RequestOp
x__ Maybe RequestOp'Request
y__ -> RequestOp
x__ {_RequestOp'request = y__}))
        (((Maybe PutRequest -> f (Maybe PutRequest))
 -> Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> ((PutRequest -> f PutRequest)
    -> Maybe PutRequest -> f (Maybe PutRequest))
-> (PutRequest -> f PutRequest)
-> Maybe RequestOp'Request
-> f (Maybe RequestOp'Request)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe RequestOp'Request -> Maybe PutRequest)
-> (Maybe RequestOp'Request
    -> Maybe PutRequest -> Maybe RequestOp'Request)
-> Lens
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
     (Maybe PutRequest)
     (Maybe PutRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe RequestOp'Request
x__
                 -> case Maybe RequestOp'Request
x__ of
                      (Prelude.Just (RequestOp'RequestPut PutRequest
x__val)) -> PutRequest -> Maybe PutRequest
forall a. a -> Maybe a
Prelude.Just PutRequest
x__val
                      Maybe RequestOp'Request
_otherwise -> Maybe PutRequest
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe RequestOp'Request
_ Maybe PutRequest
y__ -> (PutRequest -> RequestOp'Request)
-> Maybe PutRequest -> Maybe RequestOp'Request
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PutRequest -> RequestOp'Request
RequestOp'RequestPut Maybe PutRequest
y__))
           (PutRequest -> Lens' (Maybe PutRequest) PutRequest
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens PutRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField RequestOp "maybe'requestDeleteRange" (Prelude.Maybe DeleteRangeRequest) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'requestDeleteRange"
-> (Maybe DeleteRangeRequest -> f (Maybe DeleteRangeRequest))
-> RequestOp
-> f RequestOp
fieldOf Proxy# "maybe'requestDeleteRange"
_
    = ((Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
 -> RequestOp -> f RequestOp)
-> ((Maybe DeleteRangeRequest -> f (Maybe DeleteRangeRequest))
    -> Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> (Maybe DeleteRangeRequest -> f (Maybe DeleteRangeRequest))
-> RequestOp
-> f RequestOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RequestOp -> Maybe RequestOp'Request)
-> (RequestOp -> Maybe RequestOp'Request -> RequestOp)
-> Lens
     RequestOp
     RequestOp
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RequestOp -> Maybe RequestOp'Request
_RequestOp'request (\ RequestOp
x__ Maybe RequestOp'Request
y__ -> RequestOp
x__ {_RequestOp'request = y__}))
        ((Maybe RequestOp'Request -> Maybe DeleteRangeRequest)
-> (Maybe RequestOp'Request
    -> Maybe DeleteRangeRequest -> Maybe RequestOp'Request)
-> Lens
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
     (Maybe DeleteRangeRequest)
     (Maybe DeleteRangeRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe RequestOp'Request
x__
              -> case Maybe RequestOp'Request
x__ of
                   (Prelude.Just (RequestOp'RequestDeleteRange DeleteRangeRequest
x__val))
                     -> DeleteRangeRequest -> Maybe DeleteRangeRequest
forall a. a -> Maybe a
Prelude.Just DeleteRangeRequest
x__val
                   Maybe RequestOp'Request
_otherwise -> Maybe DeleteRangeRequest
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe RequestOp'Request
_ Maybe DeleteRangeRequest
y__ -> (DeleteRangeRequest -> RequestOp'Request)
-> Maybe DeleteRangeRequest -> Maybe RequestOp'Request
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap DeleteRangeRequest -> RequestOp'Request
RequestOp'RequestDeleteRange Maybe DeleteRangeRequest
y__))
instance Data.ProtoLens.Field.HasField RequestOp "requestDeleteRange" DeleteRangeRequest where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "requestDeleteRange"
-> (DeleteRangeRequest -> f DeleteRangeRequest)
-> RequestOp
-> f RequestOp
fieldOf Proxy# "requestDeleteRange"
_
    = ((Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
 -> RequestOp -> f RequestOp)
-> ((DeleteRangeRequest -> f DeleteRangeRequest)
    -> Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> (DeleteRangeRequest -> f DeleteRangeRequest)
-> RequestOp
-> f RequestOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RequestOp -> Maybe RequestOp'Request)
-> (RequestOp -> Maybe RequestOp'Request -> RequestOp)
-> Lens
     RequestOp
     RequestOp
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RequestOp -> Maybe RequestOp'Request
_RequestOp'request (\ RequestOp
x__ Maybe RequestOp'Request
y__ -> RequestOp
x__ {_RequestOp'request = y__}))
        (((Maybe DeleteRangeRequest -> f (Maybe DeleteRangeRequest))
 -> Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> ((DeleteRangeRequest -> f DeleteRangeRequest)
    -> Maybe DeleteRangeRequest -> f (Maybe DeleteRangeRequest))
-> (DeleteRangeRequest -> f DeleteRangeRequest)
-> Maybe RequestOp'Request
-> f (Maybe RequestOp'Request)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe RequestOp'Request -> Maybe DeleteRangeRequest)
-> (Maybe RequestOp'Request
    -> Maybe DeleteRangeRequest -> Maybe RequestOp'Request)
-> Lens
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
     (Maybe DeleteRangeRequest)
     (Maybe DeleteRangeRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe RequestOp'Request
x__
                 -> case Maybe RequestOp'Request
x__ of
                      (Prelude.Just (RequestOp'RequestDeleteRange DeleteRangeRequest
x__val))
                        -> DeleteRangeRequest -> Maybe DeleteRangeRequest
forall a. a -> Maybe a
Prelude.Just DeleteRangeRequest
x__val
                      Maybe RequestOp'Request
_otherwise -> Maybe DeleteRangeRequest
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe RequestOp'Request
_ Maybe DeleteRangeRequest
y__ -> (DeleteRangeRequest -> RequestOp'Request)
-> Maybe DeleteRangeRequest -> Maybe RequestOp'Request
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap DeleteRangeRequest -> RequestOp'Request
RequestOp'RequestDeleteRange Maybe DeleteRangeRequest
y__))
           (DeleteRangeRequest
-> Lens' (Maybe DeleteRangeRequest) DeleteRangeRequest
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens DeleteRangeRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField RequestOp "maybe'requestTxn" (Prelude.Maybe TxnRequest) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'requestTxn"
-> (Maybe TxnRequest -> f (Maybe TxnRequest))
-> RequestOp
-> f RequestOp
fieldOf Proxy# "maybe'requestTxn"
_
    = ((Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
 -> RequestOp -> f RequestOp)
-> ((Maybe TxnRequest -> f (Maybe TxnRequest))
    -> Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> (Maybe TxnRequest -> f (Maybe TxnRequest))
-> RequestOp
-> f RequestOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RequestOp -> Maybe RequestOp'Request)
-> (RequestOp -> Maybe RequestOp'Request -> RequestOp)
-> Lens
     RequestOp
     RequestOp
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RequestOp -> Maybe RequestOp'Request
_RequestOp'request (\ RequestOp
x__ Maybe RequestOp'Request
y__ -> RequestOp
x__ {_RequestOp'request = y__}))
        ((Maybe RequestOp'Request -> Maybe TxnRequest)
-> (Maybe RequestOp'Request
    -> Maybe TxnRequest -> Maybe RequestOp'Request)
-> Lens
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
     (Maybe TxnRequest)
     (Maybe TxnRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe RequestOp'Request
x__
              -> case Maybe RequestOp'Request
x__ of
                   (Prelude.Just (RequestOp'RequestTxn TxnRequest
x__val)) -> TxnRequest -> Maybe TxnRequest
forall a. a -> Maybe a
Prelude.Just TxnRequest
x__val
                   Maybe RequestOp'Request
_otherwise -> Maybe TxnRequest
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe RequestOp'Request
_ Maybe TxnRequest
y__ -> (TxnRequest -> RequestOp'Request)
-> Maybe TxnRequest -> Maybe RequestOp'Request
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TxnRequest -> RequestOp'Request
RequestOp'RequestTxn Maybe TxnRequest
y__))
instance Data.ProtoLens.Field.HasField RequestOp "requestTxn" TxnRequest where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "requestTxn"
-> (TxnRequest -> f TxnRequest) -> RequestOp -> f RequestOp
fieldOf Proxy# "requestTxn"
_
    = ((Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
 -> RequestOp -> f RequestOp)
-> ((TxnRequest -> f TxnRequest)
    -> Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> (TxnRequest -> f TxnRequest)
-> RequestOp
-> f RequestOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RequestOp -> Maybe RequestOp'Request)
-> (RequestOp -> Maybe RequestOp'Request -> RequestOp)
-> Lens
     RequestOp
     RequestOp
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RequestOp -> Maybe RequestOp'Request
_RequestOp'request (\ RequestOp
x__ Maybe RequestOp'Request
y__ -> RequestOp
x__ {_RequestOp'request = y__}))
        (((Maybe TxnRequest -> f (Maybe TxnRequest))
 -> Maybe RequestOp'Request -> f (Maybe RequestOp'Request))
-> ((TxnRequest -> f TxnRequest)
    -> Maybe TxnRequest -> f (Maybe TxnRequest))
-> (TxnRequest -> f TxnRequest)
-> Maybe RequestOp'Request
-> f (Maybe RequestOp'Request)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe RequestOp'Request -> Maybe TxnRequest)
-> (Maybe RequestOp'Request
    -> Maybe TxnRequest -> Maybe RequestOp'Request)
-> Lens
     (Maybe RequestOp'Request)
     (Maybe RequestOp'Request)
     (Maybe TxnRequest)
     (Maybe TxnRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe RequestOp'Request
x__
                 -> case Maybe RequestOp'Request
x__ of
                      (Prelude.Just (RequestOp'RequestTxn TxnRequest
x__val)) -> TxnRequest -> Maybe TxnRequest
forall a. a -> Maybe a
Prelude.Just TxnRequest
x__val
                      Maybe RequestOp'Request
_otherwise -> Maybe TxnRequest
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe RequestOp'Request
_ Maybe TxnRequest
y__ -> (TxnRequest -> RequestOp'Request)
-> Maybe TxnRequest -> Maybe RequestOp'Request
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TxnRequest -> RequestOp'Request
RequestOp'RequestTxn Maybe TxnRequest
y__))
           (TxnRequest -> Lens' (Maybe TxnRequest) TxnRequest
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TxnRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message RequestOp where
  messageName :: Proxy RequestOp -> Text
messageName Proxy RequestOp
_ = String -> Text
Data.Text.pack String
"etcdserverpb.RequestOp"
  packedMessageDescriptor :: Proxy RequestOp -> ByteString
packedMessageDescriptor Proxy RequestOp
_
    = ByteString
"\n\
      \\tRequestOp\DC2A\n\
      \\rrequest_range\CAN\SOH \SOH(\v2\SUB.etcdserverpb.RangeRequestH\NULR\frequestRange\DC2;\n\
      \\vrequest_put\CAN\STX \SOH(\v2\CAN.etcdserverpb.PutRequestH\NULR\n\
      \requestPut\DC2T\n\
      \\DC4request_delete_range\CAN\ETX \SOH(\v2 .etcdserverpb.DeleteRangeRequestH\NULR\DC2requestDeleteRange\DC2D\n\
      \\vrequest_txn\CAN\EOT \SOH(\v2\CAN.etcdserverpb.TxnRequestH\NULR\n\
      \requestTxnB\a\138\181\CAN\ETX3.3B\t\n\
      \\arequest:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy RequestOp -> ByteString
packedFileDescriptor Proxy RequestOp
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor RequestOp)
fieldsByTag
    = let
        requestRange__field_descriptor :: FieldDescriptor RequestOp
requestRange__field_descriptor
          = String
-> FieldTypeDescriptor RangeRequest
-> FieldAccessor RequestOp RangeRequest
-> FieldDescriptor RequestOp
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"request_range"
              (MessageOrGroup -> FieldTypeDescriptor RangeRequest
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RangeRequest)
              (Lens' RequestOp (Maybe RangeRequest)
-> FieldAccessor RequestOp RangeRequest
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'requestRange")) ::
              Data.ProtoLens.FieldDescriptor RequestOp
        requestPut__field_descriptor :: FieldDescriptor RequestOp
requestPut__field_descriptor
          = String
-> FieldTypeDescriptor PutRequest
-> FieldAccessor RequestOp PutRequest
-> FieldDescriptor RequestOp
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"request_put"
              (MessageOrGroup -> FieldTypeDescriptor PutRequest
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PutRequest)
              (Lens' RequestOp (Maybe PutRequest)
-> FieldAccessor RequestOp PutRequest
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'requestPut")) ::
              Data.ProtoLens.FieldDescriptor RequestOp
        requestDeleteRange__field_descriptor :: FieldDescriptor RequestOp
requestDeleteRange__field_descriptor
          = String
-> FieldTypeDescriptor DeleteRangeRequest
-> FieldAccessor RequestOp DeleteRangeRequest
-> FieldDescriptor RequestOp
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"request_delete_range"
              (MessageOrGroup -> FieldTypeDescriptor DeleteRangeRequest
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor DeleteRangeRequest)
              (Lens' RequestOp (Maybe DeleteRangeRequest)
-> FieldAccessor RequestOp DeleteRangeRequest
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'requestDeleteRange")) ::
              Data.ProtoLens.FieldDescriptor RequestOp
        requestTxn__field_descriptor :: FieldDescriptor RequestOp
requestTxn__field_descriptor
          = String
-> FieldTypeDescriptor TxnRequest
-> FieldAccessor RequestOp TxnRequest
-> FieldDescriptor RequestOp
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"request_txn"
              (MessageOrGroup -> FieldTypeDescriptor TxnRequest
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxnRequest)
              (Lens' RequestOp (Maybe TxnRequest)
-> FieldAccessor RequestOp TxnRequest
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'requestTxn")) ::
              Data.ProtoLens.FieldDescriptor RequestOp
      in
        [(Tag, FieldDescriptor RequestOp)]
-> Map Tag (FieldDescriptor RequestOp)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor RequestOp
requestRange__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor RequestOp
requestPut__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor RequestOp
requestDeleteRange__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor RequestOp
requestTxn__field_descriptor)]
  unknownFields :: Lens' RequestOp FieldSet
unknownFields
    = (RequestOp -> FieldSet)
-> (RequestOp -> FieldSet -> RequestOp) -> Lens' RequestOp FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        RequestOp -> FieldSet
_RequestOp'_unknownFields
        (\ RequestOp
x__ FieldSet
y__ -> RequestOp
x__ {_RequestOp'_unknownFields = y__})
  defMessage :: RequestOp
defMessage
    = RequestOp'_constructor
        {_RequestOp'request :: Maybe RequestOp'Request
_RequestOp'request = Maybe RequestOp'Request
forall a. Maybe a
Prelude.Nothing,
         _RequestOp'_unknownFields :: FieldSet
_RequestOp'_unknownFields = []}
  parseMessage :: Parser RequestOp
parseMessage
    = let
        loop :: RequestOp -> Data.ProtoLens.Encoding.Bytes.Parser RequestOp
        loop :: RequestOp -> Parser RequestOp
loop RequestOp
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 RangeRequest -> String -> Parser RangeRequest
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
"request_range"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"requestRange") y x)
                        Word64
18
                          -> do y <- Parser PutRequest -> String -> Parser PutRequest
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
"request_put"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"requestPut") y x)
                        Word64
26
                          -> do y <- Parser DeleteRangeRequest -> String -> Parser DeleteRangeRequest
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
"request_delete_range"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"requestDeleteRange") y x)
                        Word64
34
                          -> do y <- Parser TxnRequest -> String -> Parser TxnRequest
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
"request_txn"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"requestTxn") 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 RequestOp -> String -> Parser RequestOp
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do RequestOp -> Parser RequestOp
loop RequestOp
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"RequestOp"
  buildMessage :: RequestOp -> Builder
buildMessage
    = \ RequestOp
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe RequestOp'Request)
  RequestOp
  RequestOp
  (Maybe RequestOp'Request)
  (Maybe RequestOp'Request)
-> RequestOp -> Maybe RequestOp'Request
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'request") RequestOp
_x
              of
                Maybe RequestOp'Request
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (RequestOp'RequestRange RangeRequest
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (RangeRequest -> ByteString) -> RangeRequest -> 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))
                          RangeRequest -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RangeRequest
v)
                (Prelude.Just (RequestOp'RequestPut PutRequest
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((ByteString -> Builder)
-> (PutRequest -> ByteString) -> PutRequest -> 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))
                          PutRequest -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PutRequest
v)
                (Prelude.Just (RequestOp'RequestDeleteRange DeleteRangeRequest
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                       ((ByteString -> Builder)
-> (DeleteRangeRequest -> ByteString)
-> DeleteRangeRequest
-> 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))
                          DeleteRangeRequest -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage DeleteRangeRequest
v)
                (Prelude.Just (RequestOp'RequestTxn TxnRequest
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                       ((ByteString -> Builder)
-> (TxnRequest -> ByteString) -> TxnRequest -> 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))
                          TxnRequest -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxnRequest
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet RequestOp RequestOp FieldSet FieldSet
-> RequestOp -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet RequestOp RequestOp FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' RequestOp FieldSet
Data.ProtoLens.unknownFields RequestOp
_x))
instance Control.DeepSeq.NFData RequestOp where
  rnf :: RequestOp -> ()
rnf
    = \ RequestOp
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (RequestOp -> FieldSet
_RequestOp'_unknownFields RequestOp
x__)
             (Maybe RequestOp'Request -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (RequestOp -> Maybe RequestOp'Request
_RequestOp'request RequestOp
x__) ())
instance Control.DeepSeq.NFData RequestOp'Request where
  rnf :: RequestOp'Request -> ()
rnf (RequestOp'RequestRange RangeRequest
x__) = RangeRequest -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf RangeRequest
x__
  rnf (RequestOp'RequestPut PutRequest
x__) = PutRequest -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf PutRequest
x__
  rnf (RequestOp'RequestDeleteRange DeleteRangeRequest
x__) = DeleteRangeRequest -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf DeleteRangeRequest
x__
  rnf (RequestOp'RequestTxn TxnRequest
x__) = TxnRequest -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TxnRequest
x__
_RequestOp'RequestRange ::
  Data.ProtoLens.Prism.Prism' RequestOp'Request RangeRequest
_RequestOp'RequestRange :: Prism' RequestOp'Request RangeRequest
_RequestOp'RequestRange
  = (RangeRequest -> RequestOp'Request)
-> (RequestOp'Request -> Maybe RangeRequest)
-> Prism' RequestOp'Request RangeRequest
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      RangeRequest -> RequestOp'Request
RequestOp'RequestRange
      (\ RequestOp'Request
p__
         -> case RequestOp'Request
p__ of
              (RequestOp'RequestRange RangeRequest
p__val) -> RangeRequest -> Maybe RangeRequest
forall a. a -> Maybe a
Prelude.Just RangeRequest
p__val
              RequestOp'Request
_otherwise -> Maybe RangeRequest
forall a. Maybe a
Prelude.Nothing)
_RequestOp'RequestPut ::
  Data.ProtoLens.Prism.Prism' RequestOp'Request PutRequest
_RequestOp'RequestPut :: Prism' RequestOp'Request PutRequest
_RequestOp'RequestPut
  = (PutRequest -> RequestOp'Request)
-> (RequestOp'Request -> Maybe PutRequest)
-> Prism' RequestOp'Request PutRequest
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      PutRequest -> RequestOp'Request
RequestOp'RequestPut
      (\ RequestOp'Request
p__
         -> case RequestOp'Request
p__ of
              (RequestOp'RequestPut PutRequest
p__val) -> PutRequest -> Maybe PutRequest
forall a. a -> Maybe a
Prelude.Just PutRequest
p__val
              RequestOp'Request
_otherwise -> Maybe PutRequest
forall a. Maybe a
Prelude.Nothing)
_RequestOp'RequestDeleteRange ::
  Data.ProtoLens.Prism.Prism' RequestOp'Request DeleteRangeRequest
_RequestOp'RequestDeleteRange :: Prism' RequestOp'Request DeleteRangeRequest
_RequestOp'RequestDeleteRange
  = (DeleteRangeRequest -> RequestOp'Request)
-> (RequestOp'Request -> Maybe DeleteRangeRequest)
-> Prism' RequestOp'Request DeleteRangeRequest
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      DeleteRangeRequest -> RequestOp'Request
RequestOp'RequestDeleteRange
      (\ RequestOp'Request
p__
         -> case RequestOp'Request
p__ of
              (RequestOp'RequestDeleteRange DeleteRangeRequest
p__val) -> DeleteRangeRequest -> Maybe DeleteRangeRequest
forall a. a -> Maybe a
Prelude.Just DeleteRangeRequest
p__val
              RequestOp'Request
_otherwise -> Maybe DeleteRangeRequest
forall a. Maybe a
Prelude.Nothing)
_RequestOp'RequestTxn ::
  Data.ProtoLens.Prism.Prism' RequestOp'Request TxnRequest
_RequestOp'RequestTxn :: Prism' RequestOp'Request TxnRequest
_RequestOp'RequestTxn
  = (TxnRequest -> RequestOp'Request)
-> (RequestOp'Request -> Maybe TxnRequest)
-> Prism' RequestOp'Request TxnRequest
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      TxnRequest -> RequestOp'Request
RequestOp'RequestTxn
      (\ RequestOp'Request
p__
         -> case RequestOp'Request
p__ of
              (RequestOp'RequestTxn TxnRequest
p__val) -> TxnRequest -> Maybe TxnRequest
forall a. a -> Maybe a
Prelude.Just TxnRequest
p__val
              RequestOp'Request
_otherwise -> Maybe TxnRequest
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.clusterId' @:: Lens' ResponseHeader Data.Word.Word64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.memberId' @:: Lens' ResponseHeader Data.Word.Word64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.revision' @:: Lens' ResponseHeader Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.raftTerm' @:: Lens' ResponseHeader Data.Word.Word64@ -}
data ResponseHeader
  = ResponseHeader'_constructor {ResponseHeader -> Word64
_ResponseHeader'clusterId :: !Data.Word.Word64,
                                 ResponseHeader -> Word64
_ResponseHeader'memberId :: !Data.Word.Word64,
                                 ResponseHeader -> Int64
_ResponseHeader'revision :: !Data.Int.Int64,
                                 ResponseHeader -> Word64
_ResponseHeader'raftTerm :: !Data.Word.Word64,
                                 ResponseHeader -> FieldSet
_ResponseHeader'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ResponseHeader -> ResponseHeader -> Bool
(ResponseHeader -> ResponseHeader -> Bool)
-> (ResponseHeader -> ResponseHeader -> Bool) -> Eq ResponseHeader
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ResponseHeader -> ResponseHeader -> Bool
== :: ResponseHeader -> ResponseHeader -> Bool
$c/= :: ResponseHeader -> ResponseHeader -> Bool
/= :: ResponseHeader -> ResponseHeader -> Bool
Prelude.Eq, Eq ResponseHeader
Eq ResponseHeader =>
(ResponseHeader -> ResponseHeader -> Ordering)
-> (ResponseHeader -> ResponseHeader -> Bool)
-> (ResponseHeader -> ResponseHeader -> Bool)
-> (ResponseHeader -> ResponseHeader -> Bool)
-> (ResponseHeader -> ResponseHeader -> Bool)
-> (ResponseHeader -> ResponseHeader -> ResponseHeader)
-> (ResponseHeader -> ResponseHeader -> ResponseHeader)
-> Ord ResponseHeader
ResponseHeader -> ResponseHeader -> Bool
ResponseHeader -> ResponseHeader -> Ordering
ResponseHeader -> ResponseHeader -> ResponseHeader
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 :: ResponseHeader -> ResponseHeader -> Ordering
compare :: ResponseHeader -> ResponseHeader -> Ordering
$c< :: ResponseHeader -> ResponseHeader -> Bool
< :: ResponseHeader -> ResponseHeader -> Bool
$c<= :: ResponseHeader -> ResponseHeader -> Bool
<= :: ResponseHeader -> ResponseHeader -> Bool
$c> :: ResponseHeader -> ResponseHeader -> Bool
> :: ResponseHeader -> ResponseHeader -> Bool
$c>= :: ResponseHeader -> ResponseHeader -> Bool
>= :: ResponseHeader -> ResponseHeader -> Bool
$cmax :: ResponseHeader -> ResponseHeader -> ResponseHeader
max :: ResponseHeader -> ResponseHeader -> ResponseHeader
$cmin :: ResponseHeader -> ResponseHeader -> ResponseHeader
min :: ResponseHeader -> ResponseHeader -> ResponseHeader
Prelude.Ord)
instance Prelude.Show ResponseHeader where
  showsPrec :: Int -> ResponseHeader -> ShowS
showsPrec Int
_ ResponseHeader
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ResponseHeader -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ResponseHeader
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ResponseHeader "clusterId" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "clusterId"
-> (Word64 -> f Word64) -> ResponseHeader -> f ResponseHeader
fieldOf Proxy# "clusterId"
_
    = ((Word64 -> f Word64) -> ResponseHeader -> f ResponseHeader)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> ResponseHeader
-> f ResponseHeader
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ResponseHeader -> Word64)
-> (ResponseHeader -> Word64 -> ResponseHeader)
-> Lens ResponseHeader ResponseHeader Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ResponseHeader -> Word64
_ResponseHeader'clusterId
           (\ ResponseHeader
x__ Word64
y__ -> ResponseHeader
x__ {_ResponseHeader'clusterId = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ResponseHeader "memberId" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "memberId"
-> (Word64 -> f Word64) -> ResponseHeader -> f ResponseHeader
fieldOf Proxy# "memberId"
_
    = ((Word64 -> f Word64) -> ResponseHeader -> f ResponseHeader)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> ResponseHeader
-> f ResponseHeader
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ResponseHeader -> Word64)
-> (ResponseHeader -> Word64 -> ResponseHeader)
-> Lens ResponseHeader ResponseHeader Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ResponseHeader -> Word64
_ResponseHeader'memberId
           (\ ResponseHeader
x__ Word64
y__ -> ResponseHeader
x__ {_ResponseHeader'memberId = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ResponseHeader "revision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "revision"
-> (Int64 -> f Int64) -> ResponseHeader -> f ResponseHeader
fieldOf Proxy# "revision"
_
    = ((Int64 -> f Int64) -> ResponseHeader -> f ResponseHeader)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> ResponseHeader
-> f ResponseHeader
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ResponseHeader -> Int64)
-> (ResponseHeader -> Int64 -> ResponseHeader)
-> Lens ResponseHeader ResponseHeader Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ResponseHeader -> Int64
_ResponseHeader'revision
           (\ ResponseHeader
x__ Int64
y__ -> ResponseHeader
x__ {_ResponseHeader'revision = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ResponseHeader "raftTerm" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "raftTerm"
-> (Word64 -> f Word64) -> ResponseHeader -> f ResponseHeader
fieldOf Proxy# "raftTerm"
_
    = ((Word64 -> f Word64) -> ResponseHeader -> f ResponseHeader)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> ResponseHeader
-> f ResponseHeader
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ResponseHeader -> Word64)
-> (ResponseHeader -> Word64 -> ResponseHeader)
-> Lens ResponseHeader ResponseHeader Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ResponseHeader -> Word64
_ResponseHeader'raftTerm
           (\ ResponseHeader
x__ Word64
y__ -> ResponseHeader
x__ {_ResponseHeader'raftTerm = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ResponseHeader where
  messageName :: Proxy ResponseHeader -> Text
messageName Proxy ResponseHeader
_ = String -> Text
Data.Text.pack String
"etcdserverpb.ResponseHeader"
  packedMessageDescriptor :: Proxy ResponseHeader -> ByteString
packedMessageDescriptor Proxy ResponseHeader
_
    = ByteString
"\n\
      \\SOResponseHeader\DC2\GS\n\
      \\n\
      \cluster_id\CAN\SOH \SOH(\EOTR\tclusterId\DC2\ESC\n\
      \\tmember_id\CAN\STX \SOH(\EOTR\bmemberId\DC2\SUB\n\
      \\brevision\CAN\ETX \SOH(\ETXR\brevision\DC2\ESC\n\
      \\traft_term\CAN\EOT \SOH(\EOTR\braftTerm:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy ResponseHeader -> ByteString
packedFileDescriptor Proxy ResponseHeader
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ResponseHeader)
fieldsByTag
    = let
        clusterId__field_descriptor :: FieldDescriptor ResponseHeader
clusterId__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor ResponseHeader Word64
-> FieldDescriptor ResponseHeader
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cluster_id"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens ResponseHeader ResponseHeader Word64 Word64
-> FieldAccessor ResponseHeader Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"clusterId")) ::
              Data.ProtoLens.FieldDescriptor ResponseHeader
        memberId__field_descriptor :: FieldDescriptor ResponseHeader
memberId__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor ResponseHeader Word64
-> FieldDescriptor ResponseHeader
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"member_id"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens ResponseHeader ResponseHeader Word64 Word64
-> FieldAccessor ResponseHeader Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"memberId")) ::
              Data.ProtoLens.FieldDescriptor ResponseHeader
        revision__field_descriptor :: FieldDescriptor ResponseHeader
revision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor ResponseHeader Int64
-> FieldDescriptor ResponseHeader
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"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 ResponseHeader ResponseHeader Int64 Int64
-> FieldAccessor ResponseHeader 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 @"revision")) ::
              Data.ProtoLens.FieldDescriptor ResponseHeader
        raftTerm__field_descriptor :: FieldDescriptor ResponseHeader
raftTerm__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor ResponseHeader Word64
-> FieldDescriptor ResponseHeader
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"raft_term"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens ResponseHeader ResponseHeader Word64 Word64
-> FieldAccessor ResponseHeader Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"raftTerm")) ::
              Data.ProtoLens.FieldDescriptor ResponseHeader
      in
        [(Tag, FieldDescriptor ResponseHeader)]
-> Map Tag (FieldDescriptor ResponseHeader)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ResponseHeader
clusterId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ResponseHeader
memberId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ResponseHeader
revision__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ResponseHeader
raftTerm__field_descriptor)]
  unknownFields :: Lens' ResponseHeader FieldSet
unknownFields
    = (ResponseHeader -> FieldSet)
-> (ResponseHeader -> FieldSet -> ResponseHeader)
-> Lens' ResponseHeader FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ResponseHeader -> FieldSet
_ResponseHeader'_unknownFields
        (\ ResponseHeader
x__ FieldSet
y__ -> ResponseHeader
x__ {_ResponseHeader'_unknownFields = y__})
  defMessage :: ResponseHeader
defMessage
    = ResponseHeader'_constructor
        {_ResponseHeader'clusterId :: Word64
_ResponseHeader'clusterId = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ResponseHeader'memberId :: Word64
_ResponseHeader'memberId = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ResponseHeader'revision :: Int64
_ResponseHeader'revision = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ResponseHeader'raftTerm :: Word64
_ResponseHeader'raftTerm = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ResponseHeader'_unknownFields :: FieldSet
_ResponseHeader'_unknownFields = []}
  parseMessage :: Parser ResponseHeader
parseMessage
    = let
        loop ::
          ResponseHeader
          -> Data.ProtoLens.Encoding.Bytes.Parser ResponseHeader
        loop :: ResponseHeader -> Parser ResponseHeader
loop ResponseHeader
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 Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"cluster_id"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"clusterId") y x)
                        Word64
16
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"member_id"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"memberId") 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
"revision"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"revision") y x)
                        Word64
32
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"raft_term"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"raftTerm") 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 ResponseHeader -> String -> Parser ResponseHeader
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ResponseHeader -> Parser ResponseHeader
loop ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ResponseHeader"
  buildMessage :: ResponseHeader -> Builder
buildMessage
    = \ ResponseHeader
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Word64
_v = FoldLike Word64 ResponseHeader ResponseHeader Word64 Word64
-> ResponseHeader -> Word64
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 @"clusterId") ResponseHeader
_x
              in
                if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Word64
_v = FoldLike Word64 ResponseHeader ResponseHeader Word64 Word64
-> ResponseHeader -> Word64
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 @"memberId") ResponseHeader
_x
                 in
                   if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Int64
_v = FoldLike Int64 ResponseHeader ResponseHeader Int64 Int64
-> ResponseHeader -> 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 @"revision") ResponseHeader
_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 :: Word64
_v = FoldLike Word64 ResponseHeader ResponseHeader Word64 Word64
-> ResponseHeader -> Word64
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 @"raftTerm") ResponseHeader
_x
                       in
                         if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike FieldSet ResponseHeader ResponseHeader FieldSet FieldSet
-> ResponseHeader -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ResponseHeader ResponseHeader FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ResponseHeader FieldSet
Data.ProtoLens.unknownFields ResponseHeader
_x)))))
instance Control.DeepSeq.NFData ResponseHeader where
  rnf :: ResponseHeader -> ()
rnf
    = \ ResponseHeader
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ResponseHeader -> FieldSet
_ResponseHeader'_unknownFields ResponseHeader
x__)
             (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ResponseHeader -> Word64
_ResponseHeader'clusterId ResponseHeader
x__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ResponseHeader -> Word64
_ResponseHeader'memberId ResponseHeader
x__)
                   (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (ResponseHeader -> Int64
_ResponseHeader'revision ResponseHeader
x__)
                      (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ResponseHeader -> Word64
_ResponseHeader'raftTerm ResponseHeader
x__) ()))))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'response' @:: Lens' ResponseOp (Prelude.Maybe ResponseOp'Response)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'responseRange' @:: Lens' ResponseOp (Prelude.Maybe RangeResponse)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.responseRange' @:: Lens' ResponseOp RangeResponse@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'responsePut' @:: Lens' ResponseOp (Prelude.Maybe PutResponse)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.responsePut' @:: Lens' ResponseOp PutResponse@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'responseDeleteRange' @:: Lens' ResponseOp (Prelude.Maybe DeleteRangeResponse)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.responseDeleteRange' @:: Lens' ResponseOp DeleteRangeResponse@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'responseTxn' @:: Lens' ResponseOp (Prelude.Maybe TxnResponse)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.responseTxn' @:: Lens' ResponseOp TxnResponse@ -}
data ResponseOp
  = ResponseOp'_constructor {ResponseOp -> Maybe ResponseOp'Response
_ResponseOp'response :: !(Prelude.Maybe ResponseOp'Response),
                             ResponseOp -> FieldSet
_ResponseOp'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ResponseOp -> ResponseOp -> Bool
(ResponseOp -> ResponseOp -> Bool)
-> (ResponseOp -> ResponseOp -> Bool) -> Eq ResponseOp
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ResponseOp -> ResponseOp -> Bool
== :: ResponseOp -> ResponseOp -> Bool
$c/= :: ResponseOp -> ResponseOp -> Bool
/= :: ResponseOp -> ResponseOp -> Bool
Prelude.Eq, Eq ResponseOp
Eq ResponseOp =>
(ResponseOp -> ResponseOp -> Ordering)
-> (ResponseOp -> ResponseOp -> Bool)
-> (ResponseOp -> ResponseOp -> Bool)
-> (ResponseOp -> ResponseOp -> Bool)
-> (ResponseOp -> ResponseOp -> Bool)
-> (ResponseOp -> ResponseOp -> ResponseOp)
-> (ResponseOp -> ResponseOp -> ResponseOp)
-> Ord ResponseOp
ResponseOp -> ResponseOp -> Bool
ResponseOp -> ResponseOp -> Ordering
ResponseOp -> ResponseOp -> ResponseOp
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 :: ResponseOp -> ResponseOp -> Ordering
compare :: ResponseOp -> ResponseOp -> Ordering
$c< :: ResponseOp -> ResponseOp -> Bool
< :: ResponseOp -> ResponseOp -> Bool
$c<= :: ResponseOp -> ResponseOp -> Bool
<= :: ResponseOp -> ResponseOp -> Bool
$c> :: ResponseOp -> ResponseOp -> Bool
> :: ResponseOp -> ResponseOp -> Bool
$c>= :: ResponseOp -> ResponseOp -> Bool
>= :: ResponseOp -> ResponseOp -> Bool
$cmax :: ResponseOp -> ResponseOp -> ResponseOp
max :: ResponseOp -> ResponseOp -> ResponseOp
$cmin :: ResponseOp -> ResponseOp -> ResponseOp
min :: ResponseOp -> ResponseOp -> ResponseOp
Prelude.Ord)
instance Prelude.Show ResponseOp where
  showsPrec :: Int -> ResponseOp -> ShowS
showsPrec Int
_ ResponseOp
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ResponseOp -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ResponseOp
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data ResponseOp'Response
  = ResponseOp'ResponseRange !RangeResponse |
    ResponseOp'ResponsePut !PutResponse |
    ResponseOp'ResponseDeleteRange !DeleteRangeResponse |
    ResponseOp'ResponseTxn !TxnResponse
  deriving stock (Int -> ResponseOp'Response -> ShowS
[ResponseOp'Response] -> ShowS
ResponseOp'Response -> String
(Int -> ResponseOp'Response -> ShowS)
-> (ResponseOp'Response -> String)
-> ([ResponseOp'Response] -> ShowS)
-> Show ResponseOp'Response
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ResponseOp'Response -> ShowS
showsPrec :: Int -> ResponseOp'Response -> ShowS
$cshow :: ResponseOp'Response -> String
show :: ResponseOp'Response -> String
$cshowList :: [ResponseOp'Response] -> ShowS
showList :: [ResponseOp'Response] -> ShowS
Prelude.Show, ResponseOp'Response -> ResponseOp'Response -> Bool
(ResponseOp'Response -> ResponseOp'Response -> Bool)
-> (ResponseOp'Response -> ResponseOp'Response -> Bool)
-> Eq ResponseOp'Response
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ResponseOp'Response -> ResponseOp'Response -> Bool
== :: ResponseOp'Response -> ResponseOp'Response -> Bool
$c/= :: ResponseOp'Response -> ResponseOp'Response -> Bool
/= :: ResponseOp'Response -> ResponseOp'Response -> Bool
Prelude.Eq, Eq ResponseOp'Response
Eq ResponseOp'Response =>
(ResponseOp'Response -> ResponseOp'Response -> Ordering)
-> (ResponseOp'Response -> ResponseOp'Response -> Bool)
-> (ResponseOp'Response -> ResponseOp'Response -> Bool)
-> (ResponseOp'Response -> ResponseOp'Response -> Bool)
-> (ResponseOp'Response -> ResponseOp'Response -> Bool)
-> (ResponseOp'Response
    -> ResponseOp'Response -> ResponseOp'Response)
-> (ResponseOp'Response
    -> ResponseOp'Response -> ResponseOp'Response)
-> Ord ResponseOp'Response
ResponseOp'Response -> ResponseOp'Response -> Bool
ResponseOp'Response -> ResponseOp'Response -> Ordering
ResponseOp'Response -> ResponseOp'Response -> ResponseOp'Response
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 :: ResponseOp'Response -> ResponseOp'Response -> Ordering
compare :: ResponseOp'Response -> ResponseOp'Response -> Ordering
$c< :: ResponseOp'Response -> ResponseOp'Response -> Bool
< :: ResponseOp'Response -> ResponseOp'Response -> Bool
$c<= :: ResponseOp'Response -> ResponseOp'Response -> Bool
<= :: ResponseOp'Response -> ResponseOp'Response -> Bool
$c> :: ResponseOp'Response -> ResponseOp'Response -> Bool
> :: ResponseOp'Response -> ResponseOp'Response -> Bool
$c>= :: ResponseOp'Response -> ResponseOp'Response -> Bool
>= :: ResponseOp'Response -> ResponseOp'Response -> Bool
$cmax :: ResponseOp'Response -> ResponseOp'Response -> ResponseOp'Response
max :: ResponseOp'Response -> ResponseOp'Response -> ResponseOp'Response
$cmin :: ResponseOp'Response -> ResponseOp'Response -> ResponseOp'Response
min :: ResponseOp'Response -> ResponseOp'Response -> ResponseOp'Response
Prelude.Ord)
instance Data.ProtoLens.Field.HasField ResponseOp "maybe'response" (Prelude.Maybe ResponseOp'Response) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'response"
-> (Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> ResponseOp
-> f ResponseOp
fieldOf Proxy# "maybe'response"
_
    = ((Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
 -> ResponseOp -> f ResponseOp)
-> ((Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
    -> Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> (Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> ResponseOp
-> f ResponseOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ResponseOp -> Maybe ResponseOp'Response)
-> (ResponseOp -> Maybe ResponseOp'Response -> ResponseOp)
-> Lens
     ResponseOp
     ResponseOp
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ResponseOp -> Maybe ResponseOp'Response
_ResponseOp'response
           (\ ResponseOp
x__ Maybe ResponseOp'Response
y__ -> ResponseOp
x__ {_ResponseOp'response = y__}))
        (Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ResponseOp "maybe'responseRange" (Prelude.Maybe RangeResponse) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'responseRange"
-> (Maybe RangeResponse -> f (Maybe RangeResponse))
-> ResponseOp
-> f ResponseOp
fieldOf Proxy# "maybe'responseRange"
_
    = ((Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
 -> ResponseOp -> f ResponseOp)
-> ((Maybe RangeResponse -> f (Maybe RangeResponse))
    -> Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> (Maybe RangeResponse -> f (Maybe RangeResponse))
-> ResponseOp
-> f ResponseOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ResponseOp -> Maybe ResponseOp'Response)
-> (ResponseOp -> Maybe ResponseOp'Response -> ResponseOp)
-> Lens
     ResponseOp
     ResponseOp
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ResponseOp -> Maybe ResponseOp'Response
_ResponseOp'response
           (\ ResponseOp
x__ Maybe ResponseOp'Response
y__ -> ResponseOp
x__ {_ResponseOp'response = y__}))
        ((Maybe ResponseOp'Response -> Maybe RangeResponse)
-> (Maybe ResponseOp'Response
    -> Maybe RangeResponse -> Maybe ResponseOp'Response)
-> Lens
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
     (Maybe RangeResponse)
     (Maybe RangeResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ResponseOp'Response
x__
              -> case Maybe ResponseOp'Response
x__ of
                   (Prelude.Just (ResponseOp'ResponseRange RangeResponse
x__val))
                     -> RangeResponse -> Maybe RangeResponse
forall a. a -> Maybe a
Prelude.Just RangeResponse
x__val
                   Maybe ResponseOp'Response
_otherwise -> Maybe RangeResponse
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ResponseOp'Response
_ Maybe RangeResponse
y__ -> (RangeResponse -> ResponseOp'Response)
-> Maybe RangeResponse -> Maybe ResponseOp'Response
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap RangeResponse -> ResponseOp'Response
ResponseOp'ResponseRange Maybe RangeResponse
y__))
instance Data.ProtoLens.Field.HasField ResponseOp "responseRange" RangeResponse where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "responseRange"
-> (RangeResponse -> f RangeResponse) -> ResponseOp -> f ResponseOp
fieldOf Proxy# "responseRange"
_
    = ((Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
 -> ResponseOp -> f ResponseOp)
-> ((RangeResponse -> f RangeResponse)
    -> Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> (RangeResponse -> f RangeResponse)
-> ResponseOp
-> f ResponseOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ResponseOp -> Maybe ResponseOp'Response)
-> (ResponseOp -> Maybe ResponseOp'Response -> ResponseOp)
-> Lens
     ResponseOp
     ResponseOp
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ResponseOp -> Maybe ResponseOp'Response
_ResponseOp'response
           (\ ResponseOp
x__ Maybe ResponseOp'Response
y__ -> ResponseOp
x__ {_ResponseOp'response = y__}))
        (((Maybe RangeResponse -> f (Maybe RangeResponse))
 -> Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> ((RangeResponse -> f RangeResponse)
    -> Maybe RangeResponse -> f (Maybe RangeResponse))
-> (RangeResponse -> f RangeResponse)
-> Maybe ResponseOp'Response
-> f (Maybe ResponseOp'Response)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ResponseOp'Response -> Maybe RangeResponse)
-> (Maybe ResponseOp'Response
    -> Maybe RangeResponse -> Maybe ResponseOp'Response)
-> Lens
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
     (Maybe RangeResponse)
     (Maybe RangeResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ResponseOp'Response
x__
                 -> case Maybe ResponseOp'Response
x__ of
                      (Prelude.Just (ResponseOp'ResponseRange RangeResponse
x__val))
                        -> RangeResponse -> Maybe RangeResponse
forall a. a -> Maybe a
Prelude.Just RangeResponse
x__val
                      Maybe ResponseOp'Response
_otherwise -> Maybe RangeResponse
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ResponseOp'Response
_ Maybe RangeResponse
y__ -> (RangeResponse -> ResponseOp'Response)
-> Maybe RangeResponse -> Maybe ResponseOp'Response
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap RangeResponse -> ResponseOp'Response
ResponseOp'ResponseRange Maybe RangeResponse
y__))
           (RangeResponse -> Lens' (Maybe RangeResponse) RangeResponse
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RangeResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ResponseOp "maybe'responsePut" (Prelude.Maybe PutResponse) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'responsePut"
-> (Maybe PutResponse -> f (Maybe PutResponse))
-> ResponseOp
-> f ResponseOp
fieldOf Proxy# "maybe'responsePut"
_
    = ((Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
 -> ResponseOp -> f ResponseOp)
-> ((Maybe PutResponse -> f (Maybe PutResponse))
    -> Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> (Maybe PutResponse -> f (Maybe PutResponse))
-> ResponseOp
-> f ResponseOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ResponseOp -> Maybe ResponseOp'Response)
-> (ResponseOp -> Maybe ResponseOp'Response -> ResponseOp)
-> Lens
     ResponseOp
     ResponseOp
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ResponseOp -> Maybe ResponseOp'Response
_ResponseOp'response
           (\ ResponseOp
x__ Maybe ResponseOp'Response
y__ -> ResponseOp
x__ {_ResponseOp'response = y__}))
        ((Maybe ResponseOp'Response -> Maybe PutResponse)
-> (Maybe ResponseOp'Response
    -> Maybe PutResponse -> Maybe ResponseOp'Response)
-> Lens
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
     (Maybe PutResponse)
     (Maybe PutResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ResponseOp'Response
x__
              -> case Maybe ResponseOp'Response
x__ of
                   (Prelude.Just (ResponseOp'ResponsePut PutResponse
x__val))
                     -> PutResponse -> Maybe PutResponse
forall a. a -> Maybe a
Prelude.Just PutResponse
x__val
                   Maybe ResponseOp'Response
_otherwise -> Maybe PutResponse
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ResponseOp'Response
_ Maybe PutResponse
y__ -> (PutResponse -> ResponseOp'Response)
-> Maybe PutResponse -> Maybe ResponseOp'Response
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PutResponse -> ResponseOp'Response
ResponseOp'ResponsePut Maybe PutResponse
y__))
instance Data.ProtoLens.Field.HasField ResponseOp "responsePut" PutResponse where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "responsePut"
-> (PutResponse -> f PutResponse) -> ResponseOp -> f ResponseOp
fieldOf Proxy# "responsePut"
_
    = ((Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
 -> ResponseOp -> f ResponseOp)
-> ((PutResponse -> f PutResponse)
    -> Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> (PutResponse -> f PutResponse)
-> ResponseOp
-> f ResponseOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ResponseOp -> Maybe ResponseOp'Response)
-> (ResponseOp -> Maybe ResponseOp'Response -> ResponseOp)
-> Lens
     ResponseOp
     ResponseOp
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ResponseOp -> Maybe ResponseOp'Response
_ResponseOp'response
           (\ ResponseOp
x__ Maybe ResponseOp'Response
y__ -> ResponseOp
x__ {_ResponseOp'response = y__}))
        (((Maybe PutResponse -> f (Maybe PutResponse))
 -> Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> ((PutResponse -> f PutResponse)
    -> Maybe PutResponse -> f (Maybe PutResponse))
-> (PutResponse -> f PutResponse)
-> Maybe ResponseOp'Response
-> f (Maybe ResponseOp'Response)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ResponseOp'Response -> Maybe PutResponse)
-> (Maybe ResponseOp'Response
    -> Maybe PutResponse -> Maybe ResponseOp'Response)
-> Lens
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
     (Maybe PutResponse)
     (Maybe PutResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ResponseOp'Response
x__
                 -> case Maybe ResponseOp'Response
x__ of
                      (Prelude.Just (ResponseOp'ResponsePut PutResponse
x__val))
                        -> PutResponse -> Maybe PutResponse
forall a. a -> Maybe a
Prelude.Just PutResponse
x__val
                      Maybe ResponseOp'Response
_otherwise -> Maybe PutResponse
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ResponseOp'Response
_ Maybe PutResponse
y__ -> (PutResponse -> ResponseOp'Response)
-> Maybe PutResponse -> Maybe ResponseOp'Response
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap PutResponse -> ResponseOp'Response
ResponseOp'ResponsePut Maybe PutResponse
y__))
           (PutResponse -> Lens' (Maybe PutResponse) PutResponse
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens PutResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ResponseOp "maybe'responseDeleteRange" (Prelude.Maybe DeleteRangeResponse) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'responseDeleteRange"
-> (Maybe DeleteRangeResponse -> f (Maybe DeleteRangeResponse))
-> ResponseOp
-> f ResponseOp
fieldOf Proxy# "maybe'responseDeleteRange"
_
    = ((Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
 -> ResponseOp -> f ResponseOp)
-> ((Maybe DeleteRangeResponse -> f (Maybe DeleteRangeResponse))
    -> Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> (Maybe DeleteRangeResponse -> f (Maybe DeleteRangeResponse))
-> ResponseOp
-> f ResponseOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ResponseOp -> Maybe ResponseOp'Response)
-> (ResponseOp -> Maybe ResponseOp'Response -> ResponseOp)
-> Lens
     ResponseOp
     ResponseOp
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ResponseOp -> Maybe ResponseOp'Response
_ResponseOp'response
           (\ ResponseOp
x__ Maybe ResponseOp'Response
y__ -> ResponseOp
x__ {_ResponseOp'response = y__}))
        ((Maybe ResponseOp'Response -> Maybe DeleteRangeResponse)
-> (Maybe ResponseOp'Response
    -> Maybe DeleteRangeResponse -> Maybe ResponseOp'Response)
-> Lens
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
     (Maybe DeleteRangeResponse)
     (Maybe DeleteRangeResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ResponseOp'Response
x__
              -> case Maybe ResponseOp'Response
x__ of
                   (Prelude.Just (ResponseOp'ResponseDeleteRange DeleteRangeResponse
x__val))
                     -> DeleteRangeResponse -> Maybe DeleteRangeResponse
forall a. a -> Maybe a
Prelude.Just DeleteRangeResponse
x__val
                   Maybe ResponseOp'Response
_otherwise -> Maybe DeleteRangeResponse
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ResponseOp'Response
_ Maybe DeleteRangeResponse
y__ -> (DeleteRangeResponse -> ResponseOp'Response)
-> Maybe DeleteRangeResponse -> Maybe ResponseOp'Response
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap DeleteRangeResponse -> ResponseOp'Response
ResponseOp'ResponseDeleteRange Maybe DeleteRangeResponse
y__))
instance Data.ProtoLens.Field.HasField ResponseOp "responseDeleteRange" DeleteRangeResponse where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "responseDeleteRange"
-> (DeleteRangeResponse -> f DeleteRangeResponse)
-> ResponseOp
-> f ResponseOp
fieldOf Proxy# "responseDeleteRange"
_
    = ((Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
 -> ResponseOp -> f ResponseOp)
-> ((DeleteRangeResponse -> f DeleteRangeResponse)
    -> Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> (DeleteRangeResponse -> f DeleteRangeResponse)
-> ResponseOp
-> f ResponseOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ResponseOp -> Maybe ResponseOp'Response)
-> (ResponseOp -> Maybe ResponseOp'Response -> ResponseOp)
-> Lens
     ResponseOp
     ResponseOp
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ResponseOp -> Maybe ResponseOp'Response
_ResponseOp'response
           (\ ResponseOp
x__ Maybe ResponseOp'Response
y__ -> ResponseOp
x__ {_ResponseOp'response = y__}))
        (((Maybe DeleteRangeResponse -> f (Maybe DeleteRangeResponse))
 -> Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> ((DeleteRangeResponse -> f DeleteRangeResponse)
    -> Maybe DeleteRangeResponse -> f (Maybe DeleteRangeResponse))
-> (DeleteRangeResponse -> f DeleteRangeResponse)
-> Maybe ResponseOp'Response
-> f (Maybe ResponseOp'Response)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ResponseOp'Response -> Maybe DeleteRangeResponse)
-> (Maybe ResponseOp'Response
    -> Maybe DeleteRangeResponse -> Maybe ResponseOp'Response)
-> Lens
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
     (Maybe DeleteRangeResponse)
     (Maybe DeleteRangeResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ResponseOp'Response
x__
                 -> case Maybe ResponseOp'Response
x__ of
                      (Prelude.Just (ResponseOp'ResponseDeleteRange DeleteRangeResponse
x__val))
                        -> DeleteRangeResponse -> Maybe DeleteRangeResponse
forall a. a -> Maybe a
Prelude.Just DeleteRangeResponse
x__val
                      Maybe ResponseOp'Response
_otherwise -> Maybe DeleteRangeResponse
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ResponseOp'Response
_ Maybe DeleteRangeResponse
y__ -> (DeleteRangeResponse -> ResponseOp'Response)
-> Maybe DeleteRangeResponse -> Maybe ResponseOp'Response
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap DeleteRangeResponse -> ResponseOp'Response
ResponseOp'ResponseDeleteRange Maybe DeleteRangeResponse
y__))
           (DeleteRangeResponse
-> Lens' (Maybe DeleteRangeResponse) DeleteRangeResponse
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens DeleteRangeResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ResponseOp "maybe'responseTxn" (Prelude.Maybe TxnResponse) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'responseTxn"
-> (Maybe TxnResponse -> f (Maybe TxnResponse))
-> ResponseOp
-> f ResponseOp
fieldOf Proxy# "maybe'responseTxn"
_
    = ((Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
 -> ResponseOp -> f ResponseOp)
-> ((Maybe TxnResponse -> f (Maybe TxnResponse))
    -> Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> (Maybe TxnResponse -> f (Maybe TxnResponse))
-> ResponseOp
-> f ResponseOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ResponseOp -> Maybe ResponseOp'Response)
-> (ResponseOp -> Maybe ResponseOp'Response -> ResponseOp)
-> Lens
     ResponseOp
     ResponseOp
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ResponseOp -> Maybe ResponseOp'Response
_ResponseOp'response
           (\ ResponseOp
x__ Maybe ResponseOp'Response
y__ -> ResponseOp
x__ {_ResponseOp'response = y__}))
        ((Maybe ResponseOp'Response -> Maybe TxnResponse)
-> (Maybe ResponseOp'Response
    -> Maybe TxnResponse -> Maybe ResponseOp'Response)
-> Lens
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
     (Maybe TxnResponse)
     (Maybe TxnResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ResponseOp'Response
x__
              -> case Maybe ResponseOp'Response
x__ of
                   (Prelude.Just (ResponseOp'ResponseTxn TxnResponse
x__val))
                     -> TxnResponse -> Maybe TxnResponse
forall a. a -> Maybe a
Prelude.Just TxnResponse
x__val
                   Maybe ResponseOp'Response
_otherwise -> Maybe TxnResponse
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ResponseOp'Response
_ Maybe TxnResponse
y__ -> (TxnResponse -> ResponseOp'Response)
-> Maybe TxnResponse -> Maybe ResponseOp'Response
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TxnResponse -> ResponseOp'Response
ResponseOp'ResponseTxn Maybe TxnResponse
y__))
instance Data.ProtoLens.Field.HasField ResponseOp "responseTxn" TxnResponse where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "responseTxn"
-> (TxnResponse -> f TxnResponse) -> ResponseOp -> f ResponseOp
fieldOf Proxy# "responseTxn"
_
    = ((Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
 -> ResponseOp -> f ResponseOp)
-> ((TxnResponse -> f TxnResponse)
    -> Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> (TxnResponse -> f TxnResponse)
-> ResponseOp
-> f ResponseOp
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ResponseOp -> Maybe ResponseOp'Response)
-> (ResponseOp -> Maybe ResponseOp'Response -> ResponseOp)
-> Lens
     ResponseOp
     ResponseOp
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ResponseOp -> Maybe ResponseOp'Response
_ResponseOp'response
           (\ ResponseOp
x__ Maybe ResponseOp'Response
y__ -> ResponseOp
x__ {_ResponseOp'response = y__}))
        (((Maybe TxnResponse -> f (Maybe TxnResponse))
 -> Maybe ResponseOp'Response -> f (Maybe ResponseOp'Response))
-> ((TxnResponse -> f TxnResponse)
    -> Maybe TxnResponse -> f (Maybe TxnResponse))
-> (TxnResponse -> f TxnResponse)
-> Maybe ResponseOp'Response
-> f (Maybe ResponseOp'Response)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ResponseOp'Response -> Maybe TxnResponse)
-> (Maybe ResponseOp'Response
    -> Maybe TxnResponse -> Maybe ResponseOp'Response)
-> Lens
     (Maybe ResponseOp'Response)
     (Maybe ResponseOp'Response)
     (Maybe TxnResponse)
     (Maybe TxnResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ResponseOp'Response
x__
                 -> case Maybe ResponseOp'Response
x__ of
                      (Prelude.Just (ResponseOp'ResponseTxn TxnResponse
x__val))
                        -> TxnResponse -> Maybe TxnResponse
forall a. a -> Maybe a
Prelude.Just TxnResponse
x__val
                      Maybe ResponseOp'Response
_otherwise -> Maybe TxnResponse
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ResponseOp'Response
_ Maybe TxnResponse
y__ -> (TxnResponse -> ResponseOp'Response)
-> Maybe TxnResponse -> Maybe ResponseOp'Response
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TxnResponse -> ResponseOp'Response
ResponseOp'ResponseTxn Maybe TxnResponse
y__))
           (TxnResponse -> Lens' (Maybe TxnResponse) TxnResponse
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TxnResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message ResponseOp where
  messageName :: Proxy ResponseOp -> Text
messageName Proxy ResponseOp
_ = String -> Text
Data.Text.pack String
"etcdserverpb.ResponseOp"
  packedMessageDescriptor :: Proxy ResponseOp -> ByteString
packedMessageDescriptor Proxy ResponseOp
_
    = ByteString
"\n\
      \\n\
      \ResponseOp\DC2D\n\
      \\SOresponse_range\CAN\SOH \SOH(\v2\ESC.etcdserverpb.RangeResponseH\NULR\rresponseRange\DC2>\n\
      \\fresponse_put\CAN\STX \SOH(\v2\EM.etcdserverpb.PutResponseH\NULR\vresponsePut\DC2W\n\
      \\NAKresponse_delete_range\CAN\ETX \SOH(\v2!.etcdserverpb.DeleteRangeResponseH\NULR\DC3responseDeleteRange\DC2G\n\
      \\fresponse_txn\CAN\EOT \SOH(\v2\EM.etcdserverpb.TxnResponseH\NULR\vresponseTxnB\a\138\181\CAN\ETX3.3B\n\
      \\n\
      \\bresponse:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy ResponseOp -> ByteString
packedFileDescriptor Proxy ResponseOp
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ResponseOp)
fieldsByTag
    = let
        responseRange__field_descriptor :: FieldDescriptor ResponseOp
responseRange__field_descriptor
          = String
-> FieldTypeDescriptor RangeResponse
-> FieldAccessor ResponseOp RangeResponse
-> FieldDescriptor ResponseOp
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"response_range"
              (MessageOrGroup -> FieldTypeDescriptor RangeResponse
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RangeResponse)
              (Lens' ResponseOp (Maybe RangeResponse)
-> FieldAccessor ResponseOp RangeResponse
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'responseRange")) ::
              Data.ProtoLens.FieldDescriptor ResponseOp
        responsePut__field_descriptor :: FieldDescriptor ResponseOp
responsePut__field_descriptor
          = String
-> FieldTypeDescriptor PutResponse
-> FieldAccessor ResponseOp PutResponse
-> FieldDescriptor ResponseOp
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"response_put"
              (MessageOrGroup -> FieldTypeDescriptor PutResponse
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PutResponse)
              (Lens' ResponseOp (Maybe PutResponse)
-> FieldAccessor ResponseOp PutResponse
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'responsePut")) ::
              Data.ProtoLens.FieldDescriptor ResponseOp
        responseDeleteRange__field_descriptor :: FieldDescriptor ResponseOp
responseDeleteRange__field_descriptor
          = String
-> FieldTypeDescriptor DeleteRangeResponse
-> FieldAccessor ResponseOp DeleteRangeResponse
-> FieldDescriptor ResponseOp
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"response_delete_range"
              (MessageOrGroup -> FieldTypeDescriptor DeleteRangeResponse
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor DeleteRangeResponse)
              (Lens' ResponseOp (Maybe DeleteRangeResponse)
-> FieldAccessor ResponseOp DeleteRangeResponse
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'responseDeleteRange")) ::
              Data.ProtoLens.FieldDescriptor ResponseOp
        responseTxn__field_descriptor :: FieldDescriptor ResponseOp
responseTxn__field_descriptor
          = String
-> FieldTypeDescriptor TxnResponse
-> FieldAccessor ResponseOp TxnResponse
-> FieldDescriptor ResponseOp
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"response_txn"
              (MessageOrGroup -> FieldTypeDescriptor TxnResponse
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TxnResponse)
              (Lens' ResponseOp (Maybe TxnResponse)
-> FieldAccessor ResponseOp TxnResponse
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'responseTxn")) ::
              Data.ProtoLens.FieldDescriptor ResponseOp
      in
        [(Tag, FieldDescriptor ResponseOp)]
-> Map Tag (FieldDescriptor ResponseOp)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ResponseOp
responseRange__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ResponseOp
responsePut__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ResponseOp
responseDeleteRange__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ResponseOp
responseTxn__field_descriptor)]
  unknownFields :: Lens' ResponseOp FieldSet
unknownFields
    = (ResponseOp -> FieldSet)
-> (ResponseOp -> FieldSet -> ResponseOp)
-> Lens' ResponseOp FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ResponseOp -> FieldSet
_ResponseOp'_unknownFields
        (\ ResponseOp
x__ FieldSet
y__ -> ResponseOp
x__ {_ResponseOp'_unknownFields = y__})
  defMessage :: ResponseOp
defMessage
    = ResponseOp'_constructor
        {_ResponseOp'response :: Maybe ResponseOp'Response
_ResponseOp'response = Maybe ResponseOp'Response
forall a. Maybe a
Prelude.Nothing,
         _ResponseOp'_unknownFields :: FieldSet
_ResponseOp'_unknownFields = []}
  parseMessage :: Parser ResponseOp
parseMessage
    = let
        loop ::
          ResponseOp -> Data.ProtoLens.Encoding.Bytes.Parser ResponseOp
        loop :: ResponseOp -> Parser ResponseOp
loop ResponseOp
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 RangeResponse -> String -> Parser RangeResponse
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
"response_range"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"responseRange") y x)
                        Word64
18
                          -> do y <- Parser PutResponse -> String -> Parser PutResponse
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
"response_put"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"responsePut") y x)
                        Word64
26
                          -> do y <- Parser DeleteRangeResponse -> String -> Parser DeleteRangeResponse
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
"response_delete_range"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"responseDeleteRange") y x)
                        Word64
34
                          -> do y <- Parser TxnResponse -> String -> Parser TxnResponse
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
"response_txn"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"responseTxn") 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 ResponseOp -> String -> Parser ResponseOp
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ResponseOp -> Parser ResponseOp
loop ResponseOp
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ResponseOp"
  buildMessage :: ResponseOp -> Builder
buildMessage
    = \ ResponseOp
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseOp'Response)
  ResponseOp
  ResponseOp
  (Maybe ResponseOp'Response)
  (Maybe ResponseOp'Response)
-> ResponseOp -> Maybe ResponseOp'Response
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'response") ResponseOp
_x
              of
                Maybe ResponseOp'Response
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (ResponseOp'ResponseRange RangeResponse
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (RangeResponse -> ByteString) -> RangeResponse -> 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))
                          RangeResponse -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RangeResponse
v)
                (Prelude.Just (ResponseOp'ResponsePut PutResponse
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((ByteString -> Builder)
-> (PutResponse -> ByteString) -> PutResponse -> 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))
                          PutResponse -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage PutResponse
v)
                (Prelude.Just (ResponseOp'ResponseDeleteRange DeleteRangeResponse
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                       ((ByteString -> Builder)
-> (DeleteRangeResponse -> ByteString)
-> DeleteRangeResponse
-> 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))
                          DeleteRangeResponse -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage DeleteRangeResponse
v)
                (Prelude.Just (ResponseOp'ResponseTxn TxnResponse
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                       ((ByteString -> Builder)
-> (TxnResponse -> ByteString) -> TxnResponse -> 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))
                          TxnResponse -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage TxnResponse
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet ResponseOp ResponseOp FieldSet FieldSet
-> ResponseOp -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ResponseOp ResponseOp FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ResponseOp FieldSet
Data.ProtoLens.unknownFields ResponseOp
_x))
instance Control.DeepSeq.NFData ResponseOp where
  rnf :: ResponseOp -> ()
rnf
    = \ ResponseOp
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ResponseOp -> FieldSet
_ResponseOp'_unknownFields ResponseOp
x__)
             (Maybe ResponseOp'Response -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ResponseOp -> Maybe ResponseOp'Response
_ResponseOp'response ResponseOp
x__) ())
instance Control.DeepSeq.NFData ResponseOp'Response where
  rnf :: ResponseOp'Response -> ()
rnf (ResponseOp'ResponseRange RangeResponse
x__) = RangeResponse -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf RangeResponse
x__
  rnf (ResponseOp'ResponsePut PutResponse
x__) = PutResponse -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf PutResponse
x__
  rnf (ResponseOp'ResponseDeleteRange DeleteRangeResponse
x__) = DeleteRangeResponse -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf DeleteRangeResponse
x__
  rnf (ResponseOp'ResponseTxn TxnResponse
x__) = TxnResponse -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TxnResponse
x__
_ResponseOp'ResponseRange ::
  Data.ProtoLens.Prism.Prism' ResponseOp'Response RangeResponse
_ResponseOp'ResponseRange :: Prism' ResponseOp'Response RangeResponse
_ResponseOp'ResponseRange
  = (RangeResponse -> ResponseOp'Response)
-> (ResponseOp'Response -> Maybe RangeResponse)
-> Prism' ResponseOp'Response RangeResponse
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      RangeResponse -> ResponseOp'Response
ResponseOp'ResponseRange
      (\ ResponseOp'Response
p__
         -> case ResponseOp'Response
p__ of
              (ResponseOp'ResponseRange RangeResponse
p__val) -> RangeResponse -> Maybe RangeResponse
forall a. a -> Maybe a
Prelude.Just RangeResponse
p__val
              ResponseOp'Response
_otherwise -> Maybe RangeResponse
forall a. Maybe a
Prelude.Nothing)
_ResponseOp'ResponsePut ::
  Data.ProtoLens.Prism.Prism' ResponseOp'Response PutResponse
_ResponseOp'ResponsePut :: Prism' ResponseOp'Response PutResponse
_ResponseOp'ResponsePut
  = (PutResponse -> ResponseOp'Response)
-> (ResponseOp'Response -> Maybe PutResponse)
-> Prism' ResponseOp'Response PutResponse
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      PutResponse -> ResponseOp'Response
ResponseOp'ResponsePut
      (\ ResponseOp'Response
p__
         -> case ResponseOp'Response
p__ of
              (ResponseOp'ResponsePut PutResponse
p__val) -> PutResponse -> Maybe PutResponse
forall a. a -> Maybe a
Prelude.Just PutResponse
p__val
              ResponseOp'Response
_otherwise -> Maybe PutResponse
forall a. Maybe a
Prelude.Nothing)
_ResponseOp'ResponseDeleteRange ::
  Data.ProtoLens.Prism.Prism' ResponseOp'Response DeleteRangeResponse
_ResponseOp'ResponseDeleteRange :: Prism' ResponseOp'Response DeleteRangeResponse
_ResponseOp'ResponseDeleteRange
  = (DeleteRangeResponse -> ResponseOp'Response)
-> (ResponseOp'Response -> Maybe DeleteRangeResponse)
-> Prism' ResponseOp'Response DeleteRangeResponse
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      DeleteRangeResponse -> ResponseOp'Response
ResponseOp'ResponseDeleteRange
      (\ ResponseOp'Response
p__
         -> case ResponseOp'Response
p__ of
              (ResponseOp'ResponseDeleteRange DeleteRangeResponse
p__val) -> DeleteRangeResponse -> Maybe DeleteRangeResponse
forall a. a -> Maybe a
Prelude.Just DeleteRangeResponse
p__val
              ResponseOp'Response
_otherwise -> Maybe DeleteRangeResponse
forall a. Maybe a
Prelude.Nothing)
_ResponseOp'ResponseTxn ::
  Data.ProtoLens.Prism.Prism' ResponseOp'Response TxnResponse
_ResponseOp'ResponseTxn :: Prism' ResponseOp'Response TxnResponse
_ResponseOp'ResponseTxn
  = (TxnResponse -> ResponseOp'Response)
-> (ResponseOp'Response -> Maybe TxnResponse)
-> Prism' ResponseOp'Response TxnResponse
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      TxnResponse -> ResponseOp'Response
ResponseOp'ResponseTxn
      (\ ResponseOp'Response
p__
         -> case ResponseOp'Response
p__ of
              (ResponseOp'ResponseTxn TxnResponse
p__val) -> TxnResponse -> Maybe TxnResponse
forall a. a -> Maybe a
Prelude.Just TxnResponse
p__val
              ResponseOp'Response
_otherwise -> Maybe TxnResponse
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
      -}
data SnapshotRequest
  = SnapshotRequest'_constructor {SnapshotRequest -> FieldSet
_SnapshotRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (SnapshotRequest -> SnapshotRequest -> Bool
(SnapshotRequest -> SnapshotRequest -> Bool)
-> (SnapshotRequest -> SnapshotRequest -> Bool)
-> Eq SnapshotRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SnapshotRequest -> SnapshotRequest -> Bool
== :: SnapshotRequest -> SnapshotRequest -> Bool
$c/= :: SnapshotRequest -> SnapshotRequest -> Bool
/= :: SnapshotRequest -> SnapshotRequest -> Bool
Prelude.Eq, Eq SnapshotRequest
Eq SnapshotRequest =>
(SnapshotRequest -> SnapshotRequest -> Ordering)
-> (SnapshotRequest -> SnapshotRequest -> Bool)
-> (SnapshotRequest -> SnapshotRequest -> Bool)
-> (SnapshotRequest -> SnapshotRequest -> Bool)
-> (SnapshotRequest -> SnapshotRequest -> Bool)
-> (SnapshotRequest -> SnapshotRequest -> SnapshotRequest)
-> (SnapshotRequest -> SnapshotRequest -> SnapshotRequest)
-> Ord SnapshotRequest
SnapshotRequest -> SnapshotRequest -> Bool
SnapshotRequest -> SnapshotRequest -> Ordering
SnapshotRequest -> SnapshotRequest -> SnapshotRequest
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 :: SnapshotRequest -> SnapshotRequest -> Ordering
compare :: SnapshotRequest -> SnapshotRequest -> Ordering
$c< :: SnapshotRequest -> SnapshotRequest -> Bool
< :: SnapshotRequest -> SnapshotRequest -> Bool
$c<= :: SnapshotRequest -> SnapshotRequest -> Bool
<= :: SnapshotRequest -> SnapshotRequest -> Bool
$c> :: SnapshotRequest -> SnapshotRequest -> Bool
> :: SnapshotRequest -> SnapshotRequest -> Bool
$c>= :: SnapshotRequest -> SnapshotRequest -> Bool
>= :: SnapshotRequest -> SnapshotRequest -> Bool
$cmax :: SnapshotRequest -> SnapshotRequest -> SnapshotRequest
max :: SnapshotRequest -> SnapshotRequest -> SnapshotRequest
$cmin :: SnapshotRequest -> SnapshotRequest -> SnapshotRequest
min :: SnapshotRequest -> SnapshotRequest -> SnapshotRequest
Prelude.Ord)
instance Prelude.Show SnapshotRequest where
  showsPrec :: Int -> SnapshotRequest -> ShowS
showsPrec Int
_ SnapshotRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (SnapshotRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SnapshotRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message SnapshotRequest where
  messageName :: Proxy SnapshotRequest -> Text
messageName Proxy SnapshotRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.SnapshotRequest"
  packedMessageDescriptor :: Proxy SnapshotRequest -> ByteString
packedMessageDescriptor Proxy SnapshotRequest
_
    = ByteString
"\n\
      \\SISnapshotRequest:\a\130\181\CAN\ETX3.3"
  packedFileDescriptor :: Proxy SnapshotRequest -> ByteString
packedFileDescriptor Proxy SnapshotRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor SnapshotRequest)
fieldsByTag = let in [(Tag, FieldDescriptor SnapshotRequest)]
-> Map Tag (FieldDescriptor SnapshotRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' SnapshotRequest FieldSet
unknownFields
    = (SnapshotRequest -> FieldSet)
-> (SnapshotRequest -> FieldSet -> SnapshotRequest)
-> Lens' SnapshotRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        SnapshotRequest -> FieldSet
_SnapshotRequest'_unknownFields
        (\ SnapshotRequest
x__ FieldSet
y__ -> SnapshotRequest
x__ {_SnapshotRequest'_unknownFields = y__})
  defMessage :: SnapshotRequest
defMessage
    = SnapshotRequest'_constructor
        {_SnapshotRequest'_unknownFields :: FieldSet
_SnapshotRequest'_unknownFields = []}
  parseMessage :: Parser SnapshotRequest
parseMessage
    = let
        loop ::
          SnapshotRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser SnapshotRequest
        loop :: SnapshotRequest -> Parser SnapshotRequest
loop SnapshotRequest
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
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 SnapshotRequest -> String -> Parser SnapshotRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do SnapshotRequest -> Parser SnapshotRequest
loop SnapshotRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"SnapshotRequest"
  buildMessage :: SnapshotRequest -> Builder
buildMessage
    = \ SnapshotRequest
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike FieldSet SnapshotRequest SnapshotRequest FieldSet FieldSet
-> SnapshotRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SnapshotRequest SnapshotRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SnapshotRequest FieldSet
Data.ProtoLens.unknownFields SnapshotRequest
_x)
instance Control.DeepSeq.NFData SnapshotRequest where
  rnf :: SnapshotRequest -> ()
rnf
    = \ SnapshotRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SnapshotRequest -> FieldSet
_SnapshotRequest'_unknownFields SnapshotRequest
x__) ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' SnapshotResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' SnapshotResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.remainingBytes' @:: Lens' SnapshotResponse Data.Word.Word64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.blob' @:: Lens' SnapshotResponse Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.version' @:: Lens' SnapshotResponse Data.Text.Text@ -}
data SnapshotResponse
  = SnapshotResponse'_constructor {SnapshotResponse -> Maybe ResponseHeader
_SnapshotResponse'header :: !(Prelude.Maybe ResponseHeader),
                                   SnapshotResponse -> Word64
_SnapshotResponse'remainingBytes :: !Data.Word.Word64,
                                   SnapshotResponse -> ByteString
_SnapshotResponse'blob :: !Data.ByteString.ByteString,
                                   SnapshotResponse -> Text
_SnapshotResponse'version :: !Data.Text.Text,
                                   SnapshotResponse -> FieldSet
_SnapshotResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (SnapshotResponse -> SnapshotResponse -> Bool
(SnapshotResponse -> SnapshotResponse -> Bool)
-> (SnapshotResponse -> SnapshotResponse -> Bool)
-> Eq SnapshotResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SnapshotResponse -> SnapshotResponse -> Bool
== :: SnapshotResponse -> SnapshotResponse -> Bool
$c/= :: SnapshotResponse -> SnapshotResponse -> Bool
/= :: SnapshotResponse -> SnapshotResponse -> Bool
Prelude.Eq, Eq SnapshotResponse
Eq SnapshotResponse =>
(SnapshotResponse -> SnapshotResponse -> Ordering)
-> (SnapshotResponse -> SnapshotResponse -> Bool)
-> (SnapshotResponse -> SnapshotResponse -> Bool)
-> (SnapshotResponse -> SnapshotResponse -> Bool)
-> (SnapshotResponse -> SnapshotResponse -> Bool)
-> (SnapshotResponse -> SnapshotResponse -> SnapshotResponse)
-> (SnapshotResponse -> SnapshotResponse -> SnapshotResponse)
-> Ord SnapshotResponse
SnapshotResponse -> SnapshotResponse -> Bool
SnapshotResponse -> SnapshotResponse -> Ordering
SnapshotResponse -> SnapshotResponse -> SnapshotResponse
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 :: SnapshotResponse -> SnapshotResponse -> Ordering
compare :: SnapshotResponse -> SnapshotResponse -> Ordering
$c< :: SnapshotResponse -> SnapshotResponse -> Bool
< :: SnapshotResponse -> SnapshotResponse -> Bool
$c<= :: SnapshotResponse -> SnapshotResponse -> Bool
<= :: SnapshotResponse -> SnapshotResponse -> Bool
$c> :: SnapshotResponse -> SnapshotResponse -> Bool
> :: SnapshotResponse -> SnapshotResponse -> Bool
$c>= :: SnapshotResponse -> SnapshotResponse -> Bool
>= :: SnapshotResponse -> SnapshotResponse -> Bool
$cmax :: SnapshotResponse -> SnapshotResponse -> SnapshotResponse
max :: SnapshotResponse -> SnapshotResponse -> SnapshotResponse
$cmin :: SnapshotResponse -> SnapshotResponse -> SnapshotResponse
min :: SnapshotResponse -> SnapshotResponse -> SnapshotResponse
Prelude.Ord)
instance Prelude.Show SnapshotResponse where
  showsPrec :: Int -> SnapshotResponse -> ShowS
showsPrec Int
_ SnapshotResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (SnapshotResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SnapshotResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField SnapshotResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> SnapshotResponse
-> f SnapshotResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> SnapshotResponse -> f SnapshotResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> SnapshotResponse
-> f SnapshotResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SnapshotResponse -> Maybe ResponseHeader)
-> (SnapshotResponse -> Maybe ResponseHeader -> SnapshotResponse)
-> Lens
     SnapshotResponse
     SnapshotResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SnapshotResponse -> Maybe ResponseHeader
_SnapshotResponse'header
           (\ SnapshotResponse
x__ Maybe ResponseHeader
y__ -> SnapshotResponse
x__ {_SnapshotResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SnapshotResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> SnapshotResponse
-> f SnapshotResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> SnapshotResponse -> f SnapshotResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> SnapshotResponse
-> f SnapshotResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SnapshotResponse -> Maybe ResponseHeader)
-> (SnapshotResponse -> Maybe ResponseHeader -> SnapshotResponse)
-> Lens
     SnapshotResponse
     SnapshotResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SnapshotResponse -> Maybe ResponseHeader
_SnapshotResponse'header
           (\ SnapshotResponse
x__ Maybe ResponseHeader
y__ -> SnapshotResponse
x__ {_SnapshotResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SnapshotResponse "remainingBytes" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "remainingBytes"
-> (Word64 -> f Word64) -> SnapshotResponse -> f SnapshotResponse
fieldOf Proxy# "remainingBytes"
_
    = ((Word64 -> f Word64) -> SnapshotResponse -> f SnapshotResponse)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> SnapshotResponse
-> f SnapshotResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SnapshotResponse -> Word64)
-> (SnapshotResponse -> Word64 -> SnapshotResponse)
-> Lens SnapshotResponse SnapshotResponse Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SnapshotResponse -> Word64
_SnapshotResponse'remainingBytes
           (\ SnapshotResponse
x__ Word64
y__ -> SnapshotResponse
x__ {_SnapshotResponse'remainingBytes = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SnapshotResponse "blob" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "blob"
-> (ByteString -> f ByteString)
-> SnapshotResponse
-> f SnapshotResponse
fieldOf Proxy# "blob"
_
    = ((ByteString -> f ByteString)
 -> SnapshotResponse -> f SnapshotResponse)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> SnapshotResponse
-> f SnapshotResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SnapshotResponse -> ByteString)
-> (SnapshotResponse -> ByteString -> SnapshotResponse)
-> Lens SnapshotResponse SnapshotResponse ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SnapshotResponse -> ByteString
_SnapshotResponse'blob
           (\ SnapshotResponse
x__ ByteString
y__ -> SnapshotResponse
x__ {_SnapshotResponse'blob = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SnapshotResponse "version" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "version"
-> (Text -> f Text) -> SnapshotResponse -> f SnapshotResponse
fieldOf Proxy# "version"
_
    = ((Text -> f Text) -> SnapshotResponse -> f SnapshotResponse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SnapshotResponse
-> f SnapshotResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SnapshotResponse -> Text)
-> (SnapshotResponse -> Text -> SnapshotResponse)
-> Lens SnapshotResponse SnapshotResponse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SnapshotResponse -> Text
_SnapshotResponse'version
           (\ SnapshotResponse
x__ Text
y__ -> SnapshotResponse
x__ {_SnapshotResponse'version = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SnapshotResponse where
  messageName :: Proxy SnapshotResponse -> Text
messageName Proxy SnapshotResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.SnapshotResponse"
  packedMessageDescriptor :: Proxy SnapshotResponse -> ByteString
packedMessageDescriptor Proxy SnapshotResponse
_
    = ByteString
"\n\
      \\DLESnapshotResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2'\n\
      \\SIremaining_bytes\CAN\STX \SOH(\EOTR\SOremainingBytes\DC2\DC2\n\
      \\EOTblob\CAN\ETX \SOH(\fR\EOTblob\DC2!\n\
      \\aversion\CAN\EOT \SOH(\tR\aversionB\a\138\181\CAN\ETX3.6:\a\130\181\CAN\ETX3.3"
  packedFileDescriptor :: Proxy SnapshotResponse -> ByteString
packedFileDescriptor Proxy SnapshotResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor SnapshotResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor SnapshotResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor SnapshotResponse ResponseHeader
-> FieldDescriptor SnapshotResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  SnapshotResponse
  SnapshotResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor SnapshotResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor SnapshotResponse
        remainingBytes__field_descriptor :: FieldDescriptor SnapshotResponse
remainingBytes__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor SnapshotResponse Word64
-> FieldDescriptor SnapshotResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"remaining_bytes"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens SnapshotResponse SnapshotResponse Word64 Word64
-> FieldAccessor SnapshotResponse Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"remainingBytes")) ::
              Data.ProtoLens.FieldDescriptor SnapshotResponse
        blob__field_descriptor :: FieldDescriptor SnapshotResponse
blob__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor SnapshotResponse ByteString
-> FieldDescriptor SnapshotResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"blob"
              (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 SnapshotResponse SnapshotResponse ByteString ByteString
-> FieldAccessor SnapshotResponse 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 @"blob")) ::
              Data.ProtoLens.FieldDescriptor SnapshotResponse
        version__field_descriptor :: FieldDescriptor SnapshotResponse
version__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor SnapshotResponse Text
-> FieldDescriptor SnapshotResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"version"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens SnapshotResponse SnapshotResponse Text Text
-> FieldAccessor SnapshotResponse Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 SnapshotResponse
      in
        [(Tag, FieldDescriptor SnapshotResponse)]
-> Map Tag (FieldDescriptor SnapshotResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor SnapshotResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor SnapshotResponse
remainingBytes__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor SnapshotResponse
blob__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor SnapshotResponse
version__field_descriptor)]
  unknownFields :: Lens' SnapshotResponse FieldSet
unknownFields
    = (SnapshotResponse -> FieldSet)
-> (SnapshotResponse -> FieldSet -> SnapshotResponse)
-> Lens' SnapshotResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        SnapshotResponse -> FieldSet
_SnapshotResponse'_unknownFields
        (\ SnapshotResponse
x__ FieldSet
y__ -> SnapshotResponse
x__ {_SnapshotResponse'_unknownFields = y__})
  defMessage :: SnapshotResponse
defMessage
    = SnapshotResponse'_constructor
        {_SnapshotResponse'header :: Maybe ResponseHeader
_SnapshotResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _SnapshotResponse'remainingBytes :: Word64
_SnapshotResponse'remainingBytes = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _SnapshotResponse'blob :: ByteString
_SnapshotResponse'blob = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _SnapshotResponse'version :: Text
_SnapshotResponse'version = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _SnapshotResponse'_unknownFields :: FieldSet
_SnapshotResponse'_unknownFields = []}
  parseMessage :: Parser SnapshotResponse
parseMessage
    = let
        loop ::
          SnapshotResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser SnapshotResponse
        loop :: SnapshotResponse -> Parser SnapshotResponse
loop SnapshotResponse
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 ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                        Word64
16
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"remaining_bytes"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"remainingBytes") y x)
                        Word64
26
                          -> 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
"blob"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"blob") y x)
                        Word64
34
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"version"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"version") 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 SnapshotResponse -> String -> Parser SnapshotResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do SnapshotResponse -> Parser SnapshotResponse
loop SnapshotResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"SnapshotResponse"
  buildMessage :: SnapshotResponse -> Builder
buildMessage
    = \ SnapshotResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  SnapshotResponse
  SnapshotResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> SnapshotResponse -> Maybe ResponseHeader
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'header") SnapshotResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Word64
_v
                     = FoldLike Word64 SnapshotResponse SnapshotResponse Word64 Word64
-> SnapshotResponse -> Word64
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 @"remainingBytes") SnapshotResponse
_x
                 in
                   if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let _v :: ByteString
_v = FoldLike
  ByteString SnapshotResponse SnapshotResponse ByteString ByteString
-> SnapshotResponse -> 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 @"blob") SnapshotResponse
_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
26)
                            ((\ 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 :: Text
_v = FoldLike Text SnapshotResponse SnapshotResponse Text Text
-> SnapshotResponse -> Text
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") SnapshotResponse
_x
                       in
                         if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
34)
                               ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                                  Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike
  FieldSet SnapshotResponse SnapshotResponse FieldSet FieldSet
-> SnapshotResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet SnapshotResponse SnapshotResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' SnapshotResponse FieldSet
Data.ProtoLens.unknownFields SnapshotResponse
_x)))))
instance Control.DeepSeq.NFData SnapshotResponse where
  rnf :: SnapshotResponse -> ()
rnf
    = \ SnapshotResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (SnapshotResponse -> FieldSet
_SnapshotResponse'_unknownFields SnapshotResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (SnapshotResponse -> Maybe ResponseHeader
_SnapshotResponse'header SnapshotResponse
x__)
                (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (SnapshotResponse -> Word64
_SnapshotResponse'remainingBytes SnapshotResponse
x__)
                   (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (SnapshotResponse -> ByteString
_SnapshotResponse'blob SnapshotResponse
x__)
                      (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SnapshotResponse -> Text
_SnapshotResponse'version SnapshotResponse
x__) ()))))
{- | Fields :
      -}
data StatusRequest
  = StatusRequest'_constructor {StatusRequest -> FieldSet
_StatusRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (StatusRequest -> StatusRequest -> Bool
(StatusRequest -> StatusRequest -> Bool)
-> (StatusRequest -> StatusRequest -> Bool) -> Eq StatusRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StatusRequest -> StatusRequest -> Bool
== :: StatusRequest -> StatusRequest -> Bool
$c/= :: StatusRequest -> StatusRequest -> Bool
/= :: StatusRequest -> StatusRequest -> Bool
Prelude.Eq, Eq StatusRequest
Eq StatusRequest =>
(StatusRequest -> StatusRequest -> Ordering)
-> (StatusRequest -> StatusRequest -> Bool)
-> (StatusRequest -> StatusRequest -> Bool)
-> (StatusRequest -> StatusRequest -> Bool)
-> (StatusRequest -> StatusRequest -> Bool)
-> (StatusRequest -> StatusRequest -> StatusRequest)
-> (StatusRequest -> StatusRequest -> StatusRequest)
-> Ord StatusRequest
StatusRequest -> StatusRequest -> Bool
StatusRequest -> StatusRequest -> Ordering
StatusRequest -> StatusRequest -> StatusRequest
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 :: StatusRequest -> StatusRequest -> Ordering
compare :: StatusRequest -> StatusRequest -> Ordering
$c< :: StatusRequest -> StatusRequest -> Bool
< :: StatusRequest -> StatusRequest -> Bool
$c<= :: StatusRequest -> StatusRequest -> Bool
<= :: StatusRequest -> StatusRequest -> Bool
$c> :: StatusRequest -> StatusRequest -> Bool
> :: StatusRequest -> StatusRequest -> Bool
$c>= :: StatusRequest -> StatusRequest -> Bool
>= :: StatusRequest -> StatusRequest -> Bool
$cmax :: StatusRequest -> StatusRequest -> StatusRequest
max :: StatusRequest -> StatusRequest -> StatusRequest
$cmin :: StatusRequest -> StatusRequest -> StatusRequest
min :: StatusRequest -> StatusRequest -> StatusRequest
Prelude.Ord)
instance Prelude.Show StatusRequest where
  showsPrec :: Int -> StatusRequest -> ShowS
showsPrec Int
_ StatusRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (StatusRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StatusRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message StatusRequest where
  messageName :: Proxy StatusRequest -> Text
messageName Proxy StatusRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.StatusRequest"
  packedMessageDescriptor :: Proxy StatusRequest -> ByteString
packedMessageDescriptor Proxy StatusRequest
_
    = ByteString
"\n\
      \\rStatusRequest:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy StatusRequest -> ByteString
packedFileDescriptor Proxy StatusRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor StatusRequest)
fieldsByTag = let in [(Tag, FieldDescriptor StatusRequest)]
-> Map Tag (FieldDescriptor StatusRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' StatusRequest FieldSet
unknownFields
    = (StatusRequest -> FieldSet)
-> (StatusRequest -> FieldSet -> StatusRequest)
-> Lens' StatusRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        StatusRequest -> FieldSet
_StatusRequest'_unknownFields
        (\ StatusRequest
x__ FieldSet
y__ -> StatusRequest
x__ {_StatusRequest'_unknownFields = y__})
  defMessage :: StatusRequest
defMessage
    = StatusRequest'_constructor {_StatusRequest'_unknownFields :: FieldSet
_StatusRequest'_unknownFields = []}
  parseMessage :: Parser StatusRequest
parseMessage
    = let
        loop ::
          StatusRequest -> Data.ProtoLens.Encoding.Bytes.Parser StatusRequest
        loop :: StatusRequest -> Parser StatusRequest
loop StatusRequest
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
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 StatusRequest -> String -> Parser StatusRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do StatusRequest -> Parser StatusRequest
loop StatusRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"StatusRequest"
  buildMessage :: StatusRequest -> Builder
buildMessage
    = \ StatusRequest
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike FieldSet StatusRequest StatusRequest FieldSet FieldSet
-> StatusRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet StatusRequest StatusRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StatusRequest FieldSet
Data.ProtoLens.unknownFields StatusRequest
_x)
instance Control.DeepSeq.NFData StatusRequest where
  rnf :: StatusRequest -> ()
rnf
    = \ StatusRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (StatusRequest -> FieldSet
_StatusRequest'_unknownFields StatusRequest
x__) ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' StatusResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' StatusResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.version' @:: Lens' StatusResponse Data.Text.Text@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.dbSize' @:: Lens' StatusResponse Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.leader' @:: Lens' StatusResponse Data.Word.Word64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.raftIndex' @:: Lens' StatusResponse Data.Word.Word64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.raftTerm' @:: Lens' StatusResponse Data.Word.Word64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.raftAppliedIndex' @:: Lens' StatusResponse Data.Word.Word64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.errors' @:: Lens' StatusResponse [Data.Text.Text]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'errors' @:: Lens' StatusResponse (Data.Vector.Vector Data.Text.Text)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.dbSizeInUse' @:: Lens' StatusResponse Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.isLearner' @:: Lens' StatusResponse Prelude.Bool@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.storageVersion' @:: Lens' StatusResponse Data.Text.Text@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.dbSizeQuota' @:: Lens' StatusResponse Data.Int.Int64@ -}
data StatusResponse
  = StatusResponse'_constructor {StatusResponse -> Maybe ResponseHeader
_StatusResponse'header :: !(Prelude.Maybe ResponseHeader),
                                 StatusResponse -> Text
_StatusResponse'version :: !Data.Text.Text,
                                 StatusResponse -> Int64
_StatusResponse'dbSize :: !Data.Int.Int64,
                                 StatusResponse -> Word64
_StatusResponse'leader :: !Data.Word.Word64,
                                 StatusResponse -> Word64
_StatusResponse'raftIndex :: !Data.Word.Word64,
                                 StatusResponse -> Word64
_StatusResponse'raftTerm :: !Data.Word.Word64,
                                 StatusResponse -> Word64
_StatusResponse'raftAppliedIndex :: !Data.Word.Word64,
                                 StatusResponse -> Vector Text
_StatusResponse'errors :: !(Data.Vector.Vector Data.Text.Text),
                                 StatusResponse -> Int64
_StatusResponse'dbSizeInUse :: !Data.Int.Int64,
                                 StatusResponse -> Bool
_StatusResponse'isLearner :: !Prelude.Bool,
                                 StatusResponse -> Text
_StatusResponse'storageVersion :: !Data.Text.Text,
                                 StatusResponse -> Int64
_StatusResponse'dbSizeQuota :: !Data.Int.Int64,
                                 StatusResponse -> FieldSet
_StatusResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (StatusResponse -> StatusResponse -> Bool
(StatusResponse -> StatusResponse -> Bool)
-> (StatusResponse -> StatusResponse -> Bool) -> Eq StatusResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: StatusResponse -> StatusResponse -> Bool
== :: StatusResponse -> StatusResponse -> Bool
$c/= :: StatusResponse -> StatusResponse -> Bool
/= :: StatusResponse -> StatusResponse -> Bool
Prelude.Eq, Eq StatusResponse
Eq StatusResponse =>
(StatusResponse -> StatusResponse -> Ordering)
-> (StatusResponse -> StatusResponse -> Bool)
-> (StatusResponse -> StatusResponse -> Bool)
-> (StatusResponse -> StatusResponse -> Bool)
-> (StatusResponse -> StatusResponse -> Bool)
-> (StatusResponse -> StatusResponse -> StatusResponse)
-> (StatusResponse -> StatusResponse -> StatusResponse)
-> Ord StatusResponse
StatusResponse -> StatusResponse -> Bool
StatusResponse -> StatusResponse -> Ordering
StatusResponse -> StatusResponse -> StatusResponse
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 :: StatusResponse -> StatusResponse -> Ordering
compare :: StatusResponse -> StatusResponse -> Ordering
$c< :: StatusResponse -> StatusResponse -> Bool
< :: StatusResponse -> StatusResponse -> Bool
$c<= :: StatusResponse -> StatusResponse -> Bool
<= :: StatusResponse -> StatusResponse -> Bool
$c> :: StatusResponse -> StatusResponse -> Bool
> :: StatusResponse -> StatusResponse -> Bool
$c>= :: StatusResponse -> StatusResponse -> Bool
>= :: StatusResponse -> StatusResponse -> Bool
$cmax :: StatusResponse -> StatusResponse -> StatusResponse
max :: StatusResponse -> StatusResponse -> StatusResponse
$cmin :: StatusResponse -> StatusResponse -> StatusResponse
min :: StatusResponse -> StatusResponse -> StatusResponse
Prelude.Ord)
instance Prelude.Show StatusResponse where
  showsPrec :: Int -> StatusResponse -> ShowS
showsPrec Int
_ StatusResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (StatusResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StatusResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField StatusResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> StatusResponse
-> f StatusResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> StatusResponse -> f StatusResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> StatusResponse
-> f StatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StatusResponse -> Maybe ResponseHeader)
-> (StatusResponse -> Maybe ResponseHeader -> StatusResponse)
-> Lens
     StatusResponse
     StatusResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StatusResponse -> Maybe ResponseHeader
_StatusResponse'header
           (\ StatusResponse
x__ Maybe ResponseHeader
y__ -> StatusResponse
x__ {_StatusResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField StatusResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> StatusResponse
-> f StatusResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> StatusResponse -> f StatusResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> StatusResponse
-> f StatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StatusResponse -> Maybe ResponseHeader)
-> (StatusResponse -> Maybe ResponseHeader -> StatusResponse)
-> Lens
     StatusResponse
     StatusResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StatusResponse -> Maybe ResponseHeader
_StatusResponse'header
           (\ StatusResponse
x__ Maybe ResponseHeader
y__ -> StatusResponse
x__ {_StatusResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StatusResponse "version" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "version"
-> (Text -> f Text) -> StatusResponse -> f StatusResponse
fieldOf Proxy# "version"
_
    = ((Text -> f Text) -> StatusResponse -> f StatusResponse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> StatusResponse
-> f StatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StatusResponse -> Text)
-> (StatusResponse -> Text -> StatusResponse)
-> Lens StatusResponse StatusResponse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StatusResponse -> Text
_StatusResponse'version
           (\ StatusResponse
x__ Text
y__ -> StatusResponse
x__ {_StatusResponse'version = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StatusResponse "dbSize" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "dbSize"
-> (Int64 -> f Int64) -> StatusResponse -> f StatusResponse
fieldOf Proxy# "dbSize"
_
    = ((Int64 -> f Int64) -> StatusResponse -> f StatusResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> StatusResponse
-> f StatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StatusResponse -> Int64)
-> (StatusResponse -> Int64 -> StatusResponse)
-> Lens StatusResponse StatusResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StatusResponse -> Int64
_StatusResponse'dbSize
           (\ StatusResponse
x__ Int64
y__ -> StatusResponse
x__ {_StatusResponse'dbSize = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StatusResponse "leader" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "leader"
-> (Word64 -> f Word64) -> StatusResponse -> f StatusResponse
fieldOf Proxy# "leader"
_
    = ((Word64 -> f Word64) -> StatusResponse -> f StatusResponse)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> StatusResponse
-> f StatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StatusResponse -> Word64)
-> (StatusResponse -> Word64 -> StatusResponse)
-> Lens StatusResponse StatusResponse Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StatusResponse -> Word64
_StatusResponse'leader
           (\ StatusResponse
x__ Word64
y__ -> StatusResponse
x__ {_StatusResponse'leader = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StatusResponse "raftIndex" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "raftIndex"
-> (Word64 -> f Word64) -> StatusResponse -> f StatusResponse
fieldOf Proxy# "raftIndex"
_
    = ((Word64 -> f Word64) -> StatusResponse -> f StatusResponse)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> StatusResponse
-> f StatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StatusResponse -> Word64)
-> (StatusResponse -> Word64 -> StatusResponse)
-> Lens StatusResponse StatusResponse Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StatusResponse -> Word64
_StatusResponse'raftIndex
           (\ StatusResponse
x__ Word64
y__ -> StatusResponse
x__ {_StatusResponse'raftIndex = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StatusResponse "raftTerm" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "raftTerm"
-> (Word64 -> f Word64) -> StatusResponse -> f StatusResponse
fieldOf Proxy# "raftTerm"
_
    = ((Word64 -> f Word64) -> StatusResponse -> f StatusResponse)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> StatusResponse
-> f StatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StatusResponse -> Word64)
-> (StatusResponse -> Word64 -> StatusResponse)
-> Lens StatusResponse StatusResponse Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StatusResponse -> Word64
_StatusResponse'raftTerm
           (\ StatusResponse
x__ Word64
y__ -> StatusResponse
x__ {_StatusResponse'raftTerm = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StatusResponse "raftAppliedIndex" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "raftAppliedIndex"
-> (Word64 -> f Word64) -> StatusResponse -> f StatusResponse
fieldOf Proxy# "raftAppliedIndex"
_
    = ((Word64 -> f Word64) -> StatusResponse -> f StatusResponse)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> StatusResponse
-> f StatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StatusResponse -> Word64)
-> (StatusResponse -> Word64 -> StatusResponse)
-> Lens StatusResponse StatusResponse Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StatusResponse -> Word64
_StatusResponse'raftAppliedIndex
           (\ StatusResponse
x__ Word64
y__ -> StatusResponse
x__ {_StatusResponse'raftAppliedIndex = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StatusResponse "errors" [Data.Text.Text] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "errors"
-> ([Text] -> f [Text]) -> StatusResponse -> f StatusResponse
fieldOf Proxy# "errors"
_
    = ((Vector Text -> f (Vector Text))
 -> StatusResponse -> f StatusResponse)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> StatusResponse
-> f StatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StatusResponse -> Vector Text)
-> (StatusResponse -> Vector Text -> StatusResponse)
-> Lens StatusResponse StatusResponse (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StatusResponse -> Vector Text
_StatusResponse'errors
           (\ StatusResponse
x__ Vector Text
y__ -> StatusResponse
x__ {_StatusResponse'errors = y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Text
_ [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField StatusResponse "vec'errors" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'errors"
-> (Vector Text -> f (Vector Text))
-> StatusResponse
-> f StatusResponse
fieldOf Proxy# "vec'errors"
_
    = ((Vector Text -> f (Vector Text))
 -> StatusResponse -> f StatusResponse)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> StatusResponse
-> f StatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StatusResponse -> Vector Text)
-> (StatusResponse -> Vector Text -> StatusResponse)
-> Lens StatusResponse StatusResponse (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StatusResponse -> Vector Text
_StatusResponse'errors
           (\ StatusResponse
x__ Vector Text
y__ -> StatusResponse
x__ {_StatusResponse'errors = y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StatusResponse "dbSizeInUse" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "dbSizeInUse"
-> (Int64 -> f Int64) -> StatusResponse -> f StatusResponse
fieldOf Proxy# "dbSizeInUse"
_
    = ((Int64 -> f Int64) -> StatusResponse -> f StatusResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> StatusResponse
-> f StatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StatusResponse -> Int64)
-> (StatusResponse -> Int64 -> StatusResponse)
-> Lens StatusResponse StatusResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StatusResponse -> Int64
_StatusResponse'dbSizeInUse
           (\ StatusResponse
x__ Int64
y__ -> StatusResponse
x__ {_StatusResponse'dbSizeInUse = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StatusResponse "isLearner" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "isLearner"
-> (Bool -> f Bool) -> StatusResponse -> f StatusResponse
fieldOf Proxy# "isLearner"
_
    = ((Bool -> f Bool) -> StatusResponse -> f StatusResponse)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> StatusResponse
-> f StatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StatusResponse -> Bool)
-> (StatusResponse -> Bool -> StatusResponse)
-> Lens StatusResponse StatusResponse Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StatusResponse -> Bool
_StatusResponse'isLearner
           (\ StatusResponse
x__ Bool
y__ -> StatusResponse
x__ {_StatusResponse'isLearner = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StatusResponse "storageVersion" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "storageVersion"
-> (Text -> f Text) -> StatusResponse -> f StatusResponse
fieldOf Proxy# "storageVersion"
_
    = ((Text -> f Text) -> StatusResponse -> f StatusResponse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> StatusResponse
-> f StatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StatusResponse -> Text)
-> (StatusResponse -> Text -> StatusResponse)
-> Lens StatusResponse StatusResponse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StatusResponse -> Text
_StatusResponse'storageVersion
           (\ StatusResponse
x__ Text
y__ -> StatusResponse
x__ {_StatusResponse'storageVersion = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField StatusResponse "dbSizeQuota" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "dbSizeQuota"
-> (Int64 -> f Int64) -> StatusResponse -> f StatusResponse
fieldOf Proxy# "dbSizeQuota"
_
    = ((Int64 -> f Int64) -> StatusResponse -> f StatusResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> StatusResponse
-> f StatusResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((StatusResponse -> Int64)
-> (StatusResponse -> Int64 -> StatusResponse)
-> Lens StatusResponse StatusResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           StatusResponse -> Int64
_StatusResponse'dbSizeQuota
           (\ StatusResponse
x__ Int64
y__ -> StatusResponse
x__ {_StatusResponse'dbSizeQuota = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message StatusResponse where
  messageName :: Proxy StatusResponse -> Text
messageName Proxy StatusResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.StatusResponse"
  packedMessageDescriptor :: Proxy StatusResponse -> ByteString
packedMessageDescriptor Proxy StatusResponse
_
    = ByteString
"\n\
      \\SOStatusResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\CAN\n\
      \\aversion\CAN\STX \SOH(\tR\aversion\DC2\SYN\n\
      \\ACKdbSize\CAN\ETX \SOH(\ETXR\ACKdbSize\DC2\SYN\n\
      \\ACKleader\CAN\EOT \SOH(\EOTR\ACKleader\DC2\FS\n\
      \\traftIndex\CAN\ENQ \SOH(\EOTR\traftIndex\DC2\SUB\n\
      \\braftTerm\CAN\ACK \SOH(\EOTR\braftTerm\DC23\n\
      \\DLEraftAppliedIndex\CAN\a \SOH(\EOTR\DLEraftAppliedIndexB\a\138\181\CAN\ETX3.4\DC2\US\n\
      \\ACKerrors\CAN\b \ETX(\tR\ACKerrorsB\a\138\181\CAN\ETX3.4\DC2)\n\
      \\vdbSizeInUse\CAN\t \SOH(\ETXR\vdbSizeInUseB\a\138\181\CAN\ETX3.4\DC2%\n\
      \\tisLearner\CAN\n\
      \ \SOH(\bR\tisLearnerB\a\138\181\CAN\ETX3.4\DC2/\n\
      \\SOstorageVersion\CAN\v \SOH(\tR\SOstorageVersionB\a\138\181\CAN\ETX3.6\DC2)\n\
      \\vdbSizeQuota\CAN\f \SOH(\ETXR\vdbSizeQuotaB\a\138\181\CAN\ETX3.6:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy StatusResponse -> ByteString
packedFileDescriptor Proxy StatusResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor StatusResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor StatusResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor StatusResponse ResponseHeader
-> FieldDescriptor StatusResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  StatusResponse
  StatusResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor StatusResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor StatusResponse
        version__field_descriptor :: FieldDescriptor StatusResponse
version__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor StatusResponse Text
-> FieldDescriptor StatusResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"version"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens StatusResponse StatusResponse Text Text
-> FieldAccessor StatusResponse Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 StatusResponse
        dbSize__field_descriptor :: FieldDescriptor StatusResponse
dbSize__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor StatusResponse Int64
-> FieldDescriptor StatusResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"dbSize"
              (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 StatusResponse StatusResponse Int64 Int64
-> FieldAccessor StatusResponse 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 @"dbSize")) ::
              Data.ProtoLens.FieldDescriptor StatusResponse
        leader__field_descriptor :: FieldDescriptor StatusResponse
leader__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor StatusResponse Word64
-> FieldDescriptor StatusResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"leader"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens StatusResponse StatusResponse Word64 Word64
-> FieldAccessor StatusResponse Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"leader")) ::
              Data.ProtoLens.FieldDescriptor StatusResponse
        raftIndex__field_descriptor :: FieldDescriptor StatusResponse
raftIndex__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor StatusResponse Word64
-> FieldDescriptor StatusResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"raftIndex"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens StatusResponse StatusResponse Word64 Word64
-> FieldAccessor StatusResponse Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"raftIndex")) ::
              Data.ProtoLens.FieldDescriptor StatusResponse
        raftTerm__field_descriptor :: FieldDescriptor StatusResponse
raftTerm__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor StatusResponse Word64
-> FieldDescriptor StatusResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"raftTerm"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens StatusResponse StatusResponse Word64 Word64
-> FieldAccessor StatusResponse Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"raftTerm")) ::
              Data.ProtoLens.FieldDescriptor StatusResponse
        raftAppliedIndex__field_descriptor :: FieldDescriptor StatusResponse
raftAppliedIndex__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor StatusResponse Word64
-> FieldDescriptor StatusResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"raftAppliedIndex"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens StatusResponse StatusResponse Word64 Word64
-> FieldAccessor StatusResponse Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
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 @"raftAppliedIndex")) ::
              Data.ProtoLens.FieldDescriptor StatusResponse
        errors__field_descriptor :: FieldDescriptor StatusResponse
errors__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor StatusResponse Text
-> FieldDescriptor StatusResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"errors"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing
-> Lens' StatusResponse [Text] -> FieldAccessor StatusResponse Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"errors")) ::
              Data.ProtoLens.FieldDescriptor StatusResponse
        dbSizeInUse__field_descriptor :: FieldDescriptor StatusResponse
dbSizeInUse__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor StatusResponse Int64
-> FieldDescriptor StatusResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"dbSizeInUse"
              (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 StatusResponse StatusResponse Int64 Int64
-> FieldAccessor StatusResponse 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 @"dbSizeInUse")) ::
              Data.ProtoLens.FieldDescriptor StatusResponse
        isLearner__field_descriptor :: FieldDescriptor StatusResponse
isLearner__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor StatusResponse Bool
-> FieldDescriptor StatusResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"isLearner"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens StatusResponse StatusResponse Bool Bool
-> FieldAccessor StatusResponse Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"isLearner")) ::
              Data.ProtoLens.FieldDescriptor StatusResponse
        storageVersion__field_descriptor :: FieldDescriptor StatusResponse
storageVersion__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor StatusResponse Text
-> FieldDescriptor StatusResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"storageVersion"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens StatusResponse StatusResponse Text Text
-> FieldAccessor StatusResponse Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"storageVersion")) ::
              Data.ProtoLens.FieldDescriptor StatusResponse
        dbSizeQuota__field_descriptor :: FieldDescriptor StatusResponse
dbSizeQuota__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor StatusResponse Int64
-> FieldDescriptor StatusResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"dbSizeQuota"
              (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 StatusResponse StatusResponse Int64 Int64
-> FieldAccessor StatusResponse 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 @"dbSizeQuota")) ::
              Data.ProtoLens.FieldDescriptor StatusResponse
      in
        [(Tag, FieldDescriptor StatusResponse)]
-> Map Tag (FieldDescriptor StatusResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor StatusResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor StatusResponse
version__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor StatusResponse
dbSize__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor StatusResponse
leader__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor StatusResponse
raftIndex__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor StatusResponse
raftTerm__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor StatusResponse
raftAppliedIndex__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor StatusResponse
errors__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor StatusResponse
dbSizeInUse__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
10, FieldDescriptor StatusResponse
isLearner__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor StatusResponse
storageVersion__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
12, FieldDescriptor StatusResponse
dbSizeQuota__field_descriptor)]
  unknownFields :: Lens' StatusResponse FieldSet
unknownFields
    = (StatusResponse -> FieldSet)
-> (StatusResponse -> FieldSet -> StatusResponse)
-> Lens' StatusResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        StatusResponse -> FieldSet
_StatusResponse'_unknownFields
        (\ StatusResponse
x__ FieldSet
y__ -> StatusResponse
x__ {_StatusResponse'_unknownFields = y__})
  defMessage :: StatusResponse
defMessage
    = StatusResponse'_constructor
        {_StatusResponse'header :: Maybe ResponseHeader
_StatusResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _StatusResponse'version :: Text
_StatusResponse'version = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StatusResponse'dbSize :: Int64
_StatusResponse'dbSize = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StatusResponse'leader :: Word64
_StatusResponse'leader = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StatusResponse'raftIndex :: Word64
_StatusResponse'raftIndex = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StatusResponse'raftTerm :: Word64
_StatusResponse'raftTerm = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StatusResponse'raftAppliedIndex :: Word64
_StatusResponse'raftAppliedIndex = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StatusResponse'errors :: Vector Text
_StatusResponse'errors = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _StatusResponse'dbSizeInUse :: Int64
_StatusResponse'dbSizeInUse = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StatusResponse'isLearner :: Bool
_StatusResponse'isLearner = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StatusResponse'storageVersion :: Text
_StatusResponse'storageVersion = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StatusResponse'dbSizeQuota :: Int64
_StatusResponse'dbSizeQuota = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _StatusResponse'_unknownFields :: FieldSet
_StatusResponse'_unknownFields = []}
  parseMessage :: Parser StatusResponse
parseMessage
    = let
        loop ::
          StatusResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
             -> Data.ProtoLens.Encoding.Bytes.Parser StatusResponse
        loop :: StatusResponse
-> Growing Vector RealWorld Text -> Parser StatusResponse
loop StatusResponse
x Growing Vector RealWorld Text
mutable'errors
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'errors <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            mutable'errors)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'errors") frozen'errors x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'errors
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"version"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"version") y x)
                                  mutable'errors
                        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
"dbSize"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"dbSize") y x)
                                  mutable'errors
                        Word64
32
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"leader"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"leader") y x)
                                  mutable'errors
                        Word64
40
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"raftIndex"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"raftIndex") y x)
                                  mutable'errors
                        Word64
48
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"raftTerm"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"raftTerm") y x)
                                  mutable'errors
                        Word64
56
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"raftAppliedIndex"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"raftAppliedIndex") y x)
                                  mutable'errors
                        Word64
66
                          -> do !y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.getText
                                              (Prelude.fromIntegral len))
                                        String
"errors"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'errors y)
                                loop x v
                        Word64
72
                          -> 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
"dbSizeInUse"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"dbSizeInUse") y x)
                                  mutable'errors
                        Word64
80
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"isLearner"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"isLearner") y x)
                                  mutable'errors
                        Word64
90
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"storageVersion"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"storageVersion") y x)
                                  mutable'errors
                        Word64
96
                          -> 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
"dbSizeQuota"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"dbSizeQuota") y x)
                                  mutable'errors
                        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)
                                  mutable'errors
      in
        Parser StatusResponse -> String -> Parser StatusResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'errors <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld Text)
IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'errors)
          String
"StatusResponse"
  buildMessage :: StatusResponse -> Builder
buildMessage
    = \ StatusResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  StatusResponse
  StatusResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> StatusResponse -> Maybe ResponseHeader
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'header") StatusResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike Text StatusResponse StatusResponse Text Text
-> StatusResponse -> Text
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") StatusResponse
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Int64
_v = FoldLike Int64 StatusResponse StatusResponse Int64 Int64
-> StatusResponse -> 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 @"dbSize") StatusResponse
_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 :: Word64
_v = FoldLike Word64 StatusResponse StatusResponse Word64 Word64
-> StatusResponse -> Word64
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 @"leader") StatusResponse
_x
                       in
                         if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (let
                            _v :: Word64
_v = FoldLike Word64 StatusResponse StatusResponse Word64 Word64
-> StatusResponse -> Word64
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 @"raftIndex") StatusResponse
_x
                          in
                            if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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
40)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (let
                               _v :: Word64
_v = FoldLike Word64 StatusResponse StatusResponse Word64 Word64
-> StatusResponse -> Word64
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 @"raftTerm") StatusResponse
_x
                             in
                               if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (let
                                  _v :: Word64
_v
                                    = FoldLike Word64 StatusResponse StatusResponse Word64 Word64
-> StatusResponse -> Word64
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 @"raftAppliedIndex") StatusResponse
_x
                                in
                                  if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
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
56)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                     (\ Text
_v
                                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
                                             ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                                                Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                                     (FoldLike
  (Vector Text)
  StatusResponse
  StatusResponse
  (Vector Text)
  (Vector Text)
-> StatusResponse -> Vector Text
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 @"vec'errors") StatusResponse
_x))
                                  (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (let
                                        _v :: Int64
_v
                                          = FoldLike Int64 StatusResponse StatusResponse Int64 Int64
-> StatusResponse -> 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 @"dbSizeInUse") StatusResponse
_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
72)
                                              ((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 :: Bool
_v
                                             = FoldLike Bool StatusResponse StatusResponse Bool Bool
-> StatusResponse -> Bool
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 @"isLearner") StatusResponse
_x
                                         in
                                           if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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
80)
                                                 ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                    Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                    (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                                        (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (let
                                              _v :: Text
_v
                                                = FoldLike Text StatusResponse StatusResponse Text Text
-> StatusResponse -> Text
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 @"storageVersion")
                                                    StatusResponse
_x
                                            in
                                              if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
90)
                                                    ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                                                       Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                                           (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                              (let
                                                 _v :: Int64
_v
                                                   = FoldLike Int64 StatusResponse StatusResponse Int64 Int64
-> StatusResponse -> 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 @"dbSizeQuota")
                                                       StatusResponse
_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
96)
                                                       ((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 StatusResponse StatusResponse FieldSet FieldSet
-> StatusResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                    FoldLike FieldSet StatusResponse StatusResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' StatusResponse FieldSet
Data.ProtoLens.unknownFields StatusResponse
_x)))))))))))))
instance Control.DeepSeq.NFData StatusResponse where
  rnf :: StatusResponse -> ()
rnf
    = \ StatusResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (StatusResponse -> FieldSet
_StatusResponse'_unknownFields StatusResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (StatusResponse -> Maybe ResponseHeader
_StatusResponse'header StatusResponse
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (StatusResponse -> Text
_StatusResponse'version StatusResponse
x__)
                   (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (StatusResponse -> Int64
_StatusResponse'dbSize StatusResponse
x__)
                      (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (StatusResponse -> Word64
_StatusResponse'leader StatusResponse
x__)
                         (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (StatusResponse -> Word64
_StatusResponse'raftIndex StatusResponse
x__)
                            (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (StatusResponse -> Word64
_StatusResponse'raftTerm StatusResponse
x__)
                               (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (StatusResponse -> Word64
_StatusResponse'raftAppliedIndex StatusResponse
x__)
                                  (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (StatusResponse -> Vector Text
_StatusResponse'errors StatusResponse
x__)
                                     (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                        (StatusResponse -> Int64
_StatusResponse'dbSizeInUse StatusResponse
x__)
                                        (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                           (StatusResponse -> Bool
_StatusResponse'isLearner StatusResponse
x__)
                                           (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                              (StatusResponse -> Text
_StatusResponse'storageVersion StatusResponse
x__)
                                              (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                 (StatusResponse -> Int64
_StatusResponse'dbSizeQuota StatusResponse
x__) ()))))))))))))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.compare' @:: Lens' TxnRequest [Compare]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'compare' @:: Lens' TxnRequest (Data.Vector.Vector Compare)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.success' @:: Lens' TxnRequest [RequestOp]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'success' @:: Lens' TxnRequest (Data.Vector.Vector RequestOp)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.failure' @:: Lens' TxnRequest [RequestOp]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'failure' @:: Lens' TxnRequest (Data.Vector.Vector RequestOp)@ -}
data TxnRequest
  = TxnRequest'_constructor {TxnRequest -> Vector Compare
_TxnRequest'compare :: !(Data.Vector.Vector Compare),
                             TxnRequest -> Vector RequestOp
_TxnRequest'success :: !(Data.Vector.Vector RequestOp),
                             TxnRequest -> Vector RequestOp
_TxnRequest'failure :: !(Data.Vector.Vector RequestOp),
                             TxnRequest -> FieldSet
_TxnRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TxnRequest -> TxnRequest -> Bool
(TxnRequest -> TxnRequest -> Bool)
-> (TxnRequest -> TxnRequest -> Bool) -> Eq TxnRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TxnRequest -> TxnRequest -> Bool
== :: TxnRequest -> TxnRequest -> Bool
$c/= :: TxnRequest -> TxnRequest -> Bool
/= :: TxnRequest -> TxnRequest -> Bool
Prelude.Eq, Eq TxnRequest
Eq TxnRequest =>
(TxnRequest -> TxnRequest -> Ordering)
-> (TxnRequest -> TxnRequest -> Bool)
-> (TxnRequest -> TxnRequest -> Bool)
-> (TxnRequest -> TxnRequest -> Bool)
-> (TxnRequest -> TxnRequest -> Bool)
-> (TxnRequest -> TxnRequest -> TxnRequest)
-> (TxnRequest -> TxnRequest -> TxnRequest)
-> Ord TxnRequest
TxnRequest -> TxnRequest -> Bool
TxnRequest -> TxnRequest -> Ordering
TxnRequest -> TxnRequest -> TxnRequest
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 :: TxnRequest -> TxnRequest -> Ordering
compare :: TxnRequest -> TxnRequest -> Ordering
$c< :: TxnRequest -> TxnRequest -> Bool
< :: TxnRequest -> TxnRequest -> Bool
$c<= :: TxnRequest -> TxnRequest -> Bool
<= :: TxnRequest -> TxnRequest -> Bool
$c> :: TxnRequest -> TxnRequest -> Bool
> :: TxnRequest -> TxnRequest -> Bool
$c>= :: TxnRequest -> TxnRequest -> Bool
>= :: TxnRequest -> TxnRequest -> Bool
$cmax :: TxnRequest -> TxnRequest -> TxnRequest
max :: TxnRequest -> TxnRequest -> TxnRequest
$cmin :: TxnRequest -> TxnRequest -> TxnRequest
min :: TxnRequest -> TxnRequest -> TxnRequest
Prelude.Ord)
instance Prelude.Show TxnRequest where
  showsPrec :: Int -> TxnRequest -> ShowS
showsPrec Int
_ TxnRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (TxnRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TxnRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TxnRequest "compare" [Compare] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "compare"
-> ([Compare] -> f [Compare]) -> TxnRequest -> f TxnRequest
fieldOf Proxy# "compare"
_
    = ((Vector Compare -> f (Vector Compare))
 -> TxnRequest -> f TxnRequest)
-> (([Compare] -> f [Compare])
    -> Vector Compare -> f (Vector Compare))
-> ([Compare] -> f [Compare])
-> TxnRequest
-> f TxnRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxnRequest -> Vector Compare)
-> (TxnRequest -> Vector Compare -> TxnRequest)
-> Lens TxnRequest TxnRequest (Vector Compare) (Vector Compare)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxnRequest -> Vector Compare
_TxnRequest'compare (\ TxnRequest
x__ Vector Compare
y__ -> TxnRequest
x__ {_TxnRequest'compare = y__}))
        ((Vector Compare -> [Compare])
-> (Vector Compare -> [Compare] -> Vector Compare)
-> Lens (Vector Compare) (Vector Compare) [Compare] [Compare]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Compare -> [Compare]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Compare
_ [Compare]
y__ -> [Compare] -> Vector Compare
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Compare]
y__))
instance Data.ProtoLens.Field.HasField TxnRequest "vec'compare" (Data.Vector.Vector Compare) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'compare"
-> (Vector Compare -> f (Vector Compare))
-> TxnRequest
-> f TxnRequest
fieldOf Proxy# "vec'compare"
_
    = ((Vector Compare -> f (Vector Compare))
 -> TxnRequest -> f TxnRequest)
-> ((Vector Compare -> f (Vector Compare))
    -> Vector Compare -> f (Vector Compare))
-> (Vector Compare -> f (Vector Compare))
-> TxnRequest
-> f TxnRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxnRequest -> Vector Compare)
-> (TxnRequest -> Vector Compare -> TxnRequest)
-> Lens TxnRequest TxnRequest (Vector Compare) (Vector Compare)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxnRequest -> Vector Compare
_TxnRequest'compare (\ TxnRequest
x__ Vector Compare
y__ -> TxnRequest
x__ {_TxnRequest'compare = y__}))
        (Vector Compare -> f (Vector Compare))
-> Vector Compare -> f (Vector Compare)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxnRequest "success" [RequestOp] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "success"
-> ([RequestOp] -> f [RequestOp]) -> TxnRequest -> f TxnRequest
fieldOf Proxy# "success"
_
    = ((Vector RequestOp -> f (Vector RequestOp))
 -> TxnRequest -> f TxnRequest)
-> (([RequestOp] -> f [RequestOp])
    -> Vector RequestOp -> f (Vector RequestOp))
-> ([RequestOp] -> f [RequestOp])
-> TxnRequest
-> f TxnRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxnRequest -> Vector RequestOp)
-> (TxnRequest -> Vector RequestOp -> TxnRequest)
-> Lens TxnRequest TxnRequest (Vector RequestOp) (Vector RequestOp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxnRequest -> Vector RequestOp
_TxnRequest'success (\ TxnRequest
x__ Vector RequestOp
y__ -> TxnRequest
x__ {_TxnRequest'success = y__}))
        ((Vector RequestOp -> [RequestOp])
-> (Vector RequestOp -> [RequestOp] -> Vector RequestOp)
-> Lens
     (Vector RequestOp) (Vector RequestOp) [RequestOp] [RequestOp]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector RequestOp -> [RequestOp]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector RequestOp
_ [RequestOp]
y__ -> [RequestOp] -> Vector RequestOp
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [RequestOp]
y__))
instance Data.ProtoLens.Field.HasField TxnRequest "vec'success" (Data.Vector.Vector RequestOp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'success"
-> (Vector RequestOp -> f (Vector RequestOp))
-> TxnRequest
-> f TxnRequest
fieldOf Proxy# "vec'success"
_
    = ((Vector RequestOp -> f (Vector RequestOp))
 -> TxnRequest -> f TxnRequest)
-> ((Vector RequestOp -> f (Vector RequestOp))
    -> Vector RequestOp -> f (Vector RequestOp))
-> (Vector RequestOp -> f (Vector RequestOp))
-> TxnRequest
-> f TxnRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxnRequest -> Vector RequestOp)
-> (TxnRequest -> Vector RequestOp -> TxnRequest)
-> Lens TxnRequest TxnRequest (Vector RequestOp) (Vector RequestOp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxnRequest -> Vector RequestOp
_TxnRequest'success (\ TxnRequest
x__ Vector RequestOp
y__ -> TxnRequest
x__ {_TxnRequest'success = y__}))
        (Vector RequestOp -> f (Vector RequestOp))
-> Vector RequestOp -> f (Vector RequestOp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxnRequest "failure" [RequestOp] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "failure"
-> ([RequestOp] -> f [RequestOp]) -> TxnRequest -> f TxnRequest
fieldOf Proxy# "failure"
_
    = ((Vector RequestOp -> f (Vector RequestOp))
 -> TxnRequest -> f TxnRequest)
-> (([RequestOp] -> f [RequestOp])
    -> Vector RequestOp -> f (Vector RequestOp))
-> ([RequestOp] -> f [RequestOp])
-> TxnRequest
-> f TxnRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxnRequest -> Vector RequestOp)
-> (TxnRequest -> Vector RequestOp -> TxnRequest)
-> Lens TxnRequest TxnRequest (Vector RequestOp) (Vector RequestOp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxnRequest -> Vector RequestOp
_TxnRequest'failure (\ TxnRequest
x__ Vector RequestOp
y__ -> TxnRequest
x__ {_TxnRequest'failure = y__}))
        ((Vector RequestOp -> [RequestOp])
-> (Vector RequestOp -> [RequestOp] -> Vector RequestOp)
-> Lens
     (Vector RequestOp) (Vector RequestOp) [RequestOp] [RequestOp]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector RequestOp -> [RequestOp]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector RequestOp
_ [RequestOp]
y__ -> [RequestOp] -> Vector RequestOp
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [RequestOp]
y__))
instance Data.ProtoLens.Field.HasField TxnRequest "vec'failure" (Data.Vector.Vector RequestOp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'failure"
-> (Vector RequestOp -> f (Vector RequestOp))
-> TxnRequest
-> f TxnRequest
fieldOf Proxy# "vec'failure"
_
    = ((Vector RequestOp -> f (Vector RequestOp))
 -> TxnRequest -> f TxnRequest)
-> ((Vector RequestOp -> f (Vector RequestOp))
    -> Vector RequestOp -> f (Vector RequestOp))
-> (Vector RequestOp -> f (Vector RequestOp))
-> TxnRequest
-> f TxnRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxnRequest -> Vector RequestOp)
-> (TxnRequest -> Vector RequestOp -> TxnRequest)
-> Lens TxnRequest TxnRequest (Vector RequestOp) (Vector RequestOp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxnRequest -> Vector RequestOp
_TxnRequest'failure (\ TxnRequest
x__ Vector RequestOp
y__ -> TxnRequest
x__ {_TxnRequest'failure = y__}))
        (Vector RequestOp -> f (Vector RequestOp))
-> Vector RequestOp -> f (Vector RequestOp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TxnRequest where
  messageName :: Proxy TxnRequest -> Text
messageName Proxy TxnRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.TxnRequest"
  packedMessageDescriptor :: Proxy TxnRequest -> ByteString
packedMessageDescriptor Proxy TxnRequest
_
    = ByteString
"\n\
      \\n\
      \TxnRequest\DC2/\n\
      \\acompare\CAN\SOH \ETX(\v2\NAK.etcdserverpb.CompareR\acompare\DC21\n\
      \\asuccess\CAN\STX \ETX(\v2\ETB.etcdserverpb.RequestOpR\asuccess\DC21\n\
      \\afailure\CAN\ETX \ETX(\v2\ETB.etcdserverpb.RequestOpR\afailure:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy TxnRequest -> ByteString
packedFileDescriptor Proxy TxnRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TxnRequest)
fieldsByTag
    = let
        compare__field_descriptor :: FieldDescriptor TxnRequest
compare__field_descriptor
          = String
-> FieldTypeDescriptor Compare
-> FieldAccessor TxnRequest Compare
-> FieldDescriptor TxnRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"compare"
              (MessageOrGroup -> FieldTypeDescriptor Compare
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Compare)
              (Packing
-> Lens' TxnRequest [Compare] -> FieldAccessor TxnRequest Compare
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"compare")) ::
              Data.ProtoLens.FieldDescriptor TxnRequest
        success__field_descriptor :: FieldDescriptor TxnRequest
success__field_descriptor
          = String
-> FieldTypeDescriptor RequestOp
-> FieldAccessor TxnRequest RequestOp
-> FieldDescriptor TxnRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"success"
              (MessageOrGroup -> FieldTypeDescriptor RequestOp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RequestOp)
              (Packing
-> Lens' TxnRequest [RequestOp]
-> FieldAccessor TxnRequest RequestOp
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"success")) ::
              Data.ProtoLens.FieldDescriptor TxnRequest
        failure__field_descriptor :: FieldDescriptor TxnRequest
failure__field_descriptor
          = String
-> FieldTypeDescriptor RequestOp
-> FieldAccessor TxnRequest RequestOp
-> FieldDescriptor TxnRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"failure"
              (MessageOrGroup -> FieldTypeDescriptor RequestOp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RequestOp)
              (Packing
-> Lens' TxnRequest [RequestOp]
-> FieldAccessor TxnRequest RequestOp
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"failure")) ::
              Data.ProtoLens.FieldDescriptor TxnRequest
      in
        [(Tag, FieldDescriptor TxnRequest)]
-> Map Tag (FieldDescriptor TxnRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TxnRequest
compare__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TxnRequest
success__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor TxnRequest
failure__field_descriptor)]
  unknownFields :: Lens' TxnRequest FieldSet
unknownFields
    = (TxnRequest -> FieldSet)
-> (TxnRequest -> FieldSet -> TxnRequest)
-> Lens' TxnRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TxnRequest -> FieldSet
_TxnRequest'_unknownFields
        (\ TxnRequest
x__ FieldSet
y__ -> TxnRequest
x__ {_TxnRequest'_unknownFields = y__})
  defMessage :: TxnRequest
defMessage
    = TxnRequest'_constructor
        {_TxnRequest'compare :: Vector Compare
_TxnRequest'compare = Vector Compare
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _TxnRequest'success :: Vector RequestOp
_TxnRequest'success = Vector RequestOp
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _TxnRequest'failure :: Vector RequestOp
_TxnRequest'failure = Vector RequestOp
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _TxnRequest'_unknownFields :: FieldSet
_TxnRequest'_unknownFields = []}
  parseMessage :: Parser TxnRequest
parseMessage
    = let
        loop ::
          TxnRequest
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Compare
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RequestOp
                -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld RequestOp
                   -> Data.ProtoLens.Encoding.Bytes.Parser TxnRequest
        loop :: TxnRequest
-> Growing Vector RealWorld Compare
-> Growing Vector RealWorld RequestOp
-> Growing Vector RealWorld RequestOp
-> Parser TxnRequest
loop TxnRequest
x Growing Vector RealWorld Compare
mutable'compare Growing Vector RealWorld RequestOp
mutable'failure Growing Vector RealWorld RequestOp
mutable'success
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'compare <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'compare)
                      frozen'failure <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'failure)
                      frozen'success <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'success)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'compare") frozen'compare
                              (Lens.Family2.set
                                 (Data.ProtoLens.Field.field @"vec'failure") frozen'failure
                                 (Lens.Family2.set
                                    (Data.ProtoLens.Field.field @"vec'success") frozen'success x))))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser Compare -> String -> Parser Compare
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
"compare"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'compare y)
                                loop x v mutable'failure mutable'success
                        Word64
18
                          -> do !y <- Parser RequestOp -> String -> Parser RequestOp
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
"success"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'success y)
                                loop x mutable'compare mutable'failure v
                        Word64
26
                          -> do !y <- Parser RequestOp -> String -> Parser RequestOp
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
"failure"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'failure y)
                                loop x mutable'compare v mutable'success
                        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)
                                  mutable'compare mutable'failure mutable'success
      in
        Parser TxnRequest -> String -> Parser TxnRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'compare <- IO (Growing Vector RealWorld Compare)
-> Parser (Growing Vector RealWorld Compare)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld Compare)
IO (Growing Vector (PrimState IO) Compare)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              mutable'failure <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   Data.ProtoLens.Encoding.Growing.new
              mutable'success <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   Data.ProtoLens.Encoding.Growing.new
              loop
                Data.ProtoLens.defMessage mutable'compare mutable'failure
                mutable'success)
          String
"TxnRequest"
  buildMessage :: TxnRequest -> Builder
buildMessage
    = \ TxnRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((Compare -> Builder) -> Vector Compare -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ Compare
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (Compare -> ByteString) -> Compare -> 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))
                           Compare -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Compare
_v))
                (FoldLike
  (Vector Compare)
  TxnRequest
  TxnRequest
  (Vector Compare)
  (Vector Compare)
-> TxnRequest -> Vector Compare
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 @"vec'compare") TxnRequest
_x))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((RequestOp -> Builder) -> Vector RequestOp -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ RequestOp
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                           ((ByteString -> Builder)
-> (RequestOp -> ByteString) -> RequestOp -> 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))
                              RequestOp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RequestOp
_v))
                   (FoldLike
  (Vector RequestOp)
  TxnRequest
  TxnRequest
  (Vector RequestOp)
  (Vector RequestOp)
-> TxnRequest -> Vector RequestOp
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 @"vec'success") TxnRequest
_x))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((RequestOp -> Builder) -> Vector RequestOp -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ RequestOp
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                              ((ByteString -> Builder)
-> (RequestOp -> ByteString) -> RequestOp -> 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))
                                 RequestOp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage RequestOp
_v))
                      (FoldLike
  (Vector RequestOp)
  TxnRequest
  TxnRequest
  (Vector RequestOp)
  (Vector RequestOp)
-> TxnRequest -> Vector RequestOp
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 @"vec'failure") TxnRequest
_x))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet TxnRequest TxnRequest FieldSet FieldSet
-> TxnRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TxnRequest TxnRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxnRequest FieldSet
Data.ProtoLens.unknownFields TxnRequest
_x))))
instance Control.DeepSeq.NFData TxnRequest where
  rnf :: TxnRequest -> ()
rnf
    = \ TxnRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TxnRequest -> FieldSet
_TxnRequest'_unknownFields TxnRequest
x__)
             (Vector Compare -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (TxnRequest -> Vector Compare
_TxnRequest'compare TxnRequest
x__)
                (Vector RequestOp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (TxnRequest -> Vector RequestOp
_TxnRequest'success TxnRequest
x__)
                   (Vector RequestOp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TxnRequest -> Vector RequestOp
_TxnRequest'failure TxnRequest
x__) ())))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' TxnResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' TxnResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.succeeded' @:: Lens' TxnResponse Prelude.Bool@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.responses' @:: Lens' TxnResponse [ResponseOp]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'responses' @:: Lens' TxnResponse (Data.Vector.Vector ResponseOp)@ -}
data TxnResponse
  = TxnResponse'_constructor {TxnResponse -> Maybe ResponseHeader
_TxnResponse'header :: !(Prelude.Maybe ResponseHeader),
                              TxnResponse -> Bool
_TxnResponse'succeeded :: !Prelude.Bool,
                              TxnResponse -> Vector ResponseOp
_TxnResponse'responses :: !(Data.Vector.Vector ResponseOp),
                              TxnResponse -> FieldSet
_TxnResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TxnResponse -> TxnResponse -> Bool
(TxnResponse -> TxnResponse -> Bool)
-> (TxnResponse -> TxnResponse -> Bool) -> Eq TxnResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TxnResponse -> TxnResponse -> Bool
== :: TxnResponse -> TxnResponse -> Bool
$c/= :: TxnResponse -> TxnResponse -> Bool
/= :: TxnResponse -> TxnResponse -> Bool
Prelude.Eq, Eq TxnResponse
Eq TxnResponse =>
(TxnResponse -> TxnResponse -> Ordering)
-> (TxnResponse -> TxnResponse -> Bool)
-> (TxnResponse -> TxnResponse -> Bool)
-> (TxnResponse -> TxnResponse -> Bool)
-> (TxnResponse -> TxnResponse -> Bool)
-> (TxnResponse -> TxnResponse -> TxnResponse)
-> (TxnResponse -> TxnResponse -> TxnResponse)
-> Ord TxnResponse
TxnResponse -> TxnResponse -> Bool
TxnResponse -> TxnResponse -> Ordering
TxnResponse -> TxnResponse -> TxnResponse
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 :: TxnResponse -> TxnResponse -> Ordering
compare :: TxnResponse -> TxnResponse -> Ordering
$c< :: TxnResponse -> TxnResponse -> Bool
< :: TxnResponse -> TxnResponse -> Bool
$c<= :: TxnResponse -> TxnResponse -> Bool
<= :: TxnResponse -> TxnResponse -> Bool
$c> :: TxnResponse -> TxnResponse -> Bool
> :: TxnResponse -> TxnResponse -> Bool
$c>= :: TxnResponse -> TxnResponse -> Bool
>= :: TxnResponse -> TxnResponse -> Bool
$cmax :: TxnResponse -> TxnResponse -> TxnResponse
max :: TxnResponse -> TxnResponse -> TxnResponse
$cmin :: TxnResponse -> TxnResponse -> TxnResponse
min :: TxnResponse -> TxnResponse -> TxnResponse
Prelude.Ord)
instance Prelude.Show TxnResponse where
  showsPrec :: Int -> TxnResponse -> ShowS
showsPrec Int
_ TxnResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (TxnResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TxnResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField TxnResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> TxnResponse
-> f TxnResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> TxnResponse -> f TxnResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> TxnResponse
-> f TxnResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxnResponse -> Maybe ResponseHeader)
-> (TxnResponse -> Maybe ResponseHeader -> TxnResponse)
-> Lens
     TxnResponse
     TxnResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxnResponse -> Maybe ResponseHeader
_TxnResponse'header (\ TxnResponse
x__ Maybe ResponseHeader
y__ -> TxnResponse
x__ {_TxnResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TxnResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> TxnResponse
-> f TxnResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> TxnResponse -> f TxnResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> TxnResponse
-> f TxnResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxnResponse -> Maybe ResponseHeader)
-> (TxnResponse -> Maybe ResponseHeader -> TxnResponse)
-> Lens
     TxnResponse
     TxnResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxnResponse -> Maybe ResponseHeader
_TxnResponse'header (\ TxnResponse
x__ Maybe ResponseHeader
y__ -> TxnResponse
x__ {_TxnResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxnResponse "succeeded" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "succeeded"
-> (Bool -> f Bool) -> TxnResponse -> f TxnResponse
fieldOf Proxy# "succeeded"
_
    = ((Bool -> f Bool) -> TxnResponse -> f TxnResponse)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> TxnResponse
-> f TxnResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxnResponse -> Bool)
-> (TxnResponse -> Bool -> TxnResponse)
-> Lens TxnResponse TxnResponse Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxnResponse -> Bool
_TxnResponse'succeeded
           (\ TxnResponse
x__ Bool
y__ -> TxnResponse
x__ {_TxnResponse'succeeded = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TxnResponse "responses" [ResponseOp] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "responses"
-> ([ResponseOp] -> f [ResponseOp]) -> TxnResponse -> f TxnResponse
fieldOf Proxy# "responses"
_
    = ((Vector ResponseOp -> f (Vector ResponseOp))
 -> TxnResponse -> f TxnResponse)
-> (([ResponseOp] -> f [ResponseOp])
    -> Vector ResponseOp -> f (Vector ResponseOp))
-> ([ResponseOp] -> f [ResponseOp])
-> TxnResponse
-> f TxnResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxnResponse -> Vector ResponseOp)
-> (TxnResponse -> Vector ResponseOp -> TxnResponse)
-> Lens
     TxnResponse TxnResponse (Vector ResponseOp) (Vector ResponseOp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxnResponse -> Vector ResponseOp
_TxnResponse'responses
           (\ TxnResponse
x__ Vector ResponseOp
y__ -> TxnResponse
x__ {_TxnResponse'responses = y__}))
        ((Vector ResponseOp -> [ResponseOp])
-> (Vector ResponseOp -> [ResponseOp] -> Vector ResponseOp)
-> Lens
     (Vector ResponseOp) (Vector ResponseOp) [ResponseOp] [ResponseOp]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector ResponseOp -> [ResponseOp]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector ResponseOp
_ [ResponseOp]
y__ -> [ResponseOp] -> Vector ResponseOp
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ResponseOp]
y__))
instance Data.ProtoLens.Field.HasField TxnResponse "vec'responses" (Data.Vector.Vector ResponseOp) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'responses"
-> (Vector ResponseOp -> f (Vector ResponseOp))
-> TxnResponse
-> f TxnResponse
fieldOf Proxy# "vec'responses"
_
    = ((Vector ResponseOp -> f (Vector ResponseOp))
 -> TxnResponse -> f TxnResponse)
-> ((Vector ResponseOp -> f (Vector ResponseOp))
    -> Vector ResponseOp -> f (Vector ResponseOp))
-> (Vector ResponseOp -> f (Vector ResponseOp))
-> TxnResponse
-> f TxnResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TxnResponse -> Vector ResponseOp)
-> (TxnResponse -> Vector ResponseOp -> TxnResponse)
-> Lens
     TxnResponse TxnResponse (Vector ResponseOp) (Vector ResponseOp)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TxnResponse -> Vector ResponseOp
_TxnResponse'responses
           (\ TxnResponse
x__ Vector ResponseOp
y__ -> TxnResponse
x__ {_TxnResponse'responses = y__}))
        (Vector ResponseOp -> f (Vector ResponseOp))
-> Vector ResponseOp -> f (Vector ResponseOp)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TxnResponse where
  messageName :: Proxy TxnResponse -> Text
messageName Proxy TxnResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.TxnResponse"
  packedMessageDescriptor :: Proxy TxnResponse -> ByteString
packedMessageDescriptor Proxy TxnResponse
_
    = ByteString
"\n\
      \\vTxnResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\FS\n\
      \\tsucceeded\CAN\STX \SOH(\bR\tsucceeded\DC26\n\
      \\tresponses\CAN\ETX \ETX(\v2\CAN.etcdserverpb.ResponseOpR\tresponses:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy TxnResponse -> ByteString
packedFileDescriptor Proxy TxnResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TxnResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor TxnResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor TxnResponse ResponseHeader
-> FieldDescriptor TxnResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  TxnResponse
  TxnResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor TxnResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor TxnResponse
        succeeded__field_descriptor :: FieldDescriptor TxnResponse
succeeded__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor TxnResponse Bool
-> FieldDescriptor TxnResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"succeeded"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens TxnResponse TxnResponse Bool Bool
-> FieldAccessor TxnResponse Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"succeeded")) ::
              Data.ProtoLens.FieldDescriptor TxnResponse
        responses__field_descriptor :: FieldDescriptor TxnResponse
responses__field_descriptor
          = String
-> FieldTypeDescriptor ResponseOp
-> FieldAccessor TxnResponse ResponseOp
-> FieldDescriptor TxnResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"responses"
              (MessageOrGroup -> FieldTypeDescriptor ResponseOp
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseOp)
              (Packing
-> Lens' TxnResponse [ResponseOp]
-> FieldAccessor TxnResponse ResponseOp
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"responses")) ::
              Data.ProtoLens.FieldDescriptor TxnResponse
      in
        [(Tag, FieldDescriptor TxnResponse)]
-> Map Tag (FieldDescriptor TxnResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor TxnResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor TxnResponse
succeeded__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor TxnResponse
responses__field_descriptor)]
  unknownFields :: Lens' TxnResponse FieldSet
unknownFields
    = (TxnResponse -> FieldSet)
-> (TxnResponse -> FieldSet -> TxnResponse)
-> Lens' TxnResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TxnResponse -> FieldSet
_TxnResponse'_unknownFields
        (\ TxnResponse
x__ FieldSet
y__ -> TxnResponse
x__ {_TxnResponse'_unknownFields = y__})
  defMessage :: TxnResponse
defMessage
    = TxnResponse'_constructor
        {_TxnResponse'header :: Maybe ResponseHeader
_TxnResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _TxnResponse'succeeded :: Bool
_TxnResponse'succeeded = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TxnResponse'responses :: Vector ResponseOp
_TxnResponse'responses = Vector ResponseOp
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _TxnResponse'_unknownFields :: FieldSet
_TxnResponse'_unknownFields = []}
  parseMessage :: Parser TxnResponse
parseMessage
    = let
        loop ::
          TxnResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ResponseOp
             -> Data.ProtoLens.Encoding.Bytes.Parser TxnResponse
        loop :: TxnResponse
-> Growing Vector RealWorld ResponseOp -> Parser TxnResponse
loop TxnResponse
x Growing Vector RealWorld ResponseOp
mutable'responses
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'responses <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                            (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                               mutable'responses)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'responses") frozen'responses x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'responses
                        Word64
16
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"succeeded"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"succeeded") y x)
                                  mutable'responses
                        Word64
26
                          -> do !y <- Parser ResponseOp -> String -> Parser ResponseOp
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
"responses"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'responses y)
                                loop x v
                        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)
                                  mutable'responses
      in
        Parser TxnResponse -> String -> Parser TxnResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'responses <- IO (Growing Vector RealWorld ResponseOp)
-> Parser (Growing Vector RealWorld ResponseOp)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                     IO (Growing Vector RealWorld ResponseOp)
IO (Growing Vector (PrimState IO) ResponseOp)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'responses)
          String
"TxnResponse"
  buildMessage :: TxnResponse -> Builder
buildMessage
    = \ TxnResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  TxnResponse
  TxnResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> TxnResponse -> Maybe ResponseHeader
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'header") TxnResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Bool
_v = FoldLike Bool TxnResponse TxnResponse Bool Bool
-> TxnResponse -> Bool
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 @"succeeded") TxnResponse
_x
                 in
                   if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                            Bool
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((ResponseOp -> Builder) -> Vector ResponseOp -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ ResponseOp
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                              ((ByteString -> Builder)
-> (ResponseOp -> ByteString) -> ResponseOp -> 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))
                                 ResponseOp -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseOp
_v))
                      (FoldLike
  (Vector ResponseOp)
  TxnResponse
  TxnResponse
  (Vector ResponseOp)
  (Vector ResponseOp)
-> TxnResponse -> Vector ResponseOp
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 @"vec'responses") TxnResponse
_x))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet TxnResponse TxnResponse FieldSet FieldSet
-> TxnResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TxnResponse TxnResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' TxnResponse FieldSet
Data.ProtoLens.unknownFields TxnResponse
_x))))
instance Control.DeepSeq.NFData TxnResponse where
  rnf :: TxnResponse -> ()
rnf
    = \ TxnResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TxnResponse -> FieldSet
_TxnResponse'_unknownFields TxnResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (TxnResponse -> Maybe ResponseHeader
_TxnResponse'header TxnResponse
x__)
                (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (TxnResponse -> Bool
_TxnResponse'succeeded TxnResponse
x__)
                   (Vector ResponseOp -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TxnResponse -> Vector ResponseOp
_TxnResponse'responses TxnResponse
x__) ())))
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.watchId' @:: Lens' WatchCancelRequest Data.Int.Int64@ -}
data WatchCancelRequest
  = WatchCancelRequest'_constructor {WatchCancelRequest -> Int64
_WatchCancelRequest'watchId :: !Data.Int.Int64,
                                     WatchCancelRequest -> FieldSet
_WatchCancelRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WatchCancelRequest -> WatchCancelRequest -> Bool
(WatchCancelRequest -> WatchCancelRequest -> Bool)
-> (WatchCancelRequest -> WatchCancelRequest -> Bool)
-> Eq WatchCancelRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WatchCancelRequest -> WatchCancelRequest -> Bool
== :: WatchCancelRequest -> WatchCancelRequest -> Bool
$c/= :: WatchCancelRequest -> WatchCancelRequest -> Bool
/= :: WatchCancelRequest -> WatchCancelRequest -> Bool
Prelude.Eq, Eq WatchCancelRequest
Eq WatchCancelRequest =>
(WatchCancelRequest -> WatchCancelRequest -> Ordering)
-> (WatchCancelRequest -> WatchCancelRequest -> Bool)
-> (WatchCancelRequest -> WatchCancelRequest -> Bool)
-> (WatchCancelRequest -> WatchCancelRequest -> Bool)
-> (WatchCancelRequest -> WatchCancelRequest -> Bool)
-> (WatchCancelRequest -> WatchCancelRequest -> WatchCancelRequest)
-> (WatchCancelRequest -> WatchCancelRequest -> WatchCancelRequest)
-> Ord WatchCancelRequest
WatchCancelRequest -> WatchCancelRequest -> Bool
WatchCancelRequest -> WatchCancelRequest -> Ordering
WatchCancelRequest -> WatchCancelRequest -> WatchCancelRequest
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 :: WatchCancelRequest -> WatchCancelRequest -> Ordering
compare :: WatchCancelRequest -> WatchCancelRequest -> Ordering
$c< :: WatchCancelRequest -> WatchCancelRequest -> Bool
< :: WatchCancelRequest -> WatchCancelRequest -> Bool
$c<= :: WatchCancelRequest -> WatchCancelRequest -> Bool
<= :: WatchCancelRequest -> WatchCancelRequest -> Bool
$c> :: WatchCancelRequest -> WatchCancelRequest -> Bool
> :: WatchCancelRequest -> WatchCancelRequest -> Bool
$c>= :: WatchCancelRequest -> WatchCancelRequest -> Bool
>= :: WatchCancelRequest -> WatchCancelRequest -> Bool
$cmax :: WatchCancelRequest -> WatchCancelRequest -> WatchCancelRequest
max :: WatchCancelRequest -> WatchCancelRequest -> WatchCancelRequest
$cmin :: WatchCancelRequest -> WatchCancelRequest -> WatchCancelRequest
min :: WatchCancelRequest -> WatchCancelRequest -> WatchCancelRequest
Prelude.Ord)
instance Prelude.Show WatchCancelRequest where
  showsPrec :: Int -> WatchCancelRequest -> ShowS
showsPrec Int
_ WatchCancelRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WatchCancelRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WatchCancelRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WatchCancelRequest "watchId" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "watchId"
-> (Int64 -> f Int64) -> WatchCancelRequest -> f WatchCancelRequest
fieldOf Proxy# "watchId"
_
    = ((Int64 -> f Int64) -> WatchCancelRequest -> f WatchCancelRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> WatchCancelRequest
-> f WatchCancelRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchCancelRequest -> Int64)
-> (WatchCancelRequest -> Int64 -> WatchCancelRequest)
-> Lens WatchCancelRequest WatchCancelRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchCancelRequest -> Int64
_WatchCancelRequest'watchId
           (\ WatchCancelRequest
x__ Int64
y__ -> WatchCancelRequest
x__ {_WatchCancelRequest'watchId = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WatchCancelRequest where
  messageName :: Proxy WatchCancelRequest -> Text
messageName Proxy WatchCancelRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.WatchCancelRequest"
  packedMessageDescriptor :: Proxy WatchCancelRequest -> ByteString
packedMessageDescriptor Proxy WatchCancelRequest
_
    = ByteString
"\n\
      \\DC2WatchCancelRequest\DC2\"\n\
      \\bwatch_id\CAN\SOH \SOH(\ETXR\awatchIdB\a\138\181\CAN\ETX3.1:\a\130\181\CAN\ETX3.1"
  packedFileDescriptor :: Proxy WatchCancelRequest -> ByteString
packedFileDescriptor Proxy WatchCancelRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WatchCancelRequest)
fieldsByTag
    = let
        watchId__field_descriptor :: FieldDescriptor WatchCancelRequest
watchId__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor WatchCancelRequest Int64
-> FieldDescriptor WatchCancelRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"watch_id"
              (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 WatchCancelRequest WatchCancelRequest Int64 Int64
-> FieldAccessor WatchCancelRequest 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 @"watchId")) ::
              Data.ProtoLens.FieldDescriptor WatchCancelRequest
      in
        [(Tag, FieldDescriptor WatchCancelRequest)]
-> Map Tag (FieldDescriptor WatchCancelRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WatchCancelRequest
watchId__field_descriptor)]
  unknownFields :: Lens' WatchCancelRequest FieldSet
unknownFields
    = (WatchCancelRequest -> FieldSet)
-> (WatchCancelRequest -> FieldSet -> WatchCancelRequest)
-> Lens' WatchCancelRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WatchCancelRequest -> FieldSet
_WatchCancelRequest'_unknownFields
        (\ WatchCancelRequest
x__ FieldSet
y__ -> WatchCancelRequest
x__ {_WatchCancelRequest'_unknownFields = y__})
  defMessage :: WatchCancelRequest
defMessage
    = WatchCancelRequest'_constructor
        {_WatchCancelRequest'watchId :: Int64
_WatchCancelRequest'watchId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WatchCancelRequest'_unknownFields :: FieldSet
_WatchCancelRequest'_unknownFields = []}
  parseMessage :: Parser WatchCancelRequest
parseMessage
    = let
        loop ::
          WatchCancelRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser WatchCancelRequest
        loop :: WatchCancelRequest -> Parser WatchCancelRequest
loop WatchCancelRequest
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 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
"watch_id"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"watchId") 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 WatchCancelRequest -> String -> Parser WatchCancelRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WatchCancelRequest -> Parser WatchCancelRequest
loop WatchCancelRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WatchCancelRequest"
  buildMessage :: WatchCancelRequest -> Builder
buildMessage
    = \ WatchCancelRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int64
_v = FoldLike Int64 WatchCancelRequest WatchCancelRequest Int64 Int64
-> WatchCancelRequest -> 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 @"watchId") WatchCancelRequest
_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
8)
                      ((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 WatchCancelRequest WatchCancelRequest FieldSet FieldSet
-> WatchCancelRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet WatchCancelRequest WatchCancelRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WatchCancelRequest FieldSet
Data.ProtoLens.unknownFields WatchCancelRequest
_x))
instance Control.DeepSeq.NFData WatchCancelRequest where
  rnf :: WatchCancelRequest -> ()
rnf
    = \ WatchCancelRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WatchCancelRequest -> FieldSet
_WatchCancelRequest'_unknownFields WatchCancelRequest
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WatchCancelRequest -> Int64
_WatchCancelRequest'watchId WatchCancelRequest
x__) ())
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.key' @:: Lens' WatchCreateRequest Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.rangeEnd' @:: Lens' WatchCreateRequest Data.ByteString.ByteString@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.startRevision' @:: Lens' WatchCreateRequest Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.progressNotify' @:: Lens' WatchCreateRequest Prelude.Bool@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.filters' @:: Lens' WatchCreateRequest [WatchCreateRequest'FilterType]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'filters' @:: Lens' WatchCreateRequest (Data.Vector.Vector WatchCreateRequest'FilterType)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.prevKv' @:: Lens' WatchCreateRequest Prelude.Bool@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.watchId' @:: Lens' WatchCreateRequest Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.fragment' @:: Lens' WatchCreateRequest Prelude.Bool@ -}
data WatchCreateRequest
  = WatchCreateRequest'_constructor {WatchCreateRequest -> ByteString
_WatchCreateRequest'key :: !Data.ByteString.ByteString,
                                     WatchCreateRequest -> ByteString
_WatchCreateRequest'rangeEnd :: !Data.ByteString.ByteString,
                                     WatchCreateRequest -> Int64
_WatchCreateRequest'startRevision :: !Data.Int.Int64,
                                     WatchCreateRequest -> Bool
_WatchCreateRequest'progressNotify :: !Prelude.Bool,
                                     WatchCreateRequest -> Vector WatchCreateRequest'FilterType
_WatchCreateRequest'filters :: !(Data.Vector.Vector WatchCreateRequest'FilterType),
                                     WatchCreateRequest -> Bool
_WatchCreateRequest'prevKv :: !Prelude.Bool,
                                     WatchCreateRequest -> Int64
_WatchCreateRequest'watchId :: !Data.Int.Int64,
                                     WatchCreateRequest -> Bool
_WatchCreateRequest'fragment :: !Prelude.Bool,
                                     WatchCreateRequest -> FieldSet
_WatchCreateRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WatchCreateRequest -> WatchCreateRequest -> Bool
(WatchCreateRequest -> WatchCreateRequest -> Bool)
-> (WatchCreateRequest -> WatchCreateRequest -> Bool)
-> Eq WatchCreateRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WatchCreateRequest -> WatchCreateRequest -> Bool
== :: WatchCreateRequest -> WatchCreateRequest -> Bool
$c/= :: WatchCreateRequest -> WatchCreateRequest -> Bool
/= :: WatchCreateRequest -> WatchCreateRequest -> Bool
Prelude.Eq, Eq WatchCreateRequest
Eq WatchCreateRequest =>
(WatchCreateRequest -> WatchCreateRequest -> Ordering)
-> (WatchCreateRequest -> WatchCreateRequest -> Bool)
-> (WatchCreateRequest -> WatchCreateRequest -> Bool)
-> (WatchCreateRequest -> WatchCreateRequest -> Bool)
-> (WatchCreateRequest -> WatchCreateRequest -> Bool)
-> (WatchCreateRequest -> WatchCreateRequest -> WatchCreateRequest)
-> (WatchCreateRequest -> WatchCreateRequest -> WatchCreateRequest)
-> Ord WatchCreateRequest
WatchCreateRequest -> WatchCreateRequest -> Bool
WatchCreateRequest -> WatchCreateRequest -> Ordering
WatchCreateRequest -> WatchCreateRequest -> WatchCreateRequest
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 :: WatchCreateRequest -> WatchCreateRequest -> Ordering
compare :: WatchCreateRequest -> WatchCreateRequest -> Ordering
$c< :: WatchCreateRequest -> WatchCreateRequest -> Bool
< :: WatchCreateRequest -> WatchCreateRequest -> Bool
$c<= :: WatchCreateRequest -> WatchCreateRequest -> Bool
<= :: WatchCreateRequest -> WatchCreateRequest -> Bool
$c> :: WatchCreateRequest -> WatchCreateRequest -> Bool
> :: WatchCreateRequest -> WatchCreateRequest -> Bool
$c>= :: WatchCreateRequest -> WatchCreateRequest -> Bool
>= :: WatchCreateRequest -> WatchCreateRequest -> Bool
$cmax :: WatchCreateRequest -> WatchCreateRequest -> WatchCreateRequest
max :: WatchCreateRequest -> WatchCreateRequest -> WatchCreateRequest
$cmin :: WatchCreateRequest -> WatchCreateRequest -> WatchCreateRequest
min :: WatchCreateRequest -> WatchCreateRequest -> WatchCreateRequest
Prelude.Ord)
instance Prelude.Show WatchCreateRequest where
  showsPrec :: Int -> WatchCreateRequest -> ShowS
showsPrec Int
_ WatchCreateRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WatchCreateRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WatchCreateRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WatchCreateRequest "key" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (ByteString -> f ByteString)
-> WatchCreateRequest
-> f WatchCreateRequest
fieldOf Proxy# "key"
_
    = ((ByteString -> f ByteString)
 -> WatchCreateRequest -> f WatchCreateRequest)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> WatchCreateRequest
-> f WatchCreateRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchCreateRequest -> ByteString)
-> (WatchCreateRequest -> ByteString -> WatchCreateRequest)
-> Lens WatchCreateRequest WatchCreateRequest ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchCreateRequest -> ByteString
_WatchCreateRequest'key
           (\ WatchCreateRequest
x__ ByteString
y__ -> WatchCreateRequest
x__ {_WatchCreateRequest'key = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchCreateRequest "rangeEnd" Data.ByteString.ByteString where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rangeEnd"
-> (ByteString -> f ByteString)
-> WatchCreateRequest
-> f WatchCreateRequest
fieldOf Proxy# "rangeEnd"
_
    = ((ByteString -> f ByteString)
 -> WatchCreateRequest -> f WatchCreateRequest)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> WatchCreateRequest
-> f WatchCreateRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchCreateRequest -> ByteString)
-> (WatchCreateRequest -> ByteString -> WatchCreateRequest)
-> Lens WatchCreateRequest WatchCreateRequest ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchCreateRequest -> ByteString
_WatchCreateRequest'rangeEnd
           (\ WatchCreateRequest
x__ ByteString
y__ -> WatchCreateRequest
x__ {_WatchCreateRequest'rangeEnd = y__}))
        (ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchCreateRequest "startRevision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "startRevision"
-> (Int64 -> f Int64) -> WatchCreateRequest -> f WatchCreateRequest
fieldOf Proxy# "startRevision"
_
    = ((Int64 -> f Int64) -> WatchCreateRequest -> f WatchCreateRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> WatchCreateRequest
-> f WatchCreateRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchCreateRequest -> Int64)
-> (WatchCreateRequest -> Int64 -> WatchCreateRequest)
-> Lens WatchCreateRequest WatchCreateRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchCreateRequest -> Int64
_WatchCreateRequest'startRevision
           (\ WatchCreateRequest
x__ Int64
y__ -> WatchCreateRequest
x__ {_WatchCreateRequest'startRevision = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchCreateRequest "progressNotify" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "progressNotify"
-> (Bool -> f Bool) -> WatchCreateRequest -> f WatchCreateRequest
fieldOf Proxy# "progressNotify"
_
    = ((Bool -> f Bool) -> WatchCreateRequest -> f WatchCreateRequest)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> WatchCreateRequest
-> f WatchCreateRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchCreateRequest -> Bool)
-> (WatchCreateRequest -> Bool -> WatchCreateRequest)
-> Lens WatchCreateRequest WatchCreateRequest Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchCreateRequest -> Bool
_WatchCreateRequest'progressNotify
           (\ WatchCreateRequest
x__ Bool
y__ -> WatchCreateRequest
x__ {_WatchCreateRequest'progressNotify = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchCreateRequest "filters" [WatchCreateRequest'FilterType] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "filters"
-> ([WatchCreateRequest'FilterType]
    -> f [WatchCreateRequest'FilterType])
-> WatchCreateRequest
-> f WatchCreateRequest
fieldOf Proxy# "filters"
_
    = ((Vector WatchCreateRequest'FilterType
  -> f (Vector WatchCreateRequest'FilterType))
 -> WatchCreateRequest -> f WatchCreateRequest)
-> (([WatchCreateRequest'FilterType]
     -> f [WatchCreateRequest'FilterType])
    -> Vector WatchCreateRequest'FilterType
    -> f (Vector WatchCreateRequest'FilterType))
-> ([WatchCreateRequest'FilterType]
    -> f [WatchCreateRequest'FilterType])
-> WatchCreateRequest
-> f WatchCreateRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchCreateRequest -> Vector WatchCreateRequest'FilterType)
-> (WatchCreateRequest
    -> Vector WatchCreateRequest'FilterType -> WatchCreateRequest)
-> Lens
     WatchCreateRequest
     WatchCreateRequest
     (Vector WatchCreateRequest'FilterType)
     (Vector WatchCreateRequest'FilterType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchCreateRequest -> Vector WatchCreateRequest'FilterType
_WatchCreateRequest'filters
           (\ WatchCreateRequest
x__ Vector WatchCreateRequest'FilterType
y__ -> WatchCreateRequest
x__ {_WatchCreateRequest'filters = y__}))
        ((Vector WatchCreateRequest'FilterType
 -> [WatchCreateRequest'FilterType])
-> (Vector WatchCreateRequest'FilterType
    -> [WatchCreateRequest'FilterType]
    -> Vector WatchCreateRequest'FilterType)
-> Lens
     (Vector WatchCreateRequest'FilterType)
     (Vector WatchCreateRequest'FilterType)
     [WatchCreateRequest'FilterType]
     [WatchCreateRequest'FilterType]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector WatchCreateRequest'FilterType
-> [WatchCreateRequest'FilterType]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector WatchCreateRequest'FilterType
_ [WatchCreateRequest'FilterType]
y__ -> [WatchCreateRequest'FilterType]
-> Vector WatchCreateRequest'FilterType
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [WatchCreateRequest'FilterType]
y__))
instance Data.ProtoLens.Field.HasField WatchCreateRequest "vec'filters" (Data.Vector.Vector WatchCreateRequest'FilterType) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'filters"
-> (Vector WatchCreateRequest'FilterType
    -> f (Vector WatchCreateRequest'FilterType))
-> WatchCreateRequest
-> f WatchCreateRequest
fieldOf Proxy# "vec'filters"
_
    = ((Vector WatchCreateRequest'FilterType
  -> f (Vector WatchCreateRequest'FilterType))
 -> WatchCreateRequest -> f WatchCreateRequest)
-> ((Vector WatchCreateRequest'FilterType
     -> f (Vector WatchCreateRequest'FilterType))
    -> Vector WatchCreateRequest'FilterType
    -> f (Vector WatchCreateRequest'FilterType))
-> (Vector WatchCreateRequest'FilterType
    -> f (Vector WatchCreateRequest'FilterType))
-> WatchCreateRequest
-> f WatchCreateRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchCreateRequest -> Vector WatchCreateRequest'FilterType)
-> (WatchCreateRequest
    -> Vector WatchCreateRequest'FilterType -> WatchCreateRequest)
-> Lens
     WatchCreateRequest
     WatchCreateRequest
     (Vector WatchCreateRequest'FilterType)
     (Vector WatchCreateRequest'FilterType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchCreateRequest -> Vector WatchCreateRequest'FilterType
_WatchCreateRequest'filters
           (\ WatchCreateRequest
x__ Vector WatchCreateRequest'FilterType
y__ -> WatchCreateRequest
x__ {_WatchCreateRequest'filters = y__}))
        (Vector WatchCreateRequest'FilterType
 -> f (Vector WatchCreateRequest'FilterType))
-> Vector WatchCreateRequest'FilterType
-> f (Vector WatchCreateRequest'FilterType)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchCreateRequest "prevKv" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "prevKv"
-> (Bool -> f Bool) -> WatchCreateRequest -> f WatchCreateRequest
fieldOf Proxy# "prevKv"
_
    = ((Bool -> f Bool) -> WatchCreateRequest -> f WatchCreateRequest)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> WatchCreateRequest
-> f WatchCreateRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchCreateRequest -> Bool)
-> (WatchCreateRequest -> Bool -> WatchCreateRequest)
-> Lens WatchCreateRequest WatchCreateRequest Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchCreateRequest -> Bool
_WatchCreateRequest'prevKv
           (\ WatchCreateRequest
x__ Bool
y__ -> WatchCreateRequest
x__ {_WatchCreateRequest'prevKv = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchCreateRequest "watchId" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "watchId"
-> (Int64 -> f Int64) -> WatchCreateRequest -> f WatchCreateRequest
fieldOf Proxy# "watchId"
_
    = ((Int64 -> f Int64) -> WatchCreateRequest -> f WatchCreateRequest)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> WatchCreateRequest
-> f WatchCreateRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchCreateRequest -> Int64)
-> (WatchCreateRequest -> Int64 -> WatchCreateRequest)
-> Lens WatchCreateRequest WatchCreateRequest Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchCreateRequest -> Int64
_WatchCreateRequest'watchId
           (\ WatchCreateRequest
x__ Int64
y__ -> WatchCreateRequest
x__ {_WatchCreateRequest'watchId = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchCreateRequest "fragment" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fragment"
-> (Bool -> f Bool) -> WatchCreateRequest -> f WatchCreateRequest
fieldOf Proxy# "fragment"
_
    = ((Bool -> f Bool) -> WatchCreateRequest -> f WatchCreateRequest)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> WatchCreateRequest
-> f WatchCreateRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchCreateRequest -> Bool)
-> (WatchCreateRequest -> Bool -> WatchCreateRequest)
-> Lens WatchCreateRequest WatchCreateRequest Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchCreateRequest -> Bool
_WatchCreateRequest'fragment
           (\ WatchCreateRequest
x__ Bool
y__ -> WatchCreateRequest
x__ {_WatchCreateRequest'fragment = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WatchCreateRequest where
  messageName :: Proxy WatchCreateRequest -> Text
messageName Proxy WatchCreateRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.WatchCreateRequest"
  packedMessageDescriptor :: Proxy WatchCreateRequest -> ByteString
packedMessageDescriptor Proxy WatchCreateRequest
_
    = ByteString
"\n\
      \\DC2WatchCreateRequest\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\fR\ETXkey\DC2\ESC\n\
      \\trange_end\CAN\STX \SOH(\fR\brangeEnd\DC2%\n\
      \\SOstart_revision\CAN\ETX \SOH(\ETXR\rstartRevision\DC2'\n\
      \\SIprogress_notify\CAN\EOT \SOH(\bR\SOprogressNotify\DC2N\n\
      \\afilters\CAN\ENQ \ETX(\SO2+.etcdserverpb.WatchCreateRequest.FilterTypeR\afiltersB\a\138\181\CAN\ETX3.1\DC2 \n\
      \\aprev_kv\CAN\ACK \SOH(\bR\ACKprevKvB\a\138\181\CAN\ETX3.1\DC2\"\n\
      \\bwatch_id\CAN\a \SOH(\ETXR\awatchIdB\a\138\181\CAN\ETX3.4\DC2#\n\
      \\bfragment\CAN\b \SOH(\bR\bfragmentB\a\138\181\CAN\ETX3.4\".\n\
      \\n\
      \FilterType\DC2\t\n\
      \\ENQNOPUT\DLE\NUL\DC2\f\n\
      \\bNODELETE\DLE\SOH\SUB\a\146\181\CAN\ETX3.1:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy WatchCreateRequest -> ByteString
packedFileDescriptor Proxy WatchCreateRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WatchCreateRequest)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor WatchCreateRequest
key__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor WatchCreateRequest ByteString
-> FieldDescriptor WatchCreateRequest
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 WatchCreateRequest WatchCreateRequest ByteString ByteString
-> FieldAccessor WatchCreateRequest 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 WatchCreateRequest
        rangeEnd__field_descriptor :: FieldDescriptor WatchCreateRequest
rangeEnd__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor WatchCreateRequest ByteString
-> FieldDescriptor WatchCreateRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"range_end"
              (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 WatchCreateRequest WatchCreateRequest ByteString ByteString
-> FieldAccessor WatchCreateRequest 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 @"rangeEnd")) ::
              Data.ProtoLens.FieldDescriptor WatchCreateRequest
        startRevision__field_descriptor :: FieldDescriptor WatchCreateRequest
startRevision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor WatchCreateRequest Int64
-> FieldDescriptor WatchCreateRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"start_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 WatchCreateRequest WatchCreateRequest Int64 Int64
-> FieldAccessor WatchCreateRequest 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 @"startRevision")) ::
              Data.ProtoLens.FieldDescriptor WatchCreateRequest
        progressNotify__field_descriptor :: FieldDescriptor WatchCreateRequest
progressNotify__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor WatchCreateRequest Bool
-> FieldDescriptor WatchCreateRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"progress_notify"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens WatchCreateRequest WatchCreateRequest Bool Bool
-> FieldAccessor WatchCreateRequest Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"progressNotify")) ::
              Data.ProtoLens.FieldDescriptor WatchCreateRequest
        filters__field_descriptor :: FieldDescriptor WatchCreateRequest
filters__field_descriptor
          = String
-> FieldTypeDescriptor WatchCreateRequest'FilterType
-> FieldAccessor WatchCreateRequest WatchCreateRequest'FilterType
-> FieldDescriptor WatchCreateRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"filters"
              (ScalarField WatchCreateRequest'FilterType
-> FieldTypeDescriptor WatchCreateRequest'FilterType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField WatchCreateRequest'FilterType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor WatchCreateRequest'FilterType)
              (Packing
-> Lens' WatchCreateRequest [WatchCreateRequest'FilterType]
-> FieldAccessor WatchCreateRequest WatchCreateRequest'FilterType
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"filters")) ::
              Data.ProtoLens.FieldDescriptor WatchCreateRequest
        prevKv__field_descriptor :: FieldDescriptor WatchCreateRequest
prevKv__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor WatchCreateRequest Bool
-> FieldDescriptor WatchCreateRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"prev_kv"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens WatchCreateRequest WatchCreateRequest Bool Bool
-> FieldAccessor WatchCreateRequest Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"prevKv")) ::
              Data.ProtoLens.FieldDescriptor WatchCreateRequest
        watchId__field_descriptor :: FieldDescriptor WatchCreateRequest
watchId__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor WatchCreateRequest Int64
-> FieldDescriptor WatchCreateRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"watch_id"
              (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 WatchCreateRequest WatchCreateRequest Int64 Int64
-> FieldAccessor WatchCreateRequest 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 @"watchId")) ::
              Data.ProtoLens.FieldDescriptor WatchCreateRequest
        fragment__field_descriptor :: FieldDescriptor WatchCreateRequest
fragment__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor WatchCreateRequest Bool
-> FieldDescriptor WatchCreateRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"fragment"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens WatchCreateRequest WatchCreateRequest Bool Bool
-> FieldAccessor WatchCreateRequest Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"fragment")) ::
              Data.ProtoLens.FieldDescriptor WatchCreateRequest
      in
        [(Tag, FieldDescriptor WatchCreateRequest)]
-> Map Tag (FieldDescriptor WatchCreateRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WatchCreateRequest
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor WatchCreateRequest
rangeEnd__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor WatchCreateRequest
startRevision__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor WatchCreateRequest
progressNotify__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor WatchCreateRequest
filters__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor WatchCreateRequest
prevKv__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor WatchCreateRequest
watchId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor WatchCreateRequest
fragment__field_descriptor)]
  unknownFields :: Lens' WatchCreateRequest FieldSet
unknownFields
    = (WatchCreateRequest -> FieldSet)
-> (WatchCreateRequest -> FieldSet -> WatchCreateRequest)
-> Lens' WatchCreateRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WatchCreateRequest -> FieldSet
_WatchCreateRequest'_unknownFields
        (\ WatchCreateRequest
x__ FieldSet
y__ -> WatchCreateRequest
x__ {_WatchCreateRequest'_unknownFields = y__})
  defMessage :: WatchCreateRequest
defMessage
    = WatchCreateRequest'_constructor
        {_WatchCreateRequest'key :: ByteString
_WatchCreateRequest'key = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WatchCreateRequest'rangeEnd :: ByteString
_WatchCreateRequest'rangeEnd = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WatchCreateRequest'startRevision :: Int64
_WatchCreateRequest'startRevision = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WatchCreateRequest'progressNotify :: Bool
_WatchCreateRequest'progressNotify = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WatchCreateRequest'filters :: Vector WatchCreateRequest'FilterType
_WatchCreateRequest'filters = Vector WatchCreateRequest'FilterType
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _WatchCreateRequest'prevKv :: Bool
_WatchCreateRequest'prevKv = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WatchCreateRequest'watchId :: Int64
_WatchCreateRequest'watchId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WatchCreateRequest'fragment :: Bool
_WatchCreateRequest'fragment = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WatchCreateRequest'_unknownFields :: FieldSet
_WatchCreateRequest'_unknownFields = []}
  parseMessage :: Parser WatchCreateRequest
parseMessage
    = let
        loop ::
          WatchCreateRequest
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld WatchCreateRequest'FilterType
             -> Data.ProtoLens.Encoding.Bytes.Parser WatchCreateRequest
        loop :: WatchCreateRequest
-> Growing Vector RealWorld WatchCreateRequest'FilterType
-> Parser WatchCreateRequest
loop WatchCreateRequest
x Growing Vector RealWorld WatchCreateRequest'FilterType
mutable'filters
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'filters <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'filters)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'filters") frozen'filters 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)
                                  mutable'filters
                        Word64
18
                          -> 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
"range_end"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"rangeEnd") y x)
                                  mutable'filters
                        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
"start_revision"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"startRevision") y x)
                                  mutable'filters
                        Word64
32
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"progress_notify"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"progressNotify") y x)
                                  mutable'filters
                        Word64
40
                          -> do !y <- Parser WatchCreateRequest'FilterType
-> String -> Parser WatchCreateRequest'FilterType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Int -> WatchCreateRequest'FilterType)
-> Parser Int -> Parser WatchCreateRequest'FilterType
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                           Int -> WatchCreateRequest'FilterType
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
"filters"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'filters y)
                                loop x v
                        Word64
42
                          -> do y <- do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Data.ProtoLens.Encoding.Bytes.isolate
                                          (Prelude.fromIntegral len)
                                          ((let
                                              ploop Growing v RealWorld a
qs
                                                = do packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if packedEnd then
                                                         Prelude.return qs
                                                     else
                                                         do !q <- (Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    (Prelude.fmap
                                                                       Prelude.toEnum
                                                                       (Prelude.fmap
                                                                          Prelude.fromIntegral
                                                                          Data.ProtoLens.Encoding.Bytes.getVarInt))
                                                                    "filters"
                                                            qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Data.ProtoLens.Encoding.Growing.append
                                                                        qs q)
                                                            ploop qs'
                                            in ploop)
                                             mutable'filters)
                                loop x y
                        Word64
48
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"prev_kv"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"prevKv") y x)
                                  mutable'filters
                        Word64
56
                          -> 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
"watch_id"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"watchId") y x)
                                  mutable'filters
                        Word64
64
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"fragment"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"fragment") y x)
                                  mutable'filters
                        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)
                                  mutable'filters
      in
        Parser WatchCreateRequest -> String -> Parser WatchCreateRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'filters <- IO (Growing Vector RealWorld WatchCreateRequest'FilterType)
-> Parser (Growing Vector RealWorld WatchCreateRequest'FilterType)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld WatchCreateRequest'FilterType)
IO (Growing Vector (PrimState IO) WatchCreateRequest'FilterType)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'filters)
          String
"WatchCreateRequest"
  buildMessage :: WatchCreateRequest -> Builder
buildMessage
    = \ WatchCreateRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: ByteString
_v = FoldLike
  ByteString
  WatchCreateRequest
  WatchCreateRequest
  ByteString
  ByteString
-> WatchCreateRequest -> 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") WatchCreateRequest
_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 :: ByteString
_v = FoldLike
  ByteString
  WatchCreateRequest
  WatchCreateRequest
  ByteString
  ByteString
-> WatchCreateRequest -> 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 @"rangeEnd") WatchCreateRequest
_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
18)
                         ((\ 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 WatchCreateRequest WatchCreateRequest Int64 Int64
-> WatchCreateRequest -> 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 @"startRevision") WatchCreateRequest
_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 :: Bool
_v
                           = FoldLike Bool WatchCreateRequest WatchCreateRequest Bool Bool
-> WatchCreateRequest -> Bool
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 @"progressNotify") WatchCreateRequest
_x
                       in
                         if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (let
                            p :: Vector WatchCreateRequest'FilterType
p = FoldLike
  (Vector WatchCreateRequest'FilterType)
  WatchCreateRequest
  WatchCreateRequest
  (Vector WatchCreateRequest'FilterType)
  (Vector WatchCreateRequest'FilterType)
-> WatchCreateRequest -> Vector WatchCreateRequest'FilterType
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 @"vec'filters") WatchCreateRequest
_x
                          in
                            if Vector WatchCreateRequest'FilterType -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector WatchCreateRequest'FilterType
p 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))
                                     (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                                        ((WatchCreateRequest'FilterType -> Builder)
-> Vector WatchCreateRequest'FilterType -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                           ((Int -> Builder)
-> (WatchCreateRequest'FilterType -> Int)
-> WatchCreateRequest'FilterType
-> 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)
                                              WatchCreateRequest'FilterType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum)
                                           Vector WatchCreateRequest'FilterType
p))))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (let
                               _v :: Bool
_v = FoldLike Bool WatchCreateRequest WatchCreateRequest Bool Bool
-> WatchCreateRequest -> Bool
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 @"prevKv") WatchCreateRequest
_x
                             in
                               if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                        Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (let
                                  _v :: Int64
_v = FoldLike Int64 WatchCreateRequest WatchCreateRequest Int64 Int64
-> WatchCreateRequest -> 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 @"watchId") WatchCreateRequest
_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
56)
                                        ((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 :: Bool
_v
                                       = FoldLike Bool WatchCreateRequest WatchCreateRequest Bool Bool
-> WatchCreateRequest -> Bool
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 @"fragment") WatchCreateRequest
_x
                                   in
                                     if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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
64)
                                           ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                              Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                              (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                                  (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                     (FoldLike
  FieldSet WatchCreateRequest WatchCreateRequest FieldSet FieldSet
-> WatchCreateRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet WatchCreateRequest WatchCreateRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WatchCreateRequest FieldSet
Data.ProtoLens.unknownFields WatchCreateRequest
_x)))))))))
instance Control.DeepSeq.NFData WatchCreateRequest where
  rnf :: WatchCreateRequest -> ()
rnf
    = \ WatchCreateRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WatchCreateRequest -> FieldSet
_WatchCreateRequest'_unknownFields WatchCreateRequest
x__)
             (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (WatchCreateRequest -> ByteString
_WatchCreateRequest'key WatchCreateRequest
x__)
                (ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (WatchCreateRequest -> ByteString
_WatchCreateRequest'rangeEnd WatchCreateRequest
x__)
                   (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (WatchCreateRequest -> Int64
_WatchCreateRequest'startRevision WatchCreateRequest
x__)
                      (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (WatchCreateRequest -> Bool
_WatchCreateRequest'progressNotify WatchCreateRequest
x__)
                         (Vector WatchCreateRequest'FilterType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (WatchCreateRequest -> Vector WatchCreateRequest'FilterType
_WatchCreateRequest'filters WatchCreateRequest
x__)
                            (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (WatchCreateRequest -> Bool
_WatchCreateRequest'prevKv WatchCreateRequest
x__)
                               (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (WatchCreateRequest -> Int64
_WatchCreateRequest'watchId WatchCreateRequest
x__)
                                  (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (WatchCreateRequest -> Bool
_WatchCreateRequest'fragment WatchCreateRequest
x__) ()))))))))
newtype WatchCreateRequest'FilterType'UnrecognizedValue
  = WatchCreateRequest'FilterType'UnrecognizedValue Data.Int.Int32
  deriving stock (WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool
(WatchCreateRequest'FilterType'UnrecognizedValue
 -> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool)
-> (WatchCreateRequest'FilterType'UnrecognizedValue
    -> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool)
-> Eq WatchCreateRequest'FilterType'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool
== :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool
$c/= :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool
/= :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool
Prelude.Eq, Eq WatchCreateRequest'FilterType'UnrecognizedValue
Eq WatchCreateRequest'FilterType'UnrecognizedValue =>
(WatchCreateRequest'FilterType'UnrecognizedValue
 -> WatchCreateRequest'FilterType'UnrecognizedValue -> Ordering)
-> (WatchCreateRequest'FilterType'UnrecognizedValue
    -> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool)
-> (WatchCreateRequest'FilterType'UnrecognizedValue
    -> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool)
-> (WatchCreateRequest'FilterType'UnrecognizedValue
    -> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool)
-> (WatchCreateRequest'FilterType'UnrecognizedValue
    -> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool)
-> (WatchCreateRequest'FilterType'UnrecognizedValue
    -> WatchCreateRequest'FilterType'UnrecognizedValue
    -> WatchCreateRequest'FilterType'UnrecognizedValue)
-> (WatchCreateRequest'FilterType'UnrecognizedValue
    -> WatchCreateRequest'FilterType'UnrecognizedValue
    -> WatchCreateRequest'FilterType'UnrecognizedValue)
-> Ord WatchCreateRequest'FilterType'UnrecognizedValue
WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool
WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Ordering
WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'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 :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Ordering
compare :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Ordering
$c< :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool
< :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool
$c<= :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool
<= :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool
$c> :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool
> :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool
$c>= :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool
>= :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue -> Bool
$cmax :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue
max :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue
$cmin :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue
min :: WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType'UnrecognizedValue
Prelude.Ord, Int -> WatchCreateRequest'FilterType'UnrecognizedValue -> ShowS
[WatchCreateRequest'FilterType'UnrecognizedValue] -> ShowS
WatchCreateRequest'FilterType'UnrecognizedValue -> String
(Int -> WatchCreateRequest'FilterType'UnrecognizedValue -> ShowS)
-> (WatchCreateRequest'FilterType'UnrecognizedValue -> String)
-> ([WatchCreateRequest'FilterType'UnrecognizedValue] -> ShowS)
-> Show WatchCreateRequest'FilterType'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> WatchCreateRequest'FilterType'UnrecognizedValue -> ShowS
showsPrec :: Int -> WatchCreateRequest'FilterType'UnrecognizedValue -> ShowS
$cshow :: WatchCreateRequest'FilterType'UnrecognizedValue -> String
show :: WatchCreateRequest'FilterType'UnrecognizedValue -> String
$cshowList :: [WatchCreateRequest'FilterType'UnrecognizedValue] -> ShowS
showList :: [WatchCreateRequest'FilterType'UnrecognizedValue] -> ShowS
Prelude.Show)
data WatchCreateRequest'FilterType
  = WatchCreateRequest'NOPUT |
    WatchCreateRequest'NODELETE |
    WatchCreateRequest'FilterType'Unrecognized !WatchCreateRequest'FilterType'UnrecognizedValue
  deriving stock (Int -> WatchCreateRequest'FilterType -> ShowS
[WatchCreateRequest'FilterType] -> ShowS
WatchCreateRequest'FilterType -> String
(Int -> WatchCreateRequest'FilterType -> ShowS)
-> (WatchCreateRequest'FilterType -> String)
-> ([WatchCreateRequest'FilterType] -> ShowS)
-> Show WatchCreateRequest'FilterType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> WatchCreateRequest'FilterType -> ShowS
showsPrec :: Int -> WatchCreateRequest'FilterType -> ShowS
$cshow :: WatchCreateRequest'FilterType -> String
show :: WatchCreateRequest'FilterType -> String
$cshowList :: [WatchCreateRequest'FilterType] -> ShowS
showList :: [WatchCreateRequest'FilterType] -> ShowS
Prelude.Show, WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Bool
(WatchCreateRequest'FilterType
 -> WatchCreateRequest'FilterType -> Bool)
-> (WatchCreateRequest'FilterType
    -> WatchCreateRequest'FilterType -> Bool)
-> Eq WatchCreateRequest'FilterType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Bool
== :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Bool
$c/= :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Bool
/= :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Bool
Prelude.Eq, Eq WatchCreateRequest'FilterType
Eq WatchCreateRequest'FilterType =>
(WatchCreateRequest'FilterType
 -> WatchCreateRequest'FilterType -> Ordering)
-> (WatchCreateRequest'FilterType
    -> WatchCreateRequest'FilterType -> Bool)
-> (WatchCreateRequest'FilterType
    -> WatchCreateRequest'FilterType -> Bool)
-> (WatchCreateRequest'FilterType
    -> WatchCreateRequest'FilterType -> Bool)
-> (WatchCreateRequest'FilterType
    -> WatchCreateRequest'FilterType -> Bool)
-> (WatchCreateRequest'FilterType
    -> WatchCreateRequest'FilterType -> WatchCreateRequest'FilterType)
-> (WatchCreateRequest'FilterType
    -> WatchCreateRequest'FilterType -> WatchCreateRequest'FilterType)
-> Ord WatchCreateRequest'FilterType
WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Bool
WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Ordering
WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> WatchCreateRequest'FilterType
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 :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Ordering
compare :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Ordering
$c< :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Bool
< :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Bool
$c<= :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Bool
<= :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Bool
$c> :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Bool
> :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Bool
$c>= :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Bool
>= :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> Bool
$cmax :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> WatchCreateRequest'FilterType
max :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> WatchCreateRequest'FilterType
$cmin :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> WatchCreateRequest'FilterType
min :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> WatchCreateRequest'FilterType
Prelude.Ord)
instance Data.ProtoLens.MessageEnum WatchCreateRequest'FilterType where
  maybeToEnum :: Int -> Maybe WatchCreateRequest'FilterType
maybeToEnum Int
0 = WatchCreateRequest'FilterType
-> Maybe WatchCreateRequest'FilterType
forall a. a -> Maybe a
Prelude.Just WatchCreateRequest'FilterType
WatchCreateRequest'NOPUT
  maybeToEnum Int
1 = WatchCreateRequest'FilterType
-> Maybe WatchCreateRequest'FilterType
forall a. a -> Maybe a
Prelude.Just WatchCreateRequest'FilterType
WatchCreateRequest'NODELETE
  maybeToEnum Int
k
    = WatchCreateRequest'FilterType
-> Maybe WatchCreateRequest'FilterType
forall a. a -> Maybe a
Prelude.Just
        (WatchCreateRequest'FilterType'UnrecognizedValue
-> WatchCreateRequest'FilterType
WatchCreateRequest'FilterType'Unrecognized
           (Int32 -> WatchCreateRequest'FilterType'UnrecognizedValue
WatchCreateRequest'FilterType'UnrecognizedValue
              (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: WatchCreateRequest'FilterType -> String
showEnum WatchCreateRequest'FilterType
WatchCreateRequest'NOPUT = String
"NOPUT"
  showEnum WatchCreateRequest'FilterType
WatchCreateRequest'NODELETE = String
"NODELETE"
  showEnum
    (WatchCreateRequest'FilterType'Unrecognized (WatchCreateRequest'FilterType'UnrecognizedValue Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe WatchCreateRequest'FilterType
readEnum String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"NOPUT" = WatchCreateRequest'FilterType
-> Maybe WatchCreateRequest'FilterType
forall a. a -> Maybe a
Prelude.Just WatchCreateRequest'FilterType
WatchCreateRequest'NOPUT
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k String
"NODELETE"
    = WatchCreateRequest'FilterType
-> Maybe WatchCreateRequest'FilterType
forall a. a -> Maybe a
Prelude.Just WatchCreateRequest'FilterType
WatchCreateRequest'NODELETE
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe WatchCreateRequest'FilterType)
-> Maybe WatchCreateRequest'FilterType
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 WatchCreateRequest'FilterType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded WatchCreateRequest'FilterType where
  minBound :: WatchCreateRequest'FilterType
minBound = WatchCreateRequest'FilterType
WatchCreateRequest'NOPUT
  maxBound :: WatchCreateRequest'FilterType
maxBound = WatchCreateRequest'FilterType
WatchCreateRequest'NODELETE
instance Prelude.Enum WatchCreateRequest'FilterType where
  toEnum :: Int -> WatchCreateRequest'FilterType
toEnum Int
k__
    = WatchCreateRequest'FilterType
-> (WatchCreateRequest'FilterType -> WatchCreateRequest'FilterType)
-> Maybe WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> WatchCreateRequest'FilterType
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              String
"toEnum: unknown value for enum FilterType: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        WatchCreateRequest'FilterType -> WatchCreateRequest'FilterType
forall a. a -> a
Prelude.id (Int -> Maybe WatchCreateRequest'FilterType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: WatchCreateRequest'FilterType -> Int
fromEnum WatchCreateRequest'FilterType
WatchCreateRequest'NOPUT = Int
0
  fromEnum WatchCreateRequest'FilterType
WatchCreateRequest'NODELETE = Int
1
  fromEnum
    (WatchCreateRequest'FilterType'Unrecognized (WatchCreateRequest'FilterType'UnrecognizedValue Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: WatchCreateRequest'FilterType -> WatchCreateRequest'FilterType
succ WatchCreateRequest'FilterType
WatchCreateRequest'NODELETE
    = String -> WatchCreateRequest'FilterType
forall a. HasCallStack => String -> a
Prelude.error
        String
"WatchCreateRequest'FilterType.succ: bad argument WatchCreateRequest'NODELETE. This value would be out of bounds."
  succ WatchCreateRequest'FilterType
WatchCreateRequest'NOPUT = WatchCreateRequest'FilterType
WatchCreateRequest'NODELETE
  succ (WatchCreateRequest'FilterType'Unrecognized WatchCreateRequest'FilterType'UnrecognizedValue
_)
    = String -> WatchCreateRequest'FilterType
forall a. HasCallStack => String -> a
Prelude.error
        String
"WatchCreateRequest'FilterType.succ: bad argument: unrecognized value"
  pred :: WatchCreateRequest'FilterType -> WatchCreateRequest'FilterType
pred WatchCreateRequest'FilterType
WatchCreateRequest'NOPUT
    = String -> WatchCreateRequest'FilterType
forall a. HasCallStack => String -> a
Prelude.error
        String
"WatchCreateRequest'FilterType.pred: bad argument WatchCreateRequest'NOPUT. This value would be out of bounds."
  pred WatchCreateRequest'FilterType
WatchCreateRequest'NODELETE = WatchCreateRequest'FilterType
WatchCreateRequest'NOPUT
  pred (WatchCreateRequest'FilterType'Unrecognized WatchCreateRequest'FilterType'UnrecognizedValue
_)
    = String -> WatchCreateRequest'FilterType
forall a. HasCallStack => String -> a
Prelude.error
        String
"WatchCreateRequest'FilterType.pred: bad argument: unrecognized value"
  enumFrom :: WatchCreateRequest'FilterType -> [WatchCreateRequest'FilterType]
enumFrom = WatchCreateRequest'FilterType -> [WatchCreateRequest'FilterType]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> [WatchCreateRequest'FilterType]
enumFromTo = WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> [WatchCreateRequest'FilterType]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> [WatchCreateRequest'FilterType]
enumFromThen = WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType -> [WatchCreateRequest'FilterType]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType
-> [WatchCreateRequest'FilterType]
enumFromThenTo = WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType
-> WatchCreateRequest'FilterType
-> [WatchCreateRequest'FilterType]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault WatchCreateRequest'FilterType where
  fieldDefault :: WatchCreateRequest'FilterType
fieldDefault = WatchCreateRequest'FilterType
WatchCreateRequest'NOPUT
instance Control.DeepSeq.NFData WatchCreateRequest'FilterType where
  rnf :: WatchCreateRequest'FilterType -> ()
rnf WatchCreateRequest'FilterType
x__ = WatchCreateRequest'FilterType -> () -> ()
forall a b. a -> b -> b
Prelude.seq WatchCreateRequest'FilterType
x__ ()
{- | Fields :
      -}
data WatchProgressRequest
  = WatchProgressRequest'_constructor {WatchProgressRequest -> FieldSet
_WatchProgressRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WatchProgressRequest -> WatchProgressRequest -> Bool
(WatchProgressRequest -> WatchProgressRequest -> Bool)
-> (WatchProgressRequest -> WatchProgressRequest -> Bool)
-> Eq WatchProgressRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WatchProgressRequest -> WatchProgressRequest -> Bool
== :: WatchProgressRequest -> WatchProgressRequest -> Bool
$c/= :: WatchProgressRequest -> WatchProgressRequest -> Bool
/= :: WatchProgressRequest -> WatchProgressRequest -> Bool
Prelude.Eq, Eq WatchProgressRequest
Eq WatchProgressRequest =>
(WatchProgressRequest -> WatchProgressRequest -> Ordering)
-> (WatchProgressRequest -> WatchProgressRequest -> Bool)
-> (WatchProgressRequest -> WatchProgressRequest -> Bool)
-> (WatchProgressRequest -> WatchProgressRequest -> Bool)
-> (WatchProgressRequest -> WatchProgressRequest -> Bool)
-> (WatchProgressRequest
    -> WatchProgressRequest -> WatchProgressRequest)
-> (WatchProgressRequest
    -> WatchProgressRequest -> WatchProgressRequest)
-> Ord WatchProgressRequest
WatchProgressRequest -> WatchProgressRequest -> Bool
WatchProgressRequest -> WatchProgressRequest -> Ordering
WatchProgressRequest
-> WatchProgressRequest -> WatchProgressRequest
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 :: WatchProgressRequest -> WatchProgressRequest -> Ordering
compare :: WatchProgressRequest -> WatchProgressRequest -> Ordering
$c< :: WatchProgressRequest -> WatchProgressRequest -> Bool
< :: WatchProgressRequest -> WatchProgressRequest -> Bool
$c<= :: WatchProgressRequest -> WatchProgressRequest -> Bool
<= :: WatchProgressRequest -> WatchProgressRequest -> Bool
$c> :: WatchProgressRequest -> WatchProgressRequest -> Bool
> :: WatchProgressRequest -> WatchProgressRequest -> Bool
$c>= :: WatchProgressRequest -> WatchProgressRequest -> Bool
>= :: WatchProgressRequest -> WatchProgressRequest -> Bool
$cmax :: WatchProgressRequest
-> WatchProgressRequest -> WatchProgressRequest
max :: WatchProgressRequest
-> WatchProgressRequest -> WatchProgressRequest
$cmin :: WatchProgressRequest
-> WatchProgressRequest -> WatchProgressRequest
min :: WatchProgressRequest
-> WatchProgressRequest -> WatchProgressRequest
Prelude.Ord)
instance Prelude.Show WatchProgressRequest where
  showsPrec :: Int -> WatchProgressRequest -> ShowS
showsPrec Int
_ WatchProgressRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WatchProgressRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WatchProgressRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Message WatchProgressRequest where
  messageName :: Proxy WatchProgressRequest -> Text
messageName Proxy WatchProgressRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.WatchProgressRequest"
  packedMessageDescriptor :: Proxy WatchProgressRequest -> ByteString
packedMessageDescriptor Proxy WatchProgressRequest
_
    = ByteString
"\n\
      \\DC4WatchProgressRequest:\a\130\181\CAN\ETX3.4"
  packedFileDescriptor :: Proxy WatchProgressRequest -> ByteString
packedFileDescriptor Proxy WatchProgressRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WatchProgressRequest)
fieldsByTag = let in [(Tag, FieldDescriptor WatchProgressRequest)]
-> Map Tag (FieldDescriptor WatchProgressRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList []
  unknownFields :: Lens' WatchProgressRequest FieldSet
unknownFields
    = (WatchProgressRequest -> FieldSet)
-> (WatchProgressRequest -> FieldSet -> WatchProgressRequest)
-> Lens' WatchProgressRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WatchProgressRequest -> FieldSet
_WatchProgressRequest'_unknownFields
        (\ WatchProgressRequest
x__ FieldSet
y__ -> WatchProgressRequest
x__ {_WatchProgressRequest'_unknownFields = y__})
  defMessage :: WatchProgressRequest
defMessage
    = WatchProgressRequest'_constructor
        {_WatchProgressRequest'_unknownFields :: FieldSet
_WatchProgressRequest'_unknownFields = []}
  parseMessage :: Parser WatchProgressRequest
parseMessage
    = let
        loop ::
          WatchProgressRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser WatchProgressRequest
        loop :: WatchProgressRequest -> Parser WatchProgressRequest
loop WatchProgressRequest
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
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 WatchProgressRequest
-> String -> Parser WatchProgressRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WatchProgressRequest -> Parser WatchProgressRequest
loop WatchProgressRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WatchProgressRequest"
  buildMessage :: WatchProgressRequest -> Builder
buildMessage
    = \ WatchProgressRequest
_x
        -> FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
             (FoldLike
  FieldSet
  WatchProgressRequest
  WatchProgressRequest
  FieldSet
  FieldSet
-> WatchProgressRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  WatchProgressRequest
  WatchProgressRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WatchProgressRequest FieldSet
Data.ProtoLens.unknownFields WatchProgressRequest
_x)
instance Control.DeepSeq.NFData WatchProgressRequest where
  rnf :: WatchProgressRequest -> ()
rnf
    = \ WatchProgressRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WatchProgressRequest -> FieldSet
_WatchProgressRequest'_unknownFields WatchProgressRequest
x__) ()
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'requestUnion' @:: Lens' WatchRequest (Prelude.Maybe WatchRequest'RequestUnion)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'createRequest' @:: Lens' WatchRequest (Prelude.Maybe WatchCreateRequest)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.createRequest' @:: Lens' WatchRequest WatchCreateRequest@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'cancelRequest' @:: Lens' WatchRequest (Prelude.Maybe WatchCancelRequest)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.cancelRequest' @:: Lens' WatchRequest WatchCancelRequest@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'progressRequest' @:: Lens' WatchRequest (Prelude.Maybe WatchProgressRequest)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.progressRequest' @:: Lens' WatchRequest WatchProgressRequest@ -}
data WatchRequest
  = WatchRequest'_constructor {WatchRequest -> Maybe WatchRequest'RequestUnion
_WatchRequest'requestUnion :: !(Prelude.Maybe WatchRequest'RequestUnion),
                               WatchRequest -> FieldSet
_WatchRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WatchRequest -> WatchRequest -> Bool
(WatchRequest -> WatchRequest -> Bool)
-> (WatchRequest -> WatchRequest -> Bool) -> Eq WatchRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WatchRequest -> WatchRequest -> Bool
== :: WatchRequest -> WatchRequest -> Bool
$c/= :: WatchRequest -> WatchRequest -> Bool
/= :: WatchRequest -> WatchRequest -> Bool
Prelude.Eq, Eq WatchRequest
Eq WatchRequest =>
(WatchRequest -> WatchRequest -> Ordering)
-> (WatchRequest -> WatchRequest -> Bool)
-> (WatchRequest -> WatchRequest -> Bool)
-> (WatchRequest -> WatchRequest -> Bool)
-> (WatchRequest -> WatchRequest -> Bool)
-> (WatchRequest -> WatchRequest -> WatchRequest)
-> (WatchRequest -> WatchRequest -> WatchRequest)
-> Ord WatchRequest
WatchRequest -> WatchRequest -> Bool
WatchRequest -> WatchRequest -> Ordering
WatchRequest -> WatchRequest -> WatchRequest
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 :: WatchRequest -> WatchRequest -> Ordering
compare :: WatchRequest -> WatchRequest -> Ordering
$c< :: WatchRequest -> WatchRequest -> Bool
< :: WatchRequest -> WatchRequest -> Bool
$c<= :: WatchRequest -> WatchRequest -> Bool
<= :: WatchRequest -> WatchRequest -> Bool
$c> :: WatchRequest -> WatchRequest -> Bool
> :: WatchRequest -> WatchRequest -> Bool
$c>= :: WatchRequest -> WatchRequest -> Bool
>= :: WatchRequest -> WatchRequest -> Bool
$cmax :: WatchRequest -> WatchRequest -> WatchRequest
max :: WatchRequest -> WatchRequest -> WatchRequest
$cmin :: WatchRequest -> WatchRequest -> WatchRequest
min :: WatchRequest -> WatchRequest -> WatchRequest
Prelude.Ord)
instance Prelude.Show WatchRequest where
  showsPrec :: Int -> WatchRequest -> ShowS
showsPrec Int
_ WatchRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WatchRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WatchRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data WatchRequest'RequestUnion
  = WatchRequest'CreateRequest !WatchCreateRequest |
    WatchRequest'CancelRequest !WatchCancelRequest |
    WatchRequest'ProgressRequest !WatchProgressRequest
  deriving stock (Int -> WatchRequest'RequestUnion -> ShowS
[WatchRequest'RequestUnion] -> ShowS
WatchRequest'RequestUnion -> String
(Int -> WatchRequest'RequestUnion -> ShowS)
-> (WatchRequest'RequestUnion -> String)
-> ([WatchRequest'RequestUnion] -> ShowS)
-> Show WatchRequest'RequestUnion
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> WatchRequest'RequestUnion -> ShowS
showsPrec :: Int -> WatchRequest'RequestUnion -> ShowS
$cshow :: WatchRequest'RequestUnion -> String
show :: WatchRequest'RequestUnion -> String
$cshowList :: [WatchRequest'RequestUnion] -> ShowS
showList :: [WatchRequest'RequestUnion] -> ShowS
Prelude.Show, WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool
(WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool)
-> (WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool)
-> Eq WatchRequest'RequestUnion
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool
== :: WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool
$c/= :: WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool
/= :: WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool
Prelude.Eq, Eq WatchRequest'RequestUnion
Eq WatchRequest'RequestUnion =>
(WatchRequest'RequestUnion
 -> WatchRequest'RequestUnion -> Ordering)
-> (WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool)
-> (WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool)
-> (WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool)
-> (WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool)
-> (WatchRequest'RequestUnion
    -> WatchRequest'RequestUnion -> WatchRequest'RequestUnion)
-> (WatchRequest'RequestUnion
    -> WatchRequest'RequestUnion -> WatchRequest'RequestUnion)
-> Ord WatchRequest'RequestUnion
WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool
WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Ordering
WatchRequest'RequestUnion
-> WatchRequest'RequestUnion -> WatchRequest'RequestUnion
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 :: WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Ordering
compare :: WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Ordering
$c< :: WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool
< :: WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool
$c<= :: WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool
<= :: WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool
$c> :: WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool
> :: WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool
$c>= :: WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool
>= :: WatchRequest'RequestUnion -> WatchRequest'RequestUnion -> Bool
$cmax :: WatchRequest'RequestUnion
-> WatchRequest'RequestUnion -> WatchRequest'RequestUnion
max :: WatchRequest'RequestUnion
-> WatchRequest'RequestUnion -> WatchRequest'RequestUnion
$cmin :: WatchRequest'RequestUnion
-> WatchRequest'RequestUnion -> WatchRequest'RequestUnion
min :: WatchRequest'RequestUnion
-> WatchRequest'RequestUnion -> WatchRequest'RequestUnion
Prelude.Ord)
instance Data.ProtoLens.Field.HasField WatchRequest "maybe'requestUnion" (Prelude.Maybe WatchRequest'RequestUnion) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'requestUnion"
-> (Maybe WatchRequest'RequestUnion
    -> f (Maybe WatchRequest'RequestUnion))
-> WatchRequest
-> f WatchRequest
fieldOf Proxy# "maybe'requestUnion"
_
    = ((Maybe WatchRequest'RequestUnion
  -> f (Maybe WatchRequest'RequestUnion))
 -> WatchRequest -> f WatchRequest)
-> ((Maybe WatchRequest'RequestUnion
     -> f (Maybe WatchRequest'RequestUnion))
    -> Maybe WatchRequest'RequestUnion
    -> f (Maybe WatchRequest'RequestUnion))
-> (Maybe WatchRequest'RequestUnion
    -> f (Maybe WatchRequest'RequestUnion))
-> WatchRequest
-> f WatchRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchRequest -> Maybe WatchRequest'RequestUnion)
-> (WatchRequest
    -> Maybe WatchRequest'RequestUnion -> WatchRequest)
-> Lens
     WatchRequest
     WatchRequest
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchRequest'RequestUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchRequest -> Maybe WatchRequest'RequestUnion
_WatchRequest'requestUnion
           (\ WatchRequest
x__ Maybe WatchRequest'RequestUnion
y__ -> WatchRequest
x__ {_WatchRequest'requestUnion = y__}))
        (Maybe WatchRequest'RequestUnion
 -> f (Maybe WatchRequest'RequestUnion))
-> Maybe WatchRequest'RequestUnion
-> f (Maybe WatchRequest'RequestUnion)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchRequest "maybe'createRequest" (Prelude.Maybe WatchCreateRequest) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'createRequest"
-> (Maybe WatchCreateRequest -> f (Maybe WatchCreateRequest))
-> WatchRequest
-> f WatchRequest
fieldOf Proxy# "maybe'createRequest"
_
    = ((Maybe WatchRequest'RequestUnion
  -> f (Maybe WatchRequest'RequestUnion))
 -> WatchRequest -> f WatchRequest)
-> ((Maybe WatchCreateRequest -> f (Maybe WatchCreateRequest))
    -> Maybe WatchRequest'RequestUnion
    -> f (Maybe WatchRequest'RequestUnion))
-> (Maybe WatchCreateRequest -> f (Maybe WatchCreateRequest))
-> WatchRequest
-> f WatchRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchRequest -> Maybe WatchRequest'RequestUnion)
-> (WatchRequest
    -> Maybe WatchRequest'RequestUnion -> WatchRequest)
-> Lens
     WatchRequest
     WatchRequest
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchRequest'RequestUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchRequest -> Maybe WatchRequest'RequestUnion
_WatchRequest'requestUnion
           (\ WatchRequest
x__ Maybe WatchRequest'RequestUnion
y__ -> WatchRequest
x__ {_WatchRequest'requestUnion = y__}))
        ((Maybe WatchRequest'RequestUnion -> Maybe WatchCreateRequest)
-> (Maybe WatchRequest'RequestUnion
    -> Maybe WatchCreateRequest -> Maybe WatchRequest'RequestUnion)
-> Lens
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchCreateRequest)
     (Maybe WatchCreateRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe WatchRequest'RequestUnion
x__
              -> case Maybe WatchRequest'RequestUnion
x__ of
                   (Prelude.Just (WatchRequest'CreateRequest WatchCreateRequest
x__val))
                     -> WatchCreateRequest -> Maybe WatchCreateRequest
forall a. a -> Maybe a
Prelude.Just WatchCreateRequest
x__val
                   Maybe WatchRequest'RequestUnion
_otherwise -> Maybe WatchCreateRequest
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe WatchRequest'RequestUnion
_ Maybe WatchCreateRequest
y__ -> (WatchCreateRequest -> WatchRequest'RequestUnion)
-> Maybe WatchCreateRequest -> Maybe WatchRequest'RequestUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap WatchCreateRequest -> WatchRequest'RequestUnion
WatchRequest'CreateRequest Maybe WatchCreateRequest
y__))
instance Data.ProtoLens.Field.HasField WatchRequest "createRequest" WatchCreateRequest where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "createRequest"
-> (WatchCreateRequest -> f WatchCreateRequest)
-> WatchRequest
-> f WatchRequest
fieldOf Proxy# "createRequest"
_
    = ((Maybe WatchRequest'RequestUnion
  -> f (Maybe WatchRequest'RequestUnion))
 -> WatchRequest -> f WatchRequest)
-> ((WatchCreateRequest -> f WatchCreateRequest)
    -> Maybe WatchRequest'RequestUnion
    -> f (Maybe WatchRequest'RequestUnion))
-> (WatchCreateRequest -> f WatchCreateRequest)
-> WatchRequest
-> f WatchRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchRequest -> Maybe WatchRequest'RequestUnion)
-> (WatchRequest
    -> Maybe WatchRequest'RequestUnion -> WatchRequest)
-> Lens
     WatchRequest
     WatchRequest
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchRequest'RequestUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchRequest -> Maybe WatchRequest'RequestUnion
_WatchRequest'requestUnion
           (\ WatchRequest
x__ Maybe WatchRequest'RequestUnion
y__ -> WatchRequest
x__ {_WatchRequest'requestUnion = y__}))
        (((Maybe WatchCreateRequest -> f (Maybe WatchCreateRequest))
 -> Maybe WatchRequest'RequestUnion
 -> f (Maybe WatchRequest'RequestUnion))
-> ((WatchCreateRequest -> f WatchCreateRequest)
    -> Maybe WatchCreateRequest -> f (Maybe WatchCreateRequest))
-> (WatchCreateRequest -> f WatchCreateRequest)
-> Maybe WatchRequest'RequestUnion
-> f (Maybe WatchRequest'RequestUnion)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe WatchRequest'RequestUnion -> Maybe WatchCreateRequest)
-> (Maybe WatchRequest'RequestUnion
    -> Maybe WatchCreateRequest -> Maybe WatchRequest'RequestUnion)
-> Lens
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchCreateRequest)
     (Maybe WatchCreateRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe WatchRequest'RequestUnion
x__
                 -> case Maybe WatchRequest'RequestUnion
x__ of
                      (Prelude.Just (WatchRequest'CreateRequest WatchCreateRequest
x__val))
                        -> WatchCreateRequest -> Maybe WatchCreateRequest
forall a. a -> Maybe a
Prelude.Just WatchCreateRequest
x__val
                      Maybe WatchRequest'RequestUnion
_otherwise -> Maybe WatchCreateRequest
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe WatchRequest'RequestUnion
_ Maybe WatchCreateRequest
y__ -> (WatchCreateRequest -> WatchRequest'RequestUnion)
-> Maybe WatchCreateRequest -> Maybe WatchRequest'RequestUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap WatchCreateRequest -> WatchRequest'RequestUnion
WatchRequest'CreateRequest Maybe WatchCreateRequest
y__))
           (WatchCreateRequest
-> Lens' (Maybe WatchCreateRequest) WatchCreateRequest
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens WatchCreateRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField WatchRequest "maybe'cancelRequest" (Prelude.Maybe WatchCancelRequest) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'cancelRequest"
-> (Maybe WatchCancelRequest -> f (Maybe WatchCancelRequest))
-> WatchRequest
-> f WatchRequest
fieldOf Proxy# "maybe'cancelRequest"
_
    = ((Maybe WatchRequest'RequestUnion
  -> f (Maybe WatchRequest'RequestUnion))
 -> WatchRequest -> f WatchRequest)
-> ((Maybe WatchCancelRequest -> f (Maybe WatchCancelRequest))
    -> Maybe WatchRequest'RequestUnion
    -> f (Maybe WatchRequest'RequestUnion))
-> (Maybe WatchCancelRequest -> f (Maybe WatchCancelRequest))
-> WatchRequest
-> f WatchRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchRequest -> Maybe WatchRequest'RequestUnion)
-> (WatchRequest
    -> Maybe WatchRequest'RequestUnion -> WatchRequest)
-> Lens
     WatchRequest
     WatchRequest
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchRequest'RequestUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchRequest -> Maybe WatchRequest'RequestUnion
_WatchRequest'requestUnion
           (\ WatchRequest
x__ Maybe WatchRequest'RequestUnion
y__ -> WatchRequest
x__ {_WatchRequest'requestUnion = y__}))
        ((Maybe WatchRequest'RequestUnion -> Maybe WatchCancelRequest)
-> (Maybe WatchRequest'RequestUnion
    -> Maybe WatchCancelRequest -> Maybe WatchRequest'RequestUnion)
-> Lens
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchCancelRequest)
     (Maybe WatchCancelRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe WatchRequest'RequestUnion
x__
              -> case Maybe WatchRequest'RequestUnion
x__ of
                   (Prelude.Just (WatchRequest'CancelRequest WatchCancelRequest
x__val))
                     -> WatchCancelRequest -> Maybe WatchCancelRequest
forall a. a -> Maybe a
Prelude.Just WatchCancelRequest
x__val
                   Maybe WatchRequest'RequestUnion
_otherwise -> Maybe WatchCancelRequest
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe WatchRequest'RequestUnion
_ Maybe WatchCancelRequest
y__ -> (WatchCancelRequest -> WatchRequest'RequestUnion)
-> Maybe WatchCancelRequest -> Maybe WatchRequest'RequestUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap WatchCancelRequest -> WatchRequest'RequestUnion
WatchRequest'CancelRequest Maybe WatchCancelRequest
y__))
instance Data.ProtoLens.Field.HasField WatchRequest "cancelRequest" WatchCancelRequest where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cancelRequest"
-> (WatchCancelRequest -> f WatchCancelRequest)
-> WatchRequest
-> f WatchRequest
fieldOf Proxy# "cancelRequest"
_
    = ((Maybe WatchRequest'RequestUnion
  -> f (Maybe WatchRequest'RequestUnion))
 -> WatchRequest -> f WatchRequest)
-> ((WatchCancelRequest -> f WatchCancelRequest)
    -> Maybe WatchRequest'RequestUnion
    -> f (Maybe WatchRequest'RequestUnion))
-> (WatchCancelRequest -> f WatchCancelRequest)
-> WatchRequest
-> f WatchRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchRequest -> Maybe WatchRequest'RequestUnion)
-> (WatchRequest
    -> Maybe WatchRequest'RequestUnion -> WatchRequest)
-> Lens
     WatchRequest
     WatchRequest
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchRequest'RequestUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchRequest -> Maybe WatchRequest'RequestUnion
_WatchRequest'requestUnion
           (\ WatchRequest
x__ Maybe WatchRequest'RequestUnion
y__ -> WatchRequest
x__ {_WatchRequest'requestUnion = y__}))
        (((Maybe WatchCancelRequest -> f (Maybe WatchCancelRequest))
 -> Maybe WatchRequest'RequestUnion
 -> f (Maybe WatchRequest'RequestUnion))
-> ((WatchCancelRequest -> f WatchCancelRequest)
    -> Maybe WatchCancelRequest -> f (Maybe WatchCancelRequest))
-> (WatchCancelRequest -> f WatchCancelRequest)
-> Maybe WatchRequest'RequestUnion
-> f (Maybe WatchRequest'RequestUnion)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe WatchRequest'RequestUnion -> Maybe WatchCancelRequest)
-> (Maybe WatchRequest'RequestUnion
    -> Maybe WatchCancelRequest -> Maybe WatchRequest'RequestUnion)
-> Lens
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchCancelRequest)
     (Maybe WatchCancelRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe WatchRequest'RequestUnion
x__
                 -> case Maybe WatchRequest'RequestUnion
x__ of
                      (Prelude.Just (WatchRequest'CancelRequest WatchCancelRequest
x__val))
                        -> WatchCancelRequest -> Maybe WatchCancelRequest
forall a. a -> Maybe a
Prelude.Just WatchCancelRequest
x__val
                      Maybe WatchRequest'RequestUnion
_otherwise -> Maybe WatchCancelRequest
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe WatchRequest'RequestUnion
_ Maybe WatchCancelRequest
y__ -> (WatchCancelRequest -> WatchRequest'RequestUnion)
-> Maybe WatchCancelRequest -> Maybe WatchRequest'RequestUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap WatchCancelRequest -> WatchRequest'RequestUnion
WatchRequest'CancelRequest Maybe WatchCancelRequest
y__))
           (WatchCancelRequest
-> Lens' (Maybe WatchCancelRequest) WatchCancelRequest
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens WatchCancelRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField WatchRequest "maybe'progressRequest" (Prelude.Maybe WatchProgressRequest) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'progressRequest"
-> (Maybe WatchProgressRequest -> f (Maybe WatchProgressRequest))
-> WatchRequest
-> f WatchRequest
fieldOf Proxy# "maybe'progressRequest"
_
    = ((Maybe WatchRequest'RequestUnion
  -> f (Maybe WatchRequest'RequestUnion))
 -> WatchRequest -> f WatchRequest)
-> ((Maybe WatchProgressRequest -> f (Maybe WatchProgressRequest))
    -> Maybe WatchRequest'RequestUnion
    -> f (Maybe WatchRequest'RequestUnion))
-> (Maybe WatchProgressRequest -> f (Maybe WatchProgressRequest))
-> WatchRequest
-> f WatchRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchRequest -> Maybe WatchRequest'RequestUnion)
-> (WatchRequest
    -> Maybe WatchRequest'RequestUnion -> WatchRequest)
-> Lens
     WatchRequest
     WatchRequest
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchRequest'RequestUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchRequest -> Maybe WatchRequest'RequestUnion
_WatchRequest'requestUnion
           (\ WatchRequest
x__ Maybe WatchRequest'RequestUnion
y__ -> WatchRequest
x__ {_WatchRequest'requestUnion = y__}))
        ((Maybe WatchRequest'RequestUnion -> Maybe WatchProgressRequest)
-> (Maybe WatchRequest'RequestUnion
    -> Maybe WatchProgressRequest -> Maybe WatchRequest'RequestUnion)
-> Lens
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchProgressRequest)
     (Maybe WatchProgressRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe WatchRequest'RequestUnion
x__
              -> case Maybe WatchRequest'RequestUnion
x__ of
                   (Prelude.Just (WatchRequest'ProgressRequest WatchProgressRequest
x__val))
                     -> WatchProgressRequest -> Maybe WatchProgressRequest
forall a. a -> Maybe a
Prelude.Just WatchProgressRequest
x__val
                   Maybe WatchRequest'RequestUnion
_otherwise -> Maybe WatchProgressRequest
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe WatchRequest'RequestUnion
_ Maybe WatchProgressRequest
y__ -> (WatchProgressRequest -> WatchRequest'RequestUnion)
-> Maybe WatchProgressRequest -> Maybe WatchRequest'RequestUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap WatchProgressRequest -> WatchRequest'RequestUnion
WatchRequest'ProgressRequest Maybe WatchProgressRequest
y__))
instance Data.ProtoLens.Field.HasField WatchRequest "progressRequest" WatchProgressRequest where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "progressRequest"
-> (WatchProgressRequest -> f WatchProgressRequest)
-> WatchRequest
-> f WatchRequest
fieldOf Proxy# "progressRequest"
_
    = ((Maybe WatchRequest'RequestUnion
  -> f (Maybe WatchRequest'RequestUnion))
 -> WatchRequest -> f WatchRequest)
-> ((WatchProgressRequest -> f WatchProgressRequest)
    -> Maybe WatchRequest'RequestUnion
    -> f (Maybe WatchRequest'RequestUnion))
-> (WatchProgressRequest -> f WatchProgressRequest)
-> WatchRequest
-> f WatchRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchRequest -> Maybe WatchRequest'RequestUnion)
-> (WatchRequest
    -> Maybe WatchRequest'RequestUnion -> WatchRequest)
-> Lens
     WatchRequest
     WatchRequest
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchRequest'RequestUnion)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchRequest -> Maybe WatchRequest'RequestUnion
_WatchRequest'requestUnion
           (\ WatchRequest
x__ Maybe WatchRequest'RequestUnion
y__ -> WatchRequest
x__ {_WatchRequest'requestUnion = y__}))
        (((Maybe WatchProgressRequest -> f (Maybe WatchProgressRequest))
 -> Maybe WatchRequest'RequestUnion
 -> f (Maybe WatchRequest'RequestUnion))
-> ((WatchProgressRequest -> f WatchProgressRequest)
    -> Maybe WatchProgressRequest -> f (Maybe WatchProgressRequest))
-> (WatchProgressRequest -> f WatchProgressRequest)
-> Maybe WatchRequest'RequestUnion
-> f (Maybe WatchRequest'RequestUnion)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe WatchRequest'RequestUnion -> Maybe WatchProgressRequest)
-> (Maybe WatchRequest'RequestUnion
    -> Maybe WatchProgressRequest -> Maybe WatchRequest'RequestUnion)
-> Lens
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchRequest'RequestUnion)
     (Maybe WatchProgressRequest)
     (Maybe WatchProgressRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe WatchRequest'RequestUnion
x__
                 -> case Maybe WatchRequest'RequestUnion
x__ of
                      (Prelude.Just (WatchRequest'ProgressRequest WatchProgressRequest
x__val))
                        -> WatchProgressRequest -> Maybe WatchProgressRequest
forall a. a -> Maybe a
Prelude.Just WatchProgressRequest
x__val
                      Maybe WatchRequest'RequestUnion
_otherwise -> Maybe WatchProgressRequest
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe WatchRequest'RequestUnion
_ Maybe WatchProgressRequest
y__ -> (WatchProgressRequest -> WatchRequest'RequestUnion)
-> Maybe WatchProgressRequest -> Maybe WatchRequest'RequestUnion
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap WatchProgressRequest -> WatchRequest'RequestUnion
WatchRequest'ProgressRequest Maybe WatchProgressRequest
y__))
           (WatchProgressRequest
-> Lens' (Maybe WatchProgressRequest) WatchProgressRequest
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens WatchProgressRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message WatchRequest where
  messageName :: Proxy WatchRequest -> Text
messageName Proxy WatchRequest
_ = String -> Text
Data.Text.pack String
"etcdserverpb.WatchRequest"
  packedMessageDescriptor :: Proxy WatchRequest -> ByteString
packedMessageDescriptor Proxy WatchRequest
_
    = ByteString
"\n\
      \\fWatchRequest\DC2I\n\
      \\SOcreate_request\CAN\SOH \SOH(\v2 .etcdserverpb.WatchCreateRequestH\NULR\rcreateRequest\DC2I\n\
      \\SOcancel_request\CAN\STX \SOH(\v2 .etcdserverpb.WatchCancelRequestH\NULR\rcancelRequest\DC2X\n\
      \\DLEprogress_request\CAN\ETX \SOH(\v2\".etcdserverpb.WatchProgressRequestH\NULR\SIprogressRequestB\a\138\181\CAN\ETX3.4B\SI\n\
      \\rrequest_union:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy WatchRequest -> ByteString
packedFileDescriptor Proxy WatchRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WatchRequest)
fieldsByTag
    = let
        createRequest__field_descriptor :: FieldDescriptor WatchRequest
createRequest__field_descriptor
          = String
-> FieldTypeDescriptor WatchCreateRequest
-> FieldAccessor WatchRequest WatchCreateRequest
-> FieldDescriptor WatchRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"create_request"
              (MessageOrGroup -> FieldTypeDescriptor WatchCreateRequest
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor WatchCreateRequest)
              (Lens' WatchRequest (Maybe WatchCreateRequest)
-> FieldAccessor WatchRequest WatchCreateRequest
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'createRequest")) ::
              Data.ProtoLens.FieldDescriptor WatchRequest
        cancelRequest__field_descriptor :: FieldDescriptor WatchRequest
cancelRequest__field_descriptor
          = String
-> FieldTypeDescriptor WatchCancelRequest
-> FieldAccessor WatchRequest WatchCancelRequest
-> FieldDescriptor WatchRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cancel_request"
              (MessageOrGroup -> FieldTypeDescriptor WatchCancelRequest
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor WatchCancelRequest)
              (Lens' WatchRequest (Maybe WatchCancelRequest)
-> FieldAccessor WatchRequest WatchCancelRequest
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'cancelRequest")) ::
              Data.ProtoLens.FieldDescriptor WatchRequest
        progressRequest__field_descriptor :: FieldDescriptor WatchRequest
progressRequest__field_descriptor
          = String
-> FieldTypeDescriptor WatchProgressRequest
-> FieldAccessor WatchRequest WatchProgressRequest
-> FieldDescriptor WatchRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"progress_request"
              (MessageOrGroup -> FieldTypeDescriptor WatchProgressRequest
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor WatchProgressRequest)
              (Lens' WatchRequest (Maybe WatchProgressRequest)
-> FieldAccessor WatchRequest WatchProgressRequest
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'progressRequest")) ::
              Data.ProtoLens.FieldDescriptor WatchRequest
      in
        [(Tag, FieldDescriptor WatchRequest)]
-> Map Tag (FieldDescriptor WatchRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WatchRequest
createRequest__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor WatchRequest
cancelRequest__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor WatchRequest
progressRequest__field_descriptor)]
  unknownFields :: Lens' WatchRequest FieldSet
unknownFields
    = (WatchRequest -> FieldSet)
-> (WatchRequest -> FieldSet -> WatchRequest)
-> Lens' WatchRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WatchRequest -> FieldSet
_WatchRequest'_unknownFields
        (\ WatchRequest
x__ FieldSet
y__ -> WatchRequest
x__ {_WatchRequest'_unknownFields = y__})
  defMessage :: WatchRequest
defMessage
    = WatchRequest'_constructor
        {_WatchRequest'requestUnion :: Maybe WatchRequest'RequestUnion
_WatchRequest'requestUnion = Maybe WatchRequest'RequestUnion
forall a. Maybe a
Prelude.Nothing,
         _WatchRequest'_unknownFields :: FieldSet
_WatchRequest'_unknownFields = []}
  parseMessage :: Parser WatchRequest
parseMessage
    = let
        loop ::
          WatchRequest -> Data.ProtoLens.Encoding.Bytes.Parser WatchRequest
        loop :: WatchRequest -> Parser WatchRequest
loop WatchRequest
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 WatchCreateRequest -> String -> Parser WatchCreateRequest
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
"create_request"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"createRequest") y x)
                        Word64
18
                          -> do y <- Parser WatchCancelRequest -> String -> Parser WatchCancelRequest
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
"cancel_request"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"cancelRequest") y x)
                        Word64
26
                          -> do y <- Parser WatchProgressRequest
-> String -> Parser WatchProgressRequest
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
"progress_request"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"progressRequest") 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 WatchRequest -> String -> Parser WatchRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do WatchRequest -> Parser WatchRequest
loop WatchRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"WatchRequest"
  buildMessage :: WatchRequest -> Builder
buildMessage
    = \ WatchRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe WatchRequest'RequestUnion)
  WatchRequest
  WatchRequest
  (Maybe WatchRequest'RequestUnion)
  (Maybe WatchRequest'RequestUnion)
-> WatchRequest -> Maybe WatchRequest'RequestUnion
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'requestUnion") WatchRequest
_x
              of
                Maybe WatchRequest'RequestUnion
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (WatchRequest'CreateRequest WatchCreateRequest
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (WatchCreateRequest -> ByteString)
-> WatchCreateRequest
-> 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))
                          WatchCreateRequest -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WatchCreateRequest
v)
                (Prelude.Just (WatchRequest'CancelRequest WatchCancelRequest
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                       ((ByteString -> Builder)
-> (WatchCancelRequest -> ByteString)
-> WatchCancelRequest
-> 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))
                          WatchCancelRequest -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WatchCancelRequest
v)
                (Prelude.Just (WatchRequest'ProgressRequest WatchProgressRequest
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                       ((ByteString -> Builder)
-> (WatchProgressRequest -> ByteString)
-> WatchProgressRequest
-> 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))
                          WatchProgressRequest -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage WatchProgressRequest
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet WatchRequest WatchRequest FieldSet FieldSet
-> WatchRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet WatchRequest WatchRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WatchRequest FieldSet
Data.ProtoLens.unknownFields WatchRequest
_x))
instance Control.DeepSeq.NFData WatchRequest where
  rnf :: WatchRequest -> ()
rnf
    = \ WatchRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WatchRequest -> FieldSet
_WatchRequest'_unknownFields WatchRequest
x__)
             (Maybe WatchRequest'RequestUnion -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WatchRequest -> Maybe WatchRequest'RequestUnion
_WatchRequest'requestUnion WatchRequest
x__) ())
instance Control.DeepSeq.NFData WatchRequest'RequestUnion where
  rnf :: WatchRequest'RequestUnion -> ()
rnf (WatchRequest'CreateRequest WatchCreateRequest
x__) = WatchCreateRequest -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf WatchCreateRequest
x__
  rnf (WatchRequest'CancelRequest WatchCancelRequest
x__) = WatchCancelRequest -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf WatchCancelRequest
x__
  rnf (WatchRequest'ProgressRequest WatchProgressRequest
x__) = WatchProgressRequest -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf WatchProgressRequest
x__
_WatchRequest'CreateRequest ::
  Data.ProtoLens.Prism.Prism' WatchRequest'RequestUnion WatchCreateRequest
_WatchRequest'CreateRequest :: Prism' WatchRequest'RequestUnion WatchCreateRequest
_WatchRequest'CreateRequest
  = (WatchCreateRequest -> WatchRequest'RequestUnion)
-> (WatchRequest'RequestUnion -> Maybe WatchCreateRequest)
-> Prism' WatchRequest'RequestUnion WatchCreateRequest
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      WatchCreateRequest -> WatchRequest'RequestUnion
WatchRequest'CreateRequest
      (\ WatchRequest'RequestUnion
p__
         -> case WatchRequest'RequestUnion
p__ of
              (WatchRequest'CreateRequest WatchCreateRequest
p__val) -> WatchCreateRequest -> Maybe WatchCreateRequest
forall a. a -> Maybe a
Prelude.Just WatchCreateRequest
p__val
              WatchRequest'RequestUnion
_otherwise -> Maybe WatchCreateRequest
forall a. Maybe a
Prelude.Nothing)
_WatchRequest'CancelRequest ::
  Data.ProtoLens.Prism.Prism' WatchRequest'RequestUnion WatchCancelRequest
_WatchRequest'CancelRequest :: Prism' WatchRequest'RequestUnion WatchCancelRequest
_WatchRequest'CancelRequest
  = (WatchCancelRequest -> WatchRequest'RequestUnion)
-> (WatchRequest'RequestUnion -> Maybe WatchCancelRequest)
-> Prism' WatchRequest'RequestUnion WatchCancelRequest
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      WatchCancelRequest -> WatchRequest'RequestUnion
WatchRequest'CancelRequest
      (\ WatchRequest'RequestUnion
p__
         -> case WatchRequest'RequestUnion
p__ of
              (WatchRequest'CancelRequest WatchCancelRequest
p__val) -> WatchCancelRequest -> Maybe WatchCancelRequest
forall a. a -> Maybe a
Prelude.Just WatchCancelRequest
p__val
              WatchRequest'RequestUnion
_otherwise -> Maybe WatchCancelRequest
forall a. Maybe a
Prelude.Nothing)
_WatchRequest'ProgressRequest ::
  Data.ProtoLens.Prism.Prism' WatchRequest'RequestUnion WatchProgressRequest
_WatchRequest'ProgressRequest :: Prism' WatchRequest'RequestUnion WatchProgressRequest
_WatchRequest'ProgressRequest
  = (WatchProgressRequest -> WatchRequest'RequestUnion)
-> (WatchRequest'RequestUnion -> Maybe WatchProgressRequest)
-> Prism' WatchRequest'RequestUnion WatchProgressRequest
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      WatchProgressRequest -> WatchRequest'RequestUnion
WatchRequest'ProgressRequest
      (\ WatchRequest'RequestUnion
p__
         -> case WatchRequest'RequestUnion
p__ of
              (WatchRequest'ProgressRequest WatchProgressRequest
p__val) -> WatchProgressRequest -> Maybe WatchProgressRequest
forall a. a -> Maybe a
Prelude.Just WatchProgressRequest
p__val
              WatchRequest'RequestUnion
_otherwise -> Maybe WatchProgressRequest
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.header' @:: Lens' WatchResponse ResponseHeader@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' WatchResponse (Prelude.Maybe ResponseHeader)@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.watchId' @:: Lens' WatchResponse Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.created' @:: Lens' WatchResponse Prelude.Bool@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.canceled' @:: Lens' WatchResponse Prelude.Bool@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.compactRevision' @:: Lens' WatchResponse Data.Int.Int64@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.cancelReason' @:: Lens' WatchResponse Data.Text.Text@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.fragment' @:: Lens' WatchResponse Prelude.Bool@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.events' @:: Lens' WatchResponse [Proto.Etcd.Api.Mvccpb.Kv.Event]@
         * 'Proto.Etcd.Api.Etcdserverpb.Rpc_Fields.vec'events' @:: Lens' WatchResponse (Data.Vector.Vector Proto.Etcd.Api.Mvccpb.Kv.Event)@ -}
data WatchResponse
  = WatchResponse'_constructor {WatchResponse -> Maybe ResponseHeader
_WatchResponse'header :: !(Prelude.Maybe ResponseHeader),
                                WatchResponse -> Int64
_WatchResponse'watchId :: !Data.Int.Int64,
                                WatchResponse -> Bool
_WatchResponse'created :: !Prelude.Bool,
                                WatchResponse -> Bool
_WatchResponse'canceled :: !Prelude.Bool,
                                WatchResponse -> Int64
_WatchResponse'compactRevision :: !Data.Int.Int64,
                                WatchResponse -> Text
_WatchResponse'cancelReason :: !Data.Text.Text,
                                WatchResponse -> Bool
_WatchResponse'fragment :: !Prelude.Bool,
                                WatchResponse -> Vector Event
_WatchResponse'events :: !(Data.Vector.Vector Proto.Etcd.Api.Mvccpb.Kv.Event),
                                WatchResponse -> FieldSet
_WatchResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (WatchResponse -> WatchResponse -> Bool
(WatchResponse -> WatchResponse -> Bool)
-> (WatchResponse -> WatchResponse -> Bool) -> Eq WatchResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: WatchResponse -> WatchResponse -> Bool
== :: WatchResponse -> WatchResponse -> Bool
$c/= :: WatchResponse -> WatchResponse -> Bool
/= :: WatchResponse -> WatchResponse -> Bool
Prelude.Eq, Eq WatchResponse
Eq WatchResponse =>
(WatchResponse -> WatchResponse -> Ordering)
-> (WatchResponse -> WatchResponse -> Bool)
-> (WatchResponse -> WatchResponse -> Bool)
-> (WatchResponse -> WatchResponse -> Bool)
-> (WatchResponse -> WatchResponse -> Bool)
-> (WatchResponse -> WatchResponse -> WatchResponse)
-> (WatchResponse -> WatchResponse -> WatchResponse)
-> Ord WatchResponse
WatchResponse -> WatchResponse -> Bool
WatchResponse -> WatchResponse -> Ordering
WatchResponse -> WatchResponse -> WatchResponse
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 :: WatchResponse -> WatchResponse -> Ordering
compare :: WatchResponse -> WatchResponse -> Ordering
$c< :: WatchResponse -> WatchResponse -> Bool
< :: WatchResponse -> WatchResponse -> Bool
$c<= :: WatchResponse -> WatchResponse -> Bool
<= :: WatchResponse -> WatchResponse -> Bool
$c> :: WatchResponse -> WatchResponse -> Bool
> :: WatchResponse -> WatchResponse -> Bool
$c>= :: WatchResponse -> WatchResponse -> Bool
>= :: WatchResponse -> WatchResponse -> Bool
$cmax :: WatchResponse -> WatchResponse -> WatchResponse
max :: WatchResponse -> WatchResponse -> WatchResponse
$cmin :: WatchResponse -> WatchResponse -> WatchResponse
min :: WatchResponse -> WatchResponse -> WatchResponse
Prelude.Ord)
instance Prelude.Show WatchResponse where
  showsPrec :: Int -> WatchResponse -> ShowS
showsPrec Int
_ WatchResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (WatchResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort WatchResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField WatchResponse "header" ResponseHeader where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "header"
-> (ResponseHeader -> f ResponseHeader)
-> WatchResponse
-> f WatchResponse
fieldOf Proxy# "header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> WatchResponse -> f WatchResponse)
-> ((ResponseHeader -> f ResponseHeader)
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (ResponseHeader -> f ResponseHeader)
-> WatchResponse
-> f WatchResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchResponse -> Maybe ResponseHeader)
-> (WatchResponse -> Maybe ResponseHeader -> WatchResponse)
-> Lens
     WatchResponse
     WatchResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchResponse -> Maybe ResponseHeader
_WatchResponse'header
           (\ WatchResponse
x__ Maybe ResponseHeader
y__ -> WatchResponse
x__ {_WatchResponse'header = y__}))
        (ResponseHeader -> Lens' (Maybe ResponseHeader) ResponseHeader
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ResponseHeader
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField WatchResponse "maybe'header" (Prelude.Maybe ResponseHeader) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'header"
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> WatchResponse
-> f WatchResponse
fieldOf Proxy# "maybe'header"
_
    = ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
 -> WatchResponse -> f WatchResponse)
-> ((Maybe ResponseHeader -> f (Maybe ResponseHeader))
    -> Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> WatchResponse
-> f WatchResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchResponse -> Maybe ResponseHeader)
-> (WatchResponse -> Maybe ResponseHeader -> WatchResponse)
-> Lens
     WatchResponse
     WatchResponse
     (Maybe ResponseHeader)
     (Maybe ResponseHeader)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchResponse -> Maybe ResponseHeader
_WatchResponse'header
           (\ WatchResponse
x__ Maybe ResponseHeader
y__ -> WatchResponse
x__ {_WatchResponse'header = y__}))
        (Maybe ResponseHeader -> f (Maybe ResponseHeader))
-> Maybe ResponseHeader -> f (Maybe ResponseHeader)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchResponse "watchId" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "watchId"
-> (Int64 -> f Int64) -> WatchResponse -> f WatchResponse
fieldOf Proxy# "watchId"
_
    = ((Int64 -> f Int64) -> WatchResponse -> f WatchResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> WatchResponse
-> f WatchResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchResponse -> Int64)
-> (WatchResponse -> Int64 -> WatchResponse)
-> Lens WatchResponse WatchResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchResponse -> Int64
_WatchResponse'watchId
           (\ WatchResponse
x__ Int64
y__ -> WatchResponse
x__ {_WatchResponse'watchId = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchResponse "created" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "created"
-> (Bool -> f Bool) -> WatchResponse -> f WatchResponse
fieldOf Proxy# "created"
_
    = ((Bool -> f Bool) -> WatchResponse -> f WatchResponse)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> WatchResponse
-> f WatchResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchResponse -> Bool)
-> (WatchResponse -> Bool -> WatchResponse)
-> Lens WatchResponse WatchResponse Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchResponse -> Bool
_WatchResponse'created
           (\ WatchResponse
x__ Bool
y__ -> WatchResponse
x__ {_WatchResponse'created = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchResponse "canceled" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "canceled"
-> (Bool -> f Bool) -> WatchResponse -> f WatchResponse
fieldOf Proxy# "canceled"
_
    = ((Bool -> f Bool) -> WatchResponse -> f WatchResponse)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> WatchResponse
-> f WatchResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchResponse -> Bool)
-> (WatchResponse -> Bool -> WatchResponse)
-> Lens WatchResponse WatchResponse Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchResponse -> Bool
_WatchResponse'canceled
           (\ WatchResponse
x__ Bool
y__ -> WatchResponse
x__ {_WatchResponse'canceled = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchResponse "compactRevision" Data.Int.Int64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "compactRevision"
-> (Int64 -> f Int64) -> WatchResponse -> f WatchResponse
fieldOf Proxy# "compactRevision"
_
    = ((Int64 -> f Int64) -> WatchResponse -> f WatchResponse)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> WatchResponse
-> f WatchResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchResponse -> Int64)
-> (WatchResponse -> Int64 -> WatchResponse)
-> Lens WatchResponse WatchResponse Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchResponse -> Int64
_WatchResponse'compactRevision
           (\ WatchResponse
x__ Int64
y__ -> WatchResponse
x__ {_WatchResponse'compactRevision = y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchResponse "cancelReason" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cancelReason"
-> (Text -> f Text) -> WatchResponse -> f WatchResponse
fieldOf Proxy# "cancelReason"
_
    = ((Text -> f Text) -> WatchResponse -> f WatchResponse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> WatchResponse
-> f WatchResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchResponse -> Text)
-> (WatchResponse -> Text -> WatchResponse)
-> Lens WatchResponse WatchResponse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchResponse -> Text
_WatchResponse'cancelReason
           (\ WatchResponse
x__ Text
y__ -> WatchResponse
x__ {_WatchResponse'cancelReason = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchResponse "fragment" Prelude.Bool where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fragment"
-> (Bool -> f Bool) -> WatchResponse -> f WatchResponse
fieldOf Proxy# "fragment"
_
    = ((Bool -> f Bool) -> WatchResponse -> f WatchResponse)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> WatchResponse
-> f WatchResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchResponse -> Bool)
-> (WatchResponse -> Bool -> WatchResponse)
-> Lens WatchResponse WatchResponse Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchResponse -> Bool
_WatchResponse'fragment
           (\ WatchResponse
x__ Bool
y__ -> WatchResponse
x__ {_WatchResponse'fragment = y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField WatchResponse "events" [Proto.Etcd.Api.Mvccpb.Kv.Event] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "events"
-> ([Event] -> f [Event]) -> WatchResponse -> f WatchResponse
fieldOf Proxy# "events"
_
    = ((Vector Event -> f (Vector Event))
 -> WatchResponse -> f WatchResponse)
-> (([Event] -> f [Event]) -> Vector Event -> f (Vector Event))
-> ([Event] -> f [Event])
-> WatchResponse
-> f WatchResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchResponse -> Vector Event)
-> (WatchResponse -> Vector Event -> WatchResponse)
-> Lens WatchResponse WatchResponse (Vector Event) (Vector Event)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchResponse -> Vector Event
_WatchResponse'events
           (\ WatchResponse
x__ Vector Event
y__ -> WatchResponse
x__ {_WatchResponse'events = y__}))
        ((Vector Event -> [Event])
-> (Vector Event -> [Event] -> Vector Event)
-> Lens (Vector Event) (Vector Event) [Event] [Event]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Event -> [Event]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector Event
_ [Event]
y__ -> [Event] -> Vector Event
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Event]
y__))
instance Data.ProtoLens.Field.HasField WatchResponse "vec'events" (Data.Vector.Vector Proto.Etcd.Api.Mvccpb.Kv.Event) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'events"
-> (Vector Event -> f (Vector Event))
-> WatchResponse
-> f WatchResponse
fieldOf Proxy# "vec'events"
_
    = ((Vector Event -> f (Vector Event))
 -> WatchResponse -> f WatchResponse)
-> ((Vector Event -> f (Vector Event))
    -> Vector Event -> f (Vector Event))
-> (Vector Event -> f (Vector Event))
-> WatchResponse
-> f WatchResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((WatchResponse -> Vector Event)
-> (WatchResponse -> Vector Event -> WatchResponse)
-> Lens WatchResponse WatchResponse (Vector Event) (Vector Event)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           WatchResponse -> Vector Event
_WatchResponse'events
           (\ WatchResponse
x__ Vector Event
y__ -> WatchResponse
x__ {_WatchResponse'events = y__}))
        (Vector Event -> f (Vector Event))
-> Vector Event -> f (Vector Event)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message WatchResponse where
  messageName :: Proxy WatchResponse -> Text
messageName Proxy WatchResponse
_ = String -> Text
Data.Text.pack String
"etcdserverpb.WatchResponse"
  packedMessageDescriptor :: Proxy WatchResponse -> ByteString
packedMessageDescriptor Proxy WatchResponse
_
    = ByteString
"\n\
      \\rWatchResponse\DC24\n\
      \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\EM\n\
      \\bwatch_id\CAN\STX \SOH(\ETXR\awatchId\DC2\CAN\n\
      \\acreated\CAN\ETX \SOH(\bR\acreated\DC2\SUB\n\
      \\bcanceled\CAN\EOT \SOH(\bR\bcanceled\DC2)\n\
      \\DLEcompact_revision\CAN\ENQ \SOH(\ETXR\SIcompactRevision\DC2,\n\
      \\rcancel_reason\CAN\ACK \SOH(\tR\fcancelReasonB\a\138\181\CAN\ETX3.4\DC2#\n\
      \\bfragment\CAN\a \SOH(\bR\bfragmentB\a\138\181\CAN\ETX3.4\DC2%\n\
      \\ACKevents\CAN\v \ETX(\v2\r.mvccpb.EventR\ACKevents:\a\130\181\CAN\ETX3.0"
  packedFileDescriptor :: Proxy WatchResponse -> ByteString
packedFileDescriptor Proxy WatchResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor WatchResponse)
fieldsByTag
    = let
        header__field_descriptor :: FieldDescriptor WatchResponse
header__field_descriptor
          = String
-> FieldTypeDescriptor ResponseHeader
-> FieldAccessor WatchResponse ResponseHeader
-> FieldDescriptor WatchResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"header"
              (MessageOrGroup -> FieldTypeDescriptor ResponseHeader
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ResponseHeader)
              (Lens
  WatchResponse
  WatchResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> FieldAccessor WatchResponse ResponseHeader
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'header")) ::
              Data.ProtoLens.FieldDescriptor WatchResponse
        watchId__field_descriptor :: FieldDescriptor WatchResponse
watchId__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor WatchResponse Int64
-> FieldDescriptor WatchResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"watch_id"
              (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 WatchResponse WatchResponse Int64 Int64
-> FieldAccessor WatchResponse 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 @"watchId")) ::
              Data.ProtoLens.FieldDescriptor WatchResponse
        created__field_descriptor :: FieldDescriptor WatchResponse
created__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor WatchResponse Bool
-> FieldDescriptor WatchResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"created"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens WatchResponse WatchResponse Bool Bool
-> FieldAccessor WatchResponse Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"created")) ::
              Data.ProtoLens.FieldDescriptor WatchResponse
        canceled__field_descriptor :: FieldDescriptor WatchResponse
canceled__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor WatchResponse Bool
-> FieldDescriptor WatchResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"canceled"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens WatchResponse WatchResponse Bool Bool
-> FieldAccessor WatchResponse Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"canceled")) ::
              Data.ProtoLens.FieldDescriptor WatchResponse
        compactRevision__field_descriptor :: FieldDescriptor WatchResponse
compactRevision__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor WatchResponse Int64
-> FieldDescriptor WatchResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"compact_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 WatchResponse WatchResponse Int64 Int64
-> FieldAccessor WatchResponse 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 @"compactRevision")) ::
              Data.ProtoLens.FieldDescriptor WatchResponse
        cancelReason__field_descriptor :: FieldDescriptor WatchResponse
cancelReason__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor WatchResponse Text
-> FieldDescriptor WatchResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cancel_reason"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens WatchResponse WatchResponse Text Text
-> FieldAccessor WatchResponse Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
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 @"cancelReason")) ::
              Data.ProtoLens.FieldDescriptor WatchResponse
        fragment__field_descriptor :: FieldDescriptor WatchResponse
fragment__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor WatchResponse Bool
-> FieldDescriptor WatchResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"fragment"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens WatchResponse WatchResponse Bool Bool
-> FieldAccessor WatchResponse Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
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 @"fragment")) ::
              Data.ProtoLens.FieldDescriptor WatchResponse
        events__field_descriptor :: FieldDescriptor WatchResponse
events__field_descriptor
          = String
-> FieldTypeDescriptor Event
-> FieldAccessor WatchResponse Event
-> FieldDescriptor WatchResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"events"
              (MessageOrGroup -> FieldTypeDescriptor Event
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Etcd.Api.Mvccpb.Kv.Event)
              (Packing
-> Lens' WatchResponse [Event] -> FieldAccessor WatchResponse Event
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"events")) ::
              Data.ProtoLens.FieldDescriptor WatchResponse
      in
        [(Tag, FieldDescriptor WatchResponse)]
-> Map Tag (FieldDescriptor WatchResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor WatchResponse
header__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor WatchResponse
watchId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor WatchResponse
created__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor WatchResponse
canceled__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor WatchResponse
compactRevision__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor WatchResponse
cancelReason__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor WatchResponse
fragment__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
11, FieldDescriptor WatchResponse
events__field_descriptor)]
  unknownFields :: Lens' WatchResponse FieldSet
unknownFields
    = (WatchResponse -> FieldSet)
-> (WatchResponse -> FieldSet -> WatchResponse)
-> Lens' WatchResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        WatchResponse -> FieldSet
_WatchResponse'_unknownFields
        (\ WatchResponse
x__ FieldSet
y__ -> WatchResponse
x__ {_WatchResponse'_unknownFields = y__})
  defMessage :: WatchResponse
defMessage
    = WatchResponse'_constructor
        {_WatchResponse'header :: Maybe ResponseHeader
_WatchResponse'header = Maybe ResponseHeader
forall a. Maybe a
Prelude.Nothing,
         _WatchResponse'watchId :: Int64
_WatchResponse'watchId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WatchResponse'created :: Bool
_WatchResponse'created = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WatchResponse'canceled :: Bool
_WatchResponse'canceled = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WatchResponse'compactRevision :: Int64
_WatchResponse'compactRevision = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WatchResponse'cancelReason :: Text
_WatchResponse'cancelReason = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WatchResponse'fragment :: Bool
_WatchResponse'fragment = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _WatchResponse'events :: Vector Event
_WatchResponse'events = Vector Event
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _WatchResponse'_unknownFields :: FieldSet
_WatchResponse'_unknownFields = []}
  parseMessage :: Parser WatchResponse
parseMessage
    = let
        loop ::
          WatchResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Etcd.Api.Mvccpb.Kv.Event
             -> Data.ProtoLens.Encoding.Bytes.Parser WatchResponse
        loop :: WatchResponse
-> Growing Vector RealWorld Event -> Parser WatchResponse
loop WatchResponse
x Growing Vector RealWorld Event
mutable'events
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'events <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            mutable'events)
                      (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)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'events") frozen'events x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser ResponseHeader -> String -> Parser ResponseHeader
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
"header"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"header") y x)
                                  mutable'events
                        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
"watch_id"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"watchId") y x)
                                  mutable'events
                        Word64
24
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"created"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"created") y x)
                                  mutable'events
                        Word64
32
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"canceled"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"canceled") y x)
                                  mutable'events
                        Word64
40
                          -> 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
"compact_revision"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"compactRevision") y x)
                                  mutable'events
                        Word64
50
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"cancel_reason"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"cancelReason") y x)
                                  mutable'events
                        Word64
56
                          -> do y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) Word64
0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       String
"fragment"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"fragment") y x)
                                  mutable'events
                        Word64
90
                          -> do !y <- Parser Event -> String -> Parser Event
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
"events"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'events y)
                                loop x v
                        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)
                                  mutable'events
      in
        Parser WatchResponse -> String -> Parser WatchResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'events <- IO (Growing Vector RealWorld Event)
-> Parser (Growing Vector RealWorld Event)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld Event)
IO (Growing Vector (PrimState IO) Event)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'events)
          String
"WatchResponse"
  buildMessage :: WatchResponse -> Builder
buildMessage
    = \ WatchResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe ResponseHeader)
  WatchResponse
  WatchResponse
  (Maybe ResponseHeader)
  (Maybe ResponseHeader)
-> WatchResponse -> Maybe ResponseHeader
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'header") WatchResponse
_x
              of
                Maybe ResponseHeader
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just ResponseHeader
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                       ((ByteString -> Builder)
-> (ResponseHeader -> ByteString) -> ResponseHeader -> 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))
                          ResponseHeader -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ResponseHeader
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Int64
_v = FoldLike Int64 WatchResponse WatchResponse Int64 Int64
-> WatchResponse -> 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 @"watchId") WatchResponse
_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 :: Bool
_v = FoldLike Bool WatchResponse WatchResponse Bool Bool
-> WatchResponse -> Bool
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 @"created") WatchResponse
_x
                    in
                      if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt (\ Bool
b -> if Bool
b then Word64
1 else Word64
0)
                               Bool
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (let
                         _v :: Bool
_v = FoldLike Bool WatchResponse WatchResponse Bool Bool
-> WatchResponse -> Bool
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 @"canceled") WatchResponse
_x
                       in
                         if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (let
                            _v :: Int64
_v
                              = FoldLike Int64 WatchResponse WatchResponse Int64 Int64
-> WatchResponse -> 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 @"compactRevision") WatchResponse
_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
40)
                                  ((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 :: Text
_v
                                 = FoldLike Text WatchResponse WatchResponse Text Text
-> WatchResponse -> Text
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 @"cancelReason") WatchResponse
_x
                             in
                               if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
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
50)
                                     ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> 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))
                                        Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (let
                                  _v :: Bool
_v = FoldLike Bool WatchResponse WatchResponse Bool Bool
-> WatchResponse -> Bool
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 @"fragment") WatchResponse
_x
                                in
                                  if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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
56)
                                        ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                           Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (\ Bool
b -> if Bool
b then Word64
1 else Word64
0) Bool
_v))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  ((Event -> Builder) -> Vector Event -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                     (\ Event
_v
                                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
90)
                                             ((ByteString -> Builder)
-> (Event -> ByteString) -> Event -> 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))
                                                Event -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage Event
_v))
                                     (FoldLike
  (Vector Event)
  WatchResponse
  WatchResponse
  (Vector Event)
  (Vector Event)
-> WatchResponse -> Vector Event
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 @"vec'events") WatchResponse
_x))
                                  (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                     (FoldLike FieldSet WatchResponse WatchResponse FieldSet FieldSet
-> WatchResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet WatchResponse WatchResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' WatchResponse FieldSet
Data.ProtoLens.unknownFields WatchResponse
_x)))))))))
instance Control.DeepSeq.NFData WatchResponse where
  rnf :: WatchResponse -> ()
rnf
    = \ WatchResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (WatchResponse -> FieldSet
_WatchResponse'_unknownFields WatchResponse
x__)
             (Maybe ResponseHeader -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (WatchResponse -> Maybe ResponseHeader
_WatchResponse'header WatchResponse
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (WatchResponse -> Int64
_WatchResponse'watchId WatchResponse
x__)
                   (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (WatchResponse -> Bool
_WatchResponse'created WatchResponse
x__)
                      (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (WatchResponse -> Bool
_WatchResponse'canceled WatchResponse
x__)
                         (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (WatchResponse -> Int64
_WatchResponse'compactRevision WatchResponse
x__)
                            (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (WatchResponse -> Text
_WatchResponse'cancelReason WatchResponse
x__)
                               (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (WatchResponse -> Bool
_WatchResponse'fragment WatchResponse
x__)
                                  (Vector Event -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (WatchResponse -> Vector Event
_WatchResponse'events WatchResponse
x__) ()))))))))
data KV = KV {}
instance Data.ProtoLens.Service.Types.Service KV where
  type ServiceName KV = "KV"
  type ServicePackage KV = "etcdserverpb"
  type ServiceMethods KV = '["compact",
                             "deleteRange",
                             "put",
                             "range",
                             "txn"]
  packedServiceDescriptor :: Proxy KV -> ByteString
packedServiceDescriptor Proxy KV
_
    = ByteString
"\n\
      \\STXKV\DC2Y\n\
      \\ENQRange\DC2\SUB.etcdserverpb.RangeRequest\SUB\ESC.etcdserverpb.RangeResponse\"\ETB\130\211\228\147\STX\DC1\"\f/v3/kv/range:\SOH*\DC2Q\n\
      \\ETXPut\DC2\CAN.etcdserverpb.PutRequest\SUB\EM.etcdserverpb.PutResponse\"\NAK\130\211\228\147\STX\SI\"\n\
      \/v3/kv/put:\SOH*\DC2q\n\
      \\vDeleteRange\DC2 .etcdserverpb.DeleteRangeRequest\SUB!.etcdserverpb.DeleteRangeResponse\"\GS\130\211\228\147\STX\ETB\"\DC2/v3/kv/deleterange:\SOH*\DC2Q\n\
      \\ETXTxn\DC2\CAN.etcdserverpb.TxnRequest\SUB\EM.etcdserverpb.TxnResponse\"\NAK\130\211\228\147\STX\SI\"\n\
      \/v3/kv/txn:\SOH*\DC2j\n\
      \\aCompact\DC2\US.etcdserverpb.CompactionRequest\SUB .etcdserverpb.CompactionResponse\"\FS\130\211\228\147\STX\SYN\"\DC1/v3/kv/compaction:\SOH*"
instance Data.ProtoLens.Service.Types.HasMethodImpl KV "range" where
  type MethodName KV "range" = "Range"
  type MethodInput KV "range" = RangeRequest
  type MethodOutput KV "range" = RangeResponse
  type MethodStreamingType KV "range" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl KV "put" where
  type MethodName KV "put" = "Put"
  type MethodInput KV "put" = PutRequest
  type MethodOutput KV "put" = PutResponse
  type MethodStreamingType KV "put" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl KV "deleteRange" where
  type MethodName KV "deleteRange" = "DeleteRange"
  type MethodInput KV "deleteRange" = DeleteRangeRequest
  type MethodOutput KV "deleteRange" = DeleteRangeResponse
  type MethodStreamingType KV "deleteRange" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl KV "txn" where
  type MethodName KV "txn" = "Txn"
  type MethodInput KV "txn" = TxnRequest
  type MethodOutput KV "txn" = TxnResponse
  type MethodStreamingType KV "txn" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl KV "compact" where
  type MethodName KV "compact" = "Compact"
  type MethodInput KV "compact" = CompactionRequest
  type MethodOutput KV "compact" = CompactionResponse
  type MethodStreamingType KV "compact" = 'Data.ProtoLens.Service.Types.NonStreaming
data Watch = Watch {}
instance Data.ProtoLens.Service.Types.Service Watch where
  type ServiceName Watch = "Watch"
  type ServicePackage Watch = "etcdserverpb"
  type ServiceMethods Watch = '["watch"]
  packedServiceDescriptor :: Proxy Watch -> ByteString
packedServiceDescriptor Proxy Watch
_
    = ByteString
"\n\
      \\ENQWatch\DC2Z\n\
      \\ENQWatch\DC2\SUB.etcdserverpb.WatchRequest\SUB\ESC.etcdserverpb.WatchResponse\"\DC4\130\211\228\147\STX\SO\"\t/v3/watch:\SOH*(\SOH0\SOH"
instance Data.ProtoLens.Service.Types.HasMethodImpl Watch "watch" where
  type MethodName Watch "watch" = "Watch"
  type MethodInput Watch "watch" = WatchRequest
  type MethodOutput Watch "watch" = WatchResponse
  type MethodStreamingType Watch "watch" = 'Data.ProtoLens.Service.Types.BiDiStreaming
data Lease = Lease {}
instance Data.ProtoLens.Service.Types.Service Lease where
  type ServiceName Lease = "Lease"
  type ServicePackage Lease = "etcdserverpb"
  type ServiceMethods Lease = '["leaseGrant",
                                "leaseKeepAlive",
                                "leaseLeases",
                                "leaseRevoke",
                                "leaseTimeToLive"]
  packedServiceDescriptor :: Proxy Lease -> ByteString
packedServiceDescriptor Proxy Lease
_
    = ByteString
"\n\
      \\ENQLease\DC2k\n\
      \\n\
      \LeaseGrant\DC2\US.etcdserverpb.LeaseGrantRequest\SUB .etcdserverpb.LeaseGrantResponse\"\SUB\130\211\228\147\STX\DC4\"\SI/v3/lease/grant:\SOH*\DC2\137\SOH\n\
      \\vLeaseRevoke\DC2 .etcdserverpb.LeaseRevokeRequest\SUB!.etcdserverpb.LeaseRevokeResponse\"5\130\211\228\147\STX/\"\DLE/v3/lease/revoke:\SOH*Z\CAN\"\DC3/v3/kv/lease/revoke:\SOH*\DC2\DEL\n\
      \\SOLeaseKeepAlive\DC2#.etcdserverpb.LeaseKeepAliveRequest\SUB$.etcdserverpb.LeaseKeepAliveResponse\"\RS\130\211\228\147\STX\CAN\"\DC3/v3/lease/keepalive:\SOH*(\SOH0\SOH\DC2\157\SOH\n\
      \\SILeaseTimeToLive\DC2$.etcdserverpb.LeaseTimeToLiveRequest\SUB%.etcdserverpb.LeaseTimeToLiveResponse\"=\130\211\228\147\STX7\"\DC4/v3/lease/timetolive:\SOH*Z\FS\"\ETB/v3/kv/lease/timetolive:\SOH*\DC2\137\SOH\n\
      \\vLeaseLeases\DC2 .etcdserverpb.LeaseLeasesRequest\SUB!.etcdserverpb.LeaseLeasesResponse\"5\130\211\228\147\STX/\"\DLE/v3/lease/leases:\SOH*Z\CAN\"\DC3/v3/kv/lease/leases:\SOH*"
instance Data.ProtoLens.Service.Types.HasMethodImpl Lease "leaseGrant" where
  type MethodName Lease "leaseGrant" = "LeaseGrant"
  type MethodInput Lease "leaseGrant" = LeaseGrantRequest
  type MethodOutput Lease "leaseGrant" = LeaseGrantResponse
  type MethodStreamingType Lease "leaseGrant" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Lease "leaseRevoke" where
  type MethodName Lease "leaseRevoke" = "LeaseRevoke"
  type MethodInput Lease "leaseRevoke" = LeaseRevokeRequest
  type MethodOutput Lease "leaseRevoke" = LeaseRevokeResponse
  type MethodStreamingType Lease "leaseRevoke" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Lease "leaseKeepAlive" where
  type MethodName Lease "leaseKeepAlive" = "LeaseKeepAlive"
  type MethodInput Lease "leaseKeepAlive" = LeaseKeepAliveRequest
  type MethodOutput Lease "leaseKeepAlive" = LeaseKeepAliveResponse
  type MethodStreamingType Lease "leaseKeepAlive" = 'Data.ProtoLens.Service.Types.BiDiStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Lease "leaseTimeToLive" where
  type MethodName Lease "leaseTimeToLive" = "LeaseTimeToLive"
  type MethodInput Lease "leaseTimeToLive" = LeaseTimeToLiveRequest
  type MethodOutput Lease "leaseTimeToLive" = LeaseTimeToLiveResponse
  type MethodStreamingType Lease "leaseTimeToLive" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Lease "leaseLeases" where
  type MethodName Lease "leaseLeases" = "LeaseLeases"
  type MethodInput Lease "leaseLeases" = LeaseLeasesRequest
  type MethodOutput Lease "leaseLeases" = LeaseLeasesResponse
  type MethodStreamingType Lease "leaseLeases" = 'Data.ProtoLens.Service.Types.NonStreaming
data Cluster = Cluster {}
instance Data.ProtoLens.Service.Types.Service Cluster where
  type ServiceName Cluster = "Cluster"
  type ServicePackage Cluster = "etcdserverpb"
  type ServiceMethods Cluster = '["memberAdd",
                                  "memberList",
                                  "memberPromote",
                                  "memberRemove",
                                  "memberUpdate"]
  packedServiceDescriptor :: Proxy Cluster -> ByteString
packedServiceDescriptor Proxy Cluster
_
    = ByteString
"\n\
      \\aCluster\DC2o\n\
      \\tMemberAdd\DC2\RS.etcdserverpb.MemberAddRequest\SUB\US.etcdserverpb.MemberAddResponse\"!\130\211\228\147\STX\ESC\"\SYN/v3/cluster/member/add:\SOH*\DC2{\n\
      \\fMemberRemove\DC2!.etcdserverpb.MemberRemoveRequest\SUB\".etcdserverpb.MemberRemoveResponse\"$\130\211\228\147\STX\RS\"\EM/v3/cluster/member/remove:\SOH*\DC2{\n\
      \\fMemberUpdate\DC2!.etcdserverpb.MemberUpdateRequest\SUB\".etcdserverpb.MemberUpdateResponse\"$\130\211\228\147\STX\RS\"\EM/v3/cluster/member/update:\SOH*\DC2s\n\
      \\n\
      \MemberList\DC2\US.etcdserverpb.MemberListRequest\SUB .etcdserverpb.MemberListResponse\"\"\130\211\228\147\STX\FS\"\ETB/v3/cluster/member/list:\SOH*\DC2\DEL\n\
      \\rMemberPromote\DC2\".etcdserverpb.MemberPromoteRequest\SUB#.etcdserverpb.MemberPromoteResponse\"%\130\211\228\147\STX\US\"\SUB/v3/cluster/member/promote:\SOH*"
instance Data.ProtoLens.Service.Types.HasMethodImpl Cluster "memberAdd" where
  type MethodName Cluster "memberAdd" = "MemberAdd"
  type MethodInput Cluster "memberAdd" = MemberAddRequest
  type MethodOutput Cluster "memberAdd" = MemberAddResponse
  type MethodStreamingType Cluster "memberAdd" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Cluster "memberRemove" where
  type MethodName Cluster "memberRemove" = "MemberRemove"
  type MethodInput Cluster "memberRemove" = MemberRemoveRequest
  type MethodOutput Cluster "memberRemove" = MemberRemoveResponse
  type MethodStreamingType Cluster "memberRemove" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Cluster "memberUpdate" where
  type MethodName Cluster "memberUpdate" = "MemberUpdate"
  type MethodInput Cluster "memberUpdate" = MemberUpdateRequest
  type MethodOutput Cluster "memberUpdate" = MemberUpdateResponse
  type MethodStreamingType Cluster "memberUpdate" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Cluster "memberList" where
  type MethodName Cluster "memberList" = "MemberList"
  type MethodInput Cluster "memberList" = MemberListRequest
  type MethodOutput Cluster "memberList" = MemberListResponse
  type MethodStreamingType Cluster "memberList" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Cluster "memberPromote" where
  type MethodName Cluster "memberPromote" = "MemberPromote"
  type MethodInput Cluster "memberPromote" = MemberPromoteRequest
  type MethodOutput Cluster "memberPromote" = MemberPromoteResponse
  type MethodStreamingType Cluster "memberPromote" = 'Data.ProtoLens.Service.Types.NonStreaming
data Maintenance = Maintenance {}
instance Data.ProtoLens.Service.Types.Service Maintenance where
  type ServiceName Maintenance = "Maintenance"
  type ServicePackage Maintenance = "etcdserverpb"
  type ServiceMethods Maintenance = '["alarm",
                                      "defragment",
                                      "downgrade",
                                      "hash",
                                      "hashKV",
                                      "moveLeader",
                                      "snapshot",
                                      "status"]
  packedServiceDescriptor :: Proxy Maintenance -> ByteString
packedServiceDescriptor Proxy Maintenance
_
    = ByteString
"\n\
      \\vMaintenance\DC2b\n\
      \\ENQAlarm\DC2\SUB.etcdserverpb.AlarmRequest\SUB\ESC.etcdserverpb.AlarmResponse\" \130\211\228\147\STX\SUB\"\NAK/v3/maintenance/alarm:\SOH*\DC2f\n\
      \\ACKStatus\DC2\ESC.etcdserverpb.StatusRequest\SUB\FS.etcdserverpb.StatusResponse\"!\130\211\228\147\STX\ESC\"\SYN/v3/maintenance/status:\SOH*\DC2v\n\
      \\n\
      \Defragment\DC2\US.etcdserverpb.DefragmentRequest\SUB .etcdserverpb.DefragmentResponse\"%\130\211\228\147\STX\US\"\SUB/v3/maintenance/defragment:\SOH*\DC2^\n\
      \\EOTHash\DC2\EM.etcdserverpb.HashRequest\SUB\SUB.etcdserverpb.HashResponse\"\US\130\211\228\147\STX\EM\"\DC4/v3/maintenance/hash:\SOH*\DC2f\n\
      \\ACKHashKV\DC2\ESC.etcdserverpb.HashKVRequest\SUB\FS.etcdserverpb.HashKVResponse\"!\130\211\228\147\STX\ESC\"\SYN/v3/maintenance/hashkv:\SOH*\DC2p\n\
      \\bSnapshot\DC2\GS.etcdserverpb.SnapshotRequest\SUB\RS.etcdserverpb.SnapshotResponse\"#\130\211\228\147\STX\GS\"\CAN/v3/maintenance/snapshot:\SOH*0\SOH\DC2\DEL\n\
      \\n\
      \MoveLeader\DC2\US.etcdserverpb.MoveLeaderRequest\SUB .etcdserverpb.MoveLeaderResponse\".\130\211\228\147\STX(\"#/v3/maintenance/transfer-leadership:\SOH*\DC2r\n\
      \\tDowngrade\DC2\RS.etcdserverpb.DowngradeRequest\SUB\US.etcdserverpb.DowngradeResponse\"$\130\211\228\147\STX\RS\"\EM/v3/maintenance/downgrade:\SOH*"
instance Data.ProtoLens.Service.Types.HasMethodImpl Maintenance "alarm" where
  type MethodName Maintenance "alarm" = "Alarm"
  type MethodInput Maintenance "alarm" = AlarmRequest
  type MethodOutput Maintenance "alarm" = AlarmResponse
  type MethodStreamingType Maintenance "alarm" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Maintenance "status" where
  type MethodName Maintenance "status" = "Status"
  type MethodInput Maintenance "status" = StatusRequest
  type MethodOutput Maintenance "status" = StatusResponse
  type MethodStreamingType Maintenance "status" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Maintenance "defragment" where
  type MethodName Maintenance "defragment" = "Defragment"
  type MethodInput Maintenance "defragment" = DefragmentRequest
  type MethodOutput Maintenance "defragment" = DefragmentResponse
  type MethodStreamingType Maintenance "defragment" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Maintenance "hash" where
  type MethodName Maintenance "hash" = "Hash"
  type MethodInput Maintenance "hash" = HashRequest
  type MethodOutput Maintenance "hash" = HashResponse
  type MethodStreamingType Maintenance "hash" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Maintenance "hashKV" where
  type MethodName Maintenance "hashKV" = "HashKV"
  type MethodInput Maintenance "hashKV" = HashKVRequest
  type MethodOutput Maintenance "hashKV" = HashKVResponse
  type MethodStreamingType Maintenance "hashKV" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Maintenance "snapshot" where
  type MethodName Maintenance "snapshot" = "Snapshot"
  type MethodInput Maintenance "snapshot" = SnapshotRequest
  type MethodOutput Maintenance "snapshot" = SnapshotResponse
  type MethodStreamingType Maintenance "snapshot" = 'Data.ProtoLens.Service.Types.ServerStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Maintenance "moveLeader" where
  type MethodName Maintenance "moveLeader" = "MoveLeader"
  type MethodInput Maintenance "moveLeader" = MoveLeaderRequest
  type MethodOutput Maintenance "moveLeader" = MoveLeaderResponse
  type MethodStreamingType Maintenance "moveLeader" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Maintenance "downgrade" where
  type MethodName Maintenance "downgrade" = "Downgrade"
  type MethodInput Maintenance "downgrade" = DowngradeRequest
  type MethodOutput Maintenance "downgrade" = DowngradeResponse
  type MethodStreamingType Maintenance "downgrade" = 'Data.ProtoLens.Service.Types.NonStreaming
data Auth = Auth {}
instance Data.ProtoLens.Service.Types.Service Auth where
  type ServiceName Auth = "Auth"
  type ServicePackage Auth = "etcdserverpb"
  type ServiceMethods Auth = '["authDisable",
                               "authEnable",
                               "authStatus",
                               "authenticate",
                               "roleAdd",
                               "roleDelete",
                               "roleGet",
                               "roleGrantPermission",
                               "roleList",
                               "roleRevokePermission",
                               "userAdd",
                               "userChangePassword",
                               "userDelete",
                               "userGet",
                               "userGrantRole",
                               "userList",
                               "userRevokeRole"]
  packedServiceDescriptor :: Proxy Auth -> ByteString
packedServiceDescriptor Proxy Auth
_
    = ByteString
"\n\
      \\EOTAuth\DC2k\n\
      \\n\
      \AuthEnable\DC2\US.etcdserverpb.AuthEnableRequest\SUB .etcdserverpb.AuthEnableResponse\"\SUB\130\211\228\147\STX\DC4\"\SI/v3/auth/enable:\SOH*\DC2o\n\
      \\vAuthDisable\DC2 .etcdserverpb.AuthDisableRequest\SUB!.etcdserverpb.AuthDisableResponse\"\ESC\130\211\228\147\STX\NAK\"\DLE/v3/auth/disable:\SOH*\DC2k\n\
      \\n\
      \AuthStatus\DC2\US.etcdserverpb.AuthStatusRequest\SUB .etcdserverpb.AuthStatusResponse\"\SUB\130\211\228\147\STX\DC4\"\SI/v3/auth/status:\SOH*\DC2w\n\
      \\fAuthenticate\DC2!.etcdserverpb.AuthenticateRequest\SUB\".etcdserverpb.AuthenticateResponse\" \130\211\228\147\STX\SUB\"\NAK/v3/auth/authenticate:\SOH*\DC2l\n\
      \\aUserAdd\DC2 .etcdserverpb.AuthUserAddRequest\SUB!.etcdserverpb.AuthUserAddResponse\"\FS\130\211\228\147\STX\SYN\"\DC1/v3/auth/user/add:\SOH*\DC2l\n\
      \\aUserGet\DC2 .etcdserverpb.AuthUserGetRequest\SUB!.etcdserverpb.AuthUserGetResponse\"\FS\130\211\228\147\STX\SYN\"\DC1/v3/auth/user/get:\SOH*\DC2p\n\
      \\bUserList\DC2!.etcdserverpb.AuthUserListRequest\SUB\".etcdserverpb.AuthUserListResponse\"\GS\130\211\228\147\STX\ETB\"\DC2/v3/auth/user/list:\SOH*\DC2x\n\
      \\n\
      \UserDelete\DC2#.etcdserverpb.AuthUserDeleteRequest\SUB$.etcdserverpb.AuthUserDeleteResponse\"\US\130\211\228\147\STX\EM\"\DC4/v3/auth/user/delete:\SOH*\DC2\146\SOH\n\
      \\DC2UserChangePassword\DC2+.etcdserverpb.AuthUserChangePasswordRequest\SUB,.etcdserverpb.AuthUserChangePasswordResponse\"!\130\211\228\147\STX\ESC\"\SYN/v3/auth/user/changepw:\SOH*\DC2\128\SOH\n\
      \\rUserGrantRole\DC2&.etcdserverpb.AuthUserGrantRoleRequest\SUB'.etcdserverpb.AuthUserGrantRoleResponse\"\RS\130\211\228\147\STX\CAN\"\DC3/v3/auth/user/grant:\SOH*\DC2\132\SOH\n\
      \\SOUserRevokeRole\DC2'.etcdserverpb.AuthUserRevokeRoleRequest\SUB(.etcdserverpb.AuthUserRevokeRoleResponse\"\US\130\211\228\147\STX\EM\"\DC4/v3/auth/user/revoke:\SOH*\DC2l\n\
      \\aRoleAdd\DC2 .etcdserverpb.AuthRoleAddRequest\SUB!.etcdserverpb.AuthRoleAddResponse\"\FS\130\211\228\147\STX\SYN\"\DC1/v3/auth/role/add:\SOH*\DC2l\n\
      \\aRoleGet\DC2 .etcdserverpb.AuthRoleGetRequest\SUB!.etcdserverpb.AuthRoleGetResponse\"\FS\130\211\228\147\STX\SYN\"\DC1/v3/auth/role/get:\SOH*\DC2p\n\
      \\bRoleList\DC2!.etcdserverpb.AuthRoleListRequest\SUB\".etcdserverpb.AuthRoleListResponse\"\GS\130\211\228\147\STX\ETB\"\DC2/v3/auth/role/list:\SOH*\DC2x\n\
      \\n\
      \RoleDelete\DC2#.etcdserverpb.AuthRoleDeleteRequest\SUB$.etcdserverpb.AuthRoleDeleteResponse\"\US\130\211\228\147\STX\EM\"\DC4/v3/auth/role/delete:\SOH*\DC2\146\SOH\n\
      \\DC3RoleGrantPermission\DC2,.etcdserverpb.AuthRoleGrantPermissionRequest\SUB-.etcdserverpb.AuthRoleGrantPermissionResponse\"\RS\130\211\228\147\STX\CAN\"\DC3/v3/auth/role/grant:\SOH*\DC2\150\SOH\n\
      \\DC4RoleRevokePermission\DC2-.etcdserverpb.AuthRoleRevokePermissionRequest\SUB..etcdserverpb.AuthRoleRevokePermissionResponse\"\US\130\211\228\147\STX\EM\"\DC4/v3/auth/role/revoke:\SOH*"
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "authEnable" where
  type MethodName Auth "authEnable" = "AuthEnable"
  type MethodInput Auth "authEnable" = AuthEnableRequest
  type MethodOutput Auth "authEnable" = AuthEnableResponse
  type MethodStreamingType Auth "authEnable" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "authDisable" where
  type MethodName Auth "authDisable" = "AuthDisable"
  type MethodInput Auth "authDisable" = AuthDisableRequest
  type MethodOutput Auth "authDisable" = AuthDisableResponse
  type MethodStreamingType Auth "authDisable" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "authStatus" where
  type MethodName Auth "authStatus" = "AuthStatus"
  type MethodInput Auth "authStatus" = AuthStatusRequest
  type MethodOutput Auth "authStatus" = AuthStatusResponse
  type MethodStreamingType Auth "authStatus" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "authenticate" where
  type MethodName Auth "authenticate" = "Authenticate"
  type MethodInput Auth "authenticate" = AuthenticateRequest
  type MethodOutput Auth "authenticate" = AuthenticateResponse
  type MethodStreamingType Auth "authenticate" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "userAdd" where
  type MethodName Auth "userAdd" = "UserAdd"
  type MethodInput Auth "userAdd" = AuthUserAddRequest
  type MethodOutput Auth "userAdd" = AuthUserAddResponse
  type MethodStreamingType Auth "userAdd" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "userGet" where
  type MethodName Auth "userGet" = "UserGet"
  type MethodInput Auth "userGet" = AuthUserGetRequest
  type MethodOutput Auth "userGet" = AuthUserGetResponse
  type MethodStreamingType Auth "userGet" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "userList" where
  type MethodName Auth "userList" = "UserList"
  type MethodInput Auth "userList" = AuthUserListRequest
  type MethodOutput Auth "userList" = AuthUserListResponse
  type MethodStreamingType Auth "userList" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "userDelete" where
  type MethodName Auth "userDelete" = "UserDelete"
  type MethodInput Auth "userDelete" = AuthUserDeleteRequest
  type MethodOutput Auth "userDelete" = AuthUserDeleteResponse
  type MethodStreamingType Auth "userDelete" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "userChangePassword" where
  type MethodName Auth "userChangePassword" = "UserChangePassword"
  type MethodInput Auth "userChangePassword" = AuthUserChangePasswordRequest
  type MethodOutput Auth "userChangePassword" = AuthUserChangePasswordResponse
  type MethodStreamingType Auth "userChangePassword" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "userGrantRole" where
  type MethodName Auth "userGrantRole" = "UserGrantRole"
  type MethodInput Auth "userGrantRole" = AuthUserGrantRoleRequest
  type MethodOutput Auth "userGrantRole" = AuthUserGrantRoleResponse
  type MethodStreamingType Auth "userGrantRole" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "userRevokeRole" where
  type MethodName Auth "userRevokeRole" = "UserRevokeRole"
  type MethodInput Auth "userRevokeRole" = AuthUserRevokeRoleRequest
  type MethodOutput Auth "userRevokeRole" = AuthUserRevokeRoleResponse
  type MethodStreamingType Auth "userRevokeRole" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "roleAdd" where
  type MethodName Auth "roleAdd" = "RoleAdd"
  type MethodInput Auth "roleAdd" = AuthRoleAddRequest
  type MethodOutput Auth "roleAdd" = AuthRoleAddResponse
  type MethodStreamingType Auth "roleAdd" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "roleGet" where
  type MethodName Auth "roleGet" = "RoleGet"
  type MethodInput Auth "roleGet" = AuthRoleGetRequest
  type MethodOutput Auth "roleGet" = AuthRoleGetResponse
  type MethodStreamingType Auth "roleGet" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "roleList" where
  type MethodName Auth "roleList" = "RoleList"
  type MethodInput Auth "roleList" = AuthRoleListRequest
  type MethodOutput Auth "roleList" = AuthRoleListResponse
  type MethodStreamingType Auth "roleList" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "roleDelete" where
  type MethodName Auth "roleDelete" = "RoleDelete"
  type MethodInput Auth "roleDelete" = AuthRoleDeleteRequest
  type MethodOutput Auth "roleDelete" = AuthRoleDeleteResponse
  type MethodStreamingType Auth "roleDelete" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "roleGrantPermission" where
  type MethodName Auth "roleGrantPermission" = "RoleGrantPermission"
  type MethodInput Auth "roleGrantPermission" = AuthRoleGrantPermissionRequest
  type MethodOutput Auth "roleGrantPermission" = AuthRoleGrantPermissionResponse
  type MethodStreamingType Auth "roleGrantPermission" = 'Data.ProtoLens.Service.Types.NonStreaming
instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "roleRevokePermission" where
  type MethodName Auth "roleRevokePermission" = "RoleRevokePermission"
  type MethodInput Auth "roleRevokePermission" = AuthRoleRevokePermissionRequest
  type MethodOutput Auth "roleRevokePermission" = AuthRoleRevokePermissionResponse
  type MethodStreamingType Auth "roleRevokePermission" = 'Data.ProtoLens.Service.Types.NonStreaming
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \\USetcd/api/etcdserverpb/rpc.proto\DC2\fetcdserverpb\SUB\DC4gogoproto/gogo.proto\SUB\CANetcd/api/mvccpb/kv.proto\SUB\SUBetcd/api/authpb/auth.proto\SUB etcd/api/versionpb/version.proto\SUB\FSgoogle/api/annotations.proto\SUB.protoc-gen-openapiv2/options/annotations.proto\"\142\SOH\n\
    \\SOResponseHeader\DC2\GS\n\
    \\n\
    \cluster_id\CAN\SOH \SOH(\EOTR\tclusterId\DC2\ESC\n\
    \\tmember_id\CAN\STX \SOH(\EOTR\bmemberId\DC2\SUB\n\
    \\brevision\CAN\ETX \SOH(\ETXR\brevision\DC2\ESC\n\
    \\traft_term\CAN\EOT \SOH(\EOTR\braftTerm:\a\130\181\CAN\ETX3.0\"\195\ENQ\n\
    \\fRangeRequest\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\fR\ETXkey\DC2\ESC\n\
    \\trange_end\CAN\STX \SOH(\fR\brangeEnd\DC2\DC4\n\
    \\ENQlimit\CAN\ETX \SOH(\ETXR\ENQlimit\DC2\SUB\n\
    \\brevision\CAN\EOT \SOH(\ETXR\brevision\DC2C\n\
    \\n\
    \sort_order\CAN\ENQ \SOH(\SO2$.etcdserverpb.RangeRequest.SortOrderR\tsortOrder\DC2F\n\
    \\vsort_target\CAN\ACK \SOH(\SO2%.etcdserverpb.RangeRequest.SortTargetR\n\
    \sortTarget\DC2\"\n\
    \\fserializable\CAN\a \SOH(\bR\fserializable\DC2\ESC\n\
    \\tkeys_only\CAN\b \SOH(\bR\bkeysOnly\DC2\GS\n\
    \\n\
    \count_only\CAN\t \SOH(\bR\tcountOnly\DC21\n\
    \\DLEmin_mod_revision\CAN\n\
    \ \SOH(\ETXR\SOminModRevisionB\a\138\181\CAN\ETX3.1\DC21\n\
    \\DLEmax_mod_revision\CAN\v \SOH(\ETXR\SOmaxModRevisionB\a\138\181\CAN\ETX3.1\DC27\n\
    \\DC3min_create_revision\CAN\f \SOH(\ETXR\DC1minCreateRevisionB\a\138\181\CAN\ETX3.1\DC27\n\
    \\DC3max_create_revision\CAN\r \SOH(\ETXR\DC1maxCreateRevisionB\a\138\181\CAN\ETX3.1\"7\n\
    \\tSortOrder\DC2\b\n\
    \\EOTNONE\DLE\NUL\DC2\n\
    \\n\
    \\ACKASCEND\DLE\SOH\DC2\v\n\
    \\aDESCEND\DLE\STX\SUB\a\146\181\CAN\ETX3.0\"K\n\
    \\n\
    \SortTarget\DC2\a\n\
    \\ETXKEY\DLE\NUL\DC2\v\n\
    \\aVERSION\DLE\SOH\DC2\n\
    \\n\
    \\ACKCREATE\DLE\STX\DC2\a\n\
    \\ETXMOD\DLE\ETX\DC2\t\n\
    \\ENQVALUE\DLE\EOT\SUB\a\146\181\CAN\ETX3.0:\a\130\181\CAN\ETX3.0\"\156\SOH\n\
    \\rRangeResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\"\n\
    \\ETXkvs\CAN\STX \ETX(\v2\DLE.mvccpb.KeyValueR\ETXkvs\DC2\DC2\n\
    \\EOTmore\CAN\ETX \SOH(\bR\EOTmore\DC2\DC4\n\
    \\ENQcount\CAN\EOT \SOH(\ETXR\ENQcount:\a\130\181\CAN\ETX3.0\"\205\SOH\n\
    \\n\
    \PutRequest\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\fR\ETXkey\DC2\DC4\n\
    \\ENQvalue\CAN\STX \SOH(\fR\ENQvalue\DC2\DC4\n\
    \\ENQlease\CAN\ETX \SOH(\ETXR\ENQlease\DC2 \n\
    \\aprev_kv\CAN\EOT \SOH(\bR\ACKprevKvB\a\138\181\CAN\ETX3.1\DC2*\n\
    \\fignore_value\CAN\ENQ \SOH(\bR\vignoreValueB\a\138\181\CAN\ETX3.2\DC2*\n\
    \\fignore_lease\CAN\ACK \SOH(\bR\vignoreLeaseB\a\138\181\CAN\ETX3.2:\a\130\181\CAN\ETX3.0\"\128\SOH\n\
    \\vPutResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC22\n\
    \\aprev_kv\CAN\STX \SOH(\v2\DLE.mvccpb.KeyValueR\ACKprevKvB\a\138\181\CAN\ETX3.1:\a\130\181\CAN\ETX3.0\"n\n\
    \\DC2DeleteRangeRequest\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\fR\ETXkey\DC2\ESC\n\
    \\trange_end\CAN\STX \SOH(\fR\brangeEnd\DC2 \n\
    \\aprev_kv\CAN\ETX \SOH(\bR\ACKprevKvB\a\138\181\CAN\ETX3.1:\a\130\181\CAN\ETX3.0\"\164\SOH\n\
    \\DC3DeleteRangeResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\CAN\n\
    \\adeleted\CAN\STX \SOH(\ETXR\adeleted\DC24\n\
    \\bprev_kvs\CAN\ETX \ETX(\v2\DLE.mvccpb.KeyValueR\aprevKvsB\a\138\181\CAN\ETX3.1:\a\130\181\CAN\ETX3.0\"\187\STX\n\
    \\tRequestOp\DC2A\n\
    \\rrequest_range\CAN\SOH \SOH(\v2\SUB.etcdserverpb.RangeRequestH\NULR\frequestRange\DC2;\n\
    \\vrequest_put\CAN\STX \SOH(\v2\CAN.etcdserverpb.PutRequestH\NULR\n\
    \requestPut\DC2T\n\
    \\DC4request_delete_range\CAN\ETX \SOH(\v2 .etcdserverpb.DeleteRangeRequestH\NULR\DC2requestDeleteRange\DC2D\n\
    \\vrequest_txn\CAN\EOT \SOH(\v2\CAN.etcdserverpb.TxnRequestH\NULR\n\
    \requestTxnB\a\138\181\CAN\ETX3.3B\t\n\
    \\arequest:\a\130\181\CAN\ETX3.0\"\201\STX\n\
    \\n\
    \ResponseOp\DC2D\n\
    \\SOresponse_range\CAN\SOH \SOH(\v2\ESC.etcdserverpb.RangeResponseH\NULR\rresponseRange\DC2>\n\
    \\fresponse_put\CAN\STX \SOH(\v2\EM.etcdserverpb.PutResponseH\NULR\vresponsePut\DC2W\n\
    \\NAKresponse_delete_range\CAN\ETX \SOH(\v2!.etcdserverpb.DeleteRangeResponseH\NULR\DC3responseDeleteRange\DC2G\n\
    \\fresponse_txn\CAN\EOT \SOH(\v2\EM.etcdserverpb.TxnResponseH\NULR\vresponseTxnB\a\138\181\CAN\ETX3.3B\n\
    \\n\
    \\bresponse:\a\130\181\CAN\ETX3.0\"\168\EOT\n\
    \\aCompare\DC2;\n\
    \\ACKresult\CAN\SOH \SOH(\SO2#.etcdserverpb.Compare.CompareResultR\ACKresult\DC2;\n\
    \\ACKtarget\CAN\STX \SOH(\SO2#.etcdserverpb.Compare.CompareTargetR\ACKtarget\DC2\DLE\n\
    \\ETXkey\CAN\ETX \SOH(\fR\ETXkey\DC2\SUB\n\
    \\aversion\CAN\EOT \SOH(\ETXH\NULR\aversion\DC2)\n\
    \\SIcreate_revision\CAN\ENQ \SOH(\ETXH\NULR\SOcreateRevision\DC2#\n\
    \\fmod_revision\CAN\ACK \SOH(\ETXH\NULR\vmodRevision\DC2\SYN\n\
    \\ENQvalue\CAN\a \SOH(\fH\NULR\ENQvalue\DC2\US\n\
    \\ENQlease\CAN\b \SOH(\ETXH\NULR\ENQleaseB\a\138\181\CAN\ETX3.3\DC2$\n\
    \\trange_end\CAN@ \SOH(\fR\brangeEndB\a\138\181\CAN\ETX3.3\"R\n\
    \\rCompareResult\DC2\t\n\
    \\ENQEQUAL\DLE\NUL\DC2\v\n\
    \\aGREATER\DLE\SOH\DC2\b\n\
    \\EOTLESS\DLE\STX\DC2\SYN\n\
    \\tNOT_EQUAL\DLE\ETX\SUB\a\154\181\CAN\ETX3.1\SUB\a\146\181\CAN\ETX3.0\"Y\n\
    \\rCompareTarget\DC2\v\n\
    \\aVERSION\DLE\NUL\DC2\n\
    \\n\
    \\ACKCREATE\DLE\SOH\DC2\a\n\
    \\ETXMOD\DLE\STX\DC2\t\n\
    \\ENQVALUE\DLE\ETX\DC2\DC2\n\
    \\ENQLEASE\DLE\EOT\SUB\a\154\181\CAN\ETX3.3\SUB\a\146\181\CAN\ETX3.0B\SO\n\
    \\ftarget_union:\a\130\181\CAN\ETX3.0\"\172\SOH\n\
    \\n\
    \TxnRequest\DC2/\n\
    \\acompare\CAN\SOH \ETX(\v2\NAK.etcdserverpb.CompareR\acompare\DC21\n\
    \\asuccess\CAN\STX \ETX(\v2\ETB.etcdserverpb.RequestOpR\asuccess\DC21\n\
    \\afailure\CAN\ETX \ETX(\v2\ETB.etcdserverpb.RequestOpR\afailure:\a\130\181\CAN\ETX3.0\"\162\SOH\n\
    \\vTxnResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\FS\n\
    \\tsucceeded\CAN\STX \SOH(\bR\tsucceeded\DC26\n\
    \\tresponses\CAN\ETX \ETX(\v2\CAN.etcdserverpb.ResponseOpR\tresponses:\a\130\181\CAN\ETX3.0\"T\n\
    \\DC1CompactionRequest\DC2\SUB\n\
    \\brevision\CAN\SOH \SOH(\ETXR\brevision\DC2\SUB\n\
    \\bphysical\CAN\STX \SOH(\bR\bphysical:\a\130\181\CAN\ETX3.0\"S\n\
    \\DC2CompactionResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0\"\SYN\n\
    \\vHashRequest:\a\130\181\CAN\ETX3.0\"4\n\
    \\rHashKVRequest\DC2\SUB\n\
    \\brevision\CAN\SOH \SOH(\ETXR\brevision:\a\130\181\CAN\ETX3.3\"\188\SOH\n\
    \\SO\&HashKVResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\DC2\n\
    \\EOThash\CAN\STX \SOH(\rR\EOThash\DC2)\n\
    \\DLEcompact_revision\CAN\ETX \SOH(\ETXR\SIcompactRevision\DC2,\n\
    \\rhash_revision\CAN\EOT \SOH(\ETXR\fhashRevisionB\a\138\181\CAN\ETX3.6:\a\130\181\CAN\ETX3.3\"a\n\
    \\fHashResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\DC2\n\
    \\EOThash\CAN\STX \SOH(\rR\EOThash:\a\130\181\CAN\ETX3.0\"\SUB\n\
    \\SISnapshotRequest:\a\130\181\CAN\ETX3.3\"\177\SOH\n\
    \\DLESnapshotResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2'\n\
    \\SIremaining_bytes\CAN\STX \SOH(\EOTR\SOremainingBytes\DC2\DC2\n\
    \\EOTblob\CAN\ETX \SOH(\fR\EOTblob\DC2!\n\
    \\aversion\CAN\EOT \SOH(\tR\aversionB\a\138\181\CAN\ETX3.6:\a\130\181\CAN\ETX3.3\"\152\STX\n\
    \\fWatchRequest\DC2I\n\
    \\SOcreate_request\CAN\SOH \SOH(\v2 .etcdserverpb.WatchCreateRequestH\NULR\rcreateRequest\DC2I\n\
    \\SOcancel_request\CAN\STX \SOH(\v2 .etcdserverpb.WatchCancelRequestH\NULR\rcancelRequest\DC2X\n\
    \\DLEprogress_request\CAN\ETX \SOH(\v2\".etcdserverpb.WatchProgressRequestH\NULR\SIprogressRequestB\a\138\181\CAN\ETX3.4B\SI\n\
    \\rrequest_union:\a\130\181\CAN\ETX3.0\"\135\ETX\n\
    \\DC2WatchCreateRequest\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\fR\ETXkey\DC2\ESC\n\
    \\trange_end\CAN\STX \SOH(\fR\brangeEnd\DC2%\n\
    \\SOstart_revision\CAN\ETX \SOH(\ETXR\rstartRevision\DC2'\n\
    \\SIprogress_notify\CAN\EOT \SOH(\bR\SOprogressNotify\DC2N\n\
    \\afilters\CAN\ENQ \ETX(\SO2+.etcdserverpb.WatchCreateRequest.FilterTypeR\afiltersB\a\138\181\CAN\ETX3.1\DC2 \n\
    \\aprev_kv\CAN\ACK \SOH(\bR\ACKprevKvB\a\138\181\CAN\ETX3.1\DC2\"\n\
    \\bwatch_id\CAN\a \SOH(\ETXR\awatchIdB\a\138\181\CAN\ETX3.4\DC2#\n\
    \\bfragment\CAN\b \SOH(\bR\bfragmentB\a\138\181\CAN\ETX3.4\".\n\
    \\n\
    \FilterType\DC2\t\n\
    \\ENQNOPUT\DLE\NUL\DC2\f\n\
    \\bNODELETE\DLE\SOH\SUB\a\146\181\CAN\ETX3.1:\a\130\181\CAN\ETX3.0\"A\n\
    \\DC2WatchCancelRequest\DC2\"\n\
    \\bwatch_id\CAN\SOH \SOH(\ETXR\awatchIdB\a\138\181\CAN\ETX3.1:\a\130\181\CAN\ETX3.1\"\US\n\
    \\DC4WatchProgressRequest:\a\130\181\CAN\ETX3.4\"\196\STX\n\
    \\rWatchResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\EM\n\
    \\bwatch_id\CAN\STX \SOH(\ETXR\awatchId\DC2\CAN\n\
    \\acreated\CAN\ETX \SOH(\bR\acreated\DC2\SUB\n\
    \\bcanceled\CAN\EOT \SOH(\bR\bcanceled\DC2)\n\
    \\DLEcompact_revision\CAN\ENQ \SOH(\ETXR\SIcompactRevision\DC2,\n\
    \\rcancel_reason\CAN\ACK \SOH(\tR\fcancelReasonB\a\138\181\CAN\ETX3.4\DC2#\n\
    \\bfragment\CAN\a \SOH(\bR\bfragmentB\a\138\181\CAN\ETX3.4\DC2%\n\
    \\ACKevents\CAN\v \ETX(\v2\r.mvccpb.EventR\ACKevents:\a\130\181\CAN\ETX3.0\">\n\
    \\DC1LeaseGrantRequest\DC2\DLE\n\
    \\ETXTTL\CAN\SOH \SOH(\ETXR\ETXTTL\DC2\SO\n\
    \\STXID\CAN\STX \SOH(\ETXR\STXID:\a\130\181\CAN\ETX3.0\"\139\SOH\n\
    \\DC2LeaseGrantResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\SO\n\
    \\STXID\CAN\STX \SOH(\ETXR\STXID\DC2\DLE\n\
    \\ETXTTL\CAN\ETX \SOH(\ETXR\ETXTTL\DC2\DC4\n\
    \\ENQerror\CAN\EOT \SOH(\tR\ENQerror:\a\130\181\CAN\ETX3.0\"-\n\
    \\DC2LeaseRevokeRequest\DC2\SO\n\
    \\STXID\CAN\SOH \SOH(\ETXR\STXID:\a\130\181\CAN\ETX3.0\"T\n\
    \\DC3LeaseRevokeResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0\"O\n\
    \\SILeaseCheckpoint\DC2\SO\n\
    \\STXID\CAN\SOH \SOH(\ETXR\STXID\DC2#\n\
    \\rremaining_TTL\CAN\STX \SOH(\ETXR\fremainingTTL:\a\130\181\CAN\ETX3.4\"b\n\
    \\SYNLeaseCheckpointRequest\DC2?\n\
    \\vcheckpoints\CAN\SOH \ETX(\v2\GS.etcdserverpb.LeaseCheckpointR\vcheckpoints:\a\130\181\CAN\ETX3.4\"X\n\
    \\ETBLeaseCheckpointResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.4\"0\n\
    \\NAKLeaseKeepAliveRequest\DC2\SO\n\
    \\STXID\CAN\SOH \SOH(\ETXR\STXID:\a\130\181\CAN\ETX3.0\"y\n\
    \\SYNLeaseKeepAliveResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\SO\n\
    \\STXID\CAN\STX \SOH(\ETXR\STXID\DC2\DLE\n\
    \\ETXTTL\CAN\ETX \SOH(\ETXR\ETXTTL:\a\130\181\CAN\ETX3.0\"E\n\
    \\SYNLeaseTimeToLiveRequest\DC2\SO\n\
    \\STXID\CAN\SOH \SOH(\ETXR\STXID\DC2\DC2\n\
    \\EOTkeys\CAN\STX \SOH(\bR\EOTkeys:\a\130\181\CAN\ETX3.1\"\174\SOH\n\
    \\ETBLeaseTimeToLiveResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\SO\n\
    \\STXID\CAN\STX \SOH(\ETXR\STXID\DC2\DLE\n\
    \\ETXTTL\CAN\ETX \SOH(\ETXR\ETXTTL\DC2\RS\n\
    \\n\
    \grantedTTL\CAN\EOT \SOH(\ETXR\n\
    \grantedTTL\DC2\DC2\n\
    \\EOTkeys\CAN\ENQ \ETX(\fR\EOTkeys:\a\130\181\CAN\ETX3.1\"\GS\n\
    \\DC2LeaseLeasesRequest:\a\130\181\CAN\ETX3.3\"&\n\
    \\vLeaseStatus\DC2\SO\n\
    \\STXID\CAN\SOH \SOH(\ETXR\STXID:\a\130\181\CAN\ETX3.3\"\135\SOH\n\
    \\DC3LeaseLeasesResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC21\n\
    \\ACKleases\CAN\STX \ETX(\v2\EM.etcdserverpb.LeaseStatusR\ACKleases:\a\130\181\CAN\ETX3.3\"\152\SOH\n\
    \\ACKMember\DC2\SO\n\
    \\STXID\CAN\SOH \SOH(\EOTR\STXID\DC2\DC2\n\
    \\EOTname\CAN\STX \SOH(\tR\EOTname\DC2\SUB\n\
    \\bpeerURLs\CAN\ETX \ETX(\tR\bpeerURLs\DC2\RS\n\
    \\n\
    \clientURLs\CAN\EOT \ETX(\tR\n\
    \clientURLs\DC2%\n\
    \\tisLearner\CAN\ENQ \SOH(\bR\tisLearnerB\a\138\181\CAN\ETX3.4:\a\130\181\CAN\ETX3.0\"^\n\
    \\DLEMemberAddRequest\DC2\SUB\n\
    \\bpeerURLs\CAN\SOH \ETX(\tR\bpeerURLs\DC2%\n\
    \\tisLearner\CAN\STX \SOH(\bR\tisLearnerB\a\138\181\CAN\ETX3.4:\a\130\181\CAN\ETX3.0\"\176\SOH\n\
    \\DC1MemberAddResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2,\n\
    \\ACKmember\CAN\STX \SOH(\v2\DC4.etcdserverpb.MemberR\ACKmember\DC2.\n\
    \\amembers\CAN\ETX \ETX(\v2\DC4.etcdserverpb.MemberR\amembers:\a\130\181\CAN\ETX3.0\".\n\
    \\DC3MemberRemoveRequest\DC2\SO\n\
    \\STXID\CAN\SOH \SOH(\EOTR\STXID:\a\130\181\CAN\ETX3.0\"\133\SOH\n\
    \\DC4MemberRemoveResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2.\n\
    \\amembers\CAN\STX \ETX(\v2\DC4.etcdserverpb.MemberR\amembers:\a\130\181\CAN\ETX3.0\"J\n\
    \\DC3MemberUpdateRequest\DC2\SO\n\
    \\STXID\CAN\SOH \SOH(\EOTR\STXID\DC2\SUB\n\
    \\bpeerURLs\CAN\STX \ETX(\tR\bpeerURLs:\a\130\181\CAN\ETX3.0\"\142\SOH\n\
    \\DC4MemberUpdateResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC27\n\
    \\amembers\CAN\STX \ETX(\v2\DC4.etcdserverpb.MemberR\amembersB\a\138\181\CAN\ETX3.1:\a\130\181\CAN\ETX3.0\"I\n\
    \\DC1MemberListRequest\DC2+\n\
    \\flinearizable\CAN\SOH \SOH(\bR\flinearizableB\a\138\181\CAN\ETX3.5:\a\130\181\CAN\ETX3.0\"\131\SOH\n\
    \\DC2MemberListResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2.\n\
    \\amembers\CAN\STX \ETX(\v2\DC4.etcdserverpb.MemberR\amembers:\a\130\181\CAN\ETX3.0\"/\n\
    \\DC4MemberPromoteRequest\DC2\SO\n\
    \\STXID\CAN\SOH \SOH(\EOTR\STXID:\a\130\181\CAN\ETX3.4\"\134\SOH\n\
    \\NAKMemberPromoteResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2.\n\
    \\amembers\CAN\STX \ETX(\v2\DC4.etcdserverpb.MemberR\amembers:\a\130\181\CAN\ETX3.4\"\FS\n\
    \\DC1DefragmentRequest:\a\130\181\CAN\ETX3.0\"S\n\
    \\DC2DefragmentResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0\"8\n\
    \\DC1MoveLeaderRequest\DC2\SUB\n\
    \\btargetID\CAN\SOH \SOH(\EOTR\btargetID:\a\130\181\CAN\ETX3.3\"S\n\
    \\DC2MoveLeaderResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.3\"\225\SOH\n\
    \\fAlarmRequest\DC2>\n\
    \\ACKaction\CAN\SOH \SOH(\SO2&.etcdserverpb.AlarmRequest.AlarmActionR\ACKaction\DC2\SUB\n\
    \\bmemberID\CAN\STX \SOH(\EOTR\bmemberID\DC2-\n\
    \\ENQalarm\CAN\ETX \SOH(\SO2\ETB.etcdserverpb.AlarmTypeR\ENQalarm\"=\n\
    \\vAlarmAction\DC2\a\n\
    \\ETXGET\DLE\NUL\DC2\f\n\
    \\bACTIVATE\DLE\SOH\DC2\SO\n\
    \\n\
    \DEACTIVATE\DLE\STX\SUB\a\146\181\CAN\ETX3.0:\a\130\181\CAN\ETX3.0\"a\n\
    \\vAlarmMember\DC2\SUB\n\
    \\bmemberID\CAN\SOH \SOH(\EOTR\bmemberID\DC2-\n\
    \\ENQalarm\CAN\STX \SOH(\SO2\ETB.etcdserverpb.AlarmTypeR\ENQalarm:\a\130\181\CAN\ETX3.0\"\129\SOH\n\
    \\rAlarmResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC21\n\
    \\ACKalarms\CAN\STX \ETX(\v2\EM.etcdserverpb.AlarmMemberR\ACKalarms:\a\130\181\CAN\ETX3.0\"\191\SOH\n\
    \\DLEDowngradeRequest\DC2F\n\
    \\ACKaction\CAN\SOH \SOH(\SO2..etcdserverpb.DowngradeRequest.DowngradeActionR\ACKaction\DC2\CAN\n\
    \\aversion\CAN\STX \SOH(\tR\aversion\"@\n\
    \\SIDowngradeAction\DC2\f\n\
    \\bVALIDATE\DLE\NUL\DC2\n\
    \\n\
    \\ACKENABLE\DLE\SOH\DC2\n\
    \\n\
    \\ACKCANCEL\DLE\STX\SUB\a\146\181\CAN\ETX3.5:\a\130\181\CAN\ETX3.5\"l\n\
    \\DC1DowngradeResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\CAN\n\
    \\aversion\CAN\STX \SOH(\tR\aversion:\a\130\181\CAN\ETX3.5\"8\n\
    \\ESCDowngradeVersionTestRequest\DC2\DLE\n\
    \\ETXver\CAN\SOH \SOH(\tR\ETXver:\a\130\181\CAN\ETX3.6\"\CAN\n\
    \\rStatusRequest:\a\130\181\CAN\ETX3.0\"\215\ETX\n\
    \\SOStatusResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\CAN\n\
    \\aversion\CAN\STX \SOH(\tR\aversion\DC2\SYN\n\
    \\ACKdbSize\CAN\ETX \SOH(\ETXR\ACKdbSize\DC2\SYN\n\
    \\ACKleader\CAN\EOT \SOH(\EOTR\ACKleader\DC2\FS\n\
    \\traftIndex\CAN\ENQ \SOH(\EOTR\traftIndex\DC2\SUB\n\
    \\braftTerm\CAN\ACK \SOH(\EOTR\braftTerm\DC23\n\
    \\DLEraftAppliedIndex\CAN\a \SOH(\EOTR\DLEraftAppliedIndexB\a\138\181\CAN\ETX3.4\DC2\US\n\
    \\ACKerrors\CAN\b \ETX(\tR\ACKerrorsB\a\138\181\CAN\ETX3.4\DC2)\n\
    \\vdbSizeInUse\CAN\t \SOH(\ETXR\vdbSizeInUseB\a\138\181\CAN\ETX3.4\DC2%\n\
    \\tisLearner\CAN\n\
    \ \SOH(\bR\tisLearnerB\a\138\181\CAN\ETX3.4\DC2/\n\
    \\SOstorageVersion\CAN\v \SOH(\tR\SOstorageVersionB\a\138\181\CAN\ETX3.6\DC2)\n\
    \\vdbSizeQuota\CAN\f \SOH(\ETXR\vdbSizeQuotaB\a\138\181\CAN\ETX3.6:\a\130\181\CAN\ETX3.0\"\FS\n\
    \\DC1AuthEnableRequest:\a\130\181\CAN\ETX3.0\"\GS\n\
    \\DC2AuthDisableRequest:\a\130\181\CAN\ETX3.0\"\FS\n\
    \\DC1AuthStatusRequest:\a\130\181\CAN\ETX3.5\"N\n\
    \\DC3AuthenticateRequest\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\SUB\n\
    \\bpassword\CAN\STX \SOH(\tR\bpassword:\a\130\181\CAN\ETX3.0\"\185\SOH\n\
    \\DC2AuthUserAddRequest\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\SUB\n\
    \\bpassword\CAN\STX \SOH(\tR\bpassword\DC29\n\
    \\aoptions\CAN\ETX \SOH(\v2\SYN.authpb.UserAddOptionsR\aoptionsB\a\138\181\CAN\ETX3.4\DC2/\n\
    \\SOhashedPassword\CAN\EOT \SOH(\tR\SOhashedPasswordB\a\138\181\CAN\ETX3.5:\a\130\181\CAN\ETX3.0\"1\n\
    \\DC2AuthUserGetRequest\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname:\a\130\181\CAN\ETX3.0\"4\n\
    \\NAKAuthUserDeleteRequest\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname:\a\130\181\CAN\ETX3.0\"\137\SOH\n\
    \\GSAuthUserChangePasswordRequest\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\SUB\n\
    \\bpassword\CAN\STX \SOH(\tR\bpassword\DC2/\n\
    \\SOhashedPassword\CAN\ETX \SOH(\tR\SOhashedPasswordB\a\138\181\CAN\ETX3.5:\a\130\181\CAN\ETX3.0\"K\n\
    \\CANAuthUserGrantRoleRequest\DC2\DC2\n\
    \\EOTuser\CAN\SOH \SOH(\tR\EOTuser\DC2\DC2\n\
    \\EOTrole\CAN\STX \SOH(\tR\EOTrole:\a\130\181\CAN\ETX3.0\"L\n\
    \\EMAuthUserRevokeRoleRequest\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\DC2\n\
    \\EOTrole\CAN\STX \SOH(\tR\EOTrole:\a\130\181\CAN\ETX3.0\"1\n\
    \\DC2AuthRoleAddRequest\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname:\a\130\181\CAN\ETX3.0\"1\n\
    \\DC2AuthRoleGetRequest\DC2\DC2\n\
    \\EOTrole\CAN\SOH \SOH(\tR\EOTrole:\a\130\181\CAN\ETX3.0\"\RS\n\
    \\DC3AuthUserListRequest:\a\130\181\CAN\ETX3.0\"\RS\n\
    \\DC3AuthRoleListRequest:\a\130\181\CAN\ETX3.0\"4\n\
    \\NAKAuthRoleDeleteRequest\DC2\DC2\n\
    \\EOTrole\CAN\SOH \SOH(\tR\EOTrole:\a\130\181\CAN\ETX3.0\"e\n\
    \\RSAuthRoleGrantPermissionRequest\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2&\n\
    \\EOTperm\CAN\STX \SOH(\v2\DC2.authpb.PermissionR\EOTperm:\a\130\181\CAN\ETX3.0\"m\n\
    \\USAuthRoleRevokePermissionRequest\DC2\DC2\n\
    \\EOTrole\CAN\SOH \SOH(\tR\EOTrole\DC2\DLE\n\
    \\ETXkey\CAN\STX \SOH(\fR\ETXkey\DC2\ESC\n\
    \\trange_end\CAN\ETX \SOH(\fR\brangeEnd:\a\130\181\CAN\ETX3.0\"S\n\
    \\DC2AuthEnableResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0\"T\n\
    \\DC3AuthDisableResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0\"\145\SOH\n\
    \\DC2AuthStatusResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\CAN\n\
    \\aenabled\CAN\STX \SOH(\bR\aenabled\DC2\"\n\
    \\fauthRevision\CAN\ETX \SOH(\EOTR\fauthRevision:\a\130\181\CAN\ETX3.5\"k\n\
    \\DC4AuthenticateResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\DC4\n\
    \\ENQtoken\CAN\STX \SOH(\tR\ENQtoken:\a\130\181\CAN\ETX3.0\"T\n\
    \\DC3AuthUserAddResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0\"j\n\
    \\DC3AuthUserGetResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\DC4\n\
    \\ENQroles\CAN\STX \ETX(\tR\ENQroles:\a\130\181\CAN\ETX3.0\"W\n\
    \\SYNAuthUserDeleteResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0\"_\n\
    \\RSAuthUserChangePasswordResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0\"Z\n\
    \\EMAuthUserGrantRoleResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0\"[\n\
    \\SUBAuthUserRevokeRoleResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0\"T\n\
    \\DC3AuthRoleAddResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0\"\133\SOH\n\
    \\DC3AuthRoleGetResponse\DC2=\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheaderB\a\138\181\CAN\ETX3.0\DC2/\n\
    \\EOTperm\CAN\STX \ETX(\v2\DC2.authpb.PermissionR\EOTpermB\a\138\181\CAN\ETX3.0\"k\n\
    \\DC4AuthRoleListResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\DC4\n\
    \\ENQroles\CAN\STX \ETX(\tR\ENQroles:\a\130\181\CAN\ETX3.0\"k\n\
    \\DC4AuthUserListResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader\DC2\DC4\n\
    \\ENQusers\CAN\STX \ETX(\tR\ENQusers:\a\130\181\CAN\ETX3.0\"W\n\
    \\SYNAuthRoleDeleteResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0\"`\n\
    \\USAuthRoleGrantPermissionResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0\"a\n\
    \ AuthRoleRevokePermissionResponse\DC24\n\
    \\ACKheader\CAN\SOH \SOH(\v2\FS.etcdserverpb.ResponseHeaderR\ACKheader:\a\130\181\CAN\ETX3.0*A\n\
    \\tAlarmType\DC2\b\n\
    \\EOTNONE\DLE\NUL\DC2\v\n\
    \\aNOSPACE\DLE\SOH\DC2\DC4\n\
    \\aCORRUPT\DLE\STX\SUB\a\154\181\CAN\ETX3.3\SUB\a\146\181\CAN\ETX3.02\228\ETX\n\
    \\STXKV\DC2Y\n\
    \\ENQRange\DC2\SUB.etcdserverpb.RangeRequest\SUB\ESC.etcdserverpb.RangeResponse\"\ETB\130\211\228\147\STX\DC1\"\f/v3/kv/range:\SOH*\DC2Q\n\
    \\ETXPut\DC2\CAN.etcdserverpb.PutRequest\SUB\EM.etcdserverpb.PutResponse\"\NAK\130\211\228\147\STX\SI\"\n\
    \/v3/kv/put:\SOH*\DC2q\n\
    \\vDeleteRange\DC2 .etcdserverpb.DeleteRangeRequest\SUB!.etcdserverpb.DeleteRangeResponse\"\GS\130\211\228\147\STX\ETB\"\DC2/v3/kv/deleterange:\SOH*\DC2Q\n\
    \\ETXTxn\DC2\CAN.etcdserverpb.TxnRequest\SUB\EM.etcdserverpb.TxnResponse\"\NAK\130\211\228\147\STX\SI\"\n\
    \/v3/kv/txn:\SOH*\DC2j\n\
    \\aCompact\DC2\US.etcdserverpb.CompactionRequest\SUB .etcdserverpb.CompactionResponse\"\FS\130\211\228\147\STX\SYN\"\DC1/v3/kv/compaction:\SOH*2c\n\
    \\ENQWatch\DC2Z\n\
    \\ENQWatch\DC2\SUB.etcdserverpb.WatchRequest\SUB\ESC.etcdserverpb.WatchResponse\"\DC4\130\211\228\147\STX\SO\"\t/v3/watch:\SOH*(\SOH0\SOH2\173\ENQ\n\
    \\ENQLease\DC2k\n\
    \\n\
    \LeaseGrant\DC2\US.etcdserverpb.LeaseGrantRequest\SUB .etcdserverpb.LeaseGrantResponse\"\SUB\130\211\228\147\STX\DC4\"\SI/v3/lease/grant:\SOH*\DC2\137\SOH\n\
    \\vLeaseRevoke\DC2 .etcdserverpb.LeaseRevokeRequest\SUB!.etcdserverpb.LeaseRevokeResponse\"5\130\211\228\147\STX/\"\DLE/v3/lease/revoke:\SOH*Z\CAN\"\DC3/v3/kv/lease/revoke:\SOH*\DC2\DEL\n\
    \\SOLeaseKeepAlive\DC2#.etcdserverpb.LeaseKeepAliveRequest\SUB$.etcdserverpb.LeaseKeepAliveResponse\"\RS\130\211\228\147\STX\CAN\"\DC3/v3/lease/keepalive:\SOH*(\SOH0\SOH\DC2\157\SOH\n\
    \\SILeaseTimeToLive\DC2$.etcdserverpb.LeaseTimeToLiveRequest\SUB%.etcdserverpb.LeaseTimeToLiveResponse\"=\130\211\228\147\STX7\"\DC4/v3/lease/timetolive:\SOH*Z\FS\"\ETB/v3/kv/lease/timetolive:\SOH*\DC2\137\SOH\n\
    \\vLeaseLeases\DC2 .etcdserverpb.LeaseLeasesRequest\SUB!.etcdserverpb.LeaseLeasesResponse\"5\130\211\228\147\STX/\"\DLE/v3/lease/leases:\SOH*Z\CAN\"\DC3/v3/kv/lease/leases:\SOH*2\234\EOT\n\
    \\aCluster\DC2o\n\
    \\tMemberAdd\DC2\RS.etcdserverpb.MemberAddRequest\SUB\US.etcdserverpb.MemberAddResponse\"!\130\211\228\147\STX\ESC\"\SYN/v3/cluster/member/add:\SOH*\DC2{\n\
    \\fMemberRemove\DC2!.etcdserverpb.MemberRemoveRequest\SUB\".etcdserverpb.MemberRemoveResponse\"$\130\211\228\147\STX\RS\"\EM/v3/cluster/member/remove:\SOH*\DC2{\n\
    \\fMemberUpdate\DC2!.etcdserverpb.MemberUpdateRequest\SUB\".etcdserverpb.MemberUpdateResponse\"$\130\211\228\147\STX\RS\"\EM/v3/cluster/member/update:\SOH*\DC2s\n\
    \\n\
    \MemberList\DC2\US.etcdserverpb.MemberListRequest\SUB .etcdserverpb.MemberListResponse\"\"\130\211\228\147\STX\FS\"\ETB/v3/cluster/member/list:\SOH*\DC2\DEL\n\
    \\rMemberPromote\DC2\".etcdserverpb.MemberPromoteRequest\SUB#.etcdserverpb.MemberPromoteResponse\"%\130\211\228\147\STX\US\"\SUB/v3/cluster/member/promote:\SOH*2\128\a\n\
    \\vMaintenance\DC2b\n\
    \\ENQAlarm\DC2\SUB.etcdserverpb.AlarmRequest\SUB\ESC.etcdserverpb.AlarmResponse\" \130\211\228\147\STX\SUB\"\NAK/v3/maintenance/alarm:\SOH*\DC2f\n\
    \\ACKStatus\DC2\ESC.etcdserverpb.StatusRequest\SUB\FS.etcdserverpb.StatusResponse\"!\130\211\228\147\STX\ESC\"\SYN/v3/maintenance/status:\SOH*\DC2v\n\
    \\n\
    \Defragment\DC2\US.etcdserverpb.DefragmentRequest\SUB .etcdserverpb.DefragmentResponse\"%\130\211\228\147\STX\US\"\SUB/v3/maintenance/defragment:\SOH*\DC2^\n\
    \\EOTHash\DC2\EM.etcdserverpb.HashRequest\SUB\SUB.etcdserverpb.HashResponse\"\US\130\211\228\147\STX\EM\"\DC4/v3/maintenance/hash:\SOH*\DC2f\n\
    \\ACKHashKV\DC2\ESC.etcdserverpb.HashKVRequest\SUB\FS.etcdserverpb.HashKVResponse\"!\130\211\228\147\STX\ESC\"\SYN/v3/maintenance/hashkv:\SOH*\DC2p\n\
    \\bSnapshot\DC2\GS.etcdserverpb.SnapshotRequest\SUB\RS.etcdserverpb.SnapshotResponse\"#\130\211\228\147\STX\GS\"\CAN/v3/maintenance/snapshot:\SOH*0\SOH\DC2\DEL\n\
    \\n\
    \MoveLeader\DC2\US.etcdserverpb.MoveLeaderRequest\SUB .etcdserverpb.MoveLeaderResponse\".\130\211\228\147\STX(\"#/v3/maintenance/transfer-leadership:\SOH*\DC2r\n\
    \\tDowngrade\DC2\RS.etcdserverpb.DowngradeRequest\SUB\US.etcdserverpb.DowngradeResponse\"$\130\211\228\147\STX\RS\"\EM/v3/maintenance/downgrade:\SOH*2\167\DLE\n\
    \\EOTAuth\DC2k\n\
    \\n\
    \AuthEnable\DC2\US.etcdserverpb.AuthEnableRequest\SUB .etcdserverpb.AuthEnableResponse\"\SUB\130\211\228\147\STX\DC4\"\SI/v3/auth/enable:\SOH*\DC2o\n\
    \\vAuthDisable\DC2 .etcdserverpb.AuthDisableRequest\SUB!.etcdserverpb.AuthDisableResponse\"\ESC\130\211\228\147\STX\NAK\"\DLE/v3/auth/disable:\SOH*\DC2k\n\
    \\n\
    \AuthStatus\DC2\US.etcdserverpb.AuthStatusRequest\SUB .etcdserverpb.AuthStatusResponse\"\SUB\130\211\228\147\STX\DC4\"\SI/v3/auth/status:\SOH*\DC2w\n\
    \\fAuthenticate\DC2!.etcdserverpb.AuthenticateRequest\SUB\".etcdserverpb.AuthenticateResponse\" \130\211\228\147\STX\SUB\"\NAK/v3/auth/authenticate:\SOH*\DC2l\n\
    \\aUserAdd\DC2 .etcdserverpb.AuthUserAddRequest\SUB!.etcdserverpb.AuthUserAddResponse\"\FS\130\211\228\147\STX\SYN\"\DC1/v3/auth/user/add:\SOH*\DC2l\n\
    \\aUserGet\DC2 .etcdserverpb.AuthUserGetRequest\SUB!.etcdserverpb.AuthUserGetResponse\"\FS\130\211\228\147\STX\SYN\"\DC1/v3/auth/user/get:\SOH*\DC2p\n\
    \\bUserList\DC2!.etcdserverpb.AuthUserListRequest\SUB\".etcdserverpb.AuthUserListResponse\"\GS\130\211\228\147\STX\ETB\"\DC2/v3/auth/user/list:\SOH*\DC2x\n\
    \\n\
    \UserDelete\DC2#.etcdserverpb.AuthUserDeleteRequest\SUB$.etcdserverpb.AuthUserDeleteResponse\"\US\130\211\228\147\STX\EM\"\DC4/v3/auth/user/delete:\SOH*\DC2\146\SOH\n\
    \\DC2UserChangePassword\DC2+.etcdserverpb.AuthUserChangePasswordRequest\SUB,.etcdserverpb.AuthUserChangePasswordResponse\"!\130\211\228\147\STX\ESC\"\SYN/v3/auth/user/changepw:\SOH*\DC2\128\SOH\n\
    \\rUserGrantRole\DC2&.etcdserverpb.AuthUserGrantRoleRequest\SUB'.etcdserverpb.AuthUserGrantRoleResponse\"\RS\130\211\228\147\STX\CAN\"\DC3/v3/auth/user/grant:\SOH*\DC2\132\SOH\n\
    \\SOUserRevokeRole\DC2'.etcdserverpb.AuthUserRevokeRoleRequest\SUB(.etcdserverpb.AuthUserRevokeRoleResponse\"\US\130\211\228\147\STX\EM\"\DC4/v3/auth/user/revoke:\SOH*\DC2l\n\
    \\aRoleAdd\DC2 .etcdserverpb.AuthRoleAddRequest\SUB!.etcdserverpb.AuthRoleAddResponse\"\FS\130\211\228\147\STX\SYN\"\DC1/v3/auth/role/add:\SOH*\DC2l\n\
    \\aRoleGet\DC2 .etcdserverpb.AuthRoleGetRequest\SUB!.etcdserverpb.AuthRoleGetResponse\"\FS\130\211\228\147\STX\SYN\"\DC1/v3/auth/role/get:\SOH*\DC2p\n\
    \\bRoleList\DC2!.etcdserverpb.AuthRoleListRequest\SUB\".etcdserverpb.AuthRoleListResponse\"\GS\130\211\228\147\STX\ETB\"\DC2/v3/auth/role/list:\SOH*\DC2x\n\
    \\n\
    \RoleDelete\DC2#.etcdserverpb.AuthRoleDeleteRequest\SUB$.etcdserverpb.AuthRoleDeleteResponse\"\US\130\211\228\147\STX\EM\"\DC4/v3/auth/role/delete:\SOH*\DC2\146\SOH\n\
    \\DC3RoleGrantPermission\DC2,.etcdserverpb.AuthRoleGrantPermissionRequest\SUB-.etcdserverpb.AuthRoleGrantPermissionResponse\"\RS\130\211\228\147\STX\CAN\"\DC3/v3/auth/role/grant:\SOH*\DC2\150\SOH\n\
    \\DC4RoleRevokePermission\DC2-.etcdserverpb.AuthRoleRevokePermissionRequest\SUB..etcdserverpb.AuthRoleRevokePermissionResponse\"\US\130\211\228\147\STX\EM\"\DC4/v3/auth/role/revoke:\SOH*B_Z#go.etcd.io/etcd/api/v3/etcdserverpb\146A/Z\US\n\
    \\GS\n\
    \\ACKApiKey\DC2\DC3\b\STX\SUB\rAuthorization \STXb\f\n\
    \\n\
    \\n\
    \\ACKApiKey\DC2\NUL\200\226\RS\SOH\208\226\RS\SOHJ\220\236\STX\n\
    \\a\DC2\ENQ\NUL\NUL\144\v\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\SOH\NUL\NAK\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\ETX\NUL\RS\n\
    \\t\n\
    \\STX\ETX\SOH\DC2\ETX\EOT\NUL\"\n\
    \\t\n\
    \\STX\ETX\STX\DC2\ETX\ENQ\NUL$\n\
    \\t\n\
    \\STX\ETX\ETX\DC2\ETX\ACK\NUL*\n\
    \\GS\n\
    \\STX\ETX\EOT\DC2\ETX\t\NUL&\SUB\DC2 for grpc-gateway\n\
    \\n\
    \\t\n\
    \\STX\ETX\ENQ\DC2\ETX\n\
    \\NUL8\n\
    \\b\n\
    \\SOH\b\DC2\ETX\f\NUL:\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\f\NUL:\n\
    \\b\n\
    \\SOH\b\DC2\ETX\SO\NUL(\n\
    \\v\n\
    \\EOT\b\169\236\ETX\DC2\ETX\SO\NUL(\n\
    \\b\n\
    \\SOH\b\DC2\ETX\SI\NUL*\n\
    \\v\n\
    \\EOT\b\170\236\ETX\DC2\ETX\SI\NUL*\n\
    \\t\n\
    \\SOH\b\DC2\EOT\DC1\NUL\"\STX\n\
    \\v\n\
    \\ETX\b\146\b\DC2\EOT\DC1\NUL\"\STX\n\
    \\n\
    \\n\
    \\STX\ACK\NUL\DC2\EOT$\NULU\SOH\n\
    \\n\
    \\n\
    \\ETX\ACK\NUL\SOH\DC2\ETX$\b\n\
    \\n\
    \J\n\
    \\EOT\ACK\NUL\STX\NUL\DC2\EOT&\STX+\ETX\SUB< Range gets the keys in the range from the key-value store.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX&\ACK\v\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX&\f\CAN\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX&#0\n\
    \\r\n\
    \\ENQ\ACK\NUL\STX\NUL\EOT\DC2\EOT'\ACK*\ACK\n\
    \\DC1\n\
    \\t\ACK\NUL\STX\NUL\EOT\176\202\188\"\DC2\EOT'\ACK*\ACK\n\
    \\174\SOH\n\
    \\EOT\ACK\NUL\STX\SOH\DC2\EOT0\STX5\ETX\SUB\159\SOH Put puts the given key into the key-value store.\n\
    \ A put request increments the revision of the key-value store\n\
    \ and generates one event in the event history.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\SOH\SOH\DC2\ETX0\ACK\t\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\SOH\STX\DC2\ETX0\n\
    \\DC4\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETX0\US*\n\
    \\r\n\
    \\ENQ\ACK\NUL\STX\SOH\EOT\DC2\EOT1\ACK4\ACK\n\
    \\DC1\n\
    \\t\ACK\NUL\STX\SOH\EOT\176\202\188\"\DC2\EOT1\ACK4\ACK\n\
    \\217\SOH\n\
    \\EOT\ACK\NUL\STX\STX\DC2\EOT:\STX?\ETX\SUB\202\SOH DeleteRange deletes the given range from the key-value store.\n\
    \ A delete request increments the revision of the key-value store\n\
    \ and generates a delete event in the event history for every deleted key.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\STX\SOH\DC2\ETX:\ACK\DC1\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\STX\STX\DC2\ETX:\DC2$\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\STX\ETX\DC2\ETX:/B\n\
    \\r\n\
    \\ENQ\ACK\NUL\STX\STX\EOT\DC2\EOT;\ACK>\ACK\n\
    \\DC1\n\
    \\t\ACK\NUL\STX\STX\EOT\176\202\188\"\DC2\EOT;\ACK>\ACK\n\
    \\153\STX\n\
    \\EOT\ACK\NUL\STX\ETX\DC2\EOTE\STXJ\ETX\SUB\138\STX Txn processes multiple requests in a single transaction.\n\
    \ A txn request increments the revision of the key-value store\n\
    \ and generates events with the same revision for every completed request.\n\
    \ It is not allowed to modify the same key several times within one txn.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\ETX\SOH\DC2\ETXE\ACK\t\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\ETX\STX\DC2\ETXE\n\
    \\DC4\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\ETX\ETX\DC2\ETXE\US*\n\
    \\r\n\
    \\ENQ\ACK\NUL\STX\ETX\EOT\DC2\EOTF\ACKI\ACK\n\
    \\DC1\n\
    \\t\ACK\NUL\STX\ETX\EOT\176\202\188\"\DC2\EOTF\ACKI\ACK\n\
    \\192\SOH\n\
    \\EOT\ACK\NUL\STX\EOT\DC2\EOTO\STXT\ETX\SUB\177\SOH Compact compacts the event history in the etcd key-value store. The key-value\n\
    \ store should be periodically compacted or the event history will continue to grow\n\
    \ indefinitely.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\EOT\SOH\DC2\ETXO\ACK\r\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\EOT\STX\DC2\ETXO\SO\US\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\EOT\ETX\DC2\ETXO*<\n\
    \\r\n\
    \\ENQ\ACK\NUL\STX\EOT\EOT\DC2\EOTP\ACKS\ACK\n\
    \\DC1\n\
    \\t\ACK\NUL\STX\EOT\EOT\176\202\188\"\DC2\EOTP\ACKS\ACK\n\
    \\n\
    \\n\
    \\STX\ACK\SOH\DC2\EOTW\NULc\SOH\n\
    \\n\
    \\n\
    \\ETX\ACK\SOH\SOH\DC2\ETXW\b\r\n\
    \\255\STX\n\
    \\EOT\ACK\SOH\STX\NUL\DC2\EOT]\STXb\ETX\SUB\240\STX Watch watches for events happening or that have happened. Both input and output\n\
    \ are streams; the input stream is for creating and canceling watchers and the output\n\
    \ stream sends events. One watch RPC can watch on multiple key ranges, streaming events\n\
    \ for several watches at once. The entire event history can be watched starting from the\n\
    \ last compaction revision.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\SOH\STX\NUL\SOH\DC2\ETX]\ACK\v\n\
    \\f\n\
    \\ENQ\ACK\SOH\STX\NUL\ENQ\DC2\ETX]\f\DC2\n\
    \\f\n\
    \\ENQ\ACK\SOH\STX\NUL\STX\DC2\ETX]\DC3\US\n\
    \\f\n\
    \\ENQ\ACK\SOH\STX\NUL\ACK\DC2\ETX]*0\n\
    \\f\n\
    \\ENQ\ACK\SOH\STX\NUL\ETX\DC2\ETX]1>\n\
    \\r\n\
    \\ENQ\ACK\SOH\STX\NUL\EOT\DC2\EOT^\ACKa\ACK\n\
    \\DC1\n\
    \\t\ACK\SOH\STX\NUL\EOT\176\202\188\"\DC2\EOT^\ACKa\ACK\n\
    \\v\n\
    \\STX\ACK\STX\DC2\ENQe\NUL\156\SOH\SOH\n\
    \\n\
    \\n\
    \\ETX\ACK\STX\SOH\DC2\ETXe\b\r\n\
    \\155\STX\n\
    \\EOT\ACK\STX\STX\NUL\DC2\EOTi\STXn\ETX\SUB\140\STX LeaseGrant creates a lease which expires if the server does not receive a keepAlive\n\
    \ within a given time to live period. All keys attached to the lease will be expired and\n\
    \ deleted if the lease expires. Each expired key generates a delete event in the event history.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\STX\STX\NUL\SOH\DC2\ETXi\ACK\DLE\n\
    \\f\n\
    \\ENQ\ACK\STX\STX\NUL\STX\DC2\ETXi\DC1\"\n\
    \\f\n\
    \\ENQ\ACK\STX\STX\NUL\ETX\DC2\ETXi-?\n\
    \\r\n\
    \\ENQ\ACK\STX\STX\NUL\EOT\DC2\EOTj\ACKm\ACK\n\
    \\DC1\n\
    \\t\ACK\STX\STX\NUL\EOT\176\202\188\"\DC2\EOTj\ACKm\ACK\n\
    \g\n\
    \\EOT\ACK\STX\STX\SOH\DC2\EOTq\STXz\ETX\SUBY LeaseRevoke revokes a lease. All keys attached to the lease will expire and be deleted.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\STX\STX\SOH\SOH\DC2\ETXq\ACK\DC1\n\
    \\f\n\
    \\ENQ\ACK\STX\STX\SOH\STX\DC2\ETXq\DC2$\n\
    \\f\n\
    \\ENQ\ACK\STX\STX\SOH\ETX\DC2\ETXq/B\n\
    \\r\n\
    \\ENQ\ACK\STX\STX\SOH\EOT\DC2\EOTr\ACKy\ACK\n\
    \\DC1\n\
    \\t\ACK\STX\STX\SOH\EOT\176\202\188\"\DC2\EOTr\ACKy\ACK\n\
    \\184\SOH\n\
    \\EOT\ACK\STX\STX\STX\DC2\ENQ~\STX\131\SOH\ETX\SUB\168\SOH LeaseKeepAlive keeps the lease alive by streaming keep alive requests from the client\n\
    \ to the server and streaming keep alive responses from the server to the client.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\STX\STX\STX\SOH\DC2\ETX~\ACK\DC4\n\
    \\f\n\
    \\ENQ\ACK\STX\STX\STX\ENQ\DC2\ETX~\NAK\ESC\n\
    \\f\n\
    \\ENQ\ACK\STX\STX\STX\STX\DC2\ETX~\FS1\n\
    \\f\n\
    \\ENQ\ACK\STX\STX\STX\ACK\DC2\ETX~<B\n\
    \\f\n\
    \\ENQ\ACK\STX\STX\STX\ETX\DC2\ETX~CY\n\
    \\SO\n\
    \\ENQ\ACK\STX\STX\STX\EOT\DC2\ENQ\DEL\ACK\130\SOH\ACK\n\
    \\DC2\n\
    \\t\ACK\STX\STX\STX\EOT\176\202\188\"\DC2\ENQ\DEL\ACK\130\SOH\ACK\n\
    \>\n\
    \\EOT\ACK\STX\STX\ETX\DC2\ACK\134\SOH\STX\143\SOH\ETX\SUB. LeaseTimeToLive retrieves lease information.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\STX\STX\ETX\SOH\DC2\EOT\134\SOH\ACK\NAK\n\
    \\r\n\
    \\ENQ\ACK\STX\STX\ETX\STX\DC2\EOT\134\SOH\SYN,\n\
    \\r\n\
    \\ENQ\ACK\STX\STX\ETX\ETX\DC2\EOT\134\SOH7N\n\
    \\SI\n\
    \\ENQ\ACK\STX\STX\ETX\EOT\DC2\ACK\135\SOH\ACK\142\SOH\ACK\n\
    \\DC3\n\
    \\t\ACK\STX\STX\ETX\EOT\176\202\188\"\DC2\ACK\135\SOH\ACK\142\SOH\ACK\n\
    \8\n\
    \\EOT\ACK\STX\STX\EOT\DC2\ACK\146\SOH\STX\155\SOH\ETX\SUB( LeaseLeases lists all existing leases.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\STX\STX\EOT\SOH\DC2\EOT\146\SOH\ACK\DC1\n\
    \\r\n\
    \\ENQ\ACK\STX\STX\EOT\STX\DC2\EOT\146\SOH\DC2$\n\
    \\r\n\
    \\ENQ\ACK\STX\STX\EOT\ETX\DC2\EOT\146\SOH/B\n\
    \\SI\n\
    \\ENQ\ACK\STX\STX\EOT\EOT\DC2\ACK\147\SOH\ACK\154\SOH\ACK\n\
    \\DC3\n\
    \\t\ACK\STX\STX\EOT\EOT\176\202\188\"\DC2\ACK\147\SOH\ACK\154\SOH\ACK\n\
    \\f\n\
    \\STX\ACK\ETX\DC2\ACK\158\SOH\NUL\198\SOH\SOH\n\
    \\v\n\
    \\ETX\ACK\ETX\SOH\DC2\EOT\158\SOH\b\SI\n\
    \;\n\
    \\EOT\ACK\ETX\STX\NUL\DC2\ACK\160\SOH\STX\165\SOH\ETX\SUB+ MemberAdd adds a member into the cluster.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ETX\STX\NUL\SOH\DC2\EOT\160\SOH\ACK\SI\n\
    \\r\n\
    \\ENQ\ACK\ETX\STX\NUL\STX\DC2\EOT\160\SOH\DLE \n\
    \\r\n\
    \\ENQ\ACK\ETX\STX\NUL\ETX\DC2\EOT\160\SOH+<\n\
    \\SI\n\
    \\ENQ\ACK\ETX\STX\NUL\EOT\DC2\ACK\161\SOH\ACK\164\SOH\ACK\n\
    \\DC3\n\
    \\t\ACK\ETX\STX\NUL\EOT\176\202\188\"\DC2\ACK\161\SOH\ACK\164\SOH\ACK\n\
    \K\n\
    \\EOT\ACK\ETX\STX\SOH\DC2\ACK\168\SOH\STX\173\SOH\ETX\SUB; MemberRemove removes an existing member from the cluster.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ETX\STX\SOH\SOH\DC2\EOT\168\SOH\ACK\DC2\n\
    \\r\n\
    \\ENQ\ACK\ETX\STX\SOH\STX\DC2\EOT\168\SOH\DC3&\n\
    \\r\n\
    \\ENQ\ACK\ETX\STX\SOH\ETX\DC2\EOT\168\SOH1E\n\
    \\SI\n\
    \\ENQ\ACK\ETX\STX\SOH\EOT\DC2\ACK\169\SOH\ACK\172\SOH\ACK\n\
    \\DC3\n\
    \\t\ACK\ETX\STX\SOH\EOT\176\202\188\"\DC2\ACK\169\SOH\ACK\172\SOH\ACK\n\
    \@\n\
    \\EOT\ACK\ETX\STX\STX\DC2\ACK\176\SOH\STX\181\SOH\ETX\SUB0 MemberUpdate updates the member configuration.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ETX\STX\STX\SOH\DC2\EOT\176\SOH\ACK\DC2\n\
    \\r\n\
    \\ENQ\ACK\ETX\STX\STX\STX\DC2\EOT\176\SOH\DC3&\n\
    \\r\n\
    \\ENQ\ACK\ETX\STX\STX\ETX\DC2\EOT\176\SOH1E\n\
    \\SI\n\
    \\ENQ\ACK\ETX\STX\STX\EOT\DC2\ACK\177\SOH\ACK\180\SOH\ACK\n\
    \\DC3\n\
    \\t\ACK\ETX\STX\STX\EOT\176\202\188\"\DC2\ACK\177\SOH\ACK\180\SOH\ACK\n\
    \B\n\
    \\EOT\ACK\ETX\STX\ETX\DC2\ACK\184\SOH\STX\189\SOH\ETX\SUB2 MemberList lists all the members in the cluster.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ETX\STX\ETX\SOH\DC2\EOT\184\SOH\ACK\DLE\n\
    \\r\n\
    \\ENQ\ACK\ETX\STX\ETX\STX\DC2\EOT\184\SOH\DC1\"\n\
    \\r\n\
    \\ENQ\ACK\ETX\STX\ETX\ETX\DC2\EOT\184\SOH-?\n\
    \\SI\n\
    \\ENQ\ACK\ETX\STX\ETX\EOT\DC2\ACK\185\SOH\ACK\188\SOH\ACK\n\
    \\DC3\n\
    \\t\ACK\ETX\STX\ETX\EOT\176\202\188\"\DC2\ACK\185\SOH\ACK\188\SOH\ACK\n\
    \g\n\
    \\EOT\ACK\ETX\STX\EOT\DC2\ACK\192\SOH\STX\197\SOH\ETX\SUBW MemberPromote promotes a member from raft learner (non-voting) to raft voting member.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ETX\STX\EOT\SOH\DC2\EOT\192\SOH\ACK\DC3\n\
    \\r\n\
    \\ENQ\ACK\ETX\STX\EOT\STX\DC2\EOT\192\SOH\DC4(\n\
    \\r\n\
    \\ENQ\ACK\ETX\STX\EOT\ETX\DC2\EOT\192\SOH3H\n\
    \\SI\n\
    \\ENQ\ACK\ETX\STX\EOT\EOT\DC2\ACK\193\SOH\ACK\196\SOH\ACK\n\
    \\DC3\n\
    \\t\ACK\ETX\STX\EOT\EOT\176\202\188\"\DC2\ACK\193\SOH\ACK\196\SOH\ACK\n\
    \\f\n\
    \\STX\ACK\EOT\DC2\ACK\200\SOH\NUL\144\STX\SOH\n\
    \\v\n\
    \\ETX\ACK\EOT\SOH\DC2\EOT\200\SOH\b\DC3\n\
    \\\\n\
    \\EOT\ACK\EOT\STX\NUL\DC2\ACK\202\SOH\STX\207\SOH\ETX\SUBL Alarm activates, deactivates, and queries alarms regarding cluster health.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\NUL\SOH\DC2\EOT\202\SOH\ACK\v\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\NUL\STX\DC2\EOT\202\SOH\f\CAN\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\NUL\ETX\DC2\EOT\202\SOH#0\n\
    \\SI\n\
    \\ENQ\ACK\EOT\STX\NUL\EOT\DC2\ACK\203\SOH\ACK\206\SOH\ACK\n\
    \\DC3\n\
    \\t\ACK\EOT\STX\NUL\EOT\176\202\188\"\DC2\ACK\203\SOH\ACK\206\SOH\ACK\n\
    \7\n\
    \\EOT\ACK\EOT\STX\SOH\DC2\ACK\210\SOH\STX\215\SOH\ETX\SUB' Status gets the status of the member.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\SOH\SOH\DC2\EOT\210\SOH\ACK\f\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\SOH\STX\DC2\EOT\210\SOH\r\SUB\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\SOH\ETX\DC2\EOT\210\SOH%3\n\
    \\SI\n\
    \\ENQ\ACK\EOT\STX\SOH\EOT\DC2\ACK\211\SOH\ACK\214\SOH\ACK\n\
    \\DC3\n\
    \\t\ACK\EOT\STX\SOH\EOT\176\202\188\"\DC2\ACK\211\SOH\ACK\214\SOH\ACK\n\
    \^\n\
    \\EOT\ACK\EOT\STX\STX\DC2\ACK\218\SOH\STX\223\SOH\ETX\SUBN Defragment defragments a member's backend database to recover storage space.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\STX\SOH\DC2\EOT\218\SOH\ACK\DLE\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\STX\STX\DC2\EOT\218\SOH\DC1\"\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\STX\ETX\DC2\EOT\218\SOH-?\n\
    \\SI\n\
    \\ENQ\ACK\EOT\STX\STX\EOT\DC2\ACK\219\SOH\ACK\222\SOH\ACK\n\
    \\DC3\n\
    \\t\ACK\EOT\STX\STX\EOT\176\202\188\"\DC2\ACK\219\SOH\ACK\222\SOH\ACK\n\
    \\202\STX\n\
    \\EOT\ACK\EOT\STX\ETX\DC2\ACK\231\SOH\STX\236\SOH\ETX\SUB\185\STX Hash computes the hash of whole backend keyspace,\n\
    \ including key, lease, and other buckets in storage.\n\
    \ This is designed for testing ONLY!\n\
    \ Do not rely on this in production with ongoing transactions,\n\
    \ since Hash operation does not hold MVCC locks.\n\
    \ Use \"HashKV\" API instead for \"key\" bucket consistency checks.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\ETX\SOH\DC2\EOT\231\SOH\ACK\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\ETX\STX\DC2\EOT\231\SOH\v\SYN\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\ETX\ETX\DC2\EOT\231\SOH!-\n\
    \\SI\n\
    \\ENQ\ACK\EOT\STX\ETX\EOT\DC2\ACK\232\SOH\ACK\235\SOH\ACK\n\
    \\DC3\n\
    \\t\ACK\EOT\STX\ETX\EOT\176\202\188\"\DC2\ACK\232\SOH\ACK\235\SOH\ACK\n\
    \\134\SOH\n\
    \\EOT\ACK\EOT\STX\EOT\DC2\ACK\240\SOH\STX\245\SOH\ETX\SUBv HashKV computes the hash of all MVCC keys up to a given revision.\n\
    \ It only iterates \"key\" bucket in backend storage.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\EOT\SOH\DC2\EOT\240\SOH\ACK\f\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\EOT\STX\DC2\EOT\240\SOH\r\SUB\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\EOT\ETX\DC2\EOT\240\SOH%3\n\
    \\SI\n\
    \\ENQ\ACK\EOT\STX\EOT\EOT\DC2\ACK\241\SOH\ACK\244\SOH\ACK\n\
    \\DC3\n\
    \\t\ACK\EOT\STX\EOT\EOT\176\202\188\"\DC2\ACK\241\SOH\ACK\244\SOH\ACK\n\
    \j\n\
    \\EOT\ACK\EOT\STX\ENQ\DC2\ACK\248\SOH\STX\253\SOH\ETX\SUBZ Snapshot sends a snapshot of the entire backend from a member over a stream to a client.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\ENQ\SOH\DC2\EOT\248\SOH\ACK\SO\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\ENQ\STX\DC2\EOT\248\SOH\SI\RS\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\ENQ\ACK\DC2\EOT\248\SOH)/\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\ENQ\ETX\DC2\EOT\248\SOH0@\n\
    \\SI\n\
    \\ENQ\ACK\EOT\STX\ENQ\EOT\DC2\ACK\249\SOH\ACK\252\SOH\ACK\n\
    \\DC3\n\
    \\t\ACK\EOT\STX\ENQ\EOT\176\202\188\"\DC2\ACK\249\SOH\ACK\252\SOH\ACK\n\
    \c\n\
    \\EOT\ACK\EOT\STX\ACK\DC2\ACK\128\STX\STX\133\STX\ETX\SUBS MoveLeader requests current leader node to transfer its leadership to transferee.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\ACK\SOH\DC2\EOT\128\STX\ACK\DLE\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\ACK\STX\DC2\EOT\128\STX\DC1\"\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\ACK\ETX\DC2\EOT\128\STX-?\n\
    \\SI\n\
    \\ENQ\ACK\EOT\STX\ACK\EOT\DC2\ACK\129\STX\ACK\132\STX\ACK\n\
    \\DC3\n\
    \\t\ACK\EOT\STX\ACK\EOT\176\202\188\"\DC2\ACK\129\STX\ACK\132\STX\ACK\n\
    \\142\SOH\n\
    \\EOT\ACK\EOT\STX\a\DC2\ACK\138\STX\STX\143\STX\ETX\SUB~ Downgrade requests downgrades, verifies feasibility or cancels downgrade\n\
    \ on the cluster version.\n\
    \ Supported since etcd 3.5.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\a\SOH\DC2\EOT\138\STX\ACK\SI\n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\a\STX\DC2\EOT\138\STX\DLE \n\
    \\r\n\
    \\ENQ\ACK\EOT\STX\a\ETX\DC2\EOT\138\STX+<\n\
    \\SI\n\
    \\ENQ\ACK\EOT\STX\a\EOT\DC2\ACK\139\STX\EOT\142\STX\ACK\n\
    \\DC3\n\
    \\t\ACK\EOT\STX\a\EOT\176\202\188\"\DC2\ACK\139\STX\EOT\142\STX\ACK\n\
    \\f\n\
    \\STX\ACK\ENQ\DC2\ACK\146\STX\NUL\154\ETX\SOH\n\
    \\v\n\
    \\ETX\ACK\ENQ\SOH\DC2\EOT\146\STX\b\f\n\
    \4\n\
    \\EOT\ACK\ENQ\STX\NUL\DC2\ACK\148\STX\STX\153\STX\ETX\SUB$ AuthEnable enables authentication.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\NUL\SOH\DC2\EOT\148\STX\ACK\DLE\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\NUL\STX\DC2\EOT\148\STX\DC1\"\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\NUL\ETX\DC2\EOT\148\STX-?\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\NUL\EOT\DC2\ACK\149\STX\ACK\152\STX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\NUL\EOT\176\202\188\"\DC2\ACK\149\STX\ACK\152\STX\ACK\n\
    \6\n\
    \\EOT\ACK\ENQ\STX\SOH\DC2\ACK\156\STX\STX\161\STX\ETX\SUB& AuthDisable disables authentication.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\SOH\SOH\DC2\EOT\156\STX\ACK\DC1\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\SOH\STX\DC2\EOT\156\STX\DC2$\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\SOH\ETX\DC2\EOT\156\STX/B\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\SOH\EOT\DC2\ACK\157\STX\ACK\160\STX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\SOH\EOT\176\202\188\"\DC2\ACK\157\STX\ACK\160\STX\ACK\n\
    \<\n\
    \\EOT\ACK\ENQ\STX\STX\DC2\ACK\164\STX\STX\169\STX\ETX\SUB, AuthStatus displays authentication status.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\STX\SOH\DC2\EOT\164\STX\ACK\DLE\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\STX\STX\DC2\EOT\164\STX\DC1\"\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\STX\ETX\DC2\EOT\164\STX-?\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\STX\EOT\DC2\ACK\165\STX\ACK\168\STX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\STX\EOT\176\202\188\"\DC2\ACK\165\STX\ACK\168\STX\ACK\n\
    \A\n\
    \\EOT\ACK\ENQ\STX\ETX\DC2\ACK\172\STX\STX\177\STX\ETX\SUB1 Authenticate processes an authenticate request.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\ETX\SOH\DC2\EOT\172\STX\ACK\DC2\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\ETX\STX\DC2\EOT\172\STX\DC3&\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\ETX\ETX\DC2\EOT\172\STX1E\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\ETX\EOT\DC2\ACK\173\STX\ACK\176\STX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\ETX\EOT\176\202\188\"\DC2\ACK\173\STX\ACK\176\STX\ACK\n\
    \E\n\
    \\EOT\ACK\ENQ\STX\EOT\DC2\ACK\180\STX\STX\185\STX\ETX\SUB5 UserAdd adds a new user. User name cannot be empty.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\EOT\SOH\DC2\EOT\180\STX\ACK\r\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\EOT\STX\DC2\EOT\180\STX\SO \n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\EOT\ETX\DC2\EOT\180\STX+>\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\EOT\EOT\DC2\ACK\181\STX\ACK\184\STX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\EOT\EOT\176\202\188\"\DC2\ACK\181\STX\ACK\184\STX\ACK\n\
    \9\n\
    \\EOT\ACK\ENQ\STX\ENQ\DC2\ACK\188\STX\STX\193\STX\ETX\SUB) UserGet gets detailed user information.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\ENQ\SOH\DC2\EOT\188\STX\ACK\r\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\ENQ\STX\DC2\EOT\188\STX\SO \n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\ENQ\ETX\DC2\EOT\188\STX+>\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\ENQ\EOT\DC2\ACK\189\STX\ACK\192\STX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\ENQ\EOT\176\202\188\"\DC2\ACK\189\STX\ACK\192\STX\ACK\n\
    \4\n\
    \\EOT\ACK\ENQ\STX\ACK\DC2\ACK\196\STX\STX\201\STX\ETX\SUB$ UserList gets a list of all users.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\ACK\SOH\DC2\EOT\196\STX\ACK\SO\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\ACK\STX\DC2\EOT\196\STX\SI\"\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\ACK\ETX\DC2\EOT\196\STX-A\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\ACK\EOT\DC2\ACK\197\STX\ACK\200\STX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\ACK\EOT\176\202\188\"\DC2\ACK\197\STX\ACK\200\STX\ACK\n\
    \6\n\
    \\EOT\ACK\ENQ\STX\a\DC2\ACK\204\STX\STX\209\STX\ETX\SUB& UserDelete deletes a specified user.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\a\SOH\DC2\EOT\204\STX\ACK\DLE\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\a\STX\DC2\EOT\204\STX\DC1&\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\a\ETX\DC2\EOT\204\STX1G\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\a\EOT\DC2\ACK\205\STX\ACK\208\STX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\a\EOT\176\202\188\"\DC2\ACK\205\STX\ACK\208\STX\ACK\n\
    \N\n\
    \\EOT\ACK\ENQ\STX\b\DC2\ACK\212\STX\STX\217\STX\ETX\SUB> UserChangePassword changes the password of a specified user.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\b\SOH\DC2\EOT\212\STX\ACK\CAN\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\b\STX\DC2\EOT\212\STX\EM6\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\b\ETX\DC2\EOT\212\STXA_\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\b\EOT\DC2\ACK\213\STX\ACK\216\STX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\b\EOT\176\202\188\"\DC2\ACK\213\STX\ACK\216\STX\ACK\n\
    \>\n\
    \\EOT\ACK\ENQ\STX\t\DC2\ACK\220\STX\STX\225\STX\ETX\SUB. UserGrant grants a role to a specified user.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\t\SOH\DC2\EOT\220\STX\ACK\DC3\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\t\STX\DC2\EOT\220\STX\DC4,\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\t\ETX\DC2\EOT\220\STX7P\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\t\EOT\DC2\ACK\221\STX\ACK\224\STX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\t\EOT\176\202\188\"\DC2\ACK\221\STX\ACK\224\STX\ACK\n\
    \B\n\
    \\EOT\ACK\ENQ\STX\n\
    \\DC2\ACK\228\STX\STX\233\STX\ETX\SUB2 UserRevokeRole revokes a role of specified user.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\n\
    \\SOH\DC2\EOT\228\STX\ACK\DC4\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\n\
    \\STX\DC2\EOT\228\STX\NAK.\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\n\
    \\ETX\DC2\EOT\228\STX9S\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\n\
    \\EOT\DC2\ACK\229\STX\ACK\232\STX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\n\
    \\EOT\176\202\188\"\DC2\ACK\229\STX\ACK\232\STX\ACK\n\
    \E\n\
    \\EOT\ACK\ENQ\STX\v\DC2\ACK\236\STX\STX\241\STX\ETX\SUB5 RoleAdd adds a new role. Role name cannot be empty.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\v\SOH\DC2\EOT\236\STX\ACK\r\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\v\STX\DC2\EOT\236\STX\SO \n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\v\ETX\DC2\EOT\236\STX+>\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\v\EOT\DC2\ACK\237\STX\ACK\240\STX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\v\EOT\176\202\188\"\DC2\ACK\237\STX\ACK\240\STX\ACK\n\
    \9\n\
    \\EOT\ACK\ENQ\STX\f\DC2\ACK\244\STX\STX\249\STX\ETX\SUB) RoleGet gets detailed role information.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\f\SOH\DC2\EOT\244\STX\ACK\r\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\f\STX\DC2\EOT\244\STX\SO \n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\f\ETX\DC2\EOT\244\STX+>\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\f\EOT\DC2\ACK\245\STX\ACK\248\STX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\f\EOT\176\202\188\"\DC2\ACK\245\STX\ACK\248\STX\ACK\n\
    \3\n\
    \\EOT\ACK\ENQ\STX\r\DC2\ACK\252\STX\STX\129\ETX\ETX\SUB# RoleList gets lists of all roles.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\r\SOH\DC2\EOT\252\STX\ACK\SO\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\r\STX\DC2\EOT\252\STX\SI\"\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\r\ETX\DC2\EOT\252\STX-A\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\r\EOT\DC2\ACK\253\STX\ACK\128\ETX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\r\EOT\176\202\188\"\DC2\ACK\253\STX\ACK\128\ETX\ACK\n\
    \6\n\
    \\EOT\ACK\ENQ\STX\SO\DC2\ACK\132\ETX\STX\137\ETX\ETX\SUB& RoleDelete deletes a specified role.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\SO\SOH\DC2\EOT\132\ETX\ACK\DLE\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\SO\STX\DC2\EOT\132\ETX\DC1&\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\SO\ETX\DC2\EOT\132\ETX1G\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\SO\EOT\DC2\ACK\133\ETX\ACK\136\ETX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\SO\EOT\176\202\188\"\DC2\ACK\133\ETX\ACK\136\ETX\ACK\n\
    \j\n\
    \\EOT\ACK\ENQ\STX\SI\DC2\ACK\140\ETX\STX\145\ETX\ETX\SUBZ RoleGrantPermission grants a permission of a specified key or range to a specified role.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\SI\SOH\DC2\EOT\140\ETX\ACK\EM\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\SI\STX\DC2\EOT\140\ETX\SUB8\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\SI\ETX\DC2\EOT\140\ETXCb\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\SI\EOT\DC2\ACK\141\ETX\ACK\144\ETX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\SI\EOT\176\202\188\"\DC2\ACK\141\ETX\ACK\144\ETX\ACK\n\
    \]\n\
    \\EOT\ACK\ENQ\STX\DLE\DC2\ACK\148\ETX\STX\153\ETX\ETX\SUBM RoleRevokePermission revokes a key or range permission of a specified role.\n\
    \\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\DLE\SOH\DC2\EOT\148\ETX\ACK\SUB\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\DLE\STX\DC2\EOT\148\ETX\ESC:\n\
    \\r\n\
    \\ENQ\ACK\ENQ\STX\DLE\ETX\DC2\EOT\148\ETXEe\n\
    \\SI\n\
    \\ENQ\ACK\ENQ\STX\DLE\EOT\DC2\ACK\149\ETX\ACK\152\ETX\ACK\n\
    \\DC3\n\
    \\t\ACK\ENQ\STX\DLE\EOT\176\202\188\"\DC2\ACK\149\ETX\ACK\152\ETX\ACK\n\
    \\f\n\
    \\STX\EOT\NUL\DC2\ACK\156\ETX\NUL\171\ETX\SOH\n\
    \\v\n\
    \\ETX\EOT\NUL\SOH\DC2\EOT\156\ETX\b\SYN\n\
    \\v\n\
    \\ETX\EOT\NUL\a\DC2\EOT\157\ETX\STX.\n\
    \\SO\n\
    \\ACK\EOT\NUL\a\208\134\ETX\DC2\EOT\157\ETX\STX.\n\
    \L\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\EOT\160\ETX\STX\CAN\SUB> cluster_id is the ID of the cluster which sent the response.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\EOT\160\ETX\STX\b\n\
    \\r\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\EOT\160\ETX\t\DC3\n\
    \\r\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\EOT\160\ETX\SYN\ETB\n\
    \J\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\EOT\162\ETX\STX\ETB\SUB< member_id is the ID of the member which sent the response.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\EOT\162\ETX\STX\b\n\
    \\r\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\EOT\162\ETX\t\DC2\n\
    \\r\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\EOT\162\ETX\NAK\SYN\n\
    \\233\STX\n\
    \\EOT\EOT\NUL\STX\STX\DC2\EOT\168\ETX\STX\NAK\SUB\218\STX revision is the key-value store revision when the request was applied, and it's\n\
    \ unset (so 0) in case of calls not interacting with key-value store.\n\
    \ For watch progress responses, the header.revision indicates progress. All future events\n\
    \ received in this stream are guaranteed to have a higher revision number than the\n\
    \ header.revision number.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NUL\STX\STX\ENQ\DC2\EOT\168\ETX\STX\a\n\
    \\r\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\EOT\168\ETX\b\DLE\n\
    \\r\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\EOT\168\ETX\DC3\DC4\n\
    \H\n\
    \\EOT\EOT\NUL\STX\ETX\DC2\EOT\170\ETX\STX\ETB\SUB: raft_term is the raft term when the request was applied.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\EOT\170\ETX\STX\b\n\
    \\r\n\
    \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\EOT\170\ETX\t\DC2\n\
    \\r\n\
    \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\EOT\170\ETX\NAK\SYN\n\
    \\f\n\
    \\STX\EOT\SOH\DC2\ACK\173\ETX\NUL\242\ETX\SOH\n\
    \\v\n\
    \\ETX\EOT\SOH\SOH\DC2\EOT\173\ETX\b\DC4\n\
    \\v\n\
    \\ETX\EOT\SOH\a\DC2\EOT\174\ETX\STX.\n\
    \\SO\n\
    \\ACK\EOT\SOH\a\208\134\ETX\DC2\EOT\174\ETX\STX.\n\
    \\SO\n\
    \\EOT\EOT\SOH\EOT\NUL\DC2\ACK\176\ETX\STX\181\ETX\ETX\n\
    \\r\n\
    \\ENQ\EOT\SOH\EOT\NUL\SOH\DC2\EOT\176\ETX\a\DLE\n\
    \\r\n\
    \\ENQ\EOT\SOH\EOT\NUL\ETX\DC2\EOT\177\ETX\EOT1\n\
    \\DLE\n\
    \\b\EOT\SOH\EOT\NUL\ETX\210\134\ETX\DC2\EOT\177\ETX\EOT1\n\
    \%\n\
    \\ACK\EOT\SOH\EOT\NUL\STX\NUL\DC2\EOT\178\ETX\EOT\r\"\NAK default, no sorting\n\
    \\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\NUL\STX\NUL\SOH\DC2\EOT\178\ETX\EOT\b\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\NUL\STX\NUL\STX\DC2\EOT\178\ETX\v\f\n\
    \+\n\
    \\ACK\EOT\SOH\EOT\NUL\STX\SOH\DC2\EOT\179\ETX\EOT\SI\"\ESC lowest target value first\n\
    \\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\NUL\STX\SOH\SOH\DC2\EOT\179\ETX\EOT\n\
    \\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\NUL\STX\SOH\STX\DC2\EOT\179\ETX\r\SO\n\
    \,\n\
    \\ACK\EOT\SOH\EOT\NUL\STX\STX\DC2\EOT\180\ETX\EOT\DLE\"\FS highest target value first\n\
    \\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\NUL\STX\STX\SOH\DC2\EOT\180\ETX\EOT\v\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\NUL\STX\STX\STX\DC2\EOT\180\ETX\SO\SI\n\
    \\SO\n\
    \\EOT\EOT\SOH\EOT\SOH\DC2\ACK\182\ETX\STX\189\ETX\ETX\n\
    \\r\n\
    \\ENQ\EOT\SOH\EOT\SOH\SOH\DC2\EOT\182\ETX\a\DC1\n\
    \\r\n\
    \\ENQ\EOT\SOH\EOT\SOH\ETX\DC2\EOT\183\ETX\EOT1\n\
    \\DLE\n\
    \\b\EOT\SOH\EOT\SOH\ETX\210\134\ETX\DC2\EOT\183\ETX\EOT1\n\
    \\SO\n\
    \\ACK\EOT\SOH\EOT\SOH\STX\NUL\DC2\EOT\184\ETX\EOT\f\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\SOH\STX\NUL\SOH\DC2\EOT\184\ETX\EOT\a\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\SOH\STX\NUL\STX\DC2\EOT\184\ETX\n\
    \\v\n\
    \\SO\n\
    \\ACK\EOT\SOH\EOT\SOH\STX\SOH\DC2\EOT\185\ETX\EOT\DLE\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\SOH\STX\SOH\SOH\DC2\EOT\185\ETX\EOT\v\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\SOH\STX\SOH\STX\DC2\EOT\185\ETX\SO\SI\n\
    \\SO\n\
    \\ACK\EOT\SOH\EOT\SOH\STX\STX\DC2\EOT\186\ETX\EOT\SI\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\SOH\STX\STX\SOH\DC2\EOT\186\ETX\EOT\n\
    \\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\SOH\STX\STX\STX\DC2\EOT\186\ETX\r\SO\n\
    \\SO\n\
    \\ACK\EOT\SOH\EOT\SOH\STX\ETX\DC2\EOT\187\ETX\EOT\f\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\SOH\STX\ETX\SOH\DC2\EOT\187\ETX\EOT\a\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\SOH\STX\ETX\STX\DC2\EOT\187\ETX\n\
    \\v\n\
    \\SO\n\
    \\ACK\EOT\SOH\EOT\SOH\STX\EOT\DC2\EOT\188\ETX\EOT\SO\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\SOH\STX\EOT\SOH\DC2\EOT\188\ETX\EOT\t\n\
    \\SI\n\
    \\a\EOT\SOH\EOT\SOH\STX\EOT\STX\DC2\EOT\188\ETX\f\r\n\
    \m\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\EOT\192\ETX\STX\DLE\SUB_ key is the first key for the range. If range_end is not given, the request only looks up key.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\EOT\192\ETX\STX\a\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\EOT\192\ETX\b\v\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\EOT\192\ETX\SO\SI\n\
    \\218\STX\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\EOT\198\ETX\STX\SYN\SUB\203\STX range_end is the upper bound on the requested range [key, range_end).\n\
    \ If range_end is '\\0', the range is all keys >= key.\n\
    \ If range_end is key plus one (e.g., \"aa\"+1 == \"ab\", \"a\\xff\"+1 == \"b\"),\n\
    \ then the range request gets all keys prefixed with key.\n\
    \ If both key and range_end are '\\0', then the range request returns all keys.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\EOT\198\ETX\STX\a\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\EOT\198\ETX\b\DC1\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\EOT\198\ETX\DC4\NAK\n\
    \\132\SOH\n\
    \\EOT\EOT\SOH\STX\STX\DC2\EOT\201\ETX\STX\DC2\SUBv limit is a limit on the number of keys returned for the request. When limit is set to 0,\n\
    \ it is treated as no limit.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\STX\ENQ\DC2\EOT\201\ETX\STX\a\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\STX\SOH\DC2\EOT\201\ETX\b\r\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\STX\ETX\DC2\EOT\201\ETX\DLE\DC1\n\
    \\253\SOH\n\
    \\EOT\EOT\SOH\STX\ETX\DC2\EOT\205\ETX\STX\NAK\SUB\238\SOH revision is the point-in-time of the key-value store to use for the range.\n\
    \ If revision is less or equal to zero, the range is over the newest key-value store.\n\
    \ If the revision has been compacted, ErrCompacted is returned as a response.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\ETX\ENQ\DC2\EOT\205\ETX\STX\a\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\ETX\SOH\DC2\EOT\205\ETX\b\DLE\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\ETX\ETX\DC2\EOT\205\ETX\DC3\DC4\n\
    \D\n\
    \\EOT\EOT\SOH\STX\EOT\DC2\EOT\208\ETX\STX\ESC\SUB6 sort_order is the order for returned sorted results.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\EOT\ACK\DC2\EOT\208\ETX\STX\v\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\EOT\SOH\DC2\EOT\208\ETX\f\SYN\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\EOT\ETX\DC2\EOT\208\ETX\EM\SUB\n\
    \F\n\
    \\EOT\EOT\SOH\STX\ENQ\DC2\EOT\211\ETX\STX\GS\SUB8 sort_target is the key-value field to use for sorting.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\ENQ\ACK\DC2\EOT\211\ETX\STX\f\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\ENQ\SOH\DC2\EOT\211\ETX\r\CAN\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\ENQ\ETX\DC2\EOT\211\ETX\ESC\FS\n\
    \\202\ETX\n\
    \\EOT\EOT\SOH\STX\ACK\DC2\EOT\219\ETX\STX\CAN\SUB\187\ETX serializable sets the range request to use serializable member-local reads.\n\
    \ Range requests are linearizable by default; linearizable requests have higher\n\
    \ latency and lower throughput than serializable requests but reflect the current\n\
    \ consensus of the cluster. For better performance, in exchange for possible stale reads,\n\
    \ a serializable range request is served locally without needing to reach consensus\n\
    \ with other nodes in the cluster.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\ACK\ENQ\DC2\EOT\219\ETX\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\ACK\SOH\DC2\EOT\219\ETX\a\DC3\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\ACK\ETX\DC2\EOT\219\ETX\SYN\ETB\n\
    \L\n\
    \\EOT\EOT\SOH\STX\a\DC2\EOT\222\ETX\STX\NAK\SUB> keys_only when set returns only the keys and not the values.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\a\ENQ\DC2\EOT\222\ETX\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\a\SOH\DC2\EOT\222\ETX\a\DLE\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\a\ETX\DC2\EOT\222\ETX\DC3\DC4\n\
    \T\n\
    \\EOT\EOT\SOH\STX\b\DC2\EOT\225\ETX\STX\SYN\SUBF count_only when set returns only the count of the keys in the range.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\b\ENQ\DC2\EOT\225\ETX\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\b\SOH\DC2\EOT\225\ETX\a\DC1\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\b\ETX\DC2\EOT\225\ETX\DC4\NAK\n\
    \\143\SOH\n\
    \\EOT\EOT\SOH\STX\t\DC2\EOT\229\ETX\STXE\SUB\128\SOH min_mod_revision is the lower bound for returned key mod revisions; all keys with\n\
    \ lesser mod revisions will be filtered away.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\t\ENQ\DC2\EOT\229\ETX\STX\a\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\t\SOH\DC2\EOT\229\ETX\b\CAN\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\t\ETX\DC2\EOT\229\ETX\ESC\GS\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\t\b\DC2\EOT\229\ETX\RSD\n\
    \\DLE\n\
    \\b\EOT\SOH\STX\t\b\209\134\ETX\DC2\EOT\229\ETX\USC\n\
    \\144\SOH\n\
    \\EOT\EOT\SOH\STX\n\
    \\DC2\EOT\233\ETX\STXE\SUB\129\SOH max_mod_revision is the upper bound for returned key mod revisions; all keys with\n\
    \ greater mod revisions will be filtered away.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\n\
    \\ENQ\DC2\EOT\233\ETX\STX\a\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\n\
    \\SOH\DC2\EOT\233\ETX\b\CAN\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\n\
    \\ETX\DC2\EOT\233\ETX\ESC\GS\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\n\
    \\b\DC2\EOT\233\ETX\RSD\n\
    \\DLE\n\
    \\b\EOT\SOH\STX\n\
    \\b\209\134\ETX\DC2\EOT\233\ETX\USC\n\
    \\152\SOH\n\
    \\EOT\EOT\SOH\STX\v\DC2\EOT\237\ETX\STXH\SUB\137\SOH min_create_revision is the lower bound for returned key create revisions; all keys with\n\
    \ lesser create revisions will be filtered away.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\v\ENQ\DC2\EOT\237\ETX\STX\a\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\v\SOH\DC2\EOT\237\ETX\b\ESC\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\v\ETX\DC2\EOT\237\ETX\RS \n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\v\b\DC2\EOT\237\ETX!G\n\
    \\DLE\n\
    \\b\EOT\SOH\STX\v\b\209\134\ETX\DC2\EOT\237\ETX\"F\n\
    \\153\SOH\n\
    \\EOT\EOT\SOH\STX\f\DC2\EOT\241\ETX\STXH\SUB\138\SOH max_create_revision is the upper bound for returned key create revisions; all keys with\n\
    \ greater create revisions will be filtered away.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\f\ENQ\DC2\EOT\241\ETX\STX\a\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\f\SOH\DC2\EOT\241\ETX\b\ESC\n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\f\ETX\DC2\EOT\241\ETX\RS \n\
    \\r\n\
    \\ENQ\EOT\SOH\STX\f\b\DC2\EOT\241\ETX!G\n\
    \\DLE\n\
    \\b\EOT\SOH\STX\f\b\209\134\ETX\DC2\EOT\241\ETX\"F\n\
    \\f\n\
    \\STX\EOT\STX\DC2\ACK\244\ETX\NUL\255\ETX\SOH\n\
    \\v\n\
    \\ETX\EOT\STX\SOH\DC2\EOT\244\ETX\b\NAK\n\
    \\v\n\
    \\ETX\EOT\STX\a\DC2\EOT\245\ETX\STX.\n\
    \\SO\n\
    \\ACK\EOT\STX\a\208\134\ETX\DC2\EOT\245\ETX\STX.\n\
    \\f\n\
    \\EOT\EOT\STX\STX\NUL\DC2\EOT\247\ETX\STX\FS\n\
    \\r\n\
    \\ENQ\EOT\STX\STX\NUL\ACK\DC2\EOT\247\ETX\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\EOT\247\ETX\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\EOT\247\ETX\SUB\ESC\n\
    \w\n\
    \\EOT\EOT\STX\STX\SOH\DC2\EOT\250\ETX\STX#\SUBi kvs is the list of key-value pairs matched by the range request.\n\
    \ kvs is empty when count is requested.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\STX\STX\SOH\EOT\DC2\EOT\250\ETX\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\STX\STX\SOH\ACK\DC2\EOT\250\ETX\v\SUB\n\
    \\r\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\EOT\250\ETX\ESC\RS\n\
    \\r\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\EOT\250\ETX!\"\n\
    \W\n\
    \\EOT\EOT\STX\STX\STX\DC2\EOT\252\ETX\STX\DLE\SUBI more indicates if there are more keys to return in the requested range.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\STX\STX\STX\ENQ\DC2\EOT\252\ETX\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\STX\STX\STX\SOH\DC2\EOT\252\ETX\a\v\n\
    \\r\n\
    \\ENQ\EOT\STX\STX\STX\ETX\DC2\EOT\252\ETX\SO\SI\n\
    \S\n\
    \\EOT\EOT\STX\STX\ETX\DC2\EOT\254\ETX\STX\DC2\SUBE count is set to the number of keys within the range when requested.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\STX\STX\ETX\ENQ\DC2\EOT\254\ETX\STX\a\n\
    \\r\n\
    \\ENQ\EOT\STX\STX\ETX\SOH\DC2\EOT\254\ETX\b\r\n\
    \\r\n\
    \\ENQ\EOT\STX\STX\ETX\ETX\DC2\EOT\254\ETX\DLE\DC1\n\
    \\f\n\
    \\STX\EOT\ETX\DC2\ACK\129\EOT\NUL\151\EOT\SOH\n\
    \\v\n\
    \\ETX\EOT\ETX\SOH\DC2\EOT\129\EOT\b\DC2\n\
    \\v\n\
    \\ETX\EOT\ETX\a\DC2\EOT\130\EOT\STX.\n\
    \\SO\n\
    \\ACK\EOT\ETX\a\208\134\ETX\DC2\EOT\130\EOT\STX.\n\
    \J\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\EOT\133\EOT\STX\DLE\SUB< key is the key, in bytes, to put into the key-value store.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\EOT\133\EOT\STX\a\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\EOT\133\EOT\b\v\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\EOT\133\EOT\SO\SI\n\
    \_\n\
    \\EOT\EOT\ETX\STX\SOH\DC2\EOT\135\EOT\STX\DC2\SUBQ value is the value, in bytes, to associate with the key in the key-value store.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\EOT\135\EOT\STX\a\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\EOT\135\EOT\b\r\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\EOT\135\EOT\DLE\DC1\n\
    \\DEL\n\
    \\EOT\EOT\ETX\STX\STX\DC2\EOT\138\EOT\STX\DC2\SUBq lease is the lease ID to associate with the key in the key-value store. A lease\n\
    \ value of 0 indicates no lease.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\STX\ENQ\DC2\EOT\138\EOT\STX\a\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\STX\SOH\DC2\EOT\138\EOT\b\r\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\STX\ETX\DC2\EOT\138\EOT\DLE\DC1\n\
    \\160\SOH\n\
    \\EOT\EOT\ETX\STX\ETX\DC2\EOT\142\EOT\STX:\SUB\145\SOH If prev_kv is set, etcd gets the previous key-value pair before changing it.\n\
    \ The previous key-value pair will be returned in the put response.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\ETX\ENQ\DC2\EOT\142\EOT\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\ETX\SOH\DC2\EOT\142\EOT\a\SO\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\ETX\ETX\DC2\EOT\142\EOT\DC1\DC2\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\ETX\b\DC2\EOT\142\EOT\DC39\n\
    \\DLE\n\
    \\b\EOT\ETX\STX\ETX\b\209\134\ETX\DC2\EOT\142\EOT\DC48\n\
    \\130\SOH\n\
    \\EOT\EOT\ETX\STX\EOT\DC2\EOT\146\EOT\STX?\SUBt If ignore_value is set, etcd updates the key using its current value.\n\
    \ Returns an error if the key does not exist.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\EOT\ENQ\DC2\EOT\146\EOT\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\EOT\SOH\DC2\EOT\146\EOT\a\DC3\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\EOT\ETX\DC2\EOT\146\EOT\SYN\ETB\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\EOT\b\DC2\EOT\146\EOT\CAN>\n\
    \\DLE\n\
    \\b\EOT\ETX\STX\EOT\b\209\134\ETX\DC2\EOT\146\EOT\EM=\n\
    \\130\SOH\n\
    \\EOT\EOT\ETX\STX\ENQ\DC2\EOT\150\EOT\STX?\SUBt If ignore_lease is set, etcd updates the key using its current lease.\n\
    \ Returns an error if the key does not exist.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\ENQ\ENQ\DC2\EOT\150\EOT\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\ENQ\SOH\DC2\EOT\150\EOT\a\DC3\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\ENQ\ETX\DC2\EOT\150\EOT\SYN\ETB\n\
    \\r\n\
    \\ENQ\EOT\ETX\STX\ENQ\b\DC2\EOT\150\EOT\CAN>\n\
    \\DLE\n\
    \\b\EOT\ETX\STX\ENQ\b\209\134\ETX\DC2\EOT\150\EOT\EM=\n\
    \\f\n\
    \\STX\EOT\EOT\DC2\ACK\153\EOT\NUL\159\EOT\SOH\n\
    \\v\n\
    \\ETX\EOT\EOT\SOH\DC2\EOT\153\EOT\b\DC3\n\
    \\v\n\
    \\ETX\EOT\EOT\a\DC2\EOT\154\EOT\STX.\n\
    \\SO\n\
    \\ACK\EOT\EOT\a\208\134\ETX\DC2\EOT\154\EOT\STX.\n\
    \\f\n\
    \\EOT\EOT\EOT\STX\NUL\DC2\EOT\156\EOT\STX\FS\n\
    \\r\n\
    \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\EOT\156\EOT\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\EOT\156\EOT\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\EOT\156\EOT\SUB\ESC\n\
    \_\n\
    \\EOT\EOT\EOT\STX\SOH\DC2\EOT\158\EOT\STXE\SUBQ if prev_kv is set in the request, the previous key-value pair will be returned.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\EOT\STX\SOH\ACK\DC2\EOT\158\EOT\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\EOT\158\EOT\DC2\EM\n\
    \\r\n\
    \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\EOT\158\EOT\FS\GS\n\
    \\r\n\
    \\ENQ\EOT\EOT\STX\SOH\b\DC2\EOT\158\EOT\RSD\n\
    \\DLE\n\
    \\b\EOT\EOT\STX\SOH\b\209\134\ETX\DC2\EOT\158\EOT\USC\n\
    \\f\n\
    \\STX\EOT\ENQ\DC2\ACK\161\EOT\NUL\176\EOT\SOH\n\
    \\v\n\
    \\ETX\EOT\ENQ\SOH\DC2\EOT\161\EOT\b\SUB\n\
    \\v\n\
    \\ETX\EOT\ENQ\a\DC2\EOT\162\EOT\STX.\n\
    \\SO\n\
    \\ACK\EOT\ENQ\a\208\134\ETX\DC2\EOT\162\EOT\STX.\n\
    \<\n\
    \\EOT\EOT\ENQ\STX\NUL\DC2\EOT\165\EOT\STX\DLE\SUB. key is the first key to delete in the range.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\EOT\165\EOT\STX\a\n\
    \\r\n\
    \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\EOT\165\EOT\b\v\n\
    \\r\n\
    \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\EOT\165\EOT\SO\SI\n\
    \\134\ETX\n\
    \\EOT\EOT\ENQ\STX\SOH\DC2\EOT\171\EOT\STX\SYN\SUB\247\STX range_end is the key following the last key to delete for the range [key, range_end).\n\
    \ If range_end is not given, the range is defined to contain only the key argument.\n\
    \ If range_end is one bit larger than the given key, then the range is all the keys\n\
    \ with the prefix (the given key).\n\
    \ If range_end is '\\0', the range is all keys greater than or equal to the key argument.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ENQ\STX\SOH\ENQ\DC2\EOT\171\EOT\STX\a\n\
    \\r\n\
    \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\EOT\171\EOT\b\DC1\n\
    \\r\n\
    \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\EOT\171\EOT\DC4\NAK\n\
    \\165\SOH\n\
    \\EOT\EOT\ENQ\STX\STX\DC2\EOT\175\EOT\STX:\SUB\150\SOH If prev_kv is set, etcd gets the previous key-value pairs before deleting it.\n\
    \ The previous key-value pairs will be returned in the delete response.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ENQ\STX\STX\ENQ\DC2\EOT\175\EOT\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\ENQ\STX\STX\SOH\DC2\EOT\175\EOT\a\SO\n\
    \\r\n\
    \\ENQ\EOT\ENQ\STX\STX\ETX\DC2\EOT\175\EOT\DC1\DC2\n\
    \\r\n\
    \\ENQ\EOT\ENQ\STX\STX\b\DC2\EOT\175\EOT\DC39\n\
    \\DLE\n\
    \\b\EOT\ENQ\STX\STX\b\209\134\ETX\DC2\EOT\175\EOT\DC48\n\
    \\f\n\
    \\STX\EOT\ACK\DC2\ACK\178\EOT\NUL\186\EOT\SOH\n\
    \\v\n\
    \\ETX\EOT\ACK\SOH\DC2\EOT\178\EOT\b\ESC\n\
    \\v\n\
    \\ETX\EOT\ACK\a\DC2\EOT\179\EOT\STX.\n\
    \\SO\n\
    \\ACK\EOT\ACK\a\208\134\ETX\DC2\EOT\179\EOT\STX.\n\
    \\f\n\
    \\EOT\EOT\ACK\STX\NUL\DC2\EOT\181\EOT\STX\FS\n\
    \\r\n\
    \\ENQ\EOT\ACK\STX\NUL\ACK\DC2\EOT\181\EOT\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\EOT\181\EOT\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\EOT\181\EOT\SUB\ESC\n\
    \R\n\
    \\EOT\EOT\ACK\STX\SOH\DC2\EOT\183\EOT\STX\DC4\SUBD deleted is the number of keys deleted by the delete range request.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\EOT\183\EOT\STX\a\n\
    \\r\n\
    \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\EOT\183\EOT\b\SI\n\
    \\r\n\
    \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\EOT\183\EOT\DC2\DC3\n\
    \`\n\
    \\EOT\EOT\ACK\STX\STX\DC2\EOT\185\EOT\STXO\SUBR if prev_kv is set in the request, the previous key-value pairs will be returned.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ACK\STX\STX\EOT\DC2\EOT\185\EOT\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ACK\STX\STX\ACK\DC2\EOT\185\EOT\v\SUB\n\
    \\r\n\
    \\ENQ\EOT\ACK\STX\STX\SOH\DC2\EOT\185\EOT\ESC#\n\
    \\r\n\
    \\ENQ\EOT\ACK\STX\STX\ETX\DC2\EOT\185\EOT&'\n\
    \\r\n\
    \\ENQ\EOT\ACK\STX\STX\b\DC2\EOT\185\EOT(N\n\
    \\DLE\n\
    \\b\EOT\ACK\STX\STX\b\209\134\ETX\DC2\EOT\185\EOT)M\n\
    \\f\n\
    \\STX\EOT\a\DC2\ACK\188\EOT\NUL\197\EOT\SOH\n\
    \\v\n\
    \\ETX\EOT\a\SOH\DC2\EOT\188\EOT\b\DC1\n\
    \\v\n\
    \\ETX\EOT\a\a\DC2\EOT\189\EOT\STX.\n\
    \\SO\n\
    \\ACK\EOT\a\a\208\134\ETX\DC2\EOT\189\EOT\STX.\n\
    \P\n\
    \\EOT\EOT\a\b\NUL\DC2\ACK\191\EOT\STX\196\EOT\ETX\SUB@ request is a union of request types accepted by a transaction.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\a\b\NUL\SOH\DC2\EOT\191\EOT\b\SI\n\
    \\f\n\
    \\EOT\EOT\a\STX\NUL\DC2\EOT\192\EOT\EOT#\n\
    \\r\n\
    \\ENQ\EOT\a\STX\NUL\ACK\DC2\EOT\192\EOT\EOT\DLE\n\
    \\r\n\
    \\ENQ\EOT\a\STX\NUL\SOH\DC2\EOT\192\EOT\DC1\RS\n\
    \\r\n\
    \\ENQ\EOT\a\STX\NUL\ETX\DC2\EOT\192\EOT!\"\n\
    \\f\n\
    \\EOT\EOT\a\STX\SOH\DC2\EOT\193\EOT\EOT\US\n\
    \\r\n\
    \\ENQ\EOT\a\STX\SOH\ACK\DC2\EOT\193\EOT\EOT\SO\n\
    \\r\n\
    \\ENQ\EOT\a\STX\SOH\SOH\DC2\EOT\193\EOT\SI\SUB\n\
    \\r\n\
    \\ENQ\EOT\a\STX\SOH\ETX\DC2\EOT\193\EOT\GS\RS\n\
    \\f\n\
    \\EOT\EOT\a\STX\STX\DC2\EOT\194\EOT\EOT0\n\
    \\r\n\
    \\ENQ\EOT\a\STX\STX\ACK\DC2\EOT\194\EOT\EOT\SYN\n\
    \\r\n\
    \\ENQ\EOT\a\STX\STX\SOH\DC2\EOT\194\EOT\ETB+\n\
    \\r\n\
    \\ENQ\EOT\a\STX\STX\ETX\DC2\EOT\194\EOT./\n\
    \\f\n\
    \\EOT\EOT\a\STX\ETX\DC2\EOT\195\EOT\EOTF\n\
    \\r\n\
    \\ENQ\EOT\a\STX\ETX\ACK\DC2\EOT\195\EOT\EOT\SO\n\
    \\r\n\
    \\ENQ\EOT\a\STX\ETX\SOH\DC2\EOT\195\EOT\SI\SUB\n\
    \\r\n\
    \\ENQ\EOT\a\STX\ETX\ETX\DC2\EOT\195\EOT\GS\RS\n\
    \\r\n\
    \\ENQ\EOT\a\STX\ETX\b\DC2\EOT\195\EOT\USE\n\
    \\DLE\n\
    \\b\EOT\a\STX\ETX\b\209\134\ETX\DC2\EOT\195\EOT D\n\
    \\f\n\
    \\STX\EOT\b\DC2\ACK\199\EOT\NUL\209\EOT\SOH\n\
    \\v\n\
    \\ETX\EOT\b\SOH\DC2\EOT\199\EOT\b\DC2\n\
    \\v\n\
    \\ETX\EOT\b\a\DC2\EOT\200\EOT\STX.\n\
    \\SO\n\
    \\ACK\EOT\b\a\208\134\ETX\DC2\EOT\200\EOT\STX.\n\
    \R\n\
    \\EOT\EOT\b\b\NUL\DC2\ACK\203\EOT\STX\208\EOT\ETX\SUBB response is a union of response types returned by a transaction.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\b\b\NUL\SOH\DC2\EOT\203\EOT\b\DLE\n\
    \\f\n\
    \\EOT\EOT\b\STX\NUL\DC2\EOT\204\EOT\EOT%\n\
    \\r\n\
    \\ENQ\EOT\b\STX\NUL\ACK\DC2\EOT\204\EOT\EOT\DC1\n\
    \\r\n\
    \\ENQ\EOT\b\STX\NUL\SOH\DC2\EOT\204\EOT\DC2 \n\
    \\r\n\
    \\ENQ\EOT\b\STX\NUL\ETX\DC2\EOT\204\EOT#$\n\
    \\f\n\
    \\EOT\EOT\b\STX\SOH\DC2\EOT\205\EOT\EOT!\n\
    \\r\n\
    \\ENQ\EOT\b\STX\SOH\ACK\DC2\EOT\205\EOT\EOT\SI\n\
    \\r\n\
    \\ENQ\EOT\b\STX\SOH\SOH\DC2\EOT\205\EOT\DLE\FS\n\
    \\r\n\
    \\ENQ\EOT\b\STX\SOH\ETX\DC2\EOT\205\EOT\US \n\
    \\f\n\
    \\EOT\EOT\b\STX\STX\DC2\EOT\206\EOT\EOT2\n\
    \\r\n\
    \\ENQ\EOT\b\STX\STX\ACK\DC2\EOT\206\EOT\EOT\ETB\n\
    \\r\n\
    \\ENQ\EOT\b\STX\STX\SOH\DC2\EOT\206\EOT\CAN-\n\
    \\r\n\
    \\ENQ\EOT\b\STX\STX\ETX\DC2\EOT\206\EOT01\n\
    \\f\n\
    \\EOT\EOT\b\STX\ETX\DC2\EOT\207\EOT\EOTH\n\
    \\r\n\
    \\ENQ\EOT\b\STX\ETX\ACK\DC2\EOT\207\EOT\EOT\SI\n\
    \\r\n\
    \\ENQ\EOT\b\STX\ETX\SOH\DC2\EOT\207\EOT\DLE\FS\n\
    \\r\n\
    \\ENQ\EOT\b\STX\ETX\ETX\DC2\EOT\207\EOT\US \n\
    \\r\n\
    \\ENQ\EOT\b\STX\ETX\b\DC2\EOT\207\EOT!G\n\
    \\DLE\n\
    \\b\EOT\b\STX\ETX\b\209\134\ETX\DC2\EOT\207\EOT\"F\n\
    \\f\n\
    \\STX\EOT\t\DC2\ACK\211\EOT\NUL\255\EOT\SOH\n\
    \\v\n\
    \\ETX\EOT\t\SOH\DC2\EOT\211\EOT\b\SI\n\
    \\v\n\
    \\ETX\EOT\t\a\DC2\EOT\212\EOT\STX.\n\
    \\SO\n\
    \\ACK\EOT\t\a\208\134\ETX\DC2\EOT\212\EOT\STX.\n\
    \\SO\n\
    \\EOT\EOT\t\EOT\NUL\DC2\ACK\214\EOT\STX\221\EOT\ETX\n\
    \\r\n\
    \\ENQ\EOT\t\EOT\NUL\SOH\DC2\EOT\214\EOT\a\DC4\n\
    \\r\n\
    \\ENQ\EOT\t\EOT\NUL\ETX\DC2\EOT\215\EOT\EOT1\n\
    \\DLE\n\
    \\b\EOT\t\EOT\NUL\ETX\210\134\ETX\DC2\EOT\215\EOT\EOT1\n\
    \\SO\n\
    \\ACK\EOT\t\EOT\NUL\STX\NUL\DC2\EOT\217\EOT\EOT\SO\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\NUL\SOH\DC2\EOT\217\EOT\EOT\t\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\NUL\STX\DC2\EOT\217\EOT\f\r\n\
    \\SO\n\
    \\ACK\EOT\t\EOT\NUL\STX\SOH\DC2\EOT\218\EOT\EOT\DLE\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\SOH\SOH\DC2\EOT\218\EOT\EOT\v\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\SOH\STX\DC2\EOT\218\EOT\SO\SI\n\
    \\SO\n\
    \\ACK\EOT\t\EOT\NUL\STX\STX\DC2\EOT\219\EOT\EOT\r\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\STX\SOH\DC2\EOT\219\EOT\EOT\b\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\STX\STX\DC2\EOT\219\EOT\v\f\n\
    \\SO\n\
    \\ACK\EOT\t\EOT\NUL\STX\ETX\DC2\EOT\220\EOT\EOT>\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\ETX\SOH\DC2\EOT\220\EOT\EOT\r\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\ETX\STX\DC2\EOT\220\EOT\DLE\DC1\n\
    \\SI\n\
    \\a\EOT\t\EOT\NUL\STX\ETX\ETX\DC2\EOT\220\EOT\DC2=\n\
    \\DC2\n\
    \\n\
    \\EOT\t\EOT\NUL\STX\ETX\ETX\211\134\ETX\DC2\EOT\220\EOT\DC3<\n\
    \\SO\n\
    \\EOT\EOT\t\EOT\SOH\DC2\ACK\222\EOT\STX\230\EOT\ETX\n\
    \\r\n\
    \\ENQ\EOT\t\EOT\SOH\SOH\DC2\EOT\222\EOT\a\DC4\n\
    \\r\n\
    \\ENQ\EOT\t\EOT\SOH\ETX\DC2\EOT\223\EOT\EOT1\n\
    \\DLE\n\
    \\b\EOT\t\EOT\SOH\ETX\210\134\ETX\DC2\EOT\223\EOT\EOT1\n\
    \\SO\n\
    \\ACK\EOT\t\EOT\SOH\STX\NUL\DC2\EOT\225\EOT\EOT\DLE\n\
    \\SI\n\
    \\a\EOT\t\EOT\SOH\STX\NUL\SOH\DC2\EOT\225\EOT\EOT\v\n\
    \\SI\n\
    \\a\EOT\t\EOT\SOH\STX\NUL\STX\DC2\EOT\225\EOT\SO\SI\n\
    \\SO\n\
    \\ACK\EOT\t\EOT\SOH\STX\SOH\DC2\EOT\226\EOT\EOT\SI\n\
    \\SI\n\
    \\a\EOT\t\EOT\SOH\STX\SOH\SOH\DC2\EOT\226\EOT\EOT\n\
    \\n\
    \\SI\n\
    \\a\EOT\t\EOT\SOH\STX\SOH\STX\DC2\EOT\226\EOT\r\SO\n\
    \\SO\n\
    \\ACK\EOT\t\EOT\SOH\STX\STX\DC2\EOT\227\EOT\EOT\f\n\
    \\SI\n\
    \\a\EOT\t\EOT\SOH\STX\STX\SOH\DC2\EOT\227\EOT\EOT\a\n\
    \\SI\n\
    \\a\EOT\t\EOT\SOH\STX\STX\STX\DC2\EOT\227\EOT\n\
    \\v\n\
    \\SO\n\
    \\ACK\EOT\t\EOT\SOH\STX\ETX\DC2\EOT\228\EOT\EOT\SO\n\
    \\SI\n\
    \\a\EOT\t\EOT\SOH\STX\ETX\SOH\DC2\EOT\228\EOT\EOT\t\n\
    \\SI\n\
    \\a\EOT\t\EOT\SOH\STX\ETX\STX\DC2\EOT\228\EOT\f\r\n\
    \\SO\n\
    \\ACK\EOT\t\EOT\SOH\STX\EOT\DC2\EOT\229\EOT\EOT:\n\
    \\SI\n\
    \\a\EOT\t\EOT\SOH\STX\EOT\SOH\DC2\EOT\229\EOT\EOT\t\n\
    \\SI\n\
    \\a\EOT\t\EOT\SOH\STX\EOT\STX\DC2\EOT\229\EOT\f\r\n\
    \\SI\n\
    \\a\EOT\t\EOT\SOH\STX\EOT\ETX\DC2\EOT\229\EOT\SO9\n\
    \\DC2\n\
    \\n\
    \\EOT\t\EOT\SOH\STX\EOT\ETX\211\134\ETX\DC2\EOT\229\EOT\SI8\n\
    \K\n\
    \\EOT\EOT\t\STX\NUL\DC2\EOT\232\EOT\STX\ESC\SUB= result is logical comparison operation for this comparison.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\NUL\ACK\DC2\EOT\232\EOT\STX\SI\n\
    \\r\n\
    \\ENQ\EOT\t\STX\NUL\SOH\DC2\EOT\232\EOT\DLE\SYN\n\
    \\r\n\
    \\ENQ\EOT\t\STX\NUL\ETX\DC2\EOT\232\EOT\EM\SUB\n\
    \L\n\
    \\EOT\EOT\t\STX\SOH\DC2\EOT\234\EOT\STX\ESC\SUB> target is the key-value field to inspect for the comparison.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\SOH\ACK\DC2\EOT\234\EOT\STX\SI\n\
    \\r\n\
    \\ENQ\EOT\t\STX\SOH\SOH\DC2\EOT\234\EOT\DLE\SYN\n\
    \\r\n\
    \\ENQ\EOT\t\STX\SOH\ETX\DC2\EOT\234\EOT\EM\SUB\n\
    \D\n\
    \\EOT\EOT\t\STX\STX\DC2\EOT\236\EOT\STX\DLE\SUB6 key is the subject key for the comparison operation.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\STX\ENQ\DC2\EOT\236\EOT\STX\a\n\
    \\r\n\
    \\ENQ\EOT\t\STX\STX\SOH\DC2\EOT\236\EOT\b\v\n\
    \\r\n\
    \\ENQ\EOT\t\STX\STX\ETX\DC2\EOT\236\EOT\SO\SI\n\
    \\SO\n\
    \\EOT\EOT\t\b\NUL\DC2\ACK\237\EOT\STX\249\EOT\ETX\n\
    \\r\n\
    \\ENQ\EOT\t\b\NUL\SOH\DC2\EOT\237\EOT\b\DC4\n\
    \7\n\
    \\EOT\EOT\t\STX\ETX\DC2\EOT\239\EOT\EOT\SYN\SUB) version is the version of the given key\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\ETX\ENQ\DC2\EOT\239\EOT\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\t\STX\ETX\SOH\DC2\EOT\239\EOT\n\
    \\DC1\n\
    \\r\n\
    \\ENQ\EOT\t\STX\ETX\ETX\DC2\EOT\239\EOT\DC4\NAK\n\
    \I\n\
    \\EOT\EOT\t\STX\EOT\DC2\EOT\241\EOT\EOT\RS\SUB; create_revision is the creation revision of the given key\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\EOT\ENQ\DC2\EOT\241\EOT\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\t\STX\EOT\SOH\DC2\EOT\241\EOT\n\
    \\EM\n\
    \\r\n\
    \\ENQ\EOT\t\STX\EOT\ETX\DC2\EOT\241\EOT\FS\GS\n\
    \L\n\
    \\EOT\EOT\t\STX\ENQ\DC2\EOT\243\EOT\EOT\ESC\SUB> mod_revision is the last modified revision of the given key.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\ENQ\ENQ\DC2\EOT\243\EOT\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\t\STX\ENQ\SOH\DC2\EOT\243\EOT\n\
    \\SYN\n\
    \\r\n\
    \\ENQ\EOT\t\STX\ENQ\ETX\DC2\EOT\243\EOT\EM\SUB\n\
    \>\n\
    \\EOT\EOT\t\STX\ACK\DC2\EOT\245\EOT\EOT\DC4\SUB0 value is the value of the given key, in bytes.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\ACK\ENQ\DC2\EOT\245\EOT\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\t\STX\ACK\SOH\DC2\EOT\245\EOT\n\
    \\SI\n\
    \\r\n\
    \\ENQ\EOT\t\STX\ACK\ETX\DC2\EOT\245\EOT\DC2\DC3\n\
    \r\n\
    \\EOT\EOT\t\STX\a\DC2\EOT\247\EOT\EOT;\SUB) lease is the lease id of the given key.\n\
    \\"9 leave room for more target_union field tags, jump to 64\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\a\ENQ\DC2\EOT\247\EOT\EOT\t\n\
    \\r\n\
    \\ENQ\EOT\t\STX\a\SOH\DC2\EOT\247\EOT\n\
    \\SI\n\
    \\r\n\
    \\ENQ\EOT\t\STX\a\ETX\DC2\EOT\247\EOT\DC2\DC3\n\
    \\r\n\
    \\ENQ\EOT\t\STX\a\b\DC2\EOT\247\EOT\DC4:\n\
    \\DLE\n\
    \\b\EOT\t\STX\a\b\209\134\ETX\DC2\EOT\247\EOT\NAK9\n\
    \\221\SOH\n\
    \\EOT\EOT\t\STX\b\DC2\EOT\253\EOT\STX>\SUB\130\SOH range_end compares the given target to all keys in the range [key, range_end).\n\
    \ See RangeRequest for more details on key ranges.\n\
    \\"J TODO: fill out with most of the rest of RangeRequest fields when needed.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\t\STX\b\ENQ\DC2\EOT\253\EOT\STX\a\n\
    \\r\n\
    \\ENQ\EOT\t\STX\b\SOH\DC2\EOT\253\EOT\b\DC1\n\
    \\r\n\
    \\ENQ\EOT\t\STX\b\ETX\DC2\EOT\253\EOT\DC4\SYN\n\
    \\r\n\
    \\ENQ\EOT\t\STX\b\b\DC2\EOT\253\EOT\ETB=\n\
    \\DLE\n\
    \\b\EOT\t\STX\b\b\209\134\ETX\DC2\EOT\253\EOT\CAN<\n\
    \\137\t\n\
    \\STX\EOT\n\
    \\DC2\ACK\144\ENQ\NUL\157\ENQ\SOH\SUB\250\b From google paxosdb paper:\n\
    \ Our implementation hinges around a powerful primitive which we call MultiOp. All other database\n\
    \ operations except for iteration are implemented as a single call to MultiOp. A MultiOp is applied atomically\n\
    \ and consists of three components:\n\
    \ 1. A list of tests called guard. Each test in guard checks a single entry in the database. It may check\n\
    \ for the absence or presence of a value, or compare with a given value. Two different tests in the guard\n\
    \ may apply to the same or different entries in the database. All tests in the guard are applied and\n\
    \ MultiOp returns the results. If all tests are true, MultiOp executes t op (see item 2 below), otherwise\n\
    \ it executes f op (see item 3 below).\n\
    \ 2. A list of database operations called t op. Each operation in the list is either an insert, delete, or\n\
    \ lookup operation, and applies to a single database entry. Two different operations in the list may apply\n\
    \ to the same or different entries in the database. These operations are executed\n\
    \ if guard evaluates to\n\
    \ true.\n\
    \ 3. A list of database operations called f op. Like t op, but executed if guard evaluates to false.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\n\
    \\SOH\DC2\EOT\144\ENQ\b\DC2\n\
    \\v\n\
    \\ETX\EOT\n\
    \\a\DC2\EOT\145\ENQ\STX.\n\
    \\SO\n\
    \\ACK\EOT\n\
    \\a\208\134\ETX\DC2\EOT\145\ENQ\STX.\n\
    \\128\ETX\n\
    \\EOT\EOT\n\
    \\STX\NUL\DC2\EOT\152\ENQ\STX\US\SUB\241\STX compare is a list of predicates representing a conjunction of terms.\n\
    \ If the comparisons succeed, then the success requests will be processed in order,\n\
    \ and the response will contain their respective responses in order.\n\
    \ If the comparisons fail, then the failure requests will be processed in order,\n\
    \ and the response will contain their respective responses in order.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\NUL\EOT\DC2\EOT\152\ENQ\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ACK\DC2\EOT\152\ENQ\v\DC2\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\NUL\SOH\DC2\EOT\152\ENQ\DC3\SUB\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ETX\DC2\EOT\152\ENQ\GS\RS\n\
    \c\n\
    \\EOT\EOT\n\
    \\STX\SOH\DC2\EOT\154\ENQ\STX!\SUBU success is a list of requests which will be applied when compare evaluates to true.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\SOH\EOT\DC2\EOT\154\ENQ\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\SOH\ACK\DC2\EOT\154\ENQ\v\DC4\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\SOH\SOH\DC2\EOT\154\ENQ\NAK\FS\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\SOH\ETX\DC2\EOT\154\ENQ\US \n\
    \d\n\
    \\EOT\EOT\n\
    \\STX\STX\DC2\EOT\156\ENQ\STX!\SUBV failure is a list of requests which will be applied when compare evaluates to false.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\STX\EOT\DC2\EOT\156\ENQ\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\STX\ACK\DC2\EOT\156\ENQ\v\DC4\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\STX\SOH\DC2\EOT\156\ENQ\NAK\FS\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\STX\ETX\DC2\EOT\156\ENQ\US \n\
    \\f\n\
    \\STX\EOT\v\DC2\ACK\159\ENQ\NUL\168\ENQ\SOH\n\
    \\v\n\
    \\ETX\EOT\v\SOH\DC2\EOT\159\ENQ\b\DC3\n\
    \\v\n\
    \\ETX\EOT\v\a\DC2\EOT\160\ENQ\STX.\n\
    \\SO\n\
    \\ACK\EOT\v\a\208\134\ETX\DC2\EOT\160\ENQ\STX.\n\
    \\f\n\
    \\EOT\EOT\v\STX\NUL\DC2\EOT\162\ENQ\STX\FS\n\
    \\r\n\
    \\ENQ\EOT\v\STX\NUL\ACK\DC2\EOT\162\ENQ\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\v\STX\NUL\SOH\DC2\EOT\162\ENQ\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\v\STX\NUL\ETX\DC2\EOT\162\ENQ\SUB\ESC\n\
    \]\n\
    \\EOT\EOT\v\STX\SOH\DC2\EOT\164\ENQ\STX\NAK\SUBO succeeded is set to true if the compare evaluated to true or false otherwise.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\v\STX\SOH\ENQ\DC2\EOT\164\ENQ\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\v\STX\SOH\SOH\DC2\EOT\164\ENQ\a\DLE\n\
    \\r\n\
    \\ENQ\EOT\v\STX\SOH\ETX\DC2\EOT\164\ENQ\DC3\DC4\n\
    \\156\SOH\n\
    \\EOT\EOT\v\STX\STX\DC2\EOT\167\ENQ\STX$\SUB\141\SOH responses is a list of responses corresponding to the results from applying\n\
    \ success if succeeded is true or failure if succeeded is false.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\v\STX\STX\EOT\DC2\EOT\167\ENQ\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\v\STX\STX\ACK\DC2\EOT\167\ENQ\v\NAK\n\
    \\r\n\
    \\ENQ\EOT\v\STX\STX\SOH\DC2\EOT\167\ENQ\SYN\US\n\
    \\r\n\
    \\ENQ\EOT\v\STX\STX\ETX\DC2\EOT\167\ENQ\"#\n\
    \\175\SOH\n\
    \\STX\EOT\f\DC2\ACK\172\ENQ\NUL\181\ENQ\SOH\SUB\160\SOH CompactionRequest compacts the key-value store up to a given revision. All superseded keys\n\
    \ with a revision less than the compaction revision will be removed.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\f\SOH\DC2\EOT\172\ENQ\b\EM\n\
    \\v\n\
    \\ETX\EOT\f\a\DC2\EOT\173\ENQ\STX.\n\
    \\SO\n\
    \\ACK\EOT\f\a\208\134\ETX\DC2\EOT\173\ENQ\STX.\n\
    \V\n\
    \\EOT\EOT\f\STX\NUL\DC2\EOT\176\ENQ\STX\NAK\SUBH revision is the key-value store revision for the compaction operation.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\f\STX\NUL\ENQ\DC2\EOT\176\ENQ\STX\a\n\
    \\r\n\
    \\ENQ\EOT\f\STX\NUL\SOH\DC2\EOT\176\ENQ\b\DLE\n\
    \\r\n\
    \\ENQ\EOT\f\STX\NUL\ETX\DC2\EOT\176\ENQ\DC3\DC4\n\
    \\195\SOH\n\
    \\EOT\EOT\f\STX\SOH\DC2\EOT\180\ENQ\STX\DC4\SUB\180\SOH physical is set so the RPC will wait until the compaction is physically\n\
    \ applied to the local database such that compacted entries are totally\n\
    \ removed from the backend database.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\f\STX\SOH\ENQ\DC2\EOT\180\ENQ\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\f\STX\SOH\SOH\DC2\EOT\180\ENQ\a\SI\n\
    \\r\n\
    \\ENQ\EOT\f\STX\SOH\ETX\DC2\EOT\180\ENQ\DC2\DC3\n\
    \\f\n\
    \\STX\EOT\r\DC2\ACK\183\ENQ\NUL\187\ENQ\SOH\n\
    \\v\n\
    \\ETX\EOT\r\SOH\DC2\EOT\183\ENQ\b\SUB\n\
    \\v\n\
    \\ETX\EOT\r\a\DC2\EOT\184\ENQ\STX.\n\
    \\SO\n\
    \\ACK\EOT\r\a\208\134\ETX\DC2\EOT\184\ENQ\STX.\n\
    \\f\n\
    \\EOT\EOT\r\STX\NUL\DC2\EOT\186\ENQ\STX\FS\n\
    \\r\n\
    \\ENQ\EOT\r\STX\NUL\ACK\DC2\EOT\186\ENQ\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\r\STX\NUL\SOH\DC2\EOT\186\ENQ\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\r\STX\NUL\ETX\DC2\EOT\186\ENQ\SUB\ESC\n\
    \\f\n\
    \\STX\EOT\SO\DC2\ACK\189\ENQ\NUL\191\ENQ\SOH\n\
    \\v\n\
    \\ETX\EOT\SO\SOH\DC2\EOT\189\ENQ\b\DC3\n\
    \\v\n\
    \\ETX\EOT\SO\a\DC2\EOT\190\ENQ\STX.\n\
    \\SO\n\
    \\ACK\EOT\SO\a\208\134\ETX\DC2\EOT\190\ENQ\STX.\n\
    \\f\n\
    \\STX\EOT\SI\DC2\ACK\193\ENQ\NUL\197\ENQ\SOH\n\
    \\v\n\
    \\ETX\EOT\SI\SOH\DC2\EOT\193\ENQ\b\NAK\n\
    \\v\n\
    \\ETX\EOT\SI\a\DC2\EOT\194\ENQ\STX.\n\
    \\SO\n\
    \\ACK\EOT\SI\a\208\134\ETX\DC2\EOT\194\ENQ\STX.\n\
    \P\n\
    \\EOT\EOT\SI\STX\NUL\DC2\EOT\196\ENQ\STX\NAK\SUBB revision is the key-value store revision for the hash operation.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\NUL\ENQ\DC2\EOT\196\ENQ\STX\a\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\NUL\SOH\DC2\EOT\196\ENQ\b\DLE\n\
    \\r\n\
    \\ENQ\EOT\SI\STX\NUL\ETX\DC2\EOT\196\ENQ\DC3\DC4\n\
    \\f\n\
    \\STX\EOT\DLE\DC2\ACK\199\ENQ\NUL\209\ENQ\SOH\n\
    \\v\n\
    \\ETX\EOT\DLE\SOH\DC2\EOT\199\ENQ\b\SYN\n\
    \\v\n\
    \\ETX\EOT\DLE\a\DC2\EOT\200\ENQ\STX.\n\
    \\SO\n\
    \\ACK\EOT\DLE\a\208\134\ETX\DC2\EOT\200\ENQ\STX.\n\
    \\f\n\
    \\EOT\EOT\DLE\STX\NUL\DC2\EOT\202\ENQ\STX\FS\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\NUL\ACK\DC2\EOT\202\ENQ\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\NUL\SOH\DC2\EOT\202\ENQ\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\NUL\ETX\DC2\EOT\202\ENQ\SUB\ESC\n\
    \n\n\
    \\EOT\EOT\DLE\STX\SOH\DC2\EOT\204\ENQ\STX\DC2\SUB` hash is the hash value computed from the responding member's MVCC keys up to a given revision.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\SOH\ENQ\DC2\EOT\204\ENQ\STX\b\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\SOH\SOH\DC2\EOT\204\ENQ\t\r\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\SOH\ETX\DC2\EOT\204\ENQ\DLE\DC1\n\
    \_\n\
    \\EOT\EOT\DLE\STX\STX\DC2\EOT\206\ENQ\STX\GS\SUBQ compact_revision is the compacted revision of key-value store when hash begins.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\STX\ENQ\DC2\EOT\206\ENQ\STX\a\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\STX\SOH\DC2\EOT\206\ENQ\b\CAN\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\STX\ETX\DC2\EOT\206\ENQ\ESC\FS\n\
    \Q\n\
    \\EOT\EOT\DLE\STX\ETX\DC2\EOT\208\ENQ\STXA\SUBC hash_revision is the revision up to which the hash is calculated.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\ETX\ENQ\DC2\EOT\208\ENQ\STX\a\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\ETX\SOH\DC2\EOT\208\ENQ\b\NAK\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\ETX\ETX\DC2\EOT\208\ENQ\CAN\EM\n\
    \\r\n\
    \\ENQ\EOT\DLE\STX\ETX\b\DC2\EOT\208\ENQ\SUB@\n\
    \\DLE\n\
    \\b\EOT\DLE\STX\ETX\b\209\134\ETX\DC2\EOT\208\ENQ\ESC?\n\
    \\f\n\
    \\STX\EOT\DC1\DC2\ACK\211\ENQ\NUL\217\ENQ\SOH\n\
    \\v\n\
    \\ETX\EOT\DC1\SOH\DC2\EOT\211\ENQ\b\DC4\n\
    \\v\n\
    \\ETX\EOT\DC1\a\DC2\EOT\212\ENQ\STX.\n\
    \\SO\n\
    \\ACK\EOT\DC1\a\208\134\ETX\DC2\EOT\212\ENQ\STX.\n\
    \\f\n\
    \\EOT\EOT\DC1\STX\NUL\DC2\EOT\214\ENQ\STX\FS\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\NUL\ACK\DC2\EOT\214\ENQ\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\NUL\SOH\DC2\EOT\214\ENQ\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\NUL\ETX\DC2\EOT\214\ENQ\SUB\ESC\n\
    \Z\n\
    \\EOT\EOT\DC1\STX\SOH\DC2\EOT\216\ENQ\STX\DC2\SUBL hash is the hash value computed from the responding member's KV's backend.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\SOH\ENQ\DC2\EOT\216\ENQ\STX\b\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\SOH\SOH\DC2\EOT\216\ENQ\t\r\n\
    \\r\n\
    \\ENQ\EOT\DC1\STX\SOH\ETX\DC2\EOT\216\ENQ\DLE\DC1\n\
    \\f\n\
    \\STX\EOT\DC2\DC2\ACK\219\ENQ\NUL\221\ENQ\SOH\n\
    \\v\n\
    \\ETX\EOT\DC2\SOH\DC2\EOT\219\ENQ\b\ETB\n\
    \\v\n\
    \\ETX\EOT\DC2\a\DC2\EOT\220\ENQ\STX.\n\
    \\SO\n\
    \\ACK\EOT\DC2\a\208\134\ETX\DC2\EOT\220\ENQ\STX.\n\
    \\f\n\
    \\STX\EOT\DC3\DC2\ACK\223\ENQ\NUL\240\ENQ\SOH\n\
    \\v\n\
    \\ETX\EOT\DC3\SOH\DC2\EOT\223\ENQ\b\CAN\n\
    \\v\n\
    \\ETX\EOT\DC3\a\DC2\EOT\224\ENQ\STX.\n\
    \\SO\n\
    \\ACK\EOT\DC3\a\208\134\ETX\DC2\EOT\224\ENQ\STX.\n\
    \\154\SOH\n\
    \\EOT\EOT\DC3\STX\NUL\DC2\EOT\228\ENQ\STX\FS\SUB\139\SOH header has the current key-value store information. The first header in the snapshot\n\
    \ stream indicates the point in time of the snapshot.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\NUL\ACK\DC2\EOT\228\ENQ\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\NUL\SOH\DC2\EOT\228\ENQ\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\NUL\ETX\DC2\EOT\228\ENQ\SUB\ESC\n\
    \Y\n\
    \\EOT\EOT\DC3\STX\SOH\DC2\EOT\231\ENQ\STX\GS\SUBK remaining_bytes is the number of blob bytes to be sent after this message\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\SOH\ENQ\DC2\EOT\231\ENQ\STX\b\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\SOH\SOH\DC2\EOT\231\ENQ\t\CAN\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\SOH\ETX\DC2\EOT\231\ENQ\ESC\FS\n\
    \T\n\
    \\EOT\EOT\DC3\STX\STX\DC2\EOT\234\ENQ\STX\DC1\SUBF blob contains the next chunk of the snapshot in the snapshot stream.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\STX\ENQ\DC2\EOT\234\ENQ\STX\a\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\STX\SOH\DC2\EOT\234\ENQ\b\f\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\STX\ETX\DC2\EOT\234\ENQ\SI\DLE\n\
    \\238\SOH\n\
    \\EOT\EOT\DC3\STX\ETX\DC2\EOT\239\ENQ\STX<\SUB\223\SOH local version of server that created the snapshot.\n\
    \ In cluster with binaries with different version, each cluster can return different result.\n\
    \ Informs which etcd server version should be used when restoring the snapshot.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\ETX\ENQ\DC2\EOT\239\ENQ\STX\b\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\ETX\SOH\DC2\EOT\239\ENQ\t\DLE\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\ETX\ETX\DC2\EOT\239\ENQ\DC3\DC4\n\
    \\r\n\
    \\ENQ\EOT\DC3\STX\ETX\b\DC2\EOT\239\ENQ\NAK;\n\
    \\DLE\n\
    \\b\EOT\DC3\STX\ETX\b\209\134\ETX\DC2\EOT\239\ENQ\SYN:\n\
    \\f\n\
    \\STX\EOT\DC4\DC2\ACK\242\ENQ\NUL\250\ENQ\SOH\n\
    \\v\n\
    \\ETX\EOT\DC4\SOH\DC2\EOT\242\ENQ\b\DC4\n\
    \\v\n\
    \\ETX\EOT\DC4\a\DC2\EOT\243\ENQ\STX.\n\
    \\SO\n\
    \\ACK\EOT\DC4\a\208\134\ETX\DC2\EOT\243\ENQ\STX.\n\
    \j\n\
    \\EOT\EOT\DC4\b\NUL\DC2\ACK\245\ENQ\STX\249\ENQ\ETX\SUBZ request_union is a request to either create a new watcher or cancel an existing watcher.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\DC4\b\NUL\SOH\DC2\EOT\245\ENQ\b\NAK\n\
    \\f\n\
    \\EOT\EOT\DC4\STX\NUL\DC2\EOT\246\ENQ\EOT*\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\NUL\ACK\DC2\EOT\246\ENQ\EOT\SYN\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\NUL\SOH\DC2\EOT\246\ENQ\ETB%\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\NUL\ETX\DC2\EOT\246\ENQ()\n\
    \\f\n\
    \\EOT\EOT\DC4\STX\SOH\DC2\EOT\247\ENQ\EOT*\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\SOH\ACK\DC2\EOT\247\ENQ\EOT\SYN\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\SOH\SOH\DC2\EOT\247\ENQ\ETB%\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\SOH\ETX\DC2\EOT\247\ENQ()\n\
    \\f\n\
    \\EOT\EOT\DC4\STX\STX\DC2\EOT\248\ENQ\EOTU\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\STX\ACK\DC2\EOT\248\ENQ\EOT\CAN\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\STX\SOH\DC2\EOT\248\ENQ\EM)\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\STX\ETX\DC2\EOT\248\ENQ,-\n\
    \\r\n\
    \\ENQ\EOT\DC4\STX\STX\b\DC2\EOT\248\ENQ.T\n\
    \\DLE\n\
    \\b\EOT\DC4\STX\STX\b\209\134\ETX\DC2\EOT\248\ENQ/S\n\
    \\f\n\
    \\STX\EOT\NAK\DC2\ACK\252\ENQ\NUL\171\ACK\SOH\n\
    \\v\n\
    \\ETX\EOT\NAK\SOH\DC2\EOT\252\ENQ\b\SUB\n\
    \\v\n\
    \\ETX\EOT\NAK\a\DC2\EOT\253\ENQ\STX.\n\
    \\SO\n\
    \\ACK\EOT\NAK\a\208\134\ETX\DC2\EOT\253\ENQ\STX.\n\
    \8\n\
    \\EOT\EOT\NAK\STX\NUL\DC2\EOT\128\ACK\STX\DLE\SUB* key is the key to register for watching.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\NUL\ENQ\DC2\EOT\128\ACK\STX\a\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\NUL\SOH\DC2\EOT\128\ACK\b\v\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\NUL\ETX\DC2\EOT\128\ACK\SO\SI\n\
    \\227\STX\n\
    \\EOT\EOT\NAK\STX\SOH\DC2\EOT\135\ACK\STX\SYN\SUB\212\STX range_end is the end of the range [key, range_end) to watch. If range_end is not given,\n\
    \ only the key argument is watched. If range_end is equal to '\\0', all keys greater than\n\
    \ or equal to the key argument are watched.\n\
    \ If the range_end is one bit larger than the given key,\n\
    \ then all keys with the prefix (the given key) will be watched.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\SOH\ENQ\DC2\EOT\135\ACK\STX\a\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\SOH\SOH\DC2\EOT\135\ACK\b\DC1\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\SOH\ETX\DC2\EOT\135\ACK\DC4\NAK\n\
    \m\n\
    \\EOT\EOT\NAK\STX\STX\DC2\EOT\138\ACK\STX\ESC\SUB_ start_revision is an optional revision to watch from (inclusive). No start_revision is \"now\".\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\STX\ENQ\DC2\EOT\138\ACK\STX\a\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\STX\SOH\DC2\EOT\138\ACK\b\SYN\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\STX\ETX\DC2\EOT\138\ACK\EM\SUB\n\
    \\233\STX\n\
    \\EOT\EOT\NAK\STX\ETX\DC2\EOT\144\ACK\STX\ESC\SUB\218\STX progress_notify is set so that the etcd server will periodically send a WatchResponse with\n\
    \ no events to the new watcher if there are no recent events. It is useful when clients\n\
    \ wish to recover a disconnected watcher starting from a recent known revision.\n\
    \ The etcd server may decide how often it will send notifications based on current load.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\ETX\ENQ\DC2\EOT\144\ACK\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\ETX\SOH\DC2\EOT\144\ACK\a\SYN\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\ETX\ETX\DC2\EOT\144\ACK\EM\SUB\n\
    \\SO\n\
    \\EOT\EOT\NAK\EOT\NUL\DC2\ACK\146\ACK\STX\153\ACK\ETX\n\
    \\r\n\
    \\ENQ\EOT\NAK\EOT\NUL\SOH\DC2\EOT\146\ACK\a\DC1\n\
    \\r\n\
    \\ENQ\EOT\NAK\EOT\NUL\ETX\DC2\EOT\147\ACK\EOT1\n\
    \\DLE\n\
    \\b\EOT\NAK\EOT\NUL\ETX\210\134\ETX\DC2\EOT\147\ACK\EOT1\n\
    \'\n\
    \\ACK\EOT\NAK\EOT\NUL\STX\NUL\DC2\EOT\150\ACK\EOT\SO\SUB\ETB filter out put event.\n\
    \\n\
    \\SI\n\
    \\a\EOT\NAK\EOT\NUL\STX\NUL\SOH\DC2\EOT\150\ACK\EOT\t\n\
    \\SI\n\
    \\a\EOT\NAK\EOT\NUL\STX\NUL\STX\DC2\EOT\150\ACK\f\r\n\
    \*\n\
    \\ACK\EOT\NAK\EOT\NUL\STX\SOH\DC2\EOT\152\ACK\EOT\DC1\SUB\SUB filter out delete event.\n\
    \\n\
    \\SI\n\
    \\a\EOT\NAK\EOT\NUL\STX\SOH\SOH\DC2\EOT\152\ACK\EOT\f\n\
    \\SI\n\
    \\a\EOT\NAK\EOT\NUL\STX\SOH\STX\DC2\EOT\152\ACK\SI\DLE\n\
    \]\n\
    \\EOT\EOT\NAK\STX\EOT\DC2\EOT\156\ACK\STXI\SUBO filters filter the events at server side before it sends back to the watcher.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\EOT\EOT\DC2\EOT\156\ACK\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\EOT\ACK\DC2\EOT\156\ACK\v\NAK\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\EOT\SOH\DC2\EOT\156\ACK\SYN\GS\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\EOT\ETX\DC2\EOT\156\ACK !\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\EOT\b\DC2\EOT\156\ACK\"H\n\
    \\DLE\n\
    \\b\EOT\NAK\STX\EOT\b\209\134\ETX\DC2\EOT\156\ACK#G\n\
    \\166\SOH\n\
    \\EOT\EOT\NAK\STX\ENQ\DC2\EOT\160\ACK\STX:\SUB\151\SOH If prev_kv is set, created watcher gets the previous KV before the event happens.\n\
    \ If the previous KV is already compacted, nothing will be returned.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\ENQ\ENQ\DC2\EOT\160\ACK\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\ENQ\SOH\DC2\EOT\160\ACK\a\SO\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\ENQ\ETX\DC2\EOT\160\ACK\DC1\DC2\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\ENQ\b\DC2\EOT\160\ACK\DC39\n\
    \\DLE\n\
    \\b\EOT\NAK\STX\ENQ\b\209\134\ETX\DC2\EOT\160\ACK\DC48\n\
    \\228\STX\n\
    \\EOT\EOT\NAK\STX\ACK\DC2\EOT\167\ACK\STX<\SUB\213\STX If watch_id is provided and non-zero, it will be assigned to this watcher.\n\
    \ Since creating a watcher in etcd is not a synchronous operation,\n\
    \ this can be used ensure that ordering is correct when creating multiple\n\
    \ watchers on the same stream. Creating a watcher with an ID already in\n\
    \ use on the stream will cause an error to be returned.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\ACK\ENQ\DC2\EOT\167\ACK\STX\a\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\ACK\SOH\DC2\EOT\167\ACK\b\DLE\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\ACK\ETX\DC2\EOT\167\ACK\DC3\DC4\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\ACK\b\DC2\EOT\167\ACK\NAK;\n\
    \\DLE\n\
    \\b\EOT\NAK\STX\ACK\b\209\134\ETX\DC2\EOT\167\ACK\SYN:\n\
    \Y\n\
    \\EOT\EOT\NAK\STX\a\DC2\EOT\170\ACK\STX;\SUBK fragment enables splitting large revisions into multiple watch responses.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\a\ENQ\DC2\EOT\170\ACK\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\a\SOH\DC2\EOT\170\ACK\a\SI\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\a\ETX\DC2\EOT\170\ACK\DC2\DC3\n\
    \\r\n\
    \\ENQ\EOT\NAK\STX\a\b\DC2\EOT\170\ACK\DC4:\n\
    \\DLE\n\
    \\b\EOT\NAK\STX\a\b\209\134\ETX\DC2\EOT\170\ACK\NAK9\n\
    \\f\n\
    \\STX\EOT\SYN\DC2\ACK\173\ACK\NUL\177\ACK\SOH\n\
    \\v\n\
    \\ETX\EOT\SYN\SOH\DC2\EOT\173\ACK\b\SUB\n\
    \\v\n\
    \\ETX\EOT\SYN\a\DC2\EOT\174\ACK\STX.\n\
    \\SO\n\
    \\ACK\EOT\SYN\a\208\134\ETX\DC2\EOT\174\ACK\STX.\n\
    \\\\n\
    \\EOT\EOT\SYN\STX\NUL\DC2\EOT\176\ACK\STX<\SUBN watch_id is the watcher id to cancel so that no more events are transmitted.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\NUL\ENQ\DC2\EOT\176\ACK\STX\a\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\NUL\SOH\DC2\EOT\176\ACK\b\DLE\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\NUL\ETX\DC2\EOT\176\ACK\DC3\DC4\n\
    \\r\n\
    \\ENQ\EOT\SYN\STX\NUL\b\DC2\EOT\176\ACK\NAK;\n\
    \\DLE\n\
    \\b\EOT\SYN\STX\NUL\b\209\134\ETX\DC2\EOT\176\ACK\SYN:\n\
    \v\n\
    \\STX\EOT\ETB\DC2\ACK\181\ACK\NUL\183\ACK\SOH\SUBh Requests the a watch stream progress status be sent in the watch response stream as soon as\n\
    \ possible.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\ETB\SOH\DC2\EOT\181\ACK\b\FS\n\
    \\v\n\
    \\ETX\EOT\ETB\a\DC2\EOT\182\ACK\STX.\n\
    \\SO\n\
    \\ACK\EOT\ETB\a\208\134\ETX\DC2\EOT\182\ACK\STX.\n\
    \\f\n\
    \\STX\EOT\CAN\DC2\ACK\185\ACK\NUL\220\ACK\SOH\n\
    \\v\n\
    \\ETX\EOT\CAN\SOH\DC2\EOT\185\ACK\b\NAK\n\
    \\v\n\
    \\ETX\EOT\CAN\a\DC2\EOT\186\ACK\STX.\n\
    \\SO\n\
    \\ACK\EOT\CAN\a\208\134\ETX\DC2\EOT\186\ACK\STX.\n\
    \\f\n\
    \\EOT\EOT\CAN\STX\NUL\DC2\EOT\188\ACK\STX\FS\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\NUL\ACK\DC2\EOT\188\ACK\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\NUL\SOH\DC2\EOT\188\ACK\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\NUL\ETX\DC2\EOT\188\ACK\SUB\ESC\n\
    \S\n\
    \\EOT\EOT\CAN\STX\SOH\DC2\EOT\190\ACK\STX\NAK\SUBE watch_id is the ID of the watcher that corresponds to the response.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\SOH\ENQ\DC2\EOT\190\ACK\STX\a\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\SOH\SOH\DC2\EOT\190\ACK\b\DLE\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\SOH\ETX\DC2\EOT\190\ACK\DC3\DC4\n\
    \\149\STX\n\
    \\EOT\EOT\CAN\STX\STX\DC2\EOT\196\ACK\STX\DC3\SUB\134\STX created is set to true if the response is for a create watch request.\n\
    \ The client should record the watch_id and expect to receive events for\n\
    \ the created watcher from the same stream.\n\
    \ All events sent to the created watcher will attach with the same watch_id.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\STX\ENQ\DC2\EOT\196\ACK\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\STX\SOH\DC2\EOT\196\ACK\a\SO\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\STX\ETX\DC2\EOT\196\ACK\DC1\DC2\n\
    \\197\SOH\n\
    \\EOT\EOT\CAN\STX\ETX\DC2\EOT\201\ACK\STX\DC4\SUB\182\SOH canceled is set to true if the response is for a cancel watch request\n\
    \ or if the start_revision has already been compacted.\n\
    \ No further events will be sent to the canceled watcher.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\ETX\ENQ\DC2\EOT\201\ACK\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\ETX\SOH\DC2\EOT\201\ACK\a\SI\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\ETX\ETX\DC2\EOT\201\ACK\DC2\DC3\n\
    \\249\STX\n\
    \\EOT\EOT\CAN\STX\EOT\DC2\EOT\211\ACK\STX\GS\SUB\234\STX compact_revision is set to the minimum index if a watcher tries to watch\n\
    \ at a compacted index.\n\
    \\n\
    \ This happens when creating a watcher at a compacted revision or the watcher cannot\n\
    \ catch up with the progress of the key-value store.\n\
    \\n\
    \ The client should treat the watcher as canceled and should not try to create any\n\
    \ watcher with the same start_revision again.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\EOT\ENQ\DC2\EOT\211\ACK\STX\a\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\EOT\SOH\DC2\EOT\211\ACK\b\CAN\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\EOT\ETX\DC2\EOT\211\ACK\ESC\FS\n\
    \M\n\
    \\EOT\EOT\CAN\STX\ENQ\DC2\EOT\214\ACK\STXB\SUB? cancel_reason indicates the reason for canceling the watcher.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\ENQ\ENQ\DC2\EOT\214\ACK\STX\b\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\ENQ\SOH\DC2\EOT\214\ACK\t\SYN\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\ENQ\ETX\DC2\EOT\214\ACK\EM\SUB\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\ENQ\b\DC2\EOT\214\ACK\ESCA\n\
    \\DLE\n\
    \\b\EOT\CAN\STX\ENQ\b\209\134\ETX\DC2\EOT\214\ACK\FS@\n\
    \\\\n\
    \\EOT\EOT\CAN\STX\ACK\DC2\EOT\217\ACK\STX;\SUBN framgment is true if large watch response was split over multiple responses.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\ACK\ENQ\DC2\EOT\217\ACK\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\ACK\SOH\DC2\EOT\217\ACK\a\SI\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\ACK\ETX\DC2\EOT\217\ACK\DC2\DC3\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\ACK\b\DC2\EOT\217\ACK\DC4:\n\
    \\DLE\n\
    \\b\EOT\CAN\STX\ACK\b\209\134\ETX\DC2\EOT\217\ACK\NAK9\n\
    \\f\n\
    \\EOT\EOT\CAN\STX\a\DC2\EOT\219\ACK\STX$\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\a\EOT\DC2\EOT\219\ACK\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\a\ACK\DC2\EOT\219\ACK\v\ETB\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\a\SOH\DC2\EOT\219\ACK\CAN\RS\n\
    \\r\n\
    \\ENQ\EOT\CAN\STX\a\ETX\DC2\EOT\219\ACK!#\n\
    \\f\n\
    \\STX\EOT\EM\DC2\ACK\222\ACK\NUL\229\ACK\SOH\n\
    \\v\n\
    \\ETX\EOT\EM\SOH\DC2\EOT\222\ACK\b\EM\n\
    \\v\n\
    \\ETX\EOT\EM\a\DC2\EOT\223\ACK\STX.\n\
    \\SO\n\
    \\ACK\EOT\EM\a\208\134\ETX\DC2\EOT\223\ACK\STX.\n\
    \Z\n\
    \\EOT\EOT\EM\STX\NUL\DC2\EOT\226\ACK\STX\DLE\SUBL TTL is the advisory time-to-live in seconds. Expired lease will return -1.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\NUL\ENQ\DC2\EOT\226\ACK\STX\a\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\NUL\SOH\DC2\EOT\226\ACK\b\v\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\NUL\ETX\DC2\EOT\226\ACK\SO\SI\n\
    \b\n\
    \\EOT\EOT\EM\STX\SOH\DC2\EOT\228\ACK\STX\SI\SUBT ID is the requested ID for the lease. If ID is set to 0, the lessor chooses an ID.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\SOH\ENQ\DC2\EOT\228\ACK\STX\a\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\SOH\SOH\DC2\EOT\228\ACK\b\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\EM\STX\SOH\ETX\DC2\EOT\228\ACK\r\SO\n\
    \\f\n\
    \\STX\EOT\SUB\DC2\ACK\231\ACK\NUL\240\ACK\SOH\n\
    \\v\n\
    \\ETX\EOT\SUB\SOH\DC2\EOT\231\ACK\b\SUB\n\
    \\v\n\
    \\ETX\EOT\SUB\a\DC2\EOT\232\ACK\STX.\n\
    \\SO\n\
    \\ACK\EOT\SUB\a\208\134\ETX\DC2\EOT\232\ACK\STX.\n\
    \\f\n\
    \\EOT\EOT\SUB\STX\NUL\DC2\EOT\234\ACK\STX\FS\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\NUL\ACK\DC2\EOT\234\ACK\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\NUL\SOH\DC2\EOT\234\ACK\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\NUL\ETX\DC2\EOT\234\ACK\SUB\ESC\n\
    \9\n\
    \\EOT\EOT\SUB\STX\SOH\DC2\EOT\236\ACK\STX\SI\SUB+ ID is the lease ID for the granted lease.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\SOH\ENQ\DC2\EOT\236\ACK\STX\a\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\SOH\SOH\DC2\EOT\236\ACK\b\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\SOH\ETX\DC2\EOT\236\ACK\r\SO\n\
    \G\n\
    \\EOT\EOT\SUB\STX\STX\DC2\EOT\238\ACK\STX\DLE\SUB9 TTL is the server chosen lease time-to-live in seconds.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\STX\ENQ\DC2\EOT\238\ACK\STX\a\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\STX\SOH\DC2\EOT\238\ACK\b\v\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\STX\ETX\DC2\EOT\238\ACK\SO\SI\n\
    \\f\n\
    \\EOT\EOT\SUB\STX\ETX\DC2\EOT\239\ACK\STX\DC3\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\ETX\ENQ\DC2\EOT\239\ACK\STX\b\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\ETX\SOH\DC2\EOT\239\ACK\t\SO\n\
    \\r\n\
    \\ENQ\EOT\SUB\STX\ETX\ETX\DC2\EOT\239\ACK\DC1\DC2\n\
    \\f\n\
    \\STX\EOT\ESC\DC2\ACK\242\ACK\NUL\247\ACK\SOH\n\
    \\v\n\
    \\ETX\EOT\ESC\SOH\DC2\EOT\242\ACK\b\SUB\n\
    \\v\n\
    \\ETX\EOT\ESC\a\DC2\EOT\243\ACK\STX.\n\
    \\SO\n\
    \\ACK\EOT\ESC\a\208\134\ETX\DC2\EOT\243\ACK\STX.\n\
    \j\n\
    \\EOT\EOT\ESC\STX\NUL\DC2\EOT\246\ACK\STX\SI\SUB\\ ID is the lease ID to revoke. When the ID is revoked, all associated keys will be deleted.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ESC\STX\NUL\ENQ\DC2\EOT\246\ACK\STX\a\n\
    \\r\n\
    \\ENQ\EOT\ESC\STX\NUL\SOH\DC2\EOT\246\ACK\b\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\ESC\STX\NUL\ETX\DC2\EOT\246\ACK\r\SO\n\
    \\f\n\
    \\STX\EOT\FS\DC2\ACK\249\ACK\NUL\253\ACK\SOH\n\
    \\v\n\
    \\ETX\EOT\FS\SOH\DC2\EOT\249\ACK\b\ESC\n\
    \\v\n\
    \\ETX\EOT\FS\a\DC2\EOT\250\ACK\STX.\n\
    \\SO\n\
    \\ACK\EOT\FS\a\208\134\ETX\DC2\EOT\250\ACK\STX.\n\
    \\f\n\
    \\EOT\EOT\FS\STX\NUL\DC2\EOT\252\ACK\STX\FS\n\
    \\r\n\
    \\ENQ\EOT\FS\STX\NUL\ACK\DC2\EOT\252\ACK\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\FS\STX\NUL\SOH\DC2\EOT\252\ACK\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\FS\STX\NUL\ETX\DC2\EOT\252\ACK\SUB\ESC\n\
    \\f\n\
    \\STX\EOT\GS\DC2\ACK\255\ACK\NUL\135\a\SOH\n\
    \\v\n\
    \\ETX\EOT\GS\SOH\DC2\EOT\255\ACK\b\ETB\n\
    \\v\n\
    \\ETX\EOT\GS\a\DC2\EOT\128\a\STX.\n\
    \\SO\n\
    \\ACK\EOT\GS\a\208\134\ETX\DC2\EOT\128\a\STX.\n\
    \1\n\
    \\EOT\EOT\GS\STX\NUL\DC2\EOT\131\a\STX\SI\SUB# ID is the lease ID to checkpoint.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\GS\STX\NUL\ENQ\DC2\EOT\131\a\STX\a\n\
    \\r\n\
    \\ENQ\EOT\GS\STX\NUL\SOH\DC2\EOT\131\a\b\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\GS\STX\NUL\ETX\DC2\EOT\131\a\r\SO\n\
    \N\n\
    \\EOT\EOT\GS\STX\SOH\DC2\EOT\134\a\STX\SUB\SUB@ Remaining_TTL is the remaining time until expiry of the lease.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\GS\STX\SOH\ENQ\DC2\EOT\134\a\STX\a\n\
    \\r\n\
    \\ENQ\EOT\GS\STX\SOH\SOH\DC2\EOT\134\a\b\NAK\n\
    \\r\n\
    \\ENQ\EOT\GS\STX\SOH\ETX\DC2\EOT\134\a\CAN\EM\n\
    \\f\n\
    \\STX\EOT\RS\DC2\ACK\137\a\NUL\141\a\SOH\n\
    \\v\n\
    \\ETX\EOT\RS\SOH\DC2\EOT\137\a\b\RS\n\
    \\v\n\
    \\ETX\EOT\RS\a\DC2\EOT\138\a\STX.\n\
    \\SO\n\
    \\ACK\EOT\RS\a\208\134\ETX\DC2\EOT\138\a\STX.\n\
    \\f\n\
    \\EOT\EOT\RS\STX\NUL\DC2\EOT\140\a\STX+\n\
    \\r\n\
    \\ENQ\EOT\RS\STX\NUL\EOT\DC2\EOT\140\a\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\RS\STX\NUL\ACK\DC2\EOT\140\a\v\SUB\n\
    \\r\n\
    \\ENQ\EOT\RS\STX\NUL\SOH\DC2\EOT\140\a\ESC&\n\
    \\r\n\
    \\ENQ\EOT\RS\STX\NUL\ETX\DC2\EOT\140\a)*\n\
    \\f\n\
    \\STX\EOT\US\DC2\ACK\143\a\NUL\147\a\SOH\n\
    \\v\n\
    \\ETX\EOT\US\SOH\DC2\EOT\143\a\b\US\n\
    \\v\n\
    \\ETX\EOT\US\a\DC2\EOT\144\a\STX.\n\
    \\SO\n\
    \\ACK\EOT\US\a\208\134\ETX\DC2\EOT\144\a\STX.\n\
    \\f\n\
    \\EOT\EOT\US\STX\NUL\DC2\EOT\146\a\STX\FS\n\
    \\r\n\
    \\ENQ\EOT\US\STX\NUL\ACK\DC2\EOT\146\a\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\US\STX\NUL\SOH\DC2\EOT\146\a\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\US\STX\NUL\ETX\DC2\EOT\146\a\SUB\ESC\n\
    \\f\n\
    \\STX\EOT \DC2\ACK\149\a\NUL\153\a\SOH\n\
    \\v\n\
    \\ETX\EOT \SOH\DC2\EOT\149\a\b\GS\n\
    \\v\n\
    \\ETX\EOT \a\DC2\EOT\150\a\STX.\n\
    \\SO\n\
    \\ACK\EOT \a\208\134\ETX\DC2\EOT\150\a\STX.\n\
    \?\n\
    \\EOT\EOT \STX\NUL\DC2\EOT\152\a\STX\SI\SUB1 ID is the lease ID for the lease to keep alive.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT \STX\NUL\ENQ\DC2\EOT\152\a\STX\a\n\
    \\r\n\
    \\ENQ\EOT \STX\NUL\SOH\DC2\EOT\152\a\b\n\
    \\n\
    \\r\n\
    \\ENQ\EOT \STX\NUL\ETX\DC2\EOT\152\a\r\SO\n\
    \\f\n\
    \\STX\EOT!\DC2\ACK\155\a\NUL\163\a\SOH\n\
    \\v\n\
    \\ETX\EOT!\SOH\DC2\EOT\155\a\b\RS\n\
    \\v\n\
    \\ETX\EOT!\a\DC2\EOT\156\a\STX.\n\
    \\SO\n\
    \\ACK\EOT!\a\208\134\ETX\DC2\EOT\156\a\STX.\n\
    \\f\n\
    \\EOT\EOT!\STX\NUL\DC2\EOT\158\a\STX\FS\n\
    \\r\n\
    \\ENQ\EOT!\STX\NUL\ACK\DC2\EOT\158\a\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT!\STX\NUL\SOH\DC2\EOT\158\a\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT!\STX\NUL\ETX\DC2\EOT\158\a\SUB\ESC\n\
    \?\n\
    \\EOT\EOT!\STX\SOH\DC2\EOT\160\a\STX\SI\SUB1 ID is the lease ID from the keep alive request.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT!\STX\SOH\ENQ\DC2\EOT\160\a\STX\a\n\
    \\r\n\
    \\ENQ\EOT!\STX\SOH\SOH\DC2\EOT\160\a\b\n\
    \\n\
    \\r\n\
    \\ENQ\EOT!\STX\SOH\ETX\DC2\EOT\160\a\r\SO\n\
    \:\n\
    \\EOT\EOT!\STX\STX\DC2\EOT\162\a\STX\DLE\SUB, TTL is the new time-to-live for the lease.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT!\STX\STX\ENQ\DC2\EOT\162\a\STX\a\n\
    \\r\n\
    \\ENQ\EOT!\STX\STX\SOH\DC2\EOT\162\a\b\v\n\
    \\r\n\
    \\ENQ\EOT!\STX\STX\ETX\DC2\EOT\162\a\SO\SI\n\
    \\f\n\
    \\STX\EOT\"\DC2\ACK\165\a\NUL\171\a\SOH\n\
    \\v\n\
    \\ETX\EOT\"\SOH\DC2\EOT\165\a\b\RS\n\
    \\v\n\
    \\ETX\EOT\"\a\DC2\EOT\166\a\STX.\n\
    \\SO\n\
    \\ACK\EOT\"\a\208\134\ETX\DC2\EOT\166\a\STX.\n\
    \1\n\
    \\EOT\EOT\"\STX\NUL\DC2\EOT\168\a\STX\SI\SUB# ID is the lease ID for the lease.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\"\STX\NUL\ENQ\DC2\EOT\168\a\STX\a\n\
    \\r\n\
    \\ENQ\EOT\"\STX\NUL\SOH\DC2\EOT\168\a\b\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\"\STX\NUL\ETX\DC2\EOT\168\a\r\SO\n\
    \J\n\
    \\EOT\EOT\"\STX\SOH\DC2\EOT\170\a\STX\DLE\SUB< keys is true to query all the keys attached to this lease.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\"\STX\SOH\ENQ\DC2\EOT\170\a\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT\"\STX\SOH\SOH\DC2\EOT\170\a\a\v\n\
    \\r\n\
    \\ENQ\EOT\"\STX\SOH\ETX\DC2\EOT\170\a\SO\SI\n\
    \\f\n\
    \\STX\EOT#\DC2\ACK\173\a\NUL\185\a\SOH\n\
    \\v\n\
    \\ETX\EOT#\SOH\DC2\EOT\173\a\b\US\n\
    \\v\n\
    \\ETX\EOT#\a\DC2\EOT\174\a\STX.\n\
    \\SO\n\
    \\ACK\EOT#\a\208\134\ETX\DC2\EOT\174\a\STX.\n\
    \\f\n\
    \\EOT\EOT#\STX\NUL\DC2\EOT\176\a\STX\FS\n\
    \\r\n\
    \\ENQ\EOT#\STX\NUL\ACK\DC2\EOT\176\a\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT#\STX\NUL\SOH\DC2\EOT\176\a\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT#\STX\NUL\ETX\DC2\EOT\176\a\SUB\ESC\n\
    \?\n\
    \\EOT\EOT#\STX\SOH\DC2\EOT\178\a\STX\SI\SUB1 ID is the lease ID from the keep alive request.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT#\STX\SOH\ENQ\DC2\EOT\178\a\STX\a\n\
    \\r\n\
    \\ENQ\EOT#\STX\SOH\SOH\DC2\EOT\178\a\b\n\
    \\n\
    \\r\n\
    \\ENQ\EOT#\STX\SOH\ETX\DC2\EOT\178\a\r\SO\n\
    \p\n\
    \\EOT\EOT#\STX\STX\DC2\EOT\180\a\STX\DLE\SUBb TTL is the remaining TTL in seconds for the lease; the lease will expire in under TTL+1 seconds.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT#\STX\STX\ENQ\DC2\EOT\180\a\STX\a\n\
    \\r\n\
    \\ENQ\EOT#\STX\STX\SOH\DC2\EOT\180\a\b\v\n\
    \\r\n\
    \\ENQ\EOT#\STX\STX\ETX\DC2\EOT\180\a\SO\SI\n\
    \^\n\
    \\EOT\EOT#\STX\ETX\DC2\EOT\182\a\STX\ETB\SUBP GrantedTTL is the initial granted time in seconds upon lease creation/renewal.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT#\STX\ETX\ENQ\DC2\EOT\182\a\STX\a\n\
    \\r\n\
    \\ENQ\EOT#\STX\ETX\SOH\DC2\EOT\182\a\b\DC2\n\
    \\r\n\
    \\ENQ\EOT#\STX\ETX\ETX\DC2\EOT\182\a\NAK\SYN\n\
    \@\n\
    \\EOT\EOT#\STX\EOT\DC2\EOT\184\a\STX\SUB\SUB2 Keys is the list of keys attached to this lease.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT#\STX\EOT\EOT\DC2\EOT\184\a\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT#\STX\EOT\ENQ\DC2\EOT\184\a\v\DLE\n\
    \\r\n\
    \\ENQ\EOT#\STX\EOT\SOH\DC2\EOT\184\a\DC1\NAK\n\
    \\r\n\
    \\ENQ\EOT#\STX\EOT\ETX\DC2\EOT\184\a\CAN\EM\n\
    \\f\n\
    \\STX\EOT$\DC2\ACK\187\a\NUL\189\a\SOH\n\
    \\v\n\
    \\ETX\EOT$\SOH\DC2\EOT\187\a\b\SUB\n\
    \\v\n\
    \\ETX\EOT$\a\DC2\EOT\188\a\STX.\n\
    \\SO\n\
    \\ACK\EOT$\a\208\134\ETX\DC2\EOT\188\a\STX.\n\
    \\f\n\
    \\STX\EOT%\DC2\ACK\191\a\NUL\196\a\SOH\n\
    \\v\n\
    \\ETX\EOT%\SOH\DC2\EOT\191\a\b\DC3\n\
    \\v\n\
    \\ETX\EOT%\a\DC2\EOT\192\a\STX.\n\
    \\SO\n\
    \\ACK\EOT%\a\208\134\ETX\DC2\EOT\192\a\STX.\n\
    \$\n\
    \\EOT\EOT%\STX\NUL\DC2\EOT\194\a\STX\SI\"\SYN TODO: int64 TTL = 2;\n\
    \\n\
    \\r\n\
    \\ENQ\EOT%\STX\NUL\ENQ\DC2\EOT\194\a\STX\a\n\
    \\r\n\
    \\ENQ\EOT%\STX\NUL\SOH\DC2\EOT\194\a\b\n\
    \\n\
    \\r\n\
    \\ENQ\EOT%\STX\NUL\ETX\DC2\EOT\194\a\r\SO\n\
    \\f\n\
    \\STX\EOT&\DC2\ACK\198\a\NUL\203\a\SOH\n\
    \\v\n\
    \\ETX\EOT&\SOH\DC2\EOT\198\a\b\ESC\n\
    \\v\n\
    \\ETX\EOT&\a\DC2\EOT\199\a\STX.\n\
    \\SO\n\
    \\ACK\EOT&\a\208\134\ETX\DC2\EOT\199\a\STX.\n\
    \\f\n\
    \\EOT\EOT&\STX\NUL\DC2\EOT\201\a\STX\FS\n\
    \\r\n\
    \\ENQ\EOT&\STX\NUL\ACK\DC2\EOT\201\a\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT&\STX\NUL\SOH\DC2\EOT\201\a\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT&\STX\NUL\ETX\DC2\EOT\201\a\SUB\ESC\n\
    \\f\n\
    \\EOT\EOT&\STX\SOH\DC2\EOT\202\a\STX\"\n\
    \\r\n\
    \\ENQ\EOT&\STX\SOH\EOT\DC2\EOT\202\a\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT&\STX\SOH\ACK\DC2\EOT\202\a\v\SYN\n\
    \\r\n\
    \\ENQ\EOT&\STX\SOH\SOH\DC2\EOT\202\a\ETB\GS\n\
    \\r\n\
    \\ENQ\EOT&\STX\SOH\ETX\DC2\EOT\202\a !\n\
    \\f\n\
    \\STX\EOT'\DC2\ACK\205\a\NUL\218\a\SOH\n\
    \\v\n\
    \\ETX\EOT'\SOH\DC2\EOT\205\a\b\SO\n\
    \\v\n\
    \\ETX\EOT'\a\DC2\EOT\206\a\STX.\n\
    \\SO\n\
    \\ACK\EOT'\a\208\134\ETX\DC2\EOT\206\a\STX.\n\
    \4\n\
    \\EOT\EOT'\STX\NUL\DC2\EOT\209\a\STX\DLE\SUB& ID is the member ID for this member.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT'\STX\NUL\ENQ\DC2\EOT\209\a\STX\b\n\
    \\r\n\
    \\ENQ\EOT'\STX\NUL\SOH\DC2\EOT\209\a\t\v\n\
    \\r\n\
    \\ENQ\EOT'\STX\NUL\ETX\DC2\EOT\209\a\SO\SI\n\
    \~\n\
    \\EOT\EOT'\STX\SOH\DC2\EOT\211\a\STX\DC2\SUBp name is the human-readable name of the member. If the member is not started, the name will be an empty string.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT'\STX\SOH\ENQ\DC2\EOT\211\a\STX\b\n\
    \\r\n\
    \\ENQ\EOT'\STX\SOH\SOH\DC2\EOT\211\a\t\r\n\
    \\r\n\
    \\ENQ\EOT'\STX\SOH\ETX\DC2\EOT\211\a\DLE\DC1\n\
    \a\n\
    \\EOT\EOT'\STX\STX\DC2\EOT\213\a\STX\US\SUBS peerURLs is the list of URLs the member exposes to the cluster for communication.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT'\STX\STX\EOT\DC2\EOT\213\a\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT'\STX\STX\ENQ\DC2\EOT\213\a\v\DC1\n\
    \\r\n\
    \\ENQ\EOT'\STX\STX\SOH\DC2\EOT\213\a\DC2\SUB\n\
    \\r\n\
    \\ENQ\EOT'\STX\STX\ETX\DC2\EOT\213\a\GS\RS\n\
    \\152\SOH\n\
    \\EOT\EOT'\STX\ETX\DC2\EOT\215\a\STX!\SUB\137\SOH clientURLs is the list of URLs the member exposes to clients for communication. If the member is not started, clientURLs will be empty.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT'\STX\ETX\EOT\DC2\EOT\215\a\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT'\STX\ETX\ENQ\DC2\EOT\215\a\v\DC1\n\
    \\r\n\
    \\ENQ\EOT'\STX\ETX\SOH\DC2\EOT\215\a\DC2\FS\n\
    \\r\n\
    \\ENQ\EOT'\STX\ETX\ETX\DC2\EOT\215\a\US \n\
    \B\n\
    \\EOT\EOT'\STX\EOT\DC2\EOT\217\a\STX<\SUB4 isLearner indicates if the member is raft learner.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT'\STX\EOT\ENQ\DC2\EOT\217\a\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT'\STX\EOT\SOH\DC2\EOT\217\a\a\DLE\n\
    \\r\n\
    \\ENQ\EOT'\STX\EOT\ETX\DC2\EOT\217\a\DC3\DC4\n\
    \\r\n\
    \\ENQ\EOT'\STX\EOT\b\DC2\EOT\217\a\NAK;\n\
    \\DLE\n\
    \\b\EOT'\STX\EOT\b\209\134\ETX\DC2\EOT\217\a\SYN:\n\
    \\f\n\
    \\STX\EOT(\DC2\ACK\220\a\NUL\227\a\SOH\n\
    \\v\n\
    \\ETX\EOT(\SOH\DC2\EOT\220\a\b\CAN\n\
    \\v\n\
    \\ETX\EOT(\a\DC2\EOT\221\a\STX.\n\
    \\SO\n\
    \\ACK\EOT(\a\208\134\ETX\DC2\EOT\221\a\STX.\n\
    \g\n\
    \\EOT\EOT(\STX\NUL\DC2\EOT\224\a\STX\US\SUBY peerURLs is the list of URLs the added member will use to communicate with the cluster.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT(\STX\NUL\EOT\DC2\EOT\224\a\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT(\STX\NUL\ENQ\DC2\EOT\224\a\v\DC1\n\
    \\r\n\
    \\ENQ\EOT(\STX\NUL\SOH\DC2\EOT\224\a\DC2\SUB\n\
    \\r\n\
    \\ENQ\EOT(\STX\NUL\ETX\DC2\EOT\224\a\GS\RS\n\
    \H\n\
    \\EOT\EOT(\STX\SOH\DC2\EOT\226\a\STX<\SUB: isLearner indicates if the added member is raft learner.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT(\STX\SOH\ENQ\DC2\EOT\226\a\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT(\STX\SOH\SOH\DC2\EOT\226\a\a\DLE\n\
    \\r\n\
    \\ENQ\EOT(\STX\SOH\ETX\DC2\EOT\226\a\DC3\DC4\n\
    \\r\n\
    \\ENQ\EOT(\STX\SOH\b\DC2\EOT\226\a\NAK;\n\
    \\DLE\n\
    \\b\EOT(\STX\SOH\b\209\134\ETX\DC2\EOT\226\a\SYN:\n\
    \\f\n\
    \\STX\EOT)\DC2\ACK\229\a\NUL\237\a\SOH\n\
    \\v\n\
    \\ETX\EOT)\SOH\DC2\EOT\229\a\b\EM\n\
    \\v\n\
    \\ETX\EOT)\a\DC2\EOT\230\a\STX.\n\
    \\SO\n\
    \\ACK\EOT)\a\208\134\ETX\DC2\EOT\230\a\STX.\n\
    \\f\n\
    \\EOT\EOT)\STX\NUL\DC2\EOT\232\a\STX\FS\n\
    \\r\n\
    \\ENQ\EOT)\STX\NUL\ACK\DC2\EOT\232\a\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT)\STX\NUL\SOH\DC2\EOT\232\a\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT)\STX\NUL\ETX\DC2\EOT\232\a\SUB\ESC\n\
    \F\n\
    \\EOT\EOT)\STX\SOH\DC2\EOT\234\a\STX\DC4\SUB8 member is the member information for the added member.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT)\STX\SOH\ACK\DC2\EOT\234\a\STX\b\n\
    \\r\n\
    \\ENQ\EOT)\STX\SOH\SOH\DC2\EOT\234\a\t\SI\n\
    \\r\n\
    \\ENQ\EOT)\STX\SOH\ETX\DC2\EOT\234\a\DC2\DC3\n\
    \M\n\
    \\EOT\EOT)\STX\STX\DC2\EOT\236\a\STX\RS\SUB? members is a list of all members after adding the new member.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT)\STX\STX\EOT\DC2\EOT\236\a\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT)\STX\STX\ACK\DC2\EOT\236\a\v\DC1\n\
    \\r\n\
    \\ENQ\EOT)\STX\STX\SOH\DC2\EOT\236\a\DC2\EM\n\
    \\r\n\
    \\ENQ\EOT)\STX\STX\ETX\DC2\EOT\236\a\FS\GS\n\
    \\f\n\
    \\STX\EOT*\DC2\ACK\239\a\NUL\243\a\SOH\n\
    \\v\n\
    \\ETX\EOT*\SOH\DC2\EOT\239\a\b\ESC\n\
    \\v\n\
    \\ETX\EOT*\a\DC2\EOT\240\a\STX.\n\
    \\SO\n\
    \\ACK\EOT*\a\208\134\ETX\DC2\EOT\240\a\STX.\n\
    \<\n\
    \\EOT\EOT*\STX\NUL\DC2\EOT\242\a\STX\DLE\SUB. ID is the member ID of the member to remove.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT*\STX\NUL\ENQ\DC2\EOT\242\a\STX\b\n\
    \\r\n\
    \\ENQ\EOT*\STX\NUL\SOH\DC2\EOT\242\a\t\v\n\
    \\r\n\
    \\ENQ\EOT*\STX\NUL\ETX\DC2\EOT\242\a\SO\SI\n\
    \\f\n\
    \\STX\EOT+\DC2\ACK\245\a\NUL\251\a\SOH\n\
    \\v\n\
    \\ETX\EOT+\SOH\DC2\EOT\245\a\b\FS\n\
    \\v\n\
    \\ETX\EOT+\a\DC2\EOT\246\a\STX.\n\
    \\SO\n\
    \\ACK\EOT+\a\208\134\ETX\DC2\EOT\246\a\STX.\n\
    \\f\n\
    \\EOT\EOT+\STX\NUL\DC2\EOT\248\a\STX\FS\n\
    \\r\n\
    \\ENQ\EOT+\STX\NUL\ACK\DC2\EOT\248\a\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT+\STX\NUL\SOH\DC2\EOT\248\a\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT+\STX\NUL\ETX\DC2\EOT\248\a\SUB\ESC\n\
    \K\n\
    \\EOT\EOT+\STX\SOH\DC2\EOT\250\a\STX\RS\SUB= members is a list of all members after removing the member.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT+\STX\SOH\EOT\DC2\EOT\250\a\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT+\STX\SOH\ACK\DC2\EOT\250\a\v\DC1\n\
    \\r\n\
    \\ENQ\EOT+\STX\SOH\SOH\DC2\EOT\250\a\DC2\EM\n\
    \\r\n\
    \\ENQ\EOT+\STX\SOH\ETX\DC2\EOT\250\a\FS\GS\n\
    \\f\n\
    \\STX\EOT,\DC2\ACK\253\a\NUL\132\b\SOH\n\
    \\v\n\
    \\ETX\EOT,\SOH\DC2\EOT\253\a\b\ESC\n\
    \\v\n\
    \\ETX\EOT,\a\DC2\EOT\254\a\STX.\n\
    \\SO\n\
    \\ACK\EOT,\a\208\134\ETX\DC2\EOT\254\a\STX.\n\
    \<\n\
    \\EOT\EOT,\STX\NUL\DC2\EOT\129\b\STX\DLE\SUB. ID is the member ID of the member to update.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT,\STX\NUL\ENQ\DC2\EOT\129\b\STX\b\n\
    \\r\n\
    \\ENQ\EOT,\STX\NUL\SOH\DC2\EOT\129\b\t\v\n\
    \\r\n\
    \\ENQ\EOT,\STX\NUL\ETX\DC2\EOT\129\b\SO\SI\n\
    \e\n\
    \\EOT\EOT,\STX\SOH\DC2\EOT\131\b\STX\US\SUBW peerURLs is the new list of URLs the member will use to communicate with the cluster.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT,\STX\SOH\EOT\DC2\EOT\131\b\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT,\STX\SOH\ENQ\DC2\EOT\131\b\v\DC1\n\
    \\r\n\
    \\ENQ\EOT,\STX\SOH\SOH\DC2\EOT\131\b\DC2\SUB\n\
    \\r\n\
    \\ENQ\EOT,\STX\SOH\ETX\DC2\EOT\131\b\GS\RS\n\
    \\f\n\
    \\STX\EOT-\DC2\ACK\134\b\NUL\140\b\SOH\n\
    \\v\n\
    \\ETX\EOT-\SOH\DC2\EOT\134\b\b\FS\n\
    \\v\n\
    \\ETX\EOT-\a\DC2\EOT\135\b\STX.\n\
    \\SO\n\
    \\ACK\EOT-\a\208\134\ETX\DC2\EOT\135\b\STX.\n\
    \\f\n\
    \\EOT\EOT-\STX\NUL\DC2\EOT\137\b\STX\FS\n\
    \\r\n\
    \\ENQ\EOT-\STX\NUL\ACK\DC2\EOT\137\b\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT-\STX\NUL\SOH\DC2\EOT\137\b\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT-\STX\NUL\ETX\DC2\EOT\137\b\SUB\ESC\n\
    \K\n\
    \\EOT\EOT-\STX\SOH\DC2\EOT\139\b\STXE\SUB= members is a list of all members after updating the member.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT-\STX\SOH\EOT\DC2\EOT\139\b\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT-\STX\SOH\ACK\DC2\EOT\139\b\v\DC1\n\
    \\r\n\
    \\ENQ\EOT-\STX\SOH\SOH\DC2\EOT\139\b\DC2\EM\n\
    \\r\n\
    \\ENQ\EOT-\STX\SOH\ETX\DC2\EOT\139\b\FS\GS\n\
    \\r\n\
    \\ENQ\EOT-\STX\SOH\b\DC2\EOT\139\b\RSD\n\
    \\DLE\n\
    \\b\EOT-\STX\SOH\b\209\134\ETX\DC2\EOT\139\b\USC\n\
    \\f\n\
    \\STX\EOT.\DC2\ACK\142\b\NUL\146\b\SOH\n\
    \\v\n\
    \\ETX\EOT.\SOH\DC2\EOT\142\b\b\EM\n\
    \\v\n\
    \\ETX\EOT.\a\DC2\EOT\143\b\STX.\n\
    \\SO\n\
    \\ACK\EOT.\a\208\134\ETX\DC2\EOT\143\b\STX.\n\
    \\f\n\
    \\EOT\EOT.\STX\NUL\DC2\EOT\145\b\STX?\n\
    \\r\n\
    \\ENQ\EOT.\STX\NUL\ENQ\DC2\EOT\145\b\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT.\STX\NUL\SOH\DC2\EOT\145\b\a\DC3\n\
    \\r\n\
    \\ENQ\EOT.\STX\NUL\ETX\DC2\EOT\145\b\SYN\ETB\n\
    \\r\n\
    \\ENQ\EOT.\STX\NUL\b\DC2\EOT\145\b\CAN>\n\
    \\DLE\n\
    \\b\EOT.\STX\NUL\b\209\134\ETX\DC2\EOT\145\b\EM=\n\
    \\f\n\
    \\STX\EOT/\DC2\ACK\148\b\NUL\154\b\SOH\n\
    \\v\n\
    \\ETX\EOT/\SOH\DC2\EOT\148\b\b\SUB\n\
    \\v\n\
    \\ETX\EOT/\a\DC2\EOT\149\b\STX.\n\
    \\SO\n\
    \\ACK\EOT/\a\208\134\ETX\DC2\EOT\149\b\STX.\n\
    \\f\n\
    \\EOT\EOT/\STX\NUL\DC2\EOT\151\b\STX\FS\n\
    \\r\n\
    \\ENQ\EOT/\STX\NUL\ACK\DC2\EOT\151\b\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT/\STX\NUL\SOH\DC2\EOT\151\b\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT/\STX\NUL\ETX\DC2\EOT\151\b\SUB\ESC\n\
    \M\n\
    \\EOT\EOT/\STX\SOH\DC2\EOT\153\b\STX\RS\SUB? members is a list of all members associated with the cluster.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT/\STX\SOH\EOT\DC2\EOT\153\b\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT/\STX\SOH\ACK\DC2\EOT\153\b\v\DC1\n\
    \\r\n\
    \\ENQ\EOT/\STX\SOH\SOH\DC2\EOT\153\b\DC2\EM\n\
    \\r\n\
    \\ENQ\EOT/\STX\SOH\ETX\DC2\EOT\153\b\FS\GS\n\
    \\f\n\
    \\STX\EOT0\DC2\ACK\156\b\NUL\160\b\SOH\n\
    \\v\n\
    \\ETX\EOT0\SOH\DC2\EOT\156\b\b\FS\n\
    \\v\n\
    \\ETX\EOT0\a\DC2\EOT\157\b\STX.\n\
    \\SO\n\
    \\ACK\EOT0\a\208\134\ETX\DC2\EOT\157\b\STX.\n\
    \=\n\
    \\EOT\EOT0\STX\NUL\DC2\EOT\159\b\STX\DLE\SUB/ ID is the member ID of the member to promote.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT0\STX\NUL\ENQ\DC2\EOT\159\b\STX\b\n\
    \\r\n\
    \\ENQ\EOT0\STX\NUL\SOH\DC2\EOT\159\b\t\v\n\
    \\r\n\
    \\ENQ\EOT0\STX\NUL\ETX\DC2\EOT\159\b\SO\SI\n\
    \\f\n\
    \\STX\EOT1\DC2\ACK\162\b\NUL\168\b\SOH\n\
    \\v\n\
    \\ETX\EOT1\SOH\DC2\EOT\162\b\b\GS\n\
    \\v\n\
    \\ETX\EOT1\a\DC2\EOT\163\b\STX.\n\
    \\SO\n\
    \\ACK\EOT1\a\208\134\ETX\DC2\EOT\163\b\STX.\n\
    \\f\n\
    \\EOT\EOT1\STX\NUL\DC2\EOT\165\b\STX\FS\n\
    \\r\n\
    \\ENQ\EOT1\STX\NUL\ACK\DC2\EOT\165\b\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT1\STX\NUL\SOH\DC2\EOT\165\b\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT1\STX\NUL\ETX\DC2\EOT\165\b\SUB\ESC\n\
    \L\n\
    \\EOT\EOT1\STX\SOH\DC2\EOT\167\b\STX\RS\SUB> members is a list of all members after promoting the member.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT1\STX\SOH\EOT\DC2\EOT\167\b\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT1\STX\SOH\ACK\DC2\EOT\167\b\v\DC1\n\
    \\r\n\
    \\ENQ\EOT1\STX\SOH\SOH\DC2\EOT\167\b\DC2\EM\n\
    \\r\n\
    \\ENQ\EOT1\STX\SOH\ETX\DC2\EOT\167\b\FS\GS\n\
    \\f\n\
    \\STX\EOT2\DC2\ACK\170\b\NUL\172\b\SOH\n\
    \\v\n\
    \\ETX\EOT2\SOH\DC2\EOT\170\b\b\EM\n\
    \\v\n\
    \\ETX\EOT2\a\DC2\EOT\171\b\STX.\n\
    \\SO\n\
    \\ACK\EOT2\a\208\134\ETX\DC2\EOT\171\b\STX.\n\
    \\f\n\
    \\STX\EOT3\DC2\ACK\174\b\NUL\178\b\SOH\n\
    \\v\n\
    \\ETX\EOT3\SOH\DC2\EOT\174\b\b\SUB\n\
    \\v\n\
    \\ETX\EOT3\a\DC2\EOT\175\b\STX.\n\
    \\SO\n\
    \\ACK\EOT3\a\208\134\ETX\DC2\EOT\175\b\STX.\n\
    \\f\n\
    \\EOT\EOT3\STX\NUL\DC2\EOT\177\b\STX\FS\n\
    \\r\n\
    \\ENQ\EOT3\STX\NUL\ACK\DC2\EOT\177\b\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT3\STX\NUL\SOH\DC2\EOT\177\b\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT3\STX\NUL\ETX\DC2\EOT\177\b\SUB\ESC\n\
    \\f\n\
    \\STX\EOT4\DC2\ACK\180\b\NUL\184\b\SOH\n\
    \\v\n\
    \\ETX\EOT4\SOH\DC2\EOT\180\b\b\EM\n\
    \\v\n\
    \\ETX\EOT4\a\DC2\EOT\181\b\STX.\n\
    \\SO\n\
    \\ACK\EOT4\a\208\134\ETX\DC2\EOT\181\b\STX.\n\
    \;\n\
    \\EOT\EOT4\STX\NUL\DC2\EOT\183\b\STX\SYN\SUB- targetID is the node ID for the new leader.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT4\STX\NUL\ENQ\DC2\EOT\183\b\STX\b\n\
    \\r\n\
    \\ENQ\EOT4\STX\NUL\SOH\DC2\EOT\183\b\t\DC1\n\
    \\r\n\
    \\ENQ\EOT4\STX\NUL\ETX\DC2\EOT\183\b\DC4\NAK\n\
    \\f\n\
    \\STX\EOT5\DC2\ACK\186\b\NUL\190\b\SOH\n\
    \\v\n\
    \\ETX\EOT5\SOH\DC2\EOT\186\b\b\SUB\n\
    \\v\n\
    \\ETX\EOT5\a\DC2\EOT\187\b\STX.\n\
    \\SO\n\
    \\ACK\EOT5\a\208\134\ETX\DC2\EOT\187\b\STX.\n\
    \\f\n\
    \\EOT\EOT5\STX\NUL\DC2\EOT\189\b\STX\FS\n\
    \\r\n\
    \\ENQ\EOT5\STX\NUL\ACK\DC2\EOT\189\b\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT5\STX\NUL\SOH\DC2\EOT\189\b\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT5\STX\NUL\ETX\DC2\EOT\189\b\SUB\ESC\n\
    \\f\n\
    \\STX\ENQ\NUL\DC2\ACK\192\b\NUL\198\b\SOH\n\
    \\v\n\
    \\ETX\ENQ\NUL\SOH\DC2\EOT\192\b\ENQ\SO\n\
    \\v\n\
    \\ETX\ENQ\NUL\ETX\DC2\EOT\193\b\STX/\n\
    \\SO\n\
    \\ACK\ENQ\NUL\ETX\210\134\ETX\DC2\EOT\193\b\STX/\n\
    \=\n\
    \\EOT\ENQ\NUL\STX\NUL\DC2\EOT\195\b\b\DC1\"/ default, used to query if any alarm is active\n\
    \\n\
    \\r\n\
    \\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\EOT\195\b\b\f\n\
    \\r\n\
    \\ENQ\ENQ\NUL\STX\NUL\STX\DC2\EOT\195\b\SI\DLE\n\
    \(\n\
    \\EOT\ENQ\NUL\STX\SOH\DC2\EOT\196\b\b\DC4\"\SUB space quota is exhausted\n\
    \\n\
    \\r\n\
    \\ENQ\ENQ\NUL\STX\SOH\SOH\DC2\EOT\196\b\b\SI\n\
    \\r\n\
    \\ENQ\ENQ\NUL\STX\SOH\STX\DC2\EOT\196\b\DC2\DC3\n\
    \,\n\
    \\EOT\ENQ\NUL\STX\STX\DC2\EOT\197\b\b@\"\RS kv store corruption detected\n\
    \\n\
    \\r\n\
    \\ENQ\ENQ\NUL\STX\STX\SOH\DC2\EOT\197\b\b\SI\n\
    \\r\n\
    \\ENQ\ENQ\NUL\STX\STX\STX\DC2\EOT\197\b\DC2\DC3\n\
    \\r\n\
    \\ENQ\ENQ\NUL\STX\STX\ETX\DC2\EOT\197\b\DC4?\n\
    \\DLE\n\
    \\b\ENQ\NUL\STX\STX\ETX\211\134\ETX\DC2\EOT\197\b\NAK>\n\
    \\f\n\
    \\STX\EOT6\DC2\ACK\200\b\NUL\219\b\SOH\n\
    \\v\n\
    \\ETX\EOT6\SOH\DC2\EOT\200\b\b\DC4\n\
    \\v\n\
    \\ETX\EOT6\a\DC2\EOT\201\b\STX.\n\
    \\SO\n\
    \\ACK\EOT6\a\208\134\ETX\DC2\EOT\201\b\STX.\n\
    \\SO\n\
    \\EOT\EOT6\EOT\NUL\DC2\ACK\203\b\STX\209\b\ETX\n\
    \\r\n\
    \\ENQ\EOT6\EOT\NUL\SOH\DC2\EOT\203\b\a\DC2\n\
    \\r\n\
    \\ENQ\EOT6\EOT\NUL\ETX\DC2\EOT\204\b\EOT1\n\
    \\DLE\n\
    \\b\EOT6\EOT\NUL\ETX\210\134\ETX\DC2\EOT\204\b\EOT1\n\
    \\SO\n\
    \\ACK\EOT6\EOT\NUL\STX\NUL\DC2\EOT\206\b\EOT\f\n\
    \\SI\n\
    \\a\EOT6\EOT\NUL\STX\NUL\SOH\DC2\EOT\206\b\EOT\a\n\
    \\SI\n\
    \\a\EOT6\EOT\NUL\STX\NUL\STX\DC2\EOT\206\b\n\
    \\v\n\
    \\SO\n\
    \\ACK\EOT6\EOT\NUL\STX\SOH\DC2\EOT\207\b\EOT\DC1\n\
    \\SI\n\
    \\a\EOT6\EOT\NUL\STX\SOH\SOH\DC2\EOT\207\b\EOT\f\n\
    \\SI\n\
    \\a\EOT6\EOT\NUL\STX\SOH\STX\DC2\EOT\207\b\SI\DLE\n\
    \\SO\n\
    \\ACK\EOT6\EOT\NUL\STX\STX\DC2\EOT\208\b\EOT\DC3\n\
    \\SI\n\
    \\a\EOT6\EOT\NUL\STX\STX\SOH\DC2\EOT\208\b\EOT\SO\n\
    \\SI\n\
    \\a\EOT6\EOT\NUL\STX\STX\STX\DC2\EOT\208\b\DC1\DC2\n\
    \\148\SOH\n\
    \\EOT\EOT6\STX\NUL\DC2\EOT\213\b\STX\EM\SUB\133\SOH action is the kind of alarm request to issue. The action\n\
    \ may GET alarm statuses, ACTIVATE an alarm, or DEACTIVATE a\n\
    \ raised alarm.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT6\STX\NUL\ACK\DC2\EOT\213\b\STX\r\n\
    \\r\n\
    \\ENQ\EOT6\STX\NUL\SOH\DC2\EOT\213\b\SO\DC4\n\
    \\r\n\
    \\ENQ\EOT6\STX\NUL\ETX\DC2\EOT\213\b\ETB\CAN\n\
    \\132\SOH\n\
    \\EOT\EOT6\STX\SOH\DC2\EOT\216\b\STX\SYN\SUBv memberID is the ID of the member associated with the alarm. If memberID is 0, the\n\
    \ alarm request covers all members.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT6\STX\SOH\ENQ\DC2\EOT\216\b\STX\b\n\
    \\r\n\
    \\ENQ\EOT6\STX\SOH\SOH\DC2\EOT\216\b\t\DC1\n\
    \\r\n\
    \\ENQ\EOT6\STX\SOH\ETX\DC2\EOT\216\b\DC4\NAK\n\
    \H\n\
    \\EOT\EOT6\STX\STX\DC2\EOT\218\b\STX\SYN\SUB: alarm is the type of alarm to consider for this request.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT6\STX\STX\ACK\DC2\EOT\218\b\STX\v\n\
    \\r\n\
    \\ENQ\EOT6\STX\STX\SOH\DC2\EOT\218\b\f\DC1\n\
    \\r\n\
    \\ENQ\EOT6\STX\STX\ETX\DC2\EOT\218\b\DC4\NAK\n\
    \\f\n\
    \\STX\EOT7\DC2\ACK\221\b\NUL\227\b\SOH\n\
    \\v\n\
    \\ETX\EOT7\SOH\DC2\EOT\221\b\b\DC3\n\
    \\v\n\
    \\ETX\EOT7\a\DC2\EOT\222\b\STX.\n\
    \\SO\n\
    \\ACK\EOT7\a\208\134\ETX\DC2\EOT\222\b\STX.\n\
    \R\n\
    \\EOT\EOT7\STX\NUL\DC2\EOT\224\b\STX\SYN\SUBD memberID is the ID of the member associated with the raised alarm.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT7\STX\NUL\ENQ\DC2\EOT\224\b\STX\b\n\
    \\r\n\
    \\ENQ\EOT7\STX\NUL\SOH\DC2\EOT\224\b\t\DC1\n\
    \\r\n\
    \\ENQ\EOT7\STX\NUL\ETX\DC2\EOT\224\b\DC4\NAK\n\
    \A\n\
    \\EOT\EOT7\STX\SOH\DC2\EOT\226\b\STX\SYN\SUB3 alarm is the type of alarm which has been raised.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT7\STX\SOH\ACK\DC2\EOT\226\b\STX\v\n\
    \\r\n\
    \\ENQ\EOT7\STX\SOH\SOH\DC2\EOT\226\b\f\DC1\n\
    \\r\n\
    \\ENQ\EOT7\STX\SOH\ETX\DC2\EOT\226\b\DC4\NAK\n\
    \\f\n\
    \\STX\EOT8\DC2\ACK\229\b\NUL\235\b\SOH\n\
    \\v\n\
    \\ETX\EOT8\SOH\DC2\EOT\229\b\b\NAK\n\
    \\v\n\
    \\ETX\EOT8\a\DC2\EOT\230\b\STX.\n\
    \\SO\n\
    \\ACK\EOT8\a\208\134\ETX\DC2\EOT\230\b\STX.\n\
    \\f\n\
    \\EOT\EOT8\STX\NUL\DC2\EOT\232\b\STX\FS\n\
    \\r\n\
    \\ENQ\EOT8\STX\NUL\ACK\DC2\EOT\232\b\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT8\STX\NUL\SOH\DC2\EOT\232\b\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT8\STX\NUL\ETX\DC2\EOT\232\b\SUB\ESC\n\
    \M\n\
    \\EOT\EOT8\STX\SOH\DC2\EOT\234\b\STX\"\SUB? alarms is a list of alarms associated with the alarm request.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT8\STX\SOH\EOT\DC2\EOT\234\b\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT8\STX\SOH\ACK\DC2\EOT\234\b\v\SYN\n\
    \\r\n\
    \\ENQ\EOT8\STX\SOH\SOH\DC2\EOT\234\b\ETB\GS\n\
    \\r\n\
    \\ENQ\EOT8\STX\SOH\ETX\DC2\EOT\234\b !\n\
    \\f\n\
    \\STX\EOT9\DC2\ACK\237\b\NUL\254\b\SOH\n\
    \\v\n\
    \\ETX\EOT9\SOH\DC2\EOT\237\b\b\CAN\n\
    \\v\n\
    \\ETX\EOT9\a\DC2\EOT\238\b\STX.\n\
    \\SO\n\
    \\ACK\EOT9\a\208\134\ETX\DC2\EOT\238\b\STX.\n\
    \\SO\n\
    \\EOT\EOT9\EOT\NUL\DC2\ACK\240\b\STX\246\b\ETX\n\
    \\r\n\
    \\ENQ\EOT9\EOT\NUL\SOH\DC2\EOT\240\b\a\SYN\n\
    \\r\n\
    \\ENQ\EOT9\EOT\NUL\ETX\DC2\EOT\241\b\EOT1\n\
    \\DLE\n\
    \\b\EOT9\EOT\NUL\ETX\210\134\ETX\DC2\EOT\241\b\EOT1\n\
    \\SO\n\
    \\ACK\EOT9\EOT\NUL\STX\NUL\DC2\EOT\243\b\EOT\DC1\n\
    \\SI\n\
    \\a\EOT9\EOT\NUL\STX\NUL\SOH\DC2\EOT\243\b\EOT\f\n\
    \\SI\n\
    \\a\EOT9\EOT\NUL\STX\NUL\STX\DC2\EOT\243\b\SI\DLE\n\
    \\SO\n\
    \\ACK\EOT9\EOT\NUL\STX\SOH\DC2\EOT\244\b\EOT\SI\n\
    \\SI\n\
    \\a\EOT9\EOT\NUL\STX\SOH\SOH\DC2\EOT\244\b\EOT\n\
    \\n\
    \\SI\n\
    \\a\EOT9\EOT\NUL\STX\SOH\STX\DC2\EOT\244\b\r\SO\n\
    \\SO\n\
    \\ACK\EOT9\EOT\NUL\STX\STX\DC2\EOT\245\b\EOT\SI\n\
    \\SI\n\
    \\a\EOT9\EOT\NUL\STX\STX\SOH\DC2\EOT\245\b\EOT\n\
    \\n\
    \\SI\n\
    \\a\EOT9\EOT\NUL\STX\STX\STX\DC2\EOT\245\b\r\SO\n\
    \\182\SOH\n\
    \\EOT\EOT9\STX\NUL\DC2\EOT\251\b\STX\GS\SUB\167\SOH action is the kind of downgrade request to issue. The action may\n\
    \ VALIDATE the target version, DOWNGRADE the cluster version,\n\
    \ or CANCEL the current downgrading job.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT9\STX\NUL\ACK\DC2\EOT\251\b\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT9\STX\NUL\SOH\DC2\EOT\251\b\DC2\CAN\n\
    \\r\n\
    \\ENQ\EOT9\STX\NUL\ETX\DC2\EOT\251\b\ESC\FS\n\
    \;\n\
    \\EOT\EOT9\STX\SOH\DC2\EOT\253\b\STX\NAK\SUB- version is the target version to downgrade.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT9\STX\SOH\ENQ\DC2\EOT\253\b\STX\b\n\
    \\r\n\
    \\ENQ\EOT9\STX\SOH\SOH\DC2\EOT\253\b\t\DLE\n\
    \\r\n\
    \\ENQ\EOT9\STX\SOH\ETX\DC2\EOT\253\b\DC3\DC4\n\
    \\f\n\
    \\STX\EOT:\DC2\ACK\128\t\NUL\134\t\SOH\n\
    \\v\n\
    \\ETX\EOT:\SOH\DC2\EOT\128\t\b\EM\n\
    \\v\n\
    \\ETX\EOT:\a\DC2\EOT\129\t\STX.\n\
    \\SO\n\
    \\ACK\EOT:\a\208\134\ETX\DC2\EOT\129\t\STX.\n\
    \\f\n\
    \\EOT\EOT:\STX\NUL\DC2\EOT\131\t\STX\FS\n\
    \\r\n\
    \\ENQ\EOT:\STX\NUL\ACK\DC2\EOT\131\t\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT:\STX\NUL\SOH\DC2\EOT\131\t\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT:\STX\NUL\ETX\DC2\EOT\131\t\SUB\ESC\n\
    \7\n\
    \\EOT\EOT:\STX\SOH\DC2\EOT\133\t\STX\NAK\SUB) version is the current cluster version.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT:\STX\SOH\ENQ\DC2\EOT\133\t\STX\b\n\
    \\r\n\
    \\ENQ\EOT:\STX\SOH\SOH\DC2\EOT\133\t\t\DLE\n\
    \\r\n\
    \\ENQ\EOT:\STX\SOH\ETX\DC2\EOT\133\t\DC3\DC4\n\
    \\154\STX\n\
    \\STX\EOT;\DC2\ACK\140\t\NUL\144\t\SOH\SUB\139\STX DowngradeVersionTestRequest is used for test only. The version in\n\
    \ this request will be read as the WAL record version.If the downgrade\n\
    \ target version is less than this version, then the downgrade(online)\n\
    \ or migration(offline) isn't safe, so shouldn't be allowed.\n\
    \\n\
    \\v\n\
    \\ETX\EOT;\SOH\DC2\EOT\140\t\b#\n\
    \\v\n\
    \\ETX\EOT;\a\DC2\EOT\141\t\STX.\n\
    \\SO\n\
    \\ACK\EOT;\a\208\134\ETX\DC2\EOT\141\t\STX.\n\
    \\f\n\
    \\EOT\EOT;\STX\NUL\DC2\EOT\143\t\STX\DC1\n\
    \\r\n\
    \\ENQ\EOT;\STX\NUL\ENQ\DC2\EOT\143\t\STX\b\n\
    \\r\n\
    \\ENQ\EOT;\STX\NUL\SOH\DC2\EOT\143\t\t\f\n\
    \\r\n\
    \\ENQ\EOT;\STX\NUL\ETX\DC2\EOT\143\t\SI\DLE\n\
    \\f\n\
    \\STX\EOT<\DC2\ACK\146\t\NUL\148\t\SOH\n\
    \\v\n\
    \\ETX\EOT<\SOH\DC2\EOT\146\t\b\NAK\n\
    \\v\n\
    \\ETX\EOT<\a\DC2\EOT\147\t\STX.\n\
    \\SO\n\
    \\ACK\EOT<\a\208\134\ETX\DC2\EOT\147\t\STX.\n\
    \\f\n\
    \\STX\EOT=\DC2\ACK\150\t\NUL\176\t\SOH\n\
    \\v\n\
    \\ETX\EOT=\SOH\DC2\EOT\150\t\b\SYN\n\
    \\v\n\
    \\ETX\EOT=\a\DC2\EOT\151\t\STX.\n\
    \\SO\n\
    \\ACK\EOT=\a\208\134\ETX\DC2\EOT\151\t\STX.\n\
    \\f\n\
    \\EOT\EOT=\STX\NUL\DC2\EOT\153\t\STX\FS\n\
    \\r\n\
    \\ENQ\EOT=\STX\NUL\ACK\DC2\EOT\153\t\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT=\STX\NUL\SOH\DC2\EOT\153\t\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT=\STX\NUL\ETX\DC2\EOT\153\t\SUB\ESC\n\
    \V\n\
    \\EOT\EOT=\STX\SOH\DC2\EOT\155\t\STX\NAK\SUBH version is the cluster protocol version used by the responding member.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT=\STX\SOH\ENQ\DC2\EOT\155\t\STX\b\n\
    \\r\n\
    \\ENQ\EOT=\STX\SOH\SOH\DC2\EOT\155\t\t\DLE\n\
    \\r\n\
    \\ENQ\EOT=\STX\SOH\ETX\DC2\EOT\155\t\DC3\DC4\n\
    \t\n\
    \\EOT\EOT=\STX\STX\DC2\EOT\157\t\STX\DC3\SUBf dbSize is the size of the backend database physically allocated, in bytes, of the responding member.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT=\STX\STX\ENQ\DC2\EOT\157\t\STX\a\n\
    \\r\n\
    \\ENQ\EOT=\STX\STX\SOH\DC2\EOT\157\t\b\SO\n\
    \\r\n\
    \\ENQ\EOT=\STX\STX\ETX\DC2\EOT\157\t\DC1\DC2\n\
    \c\n\
    \\EOT\EOT=\STX\ETX\DC2\EOT\159\t\STX\DC4\SUBU leader is the member ID which the responding member believes is the current leader.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT=\STX\ETX\ENQ\DC2\EOT\159\t\STX\b\n\
    \\r\n\
    \\ENQ\EOT=\STX\ETX\SOH\DC2\EOT\159\t\t\SI\n\
    \\r\n\
    \\ENQ\EOT=\STX\ETX\ETX\DC2\EOT\159\t\DC2\DC3\n\
    \W\n\
    \\EOT\EOT=\STX\EOT\DC2\EOT\161\t\STX\ETB\SUBI raftIndex is the current raft committed index of the responding member.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT=\STX\EOT\ENQ\DC2\EOT\161\t\STX\b\n\
    \\r\n\
    \\ENQ\EOT=\STX\EOT\SOH\DC2\EOT\161\t\t\DC2\n\
    \\r\n\
    \\ENQ\EOT=\STX\EOT\ETX\DC2\EOT\161\t\NAK\SYN\n\
    \K\n\
    \\EOT\EOT=\STX\ENQ\DC2\EOT\163\t\STX\SYN\SUB= raftTerm is the current raft term of the responding member.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT=\STX\ENQ\ENQ\DC2\EOT\163\t\STX\b\n\
    \\r\n\
    \\ENQ\EOT=\STX\ENQ\SOH\DC2\EOT\163\t\t\DC1\n\
    \\r\n\
    \\ENQ\EOT=\STX\ENQ\ETX\DC2\EOT\163\t\DC4\NAK\n\
    \\\\n\
    \\EOT\EOT=\STX\ACK\DC2\EOT\165\t\STXE\SUBN raftAppliedIndex is the current raft applied index of the responding member.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT=\STX\ACK\ENQ\DC2\EOT\165\t\STX\b\n\
    \\r\n\
    \\ENQ\EOT=\STX\ACK\SOH\DC2\EOT\165\t\t\EM\n\
    \\r\n\
    \\ENQ\EOT=\STX\ACK\ETX\DC2\EOT\165\t\FS\GS\n\
    \\r\n\
    \\ENQ\EOT=\STX\ACK\b\DC2\EOT\165\t\RSD\n\
    \\DLE\n\
    \\b\EOT=\STX\ACK\b\209\134\ETX\DC2\EOT\165\t\USC\n\
    \D\n\
    \\EOT\EOT=\STX\a\DC2\EOT\167\t\STXD\SUB6 errors contains alarm/health information and status.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT=\STX\a\EOT\DC2\EOT\167\t\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT=\STX\a\ENQ\DC2\EOT\167\t\v\DC1\n\
    \\r\n\
    \\ENQ\EOT=\STX\a\SOH\DC2\EOT\167\t\DC2\CAN\n\
    \\r\n\
    \\ENQ\EOT=\STX\a\ETX\DC2\EOT\167\t\ESC\FS\n\
    \\r\n\
    \\ENQ\EOT=\STX\a\b\DC2\EOT\167\t\GSC\n\
    \\DLE\n\
    \\b\EOT=\STX\a\b\209\134\ETX\DC2\EOT\167\t\RSB\n\
    \u\n\
    \\EOT\EOT=\STX\b\DC2\EOT\169\t\STX?\SUBg dbSizeInUse is the size of the backend database logically in use, in bytes, of the responding member.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT=\STX\b\ENQ\DC2\EOT\169\t\STX\a\n\
    \\r\n\
    \\ENQ\EOT=\STX\b\SOH\DC2\EOT\169\t\b\DC3\n\
    \\r\n\
    \\ENQ\EOT=\STX\b\ETX\DC2\EOT\169\t\SYN\ETB\n\
    \\r\n\
    \\ENQ\EOT=\STX\b\b\DC2\EOT\169\t\CAN>\n\
    \\DLE\n\
    \\b\EOT=\STX\b\b\209\134\ETX\DC2\EOT\169\t\EM=\n\
    \B\n\
    \\EOT\EOT=\STX\t\DC2\EOT\171\t\STX=\SUB4 isLearner indicates if the member is raft learner.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT=\STX\t\ENQ\DC2\EOT\171\t\STX\ACK\n\
    \\r\n\
    \\ENQ\EOT=\STX\t\SOH\DC2\EOT\171\t\a\DLE\n\
    \\r\n\
    \\ENQ\EOT=\STX\t\ETX\DC2\EOT\171\t\DC3\NAK\n\
    \\r\n\
    \\ENQ\EOT=\STX\t\b\DC2\EOT\171\t\SYN<\n\
    \\DLE\n\
    \\b\EOT=\STX\t\b\209\134\ETX\DC2\EOT\171\t\ETB;\n\
    \\144\SOH\n\
    \\EOT\EOT=\STX\n\
    \\DC2\EOT\173\t\STXD\SUB\129\SOH storageVersion is the version of the db file. It might be get updated with delay in relationship to the target cluster version.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT=\STX\n\
    \\ENQ\DC2\EOT\173\t\STX\b\n\
    \\r\n\
    \\ENQ\EOT=\STX\n\
    \\SOH\DC2\EOT\173\t\t\ETB\n\
    \\r\n\
    \\ENQ\EOT=\STX\n\
    \\ETX\DC2\EOT\173\t\SUB\FS\n\
    \\r\n\
    \\ENQ\EOT=\STX\n\
    \\b\DC2\EOT\173\t\GSC\n\
    \\DLE\n\
    \\b\EOT=\STX\n\
    \\b\209\134\ETX\DC2\EOT\173\t\RSB\n\
    \\139\SOH\n\
    \\EOT\EOT=\STX\v\DC2\EOT\175\t\STX@\SUB} dbSizeQuota is the configured etcd storage quota in bytes (the value passed to etcd instance by flag --quota-backend-bytes)\n\
    \\n\
    \\r\n\
    \\ENQ\EOT=\STX\v\ENQ\DC2\EOT\175\t\STX\a\n\
    \\r\n\
    \\ENQ\EOT=\STX\v\SOH\DC2\EOT\175\t\b\DC3\n\
    \\r\n\
    \\ENQ\EOT=\STX\v\ETX\DC2\EOT\175\t\SYN\CAN\n\
    \\r\n\
    \\ENQ\EOT=\STX\v\b\DC2\EOT\175\t\EM?\n\
    \\DLE\n\
    \\b\EOT=\STX\v\b\209\134\ETX\DC2\EOT\175\t\SUB>\n\
    \\f\n\
    \\STX\EOT>\DC2\ACK\178\t\NUL\180\t\SOH\n\
    \\v\n\
    \\ETX\EOT>\SOH\DC2\EOT\178\t\b\EM\n\
    \\v\n\
    \\ETX\EOT>\a\DC2\EOT\179\t\STX.\n\
    \\SO\n\
    \\ACK\EOT>\a\208\134\ETX\DC2\EOT\179\t\STX.\n\
    \\f\n\
    \\STX\EOT?\DC2\ACK\182\t\NUL\184\t\SOH\n\
    \\v\n\
    \\ETX\EOT?\SOH\DC2\EOT\182\t\b\SUB\n\
    \\v\n\
    \\ETX\EOT?\a\DC2\EOT\183\t\STX.\n\
    \\SO\n\
    \\ACK\EOT?\a\208\134\ETX\DC2\EOT\183\t\STX.\n\
    \\f\n\
    \\STX\EOT@\DC2\ACK\186\t\NUL\188\t\SOH\n\
    \\v\n\
    \\ETX\EOT@\SOH\DC2\EOT\186\t\b\EM\n\
    \\v\n\
    \\ETX\EOT@\a\DC2\EOT\187\t\STX.\n\
    \\SO\n\
    \\ACK\EOT@\a\208\134\ETX\DC2\EOT\187\t\STX.\n\
    \\f\n\
    \\STX\EOTA\DC2\ACK\190\t\NUL\195\t\SOH\n\
    \\v\n\
    \\ETX\EOTA\SOH\DC2\EOT\190\t\b\ESC\n\
    \\v\n\
    \\ETX\EOTA\a\DC2\EOT\191\t\STX.\n\
    \\SO\n\
    \\ACK\EOTA\a\208\134\ETX\DC2\EOT\191\t\STX.\n\
    \\f\n\
    \\EOT\EOTA\STX\NUL\DC2\EOT\193\t\STX\DC2\n\
    \\r\n\
    \\ENQ\EOTA\STX\NUL\ENQ\DC2\EOT\193\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTA\STX\NUL\SOH\DC2\EOT\193\t\t\r\n\
    \\r\n\
    \\ENQ\EOTA\STX\NUL\ETX\DC2\EOT\193\t\DLE\DC1\n\
    \\f\n\
    \\EOT\EOTA\STX\SOH\DC2\EOT\194\t\STX\SYN\n\
    \\r\n\
    \\ENQ\EOTA\STX\SOH\ENQ\DC2\EOT\194\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTA\STX\SOH\SOH\DC2\EOT\194\t\t\DC1\n\
    \\r\n\
    \\ENQ\EOTA\STX\SOH\ETX\DC2\EOT\194\t\DC4\NAK\n\
    \\f\n\
    \\STX\EOTB\DC2\ACK\197\t\NUL\204\t\SOH\n\
    \\v\n\
    \\ETX\EOTB\SOH\DC2\EOT\197\t\b\SUB\n\
    \\v\n\
    \\ETX\EOTB\a\DC2\EOT\198\t\STX.\n\
    \\SO\n\
    \\ACK\EOTB\a\208\134\ETX\DC2\EOT\198\t\STX.\n\
    \\f\n\
    \\EOT\EOTB\STX\NUL\DC2\EOT\200\t\STX\DC2\n\
    \\r\n\
    \\ENQ\EOTB\STX\NUL\ENQ\DC2\EOT\200\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTB\STX\NUL\SOH\DC2\EOT\200\t\t\r\n\
    \\r\n\
    \\ENQ\EOTB\STX\NUL\ETX\DC2\EOT\200\t\DLE\DC1\n\
    \\f\n\
    \\EOT\EOTB\STX\SOH\DC2\EOT\201\t\STX\SYN\n\
    \\r\n\
    \\ENQ\EOTB\STX\SOH\ENQ\DC2\EOT\201\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTB\STX\SOH\SOH\DC2\EOT\201\t\t\DC1\n\
    \\r\n\
    \\ENQ\EOTB\STX\SOH\ETX\DC2\EOT\201\t\DC4\NAK\n\
    \\f\n\
    \\EOT\EOTB\STX\STX\DC2\EOT\202\t\STXK\n\
    \\r\n\
    \\ENQ\EOTB\STX\STX\ACK\DC2\EOT\202\t\STX\ETB\n\
    \\r\n\
    \\ENQ\EOTB\STX\STX\SOH\DC2\EOT\202\t\CAN\US\n\
    \\r\n\
    \\ENQ\EOTB\STX\STX\ETX\DC2\EOT\202\t\"#\n\
    \\r\n\
    \\ENQ\EOTB\STX\STX\b\DC2\EOT\202\t$J\n\
    \\DLE\n\
    \\b\EOTB\STX\STX\b\209\134\ETX\DC2\EOT\202\t%I\n\
    \\f\n\
    \\EOT\EOTB\STX\ETX\DC2\EOT\203\t\STXC\n\
    \\r\n\
    \\ENQ\EOTB\STX\ETX\ENQ\DC2\EOT\203\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTB\STX\ETX\SOH\DC2\EOT\203\t\t\ETB\n\
    \\r\n\
    \\ENQ\EOTB\STX\ETX\ETX\DC2\EOT\203\t\SUB\ESC\n\
    \\r\n\
    \\ENQ\EOTB\STX\ETX\b\DC2\EOT\203\t\FSB\n\
    \\DLE\n\
    \\b\EOTB\STX\ETX\b\209\134\ETX\DC2\EOT\203\t\GSA\n\
    \\f\n\
    \\STX\EOTC\DC2\ACK\206\t\NUL\210\t\SOH\n\
    \\v\n\
    \\ETX\EOTC\SOH\DC2\EOT\206\t\b\SUB\n\
    \\v\n\
    \\ETX\EOTC\a\DC2\EOT\207\t\STX.\n\
    \\SO\n\
    \\ACK\EOTC\a\208\134\ETX\DC2\EOT\207\t\STX.\n\
    \\f\n\
    \\EOT\EOTC\STX\NUL\DC2\EOT\209\t\STX\DC2\n\
    \\r\n\
    \\ENQ\EOTC\STX\NUL\ENQ\DC2\EOT\209\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTC\STX\NUL\SOH\DC2\EOT\209\t\t\r\n\
    \\r\n\
    \\ENQ\EOTC\STX\NUL\ETX\DC2\EOT\209\t\DLE\DC1\n\
    \\f\n\
    \\STX\EOTD\DC2\ACK\212\t\NUL\216\t\SOH\n\
    \\v\n\
    \\ETX\EOTD\SOH\DC2\EOT\212\t\b\GS\n\
    \\v\n\
    \\ETX\EOTD\a\DC2\EOT\213\t\STX.\n\
    \\SO\n\
    \\ACK\EOTD\a\208\134\ETX\DC2\EOT\213\t\STX.\n\
    \7\n\
    \\EOT\EOTD\STX\NUL\DC2\EOT\215\t\STX\DC2\SUB) name is the name of the user to delete.\n\
    \\n\
    \\r\n\
    \\ENQ\EOTD\STX\NUL\ENQ\DC2\EOT\215\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTD\STX\NUL\SOH\DC2\EOT\215\t\t\r\n\
    \\r\n\
    \\ENQ\EOTD\STX\NUL\ETX\DC2\EOT\215\t\DLE\DC1\n\
    \\f\n\
    \\STX\EOTE\DC2\ACK\218\t\NUL\227\t\SOH\n\
    \\v\n\
    \\ETX\EOTE\SOH\DC2\EOT\218\t\b%\n\
    \\v\n\
    \\ETX\EOTE\a\DC2\EOT\219\t\STX.\n\
    \\SO\n\
    \\ACK\EOTE\a\208\134\ETX\DC2\EOT\219\t\STX.\n\
    \M\n\
    \\EOT\EOTE\STX\NUL\DC2\EOT\222\t\STX\DC2\SUB? name is the name of the user whose password is being changed.\n\
    \\n\
    \\r\n\
    \\ENQ\EOTE\STX\NUL\ENQ\DC2\EOT\222\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTE\STX\NUL\SOH\DC2\EOT\222\t\t\r\n\
    \\r\n\
    \\ENQ\EOTE\STX\NUL\ETX\DC2\EOT\222\t\DLE\DC1\n\
    \q\n\
    \\EOT\EOTE\STX\SOH\DC2\EOT\224\t\STX\SYN\SUBc password is the new password for the user. Note that this field will be removed in the API layer.\n\
    \\n\
    \\r\n\
    \\ENQ\EOTE\STX\SOH\ENQ\DC2\EOT\224\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTE\STX\SOH\SOH\DC2\EOT\224\t\t\DC1\n\
    \\r\n\
    \\ENQ\EOTE\STX\SOH\ETX\DC2\EOT\224\t\DC4\NAK\n\
    \{\n\
    \\EOT\EOTE\STX\STX\DC2\EOT\226\t\STXC\SUBm hashedPassword is the new password for the user. Note that this field will be initialized in the API layer.\n\
    \\n\
    \\r\n\
    \\ENQ\EOTE\STX\STX\ENQ\DC2\EOT\226\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTE\STX\STX\SOH\DC2\EOT\226\t\t\ETB\n\
    \\r\n\
    \\ENQ\EOTE\STX\STX\ETX\DC2\EOT\226\t\SUB\ESC\n\
    \\r\n\
    \\ENQ\EOTE\STX\STX\b\DC2\EOT\226\t\FSB\n\
    \\DLE\n\
    \\b\EOTE\STX\STX\b\209\134\ETX\DC2\EOT\226\t\GSA\n\
    \\f\n\
    \\STX\EOTF\DC2\ACK\229\t\NUL\236\t\SOH\n\
    \\v\n\
    \\ETX\EOTF\SOH\DC2\EOT\229\t\b \n\
    \\v\n\
    \\ETX\EOTF\a\DC2\EOT\230\t\STX.\n\
    \\SO\n\
    \\ACK\EOTF\a\208\134\ETX\DC2\EOT\230\t\STX.\n\
    \R\n\
    \\EOT\EOTF\STX\NUL\DC2\EOT\233\t\STX\DC2\SUBD user is the name of the user which should be granted a given role.\n\
    \\n\
    \\r\n\
    \\ENQ\EOTF\STX\NUL\ENQ\DC2\EOT\233\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTF\STX\NUL\SOH\DC2\EOT\233\t\t\r\n\
    \\r\n\
    \\ENQ\EOTF\STX\NUL\ETX\DC2\EOT\233\t\DLE\DC1\n\
    \B\n\
    \\EOT\EOTF\STX\SOH\DC2\EOT\235\t\STX\DC2\SUB4 role is the name of the role to grant to the user.\n\
    \\n\
    \\r\n\
    \\ENQ\EOTF\STX\SOH\ENQ\DC2\EOT\235\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTF\STX\SOH\SOH\DC2\EOT\235\t\t\r\n\
    \\r\n\
    \\ENQ\EOTF\STX\SOH\ETX\DC2\EOT\235\t\DLE\DC1\n\
    \\f\n\
    \\STX\EOTG\DC2\ACK\238\t\NUL\243\t\SOH\n\
    \\v\n\
    \\ETX\EOTG\SOH\DC2\EOT\238\t\b!\n\
    \\v\n\
    \\ETX\EOTG\a\DC2\EOT\239\t\STX.\n\
    \\SO\n\
    \\ACK\EOTG\a\208\134\ETX\DC2\EOT\239\t\STX.\n\
    \\f\n\
    \\EOT\EOTG\STX\NUL\DC2\EOT\241\t\STX\DC2\n\
    \\r\n\
    \\ENQ\EOTG\STX\NUL\ENQ\DC2\EOT\241\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTG\STX\NUL\SOH\DC2\EOT\241\t\t\r\n\
    \\r\n\
    \\ENQ\EOTG\STX\NUL\ETX\DC2\EOT\241\t\DLE\DC1\n\
    \\f\n\
    \\EOT\EOTG\STX\SOH\DC2\EOT\242\t\STX\DC2\n\
    \\r\n\
    \\ENQ\EOTG\STX\SOH\ENQ\DC2\EOT\242\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTG\STX\SOH\SOH\DC2\EOT\242\t\t\r\n\
    \\r\n\
    \\ENQ\EOTG\STX\SOH\ETX\DC2\EOT\242\t\DLE\DC1\n\
    \\f\n\
    \\STX\EOTH\DC2\ACK\245\t\NUL\250\t\SOH\n\
    \\v\n\
    \\ETX\EOTH\SOH\DC2\EOT\245\t\b\SUB\n\
    \\v\n\
    \\ETX\EOTH\a\DC2\EOT\246\t\STX.\n\
    \\SO\n\
    \\ACK\EOTH\a\208\134\ETX\DC2\EOT\246\t\STX.\n\
    \Q\n\
    \\EOT\EOTH\STX\NUL\DC2\EOT\249\t\STX\DC2\SUBC name is the name of the role to add to the authentication system.\n\
    \\n\
    \\r\n\
    \\ENQ\EOTH\STX\NUL\ENQ\DC2\EOT\249\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTH\STX\NUL\SOH\DC2\EOT\249\t\t\r\n\
    \\r\n\
    \\ENQ\EOTH\STX\NUL\ETX\DC2\EOT\249\t\DLE\DC1\n\
    \\f\n\
    \\STX\EOTI\DC2\ACK\252\t\NUL\128\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTI\SOH\DC2\EOT\252\t\b\SUB\n\
    \\v\n\
    \\ETX\EOTI\a\DC2\EOT\253\t\STX.\n\
    \\SO\n\
    \\ACK\EOTI\a\208\134\ETX\DC2\EOT\253\t\STX.\n\
    \\f\n\
    \\EOT\EOTI\STX\NUL\DC2\EOT\255\t\STX\DC2\n\
    \\r\n\
    \\ENQ\EOTI\STX\NUL\ENQ\DC2\EOT\255\t\STX\b\n\
    \\r\n\
    \\ENQ\EOTI\STX\NUL\SOH\DC2\EOT\255\t\t\r\n\
    \\r\n\
    \\ENQ\EOTI\STX\NUL\ETX\DC2\EOT\255\t\DLE\DC1\n\
    \\f\n\
    \\STX\EOTJ\DC2\ACK\130\n\
    \\NUL\132\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTJ\SOH\DC2\EOT\130\n\
    \\b\ESC\n\
    \\v\n\
    \\ETX\EOTJ\a\DC2\EOT\131\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTJ\a\208\134\ETX\DC2\EOT\131\n\
    \\STX.\n\
    \\f\n\
    \\STX\EOTK\DC2\ACK\134\n\
    \\NUL\136\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTK\SOH\DC2\EOT\134\n\
    \\b\ESC\n\
    \\v\n\
    \\ETX\EOTK\a\DC2\EOT\135\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTK\a\208\134\ETX\DC2\EOT\135\n\
    \\STX.\n\
    \\f\n\
    \\STX\EOTL\DC2\ACK\138\n\
    \\NUL\142\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTL\SOH\DC2\EOT\138\n\
    \\b\GS\n\
    \\v\n\
    \\ETX\EOTL\a\DC2\EOT\139\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTL\a\208\134\ETX\DC2\EOT\139\n\
    \\STX.\n\
    \\f\n\
    \\EOT\EOTL\STX\NUL\DC2\EOT\141\n\
    \\STX\DC2\n\
    \\r\n\
    \\ENQ\EOTL\STX\NUL\ENQ\DC2\EOT\141\n\
    \\STX\b\n\
    \\r\n\
    \\ENQ\EOTL\STX\NUL\SOH\DC2\EOT\141\n\
    \\t\r\n\
    \\r\n\
    \\ENQ\EOTL\STX\NUL\ETX\DC2\EOT\141\n\
    \\DLE\DC1\n\
    \\f\n\
    \\STX\EOTM\DC2\ACK\144\n\
    \\NUL\151\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTM\SOH\DC2\EOT\144\n\
    \\b&\n\
    \\v\n\
    \\ETX\EOTM\a\DC2\EOT\145\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTM\a\208\134\ETX\DC2\EOT\145\n\
    \\STX.\n\
    \R\n\
    \\EOT\EOTM\STX\NUL\DC2\EOT\148\n\
    \\STX\DC2\SUBD name is the name of the role which will be granted the permission.\n\
    \\n\
    \\r\n\
    \\ENQ\EOTM\STX\NUL\ENQ\DC2\EOT\148\n\
    \\STX\b\n\
    \\r\n\
    \\ENQ\EOTM\STX\NUL\SOH\DC2\EOT\148\n\
    \\t\r\n\
    \\r\n\
    \\ENQ\EOTM\STX\NUL\ETX\DC2\EOT\148\n\
    \\DLE\DC1\n\
    \<\n\
    \\EOT\EOTM\STX\SOH\DC2\EOT\150\n\
    \\STX\GS\SUB. perm is the permission to grant to the role.\n\
    \\n\
    \\r\n\
    \\ENQ\EOTM\STX\SOH\ACK\DC2\EOT\150\n\
    \\STX\DC3\n\
    \\r\n\
    \\ENQ\EOTM\STX\SOH\SOH\DC2\EOT\150\n\
    \\DC4\CAN\n\
    \\r\n\
    \\ENQ\EOTM\STX\SOH\ETX\DC2\EOT\150\n\
    \\ESC\FS\n\
    \\f\n\
    \\STX\EOTN\DC2\ACK\153\n\
    \\NUL\159\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTN\SOH\DC2\EOT\153\n\
    \\b'\n\
    \\v\n\
    \\ETX\EOTN\a\DC2\EOT\154\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTN\a\208\134\ETX\DC2\EOT\154\n\
    \\STX.\n\
    \\f\n\
    \\EOT\EOTN\STX\NUL\DC2\EOT\156\n\
    \\STX\DC2\n\
    \\r\n\
    \\ENQ\EOTN\STX\NUL\ENQ\DC2\EOT\156\n\
    \\STX\b\n\
    \\r\n\
    \\ENQ\EOTN\STX\NUL\SOH\DC2\EOT\156\n\
    \\t\r\n\
    \\r\n\
    \\ENQ\EOTN\STX\NUL\ETX\DC2\EOT\156\n\
    \\DLE\DC1\n\
    \\f\n\
    \\EOT\EOTN\STX\SOH\DC2\EOT\157\n\
    \\STX\DLE\n\
    \\r\n\
    \\ENQ\EOTN\STX\SOH\ENQ\DC2\EOT\157\n\
    \\STX\a\n\
    \\r\n\
    \\ENQ\EOTN\STX\SOH\SOH\DC2\EOT\157\n\
    \\b\v\n\
    \\r\n\
    \\ENQ\EOTN\STX\SOH\ETX\DC2\EOT\157\n\
    \\SO\SI\n\
    \\f\n\
    \\EOT\EOTN\STX\STX\DC2\EOT\158\n\
    \\STX\SYN\n\
    \\r\n\
    \\ENQ\EOTN\STX\STX\ENQ\DC2\EOT\158\n\
    \\STX\a\n\
    \\r\n\
    \\ENQ\EOTN\STX\STX\SOH\DC2\EOT\158\n\
    \\b\DC1\n\
    \\r\n\
    \\ENQ\EOTN\STX\STX\ETX\DC2\EOT\158\n\
    \\DC4\NAK\n\
    \\f\n\
    \\STX\EOTO\DC2\ACK\161\n\
    \\NUL\165\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTO\SOH\DC2\EOT\161\n\
    \\b\SUB\n\
    \\v\n\
    \\ETX\EOTO\a\DC2\EOT\162\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTO\a\208\134\ETX\DC2\EOT\162\n\
    \\STX.\n\
    \\f\n\
    \\EOT\EOTO\STX\NUL\DC2\EOT\164\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOTO\STX\NUL\ACK\DC2\EOT\164\n\
    \\STX\DLE\n\
    \\r\n\
    \\ENQ\EOTO\STX\NUL\SOH\DC2\EOT\164\n\
    \\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOTO\STX\NUL\ETX\DC2\EOT\164\n\
    \\SUB\ESC\n\
    \\f\n\
    \\STX\EOTP\DC2\ACK\167\n\
    \\NUL\171\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTP\SOH\DC2\EOT\167\n\
    \\b\ESC\n\
    \\v\n\
    \\ETX\EOTP\a\DC2\EOT\168\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTP\a\208\134\ETX\DC2\EOT\168\n\
    \\STX.\n\
    \\f\n\
    \\EOT\EOTP\STX\NUL\DC2\EOT\170\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOTP\STX\NUL\ACK\DC2\EOT\170\n\
    \\STX\DLE\n\
    \\r\n\
    \\ENQ\EOTP\STX\NUL\SOH\DC2\EOT\170\n\
    \\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOTP\STX\NUL\ETX\DC2\EOT\170\n\
    \\SUB\ESC\n\
    \\f\n\
    \\STX\EOTQ\DC2\ACK\173\n\
    \\NUL\180\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTQ\SOH\DC2\EOT\173\n\
    \\b\SUB\n\
    \\v\n\
    \\ETX\EOTQ\a\DC2\EOT\174\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTQ\a\208\134\ETX\DC2\EOT\174\n\
    \\STX.\n\
    \\f\n\
    \\EOT\EOTQ\STX\NUL\DC2\EOT\176\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOTQ\STX\NUL\ACK\DC2\EOT\176\n\
    \\STX\DLE\n\
    \\r\n\
    \\ENQ\EOTQ\STX\NUL\SOH\DC2\EOT\176\n\
    \\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOTQ\STX\NUL\ETX\DC2\EOT\176\n\
    \\SUB\ESC\n\
    \\f\n\
    \\EOT\EOTQ\STX\SOH\DC2\EOT\177\n\
    \\STX\DC3\n\
    \\r\n\
    \\ENQ\EOTQ\STX\SOH\ENQ\DC2\EOT\177\n\
    \\STX\ACK\n\
    \\r\n\
    \\ENQ\EOTQ\STX\SOH\SOH\DC2\EOT\177\n\
    \\a\SO\n\
    \\r\n\
    \\ENQ\EOTQ\STX\SOH\ETX\DC2\EOT\177\n\
    \\DC1\DC2\n\
    \B\n\
    \\EOT\EOTQ\STX\STX\DC2\EOT\179\n\
    \\STX\SUB\SUB4 authRevision is the current revision of auth store\n\
    \\n\
    \\r\n\
    \\ENQ\EOTQ\STX\STX\ENQ\DC2\EOT\179\n\
    \\STX\b\n\
    \\r\n\
    \\ENQ\EOTQ\STX\STX\SOH\DC2\EOT\179\n\
    \\t\NAK\n\
    \\r\n\
    \\ENQ\EOTQ\STX\STX\ETX\DC2\EOT\179\n\
    \\CAN\EM\n\
    \\f\n\
    \\STX\EOTR\DC2\ACK\182\n\
    \\NUL\188\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTR\SOH\DC2\EOT\182\n\
    \\b\FS\n\
    \\v\n\
    \\ETX\EOTR\a\DC2\EOT\183\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTR\a\208\134\ETX\DC2\EOT\183\n\
    \\STX.\n\
    \\f\n\
    \\EOT\EOTR\STX\NUL\DC2\EOT\185\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOTR\STX\NUL\ACK\DC2\EOT\185\n\
    \\STX\DLE\n\
    \\r\n\
    \\ENQ\EOTR\STX\NUL\SOH\DC2\EOT\185\n\
    \\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOTR\STX\NUL\ETX\DC2\EOT\185\n\
    \\SUB\ESC\n\
    \P\n\
    \\EOT\EOTR\STX\SOH\DC2\EOT\187\n\
    \\STX\DC3\SUBB token is an authorized token that can be used in succeeding RPCs\n\
    \\n\
    \\r\n\
    \\ENQ\EOTR\STX\SOH\ENQ\DC2\EOT\187\n\
    \\STX\b\n\
    \\r\n\
    \\ENQ\EOTR\STX\SOH\SOH\DC2\EOT\187\n\
    \\t\SO\n\
    \\r\n\
    \\ENQ\EOTR\STX\SOH\ETX\DC2\EOT\187\n\
    \\DC1\DC2\n\
    \\f\n\
    \\STX\EOTS\DC2\ACK\190\n\
    \\NUL\194\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTS\SOH\DC2\EOT\190\n\
    \\b\ESC\n\
    \\v\n\
    \\ETX\EOTS\a\DC2\EOT\191\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTS\a\208\134\ETX\DC2\EOT\191\n\
    \\STX.\n\
    \\f\n\
    \\EOT\EOTS\STX\NUL\DC2\EOT\193\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOTS\STX\NUL\ACK\DC2\EOT\193\n\
    \\STX\DLE\n\
    \\r\n\
    \\ENQ\EOTS\STX\NUL\SOH\DC2\EOT\193\n\
    \\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOTS\STX\NUL\ETX\DC2\EOT\193\n\
    \\SUB\ESC\n\
    \\f\n\
    \\STX\EOTT\DC2\ACK\196\n\
    \\NUL\202\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTT\SOH\DC2\EOT\196\n\
    \\b\ESC\n\
    \\v\n\
    \\ETX\EOTT\a\DC2\EOT\197\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTT\a\208\134\ETX\DC2\EOT\197\n\
    \\STX.\n\
    \\f\n\
    \\EOT\EOTT\STX\NUL\DC2\EOT\199\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOTT\STX\NUL\ACK\DC2\EOT\199\n\
    \\STX\DLE\n\
    \\r\n\
    \\ENQ\EOTT\STX\NUL\SOH\DC2\EOT\199\n\
    \\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOTT\STX\NUL\ETX\DC2\EOT\199\n\
    \\SUB\ESC\n\
    \\f\n\
    \\EOT\EOTT\STX\SOH\DC2\EOT\201\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOTT\STX\SOH\EOT\DC2\EOT\201\n\
    \\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOTT\STX\SOH\ENQ\DC2\EOT\201\n\
    \\v\DC1\n\
    \\r\n\
    \\ENQ\EOTT\STX\SOH\SOH\DC2\EOT\201\n\
    \\DC2\ETB\n\
    \\r\n\
    \\ENQ\EOTT\STX\SOH\ETX\DC2\EOT\201\n\
    \\SUB\ESC\n\
    \\f\n\
    \\STX\EOTU\DC2\ACK\204\n\
    \\NUL\208\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTU\SOH\DC2\EOT\204\n\
    \\b\RS\n\
    \\v\n\
    \\ETX\EOTU\a\DC2\EOT\205\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTU\a\208\134\ETX\DC2\EOT\205\n\
    \\STX.\n\
    \\f\n\
    \\EOT\EOTU\STX\NUL\DC2\EOT\207\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOTU\STX\NUL\ACK\DC2\EOT\207\n\
    \\STX\DLE\n\
    \\r\n\
    \\ENQ\EOTU\STX\NUL\SOH\DC2\EOT\207\n\
    \\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOTU\STX\NUL\ETX\DC2\EOT\207\n\
    \\SUB\ESC\n\
    \\f\n\
    \\STX\EOTV\DC2\ACK\210\n\
    \\NUL\214\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTV\SOH\DC2\EOT\210\n\
    \\b&\n\
    \\v\n\
    \\ETX\EOTV\a\DC2\EOT\211\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTV\a\208\134\ETX\DC2\EOT\211\n\
    \\STX.\n\
    \\f\n\
    \\EOT\EOTV\STX\NUL\DC2\EOT\213\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOTV\STX\NUL\ACK\DC2\EOT\213\n\
    \\STX\DLE\n\
    \\r\n\
    \\ENQ\EOTV\STX\NUL\SOH\DC2\EOT\213\n\
    \\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOTV\STX\NUL\ETX\DC2\EOT\213\n\
    \\SUB\ESC\n\
    \\f\n\
    \\STX\EOTW\DC2\ACK\216\n\
    \\NUL\220\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTW\SOH\DC2\EOT\216\n\
    \\b!\n\
    \\v\n\
    \\ETX\EOTW\a\DC2\EOT\217\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTW\a\208\134\ETX\DC2\EOT\217\n\
    \\STX.\n\
    \\f\n\
    \\EOT\EOTW\STX\NUL\DC2\EOT\219\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOTW\STX\NUL\ACK\DC2\EOT\219\n\
    \\STX\DLE\n\
    \\r\n\
    \\ENQ\EOTW\STX\NUL\SOH\DC2\EOT\219\n\
    \\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOTW\STX\NUL\ETX\DC2\EOT\219\n\
    \\SUB\ESC\n\
    \\f\n\
    \\STX\EOTX\DC2\ACK\222\n\
    \\NUL\226\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTX\SOH\DC2\EOT\222\n\
    \\b\"\n\
    \\v\n\
    \\ETX\EOTX\a\DC2\EOT\223\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTX\a\208\134\ETX\DC2\EOT\223\n\
    \\STX.\n\
    \\f\n\
    \\EOT\EOTX\STX\NUL\DC2\EOT\225\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOTX\STX\NUL\ACK\DC2\EOT\225\n\
    \\STX\DLE\n\
    \\r\n\
    \\ENQ\EOTX\STX\NUL\SOH\DC2\EOT\225\n\
    \\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOTX\STX\NUL\ETX\DC2\EOT\225\n\
    \\SUB\ESC\n\
    \\f\n\
    \\STX\EOTY\DC2\ACK\228\n\
    \\NUL\232\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTY\SOH\DC2\EOT\228\n\
    \\b\ESC\n\
    \\v\n\
    \\ETX\EOTY\a\DC2\EOT\229\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOTY\a\208\134\ETX\DC2\EOT\229\n\
    \\STX.\n\
    \\f\n\
    \\EOT\EOTY\STX\NUL\DC2\EOT\231\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOTY\STX\NUL\ACK\DC2\EOT\231\n\
    \\STX\DLE\n\
    \\r\n\
    \\ENQ\EOTY\STX\NUL\SOH\DC2\EOT\231\n\
    \\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOTY\STX\NUL\ETX\DC2\EOT\231\n\
    \\SUB\ESC\n\
    \\f\n\
    \\STX\EOTZ\DC2\ACK\234\n\
    \\NUL\238\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOTZ\SOH\DC2\EOT\234\n\
    \\b\ESC\n\
    \\f\n\
    \\EOT\EOTZ\STX\NUL\DC2\EOT\235\n\
    \\STXC\n\
    \\r\n\
    \\ENQ\EOTZ\STX\NUL\ACK\DC2\EOT\235\n\
    \\STX\DLE\n\
    \\r\n\
    \\ENQ\EOTZ\STX\NUL\SOH\DC2\EOT\235\n\
    \\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOTZ\STX\NUL\ETX\DC2\EOT\235\n\
    \\SUB\ESC\n\
    \\r\n\
    \\ENQ\EOTZ\STX\NUL\b\DC2\EOT\235\n\
    \\FSB\n\
    \\DLE\n\
    \\b\EOTZ\STX\NUL\b\209\134\ETX\DC2\EOT\235\n\
    \\GSA\n\
    \\f\n\
    \\EOT\EOTZ\STX\SOH\DC2\EOT\237\n\
    \\STXM\n\
    \\r\n\
    \\ENQ\EOTZ\STX\SOH\EOT\DC2\EOT\237\n\
    \\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOTZ\STX\SOH\ACK\DC2\EOT\237\n\
    \\v\FS\n\
    \\r\n\
    \\ENQ\EOTZ\STX\SOH\SOH\DC2\EOT\237\n\
    \\GS!\n\
    \\r\n\
    \\ENQ\EOTZ\STX\SOH\ETX\DC2\EOT\237\n\
    \$%\n\
    \\r\n\
    \\ENQ\EOTZ\STX\SOH\b\DC2\EOT\237\n\
    \&L\n\
    \\DLE\n\
    \\b\EOTZ\STX\SOH\b\209\134\ETX\DC2\EOT\237\n\
    \'K\n\
    \\f\n\
    \\STX\EOT[\DC2\ACK\240\n\
    \\NUL\246\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOT[\SOH\DC2\EOT\240\n\
    \\b\FS\n\
    \\v\n\
    \\ETX\EOT[\a\DC2\EOT\241\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOT[\a\208\134\ETX\DC2\EOT\241\n\
    \\STX.\n\
    \\f\n\
    \\EOT\EOT[\STX\NUL\DC2\EOT\243\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOT[\STX\NUL\ACK\DC2\EOT\243\n\
    \\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT[\STX\NUL\SOH\DC2\EOT\243\n\
    \\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT[\STX\NUL\ETX\DC2\EOT\243\n\
    \\SUB\ESC\n\
    \\f\n\
    \\EOT\EOT[\STX\SOH\DC2\EOT\245\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOT[\STX\SOH\EOT\DC2\EOT\245\n\
    \\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT[\STX\SOH\ENQ\DC2\EOT\245\n\
    \\v\DC1\n\
    \\r\n\
    \\ENQ\EOT[\STX\SOH\SOH\DC2\EOT\245\n\
    \\DC2\ETB\n\
    \\r\n\
    \\ENQ\EOT[\STX\SOH\ETX\DC2\EOT\245\n\
    \\SUB\ESC\n\
    \\f\n\
    \\STX\EOT\\\DC2\ACK\248\n\
    \\NUL\254\n\
    \\SOH\n\
    \\v\n\
    \\ETX\EOT\\\SOH\DC2\EOT\248\n\
    \\b\FS\n\
    \\v\n\
    \\ETX\EOT\\\a\DC2\EOT\249\n\
    \\STX.\n\
    \\SO\n\
    \\ACK\EOT\\\a\208\134\ETX\DC2\EOT\249\n\
    \\STX.\n\
    \\f\n\
    \\EOT\EOT\\\STX\NUL\DC2\EOT\251\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOT\\\STX\NUL\ACK\DC2\EOT\251\n\
    \\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT\\\STX\NUL\SOH\DC2\EOT\251\n\
    \\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT\\\STX\NUL\ETX\DC2\EOT\251\n\
    \\SUB\ESC\n\
    \\f\n\
    \\EOT\EOT\\\STX\SOH\DC2\EOT\253\n\
    \\STX\FS\n\
    \\r\n\
    \\ENQ\EOT\\\STX\SOH\EOT\DC2\EOT\253\n\
    \\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\\\STX\SOH\ENQ\DC2\EOT\253\n\
    \\v\DC1\n\
    \\r\n\
    \\ENQ\EOT\\\STX\SOH\SOH\DC2\EOT\253\n\
    \\DC2\ETB\n\
    \\r\n\
    \\ENQ\EOT\\\STX\SOH\ETX\DC2\EOT\253\n\
    \\SUB\ESC\n\
    \\f\n\
    \\STX\EOT]\DC2\ACK\128\v\NUL\132\v\SOH\n\
    \\v\n\
    \\ETX\EOT]\SOH\DC2\EOT\128\v\b\RS\n\
    \\v\n\
    \\ETX\EOT]\a\DC2\EOT\129\v\STX.\n\
    \\SO\n\
    \\ACK\EOT]\a\208\134\ETX\DC2\EOT\129\v\STX.\n\
    \\f\n\
    \\EOT\EOT]\STX\NUL\DC2\EOT\131\v\STX\FS\n\
    \\r\n\
    \\ENQ\EOT]\STX\NUL\ACK\DC2\EOT\131\v\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT]\STX\NUL\SOH\DC2\EOT\131\v\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT]\STX\NUL\ETX\DC2\EOT\131\v\SUB\ESC\n\
    \\f\n\
    \\STX\EOT^\DC2\ACK\134\v\NUL\138\v\SOH\n\
    \\v\n\
    \\ETX\EOT^\SOH\DC2\EOT\134\v\b'\n\
    \\v\n\
    \\ETX\EOT^\a\DC2\EOT\135\v\STX.\n\
    \\SO\n\
    \\ACK\EOT^\a\208\134\ETX\DC2\EOT\135\v\STX.\n\
    \\f\n\
    \\EOT\EOT^\STX\NUL\DC2\EOT\137\v\STX\FS\n\
    \\r\n\
    \\ENQ\EOT^\STX\NUL\ACK\DC2\EOT\137\v\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT^\STX\NUL\SOH\DC2\EOT\137\v\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT^\STX\NUL\ETX\DC2\EOT\137\v\SUB\ESC\n\
    \\f\n\
    \\STX\EOT_\DC2\ACK\140\v\NUL\144\v\SOH\n\
    \\v\n\
    \\ETX\EOT_\SOH\DC2\EOT\140\v\b(\n\
    \\v\n\
    \\ETX\EOT_\a\DC2\EOT\141\v\STX.\n\
    \\SO\n\
    \\ACK\EOT_\a\208\134\ETX\DC2\EOT\141\v\STX.\n\
    \\f\n\
    \\EOT\EOT_\STX\NUL\DC2\EOT\143\v\STX\FS\n\
    \\r\n\
    \\ENQ\EOT_\STX\NUL\ACK\DC2\EOT\143\v\STX\DLE\n\
    \\r\n\
    \\ENQ\EOT_\STX\NUL\SOH\DC2\EOT\143\v\DC1\ETB\n\
    \\r\n\
    \\ENQ\EOT_\STX\NUL\ETX\DC2\EOT\143\v\SUB\ESCb\ACKproto3"