diff --git a/gen/Proto/Etcd/Auth/Authpb/Auth.hs b/gen/Proto/Etcd/Auth/Authpb/Auth.hs --- a/gen/Proto/Etcd/Auth/Authpb/Auth.hs +++ b/gen/Proto/Etcd/Auth/Authpb/Auth.hs @@ -6,36 +6,35 @@ {-# 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(..)) + (Permission(), Permission'Type(..), Permission'Type(), + Permission'Type'UnrecognizedValue, Role(), User()) where -import qualified Data.ProtoLens.Reexport.Lens.Labels.Prism +import qualified Data.ProtoLens.Runtime.Control.DeepSeq + as Control.DeepSeq +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Reexport.Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.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 Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read import qualified Proto.Gogoproto.Gogo {- | Fields : @@ -49,21 +48,21 @@ _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) + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Permission where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' 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" +instance Lens.Labels.HasLens' Permission "key" (Data.ByteString.ByteString) where lensOf' _ @@ -71,8 +70,7 @@ (Lens.Family2.Unchecked.lens _Permission'key (\ x__ y__ -> x__{_Permission'key = y__})) Prelude.id -instance Prelude.Functor f => - Lens.Labels.HasLens' f Permission "rangeEnd" +instance Lens.Labels.HasLens' Permission "rangeEnd" (Data.ByteString.ByteString) where lensOf' _ @@ -80,12 +78,6 @@ (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 @@ -94,7 +86,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor Permission'Type) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "permType"))) :: Data.ProtoLens.FieldDescriptor Permission key__field_descriptor @@ -102,7 +94,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key"))) :: Data.ProtoLens.FieldDescriptor Permission rangeEnd__field_descriptor @@ -110,7 +102,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rangeEnd"))) :: Data.ProtoLens.FieldDescriptor Permission in @@ -121,6 +113,18 @@ unknownFields = Lens.Family2.Unchecked.lens _Permission'_unknownFields (\ x__ y__ -> x__{_Permission'_unknownFields = y__}) + defMessage + = Permission{_Permission'permType = Data.ProtoLens.fieldDefault, + _Permission'key = Data.ProtoLens.fieldDefault, + _Permission'rangeEnd = Data.ProtoLens.fieldDefault, + _Permission'_unknownFields = ([])} +instance Control.DeepSeq.NFData Permission where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_Permission'_unknownFields x__) + (Control.DeepSeq.deepseq (_Permission'permType x__) + (Control.DeepSeq.deepseq (_Permission'key x__) + (Control.DeepSeq.deepseq (_Permission'rangeEnd x__) (())))) data Permission'Type = Permission'READ | Permission'WRITE | Permission'READWRITE @@ -186,10 +190,10 @@ 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 +instance Control.DeepSeq.NFData Permission'Type where + rnf x__ = Prelude.seq x__ (()) {- | Fields : * 'Proto.Etcd.Auth.Authpb.Auth_Fields.name' @:: Lens' Role Data.ByteString.ByteString@ @@ -198,31 +202,27 @@ 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) + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Role where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' 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]) +instance Lens.Labels.HasLens' 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 @@ -231,7 +231,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name"))) :: Data.ProtoLens.FieldDescriptor Role keyPermission__field_descriptor @@ -239,7 +239,7 @@ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor Permission) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "keyPermission"))) :: Data.ProtoLens.FieldDescriptor Role in @@ -249,6 +249,15 @@ unknownFields = Lens.Family2.Unchecked.lens _Role'_unknownFields (\ x__ y__ -> x__{_Role'_unknownFields = y__}) + defMessage + = Role{_Role'name = Data.ProtoLens.fieldDefault, + _Role'keyPermission = [], _Role'_unknownFields = ([])} +instance Control.DeepSeq.NFData Role where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_Role'_unknownFields x__) + (Control.DeepSeq.deepseq (_Role'name x__) + (Control.DeepSeq.deepseq (_Role'keyPermission x__) (()))) {- | Fields : * 'Proto.Etcd.Auth.Authpb.Auth_Fields.name' @:: Lens' User Data.ByteString.ByteString@ @@ -259,40 +268,34 @@ _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) + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show User where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' 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) +instance Lens.Labels.HasLens' 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 +instance Lens.Labels.HasLens' 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 @@ -301,7 +304,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name"))) :: Data.ProtoLens.FieldDescriptor User password__field_descriptor @@ -309,7 +312,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "password"))) :: Data.ProtoLens.FieldDescriptor User roles__field_descriptor @@ -317,7 +320,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "roles"))) :: Data.ProtoLens.FieldDescriptor User in @@ -328,3 +331,14 @@ unknownFields = Lens.Family2.Unchecked.lens _User'_unknownFields (\ x__ y__ -> x__{_User'_unknownFields = y__}) + defMessage + = User{_User'name = Data.ProtoLens.fieldDefault, + _User'password = Data.ProtoLens.fieldDefault, _User'roles = [], + _User'_unknownFields = ([])} +instance Control.DeepSeq.NFData User where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_User'_unknownFields x__) + (Control.DeepSeq.deepseq (_User'name x__) + (Control.DeepSeq.deepseq (_User'password x__) + (Control.DeepSeq.deepseq (_User'roles x__) (())))) diff --git a/gen/Proto/Etcd/Auth/Authpb/Auth_Fields.hs b/gen/Proto/Etcd/Auth/Authpb/Auth_Fields.hs --- a/gen/Proto/Etcd/Auth/Authpb/Auth_Fields.hs +++ b/gen/Proto/Etcd/Auth/Authpb/Auth_Fields.hs @@ -6,73 +6,76 @@ {-# 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 +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Reexport.Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.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 Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "key" a) => + Lens.Family2.LensLike' f s a key - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "keyPermission" a) => + Lens.Family2.LensLike' f s a keyPermission - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "name" a) => + Lens.Family2.LensLike' f s a name - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "password" a) => + Lens.Family2.LensLike' f s a password - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "permType" a) => + Lens.Family2.LensLike' f s a permType - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "rangeEnd" a) => + Lens.Family2.LensLike' f s a rangeEnd - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "roles" a) => + Lens.Family2.LensLike' f s a roles - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "roles") diff --git a/gen/Proto/Etcd/Etcdserver/Api/V3election/V3electionpb/V3election.hs b/gen/Proto/Etcd/Etcdserver/Api/V3election/V3electionpb/V3election.hs --- a/gen/Proto/Etcd/Etcdserver/Api/V3election/V3electionpb/V3election.hs +++ b/gen/Proto/Etcd/Etcdserver/Api/V3election/V3electionpb/V3election.hs @@ -6,38 +6,36 @@ {-# OPTIONS_GHC -fno-warn-unused-imports#-} {-# OPTIONS_GHC -fno-warn-duplicate-exports#-} module Proto.Etcd.Etcdserver.Api.V3election.V3electionpb.V3election - (Election(..), CampaignRequest(..), CampaignResponse(..), - LeaderKey(..), LeaderRequest(..), LeaderResponse(..), - ProclaimRequest(..), ProclaimResponse(..), ResignRequest(..), - ResignResponse(..)) + (Election(..), CampaignRequest(), CampaignResponse(), LeaderKey(), + LeaderRequest(), LeaderResponse(), ProclaimRequest(), + ProclaimResponse(), ResignRequest(), ResignResponse()) where -import qualified Data.ProtoLens.Reexport.Lens.Labels.Prism +import qualified Data.ProtoLens.Runtime.Control.DeepSeq + as Control.DeepSeq +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Reexport.Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.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 Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read import qualified Proto.Etcd.Etcdserver.Etcdserverpb.Rpc import qualified Proto.Etcd.Mvcc.Mvccpb.Kv import qualified Proto.Gogoproto.Gogo @@ -54,13 +52,13 @@ _CampaignRequest'lease :: !Data.Int.Int64, _CampaignRequest'value :: !Data.ByteString.ByteString, _CampaignRequest'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance (Lens.Labels.HasLens' f CampaignRequest x a, a ~ b) => - Lens.Labels.HasLens f CampaignRequest CampaignRequest x a b - where - lensOf = Lens.Labels.lensOf' -instance Prelude.Functor f => - Lens.Labels.HasLens' f CampaignRequest "name" + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CampaignRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' CampaignRequest "name" (Data.ByteString.ByteString) where lensOf' _ @@ -68,16 +66,15 @@ (Lens.Family2.Unchecked.lens _CampaignRequest'name (\ x__ y__ -> x__{_CampaignRequest'name = y__})) Prelude.id -instance Prelude.Functor f => - Lens.Labels.HasLens' f CampaignRequest "lease" (Data.Int.Int64) +instance Lens.Labels.HasLens' CampaignRequest "lease" + (Data.Int.Int64) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _CampaignRequest'lease (\ x__ y__ -> x__{_CampaignRequest'lease = y__})) Prelude.id -instance Prelude.Functor f => - Lens.Labels.HasLens' f CampaignRequest "value" +instance Lens.Labels.HasLens' CampaignRequest "value" (Data.ByteString.ByteString) where lensOf' _ @@ -85,13 +82,6 @@ (Lens.Family2.Unchecked.lens _CampaignRequest'value (\ x__ y__ -> x__{_CampaignRequest'value = y__})) Prelude.id -instance Data.Default.Class.Default CampaignRequest where - def - = CampaignRequest{_CampaignRequest'name = - Data.ProtoLens.fieldDefault, - _CampaignRequest'lease = Data.ProtoLens.fieldDefault, - _CampaignRequest'value = Data.ProtoLens.fieldDefault, - _CampaignRequest'_unknownFields = ([])} instance Data.ProtoLens.Message CampaignRequest where messageName _ = Data.Text.pack "v3electionpb.CampaignRequest" fieldsByTag @@ -100,7 +90,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name"))) :: Data.ProtoLens.FieldDescriptor CampaignRequest lease__field_descriptor @@ -108,7 +98,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "lease"))) :: Data.ProtoLens.FieldDescriptor CampaignRequest value__field_descriptor @@ -116,7 +106,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value"))) :: Data.ProtoLens.FieldDescriptor CampaignRequest in @@ -127,6 +117,19 @@ unknownFields = Lens.Family2.Unchecked.lens _CampaignRequest'_unknownFields (\ x__ y__ -> x__{_CampaignRequest'_unknownFields = y__}) + defMessage + = CampaignRequest{_CampaignRequest'name = + Data.ProtoLens.fieldDefault, + _CampaignRequest'lease = Data.ProtoLens.fieldDefault, + _CampaignRequest'value = Data.ProtoLens.fieldDefault, + _CampaignRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData CampaignRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_CampaignRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_CampaignRequest'name x__) + (Control.DeepSeq.deepseq (_CampaignRequest'lease x__) + (Control.DeepSeq.deepseq (_CampaignRequest'value x__) (())))) {- | Fields : * 'Proto.Etcd.Etcdserver.Api.V3election.V3electionpb.V3election_Fields.header' @:: Lens' CampaignResponse @@ -144,22 +147,21 @@ _CampaignResponse'leader :: !(Prelude.Maybe LeaderKey), _CampaignResponse'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance (Lens.Labels.HasLens' f CampaignResponse x a, a ~ b) => - Lens.Labels.HasLens f CampaignResponse CampaignResponse x a b - where - lensOf = Lens.Labels.lensOf' -instance Prelude.Functor f => - Lens.Labels.HasLens' f CampaignResponse "header" + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CampaignResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' CampaignResponse "header" (Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _CampaignResponse'header (\ x__ y__ -> x__{_CampaignResponse'header = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) -instance Prelude.Functor f => - Lens.Labels.HasLens' f CampaignResponse "maybe'header" + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' CampaignResponse "maybe'header" (Prelude.Maybe Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) where @@ -168,16 +170,14 @@ (Lens.Family2.Unchecked.lens _CampaignResponse'header (\ x__ y__ -> x__{_CampaignResponse'header = y__})) Prelude.id -instance Prelude.Functor f => - Lens.Labels.HasLens' f CampaignResponse "leader" (LeaderKey) +instance Lens.Labels.HasLens' CampaignResponse "leader" (LeaderKey) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _CampaignResponse'leader (\ x__ y__ -> x__{_CampaignResponse'leader = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) -instance Prelude.Functor f => - Lens.Labels.HasLens' f CampaignResponse "maybe'leader" + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' CampaignResponse "maybe'leader" (Prelude.Maybe LeaderKey) where lensOf' _ @@ -185,11 +185,6 @@ (Lens.Family2.Unchecked.lens _CampaignResponse'leader (\ x__ y__ -> x__{_CampaignResponse'leader = y__})) Prelude.id -instance Data.Default.Class.Default CampaignResponse where - def - = CampaignResponse{_CampaignResponse'header = Prelude.Nothing, - _CampaignResponse'leader = Prelude.Nothing, - _CampaignResponse'_unknownFields = ([])} instance Data.ProtoLens.Message CampaignResponse where messageName _ = Data.Text.pack "v3electionpb.CampaignResponse" fieldsByTag @@ -199,7 +194,7 @@ Data.ProtoLens.FieldTypeDescriptor Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header"))) :: Data.ProtoLens.FieldDescriptor CampaignResponse leader__field_descriptor @@ -207,7 +202,7 @@ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor LeaderKey) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'leader"))) :: Data.ProtoLens.FieldDescriptor CampaignResponse in @@ -217,6 +212,16 @@ unknownFields = Lens.Family2.Unchecked.lens _CampaignResponse'_unknownFields (\ x__ y__ -> x__{_CampaignResponse'_unknownFields = y__}) + defMessage + = CampaignResponse{_CampaignResponse'header = Prelude.Nothing, + _CampaignResponse'leader = Prelude.Nothing, + _CampaignResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData CampaignResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_CampaignResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_CampaignResponse'header x__) + (Control.DeepSeq.deepseq (_CampaignResponse'leader x__) (()))) {- | Fields : * 'Proto.Etcd.Etcdserver.Api.V3election.V3electionpb.V3election_Fields.name' @:: Lens' LeaderKey Data.ByteString.ByteString@ @@ -230,13 +235,13 @@ _LeaderKey'rev :: !Data.Int.Int64, _LeaderKey'lease :: !Data.Int.Int64, _LeaderKey'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance (Lens.Labels.HasLens' f LeaderKey x a, a ~ b) => - Lens.Labels.HasLens f LeaderKey LeaderKey x a b - where - lensOf = Lens.Labels.lensOf' -instance Prelude.Functor f => - Lens.Labels.HasLens' f LeaderKey "name" + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LeaderKey where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaderKey "name" (Data.ByteString.ByteString) where lensOf' _ @@ -244,37 +249,28 @@ (Lens.Family2.Unchecked.lens _LeaderKey'name (\ x__ y__ -> x__{_LeaderKey'name = y__})) Prelude.id -instance Prelude.Functor f => - Lens.Labels.HasLens' f LeaderKey "key" (Data.ByteString.ByteString) +instance Lens.Labels.HasLens' LeaderKey "key" + (Data.ByteString.ByteString) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _LeaderKey'key (\ x__ y__ -> x__{_LeaderKey'key = y__})) Prelude.id -instance Prelude.Functor f => - Lens.Labels.HasLens' f LeaderKey "rev" (Data.Int.Int64) +instance Lens.Labels.HasLens' LeaderKey "rev" (Data.Int.Int64) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _LeaderKey'rev (\ x__ y__ -> x__{_LeaderKey'rev = y__})) Prelude.id -instance Prelude.Functor f => - Lens.Labels.HasLens' f LeaderKey "lease" (Data.Int.Int64) +instance Lens.Labels.HasLens' LeaderKey "lease" (Data.Int.Int64) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _LeaderKey'lease (\ x__ y__ -> x__{_LeaderKey'lease = y__})) Prelude.id -instance Data.Default.Class.Default LeaderKey where - def - = LeaderKey{_LeaderKey'name = Data.ProtoLens.fieldDefault, - _LeaderKey'key = Data.ProtoLens.fieldDefault, - _LeaderKey'rev = Data.ProtoLens.fieldDefault, - _LeaderKey'lease = Data.ProtoLens.fieldDefault, - _LeaderKey'_unknownFields = ([])} instance Data.ProtoLens.Message LeaderKey where messageName _ = Data.Text.pack "v3electionpb.LeaderKey" fieldsByTag @@ -283,7 +279,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name"))) :: Data.ProtoLens.FieldDescriptor LeaderKey key__field_descriptor @@ -291,7 +287,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key"))) :: Data.ProtoLens.FieldDescriptor LeaderKey rev__field_descriptor @@ -299,7 +295,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rev"))) :: Data.ProtoLens.FieldDescriptor LeaderKey lease__field_descriptor @@ -307,7 +303,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "lease"))) :: Data.ProtoLens.FieldDescriptor LeaderKey in @@ -319,6 +315,20 @@ unknownFields = Lens.Family2.Unchecked.lens _LeaderKey'_unknownFields (\ x__ y__ -> x__{_LeaderKey'_unknownFields = y__}) + defMessage + = LeaderKey{_LeaderKey'name = Data.ProtoLens.fieldDefault, + _LeaderKey'key = Data.ProtoLens.fieldDefault, + _LeaderKey'rev = Data.ProtoLens.fieldDefault, + _LeaderKey'lease = Data.ProtoLens.fieldDefault, + _LeaderKey'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaderKey where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_LeaderKey'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaderKey'name x__) + (Control.DeepSeq.deepseq (_LeaderKey'key x__) + (Control.DeepSeq.deepseq (_LeaderKey'rev x__) + (Control.DeepSeq.deepseq (_LeaderKey'lease x__) (()))))) {- | Fields : * 'Proto.Etcd.Etcdserver.Api.V3election.V3electionpb.V3election_Fields.name' @:: Lens' LeaderRequest Data.ByteString.ByteString@ @@ -326,13 +336,13 @@ data LeaderRequest = LeaderRequest{_LeaderRequest'name :: !Data.ByteString.ByteString, _LeaderRequest'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance (Lens.Labels.HasLens' f LeaderRequest x a, a ~ b) => - Lens.Labels.HasLens f LeaderRequest LeaderRequest x a b - where - lensOf = Lens.Labels.lensOf' -instance Prelude.Functor f => - Lens.Labels.HasLens' f LeaderRequest "name" + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LeaderRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaderRequest "name" (Data.ByteString.ByteString) where lensOf' _ @@ -340,10 +350,6 @@ (Lens.Family2.Unchecked.lens _LeaderRequest'name (\ x__ y__ -> x__{_LeaderRequest'name = y__})) Prelude.id -instance Data.Default.Class.Default LeaderRequest where - def - = LeaderRequest{_LeaderRequest'name = Data.ProtoLens.fieldDefault, - _LeaderRequest'_unknownFields = ([])} instance Data.ProtoLens.Message LeaderRequest where messageName _ = Data.Text.pack "v3electionpb.LeaderRequest" fieldsByTag @@ -352,7 +358,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name"))) :: Data.ProtoLens.FieldDescriptor LeaderRequest in @@ -360,6 +366,14 @@ unknownFields = Lens.Family2.Unchecked.lens _LeaderRequest'_unknownFields (\ x__ y__ -> x__{_LeaderRequest'_unknownFields = y__}) + defMessage + = LeaderRequest{_LeaderRequest'name = Data.ProtoLens.fieldDefault, + _LeaderRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaderRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_LeaderRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaderRequest'name x__) (())) {- | Fields : * 'Proto.Etcd.Etcdserver.Api.V3election.V3electionpb.V3election_Fields.header' @:: Lens' LeaderResponse @@ -377,22 +391,21 @@ _LeaderResponse'kv :: !(Prelude.Maybe Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue), _LeaderResponse'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance (Lens.Labels.HasLens' f LeaderResponse x a, a ~ b) => - Lens.Labels.HasLens f LeaderResponse LeaderResponse x a b - where - lensOf = Lens.Labels.lensOf' -instance Prelude.Functor f => - Lens.Labels.HasLens' f LeaderResponse "header" + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LeaderResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaderResponse "header" (Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _LeaderResponse'header (\ x__ y__ -> x__{_LeaderResponse'header = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) -instance Prelude.Functor f => - Lens.Labels.HasLens' f LeaderResponse "maybe'header" + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' LeaderResponse "maybe'header" (Prelude.Maybe Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) where @@ -401,17 +414,15 @@ (Lens.Family2.Unchecked.lens _LeaderResponse'header (\ x__ y__ -> x__{_LeaderResponse'header = y__})) Prelude.id -instance Prelude.Functor f => - Lens.Labels.HasLens' f LeaderResponse "kv" +instance Lens.Labels.HasLens' LeaderResponse "kv" (Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _LeaderResponse'kv (\ x__ y__ -> x__{_LeaderResponse'kv = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) -instance Prelude.Functor f => - Lens.Labels.HasLens' f LeaderResponse "maybe'kv" + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' LeaderResponse "maybe'kv" (Prelude.Maybe Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue) where lensOf' _ @@ -419,11 +430,6 @@ (Lens.Family2.Unchecked.lens _LeaderResponse'kv (\ x__ y__ -> x__{_LeaderResponse'kv = y__})) Prelude.id -instance Data.Default.Class.Default LeaderResponse where - def - = LeaderResponse{_LeaderResponse'header = Prelude.Nothing, - _LeaderResponse'kv = Prelude.Nothing, - _LeaderResponse'_unknownFields = ([])} instance Data.ProtoLens.Message LeaderResponse where messageName _ = Data.Text.pack "v3electionpb.LeaderResponse" fieldsByTag @@ -433,7 +439,7 @@ Data.ProtoLens.FieldTypeDescriptor Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header"))) :: Data.ProtoLens.FieldDescriptor LeaderResponse kv__field_descriptor @@ -442,7 +448,7 @@ Data.ProtoLens.FieldTypeDescriptor Proto.Etcd.Mvcc.Mvccpb.Kv.KeyValue) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'kv"))) :: Data.ProtoLens.FieldDescriptor LeaderResponse in @@ -452,6 +458,16 @@ unknownFields = Lens.Family2.Unchecked.lens _LeaderResponse'_unknownFields (\ x__ y__ -> x__{_LeaderResponse'_unknownFields = y__}) + defMessage + = LeaderResponse{_LeaderResponse'header = Prelude.Nothing, + _LeaderResponse'kv = Prelude.Nothing, + _LeaderResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaderResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_LeaderResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaderResponse'header x__) + (Control.DeepSeq.deepseq (_LeaderResponse'kv x__) (()))) {- | Fields : * 'Proto.Etcd.Etcdserver.Api.V3election.V3electionpb.V3election_Fields.leader' @:: Lens' ProclaimRequest LeaderKey@ @@ -462,21 +478,20 @@ !(Prelude.Maybe LeaderKey), _ProclaimRequest'value :: !Data.ByteString.ByteString, _ProclaimRequest'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance (Lens.Labels.HasLens' f ProclaimRequest x a, a ~ b) => - Lens.Labels.HasLens f ProclaimRequest ProclaimRequest x a b - where - lensOf = Lens.Labels.lensOf' -instance Prelude.Functor f => - Lens.Labels.HasLens' f ProclaimRequest "leader" (LeaderKey) + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ProclaimRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' ProclaimRequest "leader" (LeaderKey) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _ProclaimRequest'leader (\ x__ y__ -> x__{_ProclaimRequest'leader = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) -instance Prelude.Functor f => - Lens.Labels.HasLens' f ProclaimRequest "maybe'leader" + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' ProclaimRequest "maybe'leader" (Prelude.Maybe LeaderKey) where lensOf' _ @@ -484,8 +499,7 @@ (Lens.Family2.Unchecked.lens _ProclaimRequest'leader (\ x__ y__ -> x__{_ProclaimRequest'leader = y__})) Prelude.id -instance Prelude.Functor f => - Lens.Labels.HasLens' f ProclaimRequest "value" +instance Lens.Labels.HasLens' ProclaimRequest "value" (Data.ByteString.ByteString) where lensOf' _ @@ -493,11 +507,6 @@ (Lens.Family2.Unchecked.lens _ProclaimRequest'value (\ x__ y__ -> x__{_ProclaimRequest'value = y__})) Prelude.id -instance Data.Default.Class.Default ProclaimRequest where - def - = ProclaimRequest{_ProclaimRequest'leader = Prelude.Nothing, - _ProclaimRequest'value = Data.ProtoLens.fieldDefault, - _ProclaimRequest'_unknownFields = ([])} instance Data.ProtoLens.Message ProclaimRequest where messageName _ = Data.Text.pack "v3electionpb.ProclaimRequest" fieldsByTag @@ -506,7 +515,7 @@ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor LeaderKey) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'leader"))) :: Data.ProtoLens.FieldDescriptor ProclaimRequest value__field_descriptor @@ -514,7 +523,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value"))) :: Data.ProtoLens.FieldDescriptor ProclaimRequest in @@ -524,6 +533,16 @@ unknownFields = Lens.Family2.Unchecked.lens _ProclaimRequest'_unknownFields (\ x__ y__ -> x__{_ProclaimRequest'_unknownFields = y__}) + defMessage + = ProclaimRequest{_ProclaimRequest'leader = Prelude.Nothing, + _ProclaimRequest'value = Data.ProtoLens.fieldDefault, + _ProclaimRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData ProclaimRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_ProclaimRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_ProclaimRequest'leader x__) + (Control.DeepSeq.deepseq (_ProclaimRequest'value x__) (()))) {- | Fields : * 'Proto.Etcd.Etcdserver.Api.V3election.V3electionpb.V3election_Fields.header' @:: Lens' ProclaimResponse @@ -538,22 +557,21 @@ Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader), _ProclaimResponse'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance (Lens.Labels.HasLens' f ProclaimResponse x a, a ~ b) => - Lens.Labels.HasLens f ProclaimResponse ProclaimResponse x a b - where - lensOf = Lens.Labels.lensOf' -instance Prelude.Functor f => - Lens.Labels.HasLens' f ProclaimResponse "header" + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ProclaimResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' ProclaimResponse "header" (Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _ProclaimResponse'header (\ x__ y__ -> x__{_ProclaimResponse'header = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) -instance Prelude.Functor f => - Lens.Labels.HasLens' f ProclaimResponse "maybe'header" + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' ProclaimResponse "maybe'header" (Prelude.Maybe Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) where @@ -562,10 +580,6 @@ (Lens.Family2.Unchecked.lens _ProclaimResponse'header (\ x__ y__ -> x__{_ProclaimResponse'header = y__})) Prelude.id -instance Data.Default.Class.Default ProclaimResponse where - def - = ProclaimResponse{_ProclaimResponse'header = Prelude.Nothing, - _ProclaimResponse'_unknownFields = ([])} instance Data.ProtoLens.Message ProclaimResponse where messageName _ = Data.Text.pack "v3electionpb.ProclaimResponse" fieldsByTag @@ -575,7 +589,7 @@ Data.ProtoLens.FieldTypeDescriptor Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header"))) :: Data.ProtoLens.FieldDescriptor ProclaimResponse in @@ -584,6 +598,14 @@ unknownFields = Lens.Family2.Unchecked.lens _ProclaimResponse'_unknownFields (\ x__ y__ -> x__{_ProclaimResponse'_unknownFields = y__}) + defMessage + = ProclaimResponse{_ProclaimResponse'header = Prelude.Nothing, + _ProclaimResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData ProclaimResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_ProclaimResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_ProclaimResponse'header x__) (())) {- | Fields : * 'Proto.Etcd.Etcdserver.Api.V3election.V3electionpb.V3election_Fields.leader' @:: Lens' ResignRequest LeaderKey@ @@ -592,21 +614,20 @@ data ResignRequest = ResignRequest{_ResignRequest'leader :: !(Prelude.Maybe LeaderKey), _ResignRequest'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance (Lens.Labels.HasLens' f ResignRequest x a, a ~ b) => - Lens.Labels.HasLens f ResignRequest ResignRequest x a b - where - lensOf = Lens.Labels.lensOf' -instance Prelude.Functor f => - Lens.Labels.HasLens' f ResignRequest "leader" (LeaderKey) + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ResignRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' ResignRequest "leader" (LeaderKey) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _ResignRequest'leader (\ x__ y__ -> x__{_ResignRequest'leader = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) -instance Prelude.Functor f => - Lens.Labels.HasLens' f ResignRequest "maybe'leader" + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' ResignRequest "maybe'leader" (Prelude.Maybe LeaderKey) where lensOf' _ @@ -614,10 +635,6 @@ (Lens.Family2.Unchecked.lens _ResignRequest'leader (\ x__ y__ -> x__{_ResignRequest'leader = y__})) Prelude.id -instance Data.Default.Class.Default ResignRequest where - def - = ResignRequest{_ResignRequest'leader = Prelude.Nothing, - _ResignRequest'_unknownFields = ([])} instance Data.ProtoLens.Message ResignRequest where messageName _ = Data.Text.pack "v3electionpb.ResignRequest" fieldsByTag @@ -626,7 +643,7 @@ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor LeaderKey) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'leader"))) :: Data.ProtoLens.FieldDescriptor ResignRequest in @@ -635,6 +652,14 @@ unknownFields = Lens.Family2.Unchecked.lens _ResignRequest'_unknownFields (\ x__ y__ -> x__{_ResignRequest'_unknownFields = y__}) + defMessage + = ResignRequest{_ResignRequest'leader = Prelude.Nothing, + _ResignRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData ResignRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_ResignRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_ResignRequest'leader x__) (())) {- | Fields : * 'Proto.Etcd.Etcdserver.Api.V3election.V3electionpb.V3election_Fields.header' @:: Lens' ResignResponse @@ -647,22 +672,21 @@ !(Prelude.Maybe Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader), _ResignResponse'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance (Lens.Labels.HasLens' f ResignResponse x a, a ~ b) => - Lens.Labels.HasLens f ResignResponse ResignResponse x a b - where - lensOf = Lens.Labels.lensOf' -instance Prelude.Functor f => - Lens.Labels.HasLens' f ResignResponse "header" + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ResignResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' ResignResponse "header" (Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _ResignResponse'header (\ x__ y__ -> x__{_ResignResponse'header = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) -instance Prelude.Functor f => - Lens.Labels.HasLens' f ResignResponse "maybe'header" + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' ResignResponse "maybe'header" (Prelude.Maybe Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) where @@ -671,10 +695,6 @@ (Lens.Family2.Unchecked.lens _ResignResponse'header (\ x__ y__ -> x__{_ResignResponse'header = y__})) Prelude.id -instance Data.Default.Class.Default ResignResponse where - def - = ResignResponse{_ResignResponse'header = Prelude.Nothing, - _ResignResponse'_unknownFields = ([])} instance Data.ProtoLens.Message ResignResponse where messageName _ = Data.Text.pack "v3electionpb.ResignResponse" fieldsByTag @@ -684,7 +704,7 @@ Data.ProtoLens.FieldTypeDescriptor Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header"))) :: Data.ProtoLens.FieldDescriptor ResignResponse in @@ -693,6 +713,14 @@ unknownFields = Lens.Family2.Unchecked.lens _ResignResponse'_unknownFields (\ x__ y__ -> x__{_ResignResponse'_unknownFields = y__}) + defMessage + = ResignResponse{_ResignResponse'header = Prelude.Nothing, + _ResignResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData ResignResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_ResignResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_ResignResponse'header x__) (())) data Election = Election{} deriving () instance Data.ProtoLens.Service.Types.Service Election where diff --git a/gen/Proto/Etcd/Etcdserver/Api/V3election/V3electionpb/V3election_Fields.hs b/gen/Proto/Etcd/Etcdserver/Api/V3election/V3electionpb/V3election_Fields.hs --- a/gen/Proto/Etcd/Etcdserver/Api/V3election/V3electionpb/V3election_Fields.hs +++ b/gen/Proto/Etcd/Etcdserver/Api/V3election/V3electionpb/V3election_Fields.hs @@ -7,101 +7,107 @@ {-# OPTIONS_GHC -fno-warn-duplicate-exports#-} module Proto.Etcd.Etcdserver.Api.V3election.V3electionpb.V3election_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 +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Reexport.Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.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 Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read import qualified Proto.Etcd.Etcdserver.Etcdserverpb.Rpc import qualified Proto.Etcd.Mvcc.Mvccpb.Kv import qualified Proto.Gogoproto.Gogo import qualified Proto.Google.Api.Annotations header :: - forall f s t a b . (Lens.Labels.HasLens f s t "header" a b) => - Lens.Family2.LensLike f s t a b + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "header" a) => + Lens.Family2.LensLike' f s a header - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "header") key :: - forall f s t a b . (Lens.Labels.HasLens f s t "key" a b) => - Lens.Family2.LensLike f s t a b + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "key" a) => + Lens.Family2.LensLike' f s a key - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "kv" a) => + Lens.Family2.LensLike' f s a kv - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "kv") leader :: - forall f s t a b . (Lens.Labels.HasLens f s t "leader" a b) => - Lens.Family2.LensLike f s t a b + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "leader" a) => + Lens.Family2.LensLike' f s a leader - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "lease" a) => + Lens.Family2.LensLike' f s a lease - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "lease") 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'header" a) => + Lens.Family2.LensLike' f s a maybe'header - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header") 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'kv" a) => + Lens.Family2.LensLike' f s a maybe'kv - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'kv") maybe'leader :: - forall f s t a b . - (Lens.Labels.HasLens f s t "maybe'leader" a b) => - Lens.Family2.LensLike f s t a b + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'leader" a) => + Lens.Family2.LensLike' f s a maybe'leader - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'leader") name :: - forall f s t a b . (Lens.Labels.HasLens f s t "name" a b) => - Lens.Family2.LensLike f s t a b + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "name" a) => + Lens.Family2.LensLike' f s a name - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") rev :: - forall f s t a b . (Lens.Labels.HasLens f s t "rev" a b) => - Lens.Family2.LensLike f s t a b + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "rev" a) => + Lens.Family2.LensLike' f s a rev - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rev") value :: - forall f s t a b . (Lens.Labels.HasLens f s t "value" a b) => - Lens.Family2.LensLike f s t a b + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "value" a) => + Lens.Family2.LensLike' f s a value - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value") diff --git a/gen/Proto/Etcd/Etcdserver/Api/V3lock/V3lockpb/V3lock.hs b/gen/Proto/Etcd/Etcdserver/Api/V3lock/V3lockpb/V3lock.hs --- a/gen/Proto/Etcd/Etcdserver/Api/V3lock/V3lockpb/V3lock.hs +++ b/gen/Proto/Etcd/Etcdserver/Api/V3lock/V3lockpb/V3lock.hs @@ -6,36 +6,35 @@ {-# OPTIONS_GHC -fno-warn-unused-imports#-} {-# OPTIONS_GHC -fno-warn-duplicate-exports#-} module Proto.Etcd.Etcdserver.Api.V3lock.V3lockpb.V3lock - (Lock(..), LockRequest(..), LockResponse(..), UnlockRequest(..), - UnlockResponse(..)) + (Lock(..), LockRequest(), LockResponse(), UnlockRequest(), + UnlockResponse()) where -import qualified Data.ProtoLens.Reexport.Lens.Labels.Prism +import qualified Data.ProtoLens.Runtime.Control.DeepSeq + as Control.DeepSeq +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Reexport.Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.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 Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read import qualified Proto.Etcd.Etcdserver.Etcdserverpb.Rpc import qualified Proto.Gogoproto.Gogo import qualified Proto.Google.Api.Annotations @@ -49,13 +48,13 @@ !Data.ByteString.ByteString, _LockRequest'lease :: !Data.Int.Int64, _LockRequest'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance (Lens.Labels.HasLens' f LockRequest x a, a ~ b) => - Lens.Labels.HasLens f LockRequest LockRequest x a b - where - lensOf = Lens.Labels.lensOf' -instance Prelude.Functor f => - Lens.Labels.HasLens' f LockRequest "name" + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LockRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LockRequest "name" (Data.ByteString.ByteString) where lensOf' _ @@ -63,19 +62,13 @@ (Lens.Family2.Unchecked.lens _LockRequest'name (\ x__ y__ -> x__{_LockRequest'name = y__})) Prelude.id -instance Prelude.Functor f => - Lens.Labels.HasLens' f LockRequest "lease" (Data.Int.Int64) +instance Lens.Labels.HasLens' LockRequest "lease" (Data.Int.Int64) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _LockRequest'lease (\ x__ y__ -> x__{_LockRequest'lease = y__})) Prelude.id -instance Data.Default.Class.Default LockRequest where - def - = LockRequest{_LockRequest'name = Data.ProtoLens.fieldDefault, - _LockRequest'lease = Data.ProtoLens.fieldDefault, - _LockRequest'_unknownFields = ([])} instance Data.ProtoLens.Message LockRequest where messageName _ = Data.Text.pack "v3lockpb.LockRequest" fieldsByTag @@ -84,7 +77,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name"))) :: Data.ProtoLens.FieldDescriptor LockRequest lease__field_descriptor @@ -92,7 +85,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "lease"))) :: Data.ProtoLens.FieldDescriptor LockRequest in @@ -102,6 +95,16 @@ unknownFields = Lens.Family2.Unchecked.lens _LockRequest'_unknownFields (\ x__ y__ -> x__{_LockRequest'_unknownFields = y__}) + defMessage + = LockRequest{_LockRequest'name = Data.ProtoLens.fieldDefault, + _LockRequest'lease = Data.ProtoLens.fieldDefault, + _LockRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData LockRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_LockRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_LockRequest'name x__) + (Control.DeepSeq.deepseq (_LockRequest'lease x__) (()))) {- | Fields : * 'Proto.Etcd.Etcdserver.Api.V3lock.V3lockpb.V3lock_Fields.header' @:: Lens' LockResponse @@ -116,22 +119,21 @@ Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader), _LockResponse'key :: !Data.ByteString.ByteString, _LockResponse'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance (Lens.Labels.HasLens' f LockResponse x a, a ~ b) => - Lens.Labels.HasLens f LockResponse LockResponse x a b - where - lensOf = Lens.Labels.lensOf' -instance Prelude.Functor f => - Lens.Labels.HasLens' f LockResponse "header" + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LockResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LockResponse "header" (Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _LockResponse'header (\ x__ y__ -> x__{_LockResponse'header = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) -instance Prelude.Functor f => - Lens.Labels.HasLens' f LockResponse "maybe'header" + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' LockResponse "maybe'header" (Prelude.Maybe Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) where @@ -140,8 +142,7 @@ (Lens.Family2.Unchecked.lens _LockResponse'header (\ x__ y__ -> x__{_LockResponse'header = y__})) Prelude.id -instance Prelude.Functor f => - Lens.Labels.HasLens' f LockResponse "key" +instance Lens.Labels.HasLens' LockResponse "key" (Data.ByteString.ByteString) where lensOf' _ @@ -149,11 +150,6 @@ (Lens.Family2.Unchecked.lens _LockResponse'key (\ x__ y__ -> x__{_LockResponse'key = y__})) Prelude.id -instance Data.Default.Class.Default LockResponse where - def - = LockResponse{_LockResponse'header = Prelude.Nothing, - _LockResponse'key = Data.ProtoLens.fieldDefault, - _LockResponse'_unknownFields = ([])} instance Data.ProtoLens.Message LockResponse where messageName _ = Data.Text.pack "v3lockpb.LockResponse" fieldsByTag @@ -163,7 +159,7 @@ Data.ProtoLens.FieldTypeDescriptor Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header"))) :: Data.ProtoLens.FieldDescriptor LockResponse key__field_descriptor @@ -171,7 +167,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key"))) :: Data.ProtoLens.FieldDescriptor LockResponse in @@ -181,6 +177,16 @@ unknownFields = Lens.Family2.Unchecked.lens _LockResponse'_unknownFields (\ x__ y__ -> x__{_LockResponse'_unknownFields = y__}) + defMessage + = LockResponse{_LockResponse'header = Prelude.Nothing, + _LockResponse'key = Data.ProtoLens.fieldDefault, + _LockResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData LockResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_LockResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_LockResponse'header x__) + (Control.DeepSeq.deepseq (_LockResponse'key x__) (()))) {- | Fields : * 'Proto.Etcd.Etcdserver.Api.V3lock.V3lockpb.V3lock_Fields.key' @:: Lens' UnlockRequest Data.ByteString.ByteString@ @@ -188,13 +194,13 @@ data UnlockRequest = UnlockRequest{_UnlockRequest'key :: !Data.ByteString.ByteString, _UnlockRequest'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance (Lens.Labels.HasLens' f UnlockRequest x a, a ~ b) => - Lens.Labels.HasLens f UnlockRequest UnlockRequest x a b - where - lensOf = Lens.Labels.lensOf' -instance Prelude.Functor f => - Lens.Labels.HasLens' f UnlockRequest "key" + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UnlockRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' UnlockRequest "key" (Data.ByteString.ByteString) where lensOf' _ @@ -202,10 +208,6 @@ (Lens.Family2.Unchecked.lens _UnlockRequest'key (\ x__ y__ -> x__{_UnlockRequest'key = y__})) Prelude.id -instance Data.Default.Class.Default UnlockRequest where - def - = UnlockRequest{_UnlockRequest'key = Data.ProtoLens.fieldDefault, - _UnlockRequest'_unknownFields = ([])} instance Data.ProtoLens.Message UnlockRequest where messageName _ = Data.Text.pack "v3lockpb.UnlockRequest" fieldsByTag @@ -214,7 +216,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key"))) :: Data.ProtoLens.FieldDescriptor UnlockRequest in @@ -222,6 +224,14 @@ unknownFields = Lens.Family2.Unchecked.lens _UnlockRequest'_unknownFields (\ x__ y__ -> x__{_UnlockRequest'_unknownFields = y__}) + defMessage + = UnlockRequest{_UnlockRequest'key = Data.ProtoLens.fieldDefault, + _UnlockRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData UnlockRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_UnlockRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_UnlockRequest'key x__) (())) {- | Fields : * 'Proto.Etcd.Etcdserver.Api.V3lock.V3lockpb.V3lock_Fields.header' @:: Lens' UnlockResponse @@ -234,22 +244,21 @@ !(Prelude.Maybe Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader), _UnlockResponse'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) -instance (Lens.Labels.HasLens' f UnlockResponse x a, a ~ b) => - Lens.Labels.HasLens f UnlockResponse UnlockResponse x a b - where - lensOf = Lens.Labels.lensOf' -instance Prelude.Functor f => - Lens.Labels.HasLens' f UnlockResponse "header" + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show UnlockResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' UnlockResponse "header" (Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _UnlockResponse'header (\ x__ y__ -> x__{_UnlockResponse'header = y__})) - (Data.ProtoLens.maybeLens Data.Default.Class.def) -instance Prelude.Functor f => - Lens.Labels.HasLens' f UnlockResponse "maybe'header" + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' UnlockResponse "maybe'header" (Prelude.Maybe Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) where @@ -258,10 +267,6 @@ (Lens.Family2.Unchecked.lens _UnlockResponse'header (\ x__ y__ -> x__{_UnlockResponse'header = y__})) Prelude.id -instance Data.Default.Class.Default UnlockResponse where - def - = UnlockResponse{_UnlockResponse'header = Prelude.Nothing, - _UnlockResponse'_unknownFields = ([])} instance Data.ProtoLens.Message UnlockResponse where messageName _ = Data.Text.pack "v3lockpb.UnlockResponse" fieldsByTag @@ -271,7 +276,7 @@ Data.ProtoLens.FieldTypeDescriptor Proto.Etcd.Etcdserver.Etcdserverpb.Rpc.ResponseHeader) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header"))) :: Data.ProtoLens.FieldDescriptor UnlockResponse in @@ -280,6 +285,14 @@ unknownFields = Lens.Family2.Unchecked.lens _UnlockResponse'_unknownFields (\ x__ y__ -> x__{_UnlockResponse'_unknownFields = y__}) + defMessage + = UnlockResponse{_UnlockResponse'header = Prelude.Nothing, + _UnlockResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData UnlockResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_UnlockResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_UnlockResponse'header x__) (())) data Lock = Lock{} deriving () instance Data.ProtoLens.Service.Types.Service Lock where diff --git a/gen/Proto/Etcd/Etcdserver/Api/V3lock/V3lockpb/V3lock_Fields.hs b/gen/Proto/Etcd/Etcdserver/Api/V3lock/V3lockpb/V3lock_Fields.hs --- a/gen/Proto/Etcd/Etcdserver/Api/V3lock/V3lockpb/V3lock_Fields.hs +++ b/gen/Proto/Etcd/Etcdserver/Api/V3lock/V3lockpb/V3lock_Fields.hs @@ -7,63 +7,64 @@ {-# OPTIONS_GHC -fno-warn-duplicate-exports#-} module Proto.Etcd.Etcdserver.Api.V3lock.V3lockpb.V3lock_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 +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Reexport.Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.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 Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read import qualified Proto.Etcd.Etcdserver.Etcdserverpb.Rpc import qualified Proto.Gogoproto.Gogo import qualified Proto.Google.Api.Annotations header :: - forall f s t a b . (Lens.Labels.HasLens f s t "header" a b) => - Lens.Family2.LensLike f s t a b + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "header" a) => + Lens.Family2.LensLike' f s a header - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "header") key :: - forall f s t a b . (Lens.Labels.HasLens f s t "key" a b) => - Lens.Family2.LensLike f s t a b + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "key" a) => + Lens.Family2.LensLike' f s a key - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key") lease :: - forall f s t a b . (Lens.Labels.HasLens f s t "lease" a b) => - Lens.Family2.LensLike f s t a b + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "lease" a) => + Lens.Family2.LensLike' f s a lease - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "lease") 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'header" a) => + Lens.Family2.LensLike' f s a maybe'header - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'header") name :: - forall f s t a b . (Lens.Labels.HasLens f s t "name" a b) => - Lens.Family2.LensLike f s t a b + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "name" a) => + Lens.Family2.LensLike' f s a name - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") diff --git a/gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc.hs b/gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc.hs --- a/gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc.hs +++ b/gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc.hs @@ -7,7665 +7,7999 @@ {-# 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__}) + 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.Runtime.Control.DeepSeq + as Control.DeepSeq +import qualified Data.ProtoLens.Runtime.Lens.Labels.Prism + as Lens.Labels.Prism +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens + as Data.ProtoLens +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum + as Data.ProtoLens.Message.Enum +import qualified + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types + as Data.ProtoLens.Service.Types +import qualified Data.ProtoLens.Runtime.Lens.Family2 + as Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked + as Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString + as Data.ByteString +import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 + as Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.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.Eq, Prelude.Ord) +instance Prelude.Show AlarmMember where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AlarmMember "memberID" + (Data.Word.Word64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AlarmMember'memberID + (\ x__ y__ -> x__{_AlarmMember'memberID = y__})) + Prelude.id +instance Lens.Labels.HasLens' AlarmMember "alarm" (AlarmType) where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AlarmMember'alarm + (\ x__ y__ -> x__{_AlarmMember'alarm = y__})) + Prelude.id +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__}) + defMessage + = AlarmMember{_AlarmMember'memberID = Data.ProtoLens.fieldDefault, + _AlarmMember'alarm = Data.ProtoLens.fieldDefault, + _AlarmMember'_unknownFields = ([])} +instance Control.DeepSeq.NFData AlarmMember where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AlarmMember'_unknownFields x__) + (Control.DeepSeq.deepseq (_AlarmMember'memberID x__) + (Control.DeepSeq.deepseq (_AlarmMember'alarm x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AlarmRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AlarmRequest "action" + (AlarmRequest'AlarmAction) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AlarmRequest'action + (\ x__ y__ -> x__{_AlarmRequest'action = y__})) + Prelude.id +instance Lens.Labels.HasLens' AlarmRequest "memberID" + (Data.Word.Word64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AlarmRequest'memberID + (\ x__ y__ -> x__{_AlarmRequest'memberID = y__})) + Prelude.id +instance Lens.Labels.HasLens' AlarmRequest "alarm" (AlarmType) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AlarmRequest'alarm + (\ x__ y__ -> x__{_AlarmRequest'alarm = y__})) + Prelude.id +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__}) + defMessage + = AlarmRequest{_AlarmRequest'action = Data.ProtoLens.fieldDefault, + _AlarmRequest'memberID = Data.ProtoLens.fieldDefault, + _AlarmRequest'alarm = Data.ProtoLens.fieldDefault, + _AlarmRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AlarmRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AlarmRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_AlarmRequest'action x__) + (Control.DeepSeq.deepseq (_AlarmRequest'memberID x__) + (Control.DeepSeq.deepseq (_AlarmRequest'alarm x__) (())))) +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.ProtoLens.FieldDefault AlarmRequest'AlarmAction where + fieldDefault = AlarmRequest'GET +instance Control.DeepSeq.NFData AlarmRequest'AlarmAction where + rnf x__ = Prelude.seq x__ (()) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AlarmResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AlarmResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AlarmResponse'header + (\ x__ y__ -> x__{_AlarmResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' AlarmResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AlarmResponse'header + (\ x__ y__ -> x__{_AlarmResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' AlarmResponse "alarms" + ([AlarmMember]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AlarmResponse'alarms + (\ x__ y__ -> x__{_AlarmResponse'alarms = y__})) + Prelude.id +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__}) + defMessage + = AlarmResponse{_AlarmResponse'header = Prelude.Nothing, + _AlarmResponse'alarms = [], _AlarmResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AlarmResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AlarmResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_AlarmResponse'header x__) + (Control.DeepSeq.deepseq (_AlarmResponse'alarms x__) (()))) +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.ProtoLens.FieldDefault AlarmType where + fieldDefault = NONE +instance Control.DeepSeq.NFData AlarmType where + rnf x__ = Prelude.seq x__ (()) +{- | Fields : + + -} +data AuthDisableRequest = AuthDisableRequest{_AuthDisableRequest'_unknownFields + :: !Data.ProtoLens.FieldSet} + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AuthDisableRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +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__}) + defMessage + = AuthDisableRequest{_AuthDisableRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthDisableRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthDisableRequest'_unknownFields x__) + (()) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthDisableResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthDisableResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthDisableResponse'header + (\ x__ y__ -> x__{_AuthDisableResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = AuthDisableResponse{_AuthDisableResponse'header = + Prelude.Nothing, + _AuthDisableResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthDisableResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthDisableResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthDisableResponse'header x__) (())) +{- | Fields : + + -} +data AuthEnableRequest = AuthEnableRequest{_AuthEnableRequest'_unknownFields + :: !Data.ProtoLens.FieldSet} + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AuthEnableRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +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__}) + defMessage + = AuthEnableRequest{_AuthEnableRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthEnableRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthEnableRequest'_unknownFields x__) + (()) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthEnableResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthEnableResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthEnableResponse'header + (\ x__ y__ -> x__{_AuthEnableResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = AuthEnableResponse{_AuthEnableResponse'header = Prelude.Nothing, + _AuthEnableResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthEnableResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthEnableResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthEnableResponse'header x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthRoleAddRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthRoleAddRequest "name" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthRoleAddRequest'name + (\ x__ y__ -> x__{_AuthRoleAddRequest'name = y__})) + Prelude.id +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__}) + defMessage + = AuthRoleAddRequest{_AuthRoleAddRequest'name = + Data.ProtoLens.fieldDefault, + _AuthRoleAddRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthRoleAddRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthRoleAddRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthRoleAddRequest'name x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthRoleAddResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthRoleAddResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthRoleAddResponse'header + (\ x__ y__ -> x__{_AuthRoleAddResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = AuthRoleAddResponse{_AuthRoleAddResponse'header = + Prelude.Nothing, + _AuthRoleAddResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthRoleAddResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthRoleAddResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthRoleAddResponse'header x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthRoleDeleteRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthRoleDeleteRequest "role" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthRoleDeleteRequest'role + (\ x__ y__ -> x__{_AuthRoleDeleteRequest'role = y__})) + Prelude.id +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__}) + defMessage + = AuthRoleDeleteRequest{_AuthRoleDeleteRequest'role = + Data.ProtoLens.fieldDefault, + _AuthRoleDeleteRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthRoleDeleteRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthRoleDeleteRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthRoleDeleteRequest'role x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthRoleDeleteResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthRoleDeleteResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthRoleDeleteResponse'header + (\ x__ y__ -> x__{_AuthRoleDeleteResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = AuthRoleDeleteResponse{_AuthRoleDeleteResponse'header = + Prelude.Nothing, + _AuthRoleDeleteResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthRoleDeleteResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_AuthRoleDeleteResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthRoleDeleteResponse'header x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthRoleGetRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthRoleGetRequest "role" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthRoleGetRequest'role + (\ x__ y__ -> x__{_AuthRoleGetRequest'role = y__})) + Prelude.id +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__}) + defMessage + = AuthRoleGetRequest{_AuthRoleGetRequest'role = + Data.ProtoLens.fieldDefault, + _AuthRoleGetRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthRoleGetRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthRoleGetRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthRoleGetRequest'role x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthRoleGetResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthRoleGetResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthRoleGetResponse'header + (\ x__ y__ -> x__{_AuthRoleGetResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' AuthRoleGetResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthRoleGetResponse'header + (\ x__ y__ -> x__{_AuthRoleGetResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = AuthRoleGetResponse{_AuthRoleGetResponse'header = + Prelude.Nothing, + _AuthRoleGetResponse'perm = [], + _AuthRoleGetResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthRoleGetResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthRoleGetResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthRoleGetResponse'header x__) + (Control.DeepSeq.deepseq (_AuthRoleGetResponse'perm x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthRoleGrantPermissionRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthRoleGrantPermissionRequest "name" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthRoleGrantPermissionRequest'name + (\ x__ y__ -> x__{_AuthRoleGrantPermissionRequest'name = y__})) + Prelude.id +instance Lens.Labels.HasLens' 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.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = AuthRoleGrantPermissionRequest{_AuthRoleGrantPermissionRequest'name + = Data.ProtoLens.fieldDefault, + _AuthRoleGrantPermissionRequest'perm = Prelude.Nothing, + _AuthRoleGrantPermissionRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthRoleGrantPermissionRequest + where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_AuthRoleGrantPermissionRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthRoleGrantPermissionRequest'name x__) + (Control.DeepSeq.deepseq (_AuthRoleGrantPermissionRequest'perm x__) + (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthRoleGrantPermissionResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthRoleGrantPermissionResponse + "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AuthRoleGrantPermissionResponse'header + (\ x__ y__ -> x__{_AuthRoleGrantPermissionResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = AuthRoleGrantPermissionResponse{_AuthRoleGrantPermissionResponse'header + = Prelude.Nothing, + _AuthRoleGrantPermissionResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthRoleGrantPermissionResponse + where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_AuthRoleGrantPermissionResponse'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AuthRoleGrantPermissionResponse'header x__) + (())) +{- | Fields : + + -} +data AuthRoleListRequest = AuthRoleListRequest{_AuthRoleListRequest'_unknownFields + :: !Data.ProtoLens.FieldSet} + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AuthRoleListRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +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__}) + defMessage + = AuthRoleListRequest{_AuthRoleListRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthRoleListRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthRoleListRequest'_unknownFields x__) + (()) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthRoleListResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthRoleListResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthRoleListResponse'header + (\ x__ y__ -> x__{_AuthRoleListResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' AuthRoleListResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthRoleListResponse'header + (\ x__ y__ -> x__{_AuthRoleListResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' AuthRoleListResponse "roles" + ([Data.Text.Text]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthRoleListResponse'roles + (\ x__ y__ -> x__{_AuthRoleListResponse'roles = y__})) + Prelude.id +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__}) + defMessage + = AuthRoleListResponse{_AuthRoleListResponse'header = + Prelude.Nothing, + _AuthRoleListResponse'roles = [], + _AuthRoleListResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthRoleListResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthRoleListResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthRoleListResponse'header x__) + (Control.DeepSeq.deepseq (_AuthRoleListResponse'roles x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthRoleRevokePermissionRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthRoleRevokePermissionRequest + "role" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthRoleRevokePermissionRequest'role + (\ x__ y__ -> x__{_AuthRoleRevokePermissionRequest'role = y__})) + Prelude.id +instance Lens.Labels.HasLens' AuthRoleRevokePermissionRequest "key" + (Data.ByteString.ByteString) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthRoleRevokePermissionRequest'key + (\ x__ y__ -> x__{_AuthRoleRevokePermissionRequest'key = y__})) + Prelude.id +instance Lens.Labels.HasLens' AuthRoleRevokePermissionRequest + "rangeEnd" + (Data.ByteString.ByteString) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AuthRoleRevokePermissionRequest'rangeEnd + (\ x__ y__ -> + x__{_AuthRoleRevokePermissionRequest'rangeEnd = y__})) + Prelude.id +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__}) + defMessage + = AuthRoleRevokePermissionRequest{_AuthRoleRevokePermissionRequest'role + = Data.ProtoLens.fieldDefault, + _AuthRoleRevokePermissionRequest'key = + Data.ProtoLens.fieldDefault, + _AuthRoleRevokePermissionRequest'rangeEnd = + Data.ProtoLens.fieldDefault, + _AuthRoleRevokePermissionRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthRoleRevokePermissionRequest + where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_AuthRoleRevokePermissionRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AuthRoleRevokePermissionRequest'role x__) + (Control.DeepSeq.deepseq (_AuthRoleRevokePermissionRequest'key x__) + (Control.DeepSeq.deepseq + (_AuthRoleRevokePermissionRequest'rangeEnd x__) + (())))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthRoleRevokePermissionResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthRoleRevokePermissionResponse + "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AuthRoleRevokePermissionResponse'header + (\ x__ y__ -> x__{_AuthRoleRevokePermissionResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = AuthRoleRevokePermissionResponse{_AuthRoleRevokePermissionResponse'header + = Prelude.Nothing, + _AuthRoleRevokePermissionResponse'_unknownFields = + ([])} +instance Control.DeepSeq.NFData AuthRoleRevokePermissionResponse + where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_AuthRoleRevokePermissionResponse'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AuthRoleRevokePermissionResponse'header x__) + (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthUserAddRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthUserAddRequest "name" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserAddRequest'name + (\ x__ y__ -> x__{_AuthUserAddRequest'name = y__})) + Prelude.id +instance Lens.Labels.HasLens' AuthUserAddRequest "password" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserAddRequest'password + (\ x__ y__ -> x__{_AuthUserAddRequest'password = y__})) + Prelude.id +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__}) + defMessage + = AuthUserAddRequest{_AuthUserAddRequest'name = + Data.ProtoLens.fieldDefault, + _AuthUserAddRequest'password = Data.ProtoLens.fieldDefault, + _AuthUserAddRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthUserAddRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthUserAddRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthUserAddRequest'name x__) + (Control.DeepSeq.deepseq (_AuthUserAddRequest'password x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthUserAddResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthUserAddResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserAddResponse'header + (\ x__ y__ -> x__{_AuthUserAddResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = AuthUserAddResponse{_AuthUserAddResponse'header = + Prelude.Nothing, + _AuthUserAddResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthUserAddResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthUserAddResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthUserAddResponse'header x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthUserChangePasswordRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthUserChangePasswordRequest "name" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserChangePasswordRequest'name + (\ x__ y__ -> x__{_AuthUserChangePasswordRequest'name = y__})) + Prelude.id +instance Lens.Labels.HasLens' AuthUserChangePasswordRequest + "password" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _AuthUserChangePasswordRequest'password + (\ x__ y__ -> x__{_AuthUserChangePasswordRequest'password = y__})) + Prelude.id +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__}) + defMessage + = AuthUserChangePasswordRequest{_AuthUserChangePasswordRequest'name + = Data.ProtoLens.fieldDefault, + _AuthUserChangePasswordRequest'password = + Data.ProtoLens.fieldDefault, + _AuthUserChangePasswordRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthUserChangePasswordRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_AuthUserChangePasswordRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthUserChangePasswordRequest'name x__) + (Control.DeepSeq.deepseq + (_AuthUserChangePasswordRequest'password x__) + (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthUserChangePasswordResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthUserChangePasswordResponse + "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserChangePasswordResponse'header + (\ x__ y__ -> x__{_AuthUserChangePasswordResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = AuthUserChangePasswordResponse{_AuthUserChangePasswordResponse'header + = Prelude.Nothing, + _AuthUserChangePasswordResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthUserChangePasswordResponse + where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_AuthUserChangePasswordResponse'_unknownFields x__) + (Control.DeepSeq.deepseq + (_AuthUserChangePasswordResponse'header x__) + (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthUserDeleteRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthUserDeleteRequest "name" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserDeleteRequest'name + (\ x__ y__ -> x__{_AuthUserDeleteRequest'name = y__})) + Prelude.id +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__}) + defMessage + = AuthUserDeleteRequest{_AuthUserDeleteRequest'name = + Data.ProtoLens.fieldDefault, + _AuthUserDeleteRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthUserDeleteRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthUserDeleteRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthUserDeleteRequest'name x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthUserDeleteResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthUserDeleteResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserDeleteResponse'header + (\ x__ y__ -> x__{_AuthUserDeleteResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = AuthUserDeleteResponse{_AuthUserDeleteResponse'header = + Prelude.Nothing, + _AuthUserDeleteResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthUserDeleteResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_AuthUserDeleteResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthUserDeleteResponse'header x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthUserGetRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthUserGetRequest "name" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserGetRequest'name + (\ x__ y__ -> x__{_AuthUserGetRequest'name = y__})) + Prelude.id +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__}) + defMessage + = AuthUserGetRequest{_AuthUserGetRequest'name = + Data.ProtoLens.fieldDefault, + _AuthUserGetRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthUserGetRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthUserGetRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthUserGetRequest'name x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthUserGetResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthUserGetResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserGetResponse'header + (\ x__ y__ -> x__{_AuthUserGetResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' AuthUserGetResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserGetResponse'header + (\ x__ y__ -> x__{_AuthUserGetResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' AuthUserGetResponse "roles" + ([Data.Text.Text]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserGetResponse'roles + (\ x__ y__ -> x__{_AuthUserGetResponse'roles = y__})) + Prelude.id +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__}) + defMessage + = AuthUserGetResponse{_AuthUserGetResponse'header = + Prelude.Nothing, + _AuthUserGetResponse'roles = [], + _AuthUserGetResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthUserGetResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthUserGetResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthUserGetResponse'header x__) + (Control.DeepSeq.deepseq (_AuthUserGetResponse'roles x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthUserGrantRoleRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthUserGrantRoleRequest "user" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserGrantRoleRequest'user + (\ x__ y__ -> x__{_AuthUserGrantRoleRequest'user = y__})) + Prelude.id +instance Lens.Labels.HasLens' AuthUserGrantRoleRequest "role" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserGrantRoleRequest'role + (\ x__ y__ -> x__{_AuthUserGrantRoleRequest'role = y__})) + Prelude.id +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__}) + defMessage + = AuthUserGrantRoleRequest{_AuthUserGrantRoleRequest'user = + Data.ProtoLens.fieldDefault, + _AuthUserGrantRoleRequest'role = Data.ProtoLens.fieldDefault, + _AuthUserGrantRoleRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthUserGrantRoleRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_AuthUserGrantRoleRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthUserGrantRoleRequest'user x__) + (Control.DeepSeq.deepseq (_AuthUserGrantRoleRequest'role x__) + (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthUserGrantRoleResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthUserGrantRoleResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserGrantRoleResponse'header + (\ x__ y__ -> x__{_AuthUserGrantRoleResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = AuthUserGrantRoleResponse{_AuthUserGrantRoleResponse'header = + Prelude.Nothing, + _AuthUserGrantRoleResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthUserGrantRoleResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_AuthUserGrantRoleResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthUserGrantRoleResponse'header x__) + (())) +{- | Fields : + + -} +data AuthUserListRequest = AuthUserListRequest{_AuthUserListRequest'_unknownFields + :: !Data.ProtoLens.FieldSet} + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show AuthUserListRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +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__}) + defMessage + = AuthUserListRequest{_AuthUserListRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthUserListRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthUserListRequest'_unknownFields x__) + (()) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthUserListResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthUserListResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserListResponse'header + (\ x__ y__ -> x__{_AuthUserListResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' AuthUserListResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserListResponse'header + (\ x__ y__ -> x__{_AuthUserListResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' AuthUserListResponse "users" + ([Data.Text.Text]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserListResponse'users + (\ x__ y__ -> x__{_AuthUserListResponse'users = y__})) + Prelude.id +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__}) + defMessage + = AuthUserListResponse{_AuthUserListResponse'header = + Prelude.Nothing, + _AuthUserListResponse'users = [], + _AuthUserListResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthUserListResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthUserListResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthUserListResponse'header x__) + (Control.DeepSeq.deepseq (_AuthUserListResponse'users x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthUserRevokeRoleRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthUserRevokeRoleRequest "name" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserRevokeRoleRequest'name + (\ x__ y__ -> x__{_AuthUserRevokeRoleRequest'name = y__})) + Prelude.id +instance Lens.Labels.HasLens' AuthUserRevokeRoleRequest "role" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserRevokeRoleRequest'role + (\ x__ y__ -> x__{_AuthUserRevokeRoleRequest'role = y__})) + Prelude.id +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__}) + defMessage + = AuthUserRevokeRoleRequest{_AuthUserRevokeRoleRequest'name = + Data.ProtoLens.fieldDefault, + _AuthUserRevokeRoleRequest'role = Data.ProtoLens.fieldDefault, + _AuthUserRevokeRoleRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthUserRevokeRoleRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_AuthUserRevokeRoleRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthUserRevokeRoleRequest'name x__) + (Control.DeepSeq.deepseq (_AuthUserRevokeRoleRequest'role x__) + (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthUserRevokeRoleResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthUserRevokeRoleResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthUserRevokeRoleResponse'header + (\ x__ y__ -> x__{_AuthUserRevokeRoleResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = AuthUserRevokeRoleResponse{_AuthUserRevokeRoleResponse'header = + Prelude.Nothing, + _AuthUserRevokeRoleResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthUserRevokeRoleResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_AuthUserRevokeRoleResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthUserRevokeRoleResponse'header x__) + (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthenticateRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthenticateRequest "name" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthenticateRequest'name + (\ x__ y__ -> x__{_AuthenticateRequest'name = y__})) + Prelude.id +instance Lens.Labels.HasLens' AuthenticateRequest "password" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthenticateRequest'password + (\ x__ y__ -> x__{_AuthenticateRequest'password = y__})) + Prelude.id +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__}) + defMessage + = AuthenticateRequest{_AuthenticateRequest'name = + Data.ProtoLens.fieldDefault, + _AuthenticateRequest'password = Data.ProtoLens.fieldDefault, + _AuthenticateRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthenticateRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthenticateRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthenticateRequest'name x__) + (Control.DeepSeq.deepseq (_AuthenticateRequest'password x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show AuthenticateResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' AuthenticateResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthenticateResponse'header + (\ x__ y__ -> x__{_AuthenticateResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' AuthenticateResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthenticateResponse'header + (\ x__ y__ -> x__{_AuthenticateResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' AuthenticateResponse "token" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _AuthenticateResponse'token + (\ x__ y__ -> x__{_AuthenticateResponse'token = y__})) + Prelude.id +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__}) + defMessage + = AuthenticateResponse{_AuthenticateResponse'header = + Prelude.Nothing, + _AuthenticateResponse'token = Data.ProtoLens.fieldDefault, + _AuthenticateResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData AuthenticateResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_AuthenticateResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_AuthenticateResponse'header x__) + (Control.DeepSeq.deepseq (_AuthenticateResponse'token x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show CompactionRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' CompactionRequest "revision" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _CompactionRequest'revision + (\ x__ y__ -> x__{_CompactionRequest'revision = y__})) + Prelude.id +instance Lens.Labels.HasLens' CompactionRequest "physical" + (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _CompactionRequest'physical + (\ x__ y__ -> x__{_CompactionRequest'physical = y__})) + Prelude.id +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__}) + defMessage + = CompactionRequest{_CompactionRequest'revision = + Data.ProtoLens.fieldDefault, + _CompactionRequest'physical = Data.ProtoLens.fieldDefault, + _CompactionRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData CompactionRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_CompactionRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_CompactionRequest'revision x__) + (Control.DeepSeq.deepseq (_CompactionRequest'physical x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show CompactionResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' CompactionResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _CompactionResponse'header + (\ x__ y__ -> x__{_CompactionResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = CompactionResponse{_CompactionResponse'header = Prelude.Nothing, + _CompactionResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData CompactionResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_CompactionResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_CompactionResponse'header x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show Compare where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +data Compare'TargetUnion = Compare'Version !Data.Int.Int64 + | Compare'CreateRevision !Data.Int.Int64 + | Compare'ModRevision !Data.Int.Int64 + | Compare'Value !Data.ByteString.ByteString + | Compare'Lease !Data.Int.Int64 + deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Lens.Labels.HasLens' Compare "result" + (Compare'CompareResult) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _Compare'result + (\ x__ y__ -> x__{_Compare'result = y__})) + Prelude.id +instance Lens.Labels.HasLens' Compare "target" + (Compare'CompareTarget) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _Compare'target + (\ x__ y__ -> x__{_Compare'target = y__})) + Prelude.id +instance Lens.Labels.HasLens' Compare "key" + (Data.ByteString.ByteString) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _Compare'key + (\ x__ y__ -> x__{_Compare'key = y__})) + Prelude.id +instance Lens.Labels.HasLens' Compare "rangeEnd" + (Data.ByteString.ByteString) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _Compare'rangeEnd + (\ x__ y__ -> x__{_Compare'rangeEnd = y__})) + Prelude.id +instance Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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.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__}) + defMessage + = Compare{_Compare'result = Data.ProtoLens.fieldDefault, + _Compare'target = Data.ProtoLens.fieldDefault, + _Compare'key = Data.ProtoLens.fieldDefault, + _Compare'rangeEnd = Data.ProtoLens.fieldDefault, + _Compare'targetUnion = Prelude.Nothing, + _Compare'_unknownFields = ([])} +instance Control.DeepSeq.NFData Compare where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_Compare'_unknownFields x__) + (Control.DeepSeq.deepseq (_Compare'result x__) + (Control.DeepSeq.deepseq (_Compare'target x__) + (Control.DeepSeq.deepseq (_Compare'key x__) + (Control.DeepSeq.deepseq (_Compare'rangeEnd x__) + (Control.DeepSeq.deepseq (_Compare'targetUnion x__) (())))))) +instance Control.DeepSeq.NFData Compare'TargetUnion where + rnf (Compare'Version x__) = Control.DeepSeq.rnf x__ + rnf (Compare'CreateRevision x__) = Control.DeepSeq.rnf x__ + rnf (Compare'ModRevision x__) = Control.DeepSeq.rnf x__ + rnf (Compare'Value x__) = Control.DeepSeq.rnf x__ + rnf (Compare'Lease x__) = Control.DeepSeq.rnf x__ +_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.ProtoLens.FieldDefault Compare'CompareResult where + fieldDefault = Compare'EQUAL +instance Control.DeepSeq.NFData Compare'CompareResult where + rnf x__ = Prelude.seq x__ (()) +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.ProtoLens.FieldDefault Compare'CompareTarget where + fieldDefault = Compare'VERSION +instance Control.DeepSeq.NFData Compare'CompareTarget where + rnf x__ = Prelude.seq x__ (()) +{- | Fields : + + -} +data DefragmentRequest = DefragmentRequest{_DefragmentRequest'_unknownFields + :: !Data.ProtoLens.FieldSet} + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show DefragmentRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +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__}) + defMessage + = DefragmentRequest{_DefragmentRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData DefragmentRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_DefragmentRequest'_unknownFields x__) + (()) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show DefragmentResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' DefragmentResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _DefragmentResponse'header + (\ x__ y__ -> x__{_DefragmentResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = DefragmentResponse{_DefragmentResponse'header = Prelude.Nothing, + _DefragmentResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData DefragmentResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_DefragmentResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_DefragmentResponse'header x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show DeleteRangeRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' DeleteRangeRequest "key" + (Data.ByteString.ByteString) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _DeleteRangeRequest'key + (\ x__ y__ -> x__{_DeleteRangeRequest'key = y__})) + Prelude.id +instance Lens.Labels.HasLens' DeleteRangeRequest "rangeEnd" + (Data.ByteString.ByteString) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _DeleteRangeRequest'rangeEnd + (\ x__ y__ -> x__{_DeleteRangeRequest'rangeEnd = y__})) + Prelude.id +instance Lens.Labels.HasLens' DeleteRangeRequest "prevKv" + (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _DeleteRangeRequest'prevKv + (\ x__ y__ -> x__{_DeleteRangeRequest'prevKv = y__})) + Prelude.id +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__}) + defMessage + = DeleteRangeRequest{_DeleteRangeRequest'key = + Data.ProtoLens.fieldDefault, + _DeleteRangeRequest'rangeEnd = Data.ProtoLens.fieldDefault, + _DeleteRangeRequest'prevKv = Data.ProtoLens.fieldDefault, + _DeleteRangeRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData DeleteRangeRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_DeleteRangeRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_DeleteRangeRequest'key x__) + (Control.DeepSeq.deepseq (_DeleteRangeRequest'rangeEnd x__) + (Control.DeepSeq.deepseq (_DeleteRangeRequest'prevKv x__) (())))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show DeleteRangeResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' DeleteRangeResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _DeleteRangeResponse'header + (\ x__ y__ -> x__{_DeleteRangeResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' DeleteRangeResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _DeleteRangeResponse'header + (\ x__ y__ -> x__{_DeleteRangeResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' DeleteRangeResponse "deleted" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _DeleteRangeResponse'deleted + (\ x__ y__ -> x__{_DeleteRangeResponse'deleted = y__})) + Prelude.id +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = DeleteRangeResponse{_DeleteRangeResponse'header = + Prelude.Nothing, + _DeleteRangeResponse'deleted = Data.ProtoLens.fieldDefault, + _DeleteRangeResponse'prevKvs = [], + _DeleteRangeResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData DeleteRangeResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_DeleteRangeResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_DeleteRangeResponse'header x__) + (Control.DeepSeq.deepseq (_DeleteRangeResponse'deleted x__) + (Control.DeepSeq.deepseq (_DeleteRangeResponse'prevKvs x__) (())))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show HashKVRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' HashKVRequest "revision" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _HashKVRequest'revision + (\ x__ y__ -> x__{_HashKVRequest'revision = y__})) + Prelude.id +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__}) + defMessage + = HashKVRequest{_HashKVRequest'revision = + Data.ProtoLens.fieldDefault, + _HashKVRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData HashKVRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_HashKVRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_HashKVRequest'revision x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show HashKVResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' HashKVResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _HashKVResponse'header + (\ x__ y__ -> x__{_HashKVResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' HashKVResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _HashKVResponse'header + (\ x__ y__ -> x__{_HashKVResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' HashKVResponse "hash" + (Data.Word.Word32) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _HashKVResponse'hash + (\ x__ y__ -> x__{_HashKVResponse'hash = y__})) + Prelude.id +instance Lens.Labels.HasLens' HashKVResponse "compactRevision" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _HashKVResponse'compactRevision + (\ x__ y__ -> x__{_HashKVResponse'compactRevision = y__})) + Prelude.id +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__}) + defMessage + = HashKVResponse{_HashKVResponse'header = Prelude.Nothing, + _HashKVResponse'hash = Data.ProtoLens.fieldDefault, + _HashKVResponse'compactRevision = Data.ProtoLens.fieldDefault, + _HashKVResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData HashKVResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_HashKVResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_HashKVResponse'header x__) + (Control.DeepSeq.deepseq (_HashKVResponse'hash x__) + (Control.DeepSeq.deepseq (_HashKVResponse'compactRevision x__) + (())))) +{- | Fields : + + -} +data HashRequest = HashRequest{_HashRequest'_unknownFields :: + !Data.ProtoLens.FieldSet} + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show HashRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +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__}) + defMessage = HashRequest{_HashRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData HashRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_HashRequest'_unknownFields x__) (()) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show HashResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' HashResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _HashResponse'header + (\ x__ y__ -> x__{_HashResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' HashResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _HashResponse'header + (\ x__ y__ -> x__{_HashResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' HashResponse "hash" + (Data.Word.Word32) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _HashResponse'hash + (\ x__ y__ -> x__{_HashResponse'hash = y__})) + Prelude.id +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__}) + defMessage + = HashResponse{_HashResponse'header = Prelude.Nothing, + _HashResponse'hash = Data.ProtoLens.fieldDefault, + _HashResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData HashResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_HashResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_HashResponse'header x__) + (Control.DeepSeq.deepseq (_HashResponse'hash x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show LeaseCheckpoint where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaseCheckpoint "id" (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseCheckpoint'id + (\ x__ y__ -> x__{_LeaseCheckpoint'id = y__})) + Prelude.id +instance Lens.Labels.HasLens' LeaseCheckpoint "remainingTTL" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseCheckpoint'remainingTTL + (\ x__ y__ -> x__{_LeaseCheckpoint'remainingTTL = y__})) + Prelude.id +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__}) + defMessage + = LeaseCheckpoint{_LeaseCheckpoint'id = + Data.ProtoLens.fieldDefault, + _LeaseCheckpoint'remainingTTL = Data.ProtoLens.fieldDefault, + _LeaseCheckpoint'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaseCheckpoint where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_LeaseCheckpoint'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaseCheckpoint'id x__) + (Control.DeepSeq.deepseq (_LeaseCheckpoint'remainingTTL x__) (()))) +{- | Fields : + + * 'Proto.Etcd.Etcdserver.Etcdserverpb.Rpc_Fields.checkpoints' @:: Lens' LeaseCheckpointRequest [LeaseCheckpoint]@ + -} +data LeaseCheckpointRequest = LeaseCheckpointRequest{_LeaseCheckpointRequest'checkpoints + :: ![LeaseCheckpoint], + _LeaseCheckpointRequest'_unknownFields :: + !Data.ProtoLens.FieldSet} + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LeaseCheckpointRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaseCheckpointRequest "checkpoints" + ([LeaseCheckpoint]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseCheckpointRequest'checkpoints + (\ x__ y__ -> x__{_LeaseCheckpointRequest'checkpoints = y__})) + Prelude.id +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__}) + defMessage + = LeaseCheckpointRequest{_LeaseCheckpointRequest'checkpoints = [], + _LeaseCheckpointRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaseCheckpointRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_LeaseCheckpointRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaseCheckpointRequest'checkpoints x__) + (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show LeaseCheckpointResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaseCheckpointResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseCheckpointResponse'header + (\ x__ y__ -> x__{_LeaseCheckpointResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = LeaseCheckpointResponse{_LeaseCheckpointResponse'header = + Prelude.Nothing, + _LeaseCheckpointResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaseCheckpointResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_LeaseCheckpointResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaseCheckpointResponse'header x__) + (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show LeaseGrantRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaseGrantRequest "ttl" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseGrantRequest'ttl + (\ x__ y__ -> x__{_LeaseGrantRequest'ttl = y__})) + Prelude.id +instance Lens.Labels.HasLens' LeaseGrantRequest "id" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseGrantRequest'id + (\ x__ y__ -> x__{_LeaseGrantRequest'id = y__})) + Prelude.id +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__}) + defMessage + = LeaseGrantRequest{_LeaseGrantRequest'ttl = + Data.ProtoLens.fieldDefault, + _LeaseGrantRequest'id = Data.ProtoLens.fieldDefault, + _LeaseGrantRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaseGrantRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_LeaseGrantRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaseGrantRequest'ttl x__) + (Control.DeepSeq.deepseq (_LeaseGrantRequest'id x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show LeaseGrantResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaseGrantResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseGrantResponse'header + (\ x__ y__ -> x__{_LeaseGrantResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' LeaseGrantResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseGrantResponse'header + (\ x__ y__ -> x__{_LeaseGrantResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' LeaseGrantResponse "id" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseGrantResponse'id + (\ x__ y__ -> x__{_LeaseGrantResponse'id = y__})) + Prelude.id +instance Lens.Labels.HasLens' LeaseGrantResponse "ttl" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseGrantResponse'ttl + (\ x__ y__ -> x__{_LeaseGrantResponse'ttl = y__})) + Prelude.id +instance Lens.Labels.HasLens' LeaseGrantResponse "error" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseGrantResponse'error + (\ x__ y__ -> x__{_LeaseGrantResponse'error = y__})) + Prelude.id +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__}) + defMessage + = LeaseGrantResponse{_LeaseGrantResponse'header = Prelude.Nothing, + _LeaseGrantResponse'id = Data.ProtoLens.fieldDefault, + _LeaseGrantResponse'ttl = Data.ProtoLens.fieldDefault, + _LeaseGrantResponse'error = Data.ProtoLens.fieldDefault, + _LeaseGrantResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaseGrantResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_LeaseGrantResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaseGrantResponse'header x__) + (Control.DeepSeq.deepseq (_LeaseGrantResponse'id x__) + (Control.DeepSeq.deepseq (_LeaseGrantResponse'ttl x__) + (Control.DeepSeq.deepseq (_LeaseGrantResponse'error x__) (()))))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show LeaseKeepAliveRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaseKeepAliveRequest "id" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseKeepAliveRequest'id + (\ x__ y__ -> x__{_LeaseKeepAliveRequest'id = y__})) + Prelude.id +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__}) + defMessage + = LeaseKeepAliveRequest{_LeaseKeepAliveRequest'id = + Data.ProtoLens.fieldDefault, + _LeaseKeepAliveRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaseKeepAliveRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_LeaseKeepAliveRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaseKeepAliveRequest'id x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show LeaseKeepAliveResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaseKeepAliveResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseKeepAliveResponse'header + (\ x__ y__ -> x__{_LeaseKeepAliveResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' LeaseKeepAliveResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseKeepAliveResponse'header + (\ x__ y__ -> x__{_LeaseKeepAliveResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' LeaseKeepAliveResponse "id" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseKeepAliveResponse'id + (\ x__ y__ -> x__{_LeaseKeepAliveResponse'id = y__})) + Prelude.id +instance Lens.Labels.HasLens' LeaseKeepAliveResponse "ttl" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseKeepAliveResponse'ttl + (\ x__ y__ -> x__{_LeaseKeepAliveResponse'ttl = y__})) + Prelude.id +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__}) + defMessage + = LeaseKeepAliveResponse{_LeaseKeepAliveResponse'header = + Prelude.Nothing, + _LeaseKeepAliveResponse'id = Data.ProtoLens.fieldDefault, + _LeaseKeepAliveResponse'ttl = Data.ProtoLens.fieldDefault, + _LeaseKeepAliveResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaseKeepAliveResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_LeaseKeepAliveResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaseKeepAliveResponse'header x__) + (Control.DeepSeq.deepseq (_LeaseKeepAliveResponse'id x__) + (Control.DeepSeq.deepseq (_LeaseKeepAliveResponse'ttl x__) (())))) +{- | Fields : + + -} +data LeaseLeasesRequest = LeaseLeasesRequest{_LeaseLeasesRequest'_unknownFields + :: !Data.ProtoLens.FieldSet} + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LeaseLeasesRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +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__}) + defMessage + = LeaseLeasesRequest{_LeaseLeasesRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaseLeasesRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_LeaseLeasesRequest'_unknownFields x__) + (()) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show LeaseLeasesResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaseLeasesResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseLeasesResponse'header + (\ x__ y__ -> x__{_LeaseLeasesResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' LeaseLeasesResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseLeasesResponse'header + (\ x__ y__ -> x__{_LeaseLeasesResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' LeaseLeasesResponse "leases" + ([LeaseStatus]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseLeasesResponse'leases + (\ x__ y__ -> x__{_LeaseLeasesResponse'leases = y__})) + Prelude.id +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__}) + defMessage + = LeaseLeasesResponse{_LeaseLeasesResponse'header = + Prelude.Nothing, + _LeaseLeasesResponse'leases = [], + _LeaseLeasesResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaseLeasesResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_LeaseLeasesResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaseLeasesResponse'header x__) + (Control.DeepSeq.deepseq (_LeaseLeasesResponse'leases x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show LeaseRevokeRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaseRevokeRequest "id" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseRevokeRequest'id + (\ x__ y__ -> x__{_LeaseRevokeRequest'id = y__})) + Prelude.id +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__}) + defMessage + = LeaseRevokeRequest{_LeaseRevokeRequest'id = + Data.ProtoLens.fieldDefault, + _LeaseRevokeRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaseRevokeRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_LeaseRevokeRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaseRevokeRequest'id x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show LeaseRevokeResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaseRevokeResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseRevokeResponse'header + (\ x__ y__ -> x__{_LeaseRevokeResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = LeaseRevokeResponse{_LeaseRevokeResponse'header = + Prelude.Nothing, + _LeaseRevokeResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaseRevokeResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_LeaseRevokeResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaseRevokeResponse'header x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show LeaseStatus where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaseStatus "id" (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseStatus'id + (\ x__ y__ -> x__{_LeaseStatus'id = y__})) + Prelude.id +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__}) + defMessage + = LeaseStatus{_LeaseStatus'id = Data.ProtoLens.fieldDefault, + _LeaseStatus'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaseStatus where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_LeaseStatus'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaseStatus'id x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show LeaseTimeToLiveRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaseTimeToLiveRequest "id" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseTimeToLiveRequest'id + (\ x__ y__ -> x__{_LeaseTimeToLiveRequest'id = y__})) + Prelude.id +instance Lens.Labels.HasLens' LeaseTimeToLiveRequest "keys" + (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseTimeToLiveRequest'keys + (\ x__ y__ -> x__{_LeaseTimeToLiveRequest'keys = y__})) + Prelude.id +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__}) + defMessage + = LeaseTimeToLiveRequest{_LeaseTimeToLiveRequest'id = + Data.ProtoLens.fieldDefault, + _LeaseTimeToLiveRequest'keys = Data.ProtoLens.fieldDefault, + _LeaseTimeToLiveRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData LeaseTimeToLiveRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_LeaseTimeToLiveRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaseTimeToLiveRequest'id x__) + (Control.DeepSeq.deepseq (_LeaseTimeToLiveRequest'keys x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show LeaseTimeToLiveResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' LeaseTimeToLiveResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseTimeToLiveResponse'header + (\ x__ y__ -> x__{_LeaseTimeToLiveResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' LeaseTimeToLiveResponse + "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseTimeToLiveResponse'header + (\ x__ y__ -> x__{_LeaseTimeToLiveResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' LeaseTimeToLiveResponse "id" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseTimeToLiveResponse'id + (\ x__ y__ -> x__{_LeaseTimeToLiveResponse'id = y__})) + Prelude.id +instance Lens.Labels.HasLens' LeaseTimeToLiveResponse "ttl" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseTimeToLiveResponse'ttl + (\ x__ y__ -> x__{_LeaseTimeToLiveResponse'ttl = y__})) + Prelude.id +instance Lens.Labels.HasLens' LeaseTimeToLiveResponse "grantedTTL" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseTimeToLiveResponse'grantedTTL + (\ x__ y__ -> x__{_LeaseTimeToLiveResponse'grantedTTL = y__})) + Prelude.id +instance Lens.Labels.HasLens' LeaseTimeToLiveResponse "keys" + ([Data.ByteString.ByteString]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _LeaseTimeToLiveResponse'keys + (\ x__ y__ -> x__{_LeaseTimeToLiveResponse'keys = y__})) + Prelude.id +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__}) + defMessage + = 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 Control.DeepSeq.NFData LeaseTimeToLiveResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq + (_LeaseTimeToLiveResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_LeaseTimeToLiveResponse'header x__) + (Control.DeepSeq.deepseq (_LeaseTimeToLiveResponse'id x__) + (Control.DeepSeq.deepseq (_LeaseTimeToLiveResponse'ttl x__) + (Control.DeepSeq.deepseq (_LeaseTimeToLiveResponse'grantedTTL x__) + (Control.DeepSeq.deepseq (_LeaseTimeToLiveResponse'keys x__) + (())))))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show Member where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' Member "id" (Data.Word.Word64) where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _Member'id + (\ x__ y__ -> x__{_Member'id = y__})) + Prelude.id +instance Lens.Labels.HasLens' Member "name" (Data.Text.Text) where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _Member'name + (\ x__ y__ -> x__{_Member'name = y__})) + Prelude.id +instance Lens.Labels.HasLens' Member "peerURLs" ([Data.Text.Text]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _Member'peerURLs + (\ x__ y__ -> x__{_Member'peerURLs = y__})) + Prelude.id +instance Lens.Labels.HasLens' Member "clientURLs" + ([Data.Text.Text]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _Member'clientURLs + (\ x__ y__ -> x__{_Member'clientURLs = y__})) + Prelude.id +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__}) + defMessage + = Member{_Member'id = Data.ProtoLens.fieldDefault, + _Member'name = Data.ProtoLens.fieldDefault, _Member'peerURLs = [], + _Member'clientURLs = [], _Member'_unknownFields = ([])} +instance Control.DeepSeq.NFData Member where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_Member'_unknownFields x__) + (Control.DeepSeq.deepseq (_Member'id x__) + (Control.DeepSeq.deepseq (_Member'name x__) + (Control.DeepSeq.deepseq (_Member'peerURLs x__) + (Control.DeepSeq.deepseq (_Member'clientURLs x__) (()))))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show MemberAddRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' MemberAddRequest "peerURLs" + ([Data.Text.Text]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberAddRequest'peerURLs + (\ x__ y__ -> x__{_MemberAddRequest'peerURLs = y__})) + Prelude.id +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__}) + defMessage + = MemberAddRequest{_MemberAddRequest'peerURLs = [], + _MemberAddRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData MemberAddRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_MemberAddRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_MemberAddRequest'peerURLs x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show MemberAddResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' MemberAddResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberAddResponse'header + (\ x__ y__ -> x__{_MemberAddResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' MemberAddResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberAddResponse'header + (\ x__ y__ -> x__{_MemberAddResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' MemberAddResponse "member" (Member) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberAddResponse'member + (\ x__ y__ -> x__{_MemberAddResponse'member = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' MemberAddResponse "maybe'member" + (Prelude.Maybe Member) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberAddResponse'member + (\ x__ y__ -> x__{_MemberAddResponse'member = y__})) + Prelude.id +instance Lens.Labels.HasLens' MemberAddResponse "members" + ([Member]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberAddResponse'members + (\ x__ y__ -> x__{_MemberAddResponse'members = y__})) + Prelude.id +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__}) + defMessage + = MemberAddResponse{_MemberAddResponse'header = Prelude.Nothing, + _MemberAddResponse'member = Prelude.Nothing, + _MemberAddResponse'members = [], + _MemberAddResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData MemberAddResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_MemberAddResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_MemberAddResponse'header x__) + (Control.DeepSeq.deepseq (_MemberAddResponse'member x__) + (Control.DeepSeq.deepseq (_MemberAddResponse'members x__) (())))) +{- | Fields : + + -} +data MemberListRequest = MemberListRequest{_MemberListRequest'_unknownFields + :: !Data.ProtoLens.FieldSet} + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show MemberListRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +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__}) + defMessage + = MemberListRequest{_MemberListRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData MemberListRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_MemberListRequest'_unknownFields x__) + (()) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show MemberListResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' MemberListResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberListResponse'header + (\ x__ y__ -> x__{_MemberListResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' MemberListResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberListResponse'header + (\ x__ y__ -> x__{_MemberListResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' MemberListResponse "members" + ([Member]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberListResponse'members + (\ x__ y__ -> x__{_MemberListResponse'members = y__})) + Prelude.id +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__}) + defMessage + = MemberListResponse{_MemberListResponse'header = Prelude.Nothing, + _MemberListResponse'members = [], + _MemberListResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData MemberListResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_MemberListResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_MemberListResponse'header x__) + (Control.DeepSeq.deepseq (_MemberListResponse'members x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show MemberRemoveRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' MemberRemoveRequest "id" + (Data.Word.Word64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberRemoveRequest'id + (\ x__ y__ -> x__{_MemberRemoveRequest'id = y__})) + Prelude.id +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__}) + defMessage + = MemberRemoveRequest{_MemberRemoveRequest'id = + Data.ProtoLens.fieldDefault, + _MemberRemoveRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData MemberRemoveRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_MemberRemoveRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_MemberRemoveRequest'id x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show MemberRemoveResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' MemberRemoveResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberRemoveResponse'header + (\ x__ y__ -> x__{_MemberRemoveResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' MemberRemoveResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberRemoveResponse'header + (\ x__ y__ -> x__{_MemberRemoveResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' MemberRemoveResponse "members" + ([Member]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberRemoveResponse'members + (\ x__ y__ -> x__{_MemberRemoveResponse'members = y__})) + Prelude.id +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__}) + defMessage + = MemberRemoveResponse{_MemberRemoveResponse'header = + Prelude.Nothing, + _MemberRemoveResponse'members = [], + _MemberRemoveResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData MemberRemoveResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_MemberRemoveResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_MemberRemoveResponse'header x__) + (Control.DeepSeq.deepseq (_MemberRemoveResponse'members x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show MemberUpdateRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' MemberUpdateRequest "id" + (Data.Word.Word64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberUpdateRequest'id + (\ x__ y__ -> x__{_MemberUpdateRequest'id = y__})) + Prelude.id +instance Lens.Labels.HasLens' MemberUpdateRequest "peerURLs" + ([Data.Text.Text]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberUpdateRequest'peerURLs + (\ x__ y__ -> x__{_MemberUpdateRequest'peerURLs = y__})) + Prelude.id +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__}) + defMessage + = MemberUpdateRequest{_MemberUpdateRequest'id = + Data.ProtoLens.fieldDefault, + _MemberUpdateRequest'peerURLs = [], + _MemberUpdateRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData MemberUpdateRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_MemberUpdateRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_MemberUpdateRequest'id x__) + (Control.DeepSeq.deepseq (_MemberUpdateRequest'peerURLs x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show MemberUpdateResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' MemberUpdateResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberUpdateResponse'header + (\ x__ y__ -> x__{_MemberUpdateResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' MemberUpdateResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberUpdateResponse'header + (\ x__ y__ -> x__{_MemberUpdateResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' MemberUpdateResponse "members" + ([Member]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MemberUpdateResponse'members + (\ x__ y__ -> x__{_MemberUpdateResponse'members = y__})) + Prelude.id +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__}) + defMessage + = MemberUpdateResponse{_MemberUpdateResponse'header = + Prelude.Nothing, + _MemberUpdateResponse'members = [], + _MemberUpdateResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData MemberUpdateResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_MemberUpdateResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_MemberUpdateResponse'header x__) + (Control.DeepSeq.deepseq (_MemberUpdateResponse'members x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show MoveLeaderRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' MoveLeaderRequest "targetID" + (Data.Word.Word64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MoveLeaderRequest'targetID + (\ x__ y__ -> x__{_MoveLeaderRequest'targetID = y__})) + Prelude.id +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__}) + defMessage + = MoveLeaderRequest{_MoveLeaderRequest'targetID = + Data.ProtoLens.fieldDefault, + _MoveLeaderRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData MoveLeaderRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_MoveLeaderRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_MoveLeaderRequest'targetID x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show MoveLeaderResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' MoveLeaderResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _MoveLeaderResponse'header + (\ x__ y__ -> x__{_MoveLeaderResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = MoveLeaderResponse{_MoveLeaderResponse'header = Prelude.Nothing, + _MoveLeaderResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData MoveLeaderResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_MoveLeaderResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_MoveLeaderResponse'header x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show PutRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' PutRequest "key" + (Data.ByteString.ByteString) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _PutRequest'key + (\ x__ y__ -> x__{_PutRequest'key = y__})) + Prelude.id +instance Lens.Labels.HasLens' PutRequest "value" + (Data.ByteString.ByteString) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _PutRequest'value + (\ x__ y__ -> x__{_PutRequest'value = y__})) + Prelude.id +instance Lens.Labels.HasLens' PutRequest "lease" (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _PutRequest'lease + (\ x__ y__ -> x__{_PutRequest'lease = y__})) + Prelude.id +instance Lens.Labels.HasLens' PutRequest "prevKv" (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _PutRequest'prevKv + (\ x__ y__ -> x__{_PutRequest'prevKv = y__})) + Prelude.id +instance Lens.Labels.HasLens' PutRequest "ignoreValue" + (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _PutRequest'ignoreValue + (\ x__ y__ -> x__{_PutRequest'ignoreValue = y__})) + Prelude.id +instance Lens.Labels.HasLens' PutRequest "ignoreLease" + (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _PutRequest'ignoreLease + (\ x__ y__ -> x__{_PutRequest'ignoreLease = y__})) + Prelude.id +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__}) + defMessage + = 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 Control.DeepSeq.NFData PutRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_PutRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_PutRequest'key x__) + (Control.DeepSeq.deepseq (_PutRequest'value x__) + (Control.DeepSeq.deepseq (_PutRequest'lease x__) + (Control.DeepSeq.deepseq (_PutRequest'prevKv x__) + (Control.DeepSeq.deepseq (_PutRequest'ignoreValue x__) + (Control.DeepSeq.deepseq (_PutRequest'ignoreLease x__) (()))))))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show PutResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' PutResponse "header" (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _PutResponse'header + (\ x__ y__ -> x__{_PutResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' PutResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _PutResponse'header + (\ x__ y__ -> x__{_PutResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' 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.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = PutResponse{_PutResponse'header = Prelude.Nothing, + _PutResponse'prevKv = Prelude.Nothing, + _PutResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData PutResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_PutResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_PutResponse'header x__) + (Control.DeepSeq.deepseq (_PutResponse'prevKv x__) (()))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show RangeRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' RangeRequest "key" + (Data.ByteString.ByteString) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeRequest'key + (\ x__ y__ -> x__{_RangeRequest'key = y__})) + Prelude.id +instance Lens.Labels.HasLens' RangeRequest "rangeEnd" + (Data.ByteString.ByteString) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeRequest'rangeEnd + (\ x__ y__ -> x__{_RangeRequest'rangeEnd = y__})) + Prelude.id +instance Lens.Labels.HasLens' RangeRequest "limit" (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeRequest'limit + (\ x__ y__ -> x__{_RangeRequest'limit = y__})) + Prelude.id +instance Lens.Labels.HasLens' RangeRequest "revision" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeRequest'revision + (\ x__ y__ -> x__{_RangeRequest'revision = y__})) + Prelude.id +instance Lens.Labels.HasLens' RangeRequest "sortOrder" + (RangeRequest'SortOrder) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeRequest'sortOrder + (\ x__ y__ -> x__{_RangeRequest'sortOrder = y__})) + Prelude.id +instance Lens.Labels.HasLens' RangeRequest "sortTarget" + (RangeRequest'SortTarget) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeRequest'sortTarget + (\ x__ y__ -> x__{_RangeRequest'sortTarget = y__})) + Prelude.id +instance Lens.Labels.HasLens' RangeRequest "serializable" + (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeRequest'serializable + (\ x__ y__ -> x__{_RangeRequest'serializable = y__})) + Prelude.id +instance Lens.Labels.HasLens' RangeRequest "keysOnly" + (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeRequest'keysOnly + (\ x__ y__ -> x__{_RangeRequest'keysOnly = y__})) + Prelude.id +instance Lens.Labels.HasLens' RangeRequest "countOnly" + (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeRequest'countOnly + (\ x__ y__ -> x__{_RangeRequest'countOnly = y__})) + Prelude.id +instance Lens.Labels.HasLens' RangeRequest "minModRevision" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeRequest'minModRevision + (\ x__ y__ -> x__{_RangeRequest'minModRevision = y__})) + Prelude.id +instance Lens.Labels.HasLens' RangeRequest "maxModRevision" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeRequest'maxModRevision + (\ x__ y__ -> x__{_RangeRequest'maxModRevision = y__})) + Prelude.id +instance Lens.Labels.HasLens' RangeRequest "minCreateRevision" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeRequest'minCreateRevision + (\ x__ y__ -> x__{_RangeRequest'minCreateRevision = y__})) + Prelude.id +instance Lens.Labels.HasLens' RangeRequest "maxCreateRevision" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeRequest'maxCreateRevision + (\ x__ y__ -> x__{_RangeRequest'maxCreateRevision = y__})) + Prelude.id +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__}) + defMessage + = RangeRequest{_RangeRequest'key = Data.ProtoLens.fieldDefault, + _RangeRequest'rangeEnd = Data.ProtoLens.fieldDefault, + _RangeRequest'limit = Data.ProtoLens.fieldDefault, + _RangeRequest'revision = Data.ProtoLens.fieldDefault, + _RangeRequest'sortOrder = Data.ProtoLens.fieldDefault, + _RangeRequest'sortTarget = Data.ProtoLens.fieldDefault, + _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 Control.DeepSeq.NFData RangeRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_RangeRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_RangeRequest'key x__) + (Control.DeepSeq.deepseq (_RangeRequest'rangeEnd x__) + (Control.DeepSeq.deepseq (_RangeRequest'limit x__) + (Control.DeepSeq.deepseq (_RangeRequest'revision x__) + (Control.DeepSeq.deepseq (_RangeRequest'sortOrder x__) + (Control.DeepSeq.deepseq (_RangeRequest'sortTarget x__) + (Control.DeepSeq.deepseq (_RangeRequest'serializable x__) + (Control.DeepSeq.deepseq (_RangeRequest'keysOnly x__) + (Control.DeepSeq.deepseq (_RangeRequest'countOnly x__) + (Control.DeepSeq.deepseq + (_RangeRequest'minModRevision x__) + (Control.DeepSeq.deepseq + (_RangeRequest'maxModRevision x__) + (Control.DeepSeq.deepseq + (_RangeRequest'minCreateRevision x__) + (Control.DeepSeq.deepseq + (_RangeRequest'maxCreateRevision x__) + (())))))))))))))) +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.ProtoLens.FieldDefault RangeRequest'SortOrder where + fieldDefault = RangeRequest'NONE +instance Control.DeepSeq.NFData RangeRequest'SortOrder where + rnf x__ = Prelude.seq x__ (()) +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.ProtoLens.FieldDefault RangeRequest'SortTarget where + fieldDefault = RangeRequest'KEY +instance Control.DeepSeq.NFData RangeRequest'SortTarget where + rnf x__ = Prelude.seq x__ (()) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show RangeResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' RangeResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeResponse'header + (\ x__ y__ -> x__{_RangeResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' RangeResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeResponse'header + (\ x__ y__ -> x__{_RangeResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' 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 Lens.Labels.HasLens' RangeResponse "more" (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeResponse'more + (\ x__ y__ -> x__{_RangeResponse'more = y__})) + Prelude.id +instance Lens.Labels.HasLens' RangeResponse "count" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _RangeResponse'count + (\ x__ y__ -> x__{_RangeResponse'count = y__})) + Prelude.id +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__}) + defMessage + = RangeResponse{_RangeResponse'header = Prelude.Nothing, + _RangeResponse'kvs = [], + _RangeResponse'more = Data.ProtoLens.fieldDefault, + _RangeResponse'count = Data.ProtoLens.fieldDefault, + _RangeResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData RangeResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_RangeResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_RangeResponse'header x__) + (Control.DeepSeq.deepseq (_RangeResponse'kvs x__) + (Control.DeepSeq.deepseq (_RangeResponse'more x__) + (Control.DeepSeq.deepseq (_RangeResponse'count x__) (()))))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show RequestOp where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +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' 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 Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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.ProtoLens.defMessage)) +instance Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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.ProtoLens.defMessage)) +instance Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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.ProtoLens.defMessage)) +instance Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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.ProtoLens.defMessage)) +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__}) + defMessage + = RequestOp{_RequestOp'request = Prelude.Nothing, + _RequestOp'_unknownFields = ([])} +instance Control.DeepSeq.NFData RequestOp where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_RequestOp'_unknownFields x__) + (Control.DeepSeq.deepseq (_RequestOp'request x__) (())) +instance Control.DeepSeq.NFData RequestOp'Request where + rnf (RequestOp'RequestRange x__) = Control.DeepSeq.rnf x__ + rnf (RequestOp'RequestPut x__) = Control.DeepSeq.rnf x__ + rnf (RequestOp'RequestDeleteRange x__) = Control.DeepSeq.rnf x__ + rnf (RequestOp'RequestTxn x__) = Control.DeepSeq.rnf x__ +_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.Eq, Prelude.Ord) +instance Prelude.Show ResponseHeader where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' ResponseHeader "clusterId" + (Data.Word.Word64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _ResponseHeader'clusterId + (\ x__ y__ -> x__{_ResponseHeader'clusterId = y__})) + Prelude.id +instance Lens.Labels.HasLens' ResponseHeader "memberId" + (Data.Word.Word64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _ResponseHeader'memberId + (\ x__ y__ -> x__{_ResponseHeader'memberId = y__})) + Prelude.id +instance Lens.Labels.HasLens' ResponseHeader "revision" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _ResponseHeader'revision + (\ x__ y__ -> x__{_ResponseHeader'revision = y__})) + Prelude.id +instance Lens.Labels.HasLens' ResponseHeader "raftTerm" + (Data.Word.Word64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _ResponseHeader'raftTerm + (\ x__ y__ -> x__{_ResponseHeader'raftTerm = y__})) + Prelude.id +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__}) + defMessage + = ResponseHeader{_ResponseHeader'clusterId = + Data.ProtoLens.fieldDefault, + _ResponseHeader'memberId = Data.ProtoLens.fieldDefault, + _ResponseHeader'revision = Data.ProtoLens.fieldDefault, + _ResponseHeader'raftTerm = Data.ProtoLens.fieldDefault, + _ResponseHeader'_unknownFields = ([])} +instance Control.DeepSeq.NFData ResponseHeader where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_ResponseHeader'_unknownFields x__) + (Control.DeepSeq.deepseq (_ResponseHeader'clusterId x__) + (Control.DeepSeq.deepseq (_ResponseHeader'memberId x__) + (Control.DeepSeq.deepseq (_ResponseHeader'revision x__) + (Control.DeepSeq.deepseq (_ResponseHeader'raftTerm x__) (()))))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show ResponseOp where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +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' 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 Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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.ProtoLens.defMessage)) +instance Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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.ProtoLens.defMessage)) +instance Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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.ProtoLens.defMessage)) +instance Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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.ProtoLens.defMessage)) +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__}) + defMessage + = ResponseOp{_ResponseOp'response = Prelude.Nothing, + _ResponseOp'_unknownFields = ([])} +instance Control.DeepSeq.NFData ResponseOp where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_ResponseOp'_unknownFields x__) + (Control.DeepSeq.deepseq (_ResponseOp'response x__) (())) +instance Control.DeepSeq.NFData ResponseOp'Response where + rnf (ResponseOp'ResponseRange x__) = Control.DeepSeq.rnf x__ + rnf (ResponseOp'ResponsePut x__) = Control.DeepSeq.rnf x__ + rnf (ResponseOp'ResponseDeleteRange x__) = Control.DeepSeq.rnf x__ + rnf (ResponseOp'ResponseTxn x__) = Control.DeepSeq.rnf x__ +_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.Eq, Prelude.Ord) +instance Prelude.Show SnapshotRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +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__}) + defMessage + = SnapshotRequest{_SnapshotRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData SnapshotRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_SnapshotRequest'_unknownFields x__) (()) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show SnapshotResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' SnapshotResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _SnapshotResponse'header + (\ x__ y__ -> x__{_SnapshotResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' SnapshotResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _SnapshotResponse'header + (\ x__ y__ -> x__{_SnapshotResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' SnapshotResponse "remainingBytes" + (Data.Word.Word64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _SnapshotResponse'remainingBytes + (\ x__ y__ -> x__{_SnapshotResponse'remainingBytes = y__})) + Prelude.id +instance Lens.Labels.HasLens' SnapshotResponse "blob" + (Data.ByteString.ByteString) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _SnapshotResponse'blob + (\ x__ y__ -> x__{_SnapshotResponse'blob = y__})) + Prelude.id +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__}) + defMessage + = SnapshotResponse{_SnapshotResponse'header = Prelude.Nothing, + _SnapshotResponse'remainingBytes = Data.ProtoLens.fieldDefault, + _SnapshotResponse'blob = Data.ProtoLens.fieldDefault, + _SnapshotResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData SnapshotResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_SnapshotResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_SnapshotResponse'header x__) + (Control.DeepSeq.deepseq (_SnapshotResponse'remainingBytes x__) + (Control.DeepSeq.deepseq (_SnapshotResponse'blob x__) (())))) +{- | Fields : + + -} +data StatusRequest = StatusRequest{_StatusRequest'_unknownFields :: + !Data.ProtoLens.FieldSet} + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StatusRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +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__}) + defMessage = StatusRequest{_StatusRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData StatusRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_StatusRequest'_unknownFields x__) (()) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show StatusResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' StatusResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _StatusResponse'header + (\ x__ y__ -> x__{_StatusResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' StatusResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _StatusResponse'header + (\ x__ y__ -> x__{_StatusResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' StatusResponse "version" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _StatusResponse'version + (\ x__ y__ -> x__{_StatusResponse'version = y__})) + Prelude.id +instance Lens.Labels.HasLens' StatusResponse "dbSize" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _StatusResponse'dbSize + (\ x__ y__ -> x__{_StatusResponse'dbSize = y__})) + Prelude.id +instance Lens.Labels.HasLens' StatusResponse "leader" + (Data.Word.Word64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _StatusResponse'leader + (\ x__ y__ -> x__{_StatusResponse'leader = y__})) + Prelude.id +instance Lens.Labels.HasLens' StatusResponse "raftIndex" + (Data.Word.Word64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _StatusResponse'raftIndex + (\ x__ y__ -> x__{_StatusResponse'raftIndex = y__})) + Prelude.id +instance Lens.Labels.HasLens' StatusResponse "raftTerm" + (Data.Word.Word64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _StatusResponse'raftTerm + (\ x__ y__ -> x__{_StatusResponse'raftTerm = y__})) + Prelude.id +instance Lens.Labels.HasLens' StatusResponse "raftAppliedIndex" + (Data.Word.Word64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _StatusResponse'raftAppliedIndex + (\ x__ y__ -> x__{_StatusResponse'raftAppliedIndex = y__})) + Prelude.id +instance Lens.Labels.HasLens' StatusResponse "errors" + ([Data.Text.Text]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _StatusResponse'errors + (\ x__ y__ -> x__{_StatusResponse'errors = y__})) + Prelude.id +instance Lens.Labels.HasLens' StatusResponse "dbSizeInUse" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _StatusResponse'dbSizeInUse + (\ x__ y__ -> x__{_StatusResponse'dbSizeInUse = y__})) + Prelude.id +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__}) + defMessage + = 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 Control.DeepSeq.NFData StatusResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_StatusResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_StatusResponse'header x__) + (Control.DeepSeq.deepseq (_StatusResponse'version x__) + (Control.DeepSeq.deepseq (_StatusResponse'dbSize x__) + (Control.DeepSeq.deepseq (_StatusResponse'leader x__) + (Control.DeepSeq.deepseq (_StatusResponse'raftIndex x__) + (Control.DeepSeq.deepseq (_StatusResponse'raftTerm x__) + (Control.DeepSeq.deepseq (_StatusResponse'raftAppliedIndex x__) + (Control.DeepSeq.deepseq (_StatusResponse'errors x__) + (Control.DeepSeq.deepseq (_StatusResponse'dbSizeInUse x__) + (())))))))))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show TxnRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' TxnRequest "compare" ([Compare]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _TxnRequest'compare + (\ x__ y__ -> x__{_TxnRequest'compare = y__})) + Prelude.id +instance Lens.Labels.HasLens' TxnRequest "success" ([RequestOp]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _TxnRequest'success + (\ x__ y__ -> x__{_TxnRequest'success = y__})) + Prelude.id +instance Lens.Labels.HasLens' TxnRequest "failure" ([RequestOp]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _TxnRequest'failure + (\ x__ y__ -> x__{_TxnRequest'failure = y__})) + Prelude.id +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__}) + defMessage + = TxnRequest{_TxnRequest'compare = [], _TxnRequest'success = [], + _TxnRequest'failure = [], _TxnRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData TxnRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_TxnRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_TxnRequest'compare x__) + (Control.DeepSeq.deepseq (_TxnRequest'success x__) + (Control.DeepSeq.deepseq (_TxnRequest'failure x__) (())))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show TxnResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' TxnResponse "header" (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _TxnResponse'header + (\ x__ y__ -> x__{_TxnResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' TxnResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _TxnResponse'header + (\ x__ y__ -> x__{_TxnResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' TxnResponse "succeeded" + (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _TxnResponse'succeeded + (\ x__ y__ -> x__{_TxnResponse'succeeded = y__})) + Prelude.id +instance Lens.Labels.HasLens' TxnResponse "responses" + ([ResponseOp]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _TxnResponse'responses + (\ x__ y__ -> x__{_TxnResponse'responses = y__})) + Prelude.id +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__}) + defMessage + = TxnResponse{_TxnResponse'header = Prelude.Nothing, + _TxnResponse'succeeded = Data.ProtoLens.fieldDefault, + _TxnResponse'responses = [], _TxnResponse'_unknownFields = ([])} +instance Control.DeepSeq.NFData TxnResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_TxnResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_TxnResponse'header x__) + (Control.DeepSeq.deepseq (_TxnResponse'succeeded x__) + (Control.DeepSeq.deepseq (_TxnResponse'responses x__) (())))) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show WatchCancelRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' WatchCancelRequest "watchId" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchCancelRequest'watchId + (\ x__ y__ -> x__{_WatchCancelRequest'watchId = y__})) + Prelude.id +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__}) + defMessage + = WatchCancelRequest{_WatchCancelRequest'watchId = + Data.ProtoLens.fieldDefault, + _WatchCancelRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData WatchCancelRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_WatchCancelRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_WatchCancelRequest'watchId x__) (())) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show WatchCreateRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' WatchCreateRequest "key" + (Data.ByteString.ByteString) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchCreateRequest'key + (\ x__ y__ -> x__{_WatchCreateRequest'key = y__})) + Prelude.id +instance Lens.Labels.HasLens' WatchCreateRequest "rangeEnd" + (Data.ByteString.ByteString) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchCreateRequest'rangeEnd + (\ x__ y__ -> x__{_WatchCreateRequest'rangeEnd = y__})) + Prelude.id +instance Lens.Labels.HasLens' WatchCreateRequest "startRevision" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchCreateRequest'startRevision + (\ x__ y__ -> x__{_WatchCreateRequest'startRevision = y__})) + Prelude.id +instance Lens.Labels.HasLens' WatchCreateRequest "progressNotify" + (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchCreateRequest'progressNotify + (\ x__ y__ -> x__{_WatchCreateRequest'progressNotify = y__})) + Prelude.id +instance Lens.Labels.HasLens' WatchCreateRequest "filters" + ([WatchCreateRequest'FilterType]) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchCreateRequest'filters + (\ x__ y__ -> x__{_WatchCreateRequest'filters = y__})) + Prelude.id +instance Lens.Labels.HasLens' WatchCreateRequest "prevKv" + (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchCreateRequest'prevKv + (\ x__ y__ -> x__{_WatchCreateRequest'prevKv = y__})) + Prelude.id +instance Lens.Labels.HasLens' WatchCreateRequest "watchId" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchCreateRequest'watchId + (\ x__ y__ -> x__{_WatchCreateRequest'watchId = y__})) + Prelude.id +instance Lens.Labels.HasLens' WatchCreateRequest "fragment" + (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchCreateRequest'fragment + (\ x__ y__ -> x__{_WatchCreateRequest'fragment = y__})) + Prelude.id +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__}) + defMessage + = 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 Control.DeepSeq.NFData WatchCreateRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_WatchCreateRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_WatchCreateRequest'key x__) + (Control.DeepSeq.deepseq (_WatchCreateRequest'rangeEnd x__) + (Control.DeepSeq.deepseq (_WatchCreateRequest'startRevision x__) + (Control.DeepSeq.deepseq (_WatchCreateRequest'progressNotify x__) + (Control.DeepSeq.deepseq (_WatchCreateRequest'filters x__) + (Control.DeepSeq.deepseq (_WatchCreateRequest'prevKv x__) + (Control.DeepSeq.deepseq (_WatchCreateRequest'watchId x__) + (Control.DeepSeq.deepseq (_WatchCreateRequest'fragment x__) + (()))))))))) +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.ProtoLens.FieldDefault WatchCreateRequest'FilterType + where + fieldDefault = WatchCreateRequest'NOPUT +instance Control.DeepSeq.NFData WatchCreateRequest'FilterType where + rnf x__ = Prelude.seq x__ (()) +{- | Fields : + + -} +data WatchProgressRequest = WatchProgressRequest{_WatchProgressRequest'_unknownFields + :: !Data.ProtoLens.FieldSet} + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show WatchProgressRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +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__}) + defMessage + = WatchProgressRequest{_WatchProgressRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData WatchProgressRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_WatchProgressRequest'_unknownFields x__) + (()) +{- | 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.Eq, Prelude.Ord) +instance Prelude.Show WatchRequest where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +data WatchRequest'RequestUnion = WatchRequest'CreateRequest !WatchCreateRequest + | WatchRequest'CancelRequest !WatchCancelRequest + | WatchRequest'ProgressRequest !WatchProgressRequest + deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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.ProtoLens.defMessage)) +instance Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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.ProtoLens.defMessage)) +instance Lens.Labels.HasLens' 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 Lens.Labels.HasLens' 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.ProtoLens.defMessage)) +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__}) + defMessage + = WatchRequest{_WatchRequest'requestUnion = Prelude.Nothing, + _WatchRequest'_unknownFields = ([])} +instance Control.DeepSeq.NFData WatchRequest where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_WatchRequest'_unknownFields x__) + (Control.DeepSeq.deepseq (_WatchRequest'requestUnion x__) (())) +instance Control.DeepSeq.NFData WatchRequest'RequestUnion where + rnf (WatchRequest'CreateRequest x__) = Control.DeepSeq.rnf x__ + rnf (WatchRequest'CancelRequest x__) = Control.DeepSeq.rnf x__ + rnf (WatchRequest'ProgressRequest x__) = Control.DeepSeq.rnf x__ +_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.Eq, Prelude.Ord) +instance Prelude.Show WatchResponse where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' WatchResponse "header" + (ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchResponse'header + (\ x__ y__ -> x__{_WatchResponse'header = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' WatchResponse "maybe'header" + (Prelude.Maybe ResponseHeader) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchResponse'header + (\ x__ y__ -> x__{_WatchResponse'header = y__})) + Prelude.id +instance Lens.Labels.HasLens' WatchResponse "watchId" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchResponse'watchId + (\ x__ y__ -> x__{_WatchResponse'watchId = y__})) + Prelude.id +instance Lens.Labels.HasLens' WatchResponse "created" + (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchResponse'created + (\ x__ y__ -> x__{_WatchResponse'created = y__})) + Prelude.id +instance Lens.Labels.HasLens' WatchResponse "canceled" + (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchResponse'canceled + (\ x__ y__ -> x__{_WatchResponse'canceled = y__})) + Prelude.id +instance Lens.Labels.HasLens' WatchResponse "compactRevision" + (Data.Int.Int64) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchResponse'compactRevision + (\ x__ y__ -> x__{_WatchResponse'compactRevision = y__})) + Prelude.id +instance Lens.Labels.HasLens' WatchResponse "cancelReason" + (Data.Text.Text) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchResponse'cancelReason + (\ x__ y__ -> x__{_WatchResponse'cancelReason = y__})) + Prelude.id +instance Lens.Labels.HasLens' WatchResponse "fragment" + (Prelude.Bool) + where + lensOf' _ + = (Prelude..) + (Lens.Family2.Unchecked.lens _WatchResponse'fragment + (\ x__ y__ -> x__{_WatchResponse'fragment = y__})) + Prelude.id +instance Lens.Labels.HasLens' 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.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__}) + defMessage + = 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 Control.DeepSeq.NFData WatchResponse where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_WatchResponse'_unknownFields x__) + (Control.DeepSeq.deepseq (_WatchResponse'header x__) + (Control.DeepSeq.deepseq (_WatchResponse'watchId x__) + (Control.DeepSeq.deepseq (_WatchResponse'created x__) + (Control.DeepSeq.deepseq (_WatchResponse'canceled x__) + (Control.DeepSeq.deepseq (_WatchResponse'compactRevision x__) + (Control.DeepSeq.deepseq (_WatchResponse'cancelReason x__) + (Control.DeepSeq.deepseq (_WatchResponse'fragment x__) + (Control.DeepSeq.deepseq (_WatchResponse'events x__) + (()))))))))) data KV = KV{} deriving () instance Data.ProtoLens.Service.Types.Service KV where diff --git a/gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc_Fields.hs b/gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc_Fields.hs --- a/gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc_Fields.hs +++ b/gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc_Fields.hs @@ -6,784 +6,874 @@ {-# 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 +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Reexport.Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.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 Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "action" a) => + Lens.Family2.LensLike' f s a action - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "alarm" a) => + Lens.Family2.LensLike' f s a alarm - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "alarms" a) => + Lens.Family2.LensLike' f s a alarms - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "blob" a) => + Lens.Family2.LensLike' f s a blob - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "cancelReason" a) => + Lens.Family2.LensLike' f s a cancelReason - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "cancelRequest" a) => + Lens.Family2.LensLike' f s a cancelRequest - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "canceled" a) => + Lens.Family2.LensLike' f s a canceled - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "checkpoints" a) => + Lens.Family2.LensLike' f s a checkpoints - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "clientURLs" a) => + Lens.Family2.LensLike' f s a clientURLs - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "clusterId" a) => + Lens.Family2.LensLike' f s a clusterId - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "compactRevision" a) => + Lens.Family2.LensLike' f s a compactRevision - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "compare" a) => + Lens.Family2.LensLike' f s a compare - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "count" a) => + Lens.Family2.LensLike' f s a count - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "countOnly" a) => + Lens.Family2.LensLike' f s a countOnly - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "createRequest" a) => + Lens.Family2.LensLike' f s a createRequest - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "createRevision" a) => + Lens.Family2.LensLike' f s a createRevision - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "created" a) => + Lens.Family2.LensLike' f s a created - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "dbSize" a) => + Lens.Family2.LensLike' f s a dbSize - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "dbSizeInUse" a) => + Lens.Family2.LensLike' f s a dbSizeInUse - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "deleted" a) => + Lens.Family2.LensLike' f s a deleted - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "error" a) => + Lens.Family2.LensLike' f s a error - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "errors" a) => + Lens.Family2.LensLike' f s a errors - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "events" a) => + Lens.Family2.LensLike' f s a events - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "failure" a) => + Lens.Family2.LensLike' f s a failure - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "filters" a) => + Lens.Family2.LensLike' f s a filters - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "fragment" a) => + Lens.Family2.LensLike' f s a fragment - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "grantedTTL" a) => + Lens.Family2.LensLike' f s a grantedTTL - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "hash" a) => + Lens.Family2.LensLike' f s a hash - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "header" a) => + Lens.Family2.LensLike' f s a header - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "id" a) => + Lens.Family2.LensLike' f s a id - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "ignoreLease" a) => + Lens.Family2.LensLike' f s a ignoreLease - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "ignoreValue" a) => + Lens.Family2.LensLike' f s a ignoreValue - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "key" a) => + Lens.Family2.LensLike' f s a key - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "keys" a) => + Lens.Family2.LensLike' f s a keys - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "keysOnly" a) => + Lens.Family2.LensLike' f s a keysOnly - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "kvs" a) => + Lens.Family2.LensLike' f s a kvs - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "leader" a) => + Lens.Family2.LensLike' f s a leader - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "lease" a) => + Lens.Family2.LensLike' f s a lease - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "leases" a) => + Lens.Family2.LensLike' f s a leases - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "limit" a) => + Lens.Family2.LensLike' f s a limit - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "maxCreateRevision" a) => + Lens.Family2.LensLike' f s a maxCreateRevision - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maxModRevision" a) => + Lens.Family2.LensLike' f s a maxModRevision - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "maybe'cancelRequest" a) => + Lens.Family2.LensLike' f s a maybe'cancelRequest - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "maybe'createRequest" a) => + Lens.Family2.LensLike' f s a maybe'createRequest - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "maybe'createRevision" a) => + Lens.Family2.LensLike' f s a maybe'createRevision - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'header" a) => + Lens.Family2.LensLike' f s a maybe'header - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'lease" a) => + Lens.Family2.LensLike' f s a maybe'lease - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'member" a) => + Lens.Family2.LensLike' f s a maybe'member - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "maybe'modRevision" a) => + Lens.Family2.LensLike' f s a maybe'modRevision - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'perm" a) => + Lens.Family2.LensLike' f s a maybe'perm - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'prevKv" a) => + Lens.Family2.LensLike' f s a maybe'prevKv - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "maybe'progressRequest" a) => + Lens.Family2.LensLike' f s a maybe'progressRequest - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'request" a) => + Lens.Family2.LensLike' f s a maybe'request - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "maybe'requestDeleteRange" a) => + Lens.Family2.LensLike' f s a maybe'requestDeleteRange - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'requestPut" a) => + Lens.Family2.LensLike' f s a maybe'requestPut - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "maybe'requestRange" a) => + Lens.Family2.LensLike' f s a maybe'requestRange - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'requestTxn" a) => + Lens.Family2.LensLike' f s a maybe'requestTxn - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "maybe'requestUnion" a) => + Lens.Family2.LensLike' f s a maybe'requestUnion - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'response" a) => + Lens.Family2.LensLike' f s a maybe'response - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "maybe'responseDeleteRange" a) => + Lens.Family2.LensLike' f s a maybe'responseDeleteRange - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "maybe'responsePut" a) => + Lens.Family2.LensLike' f s a maybe'responsePut - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "maybe'responseRange" a) => + Lens.Family2.LensLike' f s a maybe'responseRange - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "maybe'responseTxn" a) => + Lens.Family2.LensLike' f s a maybe'responseTxn - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "maybe'targetUnion" a) => + Lens.Family2.LensLike' f s a maybe'targetUnion - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'value" a) => + Lens.Family2.LensLike' f s a maybe'value - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'version" a) => + Lens.Family2.LensLike' f s a maybe'version - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "member" a) => + Lens.Family2.LensLike' f s a member - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "memberID" a) => + Lens.Family2.LensLike' f s a memberID - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "memberId" a) => + Lens.Family2.LensLike' f s a memberId - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "members" a) => + Lens.Family2.LensLike' f s a members - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "minCreateRevision" a) => + Lens.Family2.LensLike' f s a minCreateRevision - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "minModRevision" a) => + Lens.Family2.LensLike' f s a minModRevision - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "modRevision" a) => + Lens.Family2.LensLike' f s a modRevision - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "more" a) => + Lens.Family2.LensLike' f s a more - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "name" a) => + Lens.Family2.LensLike' f s a name - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "password" a) => + Lens.Family2.LensLike' f s a password - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "peerURLs" a) => + Lens.Family2.LensLike' f s a peerURLs - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "perm" a) => + Lens.Family2.LensLike' f s a perm - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "physical" a) => + Lens.Family2.LensLike' f s a physical - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "prevKv" a) => + Lens.Family2.LensLike' f s a prevKv - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "prevKvs" a) => + Lens.Family2.LensLike' f s a prevKvs - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "progressNotify" a) => + Lens.Family2.LensLike' f s a progressNotify - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "progressRequest" a) => + Lens.Family2.LensLike' f s a progressRequest - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "raftAppliedIndex" a) => + Lens.Family2.LensLike' f s a raftAppliedIndex - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "raftIndex" a) => + Lens.Family2.LensLike' f s a raftIndex - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "raftTerm" a) => + Lens.Family2.LensLike' f s a raftTerm - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "rangeEnd" a) => + Lens.Family2.LensLike' f s a rangeEnd - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "remainingBytes" a) => + Lens.Family2.LensLike' f s a remainingBytes - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "remainingTTL" a) => + Lens.Family2.LensLike' f s a remainingTTL - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "requestDeleteRange" a) => + Lens.Family2.LensLike' f s a requestDeleteRange - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "requestPut" a) => + Lens.Family2.LensLike' f s a requestPut - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "requestRange" a) => + Lens.Family2.LensLike' f s a requestRange - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "requestTxn" a) => + Lens.Family2.LensLike' f s a requestTxn - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "responseDeleteRange" a) => + Lens.Family2.LensLike' f s a responseDeleteRange - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "responsePut" a) => + Lens.Family2.LensLike' f s a responsePut - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "responseRange" a) => + Lens.Family2.LensLike' f s a responseRange - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "responseTxn" a) => + Lens.Family2.LensLike' f s a responseTxn - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "responses" a) => + Lens.Family2.LensLike' f s a responses - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "result" a) => + Lens.Family2.LensLike' f s a result - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "revision" a) => + Lens.Family2.LensLike' f s a revision - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "role" a) => + Lens.Family2.LensLike' f s a role - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "roles" a) => + Lens.Family2.LensLike' f s a roles - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "serializable" a) => + Lens.Family2.LensLike' f s a serializable - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "sortOrder" a) => + Lens.Family2.LensLike' f s a sortOrder - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "sortTarget" a) => + Lens.Family2.LensLike' f s a sortTarget - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "startRevision" a) => + Lens.Family2.LensLike' f s a startRevision - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "succeeded" a) => + Lens.Family2.LensLike' f s a succeeded - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "success" a) => + Lens.Family2.LensLike' f s a success - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "target" a) => + Lens.Family2.LensLike' f s a target - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "targetID" a) => + Lens.Family2.LensLike' f s a targetID - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "token" a) => + Lens.Family2.LensLike' f s a token - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "ttl" a) => + Lens.Family2.LensLike' f s a ttl - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "user" a) => + Lens.Family2.LensLike' f s a user - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "users" a) => + Lens.Family2.LensLike' f s a users - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "value" a) => + Lens.Family2.LensLike' f s a value - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "version" a) => + Lens.Family2.LensLike' f s a version - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "watchId" a) => + Lens.Family2.LensLike' f s a watchId - = Lens.Labels.lensOf + = 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 --- a/gen/Proto/Etcd/Mvcc/Mvccpb/Kv.hs +++ b/gen/Proto/Etcd/Mvcc/Mvccpb/Kv.hs @@ -6,36 +6,35 @@ {-# 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(..)) + (Event(), Event'EventType(..), Event'EventType(), + Event'EventType'UnrecognizedValue, KeyValue()) where -import qualified Data.ProtoLens.Reexport.Lens.Labels.Prism +import qualified Data.ProtoLens.Runtime.Control.DeepSeq + as Control.DeepSeq +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Reexport.Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.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 Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read import qualified Proto.Gogoproto.Gogo {- | Fields : @@ -50,45 +49,39 @@ _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 + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Event where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' 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 +instance Lens.Labels.HasLens' 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) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' 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 +instance Lens.Labels.HasLens' 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" + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Lens.Labels.HasLens' Event "maybe'prevKv" (Prelude.Maybe KeyValue) where lensOf' _ @@ -96,11 +89,6 @@ (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 @@ -109,7 +97,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: Data.ProtoLens.FieldTypeDescriptor Event'EventType) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "type'"))) :: Data.ProtoLens.FieldDescriptor Event kv__field_descriptor @@ -117,7 +105,7 @@ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor KeyValue) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'kv"))) :: Data.ProtoLens.FieldDescriptor Event prevKv__field_descriptor @@ -125,7 +113,7 @@ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor KeyValue) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'prevKv"))) :: Data.ProtoLens.FieldDescriptor Event in @@ -136,6 +124,17 @@ unknownFields = Lens.Family2.Unchecked.lens _Event'_unknownFields (\ x__ y__ -> x__{_Event'_unknownFields = y__}) + defMessage + = Event{_Event'type' = Data.ProtoLens.fieldDefault, + _Event'kv = Prelude.Nothing, _Event'prevKv = Prelude.Nothing, + _Event'_unknownFields = ([])} +instance Control.DeepSeq.NFData Event where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_Event'_unknownFields x__) + (Control.DeepSeq.deepseq (_Event'type' x__) + (Control.DeepSeq.deepseq (_Event'kv x__) + (Control.DeepSeq.deepseq (_Event'prevKv x__) (())))) data Event'EventType = Event'PUT | Event'DELETE | Event'EventType'Unrecognized !Event'EventType'UnrecognizedValue @@ -194,10 +193,10 @@ 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 +instance Control.DeepSeq.NFData Event'EventType where + rnf x__ = Prelude.seq x__ (()) {- | Fields : * 'Proto.Etcd.Mvcc.Mvccpb.Kv_Fields.key' @:: Lens' KeyValue Data.ByteString.ByteString@ @@ -215,45 +214,44 @@ _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) + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show KeyValue where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' 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) +instance Lens.Labels.HasLens' 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) +instance Lens.Labels.HasLens' 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) +instance Lens.Labels.HasLens' 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" +instance Lens.Labels.HasLens' KeyValue "value" (Data.ByteString.ByteString) where lensOf' _ @@ -261,23 +259,13 @@ (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) +instance Lens.Labels.HasLens' 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 @@ -286,7 +274,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "key"))) :: Data.ProtoLens.FieldDescriptor KeyValue createRevision__field_descriptor @@ -294,7 +282,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "createRevision"))) :: Data.ProtoLens.FieldDescriptor KeyValue modRevision__field_descriptor @@ -302,7 +290,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "modRevision"))) :: Data.ProtoLens.FieldDescriptor KeyValue version__field_descriptor @@ -310,7 +298,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "version"))) :: Data.ProtoLens.FieldDescriptor KeyValue value__field_descriptor @@ -318,7 +306,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value"))) :: Data.ProtoLens.FieldDescriptor KeyValue lease__field_descriptor @@ -326,7 +314,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "lease"))) :: Data.ProtoLens.FieldDescriptor KeyValue in @@ -340,3 +328,21 @@ unknownFields = Lens.Family2.Unchecked.lens _KeyValue'_unknownFields (\ x__ y__ -> x__{_KeyValue'_unknownFields = y__}) + defMessage + = 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 Control.DeepSeq.NFData KeyValue where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_KeyValue'_unknownFields x__) + (Control.DeepSeq.deepseq (_KeyValue'key x__) + (Control.DeepSeq.deepseq (_KeyValue'createRevision x__) + (Control.DeepSeq.deepseq (_KeyValue'modRevision x__) + (Control.DeepSeq.deepseq (_KeyValue'version x__) + (Control.DeepSeq.deepseq (_KeyValue'value x__) + (Control.DeepSeq.deepseq (_KeyValue'lease x__) (()))))))) diff --git a/gen/Proto/Etcd/Mvcc/Mvccpb/Kv_Fields.hs b/gen/Proto/Etcd/Mvcc/Mvccpb/Kv_Fields.hs --- a/gen/Proto/Etcd/Mvcc/Mvccpb/Kv_Fields.hs +++ b/gen/Proto/Etcd/Mvcc/Mvccpb/Kv_Fields.hs @@ -6,98 +6,104 @@ {-# 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 +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Reexport.Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.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 Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "createRevision" a) => + Lens.Family2.LensLike' f s a createRevision - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "key" a) => + Lens.Family2.LensLike' f s a key - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "kv" a) => + Lens.Family2.LensLike' f s a kv - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "lease" a) => + Lens.Family2.LensLike' f s a lease - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'kv" a) => + Lens.Family2.LensLike' f s a maybe'kv - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'prevKv" a) => + Lens.Family2.LensLike' f s a maybe'prevKv - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "modRevision" a) => + Lens.Family2.LensLike' f s a modRevision - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "prevKv" a) => + Lens.Family2.LensLike' f s a prevKv - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "type'" a) => + Lens.Family2.LensLike' f s a type' - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "value" a) => + Lens.Family2.LensLike' f s a value - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "version" a) => + Lens.Family2.LensLike' f s a version - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "version") diff --git a/gen/Proto/Gogoproto/Gogo.hs b/gen/Proto/Gogoproto/Gogo.hs --- a/gen/Proto/Gogoproto/Gogo.hs +++ b/gen/Proto/Gogoproto/Gogo.hs @@ -6,31 +6,30 @@ {-# 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 +import qualified Data.ProtoLens.Runtime.Control.DeepSeq + as Control.DeepSeq +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Reexport.Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.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 Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.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 --- a/gen/Proto/Gogoproto/Gogo_Fields.hs +++ b/gen/Proto/Gogoproto/Gogo_Fields.hs @@ -6,29 +6,26 @@ {-# 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 +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Reexport.Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.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 Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.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 --- a/gen/Proto/Google/Api/Annotations.hs +++ b/gen/Proto/Google/Api/Annotations.hs @@ -6,32 +6,31 @@ {-# 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 +import qualified Data.ProtoLens.Runtime.Control.DeepSeq + as Control.DeepSeq +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Reexport.Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.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 Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.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 --- a/gen/Proto/Google/Api/Annotations_Fields.hs +++ b/gen/Proto/Google/Api/Annotations_Fields.hs @@ -6,30 +6,27 @@ {-# 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 +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Reexport.Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.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 Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.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 --- a/gen/Proto/Google/Api/Http.hs +++ b/gen/Proto/Google/Api/Http.hs @@ -6,37 +6,36 @@ {-# 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) + (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 +import qualified Data.ProtoLens.Runtime.Control.DeepSeq + as Control.DeepSeq +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Reexport.Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.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 Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read {- | Fields : @@ -48,33 +47,28 @@ _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) + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show CustomHttpPattern where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' 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) +instance Lens.Labels.HasLens' 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 @@ -83,7 +77,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "kind"))) :: Data.ProtoLens.FieldDescriptor CustomHttpPattern path__field_descriptor @@ -91,7 +85,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "path"))) :: Data.ProtoLens.FieldDescriptor CustomHttpPattern in @@ -101,6 +95,17 @@ unknownFields = Lens.Family2.Unchecked.lens _CustomHttpPattern'_unknownFields (\ x__ y__ -> x__{_CustomHttpPattern'_unknownFields = y__}) + defMessage + = CustomHttpPattern{_CustomHttpPattern'kind = + Data.ProtoLens.fieldDefault, + _CustomHttpPattern'path = Data.ProtoLens.fieldDefault, + _CustomHttpPattern'_unknownFields = ([])} +instance Control.DeepSeq.NFData CustomHttpPattern where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_CustomHttpPattern'_unknownFields x__) + (Control.DeepSeq.deepseq (_CustomHttpPattern'kind x__) + (Control.DeepSeq.deepseq (_CustomHttpPattern'path x__) (()))) {- | Fields : * 'Proto.Google.Api.Http_Fields.rules' @:: Lens' Http [HttpRule]@ @@ -109,21 +114,19 @@ 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 + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Http where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) +instance Lens.Labels.HasLens' 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" +instance Lens.Labels.HasLens' Http "fullyDecodeReservedExpansion" (Prelude.Bool) where lensOf' _ @@ -131,11 +134,6 @@ (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 @@ -144,7 +142,7 @@ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor HttpRule) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "rules"))) :: Data.ProtoLens.FieldDescriptor Http fullyDecodeReservedExpansion__field_descriptor @@ -152,7 +150,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "fullyDecodeReservedExpansion"))) :: Data.ProtoLens.FieldDescriptor Http @@ -164,6 +162,17 @@ unknownFields = Lens.Family2.Unchecked.lens _Http'_unknownFields (\ x__ y__ -> x__{_Http'_unknownFields = y__}) + defMessage + = Http{_Http'rules = [], + _Http'fullyDecodeReservedExpansion = Data.ProtoLens.fieldDefault, + _Http'_unknownFields = ([])} +instance Control.DeepSeq.NFData Http where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_Http'_unknownFields x__) + (Control.DeepSeq.deepseq (_Http'rules x__) + (Control.DeepSeq.deepseq (_Http'fullyDecodeReservedExpansion x__) + (()))) {- | Fields : * 'Proto.Google.Api.Http_Fields.selector' @:: Lens' HttpRule Data.Text.Text@ @@ -190,7 +199,12 @@ _HttpRule'additionalBindings :: ![HttpRule], _HttpRule'pattern' :: !(Prelude.Maybe HttpRule'Pattern), _HttpRule'_unknownFields :: !Data.ProtoLens.FieldSet} - deriving (Prelude.Show, Prelude.Eq, Prelude.Ord) + deriving (Prelude.Eq, Prelude.Ord) +instance Prelude.Show HttpRule where + showsPrec _ __x __s + = Prelude.showChar '{' + (Prelude.showString (Data.ProtoLens.showMessageShort __x) + (Prelude.showChar '}' __s)) data HttpRule'Pattern = HttpRule'Get !Data.Text.Text | HttpRule'Put !Data.Text.Text | HttpRule'Post !Data.Text.Text @@ -198,44 +212,37 @@ | 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) +instance Lens.Labels.HasLens' 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) +instance Lens.Labels.HasLens' 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) +instance Lens.Labels.HasLens' 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]) +instance Lens.Labels.HasLens' 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'" +instance Lens.Labels.HasLens' HttpRule "maybe'pattern'" (Prelude.Maybe HttpRule'Pattern) where lensOf' _ @@ -243,8 +250,7 @@ (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" +instance Lens.Labels.HasLens' HttpRule "maybe'get" (Prelude.Maybe Data.Text.Text) where lensOf' _ @@ -257,9 +263,7 @@ 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 +instance Lens.Labels.HasLens' HttpRule "get" (Data.Text.Text) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _HttpRule'pattern' @@ -272,8 +276,7 @@ _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" +instance Lens.Labels.HasLens' HttpRule "maybe'put" (Prelude.Maybe Data.Text.Text) where lensOf' _ @@ -286,9 +289,7 @@ 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 +instance Lens.Labels.HasLens' HttpRule "put" (Data.Text.Text) where lensOf' _ = (Prelude..) (Lens.Family2.Unchecked.lens _HttpRule'pattern' @@ -301,8 +302,7 @@ _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" +instance Lens.Labels.HasLens' HttpRule "maybe'post" (Prelude.Maybe Data.Text.Text) where lensOf' _ @@ -315,8 +315,7 @@ 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) +instance Lens.Labels.HasLens' HttpRule "post" (Data.Text.Text) where lensOf' _ = (Prelude..) @@ -330,8 +329,7 @@ _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" +instance Lens.Labels.HasLens' HttpRule "maybe'delete" (Prelude.Maybe Data.Text.Text) where lensOf' _ @@ -344,8 +342,7 @@ 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) +instance Lens.Labels.HasLens' HttpRule "delete" (Data.Text.Text) where lensOf' _ = (Prelude..) @@ -359,8 +356,7 @@ _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" +instance Lens.Labels.HasLens' HttpRule "maybe'patch" (Prelude.Maybe Data.Text.Text) where lensOf' _ @@ -373,8 +369,7 @@ 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) +instance Lens.Labels.HasLens' HttpRule "patch" (Data.Text.Text) where lensOf' _ = (Prelude..) @@ -388,8 +383,7 @@ _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" +instance Lens.Labels.HasLens' HttpRule "maybe'custom" (Prelude.Maybe CustomHttpPattern) where lensOf' _ @@ -402,8 +396,7 @@ 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) +instance Lens.Labels.HasLens' HttpRule "custom" (CustomHttpPattern) where lensOf' _ = (Prelude..) @@ -416,15 +409,7 @@ 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 = ([])} + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage)) instance Data.ProtoLens.Message HttpRule where messageName _ = Data.Text.pack "google.api.HttpRule" fieldsByTag @@ -433,7 +418,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "selector"))) :: Data.ProtoLens.FieldDescriptor HttpRule body__field_descriptor @@ -441,7 +426,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "body"))) :: Data.ProtoLens.FieldDescriptor HttpRule responseBody__field_descriptor @@ -449,7 +434,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.PlainField Data.ProtoLens.Optional - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "responseBody"))) :: Data.ProtoLens.FieldDescriptor HttpRule additionalBindings__field_descriptor @@ -457,7 +442,7 @@ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor HttpRule) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "additionalBindings"))) :: Data.ProtoLens.FieldDescriptor HttpRule @@ -466,7 +451,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'get"))) :: Data.ProtoLens.FieldDescriptor HttpRule put__field_descriptor @@ -474,7 +459,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'put"))) :: Data.ProtoLens.FieldDescriptor HttpRule post__field_descriptor @@ -482,7 +467,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'post"))) :: Data.ProtoLens.FieldDescriptor HttpRule delete__field_descriptor @@ -490,7 +475,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'delete"))) :: Data.ProtoLens.FieldDescriptor HttpRule patch__field_descriptor @@ -498,7 +483,7 @@ (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'patch"))) :: Data.ProtoLens.FieldDescriptor HttpRule custom__field_descriptor @@ -506,7 +491,7 @@ (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: Data.ProtoLens.FieldTypeDescriptor CustomHttpPattern) (Data.ProtoLens.OptionalField - (Lens.Labels.lensOf + (Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'custom"))) :: Data.ProtoLens.FieldDescriptor HttpRule in @@ -524,6 +509,29 @@ unknownFields = Lens.Family2.Unchecked.lens _HttpRule'_unknownFields (\ x__ y__ -> x__{_HttpRule'_unknownFields = y__}) + defMessage + = 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 Control.DeepSeq.NFData HttpRule where + rnf + = \ x__ -> + Control.DeepSeq.deepseq (_HttpRule'_unknownFields x__) + (Control.DeepSeq.deepseq (_HttpRule'selector x__) + (Control.DeepSeq.deepseq (_HttpRule'body x__) + (Control.DeepSeq.deepseq (_HttpRule'responseBody x__) + (Control.DeepSeq.deepseq (_HttpRule'additionalBindings x__) + (Control.DeepSeq.deepseq (_HttpRule'pattern' x__) (())))))) +instance Control.DeepSeq.NFData HttpRule'Pattern where + rnf (HttpRule'Get x__) = Control.DeepSeq.rnf x__ + rnf (HttpRule'Put x__) = Control.DeepSeq.rnf x__ + rnf (HttpRule'Post x__) = Control.DeepSeq.rnf x__ + rnf (HttpRule'Delete x__) = Control.DeepSeq.rnf x__ + rnf (HttpRule'Patch x__) = Control.DeepSeq.rnf x__ + rnf (HttpRule'Custom x__) = Control.DeepSeq.rnf x__ _HttpRule'Get :: Lens.Labels.Prism.Prism' HttpRule'Pattern Data.Text.Text _HttpRule'Get diff --git a/gen/Proto/Google/Api/Http_Fields.hs b/gen/Proto/Google/Api/Http_Fields.hs --- a/gen/Proto/Google/Api/Http_Fields.hs +++ b/gen/Proto/Google/Api/Http_Fields.hs @@ -6,162 +6,176 @@ {-# 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 +import qualified Data.ProtoLens.Runtime.Prelude as Prelude +import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int +import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word +import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens -import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Message.Enum +import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum import qualified - Data.ProtoLens.Reexport.Data.ProtoLens.Service.Types + Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types -import qualified Data.ProtoLens.Reexport.Lens.Family2 +import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2 -import qualified Data.ProtoLens.Reexport.Lens.Family2.Unchecked +import qualified Data.ProtoLens.Runtime.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 +import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text +import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map +import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString -import qualified Data.ProtoLens.Reexport.Data.ByteString.Char8 +import qualified Data.ProtoLens.Runtime.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 Data.ProtoLens.Runtime.Lens.Labels as Lens.Labels +import qualified Data.ProtoLens.Runtime.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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "additionalBindings" a) => + Lens.Family2.LensLike' f s a additionalBindings - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "body" a) => + Lens.Family2.LensLike' f s a body - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "custom" a) => + Lens.Family2.LensLike' f s a custom - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "delete" a) => + Lens.Family2.LensLike' f s a delete - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, + Lens.Labels.HasLens' s "fullyDecodeReservedExpansion" a) => + Lens.Family2.LensLike' f s a fullyDecodeReservedExpansion - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "get" a) => + Lens.Family2.LensLike' f s a get - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "kind" a) => + Lens.Family2.LensLike' f s a kind - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'custom" a) => + Lens.Family2.LensLike' f s a maybe'custom - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'delete" a) => + Lens.Family2.LensLike' f s a maybe'delete - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'get" a) => + Lens.Family2.LensLike' f s a maybe'get - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'patch" a) => + Lens.Family2.LensLike' f s a maybe'patch - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'pattern'" a) => + Lens.Family2.LensLike' f s a maybe'pattern' - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'post" a) => + Lens.Family2.LensLike' f s a maybe'post - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "maybe'put" a) => + Lens.Family2.LensLike' f s a maybe'put - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "patch" a) => + Lens.Family2.LensLike' f s a patch - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "path" a) => + Lens.Family2.LensLike' f s a path - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "post" a) => + Lens.Family2.LensLike' f s a post - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "put" a) => + Lens.Family2.LensLike' f s a put - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "responseBody" a) => + Lens.Family2.LensLike' f s a responseBody - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "rules" a) => + Lens.Family2.LensLike' f s a rules - = Lens.Labels.lensOf + = 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 + forall f s a . + (Prelude.Functor f, Lens.Labels.HasLens' s "selector" a) => + Lens.Family2.LensLike' f s a selector - = Lens.Labels.lensOf + = Lens.Labels.lensOf' ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "selector") diff --git a/grpc-api-etcd.cabal b/grpc-api-etcd.cabal --- a/grpc-api-etcd.cabal +++ b/grpc-api-etcd.cabal @@ -2,10 +2,10 @@ -- -- see: https://github.com/sol/hpack -- --- hash: 53caca2446f2b19e5a844d7b746e7078498c477a67f170328246eff6071c46b0 +-- hash: cecaeb635c170dfe71c84ebb2056d3c589eeb9f9e0b8c8e35d9f5a77d6abb242 name: grpc-api-etcd -version: 0.1.0.1 +version: 0.2.0.0 synopsis: Generated messages and instances for etcd gRPC. description: Please see the README on GitHub at category: GRPC @@ -50,6 +50,6 @@ gen build-depends: base >=4.7 && <5 - , proto-lens >=0.3 && <0.4 - , proto-lens-protoc >=0.3 && <0.4 + , proto-lens >=0.4 && <0.5 + , proto-lens-runtime >=0.4 && <0.5 default-language: Haskell2010