diff --git a/ChangeLog.md b/ChangeLog.md new file mode 100644 --- /dev/null +++ b/ChangeLog.md @@ -0,0 +1,3 @@ +# Changelog for grpc-api-etcd + +## Unreleased changes diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -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. diff --git a/README.md b/README.md new file mode 100644 --- /dev/null +++ b/README.md @@ -0,0 +1,3 @@ +# grpc-api-etcd + +This code is generated using `proto-lens`. diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/gen/Proto/Etcd/Auth/Authpb/Auth.hs b/gen/Proto/Etcd/Auth/Authpb/Auth.hs new file mode 100644 --- /dev/null +++ b/gen/Proto/Etcd/Auth/Authpb/Auth.hs @@ -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__}) diff --git a/gen/Proto/Etcd/Auth/Authpb/Auth_Fields.hs b/gen/Proto/Etcd/Auth/Authpb/Auth_Fields.hs new file mode 100644 --- /dev/null +++ b/gen/Proto/Etcd/Auth/Authpb/Auth_Fields.hs @@ -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") diff --git a/gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc.hs b/gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc.hs new file mode 100644 --- /dev/null +++ b/gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc.hs @@ -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 diff --git a/gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc_Fields.hs b/gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc_Fields.hs new file mode 100644 --- /dev/null +++ b/gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc_Fields.hs @@ -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") diff --git a/gen/Proto/Etcd/Mvcc/Mvccpb/Kv.hs b/gen/Proto/Etcd/Mvcc/Mvccpb/Kv.hs new file mode 100644 --- /dev/null +++ b/gen/Proto/Etcd/Mvcc/Mvccpb/Kv.hs @@ -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__}) diff --git a/gen/Proto/Etcd/Mvcc/Mvccpb/Kv_Fields.hs b/gen/Proto/Etcd/Mvcc/Mvccpb/Kv_Fields.hs new file mode 100644 --- /dev/null +++ b/gen/Proto/Etcd/Mvcc/Mvccpb/Kv_Fields.hs @@ -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") diff --git a/gen/Proto/Gogoproto/Gogo.hs b/gen/Proto/Gogoproto/Gogo.hs new file mode 100644 --- /dev/null +++ b/gen/Proto/Gogoproto/Gogo.hs @@ -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 diff --git a/gen/Proto/Gogoproto/Gogo_Fields.hs b/gen/Proto/Gogoproto/Gogo_Fields.hs new file mode 100644 --- /dev/null +++ b/gen/Proto/Gogoproto/Gogo_Fields.hs @@ -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 diff --git a/gen/Proto/Google/Api/Annotations.hs b/gen/Proto/Google/Api/Annotations.hs new file mode 100644 --- /dev/null +++ b/gen/Proto/Google/Api/Annotations.hs @@ -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 diff --git a/gen/Proto/Google/Api/Annotations_Fields.hs b/gen/Proto/Google/Api/Annotations_Fields.hs new file mode 100644 --- /dev/null +++ b/gen/Proto/Google/Api/Annotations_Fields.hs @@ -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 diff --git a/gen/Proto/Google/Api/Http.hs b/gen/Proto/Google/Api/Http.hs new file mode 100644 --- /dev/null +++ b/gen/Proto/Google/Api/Http.hs @@ -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) diff --git a/gen/Proto/Google/Api/Http_Fields.hs b/gen/Proto/Google/Api/Http_Fields.hs new file mode 100644 --- /dev/null +++ b/gen/Proto/Google/Api/Http_Fields.hs @@ -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") diff --git a/grpc-api-etcd.cabal b/grpc-api-etcd.cabal new file mode 100644 --- /dev/null +++ b/grpc-api-etcd.cabal @@ -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 +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