grpc-api-etcd (empty) → 0.1.0.0
raw patch · 17 files changed
+10628/−0 lines, 17 filesdep +basedep +proto-lensdep +proto-lens-protocsetup-changed
Dependencies added: base, proto-lens, proto-lens-protoc
Files
- ChangeLog.md +3/−0
- LICENSE +30/−0
- README.md +3/−0
- Setup.hs +2/−0
- gen/Proto/Etcd/Auth/Authpb/Auth.hs +330/−0
- gen/Proto/Etcd/Auth/Authpb/Auth_Fields.hs +78/−0
- gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc.hs +8014/−0
- gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc_Fields.hs +789/−0
- gen/Proto/Etcd/Mvcc/Mvccpb/Kv.hs +342/−0
- gen/Proto/Etcd/Mvcc/Mvccpb/Kv_Fields.hs +103/−0
- gen/Proto/Gogoproto/Gogo.hs +36/−0
- gen/Proto/Gogoproto/Gogo_Fields.hs +34/−0
- gen/Proto/Google/Api/Annotations.hs +37/−0
- gen/Proto/Google/Api/Annotations_Fields.hs +35/−0
- gen/Proto/Google/Api/Http.hs +574/−0
- gen/Proto/Google/Api/Http_Fields.hs +167/−0
- grpc-api-etcd.cabal +51/−0
+ ChangeLog.md view
@@ -0,0 +1,3 @@+# Changelog for grpc-api-etcd++## Unreleased changes
+ LICENSE view
@@ -0,0 +1,30 @@+Copyright Author name here (c) 2018++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++ * Redistributions of source code must retain the above copyright+ notice, this list of conditions and the following disclaimer.++ * Redistributions in binary form must reproduce the above+ copyright notice, this list of conditions and the following+ disclaimer in the documentation and/or other materials provided+ with the distribution.++ * Neither the name of Author name here nor the names of other+ contributors may be used to endorse or promote products derived+ from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ README.md view
@@ -0,0 +1,3 @@+# grpc-api-etcd++This code is generated using `proto-lens`.
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
+ gen/Proto/Etcd/Auth/Authpb/Auth.hs view
@@ -0,0 +1,330 @@+{- This file was auto-generated from etcd/auth/authpb/auth.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+ UndecidableInstances, GeneralizedNewtypeDeriving,+ MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,+ PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}+module Proto.Etcd.Auth.Authpb.Auth+ (Permission(..), Permission'Type(..), Permission'Type(),+ Permission'Type'UnrecognizedValue, Role(..), User(..))+ where+import qualified Data.ProtoLens.Reexport.Lens.Labels.Prism+ as Lens.Labels.Prism+import qualified Data.ProtoLens.Reexport.Prelude as Prelude+import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int+import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word+import qualified Data.ProtoLens.Reexport.Data.ProtoLens+ as Data.ProtoLens+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum+ as Data.ProtoLens.Message.Enum+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types+ as Data.ProtoLens.Service.Types+import qualified Data.ProtoLens.Reexport.Lens.Family2+ as Lens.Family2+import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked+ as Lens.Family2.Unchecked+import qualified Data.ProtoLens.Reexport.Data.Default.Class+ as Data.Default.Class+import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text+import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map+import qualified Data.ProtoLens.Reexport.Data.ByteString+ as Data.ByteString+import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8+ as Data.ByteString.Char8+import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels+import qualified Data.ProtoLens.Reexport.Text.Read as Text.Read+import qualified Proto.Gogoproto.Gogo++{- | Fields :++ * 'Proto.Etcd.Auth.Authpb.Auth_Fields.permType' @:: Lens' Permission Permission'Type@+ * 'Proto.Etcd.Auth.Authpb.Auth_Fields.key' @:: Lens' Permission Data.ByteString.ByteString@+ * 'Proto.Etcd.Auth.Authpb.Auth_Fields.rangeEnd' @:: Lens' Permission Data.ByteString.ByteString@+ -}+data Permission = Permission{_Permission'permType ::+ !Permission'Type,+ _Permission'key :: !Data.ByteString.ByteString,+ _Permission'rangeEnd :: !Data.ByteString.ByteString,+ _Permission'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f Permission x a, a ~ b) =>+ Lens.Labels.HasLens f Permission Permission x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Permission "permType" (Permission'Type)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Permission'permType+ (\ x__ y__ -> x__{_Permission'permType = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Permission "key"+ (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Permission'key+ (\ x__ y__ -> x__{_Permission'key = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Permission "rangeEnd"+ (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Permission'rangeEnd+ (\ x__ y__ -> x__{_Permission'rangeEnd = y__}))+ Prelude.id+instance Data.Default.Class.Default Permission where+ def+ = Permission{_Permission'permType = Data.Default.Class.def,+ _Permission'key = Data.ProtoLens.fieldDefault,+ _Permission'rangeEnd = Data.ProtoLens.fieldDefault,+ _Permission'_unknownFields = ([])}+instance Data.ProtoLens.Message Permission where+ messageName _ = Data.Text.pack "authpb.Permission"+ fieldsByTag+ = let permType__field_descriptor+ = Data.ProtoLens.FieldDescriptor "permType"+ (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::+ Data.ProtoLens.FieldTypeDescriptor Permission'Type)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "permType")))+ :: Data.ProtoLens.FieldDescriptor Permission+ key__field_descriptor+ = Data.ProtoLens.FieldDescriptor "key"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key")))+ :: Data.ProtoLens.FieldDescriptor Permission+ rangeEnd__field_descriptor+ = Data.ProtoLens.FieldDescriptor "range_end"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rangeEnd")))+ :: Data.ProtoLens.FieldDescriptor Permission+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, permType__field_descriptor),+ (Data.ProtoLens.Tag 2, key__field_descriptor),+ (Data.ProtoLens.Tag 3, rangeEnd__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _Permission'_unknownFields+ (\ x__ y__ -> x__{_Permission'_unknownFields = y__})+data Permission'Type = Permission'READ+ | Permission'WRITE+ | Permission'READWRITE+ | Permission'Type'Unrecognized !Permission'Type'UnrecognizedValue+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+newtype Permission'Type'UnrecognizedValue = Permission'Type'UnrecognizedValue Data.Int.Int32+ deriving (Prelude.Eq, Prelude.Ord, Prelude.Show)+instance Data.ProtoLens.MessageEnum Permission'Type where+ maybeToEnum 0 = Prelude.Just Permission'READ+ maybeToEnum 1 = Prelude.Just Permission'WRITE+ maybeToEnum 2 = Prelude.Just Permission'READWRITE+ maybeToEnum k+ = Prelude.Just+ (Permission'Type'Unrecognized+ (Permission'Type'UnrecognizedValue (Prelude.fromIntegral k)))+ showEnum Permission'READ = "READ"+ showEnum Permission'WRITE = "WRITE"+ showEnum Permission'READWRITE = "READWRITE"+ showEnum+ (Permission'Type'Unrecognized+ (Permission'Type'UnrecognizedValue k))+ = Prelude.show k+ readEnum "READ" = Prelude.Just Permission'READ+ readEnum "WRITE" = Prelude.Just Permission'WRITE+ readEnum "READWRITE" = Prelude.Just Permission'READWRITE+ readEnum k+ = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum+instance Prelude.Bounded Permission'Type where+ minBound = Permission'READ+ maxBound = Permission'READWRITE+instance Prelude.Enum Permission'Type where+ toEnum k__+ = Prelude.maybe+ (Prelude.error+ ((Prelude.++) "toEnum: unknown value for enum Type: "+ (Prelude.show k__)))+ Prelude.id+ (Data.ProtoLens.maybeToEnum k__)+ fromEnum Permission'READ = 0+ fromEnum Permission'WRITE = 1+ fromEnum Permission'READWRITE = 2+ fromEnum+ (Permission'Type'Unrecognized+ (Permission'Type'UnrecognizedValue k))+ = Prelude.fromIntegral k+ succ Permission'READWRITE+ = Prelude.error+ "Permission'Type.succ: bad argument Permission'READWRITE. This value would be out of bounds."+ succ Permission'READ = Permission'WRITE+ succ Permission'WRITE = Permission'READWRITE+ succ _+ = Prelude.error+ "Permission'Type.succ: bad argument: unrecognized value"+ pred Permission'READ+ = Prelude.error+ "Permission'Type.pred: bad argument Permission'READ. This value would be out of bounds."+ pred Permission'WRITE = Permission'READ+ pred Permission'READWRITE = Permission'WRITE+ pred _+ = Prelude.error+ "Permission'Type.pred: bad argument: unrecognized value"+ enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom+ enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo+ enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen+ enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo+instance Data.Default.Class.Default Permission'Type where+ def = Permission'READ+instance Data.ProtoLens.FieldDefault Permission'Type where+ fieldDefault = Permission'READ+{- | Fields :++ * 'Proto.Etcd.Auth.Authpb.Auth_Fields.name' @:: Lens' Role Data.ByteString.ByteString@+ * 'Proto.Etcd.Auth.Authpb.Auth_Fields.keyPermission' @:: Lens' Role [Permission]@+ -}+data Role = Role{_Role'name :: !Data.ByteString.ByteString,+ _Role'keyPermission :: ![Permission],+ _Role'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f Role x a, a ~ b) =>+ Lens.Labels.HasLens f Role Role x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Role "name" (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Role'name+ (\ x__ y__ -> x__{_Role'name = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Role "keyPermission" ([Permission])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Role'keyPermission+ (\ x__ y__ -> x__{_Role'keyPermission = y__}))+ Prelude.id+instance Data.Default.Class.Default Role where+ def+ = Role{_Role'name = Data.ProtoLens.fieldDefault,+ _Role'keyPermission = [], _Role'_unknownFields = ([])}+instance Data.ProtoLens.Message Role where+ messageName _ = Data.Text.pack "authpb.Role"+ fieldsByTag+ = let name__field_descriptor+ = Data.ProtoLens.FieldDescriptor "name"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name")))+ :: Data.ProtoLens.FieldDescriptor Role+ keyPermission__field_descriptor+ = Data.ProtoLens.FieldDescriptor "keyPermission"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Permission)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "keyPermission")))+ :: Data.ProtoLens.FieldDescriptor Role+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, name__field_descriptor),+ (Data.ProtoLens.Tag 2, keyPermission__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _Role'_unknownFields+ (\ x__ y__ -> x__{_Role'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Auth.Authpb.Auth_Fields.name' @:: Lens' User Data.ByteString.ByteString@+ * 'Proto.Etcd.Auth.Authpb.Auth_Fields.password' @:: Lens' User Data.ByteString.ByteString@+ * 'Proto.Etcd.Auth.Authpb.Auth_Fields.roles' @:: Lens' User [Data.Text.Text]@+ -}+data User = User{_User'name :: !Data.ByteString.ByteString,+ _User'password :: !Data.ByteString.ByteString,+ _User'roles :: ![Data.Text.Text],+ _User'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f User x a, a ~ b) =>+ Lens.Labels.HasLens f User User x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f User "name" (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _User'name+ (\ x__ y__ -> x__{_User'name = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f User "password" (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _User'password+ (\ x__ y__ -> x__{_User'password = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f User "roles" ([Data.Text.Text])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _User'roles+ (\ x__ y__ -> x__{_User'roles = y__}))+ Prelude.id+instance Data.Default.Class.Default User where+ def+ = User{_User'name = Data.ProtoLens.fieldDefault,+ _User'password = Data.ProtoLens.fieldDefault, _User'roles = [],+ _User'_unknownFields = ([])}+instance Data.ProtoLens.Message User where+ messageName _ = Data.Text.pack "authpb.User"+ fieldsByTag+ = let name__field_descriptor+ = Data.ProtoLens.FieldDescriptor "name"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name")))+ :: Data.ProtoLens.FieldDescriptor User+ password__field_descriptor+ = Data.ProtoLens.FieldDescriptor "password"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "password")))+ :: Data.ProtoLens.FieldDescriptor User+ roles__field_descriptor+ = Data.ProtoLens.FieldDescriptor "roles"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "roles")))+ :: Data.ProtoLens.FieldDescriptor User+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, name__field_descriptor),+ (Data.ProtoLens.Tag 2, password__field_descriptor),+ (Data.ProtoLens.Tag 3, roles__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _User'_unknownFields+ (\ x__ y__ -> x__{_User'_unknownFields = y__})
+ gen/Proto/Etcd/Auth/Authpb/Auth_Fields.hs view
@@ -0,0 +1,78 @@+{- This file was auto-generated from etcd/auth/authpb/auth.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+ UndecidableInstances, GeneralizedNewtypeDeriving,+ MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,+ PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}+module Proto.Etcd.Auth.Authpb.Auth_Fields where+import qualified Data.ProtoLens.Reexport.Prelude as Prelude+import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int+import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word+import qualified Data.ProtoLens.Reexport.Data.ProtoLens+ as Data.ProtoLens+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum+ as Data.ProtoLens.Message.Enum+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types+ as Data.ProtoLens.Service.Types+import qualified Data.ProtoLens.Reexport.Lens.Family2+ as Lens.Family2+import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked+ as Lens.Family2.Unchecked+import qualified Data.ProtoLens.Reexport.Data.Default.Class+ as Data.Default.Class+import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text+import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map+import qualified Data.ProtoLens.Reexport.Data.ByteString+ as Data.ByteString+import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8+ as Data.ByteString.Char8+import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels+import qualified Data.ProtoLens.Reexport.Text.Read as Text.Read+import qualified Proto.Gogoproto.Gogo++key ::+ forall f s t a b . (Lens.Labels.HasLens f s t "key" a b) =>+ Lens.Family2.LensLike f s t a b+key+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key")+keyPermission ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "keyPermission" a b) =>+ Lens.Family2.LensLike f s t a b+keyPermission+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "keyPermission")+name ::+ forall f s t a b . (Lens.Labels.HasLens f s t "name" a b) =>+ Lens.Family2.LensLike f s t a b+name+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name")+password ::+ forall f s t a b . (Lens.Labels.HasLens f s t "password" a b) =>+ Lens.Family2.LensLike f s t a b+password+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "password")+permType ::+ forall f s t a b . (Lens.Labels.HasLens f s t "permType" a b) =>+ Lens.Family2.LensLike f s t a b+permType+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "permType")+rangeEnd ::+ forall f s t a b . (Lens.Labels.HasLens f s t "rangeEnd" a b) =>+ Lens.Family2.LensLike f s t a b+rangeEnd+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rangeEnd")+roles ::+ forall f s t a b . (Lens.Labels.HasLens f s t "roles" a b) =>+ Lens.Family2.LensLike f s t a b+roles+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "roles")
+ gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc.hs view
@@ -0,0 +1,8014 @@+{- This file was auto-generated from etcd/etcdserver/etcdserverpb/rpc.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+ UndecidableInstances, GeneralizedNewtypeDeriving,+ MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,+ PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}+module Proto.Etcd.Etcdserver.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(..), 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(..), HashKVRequest(..), HashKVResponse(..),+ HashRequest(..), HashResponse(..), LeaseCheckpoint(..),+ LeaseCheckpointRequest(..), LeaseCheckpointResponse(..),+ LeaseGrantRequest(..), LeaseGrantResponse(..),+ LeaseKeepAliveRequest(..), LeaseKeepAliveResponse(..),+ LeaseLeasesRequest(..), LeaseLeasesResponse(..),+ LeaseRevokeRequest(..), LeaseRevokeResponse(..), LeaseStatus(..),+ LeaseTimeToLiveRequest(..), LeaseTimeToLiveResponse(..),+ Member(..), MemberAddRequest(..), MemberAddResponse(..),+ MemberListRequest(..), MemberListResponse(..),+ 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.Reexport.Lens.Labels.Prism+ as Lens.Labels.Prism+import qualified Data.ProtoLens.Reexport.Prelude as Prelude+import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int+import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word+import qualified Data.ProtoLens.Reexport.Data.ProtoLens+ as Data.ProtoLens+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum+ as Data.ProtoLens.Message.Enum+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types+ as Data.ProtoLens.Service.Types+import qualified Data.ProtoLens.Reexport.Lens.Family2+ as Lens.Family2+import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked+ as Lens.Family2.Unchecked+import qualified Data.ProtoLens.Reexport.Data.Default.Class+ as Data.Default.Class+import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text+import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map+import qualified Data.ProtoLens.Reexport.Data.ByteString+ as Data.ByteString+import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8+ as Data.ByteString.Char8+import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels+import qualified Data.ProtoLens.Reexport.Text.Read as Text.Read+import qualified Proto.Etcd.Auth.Authpb.Auth+import qualified Proto.Etcd.Mvcc.Mvccpb.Kv+import qualified Proto.Gogoproto.Gogo+import qualified Proto.Google.Api.Annotations++{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.memberID' @:: Lens' AlarmMember Data.Word.Word64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.alarm' @:: Lens' AlarmMember AlarmType@+ -}+data AlarmMember = AlarmMember{_AlarmMember'memberID ::+ !Data.Word.Word64,+ _AlarmMember'alarm :: !AlarmType,+ _AlarmMember'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AlarmMember x a, a ~ b) =>+ Lens.Labels.HasLens f AlarmMember AlarmMember x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AlarmMember "memberID" (Data.Word.Word64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AlarmMember'memberID+ (\ x__ y__ -> x__{_AlarmMember'memberID = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AlarmMember "alarm" (AlarmType)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AlarmMember'alarm+ (\ x__ y__ -> x__{_AlarmMember'alarm = y__}))+ Prelude.id+instance Data.Default.Class.Default AlarmMember where+ def+ = AlarmMember{_AlarmMember'memberID = Data.ProtoLens.fieldDefault,+ _AlarmMember'alarm = Data.Default.Class.def,+ _AlarmMember'_unknownFields = ([])}+instance Data.ProtoLens.Message AlarmMember where+ messageName _ = Data.Text.pack "etcdserverpb.AlarmMember"+ fieldsByTag+ = let memberID__field_descriptor+ = Data.ProtoLens.FieldDescriptor "memberID"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "memberID")))+ :: Data.ProtoLens.FieldDescriptor AlarmMember+ alarm__field_descriptor+ = Data.ProtoLens.FieldDescriptor "alarm"+ (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::+ Data.ProtoLens.FieldTypeDescriptor AlarmType)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "alarm")))+ :: Data.ProtoLens.FieldDescriptor AlarmMember+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, memberID__field_descriptor),+ (Data.ProtoLens.Tag 2, alarm__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AlarmMember'_unknownFields+ (\ x__ y__ -> x__{_AlarmMember'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.action' @:: Lens' AlarmRequest AlarmRequest'AlarmAction@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.memberID' @:: Lens' AlarmRequest Data.Word.Word64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.alarm' @:: Lens' AlarmRequest AlarmType@+ -}+data AlarmRequest = AlarmRequest{_AlarmRequest'action ::+ !AlarmRequest'AlarmAction,+ _AlarmRequest'memberID :: !Data.Word.Word64,+ _AlarmRequest'alarm :: !AlarmType,+ _AlarmRequest'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AlarmRequest x a, a ~ b) =>+ Lens.Labels.HasLens f AlarmRequest AlarmRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AlarmRequest "action"+ (AlarmRequest'AlarmAction)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AlarmRequest'action+ (\ x__ y__ -> x__{_AlarmRequest'action = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AlarmRequest "memberID" (Data.Word.Word64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AlarmRequest'memberID+ (\ x__ y__ -> x__{_AlarmRequest'memberID = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AlarmRequest "alarm" (AlarmType)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AlarmRequest'alarm+ (\ x__ y__ -> x__{_AlarmRequest'alarm = y__}))+ Prelude.id+instance Data.Default.Class.Default AlarmRequest where+ def+ = AlarmRequest{_AlarmRequest'action = Data.Default.Class.def,+ _AlarmRequest'memberID = Data.ProtoLens.fieldDefault,+ _AlarmRequest'alarm = Data.Default.Class.def,+ _AlarmRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AlarmRequest where+ messageName _ = Data.Text.pack "etcdserverpb.AlarmRequest"+ fieldsByTag+ = let action__field_descriptor+ = Data.ProtoLens.FieldDescriptor "action"+ (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::+ Data.ProtoLens.FieldTypeDescriptor AlarmRequest'AlarmAction)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "action")))+ :: Data.ProtoLens.FieldDescriptor AlarmRequest+ memberID__field_descriptor+ = Data.ProtoLens.FieldDescriptor "memberID"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "memberID")))+ :: Data.ProtoLens.FieldDescriptor AlarmRequest+ alarm__field_descriptor+ = Data.ProtoLens.FieldDescriptor "alarm"+ (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::+ Data.ProtoLens.FieldTypeDescriptor AlarmType)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "alarm")))+ :: Data.ProtoLens.FieldDescriptor AlarmRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, action__field_descriptor),+ (Data.ProtoLens.Tag 2, memberID__field_descriptor),+ (Data.ProtoLens.Tag 3, alarm__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AlarmRequest'_unknownFields+ (\ x__ y__ -> x__{_AlarmRequest'_unknownFields = y__})+data AlarmRequest'AlarmAction = AlarmRequest'GET+ | AlarmRequest'ACTIVATE+ | AlarmRequest'DEACTIVATE+ | AlarmRequest'AlarmAction'Unrecognized !AlarmRequest'AlarmAction'UnrecognizedValue+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+newtype AlarmRequest'AlarmAction'UnrecognizedValue = AlarmRequest'AlarmAction'UnrecognizedValue Data.Int.Int32+ deriving (Prelude.Eq, Prelude.Ord,+ Prelude.Show)+instance Data.ProtoLens.MessageEnum AlarmRequest'AlarmAction where+ maybeToEnum 0 = Prelude.Just AlarmRequest'GET+ maybeToEnum 1 = Prelude.Just AlarmRequest'ACTIVATE+ maybeToEnum 2 = Prelude.Just AlarmRequest'DEACTIVATE+ maybeToEnum k+ = Prelude.Just+ (AlarmRequest'AlarmAction'Unrecognized+ (AlarmRequest'AlarmAction'UnrecognizedValue+ (Prelude.fromIntegral k)))+ showEnum AlarmRequest'GET = "GET"+ showEnum AlarmRequest'ACTIVATE = "ACTIVATE"+ showEnum AlarmRequest'DEACTIVATE = "DEACTIVATE"+ showEnum+ (AlarmRequest'AlarmAction'Unrecognized+ (AlarmRequest'AlarmAction'UnrecognizedValue k))+ = Prelude.show k+ readEnum "GET" = Prelude.Just AlarmRequest'GET+ readEnum "ACTIVATE" = Prelude.Just AlarmRequest'ACTIVATE+ readEnum "DEACTIVATE" = Prelude.Just AlarmRequest'DEACTIVATE+ readEnum k+ = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum+instance Prelude.Bounded AlarmRequest'AlarmAction where+ minBound = AlarmRequest'GET+ maxBound = AlarmRequest'DEACTIVATE+instance Prelude.Enum AlarmRequest'AlarmAction where+ toEnum k__+ = Prelude.maybe+ (Prelude.error+ ((Prelude.++) "toEnum: unknown value for enum AlarmAction: "+ (Prelude.show k__)))+ Prelude.id+ (Data.ProtoLens.maybeToEnum k__)+ fromEnum AlarmRequest'GET = 0+ fromEnum AlarmRequest'ACTIVATE = 1+ fromEnum AlarmRequest'DEACTIVATE = 2+ fromEnum+ (AlarmRequest'AlarmAction'Unrecognized+ (AlarmRequest'AlarmAction'UnrecognizedValue k))+ = Prelude.fromIntegral k+ succ AlarmRequest'DEACTIVATE+ = Prelude.error+ "AlarmRequest'AlarmAction.succ: bad argument AlarmRequest'DEACTIVATE. This value would be out of bounds."+ succ AlarmRequest'GET = AlarmRequest'ACTIVATE+ succ AlarmRequest'ACTIVATE = AlarmRequest'DEACTIVATE+ succ _+ = Prelude.error+ "AlarmRequest'AlarmAction.succ: bad argument: unrecognized value"+ pred AlarmRequest'GET+ = Prelude.error+ "AlarmRequest'AlarmAction.pred: bad argument AlarmRequest'GET. This value would be out of bounds."+ pred AlarmRequest'ACTIVATE = AlarmRequest'GET+ pred AlarmRequest'DEACTIVATE = AlarmRequest'ACTIVATE+ pred _+ = Prelude.error+ "AlarmRequest'AlarmAction.pred: bad argument: unrecognized value"+ enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom+ enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo+ enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen+ enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo+instance Data.Default.Class.Default AlarmRequest'AlarmAction where+ def = AlarmRequest'GET+instance Data.ProtoLens.FieldDefault AlarmRequest'AlarmAction where+ fieldDefault = AlarmRequest'GET+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AlarmResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AlarmResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.alarms' @:: Lens' AlarmResponse [AlarmMember]@+ -}+data AlarmResponse = AlarmResponse{_AlarmResponse'header ::+ !(Prelude.Maybe ResponseHeader),+ _AlarmResponse'alarms :: ![AlarmMember],+ _AlarmResponse'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AlarmResponse x a, a ~ b) =>+ Lens.Labels.HasLens f AlarmResponse AlarmResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AlarmResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AlarmResponse'header+ (\ x__ y__ -> x__{_AlarmResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AlarmResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AlarmResponse'header+ (\ x__ y__ -> x__{_AlarmResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AlarmResponse "alarms" ([AlarmMember])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AlarmResponse'alarms+ (\ x__ y__ -> x__{_AlarmResponse'alarms = y__}))+ Prelude.id+instance Data.Default.Class.Default AlarmResponse where+ def+ = AlarmResponse{_AlarmResponse'header = Prelude.Nothing,+ _AlarmResponse'alarms = [], _AlarmResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AlarmResponse where+ messageName _ = Data.Text.pack "etcdserverpb.AlarmResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AlarmResponse+ alarms__field_descriptor+ = Data.ProtoLens.FieldDescriptor "alarms"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor AlarmMember)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "alarms")))+ :: Data.ProtoLens.FieldDescriptor AlarmResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, alarms__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AlarmResponse'_unknownFields+ (\ x__ y__ -> x__{_AlarmResponse'_unknownFields = y__})+data AlarmType = NONE+ | NOSPACE+ | CORRUPT+ | AlarmType'Unrecognized !AlarmType'UnrecognizedValue+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+newtype AlarmType'UnrecognizedValue = AlarmType'UnrecognizedValue Data.Int.Int32+ deriving (Prelude.Eq, Prelude.Ord, Prelude.Show)+instance Data.ProtoLens.MessageEnum AlarmType where+ maybeToEnum 0 = Prelude.Just NONE+ maybeToEnum 1 = Prelude.Just NOSPACE+ maybeToEnum 2 = Prelude.Just CORRUPT+ maybeToEnum k+ = Prelude.Just+ (AlarmType'Unrecognized+ (AlarmType'UnrecognizedValue (Prelude.fromIntegral k)))+ showEnum NONE = "NONE"+ showEnum NOSPACE = "NOSPACE"+ showEnum CORRUPT = "CORRUPT"+ showEnum (AlarmType'Unrecognized (AlarmType'UnrecognizedValue k))+ = Prelude.show k+ readEnum "NONE" = Prelude.Just NONE+ readEnum "NOSPACE" = Prelude.Just NOSPACE+ readEnum "CORRUPT" = Prelude.Just CORRUPT+ readEnum k+ = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum+instance Prelude.Bounded AlarmType where+ minBound = NONE+ maxBound = CORRUPT+instance Prelude.Enum AlarmType where+ toEnum k__+ = Prelude.maybe+ (Prelude.error+ ((Prelude.++) "toEnum: unknown value for enum AlarmType: "+ (Prelude.show k__)))+ Prelude.id+ (Data.ProtoLens.maybeToEnum k__)+ fromEnum NONE = 0+ fromEnum NOSPACE = 1+ fromEnum CORRUPT = 2+ fromEnum (AlarmType'Unrecognized (AlarmType'UnrecognizedValue k))+ = Prelude.fromIntegral k+ succ CORRUPT+ = Prelude.error+ "AlarmType.succ: bad argument CORRUPT. This value would be out of bounds."+ succ NONE = NOSPACE+ succ NOSPACE = CORRUPT+ succ _+ = Prelude.error "AlarmType.succ: bad argument: unrecognized value"+ pred NONE+ = Prelude.error+ "AlarmType.pred: bad argument NONE. This value would be out of bounds."+ pred NOSPACE = NONE+ pred CORRUPT = NOSPACE+ pred _+ = Prelude.error "AlarmType.pred: bad argument: unrecognized value"+ enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom+ enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo+ enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen+ enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo+instance Data.Default.Class.Default AlarmType where+ def = NONE+instance Data.ProtoLens.FieldDefault AlarmType where+ fieldDefault = NONE+{- | Fields :++ -}+data AuthDisableRequest = AuthDisableRequest{_AuthDisableRequest'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthDisableRequest x a, a ~ b) =>+ Lens.Labels.HasLens f AuthDisableRequest AuthDisableRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Data.Default.Class.Default AuthDisableRequest where+ def = AuthDisableRequest{_AuthDisableRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthDisableRequest where+ messageName _ = Data.Text.pack "etcdserverpb.AuthDisableRequest"+ fieldsByTag = let in Data.Map.fromList []+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthDisableRequest'_unknownFields+ (\ x__ y__ -> x__{_AuthDisableRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthDisableResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthDisableResponse (Prelude.Maybe ResponseHeader)@+ -}+data AuthDisableResponse = AuthDisableResponse{_AuthDisableResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _AuthDisableResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthDisableResponse x a, a ~ b) =>+ Lens.Labels.HasLens f AuthDisableResponse AuthDisableResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthDisableResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthDisableResponse'header+ (\ x__ y__ -> x__{_AuthDisableResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthDisableResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthDisableResponse'header+ (\ x__ y__ -> x__{_AuthDisableResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthDisableResponse where+ def+ = AuthDisableResponse{_AuthDisableResponse'header =+ Prelude.Nothing,+ _AuthDisableResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthDisableResponse where+ messageName _ = Data.Text.pack "etcdserverpb.AuthDisableResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthDisableResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthDisableResponse'_unknownFields+ (\ x__ y__ -> x__{_AuthDisableResponse'_unknownFields = y__})+{- | Fields :++ -}+data AuthEnableRequest = AuthEnableRequest{_AuthEnableRequest'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthEnableRequest x a, a ~ b) =>+ Lens.Labels.HasLens f AuthEnableRequest AuthEnableRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Data.Default.Class.Default AuthEnableRequest where+ def = AuthEnableRequest{_AuthEnableRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthEnableRequest where+ messageName _ = Data.Text.pack "etcdserverpb.AuthEnableRequest"+ fieldsByTag = let in Data.Map.fromList []+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthEnableRequest'_unknownFields+ (\ x__ y__ -> x__{_AuthEnableRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthEnableResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthEnableResponse (Prelude.Maybe ResponseHeader)@+ -}+data AuthEnableResponse = AuthEnableResponse{_AuthEnableResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _AuthEnableResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthEnableResponse x a, a ~ b) =>+ Lens.Labels.HasLens f AuthEnableResponse AuthEnableResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthEnableResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthEnableResponse'header+ (\ x__ y__ -> x__{_AuthEnableResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthEnableResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthEnableResponse'header+ (\ x__ y__ -> x__{_AuthEnableResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthEnableResponse where+ def+ = AuthEnableResponse{_AuthEnableResponse'header = Prelude.Nothing,+ _AuthEnableResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthEnableResponse where+ messageName _ = Data.Text.pack "etcdserverpb.AuthEnableResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthEnableResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthEnableResponse'_unknownFields+ (\ x__ y__ -> x__{_AuthEnableResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthRoleAddRequest Data.Text.Text@+ -}+data AuthRoleAddRequest = AuthRoleAddRequest{_AuthRoleAddRequest'name+ :: !Data.Text.Text,+ _AuthRoleAddRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthRoleAddRequest x a, a ~ b) =>+ Lens.Labels.HasLens f AuthRoleAddRequest AuthRoleAddRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleAddRequest "name" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleAddRequest'name+ (\ x__ y__ -> x__{_AuthRoleAddRequest'name = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthRoleAddRequest where+ def+ = AuthRoleAddRequest{_AuthRoleAddRequest'name =+ Data.ProtoLens.fieldDefault,+ _AuthRoleAddRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthRoleAddRequest where+ messageName _ = Data.Text.pack "etcdserverpb.AuthRoleAddRequest"+ fieldsByTag+ = let name__field_descriptor+ = Data.ProtoLens.FieldDescriptor "name"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleAddRequest+ in+ Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthRoleAddRequest'_unknownFields+ (\ x__ y__ -> x__{_AuthRoleAddRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthRoleAddResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthRoleAddResponse (Prelude.Maybe ResponseHeader)@+ -}+data AuthRoleAddResponse = AuthRoleAddResponse{_AuthRoleAddResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _AuthRoleAddResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthRoleAddResponse x a, a ~ b) =>+ Lens.Labels.HasLens f AuthRoleAddResponse AuthRoleAddResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleAddResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleAddResponse'header+ (\ x__ y__ -> x__{_AuthRoleAddResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleAddResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleAddResponse'header+ (\ x__ y__ -> x__{_AuthRoleAddResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthRoleAddResponse where+ def+ = AuthRoleAddResponse{_AuthRoleAddResponse'header =+ Prelude.Nothing,+ _AuthRoleAddResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthRoleAddResponse where+ messageName _ = Data.Text.pack "etcdserverpb.AuthRoleAddResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleAddResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthRoleAddResponse'_unknownFields+ (\ x__ y__ -> x__{_AuthRoleAddResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.role' @:: Lens' AuthRoleDeleteRequest Data.Text.Text@+ -}+data AuthRoleDeleteRequest = AuthRoleDeleteRequest{_AuthRoleDeleteRequest'role+ :: !Data.Text.Text,+ _AuthRoleDeleteRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthRoleDeleteRequest x a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthRoleDeleteRequest AuthRoleDeleteRequest x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleDeleteRequest "role"+ (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleDeleteRequest'role+ (\ x__ y__ -> x__{_AuthRoleDeleteRequest'role = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthRoleDeleteRequest where+ def+ = AuthRoleDeleteRequest{_AuthRoleDeleteRequest'role =+ Data.ProtoLens.fieldDefault,+ _AuthRoleDeleteRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthRoleDeleteRequest where+ messageName _ = Data.Text.pack "etcdserverpb.AuthRoleDeleteRequest"+ fieldsByTag+ = let role__field_descriptor+ = Data.ProtoLens.FieldDescriptor "role"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "role")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleDeleteRequest+ in+ Data.Map.fromList [(Data.ProtoLens.Tag 1, role__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthRoleDeleteRequest'_unknownFields+ (\ x__ y__ -> x__{_AuthRoleDeleteRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthRoleDeleteResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthRoleDeleteResponse (Prelude.Maybe ResponseHeader)@+ -}+data AuthRoleDeleteResponse = AuthRoleDeleteResponse{_AuthRoleDeleteResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _AuthRoleDeleteResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthRoleDeleteResponse x a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthRoleDeleteResponse AuthRoleDeleteResponse+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleDeleteResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleDeleteResponse'header+ (\ x__ y__ -> x__{_AuthRoleDeleteResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleDeleteResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleDeleteResponse'header+ (\ x__ y__ -> x__{_AuthRoleDeleteResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthRoleDeleteResponse where+ def+ = AuthRoleDeleteResponse{_AuthRoleDeleteResponse'header =+ Prelude.Nothing,+ _AuthRoleDeleteResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthRoleDeleteResponse where+ messageName _+ = Data.Text.pack "etcdserverpb.AuthRoleDeleteResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleDeleteResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _AuthRoleDeleteResponse'_unknownFields+ (\ x__ y__ -> x__{_AuthRoleDeleteResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.role' @:: Lens' AuthRoleGetRequest Data.Text.Text@+ -}+data AuthRoleGetRequest = AuthRoleGetRequest{_AuthRoleGetRequest'role+ :: !Data.Text.Text,+ _AuthRoleGetRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthRoleGetRequest x a, a ~ b) =>+ Lens.Labels.HasLens f AuthRoleGetRequest AuthRoleGetRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleGetRequest "role" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleGetRequest'role+ (\ x__ y__ -> x__{_AuthRoleGetRequest'role = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthRoleGetRequest where+ def+ = AuthRoleGetRequest{_AuthRoleGetRequest'role =+ Data.ProtoLens.fieldDefault,+ _AuthRoleGetRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthRoleGetRequest where+ messageName _ = Data.Text.pack "etcdserverpb.AuthRoleGetRequest"+ fieldsByTag+ = let role__field_descriptor+ = Data.ProtoLens.FieldDescriptor "role"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "role")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleGetRequest+ in+ Data.Map.fromList [(Data.ProtoLens.Tag 1, role__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthRoleGetRequest'_unknownFields+ (\ x__ y__ -> x__{_AuthRoleGetRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthRoleGetResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthRoleGetResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.perm' @:: Lens' AuthRoleGetResponse [Proto.Etcd.Auth.Authpb.Auth.Permission]@+ -}+data AuthRoleGetResponse = AuthRoleGetResponse{_AuthRoleGetResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _AuthRoleGetResponse'perm ::+ ![Proto.Etcd.Auth.Authpb.Auth.Permission],+ _AuthRoleGetResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthRoleGetResponse x a, a ~ b) =>+ Lens.Labels.HasLens f AuthRoleGetResponse AuthRoleGetResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleGetResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleGetResponse'header+ (\ x__ y__ -> x__{_AuthRoleGetResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleGetResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleGetResponse'header+ (\ x__ y__ -> x__{_AuthRoleGetResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleGetResponse "perm"+ ([Proto.Etcd.Auth.Authpb.Auth.Permission])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleGetResponse'perm+ (\ x__ y__ -> x__{_AuthRoleGetResponse'perm = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthRoleGetResponse where+ def+ = AuthRoleGetResponse{_AuthRoleGetResponse'header =+ Prelude.Nothing,+ _AuthRoleGetResponse'perm = [],+ _AuthRoleGetResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthRoleGetResponse where+ messageName _ = Data.Text.pack "etcdserverpb.AuthRoleGetResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleGetResponse+ perm__field_descriptor+ = Data.ProtoLens.FieldDescriptor "perm"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor+ Proto.Etcd.Auth.Authpb.Auth.Permission)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "perm")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleGetResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, perm__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthRoleGetResponse'_unknownFields+ (\ x__ y__ -> x__{_AuthRoleGetResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthRoleGrantPermissionRequest Data.Text.Text@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.perm' @:: Lens' AuthRoleGrantPermissionRequest+ Proto.Etcd.Auth.Authpb.Auth.Permission@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'perm' @:: Lens' AuthRoleGrantPermissionRequest+ (Prelude.Maybe Proto.Etcd.Auth.Authpb.Auth.Permission)@+ -}+data AuthRoleGrantPermissionRequest = AuthRoleGrantPermissionRequest{_AuthRoleGrantPermissionRequest'name+ :: !Data.Text.Text,+ _AuthRoleGrantPermissionRequest'perm+ ::+ !(Prelude.Maybe+ Proto.Etcd.Auth.Authpb.Auth.Permission),+ _AuthRoleGrantPermissionRequest'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthRoleGrantPermissionRequest x+ a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthRoleGrantPermissionRequest+ AuthRoleGrantPermissionRequest+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleGrantPermissionRequest "name"+ (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleGrantPermissionRequest'name+ (\ x__ y__ -> x__{_AuthRoleGrantPermissionRequest'name = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleGrantPermissionRequest "perm"+ (Proto.Etcd.Auth.Authpb.Auth.Permission)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleGrantPermissionRequest'perm+ (\ x__ y__ -> x__{_AuthRoleGrantPermissionRequest'perm = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleGrantPermissionRequest "maybe'perm"+ (Prelude.Maybe Proto.Etcd.Auth.Authpb.Auth.Permission)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleGrantPermissionRequest'perm+ (\ x__ y__ -> x__{_AuthRoleGrantPermissionRequest'perm = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthRoleGrantPermissionRequest+ where+ def+ = AuthRoleGrantPermissionRequest{_AuthRoleGrantPermissionRequest'name+ = Data.ProtoLens.fieldDefault,+ _AuthRoleGrantPermissionRequest'perm = Prelude.Nothing,+ _AuthRoleGrantPermissionRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthRoleGrantPermissionRequest+ where+ messageName _+ = Data.Text.pack "etcdserverpb.AuthRoleGrantPermissionRequest"+ fieldsByTag+ = let name__field_descriptor+ = Data.ProtoLens.FieldDescriptor "name"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleGrantPermissionRequest+ perm__field_descriptor+ = Data.ProtoLens.FieldDescriptor "perm"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor+ Proto.Etcd.Auth.Authpb.Auth.Permission)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'perm")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleGrantPermissionRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, name__field_descriptor),+ (Data.ProtoLens.Tag 2, perm__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _AuthRoleGrantPermissionRequest'_unknownFields+ (\ x__ y__ ->+ x__{_AuthRoleGrantPermissionRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthRoleGrantPermissionResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthRoleGrantPermissionResponse+ (Prelude.Maybe ResponseHeader)@+ -}+data AuthRoleGrantPermissionResponse = AuthRoleGrantPermissionResponse{_AuthRoleGrantPermissionResponse'header+ ::+ !(Prelude.Maybe+ ResponseHeader),+ _AuthRoleGrantPermissionResponse'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthRoleGrantPermissionResponse x+ a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthRoleGrantPermissionResponse+ AuthRoleGrantPermissionResponse+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleGrantPermissionResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _AuthRoleGrantPermissionResponse'header+ (\ x__ y__ -> x__{_AuthRoleGrantPermissionResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleGrantPermissionResponse+ "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _AuthRoleGrantPermissionResponse'header+ (\ x__ y__ -> x__{_AuthRoleGrantPermissionResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthRoleGrantPermissionResponse+ where+ def+ = AuthRoleGrantPermissionResponse{_AuthRoleGrantPermissionResponse'header+ = Prelude.Nothing,+ _AuthRoleGrantPermissionResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthRoleGrantPermissionResponse+ where+ messageName _+ = Data.Text.pack "etcdserverpb.AuthRoleGrantPermissionResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleGrantPermissionResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _AuthRoleGrantPermissionResponse'_unknownFields+ (\ x__ y__ ->+ x__{_AuthRoleGrantPermissionResponse'_unknownFields = y__})+{- | Fields :++ -}+data AuthRoleListRequest = AuthRoleListRequest{_AuthRoleListRequest'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthRoleListRequest x a, a ~ b) =>+ Lens.Labels.HasLens f AuthRoleListRequest AuthRoleListRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Data.Default.Class.Default AuthRoleListRequest where+ def+ = AuthRoleListRequest{_AuthRoleListRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthRoleListRequest where+ messageName _ = Data.Text.pack "etcdserverpb.AuthRoleListRequest"+ fieldsByTag = let in Data.Map.fromList []+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthRoleListRequest'_unknownFields+ (\ x__ y__ -> x__{_AuthRoleListRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthRoleListResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthRoleListResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.roles' @:: Lens' AuthRoleListResponse [Data.Text.Text]@+ -}+data AuthRoleListResponse = AuthRoleListResponse{_AuthRoleListResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _AuthRoleListResponse'roles :: ![Data.Text.Text],+ _AuthRoleListResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthRoleListResponse x a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthRoleListResponse AuthRoleListResponse x a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleListResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleListResponse'header+ (\ x__ y__ -> x__{_AuthRoleListResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleListResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleListResponse'header+ (\ x__ y__ -> x__{_AuthRoleListResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleListResponse "roles"+ ([Data.Text.Text])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleListResponse'roles+ (\ x__ y__ -> x__{_AuthRoleListResponse'roles = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthRoleListResponse where+ def+ = AuthRoleListResponse{_AuthRoleListResponse'header =+ Prelude.Nothing,+ _AuthRoleListResponse'roles = [],+ _AuthRoleListResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthRoleListResponse where+ messageName _ = Data.Text.pack "etcdserverpb.AuthRoleListResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleListResponse+ roles__field_descriptor+ = Data.ProtoLens.FieldDescriptor "roles"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "roles")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleListResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, roles__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthRoleListResponse'_unknownFields+ (\ x__ y__ -> x__{_AuthRoleListResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.role' @:: Lens' AuthRoleRevokePermissionRequest Data.Text.Text@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.key' @:: Lens' AuthRoleRevokePermissionRequest Data.ByteString.ByteString@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.rangeEnd' @:: Lens' AuthRoleRevokePermissionRequest Data.ByteString.ByteString@+ -}+data AuthRoleRevokePermissionRequest = AuthRoleRevokePermissionRequest{_AuthRoleRevokePermissionRequest'role+ :: !Data.Text.Text,+ _AuthRoleRevokePermissionRequest'key+ ::+ !Data.ByteString.ByteString,+ _AuthRoleRevokePermissionRequest'rangeEnd+ ::+ !Data.ByteString.ByteString,+ _AuthRoleRevokePermissionRequest'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthRoleRevokePermissionRequest x+ a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthRoleRevokePermissionRequest+ AuthRoleRevokePermissionRequest+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleRevokePermissionRequest "role"+ (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleRevokePermissionRequest'role+ (\ x__ y__ -> x__{_AuthRoleRevokePermissionRequest'role = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleRevokePermissionRequest "key"+ (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthRoleRevokePermissionRequest'key+ (\ x__ y__ -> x__{_AuthRoleRevokePermissionRequest'key = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleRevokePermissionRequest "rangeEnd"+ (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _AuthRoleRevokePermissionRequest'rangeEnd+ (\ x__ y__ ->+ x__{_AuthRoleRevokePermissionRequest'rangeEnd = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthRoleRevokePermissionRequest+ where+ def+ = AuthRoleRevokePermissionRequest{_AuthRoleRevokePermissionRequest'role+ = Data.ProtoLens.fieldDefault,+ _AuthRoleRevokePermissionRequest'key =+ Data.ProtoLens.fieldDefault,+ _AuthRoleRevokePermissionRequest'rangeEnd =+ Data.ProtoLens.fieldDefault,+ _AuthRoleRevokePermissionRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthRoleRevokePermissionRequest+ where+ messageName _+ = Data.Text.pack "etcdserverpb.AuthRoleRevokePermissionRequest"+ fieldsByTag+ = let role__field_descriptor+ = Data.ProtoLens.FieldDescriptor "role"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "role")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleRevokePermissionRequest+ key__field_descriptor+ = Data.ProtoLens.FieldDescriptor "key"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleRevokePermissionRequest+ rangeEnd__field_descriptor+ = Data.ProtoLens.FieldDescriptor "range_end"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rangeEnd")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleRevokePermissionRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, role__field_descriptor),+ (Data.ProtoLens.Tag 2, key__field_descriptor),+ (Data.ProtoLens.Tag 3, rangeEnd__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _AuthRoleRevokePermissionRequest'_unknownFields+ (\ x__ y__ ->+ x__{_AuthRoleRevokePermissionRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthRoleRevokePermissionResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthRoleRevokePermissionResponse+ (Prelude.Maybe ResponseHeader)@+ -}+data AuthRoleRevokePermissionResponse = AuthRoleRevokePermissionResponse{_AuthRoleRevokePermissionResponse'header+ ::+ !(Prelude.Maybe+ ResponseHeader),+ _AuthRoleRevokePermissionResponse'_unknownFields+ ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthRoleRevokePermissionResponse x+ a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthRoleRevokePermissionResponse+ AuthRoleRevokePermissionResponse+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleRevokePermissionResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _AuthRoleRevokePermissionResponse'header+ (\ x__ y__ -> x__{_AuthRoleRevokePermissionResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthRoleRevokePermissionResponse+ "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _AuthRoleRevokePermissionResponse'header+ (\ x__ y__ -> x__{_AuthRoleRevokePermissionResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default+ AuthRoleRevokePermissionResponse+ where+ def+ = AuthRoleRevokePermissionResponse{_AuthRoleRevokePermissionResponse'header+ = Prelude.Nothing,+ _AuthRoleRevokePermissionResponse'_unknownFields =+ ([])}+instance Data.ProtoLens.Message AuthRoleRevokePermissionResponse+ where+ messageName _+ = Data.Text.pack "etcdserverpb.AuthRoleRevokePermissionResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthRoleRevokePermissionResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _AuthRoleRevokePermissionResponse'_unknownFields+ (\ x__ y__ ->+ x__{_AuthRoleRevokePermissionResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthUserAddRequest Data.Text.Text@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.password' @:: Lens' AuthUserAddRequest Data.Text.Text@+ -}+data AuthUserAddRequest = AuthUserAddRequest{_AuthUserAddRequest'name+ :: !Data.Text.Text,+ _AuthUserAddRequest'password :: !Data.Text.Text,+ _AuthUserAddRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthUserAddRequest x a, a ~ b) =>+ Lens.Labels.HasLens f AuthUserAddRequest AuthUserAddRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserAddRequest "name" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserAddRequest'name+ (\ x__ y__ -> x__{_AuthUserAddRequest'name = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserAddRequest "password"+ (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserAddRequest'password+ (\ x__ y__ -> x__{_AuthUserAddRequest'password = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthUserAddRequest where+ def+ = AuthUserAddRequest{_AuthUserAddRequest'name =+ Data.ProtoLens.fieldDefault,+ _AuthUserAddRequest'password = Data.ProtoLens.fieldDefault,+ _AuthUserAddRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthUserAddRequest where+ messageName _ = Data.Text.pack "etcdserverpb.AuthUserAddRequest"+ fieldsByTag+ = let name__field_descriptor+ = Data.ProtoLens.FieldDescriptor "name"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name")))+ :: Data.ProtoLens.FieldDescriptor AuthUserAddRequest+ password__field_descriptor+ = Data.ProtoLens.FieldDescriptor "password"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "password")))+ :: Data.ProtoLens.FieldDescriptor AuthUserAddRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, name__field_descriptor),+ (Data.ProtoLens.Tag 2, password__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthUserAddRequest'_unknownFields+ (\ x__ y__ -> x__{_AuthUserAddRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthUserAddResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthUserAddResponse (Prelude.Maybe ResponseHeader)@+ -}+data AuthUserAddResponse = AuthUserAddResponse{_AuthUserAddResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _AuthUserAddResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthUserAddResponse x a, a ~ b) =>+ Lens.Labels.HasLens f AuthUserAddResponse AuthUserAddResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserAddResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserAddResponse'header+ (\ x__ y__ -> x__{_AuthUserAddResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserAddResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserAddResponse'header+ (\ x__ y__ -> x__{_AuthUserAddResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthUserAddResponse where+ def+ = AuthUserAddResponse{_AuthUserAddResponse'header =+ Prelude.Nothing,+ _AuthUserAddResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthUserAddResponse where+ messageName _ = Data.Text.pack "etcdserverpb.AuthUserAddResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthUserAddResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthUserAddResponse'_unknownFields+ (\ x__ y__ -> x__{_AuthUserAddResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthUserChangePasswordRequest Data.Text.Text@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.password' @:: Lens' AuthUserChangePasswordRequest Data.Text.Text@+ -}+data AuthUserChangePasswordRequest = AuthUserChangePasswordRequest{_AuthUserChangePasswordRequest'name+ :: !Data.Text.Text,+ _AuthUserChangePasswordRequest'password+ :: !Data.Text.Text,+ _AuthUserChangePasswordRequest'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthUserChangePasswordRequest x a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthUserChangePasswordRequest+ AuthUserChangePasswordRequest+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserChangePasswordRequest "name"+ (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserChangePasswordRequest'name+ (\ x__ y__ -> x__{_AuthUserChangePasswordRequest'name = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserChangePasswordRequest "password"+ (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens+ _AuthUserChangePasswordRequest'password+ (\ x__ y__ -> x__{_AuthUserChangePasswordRequest'password = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthUserChangePasswordRequest+ where+ def+ = AuthUserChangePasswordRequest{_AuthUserChangePasswordRequest'name+ = Data.ProtoLens.fieldDefault,+ _AuthUserChangePasswordRequest'password =+ Data.ProtoLens.fieldDefault,+ _AuthUserChangePasswordRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthUserChangePasswordRequest where+ messageName _+ = Data.Text.pack "etcdserverpb.AuthUserChangePasswordRequest"+ fieldsByTag+ = let name__field_descriptor+ = Data.ProtoLens.FieldDescriptor "name"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name")))+ :: Data.ProtoLens.FieldDescriptor AuthUserChangePasswordRequest+ password__field_descriptor+ = Data.ProtoLens.FieldDescriptor "password"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "password")))+ :: Data.ProtoLens.FieldDescriptor AuthUserChangePasswordRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, name__field_descriptor),+ (Data.ProtoLens.Tag 2, password__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _AuthUserChangePasswordRequest'_unknownFields+ (\ x__ y__ ->+ x__{_AuthUserChangePasswordRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthUserChangePasswordResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthUserChangePasswordResponse (Prelude.Maybe ResponseHeader)@+ -}+data AuthUserChangePasswordResponse = AuthUserChangePasswordResponse{_AuthUserChangePasswordResponse'header+ ::+ !(Prelude.Maybe+ ResponseHeader),+ _AuthUserChangePasswordResponse'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthUserChangePasswordResponse x+ a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthUserChangePasswordResponse+ AuthUserChangePasswordResponse+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserChangePasswordResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserChangePasswordResponse'header+ (\ x__ y__ -> x__{_AuthUserChangePasswordResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserChangePasswordResponse+ "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserChangePasswordResponse'header+ (\ x__ y__ -> x__{_AuthUserChangePasswordResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthUserChangePasswordResponse+ where+ def+ = AuthUserChangePasswordResponse{_AuthUserChangePasswordResponse'header+ = Prelude.Nothing,+ _AuthUserChangePasswordResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthUserChangePasswordResponse+ where+ messageName _+ = Data.Text.pack "etcdserverpb.AuthUserChangePasswordResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthUserChangePasswordResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _AuthUserChangePasswordResponse'_unknownFields+ (\ x__ y__ ->+ x__{_AuthUserChangePasswordResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthUserDeleteRequest Data.Text.Text@+ -}+data AuthUserDeleteRequest = AuthUserDeleteRequest{_AuthUserDeleteRequest'name+ :: !Data.Text.Text,+ _AuthUserDeleteRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthUserDeleteRequest x a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthUserDeleteRequest AuthUserDeleteRequest x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserDeleteRequest "name"+ (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserDeleteRequest'name+ (\ x__ y__ -> x__{_AuthUserDeleteRequest'name = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthUserDeleteRequest where+ def+ = AuthUserDeleteRequest{_AuthUserDeleteRequest'name =+ Data.ProtoLens.fieldDefault,+ _AuthUserDeleteRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthUserDeleteRequest where+ messageName _ = Data.Text.pack "etcdserverpb.AuthUserDeleteRequest"+ fieldsByTag+ = let name__field_descriptor+ = Data.ProtoLens.FieldDescriptor "name"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name")))+ :: Data.ProtoLens.FieldDescriptor AuthUserDeleteRequest+ in+ Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthUserDeleteRequest'_unknownFields+ (\ x__ y__ -> x__{_AuthUserDeleteRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthUserDeleteResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthUserDeleteResponse (Prelude.Maybe ResponseHeader)@+ -}+data AuthUserDeleteResponse = AuthUserDeleteResponse{_AuthUserDeleteResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _AuthUserDeleteResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthUserDeleteResponse x a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthUserDeleteResponse AuthUserDeleteResponse+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserDeleteResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserDeleteResponse'header+ (\ x__ y__ -> x__{_AuthUserDeleteResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserDeleteResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserDeleteResponse'header+ (\ x__ y__ -> x__{_AuthUserDeleteResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthUserDeleteResponse where+ def+ = AuthUserDeleteResponse{_AuthUserDeleteResponse'header =+ Prelude.Nothing,+ _AuthUserDeleteResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthUserDeleteResponse where+ messageName _+ = Data.Text.pack "etcdserverpb.AuthUserDeleteResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthUserDeleteResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _AuthUserDeleteResponse'_unknownFields+ (\ x__ y__ -> x__{_AuthUserDeleteResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthUserGetRequest Data.Text.Text@+ -}+data AuthUserGetRequest = AuthUserGetRequest{_AuthUserGetRequest'name+ :: !Data.Text.Text,+ _AuthUserGetRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthUserGetRequest x a, a ~ b) =>+ Lens.Labels.HasLens f AuthUserGetRequest AuthUserGetRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserGetRequest "name" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserGetRequest'name+ (\ x__ y__ -> x__{_AuthUserGetRequest'name = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthUserGetRequest where+ def+ = AuthUserGetRequest{_AuthUserGetRequest'name =+ Data.ProtoLens.fieldDefault,+ _AuthUserGetRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthUserGetRequest where+ messageName _ = Data.Text.pack "etcdserverpb.AuthUserGetRequest"+ fieldsByTag+ = let name__field_descriptor+ = Data.ProtoLens.FieldDescriptor "name"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name")))+ :: Data.ProtoLens.FieldDescriptor AuthUserGetRequest+ in+ Data.Map.fromList [(Data.ProtoLens.Tag 1, name__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthUserGetRequest'_unknownFields+ (\ x__ y__ -> x__{_AuthUserGetRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthUserGetResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthUserGetResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.roles' @:: Lens' AuthUserGetResponse [Data.Text.Text]@+ -}+data AuthUserGetResponse = AuthUserGetResponse{_AuthUserGetResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _AuthUserGetResponse'roles :: ![Data.Text.Text],+ _AuthUserGetResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthUserGetResponse x a, a ~ b) =>+ Lens.Labels.HasLens f AuthUserGetResponse AuthUserGetResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserGetResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserGetResponse'header+ (\ x__ y__ -> x__{_AuthUserGetResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserGetResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserGetResponse'header+ (\ x__ y__ -> x__{_AuthUserGetResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserGetResponse "roles"+ ([Data.Text.Text])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserGetResponse'roles+ (\ x__ y__ -> x__{_AuthUserGetResponse'roles = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthUserGetResponse where+ def+ = AuthUserGetResponse{_AuthUserGetResponse'header =+ Prelude.Nothing,+ _AuthUserGetResponse'roles = [],+ _AuthUserGetResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthUserGetResponse where+ messageName _ = Data.Text.pack "etcdserverpb.AuthUserGetResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthUserGetResponse+ roles__field_descriptor+ = Data.ProtoLens.FieldDescriptor "roles"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "roles")))+ :: Data.ProtoLens.FieldDescriptor AuthUserGetResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, roles__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthUserGetResponse'_unknownFields+ (\ x__ y__ -> x__{_AuthUserGetResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.user' @:: Lens' AuthUserGrantRoleRequest Data.Text.Text@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.role' @:: Lens' AuthUserGrantRoleRequest Data.Text.Text@+ -}+data AuthUserGrantRoleRequest = AuthUserGrantRoleRequest{_AuthUserGrantRoleRequest'user+ :: !Data.Text.Text,+ _AuthUserGrantRoleRequest'role ::+ !Data.Text.Text,+ _AuthUserGrantRoleRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthUserGrantRoleRequest x a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthUserGrantRoleRequest+ AuthUserGrantRoleRequest+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserGrantRoleRequest "user"+ (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserGrantRoleRequest'user+ (\ x__ y__ -> x__{_AuthUserGrantRoleRequest'user = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserGrantRoleRequest "role"+ (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserGrantRoleRequest'role+ (\ x__ y__ -> x__{_AuthUserGrantRoleRequest'role = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthUserGrantRoleRequest where+ def+ = AuthUserGrantRoleRequest{_AuthUserGrantRoleRequest'user =+ Data.ProtoLens.fieldDefault,+ _AuthUserGrantRoleRequest'role = Data.ProtoLens.fieldDefault,+ _AuthUserGrantRoleRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthUserGrantRoleRequest where+ messageName _+ = Data.Text.pack "etcdserverpb.AuthUserGrantRoleRequest"+ fieldsByTag+ = let user__field_descriptor+ = Data.ProtoLens.FieldDescriptor "user"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "user")))+ :: Data.ProtoLens.FieldDescriptor AuthUserGrantRoleRequest+ role__field_descriptor+ = Data.ProtoLens.FieldDescriptor "role"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "role")))+ :: Data.ProtoLens.FieldDescriptor AuthUserGrantRoleRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, user__field_descriptor),+ (Data.ProtoLens.Tag 2, role__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _AuthUserGrantRoleRequest'_unknownFields+ (\ x__ y__ -> x__{_AuthUserGrantRoleRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthUserGrantRoleResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthUserGrantRoleResponse (Prelude.Maybe ResponseHeader)@+ -}+data AuthUserGrantRoleResponse = AuthUserGrantRoleResponse{_AuthUserGrantRoleResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _AuthUserGrantRoleResponse'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthUserGrantRoleResponse x a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthUserGrantRoleResponse+ AuthUserGrantRoleResponse+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserGrantRoleResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserGrantRoleResponse'header+ (\ x__ y__ -> x__{_AuthUserGrantRoleResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserGrantRoleResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserGrantRoleResponse'header+ (\ x__ y__ -> x__{_AuthUserGrantRoleResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthUserGrantRoleResponse where+ def+ = AuthUserGrantRoleResponse{_AuthUserGrantRoleResponse'header =+ Prelude.Nothing,+ _AuthUserGrantRoleResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthUserGrantRoleResponse where+ messageName _+ = Data.Text.pack "etcdserverpb.AuthUserGrantRoleResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthUserGrantRoleResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _AuthUserGrantRoleResponse'_unknownFields+ (\ x__ y__ -> x__{_AuthUserGrantRoleResponse'_unknownFields = y__})+{- | Fields :++ -}+data AuthUserListRequest = AuthUserListRequest{_AuthUserListRequest'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthUserListRequest x a, a ~ b) =>+ Lens.Labels.HasLens f AuthUserListRequest AuthUserListRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Data.Default.Class.Default AuthUserListRequest where+ def+ = AuthUserListRequest{_AuthUserListRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthUserListRequest where+ messageName _ = Data.Text.pack "etcdserverpb.AuthUserListRequest"+ fieldsByTag = let in Data.Map.fromList []+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthUserListRequest'_unknownFields+ (\ x__ y__ -> x__{_AuthUserListRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthUserListResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthUserListResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.users' @:: Lens' AuthUserListResponse [Data.Text.Text]@+ -}+data AuthUserListResponse = AuthUserListResponse{_AuthUserListResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _AuthUserListResponse'users :: ![Data.Text.Text],+ _AuthUserListResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthUserListResponse x a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthUserListResponse AuthUserListResponse x a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserListResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserListResponse'header+ (\ x__ y__ -> x__{_AuthUserListResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserListResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserListResponse'header+ (\ x__ y__ -> x__{_AuthUserListResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserListResponse "users"+ ([Data.Text.Text])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserListResponse'users+ (\ x__ y__ -> x__{_AuthUserListResponse'users = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthUserListResponse where+ def+ = AuthUserListResponse{_AuthUserListResponse'header =+ Prelude.Nothing,+ _AuthUserListResponse'users = [],+ _AuthUserListResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthUserListResponse where+ messageName _ = Data.Text.pack "etcdserverpb.AuthUserListResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthUserListResponse+ users__field_descriptor+ = Data.ProtoLens.FieldDescriptor "users"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "users")))+ :: Data.ProtoLens.FieldDescriptor AuthUserListResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, users__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthUserListResponse'_unknownFields+ (\ x__ y__ -> x__{_AuthUserListResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthUserRevokeRoleRequest Data.Text.Text@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.role' @:: Lens' AuthUserRevokeRoleRequest Data.Text.Text@+ -}+data AuthUserRevokeRoleRequest = AuthUserRevokeRoleRequest{_AuthUserRevokeRoleRequest'name+ :: !Data.Text.Text,+ _AuthUserRevokeRoleRequest'role ::+ !Data.Text.Text,+ _AuthUserRevokeRoleRequest'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthUserRevokeRoleRequest x a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthUserRevokeRoleRequest+ AuthUserRevokeRoleRequest+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserRevokeRoleRequest "name"+ (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserRevokeRoleRequest'name+ (\ x__ y__ -> x__{_AuthUserRevokeRoleRequest'name = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserRevokeRoleRequest "role"+ (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserRevokeRoleRequest'role+ (\ x__ y__ -> x__{_AuthUserRevokeRoleRequest'role = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthUserRevokeRoleRequest where+ def+ = AuthUserRevokeRoleRequest{_AuthUserRevokeRoleRequest'name =+ Data.ProtoLens.fieldDefault,+ _AuthUserRevokeRoleRequest'role = Data.ProtoLens.fieldDefault,+ _AuthUserRevokeRoleRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthUserRevokeRoleRequest where+ messageName _+ = Data.Text.pack "etcdserverpb.AuthUserRevokeRoleRequest"+ fieldsByTag+ = let name__field_descriptor+ = Data.ProtoLens.FieldDescriptor "name"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name")))+ :: Data.ProtoLens.FieldDescriptor AuthUserRevokeRoleRequest+ role__field_descriptor+ = Data.ProtoLens.FieldDescriptor "role"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "role")))+ :: Data.ProtoLens.FieldDescriptor AuthUserRevokeRoleRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, name__field_descriptor),+ (Data.ProtoLens.Tag 2, role__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _AuthUserRevokeRoleRequest'_unknownFields+ (\ x__ y__ -> x__{_AuthUserRevokeRoleRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthUserRevokeRoleResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthUserRevokeRoleResponse (Prelude.Maybe ResponseHeader)@+ -}+data AuthUserRevokeRoleResponse = AuthUserRevokeRoleResponse{_AuthUserRevokeRoleResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _AuthUserRevokeRoleResponse'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthUserRevokeRoleResponse x a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthUserRevokeRoleResponse+ AuthUserRevokeRoleResponse+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserRevokeRoleResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserRevokeRoleResponse'header+ (\ x__ y__ -> x__{_AuthUserRevokeRoleResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthUserRevokeRoleResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthUserRevokeRoleResponse'header+ (\ x__ y__ -> x__{_AuthUserRevokeRoleResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthUserRevokeRoleResponse+ where+ def+ = AuthUserRevokeRoleResponse{_AuthUserRevokeRoleResponse'header =+ Prelude.Nothing,+ _AuthUserRevokeRoleResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthUserRevokeRoleResponse where+ messageName _+ = Data.Text.pack "etcdserverpb.AuthUserRevokeRoleResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthUserRevokeRoleResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _AuthUserRevokeRoleResponse'_unknownFields+ (\ x__ y__ ->+ x__{_AuthUserRevokeRoleResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.name' @:: Lens' AuthenticateRequest Data.Text.Text@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.password' @:: Lens' AuthenticateRequest Data.Text.Text@+ -}+data AuthenticateRequest = AuthenticateRequest{_AuthenticateRequest'name+ :: !Data.Text.Text,+ _AuthenticateRequest'password :: !Data.Text.Text,+ _AuthenticateRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthenticateRequest x a, a ~ b) =>+ Lens.Labels.HasLens f AuthenticateRequest AuthenticateRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthenticateRequest "name" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthenticateRequest'name+ (\ x__ y__ -> x__{_AuthenticateRequest'name = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthenticateRequest "password"+ (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthenticateRequest'password+ (\ x__ y__ -> x__{_AuthenticateRequest'password = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthenticateRequest where+ def+ = AuthenticateRequest{_AuthenticateRequest'name =+ Data.ProtoLens.fieldDefault,+ _AuthenticateRequest'password = Data.ProtoLens.fieldDefault,+ _AuthenticateRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthenticateRequest where+ messageName _ = Data.Text.pack "etcdserverpb.AuthenticateRequest"+ fieldsByTag+ = let name__field_descriptor+ = Data.ProtoLens.FieldDescriptor "name"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name")))+ :: Data.ProtoLens.FieldDescriptor AuthenticateRequest+ password__field_descriptor+ = Data.ProtoLens.FieldDescriptor "password"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "password")))+ :: Data.ProtoLens.FieldDescriptor AuthenticateRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, name__field_descriptor),+ (Data.ProtoLens.Tag 2, password__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthenticateRequest'_unknownFields+ (\ x__ y__ -> x__{_AuthenticateRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' AuthenticateResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' AuthenticateResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.token' @:: Lens' AuthenticateResponse Data.Text.Text@+ -}+data AuthenticateResponse = AuthenticateResponse{_AuthenticateResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _AuthenticateResponse'token :: !Data.Text.Text,+ _AuthenticateResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f AuthenticateResponse x a,+ a ~ b) =>+ Lens.Labels.HasLens f AuthenticateResponse AuthenticateResponse x a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthenticateResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthenticateResponse'header+ (\ x__ y__ -> x__{_AuthenticateResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthenticateResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthenticateResponse'header+ (\ x__ y__ -> x__{_AuthenticateResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f AuthenticateResponse "token"+ (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _AuthenticateResponse'token+ (\ x__ y__ -> x__{_AuthenticateResponse'token = y__}))+ Prelude.id+instance Data.Default.Class.Default AuthenticateResponse where+ def+ = AuthenticateResponse{_AuthenticateResponse'header =+ Prelude.Nothing,+ _AuthenticateResponse'token = Data.ProtoLens.fieldDefault,+ _AuthenticateResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message AuthenticateResponse where+ messageName _ = Data.Text.pack "etcdserverpb.AuthenticateResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor AuthenticateResponse+ token__field_descriptor+ = Data.ProtoLens.FieldDescriptor "token"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "token")))+ :: Data.ProtoLens.FieldDescriptor AuthenticateResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, token__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _AuthenticateResponse'_unknownFields+ (\ x__ y__ -> x__{_AuthenticateResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.revision' @:: Lens' CompactionRequest Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.physical' @:: Lens' CompactionRequest Prelude.Bool@+ -}+data CompactionRequest = CompactionRequest{_CompactionRequest'revision+ :: !Data.Int.Int64,+ _CompactionRequest'physical :: !Prelude.Bool,+ _CompactionRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f CompactionRequest x a, a ~ b) =>+ Lens.Labels.HasLens f CompactionRequest CompactionRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f CompactionRequest "revision"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _CompactionRequest'revision+ (\ x__ y__ -> x__{_CompactionRequest'revision = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f CompactionRequest "physical" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _CompactionRequest'physical+ (\ x__ y__ -> x__{_CompactionRequest'physical = y__}))+ Prelude.id+instance Data.Default.Class.Default CompactionRequest where+ def+ = CompactionRequest{_CompactionRequest'revision =+ Data.ProtoLens.fieldDefault,+ _CompactionRequest'physical = Data.ProtoLens.fieldDefault,+ _CompactionRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message CompactionRequest where+ messageName _ = Data.Text.pack "etcdserverpb.CompactionRequest"+ fieldsByTag+ = let revision__field_descriptor+ = Data.ProtoLens.FieldDescriptor "revision"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "revision")))+ :: Data.ProtoLens.FieldDescriptor CompactionRequest+ physical__field_descriptor+ = Data.ProtoLens.FieldDescriptor "physical"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "physical")))+ :: Data.ProtoLens.FieldDescriptor CompactionRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, revision__field_descriptor),+ (Data.ProtoLens.Tag 2, physical__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _CompactionRequest'_unknownFields+ (\ x__ y__ -> x__{_CompactionRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' CompactionResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' CompactionResponse (Prelude.Maybe ResponseHeader)@+ -}+data CompactionResponse = CompactionResponse{_CompactionResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _CompactionResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f CompactionResponse x a, a ~ b) =>+ Lens.Labels.HasLens f CompactionResponse CompactionResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f CompactionResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _CompactionResponse'header+ (\ x__ y__ -> x__{_CompactionResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f CompactionResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _CompactionResponse'header+ (\ x__ y__ -> x__{_CompactionResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default CompactionResponse where+ def+ = CompactionResponse{_CompactionResponse'header = Prelude.Nothing,+ _CompactionResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message CompactionResponse where+ messageName _ = Data.Text.pack "etcdserverpb.CompactionResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor CompactionResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _CompactionResponse'_unknownFields+ (\ x__ y__ -> x__{_CompactionResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.result' @:: Lens' Compare Compare'CompareResult@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.target' @:: Lens' Compare Compare'CompareTarget@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.key' @:: Lens' Compare Data.ByteString.ByteString@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.rangeEnd' @:: Lens' Compare Data.ByteString.ByteString@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'targetUnion' @:: Lens' Compare (Prelude.Maybe Compare'TargetUnion)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'version' @:: Lens' Compare (Prelude.Maybe Data.Int.Int64)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.version' @:: Lens' Compare Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'createRevision' @:: Lens' Compare (Prelude.Maybe Data.Int.Int64)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.createRevision' @:: Lens' Compare Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'modRevision' @:: Lens' Compare (Prelude.Maybe Data.Int.Int64)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.modRevision' @:: Lens' Compare Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'value' @:: Lens' Compare (Prelude.Maybe Data.ByteString.ByteString)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.value' @:: Lens' Compare Data.ByteString.ByteString@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'lease' @:: Lens' Compare (Prelude.Maybe Data.Int.Int64)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.lease' @:: Lens' Compare Data.Int.Int64@+ -}+data Compare = Compare{_Compare'result :: !Compare'CompareResult,+ _Compare'target :: !Compare'CompareTarget,+ _Compare'key :: !Data.ByteString.ByteString,+ _Compare'rangeEnd :: !Data.ByteString.ByteString,+ _Compare'targetUnion :: !(Prelude.Maybe Compare'TargetUnion),+ _Compare'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+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 (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f Compare x a, a ~ b) =>+ Lens.Labels.HasLens f Compare Compare x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Compare "result" (Compare'CompareResult)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Compare'result+ (\ x__ y__ -> x__{_Compare'result = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Compare "target" (Compare'CompareTarget)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Compare'target+ (\ x__ y__ -> x__{_Compare'target = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Compare "key" (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Compare'key+ (\ x__ y__ -> x__{_Compare'key = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Compare "rangeEnd"+ (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Compare'rangeEnd+ (\ x__ y__ -> x__{_Compare'rangeEnd = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Compare "maybe'targetUnion"+ (Prelude.Maybe Compare'TargetUnion)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Compare'targetUnion+ (\ x__ y__ -> x__{_Compare'targetUnion = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Compare "maybe'version"+ (Prelude.Maybe Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Compare'targetUnion+ (\ x__ y__ -> x__{_Compare'targetUnion = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (Compare'Version x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap Compare'Version y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Compare "version" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Compare'targetUnion+ (\ x__ y__ -> x__{_Compare'targetUnion = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (Compare'Version x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap Compare'Version y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Compare "maybe'createRevision"+ (Prelude.Maybe Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Compare'targetUnion+ (\ x__ y__ -> x__{_Compare'targetUnion = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (Compare'CreateRevision x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap Compare'CreateRevision y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Compare "createRevision" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Compare'targetUnion+ (\ x__ y__ -> x__{_Compare'targetUnion = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (Compare'CreateRevision x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap Compare'CreateRevision y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Compare "maybe'modRevision"+ (Prelude.Maybe Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Compare'targetUnion+ (\ x__ y__ -> x__{_Compare'targetUnion = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (Compare'ModRevision x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap Compare'ModRevision y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Compare "modRevision" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Compare'targetUnion+ (\ x__ y__ -> x__{_Compare'targetUnion = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (Compare'ModRevision x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap Compare'ModRevision y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Compare "maybe'value"+ (Prelude.Maybe Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Compare'targetUnion+ (\ x__ y__ -> x__{_Compare'targetUnion = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (Compare'Value x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap Compare'Value y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Compare "value" (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Compare'targetUnion+ (\ x__ y__ -> x__{_Compare'targetUnion = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (Compare'Value x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap Compare'Value y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Compare "maybe'lease"+ (Prelude.Maybe Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Compare'targetUnion+ (\ x__ y__ -> x__{_Compare'targetUnion = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (Compare'Lease x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap Compare'Lease y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Compare "lease" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Compare'targetUnion+ (\ x__ y__ -> x__{_Compare'targetUnion = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (Compare'Lease x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap Compare'Lease y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Data.Default.Class.Default Compare where+ def+ = Compare{_Compare'result = Data.Default.Class.def,+ _Compare'target = Data.Default.Class.def,+ _Compare'key = Data.ProtoLens.fieldDefault,+ _Compare'rangeEnd = Data.ProtoLens.fieldDefault,+ _Compare'targetUnion = Prelude.Nothing,+ _Compare'_unknownFields = ([])}+instance Data.ProtoLens.Message Compare where+ messageName _ = Data.Text.pack "etcdserverpb.Compare"+ fieldsByTag+ = let result__field_descriptor+ = Data.ProtoLens.FieldDescriptor "result"+ (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::+ Data.ProtoLens.FieldTypeDescriptor Compare'CompareResult)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "result")))+ :: Data.ProtoLens.FieldDescriptor Compare+ target__field_descriptor+ = Data.ProtoLens.FieldDescriptor "target"+ (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::+ Data.ProtoLens.FieldTypeDescriptor Compare'CompareTarget)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "target")))+ :: Data.ProtoLens.FieldDescriptor Compare+ key__field_descriptor+ = Data.ProtoLens.FieldDescriptor "key"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key")))+ :: Data.ProtoLens.FieldDescriptor Compare+ rangeEnd__field_descriptor+ = Data.ProtoLens.FieldDescriptor "range_end"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rangeEnd")))+ :: Data.ProtoLens.FieldDescriptor Compare+ version__field_descriptor+ = Data.ProtoLens.FieldDescriptor "version"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'version")))+ :: Data.ProtoLens.FieldDescriptor Compare+ createRevision__field_descriptor+ = Data.ProtoLens.FieldDescriptor "create_revision"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'createRevision")))+ :: Data.ProtoLens.FieldDescriptor Compare+ modRevision__field_descriptor+ = Data.ProtoLens.FieldDescriptor "mod_revision"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'modRevision")))+ :: Data.ProtoLens.FieldDescriptor Compare+ value__field_descriptor+ = Data.ProtoLens.FieldDescriptor "value"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'value")))+ :: Data.ProtoLens.FieldDescriptor Compare+ lease__field_descriptor+ = Data.ProtoLens.FieldDescriptor "lease"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'lease")))+ :: Data.ProtoLens.FieldDescriptor Compare+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, result__field_descriptor),+ (Data.ProtoLens.Tag 2, target__field_descriptor),+ (Data.ProtoLens.Tag 3, key__field_descriptor),+ (Data.ProtoLens.Tag 64, rangeEnd__field_descriptor),+ (Data.ProtoLens.Tag 4, version__field_descriptor),+ (Data.ProtoLens.Tag 5, createRevision__field_descriptor),+ (Data.ProtoLens.Tag 6, modRevision__field_descriptor),+ (Data.ProtoLens.Tag 7, value__field_descriptor),+ (Data.ProtoLens.Tag 8, lease__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _Compare'_unknownFields+ (\ x__ y__ -> x__{_Compare'_unknownFields = y__})+_Compare'Version ::+ Lens.Labels.Prism.Prism' Compare'TargetUnion Data.Int.Int64+_Compare'Version+ = Lens.Labels.Prism.prism' Compare'Version+ (\ p__ ->+ case p__ of+ Compare'Version p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_Compare'CreateRevision ::+ Lens.Labels.Prism.Prism' Compare'TargetUnion Data.Int.Int64+_Compare'CreateRevision+ = Lens.Labels.Prism.prism' Compare'CreateRevision+ (\ p__ ->+ case p__ of+ Compare'CreateRevision p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_Compare'ModRevision ::+ Lens.Labels.Prism.Prism' Compare'TargetUnion Data.Int.Int64+_Compare'ModRevision+ = Lens.Labels.Prism.prism' Compare'ModRevision+ (\ p__ ->+ case p__ of+ Compare'ModRevision p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_Compare'Value ::+ Lens.Labels.Prism.Prism' Compare'TargetUnion+ Data.ByteString.ByteString+_Compare'Value+ = Lens.Labels.Prism.prism' Compare'Value+ (\ p__ ->+ case p__ of+ Compare'Value p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_Compare'Lease ::+ Lens.Labels.Prism.Prism' Compare'TargetUnion Data.Int.Int64+_Compare'Lease+ = Lens.Labels.Prism.prism' Compare'Lease+ (\ p__ ->+ case p__ of+ Compare'Lease p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+data Compare'CompareResult = Compare'EQUAL+ | Compare'GREATER+ | Compare'LESS+ | Compare'NOT_EQUAL+ | Compare'CompareResult'Unrecognized !Compare'CompareResult'UnrecognizedValue+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+newtype Compare'CompareResult'UnrecognizedValue = Compare'CompareResult'UnrecognizedValue Data.Int.Int32+ deriving (Prelude.Eq, Prelude.Ord, Prelude.Show)+instance Data.ProtoLens.MessageEnum Compare'CompareResult where+ maybeToEnum 0 = Prelude.Just Compare'EQUAL+ maybeToEnum 1 = Prelude.Just Compare'GREATER+ maybeToEnum 2 = Prelude.Just Compare'LESS+ maybeToEnum 3 = Prelude.Just Compare'NOT_EQUAL+ maybeToEnum k+ = Prelude.Just+ (Compare'CompareResult'Unrecognized+ (Compare'CompareResult'UnrecognizedValue (Prelude.fromIntegral k)))+ showEnum Compare'EQUAL = "EQUAL"+ showEnum Compare'GREATER = "GREATER"+ showEnum Compare'LESS = "LESS"+ showEnum Compare'NOT_EQUAL = "NOT_EQUAL"+ showEnum+ (Compare'CompareResult'Unrecognized+ (Compare'CompareResult'UnrecognizedValue k))+ = Prelude.show k+ readEnum "EQUAL" = Prelude.Just Compare'EQUAL+ readEnum "GREATER" = Prelude.Just Compare'GREATER+ readEnum "LESS" = Prelude.Just Compare'LESS+ readEnum "NOT_EQUAL" = Prelude.Just Compare'NOT_EQUAL+ readEnum k+ = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum+instance Prelude.Bounded Compare'CompareResult where+ minBound = Compare'EQUAL+ maxBound = Compare'NOT_EQUAL+instance Prelude.Enum Compare'CompareResult where+ toEnum k__+ = Prelude.maybe+ (Prelude.error+ ((Prelude.++) "toEnum: unknown value for enum CompareResult: "+ (Prelude.show k__)))+ Prelude.id+ (Data.ProtoLens.maybeToEnum k__)+ fromEnum Compare'EQUAL = 0+ fromEnum Compare'GREATER = 1+ fromEnum Compare'LESS = 2+ fromEnum Compare'NOT_EQUAL = 3+ fromEnum+ (Compare'CompareResult'Unrecognized+ (Compare'CompareResult'UnrecognizedValue k))+ = Prelude.fromIntegral k+ succ Compare'NOT_EQUAL+ = Prelude.error+ "Compare'CompareResult.succ: bad argument Compare'NOT_EQUAL. This value would be out of bounds."+ succ Compare'EQUAL = Compare'GREATER+ succ Compare'GREATER = Compare'LESS+ succ Compare'LESS = Compare'NOT_EQUAL+ succ _+ = Prelude.error+ "Compare'CompareResult.succ: bad argument: unrecognized value"+ pred Compare'EQUAL+ = Prelude.error+ "Compare'CompareResult.pred: bad argument Compare'EQUAL. This value would be out of bounds."+ pred Compare'GREATER = Compare'EQUAL+ pred Compare'LESS = Compare'GREATER+ pred Compare'NOT_EQUAL = Compare'LESS+ pred _+ = Prelude.error+ "Compare'CompareResult.pred: bad argument: unrecognized value"+ enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom+ enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo+ enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen+ enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo+instance Data.Default.Class.Default Compare'CompareResult where+ def = Compare'EQUAL+instance Data.ProtoLens.FieldDefault Compare'CompareResult where+ fieldDefault = Compare'EQUAL+data Compare'CompareTarget = Compare'VERSION+ | Compare'CREATE+ | Compare'MOD+ | Compare'VALUE+ | Compare'LEASE+ | Compare'CompareTarget'Unrecognized !Compare'CompareTarget'UnrecognizedValue+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+newtype Compare'CompareTarget'UnrecognizedValue = Compare'CompareTarget'UnrecognizedValue Data.Int.Int32+ deriving (Prelude.Eq, Prelude.Ord, Prelude.Show)+instance Data.ProtoLens.MessageEnum Compare'CompareTarget where+ maybeToEnum 0 = Prelude.Just Compare'VERSION+ maybeToEnum 1 = Prelude.Just Compare'CREATE+ maybeToEnum 2 = Prelude.Just Compare'MOD+ maybeToEnum 3 = Prelude.Just Compare'VALUE+ maybeToEnum 4 = Prelude.Just Compare'LEASE+ maybeToEnum k+ = Prelude.Just+ (Compare'CompareTarget'Unrecognized+ (Compare'CompareTarget'UnrecognizedValue (Prelude.fromIntegral k)))+ showEnum Compare'VERSION = "VERSION"+ showEnum Compare'CREATE = "CREATE"+ showEnum Compare'MOD = "MOD"+ showEnum Compare'VALUE = "VALUE"+ showEnum Compare'LEASE = "LEASE"+ showEnum+ (Compare'CompareTarget'Unrecognized+ (Compare'CompareTarget'UnrecognizedValue k))+ = Prelude.show k+ readEnum "VERSION" = Prelude.Just Compare'VERSION+ readEnum "CREATE" = Prelude.Just Compare'CREATE+ readEnum "MOD" = Prelude.Just Compare'MOD+ readEnum "VALUE" = Prelude.Just Compare'VALUE+ readEnum "LEASE" = Prelude.Just Compare'LEASE+ readEnum k+ = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum+instance Prelude.Bounded Compare'CompareTarget where+ minBound = Compare'VERSION+ maxBound = Compare'LEASE+instance Prelude.Enum Compare'CompareTarget where+ toEnum k__+ = Prelude.maybe+ (Prelude.error+ ((Prelude.++) "toEnum: unknown value for enum CompareTarget: "+ (Prelude.show k__)))+ Prelude.id+ (Data.ProtoLens.maybeToEnum k__)+ fromEnum Compare'VERSION = 0+ fromEnum Compare'CREATE = 1+ fromEnum Compare'MOD = 2+ fromEnum Compare'VALUE = 3+ fromEnum Compare'LEASE = 4+ fromEnum+ (Compare'CompareTarget'Unrecognized+ (Compare'CompareTarget'UnrecognizedValue k))+ = Prelude.fromIntegral k+ succ Compare'LEASE+ = Prelude.error+ "Compare'CompareTarget.succ: bad argument Compare'LEASE. This value would be out of bounds."+ succ Compare'VERSION = Compare'CREATE+ succ Compare'CREATE = Compare'MOD+ succ Compare'MOD = Compare'VALUE+ succ Compare'VALUE = Compare'LEASE+ succ _+ = Prelude.error+ "Compare'CompareTarget.succ: bad argument: unrecognized value"+ pred Compare'VERSION+ = Prelude.error+ "Compare'CompareTarget.pred: bad argument Compare'VERSION. This value would be out of bounds."+ pred Compare'CREATE = Compare'VERSION+ pred Compare'MOD = Compare'CREATE+ pred Compare'VALUE = Compare'MOD+ pred Compare'LEASE = Compare'VALUE+ pred _+ = Prelude.error+ "Compare'CompareTarget.pred: bad argument: unrecognized value"+ enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom+ enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo+ enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen+ enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo+instance Data.Default.Class.Default Compare'CompareTarget where+ def = Compare'VERSION+instance Data.ProtoLens.FieldDefault Compare'CompareTarget where+ fieldDefault = Compare'VERSION+{- | Fields :++ -}+data DefragmentRequest = DefragmentRequest{_DefragmentRequest'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f DefragmentRequest x a, a ~ b) =>+ Lens.Labels.HasLens f DefragmentRequest DefragmentRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Data.Default.Class.Default DefragmentRequest where+ def = DefragmentRequest{_DefragmentRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message DefragmentRequest where+ messageName _ = Data.Text.pack "etcdserverpb.DefragmentRequest"+ fieldsByTag = let in Data.Map.fromList []+ unknownFields+ = Lens.Family2.Unchecked.lens _DefragmentRequest'_unknownFields+ (\ x__ y__ -> x__{_DefragmentRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' DefragmentResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' DefragmentResponse (Prelude.Maybe ResponseHeader)@+ -}+data DefragmentResponse = DefragmentResponse{_DefragmentResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _DefragmentResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f DefragmentResponse x a, a ~ b) =>+ Lens.Labels.HasLens f DefragmentResponse DefragmentResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f DefragmentResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _DefragmentResponse'header+ (\ x__ y__ -> x__{_DefragmentResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f DefragmentResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _DefragmentResponse'header+ (\ x__ y__ -> x__{_DefragmentResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default DefragmentResponse where+ def+ = DefragmentResponse{_DefragmentResponse'header = Prelude.Nothing,+ _DefragmentResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message DefragmentResponse where+ messageName _ = Data.Text.pack "etcdserverpb.DefragmentResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor DefragmentResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _DefragmentResponse'_unknownFields+ (\ x__ y__ -> x__{_DefragmentResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.key' @:: Lens' DeleteRangeRequest Data.ByteString.ByteString@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.rangeEnd' @:: Lens' DeleteRangeRequest Data.ByteString.ByteString@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.prevKv' @:: Lens' DeleteRangeRequest Prelude.Bool@+ -}+data DeleteRangeRequest = DeleteRangeRequest{_DeleteRangeRequest'key+ :: !Data.ByteString.ByteString,+ _DeleteRangeRequest'rangeEnd ::+ !Data.ByteString.ByteString,+ _DeleteRangeRequest'prevKv :: !Prelude.Bool,+ _DeleteRangeRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f DeleteRangeRequest x a, a ~ b) =>+ Lens.Labels.HasLens f DeleteRangeRequest DeleteRangeRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f DeleteRangeRequest "key"+ (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _DeleteRangeRequest'key+ (\ x__ y__ -> x__{_DeleteRangeRequest'key = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f DeleteRangeRequest "rangeEnd"+ (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _DeleteRangeRequest'rangeEnd+ (\ x__ y__ -> x__{_DeleteRangeRequest'rangeEnd = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f DeleteRangeRequest "prevKv" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _DeleteRangeRequest'prevKv+ (\ x__ y__ -> x__{_DeleteRangeRequest'prevKv = y__}))+ Prelude.id+instance Data.Default.Class.Default DeleteRangeRequest where+ def+ = DeleteRangeRequest{_DeleteRangeRequest'key =+ Data.ProtoLens.fieldDefault,+ _DeleteRangeRequest'rangeEnd = Data.ProtoLens.fieldDefault,+ _DeleteRangeRequest'prevKv = Data.ProtoLens.fieldDefault,+ _DeleteRangeRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message DeleteRangeRequest where+ messageName _ = Data.Text.pack "etcdserverpb.DeleteRangeRequest"+ fieldsByTag+ = let key__field_descriptor+ = Data.ProtoLens.FieldDescriptor "key"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key")))+ :: Data.ProtoLens.FieldDescriptor DeleteRangeRequest+ rangeEnd__field_descriptor+ = Data.ProtoLens.FieldDescriptor "range_end"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rangeEnd")))+ :: Data.ProtoLens.FieldDescriptor DeleteRangeRequest+ prevKv__field_descriptor+ = Data.ProtoLens.FieldDescriptor "prev_kv"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "prevKv")))+ :: Data.ProtoLens.FieldDescriptor DeleteRangeRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, key__field_descriptor),+ (Data.ProtoLens.Tag 2, rangeEnd__field_descriptor),+ (Data.ProtoLens.Tag 3, prevKv__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _DeleteRangeRequest'_unknownFields+ (\ x__ y__ -> x__{_DeleteRangeRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' DeleteRangeResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' DeleteRangeResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.deleted' @:: Lens' DeleteRangeResponse Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.prevKvs' @:: Lens' DeleteRangeResponse [Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue]@+ -}+data DeleteRangeResponse = DeleteRangeResponse{_DeleteRangeResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _DeleteRangeResponse'deleted :: !Data.Int.Int64,+ _DeleteRangeResponse'prevKvs ::+ ![Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue],+ _DeleteRangeResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f DeleteRangeResponse x a, a ~ b) =>+ Lens.Labels.HasLens f DeleteRangeResponse DeleteRangeResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f DeleteRangeResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _DeleteRangeResponse'header+ (\ x__ y__ -> x__{_DeleteRangeResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f DeleteRangeResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _DeleteRangeResponse'header+ (\ x__ y__ -> x__{_DeleteRangeResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f DeleteRangeResponse "deleted"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _DeleteRangeResponse'deleted+ (\ x__ y__ -> x__{_DeleteRangeResponse'deleted = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f DeleteRangeResponse "prevKvs"+ ([Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _DeleteRangeResponse'prevKvs+ (\ x__ y__ -> x__{_DeleteRangeResponse'prevKvs = y__}))+ Prelude.id+instance Data.Default.Class.Default DeleteRangeResponse where+ def+ = DeleteRangeResponse{_DeleteRangeResponse'header =+ Prelude.Nothing,+ _DeleteRangeResponse'deleted = Data.ProtoLens.fieldDefault,+ _DeleteRangeResponse'prevKvs = [],+ _DeleteRangeResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message DeleteRangeResponse where+ messageName _ = Data.Text.pack "etcdserverpb.DeleteRangeResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor DeleteRangeResponse+ deleted__field_descriptor+ = Data.ProtoLens.FieldDescriptor "deleted"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "deleted")))+ :: Data.ProtoLens.FieldDescriptor DeleteRangeResponse+ prevKvs__field_descriptor+ = Data.ProtoLens.FieldDescriptor "prev_kvs"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor+ Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "prevKvs")))+ :: Data.ProtoLens.FieldDescriptor DeleteRangeResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, deleted__field_descriptor),+ (Data.ProtoLens.Tag 3, prevKvs__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _DeleteRangeResponse'_unknownFields+ (\ x__ y__ -> x__{_DeleteRangeResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.revision' @:: Lens' HashKVRequest Data.Int.Int64@+ -}+data HashKVRequest = HashKVRequest{_HashKVRequest'revision ::+ !Data.Int.Int64,+ _HashKVRequest'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f HashKVRequest x a, a ~ b) =>+ Lens.Labels.HasLens f HashKVRequest HashKVRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HashKVRequest "revision" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HashKVRequest'revision+ (\ x__ y__ -> x__{_HashKVRequest'revision = y__}))+ Prelude.id+instance Data.Default.Class.Default HashKVRequest where+ def+ = HashKVRequest{_HashKVRequest'revision =+ Data.ProtoLens.fieldDefault,+ _HashKVRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message HashKVRequest where+ messageName _ = Data.Text.pack "etcdserverpb.HashKVRequest"+ fieldsByTag+ = let revision__field_descriptor+ = Data.ProtoLens.FieldDescriptor "revision"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "revision")))+ :: Data.ProtoLens.FieldDescriptor HashKVRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, revision__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _HashKVRequest'_unknownFields+ (\ x__ y__ -> x__{_HashKVRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' HashKVResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' HashKVResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.hash' @:: Lens' HashKVResponse Data.Word.Word32@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.compactRevision' @:: Lens' HashKVResponse Data.Int.Int64@+ -}+data HashKVResponse = HashKVResponse{_HashKVResponse'header ::+ !(Prelude.Maybe ResponseHeader),+ _HashKVResponse'hash :: !Data.Word.Word32,+ _HashKVResponse'compactRevision :: !Data.Int.Int64,+ _HashKVResponse'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f HashKVResponse x a, a ~ b) =>+ Lens.Labels.HasLens f HashKVResponse HashKVResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HashKVResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HashKVResponse'header+ (\ x__ y__ -> x__{_HashKVResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HashKVResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HashKVResponse'header+ (\ x__ y__ -> x__{_HashKVResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HashKVResponse "hash" (Data.Word.Word32)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HashKVResponse'hash+ (\ x__ y__ -> x__{_HashKVResponse'hash = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HashKVResponse "compactRevision"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HashKVResponse'compactRevision+ (\ x__ y__ -> x__{_HashKVResponse'compactRevision = y__}))+ Prelude.id+instance Data.Default.Class.Default HashKVResponse where+ def+ = HashKVResponse{_HashKVResponse'header = Prelude.Nothing,+ _HashKVResponse'hash = Data.ProtoLens.fieldDefault,+ _HashKVResponse'compactRevision = Data.ProtoLens.fieldDefault,+ _HashKVResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message HashKVResponse where+ messageName _ = Data.Text.pack "etcdserverpb.HashKVResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor HashKVResponse+ hash__field_descriptor+ = Data.ProtoLens.FieldDescriptor "hash"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "hash")))+ :: Data.ProtoLens.FieldDescriptor HashKVResponse+ compactRevision__field_descriptor+ = Data.ProtoLens.FieldDescriptor "compact_revision"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "compactRevision")))+ :: Data.ProtoLens.FieldDescriptor HashKVResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, hash__field_descriptor),+ (Data.ProtoLens.Tag 3, compactRevision__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _HashKVResponse'_unknownFields+ (\ x__ y__ -> x__{_HashKVResponse'_unknownFields = y__})+{- | Fields :++ -}+data HashRequest = HashRequest{_HashRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f HashRequest x a, a ~ b) =>+ Lens.Labels.HasLens f HashRequest HashRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Data.Default.Class.Default HashRequest where+ def = HashRequest{_HashRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message HashRequest where+ messageName _ = Data.Text.pack "etcdserverpb.HashRequest"+ fieldsByTag = let in Data.Map.fromList []+ unknownFields+ = Lens.Family2.Unchecked.lens _HashRequest'_unknownFields+ (\ x__ y__ -> x__{_HashRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' HashResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' HashResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.hash' @:: Lens' HashResponse Data.Word.Word32@+ -}+data HashResponse = HashResponse{_HashResponse'header ::+ !(Prelude.Maybe ResponseHeader),+ _HashResponse'hash :: !Data.Word.Word32,+ _HashResponse'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f HashResponse x a, a ~ b) =>+ Lens.Labels.HasLens f HashResponse HashResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HashResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HashResponse'header+ (\ x__ y__ -> x__{_HashResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HashResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HashResponse'header+ (\ x__ y__ -> x__{_HashResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HashResponse "hash" (Data.Word.Word32)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HashResponse'hash+ (\ x__ y__ -> x__{_HashResponse'hash = y__}))+ Prelude.id+instance Data.Default.Class.Default HashResponse where+ def+ = HashResponse{_HashResponse'header = Prelude.Nothing,+ _HashResponse'hash = Data.ProtoLens.fieldDefault,+ _HashResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message HashResponse where+ messageName _ = Data.Text.pack "etcdserverpb.HashResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor HashResponse+ hash__field_descriptor+ = Data.ProtoLens.FieldDescriptor "hash"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt32Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "hash")))+ :: Data.ProtoLens.FieldDescriptor HashResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, hash__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _HashResponse'_unknownFields+ (\ x__ y__ -> x__{_HashResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseCheckpoint Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.remainingTTL' @:: Lens' LeaseCheckpoint Data.Int.Int64@+ -}+data LeaseCheckpoint = LeaseCheckpoint{_LeaseCheckpoint'id ::+ !Data.Int.Int64,+ _LeaseCheckpoint'remainingTTL :: !Data.Int.Int64,+ _LeaseCheckpoint'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f LeaseCheckpoint x a, a ~ b) =>+ Lens.Labels.HasLens f LeaseCheckpoint LeaseCheckpoint x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseCheckpoint "id" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseCheckpoint'id+ (\ x__ y__ -> x__{_LeaseCheckpoint'id = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseCheckpoint "remainingTTL"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseCheckpoint'remainingTTL+ (\ x__ y__ -> x__{_LeaseCheckpoint'remainingTTL = y__}))+ Prelude.id+instance Data.Default.Class.Default LeaseCheckpoint where+ def+ = LeaseCheckpoint{_LeaseCheckpoint'id =+ Data.ProtoLens.fieldDefault,+ _LeaseCheckpoint'remainingTTL = Data.ProtoLens.fieldDefault,+ _LeaseCheckpoint'_unknownFields = ([])}+instance Data.ProtoLens.Message LeaseCheckpoint where+ messageName _ = Data.Text.pack "etcdserverpb.LeaseCheckpoint"+ fieldsByTag+ = let id__field_descriptor+ = Data.ProtoLens.FieldDescriptor "ID"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "id")))+ :: Data.ProtoLens.FieldDescriptor LeaseCheckpoint+ remainingTTL__field_descriptor+ = Data.ProtoLens.FieldDescriptor "remaining_TTL"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "remainingTTL")))+ :: Data.ProtoLens.FieldDescriptor LeaseCheckpoint+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, id__field_descriptor),+ (Data.ProtoLens.Tag 2, remainingTTL__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _LeaseCheckpoint'_unknownFields+ (\ x__ y__ -> x__{_LeaseCheckpoint'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.checkpoints' @:: Lens' LeaseCheckpointRequest [LeaseCheckpoint]@+ -}+data LeaseCheckpointRequest = LeaseCheckpointRequest{_LeaseCheckpointRequest'checkpoints+ :: ![LeaseCheckpoint],+ _LeaseCheckpointRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f LeaseCheckpointRequest x a,+ a ~ b) =>+ Lens.Labels.HasLens f LeaseCheckpointRequest LeaseCheckpointRequest+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseCheckpointRequest "checkpoints"+ ([LeaseCheckpoint])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseCheckpointRequest'checkpoints+ (\ x__ y__ -> x__{_LeaseCheckpointRequest'checkpoints = y__}))+ Prelude.id+instance Data.Default.Class.Default LeaseCheckpointRequest where+ def+ = LeaseCheckpointRequest{_LeaseCheckpointRequest'checkpoints = [],+ _LeaseCheckpointRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message LeaseCheckpointRequest where+ messageName _+ = Data.Text.pack "etcdserverpb.LeaseCheckpointRequest"+ fieldsByTag+ = let checkpoints__field_descriptor+ = Data.ProtoLens.FieldDescriptor "checkpoints"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor LeaseCheckpoint)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "checkpoints")))+ :: Data.ProtoLens.FieldDescriptor LeaseCheckpointRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, checkpoints__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _LeaseCheckpointRequest'_unknownFields+ (\ x__ y__ -> x__{_LeaseCheckpointRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' LeaseCheckpointResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' LeaseCheckpointResponse (Prelude.Maybe ResponseHeader)@+ -}+data LeaseCheckpointResponse = LeaseCheckpointResponse{_LeaseCheckpointResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _LeaseCheckpointResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f LeaseCheckpointResponse x a,+ a ~ b) =>+ Lens.Labels.HasLens f LeaseCheckpointResponse+ LeaseCheckpointResponse+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseCheckpointResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseCheckpointResponse'header+ (\ x__ y__ -> x__{_LeaseCheckpointResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseCheckpointResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseCheckpointResponse'header+ (\ x__ y__ -> x__{_LeaseCheckpointResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default LeaseCheckpointResponse where+ def+ = LeaseCheckpointResponse{_LeaseCheckpointResponse'header =+ Prelude.Nothing,+ _LeaseCheckpointResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message LeaseCheckpointResponse where+ messageName _+ = Data.Text.pack "etcdserverpb.LeaseCheckpointResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor LeaseCheckpointResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _LeaseCheckpointResponse'_unknownFields+ (\ x__ y__ -> x__{_LeaseCheckpointResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.ttl' @:: Lens' LeaseGrantRequest Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseGrantRequest Data.Int.Int64@+ -}+data LeaseGrantRequest = LeaseGrantRequest{_LeaseGrantRequest'ttl+ :: !Data.Int.Int64,+ _LeaseGrantRequest'id :: !Data.Int.Int64,+ _LeaseGrantRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f LeaseGrantRequest x a, a ~ b) =>+ Lens.Labels.HasLens f LeaseGrantRequest LeaseGrantRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseGrantRequest "ttl" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseGrantRequest'ttl+ (\ x__ y__ -> x__{_LeaseGrantRequest'ttl = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseGrantRequest "id" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseGrantRequest'id+ (\ x__ y__ -> x__{_LeaseGrantRequest'id = y__}))+ Prelude.id+instance Data.Default.Class.Default LeaseGrantRequest where+ def+ = LeaseGrantRequest{_LeaseGrantRequest'ttl =+ Data.ProtoLens.fieldDefault,+ _LeaseGrantRequest'id = Data.ProtoLens.fieldDefault,+ _LeaseGrantRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message LeaseGrantRequest where+ messageName _ = Data.Text.pack "etcdserverpb.LeaseGrantRequest"+ fieldsByTag+ = let ttl__field_descriptor+ = Data.ProtoLens.FieldDescriptor "TTL"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ttl")))+ :: Data.ProtoLens.FieldDescriptor LeaseGrantRequest+ id__field_descriptor+ = Data.ProtoLens.FieldDescriptor "ID"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "id")))+ :: Data.ProtoLens.FieldDescriptor LeaseGrantRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, ttl__field_descriptor),+ (Data.ProtoLens.Tag 2, id__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _LeaseGrantRequest'_unknownFields+ (\ x__ y__ -> x__{_LeaseGrantRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' LeaseGrantResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' LeaseGrantResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseGrantResponse Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.ttl' @:: Lens' LeaseGrantResponse Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.error' @:: Lens' LeaseGrantResponse Data.Text.Text@+ -}+data LeaseGrantResponse = LeaseGrantResponse{_LeaseGrantResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _LeaseGrantResponse'id :: !Data.Int.Int64,+ _LeaseGrantResponse'ttl :: !Data.Int.Int64,+ _LeaseGrantResponse'error :: !Data.Text.Text,+ _LeaseGrantResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f LeaseGrantResponse x a, a ~ b) =>+ Lens.Labels.HasLens f LeaseGrantResponse LeaseGrantResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseGrantResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseGrantResponse'header+ (\ x__ y__ -> x__{_LeaseGrantResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseGrantResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseGrantResponse'header+ (\ x__ y__ -> x__{_LeaseGrantResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseGrantResponse "id" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseGrantResponse'id+ (\ x__ y__ -> x__{_LeaseGrantResponse'id = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseGrantResponse "ttl" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseGrantResponse'ttl+ (\ x__ y__ -> x__{_LeaseGrantResponse'ttl = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseGrantResponse "error" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseGrantResponse'error+ (\ x__ y__ -> x__{_LeaseGrantResponse'error = y__}))+ Prelude.id+instance Data.Default.Class.Default LeaseGrantResponse where+ def+ = LeaseGrantResponse{_LeaseGrantResponse'header = Prelude.Nothing,+ _LeaseGrantResponse'id = Data.ProtoLens.fieldDefault,+ _LeaseGrantResponse'ttl = Data.ProtoLens.fieldDefault,+ _LeaseGrantResponse'error = Data.ProtoLens.fieldDefault,+ _LeaseGrantResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message LeaseGrantResponse where+ messageName _ = Data.Text.pack "etcdserverpb.LeaseGrantResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor LeaseGrantResponse+ id__field_descriptor+ = Data.ProtoLens.FieldDescriptor "ID"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "id")))+ :: Data.ProtoLens.FieldDescriptor LeaseGrantResponse+ ttl__field_descriptor+ = Data.ProtoLens.FieldDescriptor "TTL"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ttl")))+ :: Data.ProtoLens.FieldDescriptor LeaseGrantResponse+ error__field_descriptor+ = Data.ProtoLens.FieldDescriptor "error"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "error")))+ :: Data.ProtoLens.FieldDescriptor LeaseGrantResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, id__field_descriptor),+ (Data.ProtoLens.Tag 3, ttl__field_descriptor),+ (Data.ProtoLens.Tag 4, error__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _LeaseGrantResponse'_unknownFields+ (\ x__ y__ -> x__{_LeaseGrantResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseKeepAliveRequest Data.Int.Int64@+ -}+data LeaseKeepAliveRequest = LeaseKeepAliveRequest{_LeaseKeepAliveRequest'id+ :: !Data.Int.Int64,+ _LeaseKeepAliveRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f LeaseKeepAliveRequest x a,+ a ~ b) =>+ Lens.Labels.HasLens f LeaseKeepAliveRequest LeaseKeepAliveRequest x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseKeepAliveRequest "id" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseKeepAliveRequest'id+ (\ x__ y__ -> x__{_LeaseKeepAliveRequest'id = y__}))+ Prelude.id+instance Data.Default.Class.Default LeaseKeepAliveRequest where+ def+ = LeaseKeepAliveRequest{_LeaseKeepAliveRequest'id =+ Data.ProtoLens.fieldDefault,+ _LeaseKeepAliveRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message LeaseKeepAliveRequest where+ messageName _ = Data.Text.pack "etcdserverpb.LeaseKeepAliveRequest"+ fieldsByTag+ = let id__field_descriptor+ = Data.ProtoLens.FieldDescriptor "ID"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "id")))+ :: Data.ProtoLens.FieldDescriptor LeaseKeepAliveRequest+ in Data.Map.fromList [(Data.ProtoLens.Tag 1, id__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _LeaseKeepAliveRequest'_unknownFields+ (\ x__ y__ -> x__{_LeaseKeepAliveRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' LeaseKeepAliveResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' LeaseKeepAliveResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseKeepAliveResponse Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.ttl' @:: Lens' LeaseKeepAliveResponse Data.Int.Int64@+ -}+data LeaseKeepAliveResponse = LeaseKeepAliveResponse{_LeaseKeepAliveResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _LeaseKeepAliveResponse'id :: !Data.Int.Int64,+ _LeaseKeepAliveResponse'ttl :: !Data.Int.Int64,+ _LeaseKeepAliveResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f LeaseKeepAliveResponse x a,+ a ~ b) =>+ Lens.Labels.HasLens f LeaseKeepAliveResponse LeaseKeepAliveResponse+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseKeepAliveResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseKeepAliveResponse'header+ (\ x__ y__ -> x__{_LeaseKeepAliveResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseKeepAliveResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseKeepAliveResponse'header+ (\ x__ y__ -> x__{_LeaseKeepAliveResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseKeepAliveResponse "id" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseKeepAliveResponse'id+ (\ x__ y__ -> x__{_LeaseKeepAliveResponse'id = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseKeepAliveResponse "ttl"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseKeepAliveResponse'ttl+ (\ x__ y__ -> x__{_LeaseKeepAliveResponse'ttl = y__}))+ Prelude.id+instance Data.Default.Class.Default LeaseKeepAliveResponse where+ def+ = LeaseKeepAliveResponse{_LeaseKeepAliveResponse'header =+ Prelude.Nothing,+ _LeaseKeepAliveResponse'id = Data.ProtoLens.fieldDefault,+ _LeaseKeepAliveResponse'ttl = Data.ProtoLens.fieldDefault,+ _LeaseKeepAliveResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message LeaseKeepAliveResponse where+ messageName _+ = Data.Text.pack "etcdserverpb.LeaseKeepAliveResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor LeaseKeepAliveResponse+ id__field_descriptor+ = Data.ProtoLens.FieldDescriptor "ID"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "id")))+ :: Data.ProtoLens.FieldDescriptor LeaseKeepAliveResponse+ ttl__field_descriptor+ = Data.ProtoLens.FieldDescriptor "TTL"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ttl")))+ :: Data.ProtoLens.FieldDescriptor LeaseKeepAliveResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, id__field_descriptor),+ (Data.ProtoLens.Tag 3, ttl__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _LeaseKeepAliveResponse'_unknownFields+ (\ x__ y__ -> x__{_LeaseKeepAliveResponse'_unknownFields = y__})+{- | Fields :++ -}+data LeaseLeasesRequest = LeaseLeasesRequest{_LeaseLeasesRequest'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f LeaseLeasesRequest x a, a ~ b) =>+ Lens.Labels.HasLens f LeaseLeasesRequest LeaseLeasesRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Data.Default.Class.Default LeaseLeasesRequest where+ def = LeaseLeasesRequest{_LeaseLeasesRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message LeaseLeasesRequest where+ messageName _ = Data.Text.pack "etcdserverpb.LeaseLeasesRequest"+ fieldsByTag = let in Data.Map.fromList []+ unknownFields+ = Lens.Family2.Unchecked.lens _LeaseLeasesRequest'_unknownFields+ (\ x__ y__ -> x__{_LeaseLeasesRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' LeaseLeasesResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' LeaseLeasesResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.leases' @:: Lens' LeaseLeasesResponse [LeaseStatus]@+ -}+data LeaseLeasesResponse = LeaseLeasesResponse{_LeaseLeasesResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _LeaseLeasesResponse'leases :: ![LeaseStatus],+ _LeaseLeasesResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f LeaseLeasesResponse x a, a ~ b) =>+ Lens.Labels.HasLens f LeaseLeasesResponse LeaseLeasesResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseLeasesResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseLeasesResponse'header+ (\ x__ y__ -> x__{_LeaseLeasesResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseLeasesResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseLeasesResponse'header+ (\ x__ y__ -> x__{_LeaseLeasesResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseLeasesResponse "leases" ([LeaseStatus])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseLeasesResponse'leases+ (\ x__ y__ -> x__{_LeaseLeasesResponse'leases = y__}))+ Prelude.id+instance Data.Default.Class.Default LeaseLeasesResponse where+ def+ = LeaseLeasesResponse{_LeaseLeasesResponse'header =+ Prelude.Nothing,+ _LeaseLeasesResponse'leases = [],+ _LeaseLeasesResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message LeaseLeasesResponse where+ messageName _ = Data.Text.pack "etcdserverpb.LeaseLeasesResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor LeaseLeasesResponse+ leases__field_descriptor+ = Data.ProtoLens.FieldDescriptor "leases"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor LeaseStatus)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "leases")))+ :: Data.ProtoLens.FieldDescriptor LeaseLeasesResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, leases__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _LeaseLeasesResponse'_unknownFields+ (\ x__ y__ -> x__{_LeaseLeasesResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseRevokeRequest Data.Int.Int64@+ -}+data LeaseRevokeRequest = LeaseRevokeRequest{_LeaseRevokeRequest'id+ :: !Data.Int.Int64,+ _LeaseRevokeRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f LeaseRevokeRequest x a, a ~ b) =>+ Lens.Labels.HasLens f LeaseRevokeRequest LeaseRevokeRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseRevokeRequest "id" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseRevokeRequest'id+ (\ x__ y__ -> x__{_LeaseRevokeRequest'id = y__}))+ Prelude.id+instance Data.Default.Class.Default LeaseRevokeRequest where+ def+ = LeaseRevokeRequest{_LeaseRevokeRequest'id =+ Data.ProtoLens.fieldDefault,+ _LeaseRevokeRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message LeaseRevokeRequest where+ messageName _ = Data.Text.pack "etcdserverpb.LeaseRevokeRequest"+ fieldsByTag+ = let id__field_descriptor+ = Data.ProtoLens.FieldDescriptor "ID"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "id")))+ :: Data.ProtoLens.FieldDescriptor LeaseRevokeRequest+ in Data.Map.fromList [(Data.ProtoLens.Tag 1, id__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _LeaseRevokeRequest'_unknownFields+ (\ x__ y__ -> x__{_LeaseRevokeRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' LeaseRevokeResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' LeaseRevokeResponse (Prelude.Maybe ResponseHeader)@+ -}+data LeaseRevokeResponse = LeaseRevokeResponse{_LeaseRevokeResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _LeaseRevokeResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f LeaseRevokeResponse x a, a ~ b) =>+ Lens.Labels.HasLens f LeaseRevokeResponse LeaseRevokeResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseRevokeResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseRevokeResponse'header+ (\ x__ y__ -> x__{_LeaseRevokeResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseRevokeResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseRevokeResponse'header+ (\ x__ y__ -> x__{_LeaseRevokeResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default LeaseRevokeResponse where+ def+ = LeaseRevokeResponse{_LeaseRevokeResponse'header =+ Prelude.Nothing,+ _LeaseRevokeResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message LeaseRevokeResponse where+ messageName _ = Data.Text.pack "etcdserverpb.LeaseRevokeResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor LeaseRevokeResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _LeaseRevokeResponse'_unknownFields+ (\ x__ y__ -> x__{_LeaseRevokeResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseStatus Data.Int.Int64@+ -}+data LeaseStatus = LeaseStatus{_LeaseStatus'id :: !Data.Int.Int64,+ _LeaseStatus'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f LeaseStatus x a, a ~ b) =>+ Lens.Labels.HasLens f LeaseStatus LeaseStatus x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseStatus "id" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseStatus'id+ (\ x__ y__ -> x__{_LeaseStatus'id = y__}))+ Prelude.id+instance Data.Default.Class.Default LeaseStatus where+ def+ = LeaseStatus{_LeaseStatus'id = Data.ProtoLens.fieldDefault,+ _LeaseStatus'_unknownFields = ([])}+instance Data.ProtoLens.Message LeaseStatus where+ messageName _ = Data.Text.pack "etcdserverpb.LeaseStatus"+ fieldsByTag+ = let id__field_descriptor+ = Data.ProtoLens.FieldDescriptor "ID"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "id")))+ :: Data.ProtoLens.FieldDescriptor LeaseStatus+ in Data.Map.fromList [(Data.ProtoLens.Tag 1, id__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _LeaseStatus'_unknownFields+ (\ x__ y__ -> x__{_LeaseStatus'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseTimeToLiveRequest Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.keys' @:: Lens' LeaseTimeToLiveRequest Prelude.Bool@+ -}+data LeaseTimeToLiveRequest = LeaseTimeToLiveRequest{_LeaseTimeToLiveRequest'id+ :: !Data.Int.Int64,+ _LeaseTimeToLiveRequest'keys :: !Prelude.Bool,+ _LeaseTimeToLiveRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f LeaseTimeToLiveRequest x a,+ a ~ b) =>+ Lens.Labels.HasLens f LeaseTimeToLiveRequest LeaseTimeToLiveRequest+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseTimeToLiveRequest "id" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseTimeToLiveRequest'id+ (\ x__ y__ -> x__{_LeaseTimeToLiveRequest'id = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseTimeToLiveRequest "keys" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseTimeToLiveRequest'keys+ (\ x__ y__ -> x__{_LeaseTimeToLiveRequest'keys = y__}))+ Prelude.id+instance Data.Default.Class.Default LeaseTimeToLiveRequest where+ def+ = LeaseTimeToLiveRequest{_LeaseTimeToLiveRequest'id =+ Data.ProtoLens.fieldDefault,+ _LeaseTimeToLiveRequest'keys = Data.ProtoLens.fieldDefault,+ _LeaseTimeToLiveRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message LeaseTimeToLiveRequest where+ messageName _+ = Data.Text.pack "etcdserverpb.LeaseTimeToLiveRequest"+ fieldsByTag+ = let id__field_descriptor+ = Data.ProtoLens.FieldDescriptor "ID"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "id")))+ :: Data.ProtoLens.FieldDescriptor LeaseTimeToLiveRequest+ keys__field_descriptor+ = Data.ProtoLens.FieldDescriptor "keys"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "keys")))+ :: Data.ProtoLens.FieldDescriptor LeaseTimeToLiveRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, id__field_descriptor),+ (Data.ProtoLens.Tag 2, keys__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _LeaseTimeToLiveRequest'_unknownFields+ (\ x__ y__ -> x__{_LeaseTimeToLiveRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' LeaseTimeToLiveResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' LeaseTimeToLiveResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.id' @:: Lens' LeaseTimeToLiveResponse Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.ttl' @:: Lens' LeaseTimeToLiveResponse Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.grantedTTL' @:: Lens' LeaseTimeToLiveResponse Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.keys' @:: Lens' LeaseTimeToLiveResponse [Data.ByteString.ByteString]@+ -}+data LeaseTimeToLiveResponse = LeaseTimeToLiveResponse{_LeaseTimeToLiveResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _LeaseTimeToLiveResponse'id ::+ !Data.Int.Int64,+ _LeaseTimeToLiveResponse'ttl ::+ !Data.Int.Int64,+ _LeaseTimeToLiveResponse'grantedTTL ::+ !Data.Int.Int64,+ _LeaseTimeToLiveResponse'keys ::+ ![Data.ByteString.ByteString],+ _LeaseTimeToLiveResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f LeaseTimeToLiveResponse x a,+ a ~ b) =>+ Lens.Labels.HasLens f LeaseTimeToLiveResponse+ LeaseTimeToLiveResponse+ x+ a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseTimeToLiveResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseTimeToLiveResponse'header+ (\ x__ y__ -> x__{_LeaseTimeToLiveResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseTimeToLiveResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseTimeToLiveResponse'header+ (\ x__ y__ -> x__{_LeaseTimeToLiveResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseTimeToLiveResponse "id"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseTimeToLiveResponse'id+ (\ x__ y__ -> x__{_LeaseTimeToLiveResponse'id = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseTimeToLiveResponse "ttl"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseTimeToLiveResponse'ttl+ (\ x__ y__ -> x__{_LeaseTimeToLiveResponse'ttl = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseTimeToLiveResponse "grantedTTL"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseTimeToLiveResponse'grantedTTL+ (\ x__ y__ -> x__{_LeaseTimeToLiveResponse'grantedTTL = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f LeaseTimeToLiveResponse "keys"+ ([Data.ByteString.ByteString])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _LeaseTimeToLiveResponse'keys+ (\ x__ y__ -> x__{_LeaseTimeToLiveResponse'keys = y__}))+ Prelude.id+instance Data.Default.Class.Default LeaseTimeToLiveResponse where+ def+ = LeaseTimeToLiveResponse{_LeaseTimeToLiveResponse'header =+ Prelude.Nothing,+ _LeaseTimeToLiveResponse'id = Data.ProtoLens.fieldDefault,+ _LeaseTimeToLiveResponse'ttl = Data.ProtoLens.fieldDefault,+ _LeaseTimeToLiveResponse'grantedTTL =+ Data.ProtoLens.fieldDefault,+ _LeaseTimeToLiveResponse'keys = [],+ _LeaseTimeToLiveResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message LeaseTimeToLiveResponse where+ messageName _+ = Data.Text.pack "etcdserverpb.LeaseTimeToLiveResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor LeaseTimeToLiveResponse+ id__field_descriptor+ = Data.ProtoLens.FieldDescriptor "ID"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "id")))+ :: Data.ProtoLens.FieldDescriptor LeaseTimeToLiveResponse+ ttl__field_descriptor+ = Data.ProtoLens.FieldDescriptor "TTL"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ttl")))+ :: Data.ProtoLens.FieldDescriptor LeaseTimeToLiveResponse+ grantedTTL__field_descriptor+ = Data.ProtoLens.FieldDescriptor "grantedTTL"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "grantedTTL")))+ :: Data.ProtoLens.FieldDescriptor LeaseTimeToLiveResponse+ keys__field_descriptor+ = Data.ProtoLens.FieldDescriptor "keys"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "keys")))+ :: Data.ProtoLens.FieldDescriptor LeaseTimeToLiveResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, id__field_descriptor),+ (Data.ProtoLens.Tag 3, ttl__field_descriptor),+ (Data.ProtoLens.Tag 4, grantedTTL__field_descriptor),+ (Data.ProtoLens.Tag 5, keys__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens+ _LeaseTimeToLiveResponse'_unknownFields+ (\ x__ y__ -> x__{_LeaseTimeToLiveResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.id' @:: Lens' Member Data.Word.Word64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.name' @:: Lens' Member Data.Text.Text@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.peerURLs' @:: Lens' Member [Data.Text.Text]@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.clientURLs' @:: Lens' Member [Data.Text.Text]@+ -}+data Member = Member{_Member'id :: !Data.Word.Word64,+ _Member'name :: !Data.Text.Text,+ _Member'peerURLs :: ![Data.Text.Text],+ _Member'clientURLs :: ![Data.Text.Text],+ _Member'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f Member x a, a ~ b) =>+ Lens.Labels.HasLens f Member Member x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Member "id" (Data.Word.Word64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Member'id+ (\ x__ y__ -> x__{_Member'id = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Member "name" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Member'name+ (\ x__ y__ -> x__{_Member'name = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Member "peerURLs" ([Data.Text.Text])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Member'peerURLs+ (\ x__ y__ -> x__{_Member'peerURLs = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Member "clientURLs" ([Data.Text.Text])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Member'clientURLs+ (\ x__ y__ -> x__{_Member'clientURLs = y__}))+ Prelude.id+instance Data.Default.Class.Default Member where+ def+ = Member{_Member'id = Data.ProtoLens.fieldDefault,+ _Member'name = Data.ProtoLens.fieldDefault, _Member'peerURLs = [],+ _Member'clientURLs = [], _Member'_unknownFields = ([])}+instance Data.ProtoLens.Message Member where+ messageName _ = Data.Text.pack "etcdserverpb.Member"+ fieldsByTag+ = let id__field_descriptor+ = Data.ProtoLens.FieldDescriptor "ID"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "id")))+ :: Data.ProtoLens.FieldDescriptor Member+ name__field_descriptor+ = Data.ProtoLens.FieldDescriptor "name"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name")))+ :: Data.ProtoLens.FieldDescriptor Member+ peerURLs__field_descriptor+ = Data.ProtoLens.FieldDescriptor "peerURLs"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "peerURLs")))+ :: Data.ProtoLens.FieldDescriptor Member+ clientURLs__field_descriptor+ = Data.ProtoLens.FieldDescriptor "clientURLs"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "clientURLs")))+ :: Data.ProtoLens.FieldDescriptor Member+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, id__field_descriptor),+ (Data.ProtoLens.Tag 2, name__field_descriptor),+ (Data.ProtoLens.Tag 3, peerURLs__field_descriptor),+ (Data.ProtoLens.Tag 4, clientURLs__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _Member'_unknownFields+ (\ x__ y__ -> x__{_Member'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.peerURLs' @:: Lens' MemberAddRequest [Data.Text.Text]@+ -}+data MemberAddRequest = MemberAddRequest{_MemberAddRequest'peerURLs+ :: ![Data.Text.Text],+ _MemberAddRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f MemberAddRequest x a, a ~ b) =>+ Lens.Labels.HasLens f MemberAddRequest MemberAddRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberAddRequest "peerURLs"+ ([Data.Text.Text])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberAddRequest'peerURLs+ (\ x__ y__ -> x__{_MemberAddRequest'peerURLs = y__}))+ Prelude.id+instance Data.Default.Class.Default MemberAddRequest where+ def+ = MemberAddRequest{_MemberAddRequest'peerURLs = [],+ _MemberAddRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message MemberAddRequest where+ messageName _ = Data.Text.pack "etcdserverpb.MemberAddRequest"+ fieldsByTag+ = let peerURLs__field_descriptor+ = Data.ProtoLens.FieldDescriptor "peerURLs"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "peerURLs")))+ :: Data.ProtoLens.FieldDescriptor MemberAddRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, peerURLs__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _MemberAddRequest'_unknownFields+ (\ x__ y__ -> x__{_MemberAddRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' MemberAddResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' MemberAddResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.member' @:: Lens' MemberAddResponse Member@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'member' @:: Lens' MemberAddResponse (Prelude.Maybe Member)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.members' @:: Lens' MemberAddResponse [Member]@+ -}+data MemberAddResponse = MemberAddResponse{_MemberAddResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _MemberAddResponse'member :: !(Prelude.Maybe Member),+ _MemberAddResponse'members :: ![Member],+ _MemberAddResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f MemberAddResponse x a, a ~ b) =>+ Lens.Labels.HasLens f MemberAddResponse MemberAddResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberAddResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberAddResponse'header+ (\ x__ y__ -> x__{_MemberAddResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberAddResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberAddResponse'header+ (\ x__ y__ -> x__{_MemberAddResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberAddResponse "member" (Member)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberAddResponse'member+ (\ x__ y__ -> x__{_MemberAddResponse'member = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberAddResponse "maybe'member"+ (Prelude.Maybe Member)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberAddResponse'member+ (\ x__ y__ -> x__{_MemberAddResponse'member = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberAddResponse "members" ([Member])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberAddResponse'members+ (\ x__ y__ -> x__{_MemberAddResponse'members = y__}))+ Prelude.id+instance Data.Default.Class.Default MemberAddResponse where+ def+ = MemberAddResponse{_MemberAddResponse'header = Prelude.Nothing,+ _MemberAddResponse'member = Prelude.Nothing,+ _MemberAddResponse'members = [],+ _MemberAddResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message MemberAddResponse where+ messageName _ = Data.Text.pack "etcdserverpb.MemberAddResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor MemberAddResponse+ member__field_descriptor+ = Data.ProtoLens.FieldDescriptor "member"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Member)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'member")))+ :: Data.ProtoLens.FieldDescriptor MemberAddResponse+ members__field_descriptor+ = Data.ProtoLens.FieldDescriptor "members"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Member)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "members")))+ :: Data.ProtoLens.FieldDescriptor MemberAddResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, member__field_descriptor),+ (Data.ProtoLens.Tag 3, members__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _MemberAddResponse'_unknownFields+ (\ x__ y__ -> x__{_MemberAddResponse'_unknownFields = y__})+{- | Fields :++ -}+data MemberListRequest = MemberListRequest{_MemberListRequest'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f MemberListRequest x a, a ~ b) =>+ Lens.Labels.HasLens f MemberListRequest MemberListRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Data.Default.Class.Default MemberListRequest where+ def = MemberListRequest{_MemberListRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message MemberListRequest where+ messageName _ = Data.Text.pack "etcdserverpb.MemberListRequest"+ fieldsByTag = let in Data.Map.fromList []+ unknownFields+ = Lens.Family2.Unchecked.lens _MemberListRequest'_unknownFields+ (\ x__ y__ -> x__{_MemberListRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' MemberListResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' MemberListResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.members' @:: Lens' MemberListResponse [Member]@+ -}+data MemberListResponse = MemberListResponse{_MemberListResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _MemberListResponse'members :: ![Member],+ _MemberListResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f MemberListResponse x a, a ~ b) =>+ Lens.Labels.HasLens f MemberListResponse MemberListResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberListResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberListResponse'header+ (\ x__ y__ -> x__{_MemberListResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberListResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberListResponse'header+ (\ x__ y__ -> x__{_MemberListResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberListResponse "members" ([Member])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberListResponse'members+ (\ x__ y__ -> x__{_MemberListResponse'members = y__}))+ Prelude.id+instance Data.Default.Class.Default MemberListResponse where+ def+ = MemberListResponse{_MemberListResponse'header = Prelude.Nothing,+ _MemberListResponse'members = [],+ _MemberListResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message MemberListResponse where+ messageName _ = Data.Text.pack "etcdserverpb.MemberListResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor MemberListResponse+ members__field_descriptor+ = Data.ProtoLens.FieldDescriptor "members"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Member)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "members")))+ :: Data.ProtoLens.FieldDescriptor MemberListResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, members__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _MemberListResponse'_unknownFields+ (\ x__ y__ -> x__{_MemberListResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.id' @:: Lens' MemberRemoveRequest Data.Word.Word64@+ -}+data MemberRemoveRequest = MemberRemoveRequest{_MemberRemoveRequest'id+ :: !Data.Word.Word64,+ _MemberRemoveRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f MemberRemoveRequest x a, a ~ b) =>+ Lens.Labels.HasLens f MemberRemoveRequest MemberRemoveRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberRemoveRequest "id" (Data.Word.Word64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberRemoveRequest'id+ (\ x__ y__ -> x__{_MemberRemoveRequest'id = y__}))+ Prelude.id+instance Data.Default.Class.Default MemberRemoveRequest where+ def+ = MemberRemoveRequest{_MemberRemoveRequest'id =+ Data.ProtoLens.fieldDefault,+ _MemberRemoveRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message MemberRemoveRequest where+ messageName _ = Data.Text.pack "etcdserverpb.MemberRemoveRequest"+ fieldsByTag+ = let id__field_descriptor+ = Data.ProtoLens.FieldDescriptor "ID"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "id")))+ :: Data.ProtoLens.FieldDescriptor MemberRemoveRequest+ in Data.Map.fromList [(Data.ProtoLens.Tag 1, id__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _MemberRemoveRequest'_unknownFields+ (\ x__ y__ -> x__{_MemberRemoveRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' MemberRemoveResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' MemberRemoveResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.members' @:: Lens' MemberRemoveResponse [Member]@+ -}+data MemberRemoveResponse = MemberRemoveResponse{_MemberRemoveResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _MemberRemoveResponse'members :: ![Member],+ _MemberRemoveResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f MemberRemoveResponse x a,+ a ~ b) =>+ Lens.Labels.HasLens f MemberRemoveResponse MemberRemoveResponse x a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberRemoveResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberRemoveResponse'header+ (\ x__ y__ -> x__{_MemberRemoveResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberRemoveResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberRemoveResponse'header+ (\ x__ y__ -> x__{_MemberRemoveResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberRemoveResponse "members" ([Member])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberRemoveResponse'members+ (\ x__ y__ -> x__{_MemberRemoveResponse'members = y__}))+ Prelude.id+instance Data.Default.Class.Default MemberRemoveResponse where+ def+ = MemberRemoveResponse{_MemberRemoveResponse'header =+ Prelude.Nothing,+ _MemberRemoveResponse'members = [],+ _MemberRemoveResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message MemberRemoveResponse where+ messageName _ = Data.Text.pack "etcdserverpb.MemberRemoveResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor MemberRemoveResponse+ members__field_descriptor+ = Data.ProtoLens.FieldDescriptor "members"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Member)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "members")))+ :: Data.ProtoLens.FieldDescriptor MemberRemoveResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, members__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _MemberRemoveResponse'_unknownFields+ (\ x__ y__ -> x__{_MemberRemoveResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.id' @:: Lens' MemberUpdateRequest Data.Word.Word64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.peerURLs' @:: Lens' MemberUpdateRequest [Data.Text.Text]@+ -}+data MemberUpdateRequest = MemberUpdateRequest{_MemberUpdateRequest'id+ :: !Data.Word.Word64,+ _MemberUpdateRequest'peerURLs :: ![Data.Text.Text],+ _MemberUpdateRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f MemberUpdateRequest x a, a ~ b) =>+ Lens.Labels.HasLens f MemberUpdateRequest MemberUpdateRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberUpdateRequest "id" (Data.Word.Word64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberUpdateRequest'id+ (\ x__ y__ -> x__{_MemberUpdateRequest'id = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberUpdateRequest "peerURLs"+ ([Data.Text.Text])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberUpdateRequest'peerURLs+ (\ x__ y__ -> x__{_MemberUpdateRequest'peerURLs = y__}))+ Prelude.id+instance Data.Default.Class.Default MemberUpdateRequest where+ def+ = MemberUpdateRequest{_MemberUpdateRequest'id =+ Data.ProtoLens.fieldDefault,+ _MemberUpdateRequest'peerURLs = [],+ _MemberUpdateRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message MemberUpdateRequest where+ messageName _ = Data.Text.pack "etcdserverpb.MemberUpdateRequest"+ fieldsByTag+ = let id__field_descriptor+ = Data.ProtoLens.FieldDescriptor "ID"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "id")))+ :: Data.ProtoLens.FieldDescriptor MemberUpdateRequest+ peerURLs__field_descriptor+ = Data.ProtoLens.FieldDescriptor "peerURLs"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "peerURLs")))+ :: Data.ProtoLens.FieldDescriptor MemberUpdateRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, id__field_descriptor),+ (Data.ProtoLens.Tag 2, peerURLs__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _MemberUpdateRequest'_unknownFields+ (\ x__ y__ -> x__{_MemberUpdateRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' MemberUpdateResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' MemberUpdateResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.members' @:: Lens' MemberUpdateResponse [Member]@+ -}+data MemberUpdateResponse = MemberUpdateResponse{_MemberUpdateResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _MemberUpdateResponse'members :: ![Member],+ _MemberUpdateResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f MemberUpdateResponse x a,+ a ~ b) =>+ Lens.Labels.HasLens f MemberUpdateResponse MemberUpdateResponse x a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberUpdateResponse "header"+ (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberUpdateResponse'header+ (\ x__ y__ -> x__{_MemberUpdateResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberUpdateResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberUpdateResponse'header+ (\ x__ y__ -> x__{_MemberUpdateResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MemberUpdateResponse "members" ([Member])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MemberUpdateResponse'members+ (\ x__ y__ -> x__{_MemberUpdateResponse'members = y__}))+ Prelude.id+instance Data.Default.Class.Default MemberUpdateResponse where+ def+ = MemberUpdateResponse{_MemberUpdateResponse'header =+ Prelude.Nothing,+ _MemberUpdateResponse'members = [],+ _MemberUpdateResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message MemberUpdateResponse where+ messageName _ = Data.Text.pack "etcdserverpb.MemberUpdateResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor MemberUpdateResponse+ members__field_descriptor+ = Data.ProtoLens.FieldDescriptor "members"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Member)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "members")))+ :: Data.ProtoLens.FieldDescriptor MemberUpdateResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, members__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _MemberUpdateResponse'_unknownFields+ (\ x__ y__ -> x__{_MemberUpdateResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.targetID' @:: Lens' MoveLeaderRequest Data.Word.Word64@+ -}+data MoveLeaderRequest = MoveLeaderRequest{_MoveLeaderRequest'targetID+ :: !Data.Word.Word64,+ _MoveLeaderRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f MoveLeaderRequest x a, a ~ b) =>+ Lens.Labels.HasLens f MoveLeaderRequest MoveLeaderRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MoveLeaderRequest "targetID"+ (Data.Word.Word64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MoveLeaderRequest'targetID+ (\ x__ y__ -> x__{_MoveLeaderRequest'targetID = y__}))+ Prelude.id+instance Data.Default.Class.Default MoveLeaderRequest where+ def+ = MoveLeaderRequest{_MoveLeaderRequest'targetID =+ Data.ProtoLens.fieldDefault,+ _MoveLeaderRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message MoveLeaderRequest where+ messageName _ = Data.Text.pack "etcdserverpb.MoveLeaderRequest"+ fieldsByTag+ = let targetID__field_descriptor+ = Data.ProtoLens.FieldDescriptor "targetID"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "targetID")))+ :: Data.ProtoLens.FieldDescriptor MoveLeaderRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, targetID__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _MoveLeaderRequest'_unknownFields+ (\ x__ y__ -> x__{_MoveLeaderRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' MoveLeaderResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' MoveLeaderResponse (Prelude.Maybe ResponseHeader)@+ -}+data MoveLeaderResponse = MoveLeaderResponse{_MoveLeaderResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _MoveLeaderResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f MoveLeaderResponse x a, a ~ b) =>+ Lens.Labels.HasLens f MoveLeaderResponse MoveLeaderResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MoveLeaderResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MoveLeaderResponse'header+ (\ x__ y__ -> x__{_MoveLeaderResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f MoveLeaderResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _MoveLeaderResponse'header+ (\ x__ y__ -> x__{_MoveLeaderResponse'header = y__}))+ Prelude.id+instance Data.Default.Class.Default MoveLeaderResponse where+ def+ = MoveLeaderResponse{_MoveLeaderResponse'header = Prelude.Nothing,+ _MoveLeaderResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message MoveLeaderResponse where+ messageName _ = Data.Text.pack "etcdserverpb.MoveLeaderResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor MoveLeaderResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _MoveLeaderResponse'_unknownFields+ (\ x__ y__ -> x__{_MoveLeaderResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.key' @:: Lens' PutRequest Data.ByteString.ByteString@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.value' @:: Lens' PutRequest Data.ByteString.ByteString@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.lease' @:: Lens' PutRequest Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.prevKv' @:: Lens' PutRequest Prelude.Bool@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.ignoreValue' @:: Lens' PutRequest Prelude.Bool@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.ignoreLease' @:: Lens' PutRequest Prelude.Bool@+ -}+data PutRequest = PutRequest{_PutRequest'key ::+ !Data.ByteString.ByteString,+ _PutRequest'value :: !Data.ByteString.ByteString,+ _PutRequest'lease :: !Data.Int.Int64,+ _PutRequest'prevKv :: !Prelude.Bool,+ _PutRequest'ignoreValue :: !Prelude.Bool,+ _PutRequest'ignoreLease :: !Prelude.Bool,+ _PutRequest'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f PutRequest x a, a ~ b) =>+ Lens.Labels.HasLens f PutRequest PutRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f PutRequest "key"+ (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _PutRequest'key+ (\ x__ y__ -> x__{_PutRequest'key = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f PutRequest "value"+ (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _PutRequest'value+ (\ x__ y__ -> x__{_PutRequest'value = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f PutRequest "lease" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _PutRequest'lease+ (\ x__ y__ -> x__{_PutRequest'lease = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f PutRequest "prevKv" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _PutRequest'prevKv+ (\ x__ y__ -> x__{_PutRequest'prevKv = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f PutRequest "ignoreValue" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _PutRequest'ignoreValue+ (\ x__ y__ -> x__{_PutRequest'ignoreValue = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f PutRequest "ignoreLease" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _PutRequest'ignoreLease+ (\ x__ y__ -> x__{_PutRequest'ignoreLease = y__}))+ Prelude.id+instance Data.Default.Class.Default PutRequest where+ def+ = PutRequest{_PutRequest'key = Data.ProtoLens.fieldDefault,+ _PutRequest'value = Data.ProtoLens.fieldDefault,+ _PutRequest'lease = Data.ProtoLens.fieldDefault,+ _PutRequest'prevKv = Data.ProtoLens.fieldDefault,+ _PutRequest'ignoreValue = Data.ProtoLens.fieldDefault,+ _PutRequest'ignoreLease = Data.ProtoLens.fieldDefault,+ _PutRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message PutRequest where+ messageName _ = Data.Text.pack "etcdserverpb.PutRequest"+ fieldsByTag+ = let key__field_descriptor+ = Data.ProtoLens.FieldDescriptor "key"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key")))+ :: Data.ProtoLens.FieldDescriptor PutRequest+ value__field_descriptor+ = Data.ProtoLens.FieldDescriptor "value"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value")))+ :: Data.ProtoLens.FieldDescriptor PutRequest+ lease__field_descriptor+ = Data.ProtoLens.FieldDescriptor "lease"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "lease")))+ :: Data.ProtoLens.FieldDescriptor PutRequest+ prevKv__field_descriptor+ = Data.ProtoLens.FieldDescriptor "prev_kv"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "prevKv")))+ :: Data.ProtoLens.FieldDescriptor PutRequest+ ignoreValue__field_descriptor+ = Data.ProtoLens.FieldDescriptor "ignore_value"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ignoreValue")))+ :: Data.ProtoLens.FieldDescriptor PutRequest+ ignoreLease__field_descriptor+ = Data.ProtoLens.FieldDescriptor "ignore_lease"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ignoreLease")))+ :: Data.ProtoLens.FieldDescriptor PutRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, key__field_descriptor),+ (Data.ProtoLens.Tag 2, value__field_descriptor),+ (Data.ProtoLens.Tag 3, lease__field_descriptor),+ (Data.ProtoLens.Tag 4, prevKv__field_descriptor),+ (Data.ProtoLens.Tag 5, ignoreValue__field_descriptor),+ (Data.ProtoLens.Tag 6, ignoreLease__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _PutRequest'_unknownFields+ (\ x__ y__ -> x__{_PutRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' PutResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' PutResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.prevKv' @:: Lens' PutResponse Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'prevKv' @:: Lens' PutResponse+ (Prelude.Maybe Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue)@+ -}+data PutResponse = PutResponse{_PutResponse'header ::+ !(Prelude.Maybe ResponseHeader),+ _PutResponse'prevKv ::+ !(Prelude.Maybe Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue),+ _PutResponse'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f PutResponse x a, a ~ b) =>+ Lens.Labels.HasLens f PutResponse PutResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f PutResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _PutResponse'header+ (\ x__ y__ -> x__{_PutResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f PutResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _PutResponse'header+ (\ x__ y__ -> x__{_PutResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f PutResponse "prevKv"+ (Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _PutResponse'prevKv+ (\ x__ y__ -> x__{_PutResponse'prevKv = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f PutResponse "maybe'prevKv"+ (Prelude.Maybe Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _PutResponse'prevKv+ (\ x__ y__ -> x__{_PutResponse'prevKv = y__}))+ Prelude.id+instance Data.Default.Class.Default PutResponse where+ def+ = PutResponse{_PutResponse'header = Prelude.Nothing,+ _PutResponse'prevKv = Prelude.Nothing,+ _PutResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message PutResponse where+ messageName _ = Data.Text.pack "etcdserverpb.PutResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor PutResponse+ prevKv__field_descriptor+ = Data.ProtoLens.FieldDescriptor "prev_kv"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor+ Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'prevKv")))+ :: Data.ProtoLens.FieldDescriptor PutResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, prevKv__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _PutResponse'_unknownFields+ (\ x__ y__ -> x__{_PutResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.key' @:: Lens' RangeRequest Data.ByteString.ByteString@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.rangeEnd' @:: Lens' RangeRequest Data.ByteString.ByteString@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.limit' @:: Lens' RangeRequest Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.revision' @:: Lens' RangeRequest Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.sortOrder' @:: Lens' RangeRequest RangeRequest'SortOrder@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.sortTarget' @:: Lens' RangeRequest RangeRequest'SortTarget@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.serializable' @:: Lens' RangeRequest Prelude.Bool@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.keysOnly' @:: Lens' RangeRequest Prelude.Bool@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.countOnly' @:: Lens' RangeRequest Prelude.Bool@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.minModRevision' @:: Lens' RangeRequest Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maxModRevision' @:: Lens' RangeRequest Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.minCreateRevision' @:: Lens' RangeRequest Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maxCreateRevision' @:: Lens' RangeRequest Data.Int.Int64@+ -}+data RangeRequest = RangeRequest{_RangeRequest'key ::+ !Data.ByteString.ByteString,+ _RangeRequest'rangeEnd :: !Data.ByteString.ByteString,+ _RangeRequest'limit :: !Data.Int.Int64,+ _RangeRequest'revision :: !Data.Int.Int64,+ _RangeRequest'sortOrder :: !RangeRequest'SortOrder,+ _RangeRequest'sortTarget :: !RangeRequest'SortTarget,+ _RangeRequest'serializable :: !Prelude.Bool,+ _RangeRequest'keysOnly :: !Prelude.Bool,+ _RangeRequest'countOnly :: !Prelude.Bool,+ _RangeRequest'minModRevision :: !Data.Int.Int64,+ _RangeRequest'maxModRevision :: !Data.Int.Int64,+ _RangeRequest'minCreateRevision :: !Data.Int.Int64,+ _RangeRequest'maxCreateRevision :: !Data.Int.Int64,+ _RangeRequest'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f RangeRequest x a, a ~ b) =>+ Lens.Labels.HasLens f RangeRequest RangeRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeRequest "key"+ (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeRequest'key+ (\ x__ y__ -> x__{_RangeRequest'key = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeRequest "rangeEnd"+ (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeRequest'rangeEnd+ (\ x__ y__ -> x__{_RangeRequest'rangeEnd = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeRequest "limit" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeRequest'limit+ (\ x__ y__ -> x__{_RangeRequest'limit = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeRequest "revision" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeRequest'revision+ (\ x__ y__ -> x__{_RangeRequest'revision = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeRequest "sortOrder"+ (RangeRequest'SortOrder)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeRequest'sortOrder+ (\ x__ y__ -> x__{_RangeRequest'sortOrder = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeRequest "sortTarget"+ (RangeRequest'SortTarget)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeRequest'sortTarget+ (\ x__ y__ -> x__{_RangeRequest'sortTarget = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeRequest "serializable" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeRequest'serializable+ (\ x__ y__ -> x__{_RangeRequest'serializable = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeRequest "keysOnly" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeRequest'keysOnly+ (\ x__ y__ -> x__{_RangeRequest'keysOnly = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeRequest "countOnly" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeRequest'countOnly+ (\ x__ y__ -> x__{_RangeRequest'countOnly = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeRequest "minModRevision"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeRequest'minModRevision+ (\ x__ y__ -> x__{_RangeRequest'minModRevision = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeRequest "maxModRevision"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeRequest'maxModRevision+ (\ x__ y__ -> x__{_RangeRequest'maxModRevision = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeRequest "minCreateRevision"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeRequest'minCreateRevision+ (\ x__ y__ -> x__{_RangeRequest'minCreateRevision = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeRequest "maxCreateRevision"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeRequest'maxCreateRevision+ (\ x__ y__ -> x__{_RangeRequest'maxCreateRevision = y__}))+ Prelude.id+instance Data.Default.Class.Default RangeRequest where+ def+ = RangeRequest{_RangeRequest'key = Data.ProtoLens.fieldDefault,+ _RangeRequest'rangeEnd = Data.ProtoLens.fieldDefault,+ _RangeRequest'limit = Data.ProtoLens.fieldDefault,+ _RangeRequest'revision = Data.ProtoLens.fieldDefault,+ _RangeRequest'sortOrder = Data.Default.Class.def,+ _RangeRequest'sortTarget = Data.Default.Class.def,+ _RangeRequest'serializable = Data.ProtoLens.fieldDefault,+ _RangeRequest'keysOnly = Data.ProtoLens.fieldDefault,+ _RangeRequest'countOnly = Data.ProtoLens.fieldDefault,+ _RangeRequest'minModRevision = Data.ProtoLens.fieldDefault,+ _RangeRequest'maxModRevision = Data.ProtoLens.fieldDefault,+ _RangeRequest'minCreateRevision = Data.ProtoLens.fieldDefault,+ _RangeRequest'maxCreateRevision = Data.ProtoLens.fieldDefault,+ _RangeRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message RangeRequest where+ messageName _ = Data.Text.pack "etcdserverpb.RangeRequest"+ fieldsByTag+ = let key__field_descriptor+ = Data.ProtoLens.FieldDescriptor "key"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key")))+ :: Data.ProtoLens.FieldDescriptor RangeRequest+ rangeEnd__field_descriptor+ = Data.ProtoLens.FieldDescriptor "range_end"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rangeEnd")))+ :: Data.ProtoLens.FieldDescriptor RangeRequest+ limit__field_descriptor+ = Data.ProtoLens.FieldDescriptor "limit"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "limit")))+ :: Data.ProtoLens.FieldDescriptor RangeRequest+ revision__field_descriptor+ = Data.ProtoLens.FieldDescriptor "revision"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "revision")))+ :: Data.ProtoLens.FieldDescriptor RangeRequest+ sortOrder__field_descriptor+ = Data.ProtoLens.FieldDescriptor "sort_order"+ (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::+ Data.ProtoLens.FieldTypeDescriptor RangeRequest'SortOrder)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "sortOrder")))+ :: Data.ProtoLens.FieldDescriptor RangeRequest+ sortTarget__field_descriptor+ = Data.ProtoLens.FieldDescriptor "sort_target"+ (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::+ Data.ProtoLens.FieldTypeDescriptor RangeRequest'SortTarget)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "sortTarget")))+ :: Data.ProtoLens.FieldDescriptor RangeRequest+ serializable__field_descriptor+ = Data.ProtoLens.FieldDescriptor "serializable"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "serializable")))+ :: Data.ProtoLens.FieldDescriptor RangeRequest+ keysOnly__field_descriptor+ = Data.ProtoLens.FieldDescriptor "keys_only"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "keysOnly")))+ :: Data.ProtoLens.FieldDescriptor RangeRequest+ countOnly__field_descriptor+ = Data.ProtoLens.FieldDescriptor "count_only"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "countOnly")))+ :: Data.ProtoLens.FieldDescriptor RangeRequest+ minModRevision__field_descriptor+ = Data.ProtoLens.FieldDescriptor "min_mod_revision"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "minModRevision")))+ :: Data.ProtoLens.FieldDescriptor RangeRequest+ maxModRevision__field_descriptor+ = Data.ProtoLens.FieldDescriptor "max_mod_revision"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maxModRevision")))+ :: Data.ProtoLens.FieldDescriptor RangeRequest+ minCreateRevision__field_descriptor+ = Data.ProtoLens.FieldDescriptor "min_create_revision"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "minCreateRevision")))+ :: Data.ProtoLens.FieldDescriptor RangeRequest+ maxCreateRevision__field_descriptor+ = Data.ProtoLens.FieldDescriptor "max_create_revision"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maxCreateRevision")))+ :: Data.ProtoLens.FieldDescriptor RangeRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, key__field_descriptor),+ (Data.ProtoLens.Tag 2, rangeEnd__field_descriptor),+ (Data.ProtoLens.Tag 3, limit__field_descriptor),+ (Data.ProtoLens.Tag 4, revision__field_descriptor),+ (Data.ProtoLens.Tag 5, sortOrder__field_descriptor),+ (Data.ProtoLens.Tag 6, sortTarget__field_descriptor),+ (Data.ProtoLens.Tag 7, serializable__field_descriptor),+ (Data.ProtoLens.Tag 8, keysOnly__field_descriptor),+ (Data.ProtoLens.Tag 9, countOnly__field_descriptor),+ (Data.ProtoLens.Tag 10, minModRevision__field_descriptor),+ (Data.ProtoLens.Tag 11, maxModRevision__field_descriptor),+ (Data.ProtoLens.Tag 12, minCreateRevision__field_descriptor),+ (Data.ProtoLens.Tag 13, maxCreateRevision__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _RangeRequest'_unknownFields+ (\ x__ y__ -> x__{_RangeRequest'_unknownFields = y__})+data RangeRequest'SortOrder = RangeRequest'NONE+ | RangeRequest'ASCEND+ | RangeRequest'DESCEND+ | RangeRequest'SortOrder'Unrecognized !RangeRequest'SortOrder'UnrecognizedValue+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+newtype RangeRequest'SortOrder'UnrecognizedValue = RangeRequest'SortOrder'UnrecognizedValue Data.Int.Int32+ deriving (Prelude.Eq, Prelude.Ord,+ Prelude.Show)+instance Data.ProtoLens.MessageEnum RangeRequest'SortOrder where+ maybeToEnum 0 = Prelude.Just RangeRequest'NONE+ maybeToEnum 1 = Prelude.Just RangeRequest'ASCEND+ maybeToEnum 2 = Prelude.Just RangeRequest'DESCEND+ maybeToEnum k+ = Prelude.Just+ (RangeRequest'SortOrder'Unrecognized+ (RangeRequest'SortOrder'UnrecognizedValue+ (Prelude.fromIntegral k)))+ showEnum RangeRequest'NONE = "NONE"+ showEnum RangeRequest'ASCEND = "ASCEND"+ showEnum RangeRequest'DESCEND = "DESCEND"+ showEnum+ (RangeRequest'SortOrder'Unrecognized+ (RangeRequest'SortOrder'UnrecognizedValue k))+ = Prelude.show k+ readEnum "NONE" = Prelude.Just RangeRequest'NONE+ readEnum "ASCEND" = Prelude.Just RangeRequest'ASCEND+ readEnum "DESCEND" = Prelude.Just RangeRequest'DESCEND+ readEnum k+ = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum+instance Prelude.Bounded RangeRequest'SortOrder where+ minBound = RangeRequest'NONE+ maxBound = RangeRequest'DESCEND+instance Prelude.Enum RangeRequest'SortOrder where+ toEnum k__+ = Prelude.maybe+ (Prelude.error+ ((Prelude.++) "toEnum: unknown value for enum SortOrder: "+ (Prelude.show k__)))+ Prelude.id+ (Data.ProtoLens.maybeToEnum k__)+ fromEnum RangeRequest'NONE = 0+ fromEnum RangeRequest'ASCEND = 1+ fromEnum RangeRequest'DESCEND = 2+ fromEnum+ (RangeRequest'SortOrder'Unrecognized+ (RangeRequest'SortOrder'UnrecognizedValue k))+ = Prelude.fromIntegral k+ succ RangeRequest'DESCEND+ = Prelude.error+ "RangeRequest'SortOrder.succ: bad argument RangeRequest'DESCEND. This value would be out of bounds."+ succ RangeRequest'NONE = RangeRequest'ASCEND+ succ RangeRequest'ASCEND = RangeRequest'DESCEND+ succ _+ = Prelude.error+ "RangeRequest'SortOrder.succ: bad argument: unrecognized value"+ pred RangeRequest'NONE+ = Prelude.error+ "RangeRequest'SortOrder.pred: bad argument RangeRequest'NONE. This value would be out of bounds."+ pred RangeRequest'ASCEND = RangeRequest'NONE+ pred RangeRequest'DESCEND = RangeRequest'ASCEND+ pred _+ = Prelude.error+ "RangeRequest'SortOrder.pred: bad argument: unrecognized value"+ enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom+ enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo+ enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen+ enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo+instance Data.Default.Class.Default RangeRequest'SortOrder where+ def = RangeRequest'NONE+instance Data.ProtoLens.FieldDefault RangeRequest'SortOrder where+ fieldDefault = RangeRequest'NONE+data RangeRequest'SortTarget = RangeRequest'KEY+ | RangeRequest'VERSION+ | RangeRequest'CREATE+ | RangeRequest'MOD+ | RangeRequest'VALUE+ | RangeRequest'SortTarget'Unrecognized !RangeRequest'SortTarget'UnrecognizedValue+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+newtype RangeRequest'SortTarget'UnrecognizedValue = RangeRequest'SortTarget'UnrecognizedValue Data.Int.Int32+ deriving (Prelude.Eq, Prelude.Ord,+ Prelude.Show)+instance Data.ProtoLens.MessageEnum RangeRequest'SortTarget where+ maybeToEnum 0 = Prelude.Just RangeRequest'KEY+ maybeToEnum 1 = Prelude.Just RangeRequest'VERSION+ maybeToEnum 2 = Prelude.Just RangeRequest'CREATE+ maybeToEnum 3 = Prelude.Just RangeRequest'MOD+ maybeToEnum 4 = Prelude.Just RangeRequest'VALUE+ maybeToEnum k+ = Prelude.Just+ (RangeRequest'SortTarget'Unrecognized+ (RangeRequest'SortTarget'UnrecognizedValue+ (Prelude.fromIntegral k)))+ showEnum RangeRequest'KEY = "KEY"+ showEnum RangeRequest'VERSION = "VERSION"+ showEnum RangeRequest'CREATE = "CREATE"+ showEnum RangeRequest'MOD = "MOD"+ showEnum RangeRequest'VALUE = "VALUE"+ showEnum+ (RangeRequest'SortTarget'Unrecognized+ (RangeRequest'SortTarget'UnrecognizedValue k))+ = Prelude.show k+ readEnum "KEY" = Prelude.Just RangeRequest'KEY+ readEnum "VERSION" = Prelude.Just RangeRequest'VERSION+ readEnum "CREATE" = Prelude.Just RangeRequest'CREATE+ readEnum "MOD" = Prelude.Just RangeRequest'MOD+ readEnum "VALUE" = Prelude.Just RangeRequest'VALUE+ readEnum k+ = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum+instance Prelude.Bounded RangeRequest'SortTarget where+ minBound = RangeRequest'KEY+ maxBound = RangeRequest'VALUE+instance Prelude.Enum RangeRequest'SortTarget where+ toEnum k__+ = Prelude.maybe+ (Prelude.error+ ((Prelude.++) "toEnum: unknown value for enum SortTarget: "+ (Prelude.show k__)))+ Prelude.id+ (Data.ProtoLens.maybeToEnum k__)+ fromEnum RangeRequest'KEY = 0+ fromEnum RangeRequest'VERSION = 1+ fromEnum RangeRequest'CREATE = 2+ fromEnum RangeRequest'MOD = 3+ fromEnum RangeRequest'VALUE = 4+ fromEnum+ (RangeRequest'SortTarget'Unrecognized+ (RangeRequest'SortTarget'UnrecognizedValue k))+ = Prelude.fromIntegral k+ succ RangeRequest'VALUE+ = Prelude.error+ "RangeRequest'SortTarget.succ: bad argument RangeRequest'VALUE. This value would be out of bounds."+ succ RangeRequest'KEY = RangeRequest'VERSION+ succ RangeRequest'VERSION = RangeRequest'CREATE+ succ RangeRequest'CREATE = RangeRequest'MOD+ succ RangeRequest'MOD = RangeRequest'VALUE+ succ _+ = Prelude.error+ "RangeRequest'SortTarget.succ: bad argument: unrecognized value"+ pred RangeRequest'KEY+ = Prelude.error+ "RangeRequest'SortTarget.pred: bad argument RangeRequest'KEY. This value would be out of bounds."+ pred RangeRequest'VERSION = RangeRequest'KEY+ pred RangeRequest'CREATE = RangeRequest'VERSION+ pred RangeRequest'MOD = RangeRequest'CREATE+ pred RangeRequest'VALUE = RangeRequest'MOD+ pred _+ = Prelude.error+ "RangeRequest'SortTarget.pred: bad argument: unrecognized value"+ enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom+ enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo+ enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen+ enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo+instance Data.Default.Class.Default RangeRequest'SortTarget where+ def = RangeRequest'KEY+instance Data.ProtoLens.FieldDefault RangeRequest'SortTarget where+ fieldDefault = RangeRequest'KEY+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' RangeResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' RangeResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.kvs' @:: Lens' RangeResponse [Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue]@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.more' @:: Lens' RangeResponse Prelude.Bool@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.count' @:: Lens' RangeResponse Data.Int.Int64@+ -}+data RangeResponse = RangeResponse{_RangeResponse'header ::+ !(Prelude.Maybe ResponseHeader),+ _RangeResponse'kvs :: ![Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue],+ _RangeResponse'more :: !Prelude.Bool,+ _RangeResponse'count :: !Data.Int.Int64,+ _RangeResponse'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f RangeResponse x a, a ~ b) =>+ Lens.Labels.HasLens f RangeResponse RangeResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeResponse'header+ (\ x__ y__ -> x__{_RangeResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeResponse'header+ (\ x__ y__ -> x__{_RangeResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeResponse "kvs"+ ([Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeResponse'kvs+ (\ x__ y__ -> x__{_RangeResponse'kvs = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeResponse "more" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeResponse'more+ (\ x__ y__ -> x__{_RangeResponse'more = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RangeResponse "count" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RangeResponse'count+ (\ x__ y__ -> x__{_RangeResponse'count = y__}))+ Prelude.id+instance Data.Default.Class.Default RangeResponse where+ def+ = RangeResponse{_RangeResponse'header = Prelude.Nothing,+ _RangeResponse'kvs = [],+ _RangeResponse'more = Data.ProtoLens.fieldDefault,+ _RangeResponse'count = Data.ProtoLens.fieldDefault,+ _RangeResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message RangeResponse where+ messageName _ = Data.Text.pack "etcdserverpb.RangeResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor RangeResponse+ kvs__field_descriptor+ = Data.ProtoLens.FieldDescriptor "kvs"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor+ Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "kvs")))+ :: Data.ProtoLens.FieldDescriptor RangeResponse+ more__field_descriptor+ = Data.ProtoLens.FieldDescriptor "more"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "more")))+ :: Data.ProtoLens.FieldDescriptor RangeResponse+ count__field_descriptor+ = Data.ProtoLens.FieldDescriptor "count"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "count")))+ :: Data.ProtoLens.FieldDescriptor RangeResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, kvs__field_descriptor),+ (Data.ProtoLens.Tag 3, more__field_descriptor),+ (Data.ProtoLens.Tag 4, count__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _RangeResponse'_unknownFields+ (\ x__ y__ -> x__{_RangeResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'request' @:: Lens' RequestOp (Prelude.Maybe RequestOp'Request)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'requestRange' @:: Lens' RequestOp (Prelude.Maybe RangeRequest)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.requestRange' @:: Lens' RequestOp RangeRequest@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'requestPut' @:: Lens' RequestOp (Prelude.Maybe PutRequest)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.requestPut' @:: Lens' RequestOp PutRequest@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'requestDeleteRange' @:: Lens' RequestOp (Prelude.Maybe DeleteRangeRequest)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.requestDeleteRange' @:: Lens' RequestOp DeleteRangeRequest@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'requestTxn' @:: Lens' RequestOp (Prelude.Maybe TxnRequest)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.requestTxn' @:: Lens' RequestOp TxnRequest@+ -}+data RequestOp = RequestOp{_RequestOp'request ::+ !(Prelude.Maybe RequestOp'Request),+ _RequestOp'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+data RequestOp'Request = RequestOp'RequestRange !RangeRequest+ | RequestOp'RequestPut !PutRequest+ | RequestOp'RequestDeleteRange !DeleteRangeRequest+ | RequestOp'RequestTxn !TxnRequest+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f RequestOp x a, a ~ b) =>+ Lens.Labels.HasLens f RequestOp RequestOp x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RequestOp "maybe'request"+ (Prelude.Maybe RequestOp'Request)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RequestOp'request+ (\ x__ y__ -> x__{_RequestOp'request = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RequestOp "maybe'requestRange"+ (Prelude.Maybe RangeRequest)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RequestOp'request+ (\ x__ y__ -> x__{_RequestOp'request = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (RequestOp'RequestRange x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap RequestOp'RequestRange y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RequestOp "requestRange" (RangeRequest)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RequestOp'request+ (\ x__ y__ -> x__{_RequestOp'request = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (RequestOp'RequestRange x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap RequestOp'RequestRange y__))+ (Data.ProtoLens.maybeLens Data.Default.Class.def))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RequestOp "maybe'requestPut"+ (Prelude.Maybe PutRequest)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RequestOp'request+ (\ x__ y__ -> x__{_RequestOp'request = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (RequestOp'RequestPut x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap RequestOp'RequestPut y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RequestOp "requestPut" (PutRequest)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RequestOp'request+ (\ x__ y__ -> x__{_RequestOp'request = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (RequestOp'RequestPut x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap RequestOp'RequestPut y__))+ (Data.ProtoLens.maybeLens Data.Default.Class.def))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RequestOp "maybe'requestDeleteRange"+ (Prelude.Maybe DeleteRangeRequest)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RequestOp'request+ (\ x__ y__ -> x__{_RequestOp'request = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (RequestOp'RequestDeleteRange x__val) -> Prelude.Just+ x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap RequestOp'RequestDeleteRange y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RequestOp "requestDeleteRange"+ (DeleteRangeRequest)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RequestOp'request+ (\ x__ y__ -> x__{_RequestOp'request = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (RequestOp'RequestDeleteRange x__val) -> Prelude.Just+ x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap RequestOp'RequestDeleteRange y__))+ (Data.ProtoLens.maybeLens Data.Default.Class.def))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RequestOp "maybe'requestTxn"+ (Prelude.Maybe TxnRequest)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RequestOp'request+ (\ x__ y__ -> x__{_RequestOp'request = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (RequestOp'RequestTxn x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap RequestOp'RequestTxn y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f RequestOp "requestTxn" (TxnRequest)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _RequestOp'request+ (\ x__ y__ -> x__{_RequestOp'request = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (RequestOp'RequestTxn x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap RequestOp'RequestTxn y__))+ (Data.ProtoLens.maybeLens Data.Default.Class.def))+instance Data.Default.Class.Default RequestOp where+ def+ = RequestOp{_RequestOp'request = Prelude.Nothing,+ _RequestOp'_unknownFields = ([])}+instance Data.ProtoLens.Message RequestOp where+ messageName _ = Data.Text.pack "etcdserverpb.RequestOp"+ fieldsByTag+ = let requestRange__field_descriptor+ = Data.ProtoLens.FieldDescriptor "request_range"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor RangeRequest)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'requestRange")))+ :: Data.ProtoLens.FieldDescriptor RequestOp+ requestPut__field_descriptor+ = Data.ProtoLens.FieldDescriptor "request_put"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor PutRequest)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'requestPut")))+ :: Data.ProtoLens.FieldDescriptor RequestOp+ requestDeleteRange__field_descriptor+ = Data.ProtoLens.FieldDescriptor "request_delete_range"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor DeleteRangeRequest)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'requestDeleteRange")))+ :: Data.ProtoLens.FieldDescriptor RequestOp+ requestTxn__field_descriptor+ = Data.ProtoLens.FieldDescriptor "request_txn"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor TxnRequest)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'requestTxn")))+ :: Data.ProtoLens.FieldDescriptor RequestOp+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, requestRange__field_descriptor),+ (Data.ProtoLens.Tag 2, requestPut__field_descriptor),+ (Data.ProtoLens.Tag 3, requestDeleteRange__field_descriptor),+ (Data.ProtoLens.Tag 4, requestTxn__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _RequestOp'_unknownFields+ (\ x__ y__ -> x__{_RequestOp'_unknownFields = y__})+_RequestOp'RequestRange ::+ Lens.Labels.Prism.Prism' RequestOp'Request RangeRequest+_RequestOp'RequestRange+ = Lens.Labels.Prism.prism' RequestOp'RequestRange+ (\ p__ ->+ case p__ of+ RequestOp'RequestRange p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_RequestOp'RequestPut ::+ Lens.Labels.Prism.Prism' RequestOp'Request PutRequest+_RequestOp'RequestPut+ = Lens.Labels.Prism.prism' RequestOp'RequestPut+ (\ p__ ->+ case p__ of+ RequestOp'RequestPut p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_RequestOp'RequestDeleteRange ::+ Lens.Labels.Prism.Prism' RequestOp'Request DeleteRangeRequest+_RequestOp'RequestDeleteRange+ = Lens.Labels.Prism.prism' RequestOp'RequestDeleteRange+ (\ p__ ->+ case p__ of+ RequestOp'RequestDeleteRange p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_RequestOp'RequestTxn ::+ Lens.Labels.Prism.Prism' RequestOp'Request TxnRequest+_RequestOp'RequestTxn+ = Lens.Labels.Prism.prism' RequestOp'RequestTxn+ (\ p__ ->+ case p__ of+ RequestOp'RequestTxn p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.clusterId' @:: Lens' ResponseHeader Data.Word.Word64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.memberId' @:: Lens' ResponseHeader Data.Word.Word64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.revision' @:: Lens' ResponseHeader Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.raftTerm' @:: Lens' ResponseHeader Data.Word.Word64@+ -}+data ResponseHeader = ResponseHeader{_ResponseHeader'clusterId ::+ !Data.Word.Word64,+ _ResponseHeader'memberId :: !Data.Word.Word64,+ _ResponseHeader'revision :: !Data.Int.Int64,+ _ResponseHeader'raftTerm :: !Data.Word.Word64,+ _ResponseHeader'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f ResponseHeader x a, a ~ b) =>+ Lens.Labels.HasLens f ResponseHeader ResponseHeader x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f ResponseHeader "clusterId"+ (Data.Word.Word64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _ResponseHeader'clusterId+ (\ x__ y__ -> x__{_ResponseHeader'clusterId = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f ResponseHeader "memberId" (Data.Word.Word64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _ResponseHeader'memberId+ (\ x__ y__ -> x__{_ResponseHeader'memberId = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f ResponseHeader "revision" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _ResponseHeader'revision+ (\ x__ y__ -> x__{_ResponseHeader'revision = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f ResponseHeader "raftTerm" (Data.Word.Word64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _ResponseHeader'raftTerm+ (\ x__ y__ -> x__{_ResponseHeader'raftTerm = y__}))+ Prelude.id+instance Data.Default.Class.Default ResponseHeader where+ def+ = ResponseHeader{_ResponseHeader'clusterId =+ Data.ProtoLens.fieldDefault,+ _ResponseHeader'memberId = Data.ProtoLens.fieldDefault,+ _ResponseHeader'revision = Data.ProtoLens.fieldDefault,+ _ResponseHeader'raftTerm = Data.ProtoLens.fieldDefault,+ _ResponseHeader'_unknownFields = ([])}+instance Data.ProtoLens.Message ResponseHeader where+ messageName _ = Data.Text.pack "etcdserverpb.ResponseHeader"+ fieldsByTag+ = let clusterId__field_descriptor+ = Data.ProtoLens.FieldDescriptor "cluster_id"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "clusterId")))+ :: Data.ProtoLens.FieldDescriptor ResponseHeader+ memberId__field_descriptor+ = Data.ProtoLens.FieldDescriptor "member_id"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "memberId")))+ :: Data.ProtoLens.FieldDescriptor ResponseHeader+ revision__field_descriptor+ = Data.ProtoLens.FieldDescriptor "revision"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "revision")))+ :: Data.ProtoLens.FieldDescriptor ResponseHeader+ raftTerm__field_descriptor+ = Data.ProtoLens.FieldDescriptor "raft_term"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "raftTerm")))+ :: Data.ProtoLens.FieldDescriptor ResponseHeader+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, clusterId__field_descriptor),+ (Data.ProtoLens.Tag 2, memberId__field_descriptor),+ (Data.ProtoLens.Tag 3, revision__field_descriptor),+ (Data.ProtoLens.Tag 4, raftTerm__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _ResponseHeader'_unknownFields+ (\ x__ y__ -> x__{_ResponseHeader'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'response' @:: Lens' ResponseOp (Prelude.Maybe ResponseOp'Response)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'responseRange' @:: Lens' ResponseOp (Prelude.Maybe RangeResponse)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.responseRange' @:: Lens' ResponseOp RangeResponse@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'responsePut' @:: Lens' ResponseOp (Prelude.Maybe PutResponse)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.responsePut' @:: Lens' ResponseOp PutResponse@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'responseDeleteRange' @:: Lens' ResponseOp (Prelude.Maybe DeleteRangeResponse)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.responseDeleteRange' @:: Lens' ResponseOp DeleteRangeResponse@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'responseTxn' @:: Lens' ResponseOp (Prelude.Maybe TxnResponse)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.responseTxn' @:: Lens' ResponseOp TxnResponse@+ -}+data ResponseOp = ResponseOp{_ResponseOp'response ::+ !(Prelude.Maybe ResponseOp'Response),+ _ResponseOp'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+data ResponseOp'Response = ResponseOp'ResponseRange !RangeResponse+ | ResponseOp'ResponsePut !PutResponse+ | ResponseOp'ResponseDeleteRange !DeleteRangeResponse+ | ResponseOp'ResponseTxn !TxnResponse+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f ResponseOp x a, a ~ b) =>+ Lens.Labels.HasLens f ResponseOp ResponseOp x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f ResponseOp "maybe'response"+ (Prelude.Maybe ResponseOp'Response)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _ResponseOp'response+ (\ x__ y__ -> x__{_ResponseOp'response = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f ResponseOp "maybe'responseRange"+ (Prelude.Maybe RangeResponse)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _ResponseOp'response+ (\ x__ y__ -> x__{_ResponseOp'response = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (ResponseOp'ResponseRange x__val) -> Prelude.Just+ x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap ResponseOp'ResponseRange y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f ResponseOp "responseRange" (RangeResponse)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _ResponseOp'response+ (\ x__ y__ -> x__{_ResponseOp'response = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (ResponseOp'ResponseRange x__val) -> Prelude.Just+ x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap ResponseOp'ResponseRange y__))+ (Data.ProtoLens.maybeLens Data.Default.Class.def))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f ResponseOp "maybe'responsePut"+ (Prelude.Maybe PutResponse)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _ResponseOp'response+ (\ x__ y__ -> x__{_ResponseOp'response = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (ResponseOp'ResponsePut x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap ResponseOp'ResponsePut y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f ResponseOp "responsePut" (PutResponse)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _ResponseOp'response+ (\ x__ y__ -> x__{_ResponseOp'response = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (ResponseOp'ResponsePut x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap ResponseOp'ResponsePut y__))+ (Data.ProtoLens.maybeLens Data.Default.Class.def))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f ResponseOp "maybe'responseDeleteRange"+ (Prelude.Maybe DeleteRangeResponse)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _ResponseOp'response+ (\ x__ y__ -> x__{_ResponseOp'response = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just+ (ResponseOp'ResponseDeleteRange x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap ResponseOp'ResponseDeleteRange y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f ResponseOp "responseDeleteRange"+ (DeleteRangeResponse)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _ResponseOp'response+ (\ x__ y__ -> x__{_ResponseOp'response = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just+ (ResponseOp'ResponseDeleteRange x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap ResponseOp'ResponseDeleteRange y__))+ (Data.ProtoLens.maybeLens Data.Default.Class.def))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f ResponseOp "maybe'responseTxn"+ (Prelude.Maybe TxnResponse)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _ResponseOp'response+ (\ x__ y__ -> x__{_ResponseOp'response = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (ResponseOp'ResponseTxn x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap ResponseOp'ResponseTxn y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f ResponseOp "responseTxn" (TxnResponse)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _ResponseOp'response+ (\ x__ y__ -> x__{_ResponseOp'response = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (ResponseOp'ResponseTxn x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap ResponseOp'ResponseTxn y__))+ (Data.ProtoLens.maybeLens Data.Default.Class.def))+instance Data.Default.Class.Default ResponseOp where+ def+ = ResponseOp{_ResponseOp'response = Prelude.Nothing,+ _ResponseOp'_unknownFields = ([])}+instance Data.ProtoLens.Message ResponseOp where+ messageName _ = Data.Text.pack "etcdserverpb.ResponseOp"+ fieldsByTag+ = let responseRange__field_descriptor+ = Data.ProtoLens.FieldDescriptor "response_range"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor RangeResponse)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'responseRange")))+ :: Data.ProtoLens.FieldDescriptor ResponseOp+ responsePut__field_descriptor+ = Data.ProtoLens.FieldDescriptor "response_put"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor PutResponse)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'responsePut")))+ :: Data.ProtoLens.FieldDescriptor ResponseOp+ responseDeleteRange__field_descriptor+ = Data.ProtoLens.FieldDescriptor "response_delete_range"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor DeleteRangeResponse)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'responseDeleteRange")))+ :: Data.ProtoLens.FieldDescriptor ResponseOp+ responseTxn__field_descriptor+ = Data.ProtoLens.FieldDescriptor "response_txn"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor TxnResponse)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'responseTxn")))+ :: Data.ProtoLens.FieldDescriptor ResponseOp+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, responseRange__field_descriptor),+ (Data.ProtoLens.Tag 2, responsePut__field_descriptor),+ (Data.ProtoLens.Tag 3, responseDeleteRange__field_descriptor),+ (Data.ProtoLens.Tag 4, responseTxn__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _ResponseOp'_unknownFields+ (\ x__ y__ -> x__{_ResponseOp'_unknownFields = y__})+_ResponseOp'ResponseRange ::+ Lens.Labels.Prism.Prism' ResponseOp'Response RangeResponse+_ResponseOp'ResponseRange+ = Lens.Labels.Prism.prism' ResponseOp'ResponseRange+ (\ p__ ->+ case p__ of+ ResponseOp'ResponseRange p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_ResponseOp'ResponsePut ::+ Lens.Labels.Prism.Prism' ResponseOp'Response PutResponse+_ResponseOp'ResponsePut+ = Lens.Labels.Prism.prism' ResponseOp'ResponsePut+ (\ p__ ->+ case p__ of+ ResponseOp'ResponsePut p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_ResponseOp'ResponseDeleteRange ::+ Lens.Labels.Prism.Prism' ResponseOp'Response DeleteRangeResponse+_ResponseOp'ResponseDeleteRange+ = Lens.Labels.Prism.prism' ResponseOp'ResponseDeleteRange+ (\ p__ ->+ case p__ of+ ResponseOp'ResponseDeleteRange p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_ResponseOp'ResponseTxn ::+ Lens.Labels.Prism.Prism' ResponseOp'Response TxnResponse+_ResponseOp'ResponseTxn+ = Lens.Labels.Prism.prism' ResponseOp'ResponseTxn+ (\ p__ ->+ case p__ of+ ResponseOp'ResponseTxn p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+{- | Fields :++ -}+data SnapshotRequest = SnapshotRequest{_SnapshotRequest'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f SnapshotRequest x a, a ~ b) =>+ Lens.Labels.HasLens f SnapshotRequest SnapshotRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Data.Default.Class.Default SnapshotRequest where+ def = SnapshotRequest{_SnapshotRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message SnapshotRequest where+ messageName _ = Data.Text.pack "etcdserverpb.SnapshotRequest"+ fieldsByTag = let in Data.Map.fromList []+ unknownFields+ = Lens.Family2.Unchecked.lens _SnapshotRequest'_unknownFields+ (\ x__ y__ -> x__{_SnapshotRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' SnapshotResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' SnapshotResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.remainingBytes' @:: Lens' SnapshotResponse Data.Word.Word64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.blob' @:: Lens' SnapshotResponse Data.ByteString.ByteString@+ -}+data SnapshotResponse = SnapshotResponse{_SnapshotResponse'header+ :: !(Prelude.Maybe ResponseHeader),+ _SnapshotResponse'remainingBytes :: !Data.Word.Word64,+ _SnapshotResponse'blob :: !Data.ByteString.ByteString,+ _SnapshotResponse'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f SnapshotResponse x a, a ~ b) =>+ Lens.Labels.HasLens f SnapshotResponse SnapshotResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f SnapshotResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _SnapshotResponse'header+ (\ x__ y__ -> x__{_SnapshotResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f SnapshotResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _SnapshotResponse'header+ (\ x__ y__ -> x__{_SnapshotResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f SnapshotResponse "remainingBytes"+ (Data.Word.Word64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _SnapshotResponse'remainingBytes+ (\ x__ y__ -> x__{_SnapshotResponse'remainingBytes = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f SnapshotResponse "blob"+ (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _SnapshotResponse'blob+ (\ x__ y__ -> x__{_SnapshotResponse'blob = y__}))+ Prelude.id+instance Data.Default.Class.Default SnapshotResponse where+ def+ = SnapshotResponse{_SnapshotResponse'header = Prelude.Nothing,+ _SnapshotResponse'remainingBytes = Data.ProtoLens.fieldDefault,+ _SnapshotResponse'blob = Data.ProtoLens.fieldDefault,+ _SnapshotResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message SnapshotResponse where+ messageName _ = Data.Text.pack "etcdserverpb.SnapshotResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor SnapshotResponse+ remainingBytes__field_descriptor+ = Data.ProtoLens.FieldDescriptor "remaining_bytes"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "remainingBytes")))+ :: Data.ProtoLens.FieldDescriptor SnapshotResponse+ blob__field_descriptor+ = Data.ProtoLens.FieldDescriptor "blob"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "blob")))+ :: Data.ProtoLens.FieldDescriptor SnapshotResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, remainingBytes__field_descriptor),+ (Data.ProtoLens.Tag 3, blob__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _SnapshotResponse'_unknownFields+ (\ x__ y__ -> x__{_SnapshotResponse'_unknownFields = y__})+{- | Fields :++ -}+data StatusRequest = StatusRequest{_StatusRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f StatusRequest x a, a ~ b) =>+ Lens.Labels.HasLens f StatusRequest StatusRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Data.Default.Class.Default StatusRequest where+ def = StatusRequest{_StatusRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message StatusRequest where+ messageName _ = Data.Text.pack "etcdserverpb.StatusRequest"+ fieldsByTag = let in Data.Map.fromList []+ unknownFields+ = Lens.Family2.Unchecked.lens _StatusRequest'_unknownFields+ (\ x__ y__ -> x__{_StatusRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' StatusResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' StatusResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.version' @:: Lens' StatusResponse Data.Text.Text@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.dbSize' @:: Lens' StatusResponse Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.leader' @:: Lens' StatusResponse Data.Word.Word64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.raftIndex' @:: Lens' StatusResponse Data.Word.Word64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.raftTerm' @:: Lens' StatusResponse Data.Word.Word64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.raftAppliedIndex' @:: Lens' StatusResponse Data.Word.Word64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.errors' @:: Lens' StatusResponse [Data.Text.Text]@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.dbSizeInUse' @:: Lens' StatusResponse Data.Int.Int64@+ -}+data StatusResponse = StatusResponse{_StatusResponse'header ::+ !(Prelude.Maybe ResponseHeader),+ _StatusResponse'version :: !Data.Text.Text,+ _StatusResponse'dbSize :: !Data.Int.Int64,+ _StatusResponse'leader :: !Data.Word.Word64,+ _StatusResponse'raftIndex :: !Data.Word.Word64,+ _StatusResponse'raftTerm :: !Data.Word.Word64,+ _StatusResponse'raftAppliedIndex :: !Data.Word.Word64,+ _StatusResponse'errors :: ![Data.Text.Text],+ _StatusResponse'dbSizeInUse :: !Data.Int.Int64,+ _StatusResponse'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f StatusResponse x a, a ~ b) =>+ Lens.Labels.HasLens f StatusResponse StatusResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f StatusResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _StatusResponse'header+ (\ x__ y__ -> x__{_StatusResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f StatusResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _StatusResponse'header+ (\ x__ y__ -> x__{_StatusResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f StatusResponse "version" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _StatusResponse'version+ (\ x__ y__ -> x__{_StatusResponse'version = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f StatusResponse "dbSize" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _StatusResponse'dbSize+ (\ x__ y__ -> x__{_StatusResponse'dbSize = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f StatusResponse "leader" (Data.Word.Word64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _StatusResponse'leader+ (\ x__ y__ -> x__{_StatusResponse'leader = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f StatusResponse "raftIndex"+ (Data.Word.Word64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _StatusResponse'raftIndex+ (\ x__ y__ -> x__{_StatusResponse'raftIndex = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f StatusResponse "raftTerm" (Data.Word.Word64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _StatusResponse'raftTerm+ (\ x__ y__ -> x__{_StatusResponse'raftTerm = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f StatusResponse "raftAppliedIndex"+ (Data.Word.Word64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _StatusResponse'raftAppliedIndex+ (\ x__ y__ -> x__{_StatusResponse'raftAppliedIndex = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f StatusResponse "errors" ([Data.Text.Text])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _StatusResponse'errors+ (\ x__ y__ -> x__{_StatusResponse'errors = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f StatusResponse "dbSizeInUse"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _StatusResponse'dbSizeInUse+ (\ x__ y__ -> x__{_StatusResponse'dbSizeInUse = y__}))+ Prelude.id+instance Data.Default.Class.Default StatusResponse where+ def+ = StatusResponse{_StatusResponse'header = Prelude.Nothing,+ _StatusResponse'version = Data.ProtoLens.fieldDefault,+ _StatusResponse'dbSize = Data.ProtoLens.fieldDefault,+ _StatusResponse'leader = Data.ProtoLens.fieldDefault,+ _StatusResponse'raftIndex = Data.ProtoLens.fieldDefault,+ _StatusResponse'raftTerm = Data.ProtoLens.fieldDefault,+ _StatusResponse'raftAppliedIndex = Data.ProtoLens.fieldDefault,+ _StatusResponse'errors = [],+ _StatusResponse'dbSizeInUse = Data.ProtoLens.fieldDefault,+ _StatusResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message StatusResponse where+ messageName _ = Data.Text.pack "etcdserverpb.StatusResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor StatusResponse+ version__field_descriptor+ = Data.ProtoLens.FieldDescriptor "version"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "version")))+ :: Data.ProtoLens.FieldDescriptor StatusResponse+ dbSize__field_descriptor+ = Data.ProtoLens.FieldDescriptor "dbSize"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "dbSize")))+ :: Data.ProtoLens.FieldDescriptor StatusResponse+ leader__field_descriptor+ = Data.ProtoLens.FieldDescriptor "leader"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "leader")))+ :: Data.ProtoLens.FieldDescriptor StatusResponse+ raftIndex__field_descriptor+ = Data.ProtoLens.FieldDescriptor "raftIndex"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "raftIndex")))+ :: Data.ProtoLens.FieldDescriptor StatusResponse+ raftTerm__field_descriptor+ = Data.ProtoLens.FieldDescriptor "raftTerm"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "raftTerm")))+ :: Data.ProtoLens.FieldDescriptor StatusResponse+ raftAppliedIndex__field_descriptor+ = Data.ProtoLens.FieldDescriptor "raftAppliedIndex"+ (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "raftAppliedIndex")))+ :: Data.ProtoLens.FieldDescriptor StatusResponse+ errors__field_descriptor+ = Data.ProtoLens.FieldDescriptor "errors"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "errors")))+ :: Data.ProtoLens.FieldDescriptor StatusResponse+ dbSizeInUse__field_descriptor+ = Data.ProtoLens.FieldDescriptor "dbSizeInUse"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "dbSizeInUse")))+ :: Data.ProtoLens.FieldDescriptor StatusResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, version__field_descriptor),+ (Data.ProtoLens.Tag 3, dbSize__field_descriptor),+ (Data.ProtoLens.Tag 4, leader__field_descriptor),+ (Data.ProtoLens.Tag 5, raftIndex__field_descriptor),+ (Data.ProtoLens.Tag 6, raftTerm__field_descriptor),+ (Data.ProtoLens.Tag 7, raftAppliedIndex__field_descriptor),+ (Data.ProtoLens.Tag 8, errors__field_descriptor),+ (Data.ProtoLens.Tag 9, dbSizeInUse__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _StatusResponse'_unknownFields+ (\ x__ y__ -> x__{_StatusResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.compare' @:: Lens' TxnRequest [Compare]@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.success' @:: Lens' TxnRequest [RequestOp]@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.failure' @:: Lens' TxnRequest [RequestOp]@+ -}+data TxnRequest = TxnRequest{_TxnRequest'compare :: ![Compare],+ _TxnRequest'success :: ![RequestOp],+ _TxnRequest'failure :: ![RequestOp],+ _TxnRequest'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f TxnRequest x a, a ~ b) =>+ Lens.Labels.HasLens f TxnRequest TxnRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f TxnRequest "compare" ([Compare])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _TxnRequest'compare+ (\ x__ y__ -> x__{_TxnRequest'compare = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f TxnRequest "success" ([RequestOp])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _TxnRequest'success+ (\ x__ y__ -> x__{_TxnRequest'success = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f TxnRequest "failure" ([RequestOp])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _TxnRequest'failure+ (\ x__ y__ -> x__{_TxnRequest'failure = y__}))+ Prelude.id+instance Data.Default.Class.Default TxnRequest where+ def+ = TxnRequest{_TxnRequest'compare = [], _TxnRequest'success = [],+ _TxnRequest'failure = [], _TxnRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message TxnRequest where+ messageName _ = Data.Text.pack "etcdserverpb.TxnRequest"+ fieldsByTag+ = let compare__field_descriptor+ = Data.ProtoLens.FieldDescriptor "compare"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Compare)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "compare")))+ :: Data.ProtoLens.FieldDescriptor TxnRequest+ success__field_descriptor+ = Data.ProtoLens.FieldDescriptor "success"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor RequestOp)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "success")))+ :: Data.ProtoLens.FieldDescriptor TxnRequest+ failure__field_descriptor+ = Data.ProtoLens.FieldDescriptor "failure"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor RequestOp)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "failure")))+ :: Data.ProtoLens.FieldDescriptor TxnRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, compare__field_descriptor),+ (Data.ProtoLens.Tag 2, success__field_descriptor),+ (Data.ProtoLens.Tag 3, failure__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _TxnRequest'_unknownFields+ (\ x__ y__ -> x__{_TxnRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' TxnResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' TxnResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.succeeded' @:: Lens' TxnResponse Prelude.Bool@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.responses' @:: Lens' TxnResponse [ResponseOp]@+ -}+data TxnResponse = TxnResponse{_TxnResponse'header ::+ !(Prelude.Maybe ResponseHeader),+ _TxnResponse'succeeded :: !Prelude.Bool,+ _TxnResponse'responses :: ![ResponseOp],+ _TxnResponse'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f TxnResponse x a, a ~ b) =>+ Lens.Labels.HasLens f TxnResponse TxnResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f TxnResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _TxnResponse'header+ (\ x__ y__ -> x__{_TxnResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f TxnResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _TxnResponse'header+ (\ x__ y__ -> x__{_TxnResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f TxnResponse "succeeded" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _TxnResponse'succeeded+ (\ x__ y__ -> x__{_TxnResponse'succeeded = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f TxnResponse "responses" ([ResponseOp])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _TxnResponse'responses+ (\ x__ y__ -> x__{_TxnResponse'responses = y__}))+ Prelude.id+instance Data.Default.Class.Default TxnResponse where+ def+ = TxnResponse{_TxnResponse'header = Prelude.Nothing,+ _TxnResponse'succeeded = Data.ProtoLens.fieldDefault,+ _TxnResponse'responses = [], _TxnResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message TxnResponse where+ messageName _ = Data.Text.pack "etcdserverpb.TxnResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor TxnResponse+ succeeded__field_descriptor+ = Data.ProtoLens.FieldDescriptor "succeeded"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "succeeded")))+ :: Data.ProtoLens.FieldDescriptor TxnResponse+ responses__field_descriptor+ = Data.ProtoLens.FieldDescriptor "responses"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseOp)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "responses")))+ :: Data.ProtoLens.FieldDescriptor TxnResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, succeeded__field_descriptor),+ (Data.ProtoLens.Tag 3, responses__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _TxnResponse'_unknownFields+ (\ x__ y__ -> x__{_TxnResponse'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.watchId' @:: Lens' WatchCancelRequest Data.Int.Int64@+ -}+data WatchCancelRequest = WatchCancelRequest{_WatchCancelRequest'watchId+ :: !Data.Int.Int64,+ _WatchCancelRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f WatchCancelRequest x a, a ~ b) =>+ Lens.Labels.HasLens f WatchCancelRequest WatchCancelRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchCancelRequest "watchId"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchCancelRequest'watchId+ (\ x__ y__ -> x__{_WatchCancelRequest'watchId = y__}))+ Prelude.id+instance Data.Default.Class.Default WatchCancelRequest where+ def+ = WatchCancelRequest{_WatchCancelRequest'watchId =+ Data.ProtoLens.fieldDefault,+ _WatchCancelRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message WatchCancelRequest where+ messageName _ = Data.Text.pack "etcdserverpb.WatchCancelRequest"+ fieldsByTag+ = let watchId__field_descriptor+ = Data.ProtoLens.FieldDescriptor "watch_id"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "watchId")))+ :: Data.ProtoLens.FieldDescriptor WatchCancelRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, watchId__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _WatchCancelRequest'_unknownFields+ (\ x__ y__ -> x__{_WatchCancelRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.key' @:: Lens' WatchCreateRequest Data.ByteString.ByteString@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.rangeEnd' @:: Lens' WatchCreateRequest Data.ByteString.ByteString@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.startRevision' @:: Lens' WatchCreateRequest Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.progressNotify' @:: Lens' WatchCreateRequest Prelude.Bool@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.filters' @:: Lens' WatchCreateRequest [WatchCreateRequest'FilterType]@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.prevKv' @:: Lens' WatchCreateRequest Prelude.Bool@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.watchId' @:: Lens' WatchCreateRequest Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.fragment' @:: Lens' WatchCreateRequest Prelude.Bool@+ -}+data WatchCreateRequest = WatchCreateRequest{_WatchCreateRequest'key+ :: !Data.ByteString.ByteString,+ _WatchCreateRequest'rangeEnd ::+ !Data.ByteString.ByteString,+ _WatchCreateRequest'startRevision :: !Data.Int.Int64,+ _WatchCreateRequest'progressNotify :: !Prelude.Bool,+ _WatchCreateRequest'filters ::+ ![WatchCreateRequest'FilterType],+ _WatchCreateRequest'prevKv :: !Prelude.Bool,+ _WatchCreateRequest'watchId :: !Data.Int.Int64,+ _WatchCreateRequest'fragment :: !Prelude.Bool,+ _WatchCreateRequest'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f WatchCreateRequest x a, a ~ b) =>+ Lens.Labels.HasLens f WatchCreateRequest WatchCreateRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchCreateRequest "key"+ (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchCreateRequest'key+ (\ x__ y__ -> x__{_WatchCreateRequest'key = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchCreateRequest "rangeEnd"+ (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchCreateRequest'rangeEnd+ (\ x__ y__ -> x__{_WatchCreateRequest'rangeEnd = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchCreateRequest "startRevision"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchCreateRequest'startRevision+ (\ x__ y__ -> x__{_WatchCreateRequest'startRevision = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchCreateRequest "progressNotify"+ (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchCreateRequest'progressNotify+ (\ x__ y__ -> x__{_WatchCreateRequest'progressNotify = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchCreateRequest "filters"+ ([WatchCreateRequest'FilterType])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchCreateRequest'filters+ (\ x__ y__ -> x__{_WatchCreateRequest'filters = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchCreateRequest "prevKv" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchCreateRequest'prevKv+ (\ x__ y__ -> x__{_WatchCreateRequest'prevKv = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchCreateRequest "watchId"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchCreateRequest'watchId+ (\ x__ y__ -> x__{_WatchCreateRequest'watchId = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchCreateRequest "fragment" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchCreateRequest'fragment+ (\ x__ y__ -> x__{_WatchCreateRequest'fragment = y__}))+ Prelude.id+instance Data.Default.Class.Default WatchCreateRequest where+ def+ = WatchCreateRequest{_WatchCreateRequest'key =+ Data.ProtoLens.fieldDefault,+ _WatchCreateRequest'rangeEnd = Data.ProtoLens.fieldDefault,+ _WatchCreateRequest'startRevision = Data.ProtoLens.fieldDefault,+ _WatchCreateRequest'progressNotify = Data.ProtoLens.fieldDefault,+ _WatchCreateRequest'filters = [],+ _WatchCreateRequest'prevKv = Data.ProtoLens.fieldDefault,+ _WatchCreateRequest'watchId = Data.ProtoLens.fieldDefault,+ _WatchCreateRequest'fragment = Data.ProtoLens.fieldDefault,+ _WatchCreateRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message WatchCreateRequest where+ messageName _ = Data.Text.pack "etcdserverpb.WatchCreateRequest"+ fieldsByTag+ = let key__field_descriptor+ = Data.ProtoLens.FieldDescriptor "key"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key")))+ :: Data.ProtoLens.FieldDescriptor WatchCreateRequest+ rangeEnd__field_descriptor+ = Data.ProtoLens.FieldDescriptor "range_end"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rangeEnd")))+ :: Data.ProtoLens.FieldDescriptor WatchCreateRequest+ startRevision__field_descriptor+ = Data.ProtoLens.FieldDescriptor "start_revision"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "startRevision")))+ :: Data.ProtoLens.FieldDescriptor WatchCreateRequest+ progressNotify__field_descriptor+ = Data.ProtoLens.FieldDescriptor "progress_notify"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "progressNotify")))+ :: Data.ProtoLens.FieldDescriptor WatchCreateRequest+ filters__field_descriptor+ = Data.ProtoLens.FieldDescriptor "filters"+ (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::+ Data.ProtoLens.FieldTypeDescriptor WatchCreateRequest'FilterType)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "filters")))+ :: Data.ProtoLens.FieldDescriptor WatchCreateRequest+ prevKv__field_descriptor+ = Data.ProtoLens.FieldDescriptor "prev_kv"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "prevKv")))+ :: Data.ProtoLens.FieldDescriptor WatchCreateRequest+ watchId__field_descriptor+ = Data.ProtoLens.FieldDescriptor "watch_id"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "watchId")))+ :: Data.ProtoLens.FieldDescriptor WatchCreateRequest+ fragment__field_descriptor+ = Data.ProtoLens.FieldDescriptor "fragment"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "fragment")))+ :: Data.ProtoLens.FieldDescriptor WatchCreateRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, key__field_descriptor),+ (Data.ProtoLens.Tag 2, rangeEnd__field_descriptor),+ (Data.ProtoLens.Tag 3, startRevision__field_descriptor),+ (Data.ProtoLens.Tag 4, progressNotify__field_descriptor),+ (Data.ProtoLens.Tag 5, filters__field_descriptor),+ (Data.ProtoLens.Tag 6, prevKv__field_descriptor),+ (Data.ProtoLens.Tag 7, watchId__field_descriptor),+ (Data.ProtoLens.Tag 8, fragment__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _WatchCreateRequest'_unknownFields+ (\ x__ y__ -> x__{_WatchCreateRequest'_unknownFields = y__})+data WatchCreateRequest'FilterType = WatchCreateRequest'NOPUT+ | WatchCreateRequest'NODELETE+ | WatchCreateRequest'FilterType'Unrecognized !WatchCreateRequest'FilterType'UnrecognizedValue+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+newtype WatchCreateRequest'FilterType'UnrecognizedValue = WatchCreateRequest'FilterType'UnrecognizedValue Data.Int.Int32+ deriving (Prelude.Eq, Prelude.Ord,+ Prelude.Show)+instance Data.ProtoLens.MessageEnum WatchCreateRequest'FilterType+ where+ maybeToEnum 0 = Prelude.Just WatchCreateRequest'NOPUT+ maybeToEnum 1 = Prelude.Just WatchCreateRequest'NODELETE+ maybeToEnum k+ = Prelude.Just+ (WatchCreateRequest'FilterType'Unrecognized+ (WatchCreateRequest'FilterType'UnrecognizedValue+ (Prelude.fromIntegral k)))+ showEnum WatchCreateRequest'NOPUT = "NOPUT"+ showEnum WatchCreateRequest'NODELETE = "NODELETE"+ showEnum+ (WatchCreateRequest'FilterType'Unrecognized+ (WatchCreateRequest'FilterType'UnrecognizedValue k))+ = Prelude.show k+ readEnum "NOPUT" = Prelude.Just WatchCreateRequest'NOPUT+ readEnum "NODELETE" = Prelude.Just WatchCreateRequest'NODELETE+ readEnum k+ = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum+instance Prelude.Bounded WatchCreateRequest'FilterType where+ minBound = WatchCreateRequest'NOPUT+ maxBound = WatchCreateRequest'NODELETE+instance Prelude.Enum WatchCreateRequest'FilterType where+ toEnum k__+ = Prelude.maybe+ (Prelude.error+ ((Prelude.++) "toEnum: unknown value for enum FilterType: "+ (Prelude.show k__)))+ Prelude.id+ (Data.ProtoLens.maybeToEnum k__)+ fromEnum WatchCreateRequest'NOPUT = 0+ fromEnum WatchCreateRequest'NODELETE = 1+ fromEnum+ (WatchCreateRequest'FilterType'Unrecognized+ (WatchCreateRequest'FilterType'UnrecognizedValue k))+ = Prelude.fromIntegral k+ succ WatchCreateRequest'NODELETE+ = Prelude.error+ "WatchCreateRequest'FilterType.succ: bad argument WatchCreateRequest'NODELETE. This value would be out of bounds."+ succ WatchCreateRequest'NOPUT = WatchCreateRequest'NODELETE+ succ _+ = Prelude.error+ "WatchCreateRequest'FilterType.succ: bad argument: unrecognized value"+ pred WatchCreateRequest'NOPUT+ = Prelude.error+ "WatchCreateRequest'FilterType.pred: bad argument WatchCreateRequest'NOPUT. This value would be out of bounds."+ pred WatchCreateRequest'NODELETE = WatchCreateRequest'NOPUT+ pred _+ = Prelude.error+ "WatchCreateRequest'FilterType.pred: bad argument: unrecognized value"+ enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom+ enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo+ enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen+ enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo+instance Data.Default.Class.Default WatchCreateRequest'FilterType+ where+ def = WatchCreateRequest'NOPUT+instance Data.ProtoLens.FieldDefault WatchCreateRequest'FilterType+ where+ fieldDefault = WatchCreateRequest'NOPUT+{- | Fields :++ -}+data WatchProgressRequest = WatchProgressRequest{_WatchProgressRequest'_unknownFields+ :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f WatchProgressRequest x a,+ a ~ b) =>+ Lens.Labels.HasLens f WatchProgressRequest WatchProgressRequest x a+ b+ where+ lensOf = Lens.Labels.lensOf'+instance Data.Default.Class.Default WatchProgressRequest where+ def+ = WatchProgressRequest{_WatchProgressRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message WatchProgressRequest where+ messageName _ = Data.Text.pack "etcdserverpb.WatchProgressRequest"+ fieldsByTag = let in Data.Map.fromList []+ unknownFields+ = Lens.Family2.Unchecked.lens _WatchProgressRequest'_unknownFields+ (\ x__ y__ -> x__{_WatchProgressRequest'_unknownFields = y__})+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'requestUnion' @:: Lens' WatchRequest (Prelude.Maybe WatchRequest'RequestUnion)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'createRequest' @:: Lens' WatchRequest (Prelude.Maybe WatchCreateRequest)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.createRequest' @:: Lens' WatchRequest WatchCreateRequest@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'cancelRequest' @:: Lens' WatchRequest (Prelude.Maybe WatchCancelRequest)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.cancelRequest' @:: Lens' WatchRequest WatchCancelRequest@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'progressRequest' @:: Lens' WatchRequest (Prelude.Maybe WatchProgressRequest)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.progressRequest' @:: Lens' WatchRequest WatchProgressRequest@+ -}+data WatchRequest = WatchRequest{_WatchRequest'requestUnion ::+ !(Prelude.Maybe WatchRequest'RequestUnion),+ _WatchRequest'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+data WatchRequest'RequestUnion = WatchRequest'CreateRequest !WatchCreateRequest+ | WatchRequest'CancelRequest !WatchCancelRequest+ | WatchRequest'ProgressRequest !WatchProgressRequest+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f WatchRequest x a, a ~ b) =>+ Lens.Labels.HasLens f WatchRequest WatchRequest x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchRequest "maybe'requestUnion"+ (Prelude.Maybe WatchRequest'RequestUnion)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchRequest'requestUnion+ (\ x__ y__ -> x__{_WatchRequest'requestUnion = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchRequest "maybe'createRequest"+ (Prelude.Maybe WatchCreateRequest)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchRequest'requestUnion+ (\ x__ y__ -> x__{_WatchRequest'requestUnion = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (WatchRequest'CreateRequest x__val) -> Prelude.Just+ x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap WatchRequest'CreateRequest y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchRequest "createRequest"+ (WatchCreateRequest)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchRequest'requestUnion+ (\ x__ y__ -> x__{_WatchRequest'requestUnion = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (WatchRequest'CreateRequest x__val) -> Prelude.Just+ x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap WatchRequest'CreateRequest y__))+ (Data.ProtoLens.maybeLens Data.Default.Class.def))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchRequest "maybe'cancelRequest"+ (Prelude.Maybe WatchCancelRequest)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchRequest'requestUnion+ (\ x__ y__ -> x__{_WatchRequest'requestUnion = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (WatchRequest'CancelRequest x__val) -> Prelude.Just+ x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap WatchRequest'CancelRequest y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchRequest "cancelRequest"+ (WatchCancelRequest)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchRequest'requestUnion+ (\ x__ y__ -> x__{_WatchRequest'requestUnion = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (WatchRequest'CancelRequest x__val) -> Prelude.Just+ x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap WatchRequest'CancelRequest y__))+ (Data.ProtoLens.maybeLens Data.Default.Class.def))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchRequest "maybe'progressRequest"+ (Prelude.Maybe WatchProgressRequest)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchRequest'requestUnion+ (\ x__ y__ -> x__{_WatchRequest'requestUnion = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (WatchRequest'ProgressRequest x__val) -> Prelude.Just+ x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap WatchRequest'ProgressRequest y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchRequest "progressRequest"+ (WatchProgressRequest)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchRequest'requestUnion+ (\ x__ y__ -> x__{_WatchRequest'requestUnion = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (WatchRequest'ProgressRequest x__val) -> Prelude.Just+ x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap WatchRequest'ProgressRequest y__))+ (Data.ProtoLens.maybeLens Data.Default.Class.def))+instance Data.Default.Class.Default WatchRequest where+ def+ = WatchRequest{_WatchRequest'requestUnion = Prelude.Nothing,+ _WatchRequest'_unknownFields = ([])}+instance Data.ProtoLens.Message WatchRequest where+ messageName _ = Data.Text.pack "etcdserverpb.WatchRequest"+ fieldsByTag+ = let createRequest__field_descriptor+ = Data.ProtoLens.FieldDescriptor "create_request"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor WatchCreateRequest)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'createRequest")))+ :: Data.ProtoLens.FieldDescriptor WatchRequest+ cancelRequest__field_descriptor+ = Data.ProtoLens.FieldDescriptor "cancel_request"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor WatchCancelRequest)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'cancelRequest")))+ :: Data.ProtoLens.FieldDescriptor WatchRequest+ progressRequest__field_descriptor+ = Data.ProtoLens.FieldDescriptor "progress_request"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor WatchProgressRequest)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'progressRequest")))+ :: Data.ProtoLens.FieldDescriptor WatchRequest+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, createRequest__field_descriptor),+ (Data.ProtoLens.Tag 2, cancelRequest__field_descriptor),+ (Data.ProtoLens.Tag 3, progressRequest__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _WatchRequest'_unknownFields+ (\ x__ y__ -> x__{_WatchRequest'_unknownFields = y__})+_WatchRequest'CreateRequest ::+ Lens.Labels.Prism.Prism' WatchRequest'RequestUnion+ WatchCreateRequest+_WatchRequest'CreateRequest+ = Lens.Labels.Prism.prism' WatchRequest'CreateRequest+ (\ p__ ->+ case p__ of+ WatchRequest'CreateRequest p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_WatchRequest'CancelRequest ::+ Lens.Labels.Prism.Prism' WatchRequest'RequestUnion+ WatchCancelRequest+_WatchRequest'CancelRequest+ = Lens.Labels.Prism.prism' WatchRequest'CancelRequest+ (\ p__ ->+ case p__ of+ WatchRequest'CancelRequest p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_WatchRequest'ProgressRequest ::+ Lens.Labels.Prism.Prism' WatchRequest'RequestUnion+ WatchProgressRequest+_WatchRequest'ProgressRequest+ = Lens.Labels.Prism.prism' WatchRequest'ProgressRequest+ (\ p__ ->+ case p__ of+ WatchRequest'ProgressRequest p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+{- | Fields :++ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.header' @:: Lens' WatchResponse ResponseHeader@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.maybe'header' @:: Lens' WatchResponse (Prelude.Maybe ResponseHeader)@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.watchId' @:: Lens' WatchResponse Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.created' @:: Lens' WatchResponse Prelude.Bool@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.canceled' @:: Lens' WatchResponse Prelude.Bool@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.compactRevision' @:: Lens' WatchResponse Data.Int.Int64@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.cancelReason' @:: Lens' WatchResponse Data.Text.Text@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.fragment' @:: Lens' WatchResponse Prelude.Bool@+ * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.events' @:: Lens' WatchResponse [Proto.Etcd.Mvcc.Mvccpb.Kv.Event]@+ -}+data WatchResponse = WatchResponse{_WatchResponse'header ::+ !(Prelude.Maybe ResponseHeader),+ _WatchResponse'watchId :: !Data.Int.Int64,+ _WatchResponse'created :: !Prelude.Bool,+ _WatchResponse'canceled :: !Prelude.Bool,+ _WatchResponse'compactRevision :: !Data.Int.Int64,+ _WatchResponse'cancelReason :: !Data.Text.Text,+ _WatchResponse'fragment :: !Prelude.Bool,+ _WatchResponse'events :: ![Proto.Etcd.Mvcc.Mvccpb.Kv.Event],+ _WatchResponse'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f WatchResponse x a, a ~ b) =>+ Lens.Labels.HasLens f WatchResponse WatchResponse x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchResponse "header" (ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchResponse'header+ (\ x__ y__ -> x__{_WatchResponse'header = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchResponse "maybe'header"+ (Prelude.Maybe ResponseHeader)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchResponse'header+ (\ x__ y__ -> x__{_WatchResponse'header = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchResponse "watchId" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchResponse'watchId+ (\ x__ y__ -> x__{_WatchResponse'watchId = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchResponse "created" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchResponse'created+ (\ x__ y__ -> x__{_WatchResponse'created = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchResponse "canceled" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchResponse'canceled+ (\ x__ y__ -> x__{_WatchResponse'canceled = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchResponse "compactRevision"+ (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchResponse'compactRevision+ (\ x__ y__ -> x__{_WatchResponse'compactRevision = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchResponse "cancelReason"+ (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchResponse'cancelReason+ (\ x__ y__ -> x__{_WatchResponse'cancelReason = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchResponse "fragment" (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchResponse'fragment+ (\ x__ y__ -> x__{_WatchResponse'fragment = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f WatchResponse "events"+ ([Proto.Etcd.Mvcc.Mvccpb.Kv.Event])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _WatchResponse'events+ (\ x__ y__ -> x__{_WatchResponse'events = y__}))+ Prelude.id+instance Data.Default.Class.Default WatchResponse where+ def+ = WatchResponse{_WatchResponse'header = Prelude.Nothing,+ _WatchResponse'watchId = Data.ProtoLens.fieldDefault,+ _WatchResponse'created = Data.ProtoLens.fieldDefault,+ _WatchResponse'canceled = Data.ProtoLens.fieldDefault,+ _WatchResponse'compactRevision = Data.ProtoLens.fieldDefault,+ _WatchResponse'cancelReason = Data.ProtoLens.fieldDefault,+ _WatchResponse'fragment = Data.ProtoLens.fieldDefault,+ _WatchResponse'events = [], _WatchResponse'_unknownFields = ([])}+instance Data.ProtoLens.Message WatchResponse where+ messageName _ = Data.Text.pack "etcdserverpb.WatchResponse"+ fieldsByTag+ = let header__field_descriptor+ = Data.ProtoLens.FieldDescriptor "header"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor ResponseHeader)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")))+ :: Data.ProtoLens.FieldDescriptor WatchResponse+ watchId__field_descriptor+ = Data.ProtoLens.FieldDescriptor "watch_id"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "watchId")))+ :: Data.ProtoLens.FieldDescriptor WatchResponse+ created__field_descriptor+ = Data.ProtoLens.FieldDescriptor "created"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "created")))+ :: Data.ProtoLens.FieldDescriptor WatchResponse+ canceled__field_descriptor+ = Data.ProtoLens.FieldDescriptor "canceled"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "canceled")))+ :: Data.ProtoLens.FieldDescriptor WatchResponse+ compactRevision__field_descriptor+ = Data.ProtoLens.FieldDescriptor "compact_revision"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "compactRevision")))+ :: Data.ProtoLens.FieldDescriptor WatchResponse+ cancelReason__field_descriptor+ = Data.ProtoLens.FieldDescriptor "cancel_reason"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "cancelReason")))+ :: Data.ProtoLens.FieldDescriptor WatchResponse+ fragment__field_descriptor+ = Data.ProtoLens.FieldDescriptor "fragment"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "fragment")))+ :: Data.ProtoLens.FieldDescriptor WatchResponse+ events__field_descriptor+ = Data.ProtoLens.FieldDescriptor "events"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor Proto.Etcd.Mvcc.Mvccpb.Kv.Event)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "events")))+ :: Data.ProtoLens.FieldDescriptor WatchResponse+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, header__field_descriptor),+ (Data.ProtoLens.Tag 2, watchId__field_descriptor),+ (Data.ProtoLens.Tag 3, created__field_descriptor),+ (Data.ProtoLens.Tag 4, canceled__field_descriptor),+ (Data.ProtoLens.Tag 5, compactRevision__field_descriptor),+ (Data.ProtoLens.Tag 6, cancelReason__field_descriptor),+ (Data.ProtoLens.Tag 7, fragment__field_descriptor),+ (Data.ProtoLens.Tag 11, events__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _WatchResponse'_unknownFields+ (\ x__ y__ -> x__{_WatchResponse'_unknownFields = y__})+data KV = KV{}+ deriving ()+instance Data.ProtoLens.Service.Types.Service KV where+ type ServiceName KV = "KV"+ type ServicePackage KV = "etcdserverpb"+ type ServiceMethods KV =+ '["compact", "deleteRange", "put", "range", "txn"]+instance Data.ProtoLens.Service.Types.HasMethodImpl KV "range"+ where+ type MethodName KV "range" = "Range"+ type MethodInput KV "range" = RangeRequest+ type MethodOutput KV "range" = RangeResponse+ type MethodStreamingType KV "range" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl KV "put" where+ type MethodName KV "put" = "Put"+ type MethodInput KV "put" = PutRequest+ type MethodOutput KV "put" = PutResponse+ type MethodStreamingType KV "put" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl KV+ "deleteRange"+ where+ type MethodName KV "deleteRange" = "DeleteRange"+ type MethodInput KV "deleteRange" = DeleteRangeRequest+ type MethodOutput KV "deleteRange" = DeleteRangeResponse+ type MethodStreamingType KV "deleteRange" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl KV "txn" where+ type MethodName KV "txn" = "Txn"+ type MethodInput KV "txn" = TxnRequest+ type MethodOutput KV "txn" = TxnResponse+ type MethodStreamingType KV "txn" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl KV "compact"+ where+ type MethodName KV "compact" = "Compact"+ type MethodInput KV "compact" = CompactionRequest+ type MethodOutput KV "compact" = CompactionResponse+ type MethodStreamingType KV "compact" =+ 'Data.ProtoLens.Service.Types.NonStreaming+data Watch = Watch{}+ deriving ()+instance Data.ProtoLens.Service.Types.Service Watch where+ type ServiceName Watch = "Watch"+ type ServicePackage Watch = "etcdserverpb"+ type ServiceMethods Watch = '["watch"]+instance Data.ProtoLens.Service.Types.HasMethodImpl Watch "watch"+ where+ type MethodName Watch "watch" = "Watch"+ type MethodInput Watch "watch" = WatchRequest+ type MethodOutput Watch "watch" = WatchResponse+ type MethodStreamingType Watch "watch" =+ 'Data.ProtoLens.Service.Types.BiDiStreaming+data Lease = Lease{}+ deriving ()+instance Data.ProtoLens.Service.Types.Service Lease where+ type ServiceName Lease = "Lease"+ type ServicePackage Lease = "etcdserverpb"+ type ServiceMethods Lease =+ '["leaseGrant", "leaseKeepAlive", "leaseLeases", "leaseRevoke",+ "leaseTimeToLive"]+instance Data.ProtoLens.Service.Types.HasMethodImpl Lease+ "leaseGrant"+ where+ type MethodName Lease "leaseGrant" = "LeaseGrant"+ type MethodInput Lease "leaseGrant" = LeaseGrantRequest+ type MethodOutput Lease "leaseGrant" = LeaseGrantResponse+ type MethodStreamingType Lease "leaseGrant" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Lease+ "leaseRevoke"+ where+ type MethodName Lease "leaseRevoke" = "LeaseRevoke"+ type MethodInput Lease "leaseRevoke" = LeaseRevokeRequest+ type MethodOutput Lease "leaseRevoke" = LeaseRevokeResponse+ type MethodStreamingType Lease "leaseRevoke" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Lease+ "leaseKeepAlive"+ where+ type MethodName Lease "leaseKeepAlive" = "LeaseKeepAlive"+ type MethodInput Lease "leaseKeepAlive" = LeaseKeepAliveRequest+ type MethodOutput Lease "leaseKeepAlive" = LeaseKeepAliveResponse+ type MethodStreamingType Lease "leaseKeepAlive" =+ 'Data.ProtoLens.Service.Types.BiDiStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Lease+ "leaseTimeToLive"+ where+ type MethodName Lease "leaseTimeToLive" = "LeaseTimeToLive"+ type MethodInput Lease "leaseTimeToLive" = LeaseTimeToLiveRequest+ type MethodOutput Lease "leaseTimeToLive" = LeaseTimeToLiveResponse+ type MethodStreamingType Lease "leaseTimeToLive" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Lease+ "leaseLeases"+ where+ type MethodName Lease "leaseLeases" = "LeaseLeases"+ type MethodInput Lease "leaseLeases" = LeaseLeasesRequest+ type MethodOutput Lease "leaseLeases" = LeaseLeasesResponse+ type MethodStreamingType Lease "leaseLeases" =+ 'Data.ProtoLens.Service.Types.NonStreaming+data Cluster = Cluster{}+ deriving ()+instance Data.ProtoLens.Service.Types.Service Cluster where+ type ServiceName Cluster = "Cluster"+ type ServicePackage Cluster = "etcdserverpb"+ type ServiceMethods Cluster =+ '["memberAdd", "memberList", "memberRemove", "memberUpdate"]+instance Data.ProtoLens.Service.Types.HasMethodImpl Cluster+ "memberAdd"+ where+ type MethodName Cluster "memberAdd" = "MemberAdd"+ type MethodInput Cluster "memberAdd" = MemberAddRequest+ type MethodOutput Cluster "memberAdd" = MemberAddResponse+ type MethodStreamingType Cluster "memberAdd" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Cluster+ "memberRemove"+ where+ type MethodName Cluster "memberRemove" = "MemberRemove"+ type MethodInput Cluster "memberRemove" = MemberRemoveRequest+ type MethodOutput Cluster "memberRemove" = MemberRemoveResponse+ type MethodStreamingType Cluster "memberRemove" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Cluster+ "memberUpdate"+ where+ type MethodName Cluster "memberUpdate" = "MemberUpdate"+ type MethodInput Cluster "memberUpdate" = MemberUpdateRequest+ type MethodOutput Cluster "memberUpdate" = MemberUpdateResponse+ type MethodStreamingType Cluster "memberUpdate" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Cluster+ "memberList"+ where+ type MethodName Cluster "memberList" = "MemberList"+ type MethodInput Cluster "memberList" = MemberListRequest+ type MethodOutput Cluster "memberList" = MemberListResponse+ type MethodStreamingType Cluster "memberList" =+ 'Data.ProtoLens.Service.Types.NonStreaming+data Maintenance = Maintenance{}+ deriving ()+instance Data.ProtoLens.Service.Types.Service Maintenance where+ type ServiceName Maintenance = "Maintenance"+ type ServicePackage Maintenance = "etcdserverpb"+ type ServiceMethods Maintenance =+ '["alarm", "defragment", "hash", "hashKV", "moveLeader",+ "snapshot", "status"]+instance Data.ProtoLens.Service.Types.HasMethodImpl Maintenance+ "alarm"+ where+ type MethodName Maintenance "alarm" = "Alarm"+ type MethodInput Maintenance "alarm" = AlarmRequest+ type MethodOutput Maintenance "alarm" = AlarmResponse+ type MethodStreamingType Maintenance "alarm" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Maintenance+ "status"+ where+ type MethodName Maintenance "status" = "Status"+ type MethodInput Maintenance "status" = StatusRequest+ type MethodOutput Maintenance "status" = StatusResponse+ type MethodStreamingType Maintenance "status" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Maintenance+ "defragment"+ where+ type MethodName Maintenance "defragment" = "Defragment"+ type MethodInput Maintenance "defragment" = DefragmentRequest+ type MethodOutput Maintenance "defragment" = DefragmentResponse+ type MethodStreamingType Maintenance "defragment" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Maintenance+ "hash"+ where+ type MethodName Maintenance "hash" = "Hash"+ type MethodInput Maintenance "hash" = HashRequest+ type MethodOutput Maintenance "hash" = HashResponse+ type MethodStreamingType Maintenance "hash" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Maintenance+ "hashKV"+ where+ type MethodName Maintenance "hashKV" = "HashKV"+ type MethodInput Maintenance "hashKV" = HashKVRequest+ type MethodOutput Maintenance "hashKV" = HashKVResponse+ type MethodStreamingType Maintenance "hashKV" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Maintenance+ "snapshot"+ where+ type MethodName Maintenance "snapshot" = "Snapshot"+ type MethodInput Maintenance "snapshot" = SnapshotRequest+ type MethodOutput Maintenance "snapshot" = SnapshotResponse+ type MethodStreamingType Maintenance "snapshot" =+ 'Data.ProtoLens.Service.Types.ServerStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Maintenance+ "moveLeader"+ where+ type MethodName Maintenance "moveLeader" = "MoveLeader"+ type MethodInput Maintenance "moveLeader" = MoveLeaderRequest+ type MethodOutput Maintenance "moveLeader" = MoveLeaderResponse+ type MethodStreamingType Maintenance "moveLeader" =+ 'Data.ProtoLens.Service.Types.NonStreaming+data Auth = Auth{}+ deriving ()+instance Data.ProtoLens.Service.Types.Service Auth where+ type ServiceName Auth = "Auth"+ type ServicePackage Auth = "etcdserverpb"+ type ServiceMethods Auth =+ '["authDisable", "authEnable", "authenticate", "roleAdd",+ "roleDelete", "roleGet", "roleGrantPermission", "roleList",+ "roleRevokePermission", "userAdd", "userChangePassword",+ "userDelete", "userGet", "userGrantRole", "userList",+ "userRevokeRole"]+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth+ "authEnable"+ where+ type MethodName Auth "authEnable" = "AuthEnable"+ type MethodInput Auth "authEnable" = AuthEnableRequest+ type MethodOutput Auth "authEnable" = AuthEnableResponse+ type MethodStreamingType Auth "authEnable" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth+ "authDisable"+ where+ type MethodName Auth "authDisable" = "AuthDisable"+ type MethodInput Auth "authDisable" = AuthDisableRequest+ type MethodOutput Auth "authDisable" = AuthDisableResponse+ type MethodStreamingType Auth "authDisable" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth+ "authenticate"+ where+ type MethodName Auth "authenticate" = "Authenticate"+ type MethodInput Auth "authenticate" = AuthenticateRequest+ type MethodOutput Auth "authenticate" = AuthenticateResponse+ type MethodStreamingType Auth "authenticate" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "userAdd"+ where+ type MethodName Auth "userAdd" = "UserAdd"+ type MethodInput Auth "userAdd" = AuthUserAddRequest+ type MethodOutput Auth "userAdd" = AuthUserAddResponse+ type MethodStreamingType Auth "userAdd" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "userGet"+ where+ type MethodName Auth "userGet" = "UserGet"+ type MethodInput Auth "userGet" = AuthUserGetRequest+ type MethodOutput Auth "userGet" = AuthUserGetResponse+ type MethodStreamingType Auth "userGet" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "userList"+ where+ type MethodName Auth "userList" = "UserList"+ type MethodInput Auth "userList" = AuthUserListRequest+ type MethodOutput Auth "userList" = AuthUserListResponse+ type MethodStreamingType Auth "userList" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth+ "userDelete"+ where+ type MethodName Auth "userDelete" = "UserDelete"+ type MethodInput Auth "userDelete" = AuthUserDeleteRequest+ type MethodOutput Auth "userDelete" = AuthUserDeleteResponse+ type MethodStreamingType Auth "userDelete" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth+ "userChangePassword"+ where+ type MethodName Auth "userChangePassword" = "UserChangePassword"+ type MethodInput Auth "userChangePassword" =+ AuthUserChangePasswordRequest+ type MethodOutput Auth "userChangePassword" =+ AuthUserChangePasswordResponse+ type MethodStreamingType Auth "userChangePassword" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth+ "userGrantRole"+ where+ type MethodName Auth "userGrantRole" = "UserGrantRole"+ type MethodInput Auth "userGrantRole" = AuthUserGrantRoleRequest+ type MethodOutput Auth "userGrantRole" = AuthUserGrantRoleResponse+ type MethodStreamingType Auth "userGrantRole" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth+ "userRevokeRole"+ where+ type MethodName Auth "userRevokeRole" = "UserRevokeRole"+ type MethodInput Auth "userRevokeRole" = AuthUserRevokeRoleRequest+ type MethodOutput Auth "userRevokeRole" =+ AuthUserRevokeRoleResponse+ type MethodStreamingType Auth "userRevokeRole" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "roleAdd"+ where+ type MethodName Auth "roleAdd" = "RoleAdd"+ type MethodInput Auth "roleAdd" = AuthRoleAddRequest+ type MethodOutput Auth "roleAdd" = AuthRoleAddResponse+ type MethodStreamingType Auth "roleAdd" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "roleGet"+ where+ type MethodName Auth "roleGet" = "RoleGet"+ type MethodInput Auth "roleGet" = AuthRoleGetRequest+ type MethodOutput Auth "roleGet" = AuthRoleGetResponse+ type MethodStreamingType Auth "roleGet" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth "roleList"+ where+ type MethodName Auth "roleList" = "RoleList"+ type MethodInput Auth "roleList" = AuthRoleListRequest+ type MethodOutput Auth "roleList" = AuthRoleListResponse+ type MethodStreamingType Auth "roleList" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth+ "roleDelete"+ where+ type MethodName Auth "roleDelete" = "RoleDelete"+ type MethodInput Auth "roleDelete" = AuthRoleDeleteRequest+ type MethodOutput Auth "roleDelete" = AuthRoleDeleteResponse+ type MethodStreamingType Auth "roleDelete" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth+ "roleGrantPermission"+ where+ type MethodName Auth "roleGrantPermission" = "RoleGrantPermission"+ type MethodInput Auth "roleGrantPermission" =+ AuthRoleGrantPermissionRequest+ type MethodOutput Auth "roleGrantPermission" =+ AuthRoleGrantPermissionResponse+ type MethodStreamingType Auth "roleGrantPermission" =+ 'Data.ProtoLens.Service.Types.NonStreaming+instance Data.ProtoLens.Service.Types.HasMethodImpl Auth+ "roleRevokePermission"+ where+ type MethodName Auth "roleRevokePermission" =+ "RoleRevokePermission"+ type MethodInput Auth "roleRevokePermission" =+ AuthRoleRevokePermissionRequest+ type MethodOutput Auth "roleRevokePermission" =+ AuthRoleRevokePermissionResponse+ type MethodStreamingType Auth "roleRevokePermission" =+ 'Data.ProtoLens.Service.Types.NonStreaming
+ gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc_Fields.hs view
@@ -0,0 +1,789 @@+{- This file was auto-generated from etcd/etcdserver/etcdserverpb/rpc.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+ UndecidableInstances, GeneralizedNewtypeDeriving,+ MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,+ PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}+module Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields where+import qualified Data.ProtoLens.Reexport.Prelude as Prelude+import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int+import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word+import qualified Data.ProtoLens.Reexport.Data.ProtoLens+ as Data.ProtoLens+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum+ as Data.ProtoLens.Message.Enum+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types+ as Data.ProtoLens.Service.Types+import qualified Data.ProtoLens.Reexport.Lens.Family2+ as Lens.Family2+import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked+ as Lens.Family2.Unchecked+import qualified Data.ProtoLens.Reexport.Data.Default.Class+ as Data.Default.Class+import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text+import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map+import qualified Data.ProtoLens.Reexport.Data.ByteString+ as Data.ByteString+import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8+ as Data.ByteString.Char8+import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels+import qualified Data.ProtoLens.Reexport.Text.Read as Text.Read+import qualified Proto.Etcd.Auth.Authpb.Auth+import qualified Proto.Etcd.Mvcc.Mvccpb.Kv+import qualified Proto.Gogoproto.Gogo+import qualified Proto.Google.Api.Annotations++action ::+ forall f s t a b . (Lens.Labels.HasLens f s t "action" a b) =>+ Lens.Family2.LensLike f s t a b+action+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "action")+alarm ::+ forall f s t a b . (Lens.Labels.HasLens f s t "alarm" a b) =>+ Lens.Family2.LensLike f s t a b+alarm+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "alarm")+alarms ::+ forall f s t a b . (Lens.Labels.HasLens f s t "alarms" a b) =>+ Lens.Family2.LensLike f s t a b+alarms+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "alarms")+blob ::+ forall f s t a b . (Lens.Labels.HasLens f s t "blob" a b) =>+ Lens.Family2.LensLike f s t a b+blob+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "blob")+cancelReason ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "cancelReason" a b) =>+ Lens.Family2.LensLike f s t a b+cancelReason+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "cancelReason")+cancelRequest ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "cancelRequest" a b) =>+ Lens.Family2.LensLike f s t a b+cancelRequest+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "cancelRequest")+canceled ::+ forall f s t a b . (Lens.Labels.HasLens f s t "canceled" a b) =>+ Lens.Family2.LensLike f s t a b+canceled+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "canceled")+checkpoints ::+ forall f s t a b . (Lens.Labels.HasLens f s t "checkpoints" a b) =>+ Lens.Family2.LensLike f s t a b+checkpoints+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "checkpoints")+clientURLs ::+ forall f s t a b . (Lens.Labels.HasLens f s t "clientURLs" a b) =>+ Lens.Family2.LensLike f s t a b+clientURLs+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "clientURLs")+clusterId ::+ forall f s t a b . (Lens.Labels.HasLens f s t "clusterId" a b) =>+ Lens.Family2.LensLike f s t a b+clusterId+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "clusterId")+compactRevision ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "compactRevision" a b) =>+ Lens.Family2.LensLike f s t a b+compactRevision+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "compactRevision")+compare ::+ forall f s t a b . (Lens.Labels.HasLens f s t "compare" a b) =>+ Lens.Family2.LensLike f s t a b+compare+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "compare")+count ::+ forall f s t a b . (Lens.Labels.HasLens f s t "count" a b) =>+ Lens.Family2.LensLike f s t a b+count+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "count")+countOnly ::+ forall f s t a b . (Lens.Labels.HasLens f s t "countOnly" a b) =>+ Lens.Family2.LensLike f s t a b+countOnly+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "countOnly")+createRequest ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "createRequest" a b) =>+ Lens.Family2.LensLike f s t a b+createRequest+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "createRequest")+createRevision ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "createRevision" a b) =>+ Lens.Family2.LensLike f s t a b+createRevision+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "createRevision")+created ::+ forall f s t a b . (Lens.Labels.HasLens f s t "created" a b) =>+ Lens.Family2.LensLike f s t a b+created+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "created")+dbSize ::+ forall f s t a b . (Lens.Labels.HasLens f s t "dbSize" a b) =>+ Lens.Family2.LensLike f s t a b+dbSize+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "dbSize")+dbSizeInUse ::+ forall f s t a b . (Lens.Labels.HasLens f s t "dbSizeInUse" a b) =>+ Lens.Family2.LensLike f s t a b+dbSizeInUse+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "dbSizeInUse")+deleted ::+ forall f s t a b . (Lens.Labels.HasLens f s t "deleted" a b) =>+ Lens.Family2.LensLike f s t a b+deleted+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "deleted")+error ::+ forall f s t a b . (Lens.Labels.HasLens f s t "error" a b) =>+ Lens.Family2.LensLike f s t a b+error+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "error")+errors ::+ forall f s t a b . (Lens.Labels.HasLens f s t "errors" a b) =>+ Lens.Family2.LensLike f s t a b+errors+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "errors")+events ::+ forall f s t a b . (Lens.Labels.HasLens f s t "events" a b) =>+ Lens.Family2.LensLike f s t a b+events+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "events")+failure ::+ forall f s t a b . (Lens.Labels.HasLens f s t "failure" a b) =>+ Lens.Family2.LensLike f s t a b+failure+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "failure")+filters ::+ forall f s t a b . (Lens.Labels.HasLens f s t "filters" a b) =>+ Lens.Family2.LensLike f s t a b+filters+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "filters")+fragment ::+ forall f s t a b . (Lens.Labels.HasLens f s t "fragment" a b) =>+ Lens.Family2.LensLike f s t a b+fragment+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "fragment")+grantedTTL ::+ forall f s t a b . (Lens.Labels.HasLens f s t "grantedTTL" a b) =>+ Lens.Family2.LensLike f s t a b+grantedTTL+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "grantedTTL")+hash ::+ forall f s t a b . (Lens.Labels.HasLens f s t "hash" a b) =>+ Lens.Family2.LensLike f s t a b+hash+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "hash")+header ::+ forall f s t a b . (Lens.Labels.HasLens f s t "header" a b) =>+ Lens.Family2.LensLike f s t a b+header+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "header")+id ::+ forall f s t a b . (Lens.Labels.HasLens f s t "id" a b) =>+ Lens.Family2.LensLike f s t a b+id+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "id")+ignoreLease ::+ forall f s t a b . (Lens.Labels.HasLens f s t "ignoreLease" a b) =>+ Lens.Family2.LensLike f s t a b+ignoreLease+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ignoreLease")+ignoreValue ::+ forall f s t a b . (Lens.Labels.HasLens f s t "ignoreValue" a b) =>+ Lens.Family2.LensLike f s t a b+ignoreValue+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ignoreValue")+key ::+ forall f s t a b . (Lens.Labels.HasLens f s t "key" a b) =>+ Lens.Family2.LensLike f s t a b+key+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key")+keys ::+ forall f s t a b . (Lens.Labels.HasLens f s t "keys" a b) =>+ Lens.Family2.LensLike f s t a b+keys+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "keys")+keysOnly ::+ forall f s t a b . (Lens.Labels.HasLens f s t "keysOnly" a b) =>+ Lens.Family2.LensLike f s t a b+keysOnly+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "keysOnly")+kvs ::+ forall f s t a b . (Lens.Labels.HasLens f s t "kvs" a b) =>+ Lens.Family2.LensLike f s t a b+kvs+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "kvs")+leader ::+ forall f s t a b . (Lens.Labels.HasLens f s t "leader" a b) =>+ Lens.Family2.LensLike f s t a b+leader+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "leader")+lease ::+ forall f s t a b . (Lens.Labels.HasLens f s t "lease" a b) =>+ Lens.Family2.LensLike f s t a b+lease+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "lease")+leases ::+ forall f s t a b . (Lens.Labels.HasLens f s t "leases" a b) =>+ Lens.Family2.LensLike f s t a b+leases+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "leases")+limit ::+ forall f s t a b . (Lens.Labels.HasLens f s t "limit" a b) =>+ Lens.Family2.LensLike f s t a b+limit+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "limit")+maxCreateRevision ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maxCreateRevision" a b) =>+ Lens.Family2.LensLike f s t a b+maxCreateRevision+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maxCreateRevision")+maxModRevision ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maxModRevision" a b) =>+ Lens.Family2.LensLike f s t a b+maxModRevision+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maxModRevision")+maybe'cancelRequest ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'cancelRequest" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'cancelRequest+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'cancelRequest")+maybe'createRequest ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'createRequest" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'createRequest+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'createRequest")+maybe'createRevision ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'createRevision" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'createRevision+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'createRevision")+maybe'header ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'header" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'header+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header")+maybe'lease ::+ forall f s t a b . (Lens.Labels.HasLens f s t "maybe'lease" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'lease+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'lease")+maybe'member ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'member" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'member+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'member")+maybe'modRevision ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'modRevision" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'modRevision+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'modRevision")+maybe'perm ::+ forall f s t a b . (Lens.Labels.HasLens f s t "maybe'perm" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'perm+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'perm")+maybe'prevKv ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'prevKv" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'prevKv+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'prevKv")+maybe'progressRequest ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'progressRequest" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'progressRequest+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'progressRequest")+maybe'request ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'request" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'request+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'request")+maybe'requestDeleteRange ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'requestDeleteRange" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'requestDeleteRange+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'requestDeleteRange")+maybe'requestPut ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'requestPut" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'requestPut+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'requestPut")+maybe'requestRange ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'requestRange" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'requestRange+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'requestRange")+maybe'requestTxn ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'requestTxn" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'requestTxn+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'requestTxn")+maybe'requestUnion ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'requestUnion" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'requestUnion+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'requestUnion")+maybe'response ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'response" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'response+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'response")+maybe'responseDeleteRange ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'responseDeleteRange" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'responseDeleteRange+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'responseDeleteRange")+maybe'responsePut ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'responsePut" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'responsePut+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'responsePut")+maybe'responseRange ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'responseRange" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'responseRange+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "maybe'responseRange")+maybe'responseTxn ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'responseTxn" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'responseTxn+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'responseTxn")+maybe'targetUnion ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'targetUnion" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'targetUnion+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'targetUnion")+maybe'value ::+ forall f s t a b . (Lens.Labels.HasLens f s t "maybe'value" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'value+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'value")+maybe'version ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'version" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'version+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'version")+member ::+ forall f s t a b . (Lens.Labels.HasLens f s t "member" a b) =>+ Lens.Family2.LensLike f s t a b+member+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "member")+memberID ::+ forall f s t a b . (Lens.Labels.HasLens f s t "memberID" a b) =>+ Lens.Family2.LensLike f s t a b+memberID+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "memberID")+memberId ::+ forall f s t a b . (Lens.Labels.HasLens f s t "memberId" a b) =>+ Lens.Family2.LensLike f s t a b+memberId+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "memberId")+members ::+ forall f s t a b . (Lens.Labels.HasLens f s t "members" a b) =>+ Lens.Family2.LensLike f s t a b+members+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "members")+minCreateRevision ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "minCreateRevision" a b) =>+ Lens.Family2.LensLike f s t a b+minCreateRevision+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "minCreateRevision")+minModRevision ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "minModRevision" a b) =>+ Lens.Family2.LensLike f s t a b+minModRevision+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "minModRevision")+modRevision ::+ forall f s t a b . (Lens.Labels.HasLens f s t "modRevision" a b) =>+ Lens.Family2.LensLike f s t a b+modRevision+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "modRevision")+more ::+ forall f s t a b . (Lens.Labels.HasLens f s t "more" a b) =>+ Lens.Family2.LensLike f s t a b+more+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "more")+name ::+ forall f s t a b . (Lens.Labels.HasLens f s t "name" a b) =>+ Lens.Family2.LensLike f s t a b+name+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name")+password ::+ forall f s t a b . (Lens.Labels.HasLens f s t "password" a b) =>+ Lens.Family2.LensLike f s t a b+password+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "password")+peerURLs ::+ forall f s t a b . (Lens.Labels.HasLens f s t "peerURLs" a b) =>+ Lens.Family2.LensLike f s t a b+peerURLs+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "peerURLs")+perm ::+ forall f s t a b . (Lens.Labels.HasLens f s t "perm" a b) =>+ Lens.Family2.LensLike f s t a b+perm+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "perm")+physical ::+ forall f s t a b . (Lens.Labels.HasLens f s t "physical" a b) =>+ Lens.Family2.LensLike f s t a b+physical+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "physical")+prevKv ::+ forall f s t a b . (Lens.Labels.HasLens f s t "prevKv" a b) =>+ Lens.Family2.LensLike f s t a b+prevKv+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "prevKv")+prevKvs ::+ forall f s t a b . (Lens.Labels.HasLens f s t "prevKvs" a b) =>+ Lens.Family2.LensLike f s t a b+prevKvs+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "prevKvs")+progressNotify ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "progressNotify" a b) =>+ Lens.Family2.LensLike f s t a b+progressNotify+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "progressNotify")+progressRequest ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "progressRequest" a b) =>+ Lens.Family2.LensLike f s t a b+progressRequest+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "progressRequest")+raftAppliedIndex ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "raftAppliedIndex" a b) =>+ Lens.Family2.LensLike f s t a b+raftAppliedIndex+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "raftAppliedIndex")+raftIndex ::+ forall f s t a b . (Lens.Labels.HasLens f s t "raftIndex" a b) =>+ Lens.Family2.LensLike f s t a b+raftIndex+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "raftIndex")+raftTerm ::+ forall f s t a b . (Lens.Labels.HasLens f s t "raftTerm" a b) =>+ Lens.Family2.LensLike f s t a b+raftTerm+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "raftTerm")+rangeEnd ::+ forall f s t a b . (Lens.Labels.HasLens f s t "rangeEnd" a b) =>+ Lens.Family2.LensLike f s t a b+rangeEnd+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rangeEnd")+remainingBytes ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "remainingBytes" a b) =>+ Lens.Family2.LensLike f s t a b+remainingBytes+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "remainingBytes")+remainingTTL ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "remainingTTL" a b) =>+ Lens.Family2.LensLike f s t a b+remainingTTL+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "remainingTTL")+requestDeleteRange ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "requestDeleteRange" a b) =>+ Lens.Family2.LensLike f s t a b+requestDeleteRange+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "requestDeleteRange")+requestPut ::+ forall f s t a b . (Lens.Labels.HasLens f s t "requestPut" a b) =>+ Lens.Family2.LensLike f s t a b+requestPut+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "requestPut")+requestRange ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "requestRange" a b) =>+ Lens.Family2.LensLike f s t a b+requestRange+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "requestRange")+requestTxn ::+ forall f s t a b . (Lens.Labels.HasLens f s t "requestTxn" a b) =>+ Lens.Family2.LensLike f s t a b+requestTxn+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "requestTxn")+responseDeleteRange ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "responseDeleteRange" a b) =>+ Lens.Family2.LensLike f s t a b+responseDeleteRange+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "responseDeleteRange")+responsePut ::+ forall f s t a b . (Lens.Labels.HasLens f s t "responsePut" a b) =>+ Lens.Family2.LensLike f s t a b+responsePut+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "responsePut")+responseRange ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "responseRange" a b) =>+ Lens.Family2.LensLike f s t a b+responseRange+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "responseRange")+responseTxn ::+ forall f s t a b . (Lens.Labels.HasLens f s t "responseTxn" a b) =>+ Lens.Family2.LensLike f s t a b+responseTxn+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "responseTxn")+responses ::+ forall f s t a b . (Lens.Labels.HasLens f s t "responses" a b) =>+ Lens.Family2.LensLike f s t a b+responses+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "responses")+result ::+ forall f s t a b . (Lens.Labels.HasLens f s t "result" a b) =>+ Lens.Family2.LensLike f s t a b+result+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "result")+revision ::+ forall f s t a b . (Lens.Labels.HasLens f s t "revision" a b) =>+ Lens.Family2.LensLike f s t a b+revision+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "revision")+role ::+ forall f s t a b . (Lens.Labels.HasLens f s t "role" a b) =>+ Lens.Family2.LensLike f s t a b+role+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "role")+roles ::+ forall f s t a b . (Lens.Labels.HasLens f s t "roles" a b) =>+ Lens.Family2.LensLike f s t a b+roles+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "roles")+serializable ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "serializable" a b) =>+ Lens.Family2.LensLike f s t a b+serializable+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "serializable")+sortOrder ::+ forall f s t a b . (Lens.Labels.HasLens f s t "sortOrder" a b) =>+ Lens.Family2.LensLike f s t a b+sortOrder+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "sortOrder")+sortTarget ::+ forall f s t a b . (Lens.Labels.HasLens f s t "sortTarget" a b) =>+ Lens.Family2.LensLike f s t a b+sortTarget+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "sortTarget")+startRevision ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "startRevision" a b) =>+ Lens.Family2.LensLike f s t a b+startRevision+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "startRevision")+succeeded ::+ forall f s t a b . (Lens.Labels.HasLens f s t "succeeded" a b) =>+ Lens.Family2.LensLike f s t a b+succeeded+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "succeeded")+success ::+ forall f s t a b . (Lens.Labels.HasLens f s t "success" a b) =>+ Lens.Family2.LensLike f s t a b+success+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "success")+target ::+ forall f s t a b . (Lens.Labels.HasLens f s t "target" a b) =>+ Lens.Family2.LensLike f s t a b+target+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "target")+targetID ::+ forall f s t a b . (Lens.Labels.HasLens f s t "targetID" a b) =>+ Lens.Family2.LensLike f s t a b+targetID+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "targetID")+token ::+ forall f s t a b . (Lens.Labels.HasLens f s t "token" a b) =>+ Lens.Family2.LensLike f s t a b+token+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "token")+ttl ::+ forall f s t a b . (Lens.Labels.HasLens f s t "ttl" a b) =>+ Lens.Family2.LensLike f s t a b+ttl+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ttl")+user ::+ forall f s t a b . (Lens.Labels.HasLens f s t "user" a b) =>+ Lens.Family2.LensLike f s t a b+user+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "user")+users ::+ forall f s t a b . (Lens.Labels.HasLens f s t "users" a b) =>+ Lens.Family2.LensLike f s t a b+users+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "users")+value ::+ forall f s t a b . (Lens.Labels.HasLens f s t "value" a b) =>+ Lens.Family2.LensLike f s t a b+value+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value")+version ::+ forall f s t a b . (Lens.Labels.HasLens f s t "version" a b) =>+ Lens.Family2.LensLike f s t a b+version+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "version")+watchId ::+ forall f s t a b . (Lens.Labels.HasLens f s t "watchId" a b) =>+ Lens.Family2.LensLike f s t a b+watchId+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "watchId")
+ gen/Proto/Etcd/Mvcc/Mvccpb/Kv.hs view
@@ -0,0 +1,342 @@+{- This file was auto-generated from etcd/mvcc/mvccpb/kv.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+ UndecidableInstances, GeneralizedNewtypeDeriving,+ MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,+ PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}+module Proto.Etcd.Mvcc.Mvccpb.Kv+ (Event(..), Event'EventType(..), Event'EventType(),+ Event'EventType'UnrecognizedValue, KeyValue(..))+ where+import qualified Data.ProtoLens.Reexport.Lens.Labels.Prism+ as Lens.Labels.Prism+import qualified Data.ProtoLens.Reexport.Prelude as Prelude+import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int+import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word+import qualified Data.ProtoLens.Reexport.Data.ProtoLens+ as Data.ProtoLens+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum+ as Data.ProtoLens.Message.Enum+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types+ as Data.ProtoLens.Service.Types+import qualified Data.ProtoLens.Reexport.Lens.Family2+ as Lens.Family2+import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked+ as Lens.Family2.Unchecked+import qualified Data.ProtoLens.Reexport.Data.Default.Class+ as Data.Default.Class+import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text+import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map+import qualified Data.ProtoLens.Reexport.Data.ByteString+ as Data.ByteString+import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8+ as Data.ByteString.Char8+import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels+import qualified Data.ProtoLens.Reexport.Text.Read as Text.Read+import qualified Proto.Gogoproto.Gogo++{- | Fields :++ * 'Proto.Etcd.Mvcc.Mvccpb.Kv_Fields.type'' @:: Lens' Event Event'EventType@+ * 'Proto.Etcd.Mvcc.Mvccpb.Kv_Fields.kv' @:: Lens' Event KeyValue@+ * 'Proto.Etcd.Mvcc.Mvccpb.Kv_Fields.maybe'kv' @:: Lens' Event (Prelude.Maybe KeyValue)@+ * 'Proto.Etcd.Mvcc.Mvccpb.Kv_Fields.prevKv' @:: Lens' Event KeyValue@+ * 'Proto.Etcd.Mvcc.Mvccpb.Kv_Fields.maybe'prevKv' @:: Lens' Event (Prelude.Maybe KeyValue)@+ -}+data Event = Event{_Event'type' :: !Event'EventType,+ _Event'kv :: !(Prelude.Maybe KeyValue),+ _Event'prevKv :: !(Prelude.Maybe KeyValue),+ _Event'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f Event x a, a ~ b) =>+ Lens.Labels.HasLens f Event Event x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Event "type'" (Event'EventType)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Event'type'+ (\ x__ y__ -> x__{_Event'type' = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Event "kv" (KeyValue)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Event'kv+ (\ x__ y__ -> x__{_Event'kv = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Event "maybe'kv" (Prelude.Maybe KeyValue)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Event'kv+ (\ x__ y__ -> x__{_Event'kv = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Event "prevKv" (KeyValue)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Event'prevKv+ (\ x__ y__ -> x__{_Event'prevKv = y__}))+ (Data.ProtoLens.maybeLens Data.Default.Class.def)+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Event "maybe'prevKv"+ (Prelude.Maybe KeyValue)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Event'prevKv+ (\ x__ y__ -> x__{_Event'prevKv = y__}))+ Prelude.id+instance Data.Default.Class.Default Event where+ def+ = Event{_Event'type' = Data.Default.Class.def,+ _Event'kv = Prelude.Nothing, _Event'prevKv = Prelude.Nothing,+ _Event'_unknownFields = ([])}+instance Data.ProtoLens.Message Event where+ messageName _ = Data.Text.pack "mvccpb.Event"+ fieldsByTag+ = let type'__field_descriptor+ = Data.ProtoLens.FieldDescriptor "type"+ (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::+ Data.ProtoLens.FieldTypeDescriptor Event'EventType)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "type'")))+ :: Data.ProtoLens.FieldDescriptor Event+ kv__field_descriptor+ = Data.ProtoLens.FieldDescriptor "kv"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor KeyValue)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'kv")))+ :: Data.ProtoLens.FieldDescriptor Event+ prevKv__field_descriptor+ = Data.ProtoLens.FieldDescriptor "prev_kv"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor KeyValue)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'prevKv")))+ :: Data.ProtoLens.FieldDescriptor Event+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, type'__field_descriptor),+ (Data.ProtoLens.Tag 2, kv__field_descriptor),+ (Data.ProtoLens.Tag 3, prevKv__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _Event'_unknownFields+ (\ x__ y__ -> x__{_Event'_unknownFields = y__})+data Event'EventType = Event'PUT+ | Event'DELETE+ | Event'EventType'Unrecognized !Event'EventType'UnrecognizedValue+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+newtype Event'EventType'UnrecognizedValue = Event'EventType'UnrecognizedValue Data.Int.Int32+ deriving (Prelude.Eq, Prelude.Ord, Prelude.Show)+instance Data.ProtoLens.MessageEnum Event'EventType where+ maybeToEnum 0 = Prelude.Just Event'PUT+ maybeToEnum 1 = Prelude.Just Event'DELETE+ maybeToEnum k+ = Prelude.Just+ (Event'EventType'Unrecognized+ (Event'EventType'UnrecognizedValue (Prelude.fromIntegral k)))+ showEnum Event'PUT = "PUT"+ showEnum Event'DELETE = "DELETE"+ showEnum+ (Event'EventType'Unrecognized+ (Event'EventType'UnrecognizedValue k))+ = Prelude.show k+ readEnum "PUT" = Prelude.Just Event'PUT+ readEnum "DELETE" = Prelude.Just Event'DELETE+ readEnum k+ = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum+instance Prelude.Bounded Event'EventType where+ minBound = Event'PUT+ maxBound = Event'DELETE+instance Prelude.Enum Event'EventType where+ toEnum k__+ = Prelude.maybe+ (Prelude.error+ ((Prelude.++) "toEnum: unknown value for enum EventType: "+ (Prelude.show k__)))+ Prelude.id+ (Data.ProtoLens.maybeToEnum k__)+ fromEnum Event'PUT = 0+ fromEnum Event'DELETE = 1+ fromEnum+ (Event'EventType'Unrecognized+ (Event'EventType'UnrecognizedValue k))+ = Prelude.fromIntegral k+ succ Event'DELETE+ = Prelude.error+ "Event'EventType.succ: bad argument Event'DELETE. This value would be out of bounds."+ succ Event'PUT = Event'DELETE+ succ _+ = Prelude.error+ "Event'EventType.succ: bad argument: unrecognized value"+ pred Event'PUT+ = Prelude.error+ "Event'EventType.pred: bad argument Event'PUT. This value would be out of bounds."+ pred Event'DELETE = Event'PUT+ pred _+ = Prelude.error+ "Event'EventType.pred: bad argument: unrecognized value"+ enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom+ enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo+ enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen+ enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo+instance Data.Default.Class.Default Event'EventType where+ def = Event'PUT+instance Data.ProtoLens.FieldDefault Event'EventType where+ fieldDefault = Event'PUT+{- | Fields :++ * 'Proto.Etcd.Mvcc.Mvccpb.Kv_Fields.key' @:: Lens' KeyValue Data.ByteString.ByteString@+ * 'Proto.Etcd.Mvcc.Mvccpb.Kv_Fields.createRevision' @:: Lens' KeyValue Data.Int.Int64@+ * 'Proto.Etcd.Mvcc.Mvccpb.Kv_Fields.modRevision' @:: Lens' KeyValue Data.Int.Int64@+ * 'Proto.Etcd.Mvcc.Mvccpb.Kv_Fields.version' @:: Lens' KeyValue Data.Int.Int64@+ * 'Proto.Etcd.Mvcc.Mvccpb.Kv_Fields.value' @:: Lens' KeyValue Data.ByteString.ByteString@+ * 'Proto.Etcd.Mvcc.Mvccpb.Kv_Fields.lease' @:: Lens' KeyValue Data.Int.Int64@+ -}+data KeyValue = KeyValue{_KeyValue'key ::+ !Data.ByteString.ByteString,+ _KeyValue'createRevision :: !Data.Int.Int64,+ _KeyValue'modRevision :: !Data.Int.Int64,+ _KeyValue'version :: !Data.Int.Int64,+ _KeyValue'value :: !Data.ByteString.ByteString,+ _KeyValue'lease :: !Data.Int.Int64,+ _KeyValue'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f KeyValue x a, a ~ b) =>+ Lens.Labels.HasLens f KeyValue KeyValue x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f KeyValue "key" (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _KeyValue'key+ (\ x__ y__ -> x__{_KeyValue'key = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f KeyValue "createRevision" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _KeyValue'createRevision+ (\ x__ y__ -> x__{_KeyValue'createRevision = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f KeyValue "modRevision" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _KeyValue'modRevision+ (\ x__ y__ -> x__{_KeyValue'modRevision = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f KeyValue "version" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _KeyValue'version+ (\ x__ y__ -> x__{_KeyValue'version = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f KeyValue "value"+ (Data.ByteString.ByteString)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _KeyValue'value+ (\ x__ y__ -> x__{_KeyValue'value = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f KeyValue "lease" (Data.Int.Int64)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _KeyValue'lease+ (\ x__ y__ -> x__{_KeyValue'lease = y__}))+ Prelude.id+instance Data.Default.Class.Default KeyValue where+ def+ = KeyValue{_KeyValue'key = Data.ProtoLens.fieldDefault,+ _KeyValue'createRevision = Data.ProtoLens.fieldDefault,+ _KeyValue'modRevision = Data.ProtoLens.fieldDefault,+ _KeyValue'version = Data.ProtoLens.fieldDefault,+ _KeyValue'value = Data.ProtoLens.fieldDefault,+ _KeyValue'lease = Data.ProtoLens.fieldDefault,+ _KeyValue'_unknownFields = ([])}+instance Data.ProtoLens.Message KeyValue where+ messageName _ = Data.Text.pack "mvccpb.KeyValue"+ fieldsByTag+ = let key__field_descriptor+ = Data.ProtoLens.FieldDescriptor "key"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key")))+ :: Data.ProtoLens.FieldDescriptor KeyValue+ createRevision__field_descriptor+ = Data.ProtoLens.FieldDescriptor "create_revision"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "createRevision")))+ :: Data.ProtoLens.FieldDescriptor KeyValue+ modRevision__field_descriptor+ = Data.ProtoLens.FieldDescriptor "mod_revision"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "modRevision")))+ :: Data.ProtoLens.FieldDescriptor KeyValue+ version__field_descriptor+ = Data.ProtoLens.FieldDescriptor "version"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "version")))+ :: Data.ProtoLens.FieldDescriptor KeyValue+ value__field_descriptor+ = Data.ProtoLens.FieldDescriptor "value"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::+ Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value")))+ :: Data.ProtoLens.FieldDescriptor KeyValue+ lease__field_descriptor+ = Data.ProtoLens.FieldDescriptor "lease"+ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::+ Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "lease")))+ :: Data.ProtoLens.FieldDescriptor KeyValue+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, key__field_descriptor),+ (Data.ProtoLens.Tag 2, createRevision__field_descriptor),+ (Data.ProtoLens.Tag 3, modRevision__field_descriptor),+ (Data.ProtoLens.Tag 4, version__field_descriptor),+ (Data.ProtoLens.Tag 5, value__field_descriptor),+ (Data.ProtoLens.Tag 6, lease__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _KeyValue'_unknownFields+ (\ x__ y__ -> x__{_KeyValue'_unknownFields = y__})
+ gen/Proto/Etcd/Mvcc/Mvccpb/Kv_Fields.hs view
@@ -0,0 +1,103 @@+{- This file was auto-generated from etcd/mvcc/mvccpb/kv.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+ UndecidableInstances, GeneralizedNewtypeDeriving,+ MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,+ PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}+module Proto.Etcd.Mvcc.Mvccpb.Kv_Fields where+import qualified Data.ProtoLens.Reexport.Prelude as Prelude+import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int+import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word+import qualified Data.ProtoLens.Reexport.Data.ProtoLens+ as Data.ProtoLens+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum+ as Data.ProtoLens.Message.Enum+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types+ as Data.ProtoLens.Service.Types+import qualified Data.ProtoLens.Reexport.Lens.Family2+ as Lens.Family2+import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked+ as Lens.Family2.Unchecked+import qualified Data.ProtoLens.Reexport.Data.Default.Class+ as Data.Default.Class+import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text+import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map+import qualified Data.ProtoLens.Reexport.Data.ByteString+ as Data.ByteString+import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8+ as Data.ByteString.Char8+import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels+import qualified Data.ProtoLens.Reexport.Text.Read as Text.Read+import qualified Proto.Gogoproto.Gogo++createRevision ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "createRevision" a b) =>+ Lens.Family2.LensLike f s t a b+createRevision+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "createRevision")+key ::+ forall f s t a b . (Lens.Labels.HasLens f s t "key" a b) =>+ Lens.Family2.LensLike f s t a b+key+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key")+kv ::+ forall f s t a b . (Lens.Labels.HasLens f s t "kv" a b) =>+ Lens.Family2.LensLike f s t a b+kv+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "kv")+lease ::+ forall f s t a b . (Lens.Labels.HasLens f s t "lease" a b) =>+ Lens.Family2.LensLike f s t a b+lease+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "lease")+maybe'kv ::+ forall f s t a b . (Lens.Labels.HasLens f s t "maybe'kv" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'kv+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'kv")+maybe'prevKv ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'prevKv" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'prevKv+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'prevKv")+modRevision ::+ forall f s t a b . (Lens.Labels.HasLens f s t "modRevision" a b) =>+ Lens.Family2.LensLike f s t a b+modRevision+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "modRevision")+prevKv ::+ forall f s t a b . (Lens.Labels.HasLens f s t "prevKv" a b) =>+ Lens.Family2.LensLike f s t a b+prevKv+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "prevKv")+type' ::+ forall f s t a b . (Lens.Labels.HasLens f s t "type'" a b) =>+ Lens.Family2.LensLike f s t a b+type'+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "type'")+value ::+ forall f s t a b . (Lens.Labels.HasLens f s t "value" a b) =>+ Lens.Family2.LensLike f s t a b+value+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value")+version ::+ forall f s t a b . (Lens.Labels.HasLens f s t "version" a b) =>+ Lens.Family2.LensLike f s t a b+version+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "version")
+ gen/Proto/Gogoproto/Gogo.hs view
@@ -0,0 +1,36 @@+{- This file was auto-generated from gogoproto/gogo.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+ UndecidableInstances, GeneralizedNewtypeDeriving,+ MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,+ PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}+module Proto.Gogoproto.Gogo () where+import qualified Data.ProtoLens.Reexport.Lens.Labels.Prism+ as Lens.Labels.Prism+import qualified Data.ProtoLens.Reexport.Prelude as Prelude+import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int+import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word+import qualified Data.ProtoLens.Reexport.Data.ProtoLens+ as Data.ProtoLens+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum+ as Data.ProtoLens.Message.Enum+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types+ as Data.ProtoLens.Service.Types+import qualified Data.ProtoLens.Reexport.Lens.Family2+ as Lens.Family2+import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked+ as Lens.Family2.Unchecked+import qualified Data.ProtoLens.Reexport.Data.Default.Class+ as Data.Default.Class+import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text+import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map+import qualified Data.ProtoLens.Reexport.Data.ByteString+ as Data.ByteString+import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8+ as Data.ByteString.Char8+import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels+import qualified Data.ProtoLens.Reexport.Text.Read as Text.Read+import qualified Proto.Google.Protobuf.Descriptor
+ gen/Proto/Gogoproto/Gogo_Fields.hs view
@@ -0,0 +1,34 @@+{- This file was auto-generated from gogoproto/gogo.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+ UndecidableInstances, GeneralizedNewtypeDeriving,+ MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,+ PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}+module Proto.Gogoproto.Gogo_Fields where+import qualified Data.ProtoLens.Reexport.Prelude as Prelude+import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int+import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word+import qualified Data.ProtoLens.Reexport.Data.ProtoLens+ as Data.ProtoLens+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum+ as Data.ProtoLens.Message.Enum+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types+ as Data.ProtoLens.Service.Types+import qualified Data.ProtoLens.Reexport.Lens.Family2+ as Lens.Family2+import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked+ as Lens.Family2.Unchecked+import qualified Data.ProtoLens.Reexport.Data.Default.Class+ as Data.Default.Class+import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text+import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map+import qualified Data.ProtoLens.Reexport.Data.ByteString+ as Data.ByteString+import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8+ as Data.ByteString.Char8+import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels+import qualified Data.ProtoLens.Reexport.Text.Read as Text.Read+import qualified Proto.Google.Protobuf.Descriptor
+ gen/Proto/Google/Api/Annotations.hs view
@@ -0,0 +1,37 @@+{- This file was auto-generated from google/api/annotations.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+ UndecidableInstances, GeneralizedNewtypeDeriving,+ MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,+ PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}+module Proto.Google.Api.Annotations () where+import qualified Data.ProtoLens.Reexport.Lens.Labels.Prism+ as Lens.Labels.Prism+import qualified Data.ProtoLens.Reexport.Prelude as Prelude+import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int+import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word+import qualified Data.ProtoLens.Reexport.Data.ProtoLens+ as Data.ProtoLens+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum+ as Data.ProtoLens.Message.Enum+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types+ as Data.ProtoLens.Service.Types+import qualified Data.ProtoLens.Reexport.Lens.Family2+ as Lens.Family2+import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked+ as Lens.Family2.Unchecked+import qualified Data.ProtoLens.Reexport.Data.Default.Class+ as Data.Default.Class+import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text+import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map+import qualified Data.ProtoLens.Reexport.Data.ByteString+ as Data.ByteString+import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8+ as Data.ByteString.Char8+import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels+import qualified Data.ProtoLens.Reexport.Text.Read as Text.Read+import qualified Proto.Google.Api.Http+import qualified Proto.Google.Protobuf.Descriptor
+ gen/Proto/Google/Api/Annotations_Fields.hs view
@@ -0,0 +1,35 @@+{- This file was auto-generated from google/api/annotations.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+ UndecidableInstances, GeneralizedNewtypeDeriving,+ MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,+ PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}+module Proto.Google.Api.Annotations_Fields where+import qualified Data.ProtoLens.Reexport.Prelude as Prelude+import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int+import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word+import qualified Data.ProtoLens.Reexport.Data.ProtoLens+ as Data.ProtoLens+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum+ as Data.ProtoLens.Message.Enum+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types+ as Data.ProtoLens.Service.Types+import qualified Data.ProtoLens.Reexport.Lens.Family2+ as Lens.Family2+import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked+ as Lens.Family2.Unchecked+import qualified Data.ProtoLens.Reexport.Data.Default.Class+ as Data.Default.Class+import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text+import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map+import qualified Data.ProtoLens.Reexport.Data.ByteString+ as Data.ByteString+import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8+ as Data.ByteString.Char8+import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels+import qualified Data.ProtoLens.Reexport.Text.Read as Text.Read+import qualified Proto.Google.Api.Http+import qualified Proto.Google.Protobuf.Descriptor
+ gen/Proto/Google/Api/Http.hs view
@@ -0,0 +1,574 @@+{- This file was auto-generated from google/api/http.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+ UndecidableInstances, GeneralizedNewtypeDeriving,+ MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,+ PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}+module Proto.Google.Api.Http+ (CustomHttpPattern(..), Http(..), HttpRule(..),+ HttpRule'Pattern(..), _HttpRule'Get, _HttpRule'Put, _HttpRule'Post,+ _HttpRule'Delete, _HttpRule'Patch, _HttpRule'Custom)+ where+import qualified Data.ProtoLens.Reexport.Lens.Labels.Prism+ as Lens.Labels.Prism+import qualified Data.ProtoLens.Reexport.Prelude as Prelude+import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int+import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word+import qualified Data.ProtoLens.Reexport.Data.ProtoLens+ as Data.ProtoLens+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum+ as Data.ProtoLens.Message.Enum+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types+ as Data.ProtoLens.Service.Types+import qualified Data.ProtoLens.Reexport.Lens.Family2+ as Lens.Family2+import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked+ as Lens.Family2.Unchecked+import qualified Data.ProtoLens.Reexport.Data.Default.Class+ as Data.Default.Class+import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text+import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map+import qualified Data.ProtoLens.Reexport.Data.ByteString+ as Data.ByteString+import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8+ as Data.ByteString.Char8+import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels+import qualified Data.ProtoLens.Reexport.Text.Read as Text.Read++{- | Fields :++ * 'Proto.Google.Api.Http_Fields.kind' @:: Lens' CustomHttpPattern Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.path' @:: Lens' CustomHttpPattern Data.Text.Text@+ -}+data CustomHttpPattern = CustomHttpPattern{_CustomHttpPattern'kind+ :: !Data.Text.Text,+ _CustomHttpPattern'path :: !Data.Text.Text,+ _CustomHttpPattern'_unknownFields ::+ !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f CustomHttpPattern x a, a ~ b) =>+ Lens.Labels.HasLens f CustomHttpPattern CustomHttpPattern x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f CustomHttpPattern "kind" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _CustomHttpPattern'kind+ (\ x__ y__ -> x__{_CustomHttpPattern'kind = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f CustomHttpPattern "path" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _CustomHttpPattern'path+ (\ x__ y__ -> x__{_CustomHttpPattern'path = y__}))+ Prelude.id+instance Data.Default.Class.Default CustomHttpPattern where+ def+ = CustomHttpPattern{_CustomHttpPattern'kind =+ Data.ProtoLens.fieldDefault,+ _CustomHttpPattern'path = Data.ProtoLens.fieldDefault,+ _CustomHttpPattern'_unknownFields = ([])}+instance Data.ProtoLens.Message CustomHttpPattern where+ messageName _ = Data.Text.pack "google.api.CustomHttpPattern"+ fieldsByTag+ = let kind__field_descriptor+ = Data.ProtoLens.FieldDescriptor "kind"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "kind")))+ :: Data.ProtoLens.FieldDescriptor CustomHttpPattern+ path__field_descriptor+ = Data.ProtoLens.FieldDescriptor "path"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "path")))+ :: Data.ProtoLens.FieldDescriptor CustomHttpPattern+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, kind__field_descriptor),+ (Data.ProtoLens.Tag 2, path__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _CustomHttpPattern'_unknownFields+ (\ x__ y__ -> x__{_CustomHttpPattern'_unknownFields = y__})+{- | Fields :++ * 'Proto.Google.Api.Http_Fields.rules' @:: Lens' Http [HttpRule]@+ * 'Proto.Google.Api.Http_Fields.fullyDecodeReservedExpansion' @:: Lens' Http Prelude.Bool@+ -}+data Http = Http{_Http'rules :: ![HttpRule],+ _Http'fullyDecodeReservedExpansion :: !Prelude.Bool,+ _Http'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f Http x a, a ~ b) =>+ Lens.Labels.HasLens f Http Http x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Http "rules" ([HttpRule])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Http'rules+ (\ x__ y__ -> x__{_Http'rules = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f Http "fullyDecodeReservedExpansion"+ (Prelude.Bool)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _Http'fullyDecodeReservedExpansion+ (\ x__ y__ -> x__{_Http'fullyDecodeReservedExpansion = y__}))+ Prelude.id+instance Data.Default.Class.Default Http where+ def+ = Http{_Http'rules = [],+ _Http'fullyDecodeReservedExpansion = Data.ProtoLens.fieldDefault,+ _Http'_unknownFields = ([])}+instance Data.ProtoLens.Message Http where+ messageName _ = Data.Text.pack "google.api.Http"+ fieldsByTag+ = let rules__field_descriptor+ = Data.ProtoLens.FieldDescriptor "rules"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor HttpRule)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rules")))+ :: Data.ProtoLens.FieldDescriptor Http+ fullyDecodeReservedExpansion__field_descriptor+ = Data.ProtoLens.FieldDescriptor "fully_decode_reserved_expansion"+ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::+ Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "fullyDecodeReservedExpansion")))+ :: Data.ProtoLens.FieldDescriptor Http+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, rules__field_descriptor),+ (Data.ProtoLens.Tag 2,+ fullyDecodeReservedExpansion__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _Http'_unknownFields+ (\ x__ y__ -> x__{_Http'_unknownFields = y__})+{- | Fields :++ * 'Proto.Google.Api.Http_Fields.selector' @:: Lens' HttpRule Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.body' @:: Lens' HttpRule Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.responseBody' @:: Lens' HttpRule Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.additionalBindings' @:: Lens' HttpRule [HttpRule]@+ * 'Proto.Google.Api.Http_Fields.maybe'pattern'' @:: Lens' HttpRule (Prelude.Maybe HttpRule'Pattern)@+ * 'Proto.Google.Api.Http_Fields.maybe'get' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@+ * 'Proto.Google.Api.Http_Fields.get' @:: Lens' HttpRule Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.maybe'put' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@+ * 'Proto.Google.Api.Http_Fields.put' @:: Lens' HttpRule Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.maybe'post' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@+ * 'Proto.Google.Api.Http_Fields.post' @:: Lens' HttpRule Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.maybe'delete' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@+ * 'Proto.Google.Api.Http_Fields.delete' @:: Lens' HttpRule Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.maybe'patch' @:: Lens' HttpRule (Prelude.Maybe Data.Text.Text)@+ * 'Proto.Google.Api.Http_Fields.patch' @:: Lens' HttpRule Data.Text.Text@+ * 'Proto.Google.Api.Http_Fields.maybe'custom' @:: Lens' HttpRule (Prelude.Maybe CustomHttpPattern)@+ * 'Proto.Google.Api.Http_Fields.custom' @:: Lens' HttpRule CustomHttpPattern@+ -}+data HttpRule = HttpRule{_HttpRule'selector :: !Data.Text.Text,+ _HttpRule'body :: !Data.Text.Text,+ _HttpRule'responseBody :: !Data.Text.Text,+ _HttpRule'additionalBindings :: ![HttpRule],+ _HttpRule'pattern' :: !(Prelude.Maybe HttpRule'Pattern),+ _HttpRule'_unknownFields :: !Data.ProtoLens.FieldSet}+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+data HttpRule'Pattern = HttpRule'Get !Data.Text.Text+ | HttpRule'Put !Data.Text.Text+ | HttpRule'Post !Data.Text.Text+ | HttpRule'Delete !Data.Text.Text+ | HttpRule'Patch !Data.Text.Text+ | HttpRule'Custom !CustomHttpPattern+ deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)+instance (Lens.Labels.HasLens' f HttpRule x a, a ~ b) =>+ Lens.Labels.HasLens f HttpRule HttpRule x a b+ where+ lensOf = Lens.Labels.lensOf'+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "selector" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'selector+ (\ x__ y__ -> x__{_HttpRule'selector = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "body" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'body+ (\ x__ y__ -> x__{_HttpRule'body = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "responseBody" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'responseBody+ (\ x__ y__ -> x__{_HttpRule'responseBody = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "additionalBindings" ([HttpRule])+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'additionalBindings+ (\ x__ y__ -> x__{_HttpRule'additionalBindings = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "maybe'pattern'"+ (Prelude.Maybe HttpRule'Pattern)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'pattern'+ (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))+ Prelude.id+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "maybe'get"+ (Prelude.Maybe Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'pattern'+ (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (HttpRule'Get x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Get y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "get" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'pattern'+ (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (HttpRule'Get x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Get y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "maybe'put"+ (Prelude.Maybe Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'pattern'+ (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (HttpRule'Put x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Put y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "put" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'pattern'+ (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (HttpRule'Put x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Put y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "maybe'post"+ (Prelude.Maybe Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'pattern'+ (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (HttpRule'Post x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Post y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "post" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'pattern'+ (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (HttpRule'Post x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Post y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "maybe'delete"+ (Prelude.Maybe Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'pattern'+ (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (HttpRule'Delete x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Delete y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "delete" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'pattern'+ (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (HttpRule'Delete x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Delete y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "maybe'patch"+ (Prelude.Maybe Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'pattern'+ (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (HttpRule'Patch x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Patch y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "patch" (Data.Text.Text)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'pattern'+ (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (HttpRule'Patch x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Patch y__))+ (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "maybe'custom"+ (Prelude.Maybe CustomHttpPattern)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'pattern'+ (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (HttpRule'Custom x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Custom y__))+instance Prelude.Functor f =>+ Lens.Labels.HasLens' f HttpRule "custom" (CustomHttpPattern)+ where+ lensOf' _+ = (Prelude..)+ (Lens.Family2.Unchecked.lens _HttpRule'pattern'+ (\ x__ y__ -> x__{_HttpRule'pattern' = y__}))+ ((Prelude..)+ (Lens.Family2.Unchecked.lens+ (\ x__ ->+ case x__ of+ Prelude.Just (HttpRule'Custom x__val) -> Prelude.Just x__val+ _otherwise -> Prelude.Nothing)+ (\ _ y__ -> Prelude.fmap HttpRule'Custom y__))+ (Data.ProtoLens.maybeLens Data.Default.Class.def))+instance Data.Default.Class.Default HttpRule where+ def+ = HttpRule{_HttpRule'selector = Data.ProtoLens.fieldDefault,+ _HttpRule'body = Data.ProtoLens.fieldDefault,+ _HttpRule'responseBody = Data.ProtoLens.fieldDefault,+ _HttpRule'additionalBindings = [],+ _HttpRule'pattern' = Prelude.Nothing,+ _HttpRule'_unknownFields = ([])}+instance Data.ProtoLens.Message HttpRule where+ messageName _ = Data.Text.pack "google.api.HttpRule"+ fieldsByTag+ = let selector__field_descriptor+ = Data.ProtoLens.FieldDescriptor "selector"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "selector")))+ :: Data.ProtoLens.FieldDescriptor HttpRule+ body__field_descriptor+ = Data.ProtoLens.FieldDescriptor "body"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "body")))+ :: Data.ProtoLens.FieldDescriptor HttpRule+ responseBody__field_descriptor+ = Data.ProtoLens.FieldDescriptor "response_body"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.PlainField Data.ProtoLens.Optional+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "responseBody")))+ :: Data.ProtoLens.FieldDescriptor HttpRule+ additionalBindings__field_descriptor+ = Data.ProtoLens.FieldDescriptor "additional_bindings"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor HttpRule)+ (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "additionalBindings")))+ :: Data.ProtoLens.FieldDescriptor HttpRule+ get__field_descriptor+ = Data.ProtoLens.FieldDescriptor "get"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'get")))+ :: Data.ProtoLens.FieldDescriptor HttpRule+ put__field_descriptor+ = Data.ProtoLens.FieldDescriptor "put"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'put")))+ :: Data.ProtoLens.FieldDescriptor HttpRule+ post__field_descriptor+ = Data.ProtoLens.FieldDescriptor "post"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'post")))+ :: Data.ProtoLens.FieldDescriptor HttpRule+ delete__field_descriptor+ = Data.ProtoLens.FieldDescriptor "delete"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'delete")))+ :: Data.ProtoLens.FieldDescriptor HttpRule+ patch__field_descriptor+ = Data.ProtoLens.FieldDescriptor "patch"+ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::+ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'patch")))+ :: Data.ProtoLens.FieldDescriptor HttpRule+ custom__field_descriptor+ = Data.ProtoLens.FieldDescriptor "custom"+ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::+ Data.ProtoLens.FieldTypeDescriptor CustomHttpPattern)+ (Data.ProtoLens.OptionalField+ (Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'custom")))+ :: Data.ProtoLens.FieldDescriptor HttpRule+ in+ Data.Map.fromList+ [(Data.ProtoLens.Tag 1, selector__field_descriptor),+ (Data.ProtoLens.Tag 7, body__field_descriptor),+ (Data.ProtoLens.Tag 12, responseBody__field_descriptor),+ (Data.ProtoLens.Tag 11, additionalBindings__field_descriptor),+ (Data.ProtoLens.Tag 2, get__field_descriptor),+ (Data.ProtoLens.Tag 3, put__field_descriptor),+ (Data.ProtoLens.Tag 4, post__field_descriptor),+ (Data.ProtoLens.Tag 5, delete__field_descriptor),+ (Data.ProtoLens.Tag 6, patch__field_descriptor),+ (Data.ProtoLens.Tag 8, custom__field_descriptor)]+ unknownFields+ = Lens.Family2.Unchecked.lens _HttpRule'_unknownFields+ (\ x__ y__ -> x__{_HttpRule'_unknownFields = y__})+_HttpRule'Get ::+ Lens.Labels.Prism.Prism' HttpRule'Pattern Data.Text.Text+_HttpRule'Get+ = Lens.Labels.Prism.prism' HttpRule'Get+ (\ p__ ->+ case p__ of+ HttpRule'Get p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_HttpRule'Put ::+ Lens.Labels.Prism.Prism' HttpRule'Pattern Data.Text.Text+_HttpRule'Put+ = Lens.Labels.Prism.prism' HttpRule'Put+ (\ p__ ->+ case p__ of+ HttpRule'Put p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_HttpRule'Post ::+ Lens.Labels.Prism.Prism' HttpRule'Pattern Data.Text.Text+_HttpRule'Post+ = Lens.Labels.Prism.prism' HttpRule'Post+ (\ p__ ->+ case p__ of+ HttpRule'Post p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_HttpRule'Delete ::+ Lens.Labels.Prism.Prism' HttpRule'Pattern Data.Text.Text+_HttpRule'Delete+ = Lens.Labels.Prism.prism' HttpRule'Delete+ (\ p__ ->+ case p__ of+ HttpRule'Delete p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_HttpRule'Patch ::+ Lens.Labels.Prism.Prism' HttpRule'Pattern Data.Text.Text+_HttpRule'Patch+ = Lens.Labels.Prism.prism' HttpRule'Patch+ (\ p__ ->+ case p__ of+ HttpRule'Patch p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)+_HttpRule'Custom ::+ Lens.Labels.Prism.Prism' HttpRule'Pattern CustomHttpPattern+_HttpRule'Custom+ = Lens.Labels.Prism.prism' HttpRule'Custom+ (\ p__ ->+ case p__ of+ HttpRule'Custom p__val -> Prelude.Just p__val+ _otherwise -> Prelude.Nothing)
+ gen/Proto/Google/Api/Http_Fields.hs view
@@ -0,0 +1,167 @@+{- This file was auto-generated from google/api/http.proto by the proto-lens-protoc program. -}+{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,+ UndecidableInstances, GeneralizedNewtypeDeriving,+ MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,+ PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports#-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}+module Proto.Google.Api.Http_Fields where+import qualified Data.ProtoLens.Reexport.Prelude as Prelude+import qualified Data.ProtoLens.Reexport.Data.Int as Data.Int+import qualified Data.ProtoLens.Reexport.Data.Word as Data.Word+import qualified Data.ProtoLens.Reexport.Data.ProtoLens+ as Data.ProtoLens+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum+ as Data.ProtoLens.Message.Enum+import qualified+ Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types+ as Data.ProtoLens.Service.Types+import qualified Data.ProtoLens.Reexport.Lens.Family2+ as Lens.Family2+import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked+ as Lens.Family2.Unchecked+import qualified Data.ProtoLens.Reexport.Data.Default.Class+ as Data.Default.Class+import qualified Data.ProtoLens.Reexport.Data.Text as Data.Text+import qualified Data.ProtoLens.Reexport.Data.Map as Data.Map+import qualified Data.ProtoLens.Reexport.Data.ByteString+ as Data.ByteString+import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8+ as Data.ByteString.Char8+import qualified Data.ProtoLens.Reexport.Lens.Labels as Lens.Labels+import qualified Data.ProtoLens.Reexport.Text.Read as Text.Read++additionalBindings ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "additionalBindings" a b) =>+ Lens.Family2.LensLike f s t a b+additionalBindings+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "additionalBindings")+body ::+ forall f s t a b . (Lens.Labels.HasLens f s t "body" a b) =>+ Lens.Family2.LensLike f s t a b+body+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "body")+custom ::+ forall f s t a b . (Lens.Labels.HasLens f s t "custom" a b) =>+ Lens.Family2.LensLike f s t a b+custom+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "custom")+delete ::+ forall f s t a b . (Lens.Labels.HasLens f s t "delete" a b) =>+ Lens.Family2.LensLike f s t a b+delete+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "delete")+fullyDecodeReservedExpansion ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "fullyDecodeReservedExpansion" a b) =>+ Lens.Family2.LensLike f s t a b+fullyDecodeReservedExpansion+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) ::+ (Lens.Labels.Proxy#) "fullyDecodeReservedExpansion")+get ::+ forall f s t a b . (Lens.Labels.HasLens f s t "get" a b) =>+ Lens.Family2.LensLike f s t a b+get+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "get")+kind ::+ forall f s t a b . (Lens.Labels.HasLens f s t "kind" a b) =>+ Lens.Family2.LensLike f s t a b+kind+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "kind")+maybe'custom ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'custom" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'custom+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'custom")+maybe'delete ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'delete" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'delete+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'delete")+maybe'get ::+ forall f s t a b . (Lens.Labels.HasLens f s t "maybe'get" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'get+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'get")+maybe'patch ::+ forall f s t a b . (Lens.Labels.HasLens f s t "maybe'patch" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'patch+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'patch")+maybe'pattern' ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "maybe'pattern'" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'pattern'+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'pattern'")+maybe'post ::+ forall f s t a b . (Lens.Labels.HasLens f s t "maybe'post" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'post+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'post")+maybe'put ::+ forall f s t a b . (Lens.Labels.HasLens f s t "maybe'put" a b) =>+ Lens.Family2.LensLike f s t a b+maybe'put+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'put")+patch ::+ forall f s t a b . (Lens.Labels.HasLens f s t "patch" a b) =>+ Lens.Family2.LensLike f s t a b+patch+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "patch")+path ::+ forall f s t a b . (Lens.Labels.HasLens f s t "path" a b) =>+ Lens.Family2.LensLike f s t a b+path+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "path")+post ::+ forall f s t a b . (Lens.Labels.HasLens f s t "post" a b) =>+ Lens.Family2.LensLike f s t a b+post+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "post")+put ::+ forall f s t a b . (Lens.Labels.HasLens f s t "put" a b) =>+ Lens.Family2.LensLike f s t a b+put+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "put")+responseBody ::+ forall f s t a b .+ (Lens.Labels.HasLens f s t "responseBody" a b) =>+ Lens.Family2.LensLike f s t a b+responseBody+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "responseBody")+rules ::+ forall f s t a b . (Lens.Labels.HasLens f s t "rules" a b) =>+ Lens.Family2.LensLike f s t a b+rules+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rules")+selector ::+ forall f s t a b . (Lens.Labels.HasLens f s t "selector" a b) =>+ Lens.Family2.LensLike f s t a b+selector+ = Lens.Labels.lensOf+ ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "selector")
+ grpc-api-etcd.cabal view
@@ -0,0 +1,51 @@+-- This file has been generated from package.yaml by hpack version 0.28.2.+--+-- see: https://github.com/sol/hpack+--+-- hash: 0ef0a6065ef7043ec44f1d221d73641ea1fbe3919e52a2898552d6bfd997d67d++name: grpc-api-etcd+version: 0.1.0.0+synopsis: Generated messages and instances for etcd gRPC.+description: Please see the README on GitHub at <https://github.com/lucasdicioccio/grpc-api-etcd#readme>+category: GRPC+homepage: https://github.com/lucasdicioccio/grpc-api-etcd#readme+bug-reports: https://github.com/lucasdicioccio/grpc-api-etcd/issues+author: Lucas DiCioccio+maintainer: lucas@dicioccio.fr+copyright: 2018 Lucas DiCioccio+license: BSD3+license-file: LICENSE+build-type: Simple+cabal-version: >= 1.10+extra-source-files:+ ChangeLog.md+ README.md++source-repository head+ type: git+ location: https://github.com/lucasdicioccio/grpc-api-etcd++library+ exposed-modules:+ Proto.Etcd.Auth.Authpb.Auth+ Proto.Etcd.Auth.Authpb.Auth_Fields+ Proto.Etcd.Etcdserver.Etcdserverpb.Rpc+ Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields+ Proto.Etcd.Mvcc.Mvccpb.Kv+ Proto.Etcd.Mvcc.Mvccpb.Kv_Fields+ Proto.Gogoproto.Gogo+ Proto.Gogoproto.Gogo_Fields+ Proto.Google.Api.Annotations+ Proto.Google.Api.Annotations_Fields+ Proto.Google.Api.Http+ Proto.Google.Api.Http_Fields+ other-modules:+ Paths_grpc_api_etcd+ hs-source-dirs:+ gen+ build-depends:+ base >=4.7 && <5+ , proto-lens >=0.3 && <0.4+ , proto-lens-protoc >=0.3 && <0.4+ default-language: Haskell2010