{- 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
                                  (