grpc-api-etcd 0.1.0.1 → 0.2.0.0

raw patch · 17 files changed

+9462/−8947 lines, 17 filesdep +proto-lens-runtimedep −proto-lens-protocdep ~proto-lensPVP ok

version bump matches the API change (PVP)

Dependencies added: proto-lens-runtime

Dependencies removed: proto-lens-protoc

Dependency ranges changed: proto-lens

API changes (from Hackage documentation)

Files

• gen/Proto/Etcd/Auth/Authpb/Auth.hs +91/−77
• gen/Proto/Etcd/Auth/Authpb/Auth_Fields.hs +42/−39
• gen/Proto/Etcd/Etcdserver/Api/V3election/V3electionpb/V3election.hs +215/−187
• gen/Proto/Etcd/Etcdserver/Api/V3election/V3electionpb/V3election_Fields.hs +58/−52
• gen/Proto/Etcd/Etcdserver/Api/V3lock/V3lockpb/V3lock.hs +95/−82
• gen/Proto/Etcd/Etcdserver/Api/V3lock/V3lockpb/V3lock_Fields.hs +34/−33
• gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc.hs +7993/−7659
• gen/Proto/Etcd/Etcdserver/Etcdserverpb/Rpc_Fields.hs +499/−409
• gen/Proto/Etcd/Mvcc/Mvccpb/Kv.hs +88/−82
• gen/Proto/Etcd/Mvcc/Mvccpb/Kv_Fields.hs +58/−52
• gen/Proto/Gogoproto/Gogo.hs +17/−18
• gen/Proto/Gogoproto/Gogo_Fields.hs +14/−17
• gen/Proto/Google/Api/Annotations.hs +17/−18
• gen/Proto/Google/Api/Annotations_Fields.hs +14/−17
• gen/Proto/Google/Api/Http.hs +123/−115
• gen/Proto/Google/Api/Http_Fields.hs +100/−86
• grpc-api-etcd.cabal +4/−4

@@ -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__) (()))))

@@ -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")

@@ -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

@@ -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")

@@ -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

@@ -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")

@@ -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