proto-lens 0.5.1.0 → 0.6.0.0

raw patch · 12 files changed

+51/−11976 lines, 12 filesdep +tastydep +tasty-quickcheckdep −test-frameworkdep −test-framework-quickcheck2dep −voiddep ~basedep ~lens-familydep ~profunctorsPVP ok

version bump matches the API change (PVP)

Dependencies added: tasty, tasty-quickcheck

Dependencies removed: test-framework, test-framework-quickcheck2, void

Dependency ranges changed: base, lens-family, profunctors

API changes (from Hackage documentation)

Files

• Changelog.md +12/−0
• proto-lens.cabal +10/−15
• src/Data/ProtoLens/Encoding.hs +3/−0
• src/Data/ProtoLens/Encoding/Bytes.hs +3/−1
• src/Data/ProtoLens/Encoding/Parser/Internal.hs +8/−1
• src/Data/ProtoLens/Encoding/Wire.hs +3/−0
• src/Proto/Google/Protobuf/Compiler/Plugin.hs +0/−1026
• src/Proto/Google/Protobuf/Compiler/Plugin_Fields.hs +0/−185
• src/Proto/Google/Protobuf/Descriptor.hs +0/−9690
• src/Proto/Google/Protobuf/Descriptor_Fields.hs +0/−1046
• tests/growing_test.hs +3/−3
• tests/parser_test.hs +9/−9

@@ -1,5 +1,17 @@ # Changelog for `proto-lens` +## v0.6.0.0++### Breaking Changes+- Bump lower bounds to base-4.10 (ghc-8.2).+- Move `Proto.Google.Protobuf.Descriptor` and+  `Proto.Google.Protobuf.Compiler.Plugin` to the `proto-lens-protobuf-types`+  package.++### Backwards-Compatible Changes+- Bump upper bound to allow profunctors-5.5.+- Support dependencies on base-4.13 (ghc-8.8) and lens-family-2.0.+ ## v0.5.1.0 - Add `decodeMessageDelimitedH` to decode delimited messages from a file handle   (#61).

@@ -1,13 +1,13 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.31.1.+-- This file has been generated from package.yaml by hpack version 0.31.2. -- -- see: https://github.com/sol/hpack ----- hash: 383bc147ec1afaa52a971f87eb6ac95d25c572f183ae0ace7d63ea570da72c44+-- hash: 5006405422ef969b41707de8219c7bbf95f72fb7bb41c12a2f22d30086de9113  name:           proto-lens-version:        0.5.1.0+version:        0.6.0.0 synopsis:       A lens-based implementation of protocol buffers in Haskell. description:    The proto-lens library provides an API for protocol buffers using modern Haskell language and library patterns.  Specifically, it provides:                 .@@ -54,31 +54,26 @@       Data.ProtoLens.Prism       Data.ProtoLens.Service.Types       Data.ProtoLens.TextFormat-      Proto.Google.Protobuf.Compiler.Plugin-      Proto.Google.Protobuf.Compiler.Plugin_Fields-      Proto.Google.Protobuf.Descriptor-      Proto.Google.Protobuf.Descriptor_Fields   other-modules:       Data.ProtoLens.Encoding.Parser.Internal       Data.ProtoLens.TextFormat.Parser   hs-source-dirs:       src   build-depends:-      base >=4.9 && <4.13+      base >=4.10 && <4.14     , bytestring ==0.10.*     , containers >=0.5 && <0.7     , deepseq ==1.4.*     , ghc-prim >=0.4 && <0.6-    , lens-family ==1.2.*+    , lens-family >=1.2 && <2.1     , parsec ==3.1.*     , pretty ==1.1.*     , primitive >=0.6 && <0.8-    , profunctors >=5.2 && <5.5+    , profunctors >=5.2 && <5.6     , tagged ==0.8.*     , text ==1.2.*     , transformers >=0.4 && <0.6     , vector >=0.11 && <0.13-    , void ==0.7.*   default-language: Haskell2010  test-suite growing_test@@ -92,8 +87,8 @@       QuickCheck     , base     , proto-lens-    , test-framework-    , test-framework-quickcheck2+    , tasty+    , tasty-quickcheck     , vector   default-language: Haskell2010 @@ -109,6 +104,6 @@     , base     , bytestring     , proto-lens-    , test-framework-    , test-framework-quickcheck2+    , tasty+    , tasty-quickcheck   default-language: Haskell2010

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} module Data.ProtoLens.Encoding (     encodeMessage,     buildMessage,@@ -19,7 +20,9 @@ import Control.Monad.IO.Class (liftIO) import Control.Monad.Trans.Except (runExceptT, ExceptT(..)) import qualified Data.ByteString as B+#if !MIN_VERSION_base(4,11,0) import Data.Semigroup ((<>))+#endif  -- | Decode a message from its wire format.  Returns 'Left' if the decoding -- fails.

@@ -55,7 +55,9 @@ import qualified Data.ByteString.Builder.Internal as Internal import qualified Data.ByteString.Lazy as L import Data.Int (Int32, Int64)-import Data.Monoid ((<>))+#if !MIN_VERSION_base(4,11,0)+import Data.Semigroup ((<>))+#endif import qualified Data.Vector.Generic as V import Data.Word (Word8, Word32, Word64) import Foreign.Marshal (malloc, free)

@@ -1,3 +1,4 @@+{-# LANGUAGE CPP #-} {-# LANGUAGE LambdaCase #-} -- | Definition of the parsing monad, plus internal -- unsafe functions.@@ -7,6 +8,7 @@     ) where  import Control.Monad (ap)+import qualified Control.Monad.Fail as Fail import Data.Word (Word8) import Foreign.Ptr @@ -36,8 +38,13 @@     (<*>) = ap  instance Monad Parser where-    fail s = Parser $ \_ _ -> return $ ParseFailure s+#if !MIN_VERSION_base(4,13,0)+    fail = Fail.fail+#endif     return = pure     Parser f >>= g = Parser $ \end pos -> f end pos >>= \case         ParseSuccess pos' x -> unParser (g x) end pos'         ParseFailure s -> return $ ParseFailure s++instance Fail.MonadFail Parser where+    fail s = Parser $ \_ _ -> return $ ParseFailure s

@@ -5,6 +5,7 @@ -- Upstream docs: -- <https://developers.google.com/protocol-buffers/docs/encoding#structure> {-# LANGUAGE BangPatterns #-}+{-# LANGUAGE CPP #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} module Data.ProtoLens.Encoding.Wire     ( Tag(..)@@ -21,7 +22,9 @@ import Control.DeepSeq (NFData(..)) import Data.Bits ((.&.), (.|.), shiftL, shiftR) import qualified Data.ByteString as B+#if !MIN_VERSION_base(4,11,0) import Data.Semigroup ((<>))+#endif import Data.Word (Word8, Word32, Word64)  import Data.ProtoLens.Encoding.Bytes

@@ -1,1026 +0,0 @@-{- This file was auto-generated from google/protobuf/compiler/plugin.proto by the proto-lens-protoc program. -}-{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,-  UndecidableInstances, GeneralizedNewtypeDeriving,-  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,-  PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds,-  BangPatterns, TypeApplications #-}-{-# OPTIONS_GHC -fno-warn-unused-imports#-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}-module Proto.Google.Protobuf.Compiler.Plugin-       (CodeGeneratorRequest(), CodeGeneratorResponse(),-        CodeGeneratorResponse'File(), Version())-       where-import qualified Control.DeepSeq-import qualified Data.ProtoLens.Prism-import qualified Prelude-import qualified Data.Int-import qualified Data.Monoid-import qualified Data.Word-import qualified Data.ProtoLens-import qualified Data.ProtoLens.Encoding.Bytes-import qualified Data.ProtoLens.Encoding.Growing-import qualified Data.ProtoLens.Encoding.Parser.Unsafe-import qualified Data.ProtoLens.Encoding.Wire-import qualified Data.ProtoLens.Field-import qualified Data.ProtoLens.Message.Enum-import qualified Data.ProtoLens.Service.Types-import qualified Lens.Family2-import qualified Lens.Family2.Unchecked-import qualified Data.Text-import qualified Data.Map-import qualified Data.ByteString-import qualified Data.ByteString.Char8-import qualified Data.Text.Encoding-import qualified Data.Vector-import qualified Data.Vector.Generic-import qualified Data.Vector.Unboxed-import qualified Text.Read-import qualified Proto.Google.Protobuf.Descriptor--{- | Fields :--    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.fileToGenerate' @:: Lens' CodeGeneratorRequest [Data.Text.Text]@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.vec'fileToGenerate' @:: Lens' CodeGeneratorRequest (Data.Vector.Vector Data.Text.Text)@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.parameter' @:: Lens' CodeGeneratorRequest Data.Text.Text@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'parameter' @:: Lens' CodeGeneratorRequest (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.protoFile' @:: Lens' CodeGeneratorRequest-  [Proto.Google.Protobuf.Descriptor.FileDescriptorProto]@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.vec'protoFile' @:: Lens' CodeGeneratorRequest-  (Data.Vector.Vector-     Proto.Google.Protobuf.Descriptor.FileDescriptorProto)@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.compilerVersion' @:: Lens' CodeGeneratorRequest Version@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'compilerVersion' @:: Lens' CodeGeneratorRequest (Prelude.Maybe Version)@- -}-data CodeGeneratorRequest = CodeGeneratorRequest{_CodeGeneratorRequest'fileToGenerate-                                                 :: !(Data.Vector.Vector Data.Text.Text),-                                                 _CodeGeneratorRequest'parameter ::-                                                 !(Prelude.Maybe Data.Text.Text),-                                                 _CodeGeneratorRequest'protoFile ::-                                                 !(Data.Vector.Vector-                                                     Proto.Google.Protobuf.Descriptor.FileDescriptorProto),-                                                 _CodeGeneratorRequest'compilerVersion ::-                                                 !(Prelude.Maybe Version),-                                                 _CodeGeneratorRequest'_unknownFields ::-                                                 !Data.ProtoLens.FieldSet}-                              deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show CodeGeneratorRequest where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField CodeGeneratorRequest-           "fileToGenerate"-           ([Data.Text.Text])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'fileToGenerate-               (\ x__ y__ -> x__{_CodeGeneratorRequest'fileToGenerate = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField CodeGeneratorRequest-           "vec'fileToGenerate"-           (Data.Vector.Vector Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'fileToGenerate-               (\ x__ y__ -> x__{_CodeGeneratorRequest'fileToGenerate = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField CodeGeneratorRequest-           "parameter"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'parameter-               (\ x__ y__ -> x__{_CodeGeneratorRequest'parameter = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField CodeGeneratorRequest-           "maybe'parameter"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'parameter-               (\ x__ y__ -> x__{_CodeGeneratorRequest'parameter = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField CodeGeneratorRequest-           "protoFile"-           ([Proto.Google.Protobuf.Descriptor.FileDescriptorProto])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'protoFile-               (\ x__ y__ -> x__{_CodeGeneratorRequest'protoFile = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField CodeGeneratorRequest-           "vec'protoFile"-           (Data.Vector.Vector-              Proto.Google.Protobuf.Descriptor.FileDescriptorProto)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _CodeGeneratorRequest'protoFile-               (\ x__ y__ -> x__{_CodeGeneratorRequest'protoFile = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField CodeGeneratorRequest-           "compilerVersion"-           (Version)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _CodeGeneratorRequest'compilerVersion-               (\ x__ y__ -> x__{_CodeGeneratorRequest'compilerVersion = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField CodeGeneratorRequest-           "maybe'compilerVersion"-           (Prelude.Maybe Version)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _CodeGeneratorRequest'compilerVersion-               (\ x__ y__ -> x__{_CodeGeneratorRequest'compilerVersion = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message CodeGeneratorRequest where-        messageName _-          = Data.Text.pack "google.protobuf.compiler.CodeGeneratorRequest"-        fieldsByTag-          = let fileToGenerate__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "file_to_generate"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"fileToGenerate"))-                      :: Data.ProtoLens.FieldDescriptor CodeGeneratorRequest-                parameter__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "parameter"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'parameter"))-                      :: Data.ProtoLens.FieldDescriptor CodeGeneratorRequest-                protoFile__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "proto_file"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor-                           Proto.Google.Protobuf.Descriptor.FileDescriptorProto)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"protoFile"))-                      :: Data.ProtoLens.FieldDescriptor CodeGeneratorRequest-                compilerVersion__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "compiler_version"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor Version)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'compilerVersion"))-                      :: Data.ProtoLens.FieldDescriptor CodeGeneratorRequest-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, fileToGenerate__field_descriptor),-                 (Data.ProtoLens.Tag 2, parameter__field_descriptor),-                 (Data.ProtoLens.Tag 15, protoFile__field_descriptor),-                 (Data.ProtoLens.Tag 3, compilerVersion__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _CodeGeneratorRequest'_unknownFields-              (\ x__ y__ -> x__{_CodeGeneratorRequest'_unknownFields = y__})-        defMessage-          = CodeGeneratorRequest{_CodeGeneratorRequest'fileToGenerate =-                                   Data.Vector.Generic.empty,-                                 _CodeGeneratorRequest'parameter = Prelude.Nothing,-                                 _CodeGeneratorRequest'protoFile = Data.Vector.Generic.empty,-                                 _CodeGeneratorRequest'compilerVersion = Prelude.Nothing,-                                 _CodeGeneratorRequest'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     CodeGeneratorRequest ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         Data.Text.Text-                         ->-                         Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                           Data.ProtoLens.Encoding.Growing.RealWorld-                           Proto.Google.Protobuf.Descriptor.FileDescriptorProto-                           -> Data.ProtoLens.Encoding.Bytes.Parser CodeGeneratorRequest-                loop x mutable'fileToGenerate mutable'protoFile-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'fileToGenerate <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                       (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                          mutable'fileToGenerate)-                            frozen'protoFile <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                  (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                     mutable'protoFile)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set-                                    (Data.ProtoLens.Field.field @"vec'fileToGenerate")-                                    frozen'fileToGenerate-                                    (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'protoFile")-                                       frozen'protoFile-                                       x)))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do !y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                               Data.ProtoLens.Encoding.Bytes.getBytes-                                                                 (Prelude.fromIntegral len)-                                                   Data.ProtoLens.Encoding.Bytes.runEither-                                                     (case Data.Text.Encoding.decodeUtf8' value of-                                                          Prelude.Left err -> Prelude.Left-                                                                                (Prelude.show err)-                                                          Prelude.Right r -> Prelude.Right r))-                                                 Data.ProtoLens.Encoding.Bytes.<?>-                                                 "file_to_generate"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'fileToGenerate-                                                   y)-                                         loop x v mutable'protoFile-                                18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "parameter"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"parameter")-                                              y-                                              x)-                                           mutable'fileToGenerate-                                           mutable'protoFile-                                122 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                    Data.ProtoLens.Encoding.Bytes.isolate-                                                      (Prelude.fromIntegral len)-                                                      Data.ProtoLens.parseMessage)-                                                  Data.ProtoLens.Encoding.Bytes.<?> "proto_file"-                                          v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                 (Data.ProtoLens.Encoding.Growing.append-                                                    mutable'protoFile-                                                    y)-                                          loop x mutable'fileToGenerate v-                                26 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                  Data.ProtoLens.Encoding.Bytes.isolate-                                                    (Prelude.fromIntegral len)-                                                    Data.ProtoLens.parseMessage)-                                                Data.ProtoLens.Encoding.Bytes.<?> "compiler_version"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"compilerVersion")-                                              y-                                              x)-                                           mutable'fileToGenerate-                                           mutable'protoFile-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'fileToGenerate-                                             mutable'protoFile-              in-              (do mutable'fileToGenerate <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                              Data.ProtoLens.Encoding.Growing.new-                  mutable'protoFile <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                         Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'fileToGenerate-                    mutable'protoFile)-                Data.ProtoLens.Encoding.Bytes.<?> "CodeGeneratorRequest"-        buildMessage-          = (\ _x ->-               (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                  (\ _v ->-                     (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>-                       (((\ bs ->-                            (Data.ProtoLens.Encoding.Bytes.putVarInt-                               (Prelude.fromIntegral (Data.ByteString.length bs)))-                              Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Prelude.. Data.Text.Encoding.encodeUtf8)-                         _v)-                  (Lens.Family2.view-                     (Data.ProtoLens.Field.field @"vec'fileToGenerate")-                     _x))-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'parameter")-                      _x-                    of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                                           Data.Monoid.<>-                                           (((\ bs ->-                                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                   (Prelude.fromIntegral-                                                      (Data.ByteString.length bs)))-                                                  Data.Monoid.<>-                                                  Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                              Prelude.. Data.Text.Encoding.encodeUtf8)-                                             _v)-                   Data.Monoid.<>-                   (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                      (\ _v ->-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 122) Data.Monoid.<>-                           (((\ bs ->-                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                   (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                              Prelude.. Data.ProtoLens.encodeMessage)-                             _v)-                      (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'protoFile")-                         _x))-                     Data.Monoid.<>-                     (case-                        Lens.Family2.view-                          (Data.ProtoLens.Field.field @"maybe'compilerVersion")-                          _x-                        of-                          (Prelude.Nothing) -> Data.Monoid.mempty-                          Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                                               Data.Monoid.<>-                                               (((\ bs ->-                                                    (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                       (Prelude.fromIntegral-                                                          (Data.ByteString.length bs)))-                                                      Data.Monoid.<>-                                                      Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                                  Prelude.. Data.ProtoLens.encodeMessage)-                                                 _v)-                       Data.Monoid.<>-                       Data.ProtoLens.Encoding.Wire.buildFieldSet-                         (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData CodeGeneratorRequest where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_CodeGeneratorRequest'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_CodeGeneratorRequest'fileToGenerate x__)-                    (Control.DeepSeq.deepseq (_CodeGeneratorRequest'parameter x__)-                       (Control.DeepSeq.deepseq (_CodeGeneratorRequest'protoFile x__)-                          (Control.DeepSeq.deepseq-                             (_CodeGeneratorRequest'compilerVersion x__)-                             (()))))))-{- | Fields :--    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.error' @:: Lens' CodeGeneratorResponse Data.Text.Text@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'error' @:: Lens' CodeGeneratorResponse (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.file' @:: Lens' CodeGeneratorResponse [CodeGeneratorResponse'File]@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.vec'file' @:: Lens' CodeGeneratorResponse-  (Data.Vector.Vector CodeGeneratorResponse'File)@- -}-data CodeGeneratorResponse = CodeGeneratorResponse{_CodeGeneratorResponse'error-                                                   :: !(Prelude.Maybe Data.Text.Text),-                                                   _CodeGeneratorResponse'file ::-                                                   !(Data.Vector.Vector CodeGeneratorResponse'File),-                                                   _CodeGeneratorResponse'_unknownFields ::-                                                   !Data.ProtoLens.FieldSet}-                               deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show CodeGeneratorResponse where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField CodeGeneratorResponse-           "error"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'error-               (\ x__ y__ -> x__{_CodeGeneratorResponse'error = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField CodeGeneratorResponse-           "maybe'error"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'error-               (\ x__ y__ -> x__{_CodeGeneratorResponse'error = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField CodeGeneratorResponse "file"-           ([CodeGeneratorResponse'File])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'file-               (\ x__ y__ -> x__{_CodeGeneratorResponse'file = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField CodeGeneratorResponse-           "vec'file"-           (Data.Vector.Vector CodeGeneratorResponse'File)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'file-               (\ x__ y__ -> x__{_CodeGeneratorResponse'file = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message CodeGeneratorResponse where-        messageName _-          = Data.Text.pack "google.protobuf.compiler.CodeGeneratorResponse"-        fieldsByTag-          = let error__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "error"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'error"))-                      :: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse-                file__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "file"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor CodeGeneratorResponse'File)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"file"))-                      :: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, error__field_descriptor),-                 (Data.ProtoLens.Tag 15, file__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _CodeGeneratorResponse'_unknownFields-              (\ x__ y__ -> x__{_CodeGeneratorResponse'_unknownFields = y__})-        defMessage-          = CodeGeneratorResponse{_CodeGeneratorResponse'error =-                                    Prelude.Nothing,-                                  _CodeGeneratorResponse'file = Data.Vector.Generic.empty,-                                  _CodeGeneratorResponse'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     CodeGeneratorResponse ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         CodeGeneratorResponse'File-                         -> Data.ProtoLens.Encoding.Bytes.Parser CodeGeneratorResponse-                loop x mutable'file-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'file <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                             (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                mutable'file)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'file")-                                    frozen'file-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "error"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"error") y-                                              x)-                                           mutable'file-                                122 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                    Data.ProtoLens.Encoding.Bytes.isolate-                                                      (Prelude.fromIntegral len)-                                                      Data.ProtoLens.parseMessage)-                                                  Data.ProtoLens.Encoding.Bytes.<?> "file"-                                          v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                 (Data.ProtoLens.Encoding.Growing.append-                                                    mutable'file-                                                    y)-                                          loop x v-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'file-              in-              (do mutable'file <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                    Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'file)-                Data.ProtoLens.Encoding.Bytes.<?> "CodeGeneratorResponse"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'error") _x of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                                         Data.Monoid.<>-                                         (((\ bs ->-                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                                Data.Monoid.<>-                                                Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                            Prelude.. Data.Text.Encoding.encodeUtf8)-                                           _v)-                 Data.Monoid.<>-                 (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                    (\ _v ->-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 122) Data.Monoid.<>-                         (((\ bs ->-                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                            Prelude.. Data.ProtoLens.encodeMessage)-                           _v)-                    (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'file") _x))-                   Data.Monoid.<>-                   Data.ProtoLens.Encoding.Wire.buildFieldSet-                     (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData CodeGeneratorResponse where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_CodeGeneratorResponse'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_CodeGeneratorResponse'error x__)-                    (Control.DeepSeq.deepseq (_CodeGeneratorResponse'file x__) (()))))-{- | Fields :--    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.name' @:: Lens' CodeGeneratorResponse'File Data.Text.Text@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'name' @:: Lens' CodeGeneratorResponse'File (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.insertionPoint' @:: Lens' CodeGeneratorResponse'File Data.Text.Text@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'insertionPoint' @:: Lens' CodeGeneratorResponse'File (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.content' @:: Lens' CodeGeneratorResponse'File Data.Text.Text@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'content' @:: Lens' CodeGeneratorResponse'File (Prelude.Maybe Data.Text.Text)@- -}-data CodeGeneratorResponse'File = CodeGeneratorResponse'File{_CodeGeneratorResponse'File'name-                                                             :: !(Prelude.Maybe Data.Text.Text),-                                                             _CodeGeneratorResponse'File'insertionPoint-                                                             :: !(Prelude.Maybe Data.Text.Text),-                                                             _CodeGeneratorResponse'File'content ::-                                                             !(Prelude.Maybe Data.Text.Text),-                                                             _CodeGeneratorResponse'File'_unknownFields-                                                             :: !Data.ProtoLens.FieldSet}-                                    deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show CodeGeneratorResponse'File where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File-           "name"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'File'name-               (\ x__ y__ -> x__{_CodeGeneratorResponse'File'name = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File-           "maybe'name"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'File'name-               (\ x__ y__ -> x__{_CodeGeneratorResponse'File'name = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File-           "insertionPoint"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _CodeGeneratorResponse'File'insertionPoint-               (\ x__ y__ ->-                  x__{_CodeGeneratorResponse'File'insertionPoint = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File-           "maybe'insertionPoint"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _CodeGeneratorResponse'File'insertionPoint-               (\ x__ y__ ->-                  x__{_CodeGeneratorResponse'File'insertionPoint = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File-           "content"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'File'content-               (\ x__ y__ -> x__{_CodeGeneratorResponse'File'content = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField CodeGeneratorResponse'File-           "maybe'content"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _CodeGeneratorResponse'File'content-               (\ x__ y__ -> x__{_CodeGeneratorResponse'File'content = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message CodeGeneratorResponse'File where-        messageName _-          = Data.Text.pack-              "google.protobuf.compiler.CodeGeneratorResponse.File"-        fieldsByTag-          = let name__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "name"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'name"))-                      :: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse'File-                insertionPoint__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "insertion_point"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'insertionPoint"))-                      :: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse'File-                content__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "content"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'content"))-                      :: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse'File-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, name__field_descriptor),-                 (Data.ProtoLens.Tag 2, insertionPoint__field_descriptor),-                 (Data.ProtoLens.Tag 15, content__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens-              _CodeGeneratorResponse'File'_unknownFields-              (\ x__ y__ ->-                 x__{_CodeGeneratorResponse'File'_unknownFields = y__})-        defMessage-          = CodeGeneratorResponse'File{_CodeGeneratorResponse'File'name =-                                         Prelude.Nothing,-                                       _CodeGeneratorResponse'File'insertionPoint = Prelude.Nothing,-                                       _CodeGeneratorResponse'File'content = Prelude.Nothing,-                                       _CodeGeneratorResponse'File'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     CodeGeneratorResponse'File ->-                       Data.ProtoLens.Encoding.Bytes.Parser CodeGeneratorResponse'File-                loop x-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 x)-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "name"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y-                                              x)-                                18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "insertion_point"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"insertionPoint")-                                              y-                                              x)-                                122 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                               Data.ProtoLens.Encoding.Bytes.getBytes-                                                                 (Prelude.fromIntegral len)-                                                   Data.ProtoLens.Encoding.Bytes.runEither-                                                     (case Data.Text.Encoding.decodeUtf8' value of-                                                          Prelude.Left err -> Prelude.Left-                                                                                (Prelude.show err)-                                                          Prelude.Right r -> Prelude.Right r))-                                                 Data.ProtoLens.Encoding.Bytes.<?> "content"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"content")-                                               y-                                               x)-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-              in-              (do loop Data.ProtoLens.defMessage)-                Data.ProtoLens.Encoding.Bytes.<?> "File"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                                         Data.Monoid.<>-                                         (((\ bs ->-                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                                Data.Monoid.<>-                                                Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                            Prelude.. Data.Text.Encoding.encodeUtf8)-                                           _v)-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view-                      (Data.ProtoLens.Field.field @"maybe'insertionPoint")-                      _x-                    of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                                           Data.Monoid.<>-                                           (((\ bs ->-                                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                   (Prelude.fromIntegral-                                                      (Data.ByteString.length bs)))-                                                  Data.Monoid.<>-                                                  Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                              Prelude.. Data.Text.Encoding.encodeUtf8)-                                             _v)-                   Data.Monoid.<>-                   (case-                      Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'content") _x-                      of-                        (Prelude.Nothing) -> Data.Monoid.mempty-                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 122)-                                             Data.Monoid.<>-                                             (((\ bs ->-                                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                     (Prelude.fromIntegral-                                                        (Data.ByteString.length bs)))-                                                    Data.Monoid.<>-                                                    Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                                Prelude.. Data.Text.Encoding.encodeUtf8)-                                               _v)-                     Data.Monoid.<>-                     Data.ProtoLens.Encoding.Wire.buildFieldSet-                       (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData CodeGeneratorResponse'File where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq-                 (_CodeGeneratorResponse'File'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_CodeGeneratorResponse'File'name x__)-                    (Control.DeepSeq.deepseq-                       (_CodeGeneratorResponse'File'insertionPoint x__)-                       (Control.DeepSeq.deepseq (_CodeGeneratorResponse'File'content x__)-                          (())))))-{- | Fields :--    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.major' @:: Lens' Version Data.Int.Int32@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'major' @:: Lens' Version (Prelude.Maybe Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.minor' @:: Lens' Version Data.Int.Int32@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'minor' @:: Lens' Version (Prelude.Maybe Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.patch' @:: Lens' Version Data.Int.Int32@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'patch' @:: Lens' Version (Prelude.Maybe Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.suffix' @:: Lens' Version Data.Text.Text@-    * 'Proto.Google.Protobuf.Compiler.Plugin_Fields.maybe'suffix' @:: Lens' Version (Prelude.Maybe Data.Text.Text)@- -}-data Version = Version{_Version'major ::-                       !(Prelude.Maybe Data.Int.Int32),-                       _Version'minor :: !(Prelude.Maybe Data.Int.Int32),-                       _Version'patch :: !(Prelude.Maybe Data.Int.Int32),-                       _Version'suffix :: !(Prelude.Maybe Data.Text.Text),-                       _Version'_unknownFields :: !Data.ProtoLens.FieldSet}-                 deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show Version where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField Version "major"-           (Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _Version'major-               (\ x__ y__ -> x__{_Version'major = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField Version "maybe'major"-           (Prelude.Maybe Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _Version'major-               (\ x__ y__ -> x__{_Version'major = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField Version "minor"-           (Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _Version'minor-               (\ x__ y__ -> x__{_Version'minor = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField Version "maybe'minor"-           (Prelude.Maybe Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _Version'minor-               (\ x__ y__ -> x__{_Version'minor = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField Version "patch"-           (Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _Version'patch-               (\ x__ y__ -> x__{_Version'patch = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField Version "maybe'patch"-           (Prelude.Maybe Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _Version'patch-               (\ x__ y__ -> x__{_Version'patch = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField Version "suffix"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _Version'suffix-               (\ x__ y__ -> x__{_Version'suffix = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField Version "maybe'suffix"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _Version'suffix-               (\ x__ y__ -> x__{_Version'suffix = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message Version where-        messageName _ = Data.Text.pack "google.protobuf.compiler.Version"-        fieldsByTag-          = let major__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "major"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'major"))-                      :: Data.ProtoLens.FieldDescriptor Version-                minor__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "minor"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'minor"))-                      :: Data.ProtoLens.FieldDescriptor Version-                patch__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "patch"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'patch"))-                      :: Data.ProtoLens.FieldDescriptor Version-                suffix__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "suffix"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'suffix"))-                      :: Data.ProtoLens.FieldDescriptor Version-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, major__field_descriptor),-                 (Data.ProtoLens.Tag 2, minor__field_descriptor),-                 (Data.ProtoLens.Tag 3, patch__field_descriptor),-                 (Data.ProtoLens.Tag 4, suffix__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _Version'_unknownFields-              (\ x__ y__ -> x__{_Version'_unknownFields = y__})-        defMessage-          = Version{_Version'major = Prelude.Nothing,-                    _Version'minor = Prelude.Nothing, _Version'patch = Prelude.Nothing,-                    _Version'suffix = Prelude.Nothing, _Version'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     Version -> Data.ProtoLens.Encoding.Bytes.Parser Version-                loop x-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 x)-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                8 -> do y <- (Prelude.fmap Prelude.fromIntegral-                                                Data.ProtoLens.Encoding.Bytes.getVarInt)-                                               Data.ProtoLens.Encoding.Bytes.<?> "major"-                                        loop-                                          (Lens.Family2.set (Data.ProtoLens.Field.field @"major") y-                                             x)-                                16 -> do y <- (Prelude.fmap Prelude.fromIntegral-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "minor"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"minor") y-                                              x)-                                24 -> do y <- (Prelude.fmap Prelude.fromIntegral-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "patch"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"patch") y-                                              x)-                                34 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "suffix"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"suffix")-                                              y-                                              x)-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-              in-              (do loop Data.ProtoLens.defMessage)-                Data.ProtoLens.Encoding.Bytes.<?> "Version"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'major") _x of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                                         Data.Monoid.<>-                                         ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                            Prelude.fromIntegral)-                                           _v)-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'minor") _x of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16)-                                           Data.Monoid.<>-                                           ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                              Prelude.fromIntegral)-                                             _v)-                   Data.Monoid.<>-                   (case-                      Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'patch") _x of-                        (Prelude.Nothing) -> Data.Monoid.mempty-                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 24)-                                             Data.Monoid.<>-                                             ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                                Prelude.fromIntegral)-                                               _v)-                     Data.Monoid.<>-                     (case-                        Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'suffix") _x-                        of-                          (Prelude.Nothing) -> Data.Monoid.mempty-                          Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 34)-                                               Data.Monoid.<>-                                               (((\ bs ->-                                                    (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                       (Prelude.fromIntegral-                                                          (Data.ByteString.length bs)))-                                                      Data.Monoid.<>-                                                      Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                                  Prelude.. Data.Text.Encoding.encodeUtf8)-                                                 _v)-                       Data.Monoid.<>-                       Data.ProtoLens.Encoding.Wire.buildFieldSet-                         (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData Version where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_Version'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_Version'major x__)-                    (Control.DeepSeq.deepseq (_Version'minor x__)-                       (Control.DeepSeq.deepseq (_Version'patch x__)-                          (Control.DeepSeq.deepseq (_Version'suffix x__) (()))))))

@@ -1,185 +0,0 @@-{- This file was auto-generated from google/protobuf/compiler/plugin.proto by the proto-lens-protoc program. -}-{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,-  UndecidableInstances, GeneralizedNewtypeDeriving,-  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,-  PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds,-  BangPatterns, TypeApplications #-}-{-# OPTIONS_GHC -fno-warn-unused-imports#-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}-module Proto.Google.Protobuf.Compiler.Plugin_Fields where-import qualified Prelude-import qualified Data.Int-import qualified Data.Monoid-import qualified Data.Word-import qualified Data.ProtoLens-import qualified Data.ProtoLens.Encoding.Bytes-import qualified Data.ProtoLens.Encoding.Growing-import qualified Data.ProtoLens.Encoding.Parser.Unsafe-import qualified Data.ProtoLens.Encoding.Wire-import qualified Data.ProtoLens.Field-import qualified Data.ProtoLens.Message.Enum-import qualified Data.ProtoLens.Service.Types-import qualified Lens.Family2-import qualified Lens.Family2.Unchecked-import qualified Data.Text-import qualified Data.Map-import qualified Data.ByteString-import qualified Data.ByteString.Char8-import qualified Data.Text.Encoding-import qualified Data.Vector-import qualified Data.Vector.Generic-import qualified Data.Vector.Unboxed-import qualified Text.Read-import qualified Proto.Google.Protobuf.Descriptor--compilerVersion ::-                forall f s a .-                  (Prelude.Functor f,-                   Data.ProtoLens.Field.HasField s "compilerVersion" a) =>-                  Lens.Family2.LensLike' f s a-compilerVersion = Data.ProtoLens.Field.field @"compilerVersion"-content ::-        forall f s a .-          (Prelude.Functor f, Data.ProtoLens.Field.HasField s "content" a) =>-          Lens.Family2.LensLike' f s a-content = Data.ProtoLens.Field.field @"content"-error ::-      forall f s a .-        (Prelude.Functor f, Data.ProtoLens.Field.HasField s "error" a) =>-        Lens.Family2.LensLike' f s a-error = Data.ProtoLens.Field.field @"error"-file ::-     forall f s a .-       (Prelude.Functor f, Data.ProtoLens.Field.HasField s "file" a) =>-       Lens.Family2.LensLike' f s a-file = Data.ProtoLens.Field.field @"file"-fileToGenerate ::-               forall f s a .-                 (Prelude.Functor f,-                  Data.ProtoLens.Field.HasField s "fileToGenerate" a) =>-                 Lens.Family2.LensLike' f s a-fileToGenerate = Data.ProtoLens.Field.field @"fileToGenerate"-insertionPoint ::-               forall f s a .-                 (Prelude.Functor f,-                  Data.ProtoLens.Field.HasField s "insertionPoint" a) =>-                 Lens.Family2.LensLike' f s a-insertionPoint = Data.ProtoLens.Field.field @"insertionPoint"-major ::-      forall f s a .-        (Prelude.Functor f, Data.ProtoLens.Field.HasField s "major" a) =>-        Lens.Family2.LensLike' f s a-major = Data.ProtoLens.Field.field @"major"-maybe'compilerVersion ::-                      forall f s a .-                        (Prelude.Functor f,-                         Data.ProtoLens.Field.HasField s "maybe'compilerVersion" a) =>-                        Lens.Family2.LensLike' f s a-maybe'compilerVersion-  = Data.ProtoLens.Field.field @"maybe'compilerVersion"-maybe'content ::-              forall f s a .-                (Prelude.Functor f,-                 Data.ProtoLens.Field.HasField s "maybe'content" a) =>-                Lens.Family2.LensLike' f s a-maybe'content = Data.ProtoLens.Field.field @"maybe'content"-maybe'error ::-            forall f s a .-              (Prelude.Functor f,-               Data.ProtoLens.Field.HasField s "maybe'error" a) =>-              Lens.Family2.LensLike' f s a-maybe'error = Data.ProtoLens.Field.field @"maybe'error"-maybe'insertionPoint ::-                     forall f s a .-                       (Prelude.Functor f,-                        Data.ProtoLens.Field.HasField s "maybe'insertionPoint" a) =>-                       Lens.Family2.LensLike' f s a-maybe'insertionPoint-  = Data.ProtoLens.Field.field @"maybe'insertionPoint"-maybe'major ::-            forall f s a .-              (Prelude.Functor f,-               Data.ProtoLens.Field.HasField s "maybe'major" a) =>-              Lens.Family2.LensLike' f s a-maybe'major = Data.ProtoLens.Field.field @"maybe'major"-maybe'minor ::-            forall f s a .-              (Prelude.Functor f,-               Data.ProtoLens.Field.HasField s "maybe'minor" a) =>-              Lens.Family2.LensLike' f s a-maybe'minor = Data.ProtoLens.Field.field @"maybe'minor"-maybe'name ::-           forall f s a .-             (Prelude.Functor f,-              Data.ProtoLens.Field.HasField s "maybe'name" a) =>-             Lens.Family2.LensLike' f s a-maybe'name = Data.ProtoLens.Field.field @"maybe'name"-maybe'parameter ::-                forall f s a .-                  (Prelude.Functor f,-                   Data.ProtoLens.Field.HasField s "maybe'parameter" a) =>-                  Lens.Family2.LensLike' f s a-maybe'parameter = Data.ProtoLens.Field.field @"maybe'parameter"-maybe'patch ::-            forall f s a .-              (Prelude.Functor f,-               Data.ProtoLens.Field.HasField s "maybe'patch" a) =>-              Lens.Family2.LensLike' f s a-maybe'patch = Data.ProtoLens.Field.field @"maybe'patch"-maybe'suffix ::-             forall f s a .-               (Prelude.Functor f,-                Data.ProtoLens.Field.HasField s "maybe'suffix" a) =>-               Lens.Family2.LensLike' f s a-maybe'suffix = Data.ProtoLens.Field.field @"maybe'suffix"-minor ::-      forall f s a .-        (Prelude.Functor f, Data.ProtoLens.Field.HasField s "minor" a) =>-        Lens.Family2.LensLike' f s a-minor = Data.ProtoLens.Field.field @"minor"-name ::-     forall f s a .-       (Prelude.Functor f, Data.ProtoLens.Field.HasField s "name" a) =>-       Lens.Family2.LensLike' f s a-name = Data.ProtoLens.Field.field @"name"-parameter ::-          forall f s a .-            (Prelude.Functor f,-             Data.ProtoLens.Field.HasField s "parameter" a) =>-            Lens.Family2.LensLike' f s a-parameter = Data.ProtoLens.Field.field @"parameter"-patch ::-      forall f s a .-        (Prelude.Functor f, Data.ProtoLens.Field.HasField s "patch" a) =>-        Lens.Family2.LensLike' f s a-patch = Data.ProtoLens.Field.field @"patch"-protoFile ::-          forall f s a .-            (Prelude.Functor f,-             Data.ProtoLens.Field.HasField s "protoFile" a) =>-            Lens.Family2.LensLike' f s a-protoFile = Data.ProtoLens.Field.field @"protoFile"-suffix ::-       forall f s a .-         (Prelude.Functor f, Data.ProtoLens.Field.HasField s "suffix" a) =>-         Lens.Family2.LensLike' f s a-suffix = Data.ProtoLens.Field.field @"suffix"-vec'file ::-         forall f s a .-           (Prelude.Functor f,-            Data.ProtoLens.Field.HasField s "vec'file" a) =>-           Lens.Family2.LensLike' f s a-vec'file = Data.ProtoLens.Field.field @"vec'file"-vec'fileToGenerate ::-                   forall f s a .-                     (Prelude.Functor f,-                      Data.ProtoLens.Field.HasField s "vec'fileToGenerate" a) =>-                     Lens.Family2.LensLike' f s a-vec'fileToGenerate-  = Data.ProtoLens.Field.field @"vec'fileToGenerate"-vec'protoFile ::-              forall f s a .-                (Prelude.Functor f,-                 Data.ProtoLens.Field.HasField s "vec'protoFile" a) =>-                Lens.Family2.LensLike' f s a-vec'protoFile = Data.ProtoLens.Field.field @"vec'protoFile"

@@ -1,9690 +0,0 @@-{- This file was auto-generated from google/protobuf/descriptor.proto by the proto-lens-protoc program. -}-{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies,-  UndecidableInstances, GeneralizedNewtypeDeriving,-  MultiParamTypeClasses, FlexibleContexts, FlexibleInstances,-  PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds,-  BangPatterns, TypeApplications #-}-{-# OPTIONS_GHC -fno-warn-unused-imports#-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports#-}-module Proto.Google.Protobuf.Descriptor-       (DescriptorProto(), DescriptorProto'ExtensionRange(),-        DescriptorProto'ReservedRange(), EnumDescriptorProto(),-        EnumDescriptorProto'EnumReservedRange(), EnumOptions(),-        EnumValueDescriptorProto(), EnumValueOptions(),-        ExtensionRangeOptions(), FieldDescriptorProto(),-        FieldDescriptorProto'Label(..), FieldDescriptorProto'Label(),-        FieldDescriptorProto'Type(..), FieldDescriptorProto'Type(),-        FieldOptions(), FieldOptions'CType(..), FieldOptions'CType(),-        FieldOptions'JSType(..), FieldOptions'JSType(),-        FileDescriptorProto(), FileDescriptorSet(), FileOptions(),-        FileOptions'OptimizeMode(..), FileOptions'OptimizeMode(),-        GeneratedCodeInfo(), GeneratedCodeInfo'Annotation(),-        MessageOptions(), MethodDescriptorProto(), MethodOptions(),-        MethodOptions'IdempotencyLevel(..),-        MethodOptions'IdempotencyLevel(), OneofDescriptorProto(),-        OneofOptions(), ServiceDescriptorProto(), ServiceOptions(),-        SourceCodeInfo(), SourceCodeInfo'Location(), UninterpretedOption(),-        UninterpretedOption'NamePart())-       where-import qualified Control.DeepSeq-import qualified Data.ProtoLens.Prism-import qualified Prelude-import qualified Data.Int-import qualified Data.Monoid-import qualified Data.Word-import qualified Data.ProtoLens-import qualified Data.ProtoLens.Encoding.Bytes-import qualified Data.ProtoLens.Encoding.Growing-import qualified Data.ProtoLens.Encoding.Parser.Unsafe-import qualified Data.ProtoLens.Encoding.Wire-import qualified Data.ProtoLens.Field-import qualified Data.ProtoLens.Message.Enum-import qualified Data.ProtoLens.Service.Types-import qualified Lens.Family2-import qualified Lens.Family2.Unchecked-import qualified Data.Text-import qualified Data.Map-import qualified Data.ByteString-import qualified Data.ByteString.Char8-import qualified Data.Text.Encoding-import qualified Data.Vector-import qualified Data.Vector.Generic-import qualified Data.Vector.Unboxed-import qualified Text.Read--{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' DescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' DescriptorProto (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.field' @:: Lens' DescriptorProto [FieldDescriptorProto]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'field' @:: Lens' DescriptorProto (Data.Vector.Vector FieldDescriptorProto)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.extension' @:: Lens' DescriptorProto [FieldDescriptorProto]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'extension' @:: Lens' DescriptorProto (Data.Vector.Vector FieldDescriptorProto)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.nestedType' @:: Lens' DescriptorProto [DescriptorProto]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'nestedType' @:: Lens' DescriptorProto (Data.Vector.Vector DescriptorProto)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.enumType' @:: Lens' DescriptorProto [EnumDescriptorProto]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'enumType' @:: Lens' DescriptorProto (Data.Vector.Vector EnumDescriptorProto)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.extensionRange' @:: Lens' DescriptorProto [DescriptorProto'ExtensionRange]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'extensionRange' @:: Lens' DescriptorProto-  (Data.Vector.Vector DescriptorProto'ExtensionRange)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.oneofDecl' @:: Lens' DescriptorProto [OneofDescriptorProto]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'oneofDecl' @:: Lens' DescriptorProto (Data.Vector.Vector OneofDescriptorProto)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' DescriptorProto MessageOptions@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' DescriptorProto (Prelude.Maybe MessageOptions)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.reservedRange' @:: Lens' DescriptorProto [DescriptorProto'ReservedRange]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'reservedRange' @:: Lens' DescriptorProto-  (Data.Vector.Vector DescriptorProto'ReservedRange)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.reservedName' @:: Lens' DescriptorProto [Data.Text.Text]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'reservedName' @:: Lens' DescriptorProto (Data.Vector.Vector Data.Text.Text)@- -}-data DescriptorProto = DescriptorProto{_DescriptorProto'name ::-                                       !(Prelude.Maybe Data.Text.Text),-                                       _DescriptorProto'field ::-                                       !(Data.Vector.Vector FieldDescriptorProto),-                                       _DescriptorProto'extension ::-                                       !(Data.Vector.Vector FieldDescriptorProto),-                                       _DescriptorProto'nestedType ::-                                       !(Data.Vector.Vector DescriptorProto),-                                       _DescriptorProto'enumType ::-                                       !(Data.Vector.Vector EnumDescriptorProto),-                                       _DescriptorProto'extensionRange ::-                                       !(Data.Vector.Vector DescriptorProto'ExtensionRange),-                                       _DescriptorProto'oneofDecl ::-                                       !(Data.Vector.Vector OneofDescriptorProto),-                                       _DescriptorProto'options :: !(Prelude.Maybe MessageOptions),-                                       _DescriptorProto'reservedRange ::-                                       !(Data.Vector.Vector DescriptorProto'ReservedRange),-                                       _DescriptorProto'reservedName ::-                                       !(Data.Vector.Vector Data.Text.Text),-                                       _DescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet}-                         deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show DescriptorProto where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField DescriptorProto "name"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'name-               (\ x__ y__ -> x__{_DescriptorProto'name = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField DescriptorProto "maybe'name"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'name-               (\ x__ y__ -> x__{_DescriptorProto'name = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField DescriptorProto "field"-           ([FieldDescriptorProto])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'field-               (\ x__ y__ -> x__{_DescriptorProto'field = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField DescriptorProto "vec'field"-           (Data.Vector.Vector FieldDescriptorProto)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'field-               (\ x__ y__ -> x__{_DescriptorProto'field = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField DescriptorProto "extension"-           ([FieldDescriptorProto])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'extension-               (\ x__ y__ -> x__{_DescriptorProto'extension = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField DescriptorProto-           "vec'extension"-           (Data.Vector.Vector FieldDescriptorProto)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'extension-               (\ x__ y__ -> x__{_DescriptorProto'extension = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField DescriptorProto "nestedType"-           ([DescriptorProto])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'nestedType-               (\ x__ y__ -> x__{_DescriptorProto'nestedType = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField DescriptorProto-           "vec'nestedType"-           (Data.Vector.Vector DescriptorProto)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'nestedType-               (\ x__ y__ -> x__{_DescriptorProto'nestedType = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField DescriptorProto "enumType"-           ([EnumDescriptorProto])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'enumType-               (\ x__ y__ -> x__{_DescriptorProto'enumType = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField DescriptorProto-           "vec'enumType"-           (Data.Vector.Vector EnumDescriptorProto)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'enumType-               (\ x__ y__ -> x__{_DescriptorProto'enumType = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField DescriptorProto-           "extensionRange"-           ([DescriptorProto'ExtensionRange])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'extensionRange-               (\ x__ y__ -> x__{_DescriptorProto'extensionRange = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField DescriptorProto-           "vec'extensionRange"-           (Data.Vector.Vector DescriptorProto'ExtensionRange)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'extensionRange-               (\ x__ y__ -> x__{_DescriptorProto'extensionRange = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField DescriptorProto "oneofDecl"-           ([OneofDescriptorProto])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'oneofDecl-               (\ x__ y__ -> x__{_DescriptorProto'oneofDecl = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField DescriptorProto-           "vec'oneofDecl"-           (Data.Vector.Vector OneofDescriptorProto)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'oneofDecl-               (\ x__ y__ -> x__{_DescriptorProto'oneofDecl = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField DescriptorProto "options"-           (MessageOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'options-               (\ x__ y__ -> x__{_DescriptorProto'options = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField DescriptorProto-           "maybe'options"-           (Prelude.Maybe MessageOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'options-               (\ x__ y__ -> x__{_DescriptorProto'options = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField DescriptorProto-           "reservedRange"-           ([DescriptorProto'ReservedRange])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'reservedRange-               (\ x__ y__ -> x__{_DescriptorProto'reservedRange = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField DescriptorProto-           "vec'reservedRange"-           (Data.Vector.Vector DescriptorProto'ReservedRange)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'reservedRange-               (\ x__ y__ -> x__{_DescriptorProto'reservedRange = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField DescriptorProto-           "reservedName"-           ([Data.Text.Text])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'reservedName-               (\ x__ y__ -> x__{_DescriptorProto'reservedName = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField DescriptorProto-           "vec'reservedName"-           (Data.Vector.Vector Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'reservedName-               (\ x__ y__ -> x__{_DescriptorProto'reservedName = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message DescriptorProto where-        messageName _ = Data.Text.pack "google.protobuf.DescriptorProto"-        fieldsByTag-          = let name__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "name"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'name"))-                      :: Data.ProtoLens.FieldDescriptor DescriptorProto-                field__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "field"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"field"))-                      :: Data.ProtoLens.FieldDescriptor DescriptorProto-                extension__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "extension"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"extension"))-                      :: Data.ProtoLens.FieldDescriptor DescriptorProto-                nestedType__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "nested_type"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor DescriptorProto)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"nestedType"))-                      :: Data.ProtoLens.FieldDescriptor DescriptorProto-                enumType__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "enum_type"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor EnumDescriptorProto)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"enumType"))-                      :: Data.ProtoLens.FieldDescriptor DescriptorProto-                extensionRange__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "extension_range"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor DescriptorProto'ExtensionRange)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"extensionRange"))-                      :: Data.ProtoLens.FieldDescriptor DescriptorProto-                oneofDecl__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "oneof_decl"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor OneofDescriptorProto)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"oneofDecl"))-                      :: Data.ProtoLens.FieldDescriptor DescriptorProto-                options__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "options"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor MessageOptions)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'options"))-                      :: Data.ProtoLens.FieldDescriptor DescriptorProto-                reservedRange__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "reserved_range"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor DescriptorProto'ReservedRange)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"reservedRange"))-                      :: Data.ProtoLens.FieldDescriptor DescriptorProto-                reservedName__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "reserved_name"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"reservedName"))-                      :: Data.ProtoLens.FieldDescriptor DescriptorProto-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, name__field_descriptor),-                 (Data.ProtoLens.Tag 2, field__field_descriptor),-                 (Data.ProtoLens.Tag 6, extension__field_descriptor),-                 (Data.ProtoLens.Tag 3, nestedType__field_descriptor),-                 (Data.ProtoLens.Tag 4, enumType__field_descriptor),-                 (Data.ProtoLens.Tag 5, extensionRange__field_descriptor),-                 (Data.ProtoLens.Tag 8, oneofDecl__field_descriptor),-                 (Data.ProtoLens.Tag 7, options__field_descriptor),-                 (Data.ProtoLens.Tag 9, reservedRange__field_descriptor),-                 (Data.ProtoLens.Tag 10, reservedName__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _DescriptorProto'_unknownFields-              (\ x__ y__ -> x__{_DescriptorProto'_unknownFields = y__})-        defMessage-          = DescriptorProto{_DescriptorProto'name = Prelude.Nothing,-                            _DescriptorProto'field = Data.Vector.Generic.empty,-                            _DescriptorProto'extension = Data.Vector.Generic.empty,-                            _DescriptorProto'nestedType = Data.Vector.Generic.empty,-                            _DescriptorProto'enumType = Data.Vector.Generic.empty,-                            _DescriptorProto'extensionRange = Data.Vector.Generic.empty,-                            _DescriptorProto'oneofDecl = Data.Vector.Generic.empty,-                            _DescriptorProto'options = Prelude.Nothing,-                            _DescriptorProto'reservedRange = Data.Vector.Generic.empty,-                            _DescriptorProto'reservedName = Data.Vector.Generic.empty,-                            _DescriptorProto'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     DescriptorProto ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         EnumDescriptorProto-                         ->-                         Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                           Data.ProtoLens.Encoding.Growing.RealWorld-                           FieldDescriptorProto-                           ->-                           Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                             Data.ProtoLens.Encoding.Growing.RealWorld-                             DescriptorProto'ExtensionRange-                             ->-                             Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                               Data.ProtoLens.Encoding.Growing.RealWorld-                               FieldDescriptorProto-                               ->-                               Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                                 Data.ProtoLens.Encoding.Growing.RealWorld-                                 DescriptorProto-                                 ->-                                 Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                                   Data.ProtoLens.Encoding.Growing.RealWorld-                                   OneofDescriptorProto-                                   ->-                                   Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                                     Data.ProtoLens.Encoding.Growing.RealWorld-                                     Data.Text.Text-                                     ->-                                     Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                                       Data.ProtoLens.Encoding.Growing.RealWorld-                                       DescriptorProto'ReservedRange-                                       -> Data.ProtoLens.Encoding.Bytes.Parser DescriptorProto-                loop x mutable'enumType mutable'extension mutable'extensionRange-                  mutable'field mutable'nestedType mutable'oneofDecl-                  mutable'reservedName mutable'reservedRange-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'enumType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                 (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                    mutable'enumType)-                            frozen'extension <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                  (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                     mutable'extension)-                            frozen'extensionRange <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                       (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                          mutable'extensionRange)-                            frozen'field <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                              (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                 mutable'field)-                            frozen'nestedType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                   (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                      mutable'nestedType)-                            frozen'oneofDecl <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                  (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                     mutable'oneofDecl)-                            frozen'reservedName <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                     (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                        mutable'reservedName)-                            frozen'reservedRange <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                      (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                         mutable'reservedRange)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'enumType")-                                    frozen'enumType-                                    (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'extension")-                                       frozen'extension-                                       (Lens.Family2.set-                                          (Data.ProtoLens.Field.field @"vec'extensionRange")-                                          frozen'extensionRange-                                          (Lens.Family2.set-                                             (Data.ProtoLens.Field.field @"vec'field")-                                             frozen'field-                                             (Lens.Family2.set-                                                (Data.ProtoLens.Field.field @"vec'nestedType")-                                                frozen'nestedType-                                                (Lens.Family2.set-                                                   (Data.ProtoLens.Field.field @"vec'oneofDecl")-                                                   frozen'oneofDecl-                                                   (Lens.Family2.set-                                                      (Data.ProtoLens.Field.field-                                                         @"vec'reservedName")-                                                      frozen'reservedName-                                                      (Lens.Family2.set-                                                         (Data.ProtoLens.Field.field-                                                            @"vec'reservedRange")-                                                         frozen'reservedRange-                                                         x)))))))))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "name"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y-                                              x)-                                           mutable'enumType-                                           mutable'extension-                                           mutable'extensionRange-                                           mutable'field-                                           mutable'nestedType-                                           mutable'oneofDecl-                                           mutable'reservedName-                                           mutable'reservedRange-                                18 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "field"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'field-                                                   y)-                                         loop x mutable'enumType mutable'extension-                                           mutable'extensionRange-                                           v-                                           mutable'nestedType-                                           mutable'oneofDecl-                                           mutable'reservedName-                                           mutable'reservedRange-                                50 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "extension"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'extension-                                                   y)-                                         loop x mutable'enumType v mutable'extensionRange-                                           mutable'field-                                           mutable'nestedType-                                           mutable'oneofDecl-                                           mutable'reservedName-                                           mutable'reservedRange-                                26 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "nested_type"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'nestedType-                                                   y)-                                         loop x mutable'enumType mutable'extension-                                           mutable'extensionRange-                                           mutable'field-                                           v-                                           mutable'oneofDecl-                                           mutable'reservedName-                                           mutable'reservedRange-                                34 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "enum_type"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'enumType-                                                   y)-                                         loop x v mutable'extension mutable'extensionRange-                                           mutable'field-                                           mutable'nestedType-                                           mutable'oneofDecl-                                           mutable'reservedName-                                           mutable'reservedRange-                                42 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "extension_range"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'extensionRange-                                                   y)-                                         loop x mutable'enumType mutable'extension v mutable'field-                                           mutable'nestedType-                                           mutable'oneofDecl-                                           mutable'reservedName-                                           mutable'reservedRange-                                66 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "oneof_decl"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'oneofDecl-                                                   y)-                                         loop x mutable'enumType mutable'extension-                                           mutable'extensionRange-                                           mutable'field-                                           mutable'nestedType-                                           v-                                           mutable'reservedName-                                           mutable'reservedRange-                                58 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                  Data.ProtoLens.Encoding.Bytes.isolate-                                                    (Prelude.fromIntegral len)-                                                    Data.ProtoLens.parseMessage)-                                                Data.ProtoLens.Encoding.Bytes.<?> "options"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"options")-                                              y-                                              x)-                                           mutable'enumType-                                           mutable'extension-                                           mutable'extensionRange-                                           mutable'field-                                           mutable'nestedType-                                           mutable'oneofDecl-                                           mutable'reservedName-                                           mutable'reservedRange-                                74 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "reserved_range"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'reservedRange-                                                   y)-                                         loop x mutable'enumType mutable'extension-                                           mutable'extensionRange-                                           mutable'field-                                           mutable'nestedType-                                           mutable'oneofDecl-                                           mutable'reservedName-                                           v-                                82 -> do !y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                               Data.ProtoLens.Encoding.Bytes.getBytes-                                                                 (Prelude.fromIntegral len)-                                                   Data.ProtoLens.Encoding.Bytes.runEither-                                                     (case Data.Text.Encoding.decodeUtf8' value of-                                                          Prelude.Left err -> Prelude.Left-                                                                                (Prelude.show err)-                                                          Prelude.Right r -> Prelude.Right r))-                                                 Data.ProtoLens.Encoding.Bytes.<?> "reserved_name"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'reservedName-                                                   y)-                                         loop x mutable'enumType mutable'extension-                                           mutable'extensionRange-                                           mutable'field-                                           mutable'nestedType-                                           mutable'oneofDecl-                                           v-                                           mutable'reservedRange-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'enumType-                                             mutable'extension-                                             mutable'extensionRange-                                             mutable'field-                                             mutable'nestedType-                                             mutable'oneofDecl-                                             mutable'reservedName-                                             mutable'reservedRange-              in-              (do mutable'enumType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                        Data.ProtoLens.Encoding.Growing.new-                  mutable'extension <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                         Data.ProtoLens.Encoding.Growing.new-                  mutable'extensionRange <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                              Data.ProtoLens.Encoding.Growing.new-                  mutable'field <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                     Data.ProtoLens.Encoding.Growing.new-                  mutable'nestedType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                          Data.ProtoLens.Encoding.Growing.new-                  mutable'oneofDecl <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                         Data.ProtoLens.Encoding.Growing.new-                  mutable'reservedName <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                            Data.ProtoLens.Encoding.Growing.new-                  mutable'reservedRange <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                             Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'enumType mutable'extension-                    mutable'extensionRange-                    mutable'field-                    mutable'nestedType-                    mutable'oneofDecl-                    mutable'reservedName-                    mutable'reservedRange)-                Data.ProtoLens.Encoding.Bytes.<?> "DescriptorProto"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                                         Data.Monoid.<>-                                         (((\ bs ->-                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                                Data.Monoid.<>-                                                Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                            Prelude.. Data.Text.Encoding.encodeUtf8)-                                           _v)-                 Data.Monoid.<>-                 (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                    (\ _v ->-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<>-                         (((\ bs ->-                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                            Prelude.. Data.ProtoLens.encodeMessage)-                           _v)-                    (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'field") _x))-                   Data.Monoid.<>-                   (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                      (\ _v ->-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 50) Data.Monoid.<>-                           (((\ bs ->-                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                   (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                              Prelude.. Data.ProtoLens.encodeMessage)-                             _v)-                      (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'extension")-                         _x))-                     Data.Monoid.<>-                     (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                        (\ _v ->-                           (Data.ProtoLens.Encoding.Bytes.putVarInt 26) Data.Monoid.<>-                             (((\ bs ->-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                    Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                Prelude.. Data.ProtoLens.encodeMessage)-                               _v)-                        (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'nestedType")-                           _x))-                       Data.Monoid.<>-                       (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                          (\ _v ->-                             (Data.ProtoLens.Encoding.Bytes.putVarInt 34) Data.Monoid.<>-                               (((\ bs ->-                                    (Data.ProtoLens.Encoding.Bytes.putVarInt-                                       (Prelude.fromIntegral (Data.ByteString.length bs)))-                                      Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                  Prelude.. Data.ProtoLens.encodeMessage)-                                 _v)-                          (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'enumType")-                             _x))-                         Data.Monoid.<>-                         (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                            (\ _v ->-                               (Data.ProtoLens.Encoding.Bytes.putVarInt 42) Data.Monoid.<>-                                 (((\ bs ->-                                      (Data.ProtoLens.Encoding.Bytes.putVarInt-                                         (Prelude.fromIntegral (Data.ByteString.length bs)))-                                        Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                    Prelude.. Data.ProtoLens.encodeMessage)-                                   _v)-                            (Lens.Family2.view-                               (Data.ProtoLens.Field.field @"vec'extensionRange")-                               _x))-                           Data.Monoid.<>-                           (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                              (\ _v ->-                                 (Data.ProtoLens.Encoding.Bytes.putVarInt 66) Data.Monoid.<>-                                   (((\ bs ->-                                        (Data.ProtoLens.Encoding.Bytes.putVarInt-                                           (Prelude.fromIntegral (Data.ByteString.length bs)))-                                          Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                      Prelude.. Data.ProtoLens.encodeMessage)-                                     _v)-                              (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'oneofDecl")-                                 _x))-                             Data.Monoid.<>-                             (case-                                Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x-                                of-                                  (Prelude.Nothing) -> Data.Monoid.mempty-                                  Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 58)-                                                       Data.Monoid.<>-                                                       (((\ bs ->-                                                            (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                               (Prelude.fromIntegral-                                                                  (Data.ByteString.length bs)))-                                                              Data.Monoid.<>-                                                              Data.ProtoLens.Encoding.Bytes.putBytes-                                                                bs))-                                                          Prelude.. Data.ProtoLens.encodeMessage)-                                                         _v)-                               Data.Monoid.<>-                               (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                                  (\ _v ->-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt 74) Data.Monoid.<>-                                       (((\ bs ->-                                            (Data.ProtoLens.Encoding.Bytes.putVarInt-                                               (Prelude.fromIntegral (Data.ByteString.length bs)))-                                              Data.Monoid.<>-                                              Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                          Prelude.. Data.ProtoLens.encodeMessage)-                                         _v)-                                  (Lens.Family2.view-                                     (Data.ProtoLens.Field.field @"vec'reservedRange")-                                     _x))-                                 Data.Monoid.<>-                                 (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                                    (\ _v ->-                                       (Data.ProtoLens.Encoding.Bytes.putVarInt 82) Data.Monoid.<>-                                         (((\ bs ->-                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                                Data.Monoid.<>-                                                Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                            Prelude.. Data.Text.Encoding.encodeUtf8)-                                           _v)-                                    (Lens.Family2.view-                                       (Data.ProtoLens.Field.field @"vec'reservedName")-                                       _x))-                                   Data.Monoid.<>-                                   Data.ProtoLens.Encoding.Wire.buildFieldSet-                                     (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData DescriptorProto where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_DescriptorProto'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_DescriptorProto'name x__)-                    (Control.DeepSeq.deepseq (_DescriptorProto'field x__)-                       (Control.DeepSeq.deepseq (_DescriptorProto'extension x__)-                          (Control.DeepSeq.deepseq (_DescriptorProto'nestedType x__)-                             (Control.DeepSeq.deepseq (_DescriptorProto'enumType x__)-                                (Control.DeepSeq.deepseq (_DescriptorProto'extensionRange x__)-                                   (Control.DeepSeq.deepseq (_DescriptorProto'oneofDecl x__)-                                      (Control.DeepSeq.deepseq (_DescriptorProto'options x__)-                                         (Control.DeepSeq.deepseq-                                            (_DescriptorProto'reservedRange x__)-                                            (Control.DeepSeq.deepseq-                                               (_DescriptorProto'reservedName x__)-                                               (()))))))))))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.start' @:: Lens' DescriptorProto'ExtensionRange Data.Int.Int32@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'start' @:: Lens' DescriptorProto'ExtensionRange (Prelude.Maybe Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.end' @:: Lens' DescriptorProto'ExtensionRange Data.Int.Int32@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'end' @:: Lens' DescriptorProto'ExtensionRange (Prelude.Maybe Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' DescriptorProto'ExtensionRange ExtensionRangeOptions@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' DescriptorProto'ExtensionRange-  (Prelude.Maybe ExtensionRangeOptions)@- -}-data DescriptorProto'ExtensionRange = DescriptorProto'ExtensionRange{_DescriptorProto'ExtensionRange'start-                                                                     ::-                                                                     !(Prelude.Maybe-                                                                         Data.Int.Int32),-                                                                     _DescriptorProto'ExtensionRange'end-                                                                     ::-                                                                     !(Prelude.Maybe-                                                                         Data.Int.Int32),-                                                                     _DescriptorProto'ExtensionRange'options-                                                                     ::-                                                                     !(Prelude.Maybe-                                                                         ExtensionRangeOptions),-                                                                     _DescriptorProto'ExtensionRange'_unknownFields-                                                                     :: !Data.ProtoLens.FieldSet}-                                        deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show DescriptorProto'ExtensionRange where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField-           DescriptorProto'ExtensionRange-           "start"-           (Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _DescriptorProto'ExtensionRange'start-               (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'start = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField-           DescriptorProto'ExtensionRange-           "maybe'start"-           (Prelude.Maybe Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _DescriptorProto'ExtensionRange'start-               (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'start = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField-           DescriptorProto'ExtensionRange-           "end"-           (Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'ExtensionRange'end-               (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'end = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField-           DescriptorProto'ExtensionRange-           "maybe'end"-           (Prelude.Maybe Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'ExtensionRange'end-               (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'end = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField-           DescriptorProto'ExtensionRange-           "options"-           (ExtensionRangeOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _DescriptorProto'ExtensionRange'options-               (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'options = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField-           DescriptorProto'ExtensionRange-           "maybe'options"-           (Prelude.Maybe ExtensionRangeOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _DescriptorProto'ExtensionRange'options-               (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'options = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message DescriptorProto'ExtensionRange-         where-        messageName _-          = Data.Text.pack "google.protobuf.DescriptorProto.ExtensionRange"-        fieldsByTag-          = let start__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "start"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'start"))-                      :: Data.ProtoLens.FieldDescriptor DescriptorProto'ExtensionRange-                end__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "end"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'end"))-                      :: Data.ProtoLens.FieldDescriptor DescriptorProto'ExtensionRange-                options__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "options"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor ExtensionRangeOptions)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'options"))-                      :: Data.ProtoLens.FieldDescriptor DescriptorProto'ExtensionRange-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, start__field_descriptor),-                 (Data.ProtoLens.Tag 2, end__field_descriptor),-                 (Data.ProtoLens.Tag 3, options__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens-              _DescriptorProto'ExtensionRange'_unknownFields-              (\ x__ y__ ->-                 x__{_DescriptorProto'ExtensionRange'_unknownFields = y__})-        defMessage-          = DescriptorProto'ExtensionRange{_DescriptorProto'ExtensionRange'start-                                             = Prelude.Nothing,-                                           _DescriptorProto'ExtensionRange'end = Prelude.Nothing,-                                           _DescriptorProto'ExtensionRange'options =-                                             Prelude.Nothing,-                                           _DescriptorProto'ExtensionRange'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     DescriptorProto'ExtensionRange ->-                       Data.ProtoLens.Encoding.Bytes.Parser DescriptorProto'ExtensionRange-                loop x-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 x)-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                8 -> do y <- (Prelude.fmap Prelude.fromIntegral-                                                Data.ProtoLens.Encoding.Bytes.getVarInt)-                                               Data.ProtoLens.Encoding.Bytes.<?> "start"-                                        loop-                                          (Lens.Family2.set (Data.ProtoLens.Field.field @"start") y-                                             x)-                                16 -> do y <- (Prelude.fmap Prelude.fromIntegral-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "end"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"end") y-                                              x)-                                26 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                  Data.ProtoLens.Encoding.Bytes.isolate-                                                    (Prelude.fromIntegral len)-                                                    Data.ProtoLens.parseMessage)-                                                Data.ProtoLens.Encoding.Bytes.<?> "options"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"options")-                                              y-                                              x)-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-              in-              (do loop Data.ProtoLens.defMessage)-                Data.ProtoLens.Encoding.Bytes.<?> "ExtensionRange"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'start") _x of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                                         Data.Monoid.<>-                                         ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                            Prelude.fromIntegral)-                                           _v)-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'end") _x of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16)-                                           Data.Monoid.<>-                                           ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                              Prelude.fromIntegral)-                                             _v)-                   Data.Monoid.<>-                   (case-                      Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x-                      of-                        (Prelude.Nothing) -> Data.Monoid.mempty-                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                                             Data.Monoid.<>-                                             (((\ bs ->-                                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                     (Prelude.fromIntegral-                                                        (Data.ByteString.length bs)))-                                                    Data.Monoid.<>-                                                    Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                                Prelude.. Data.ProtoLens.encodeMessage)-                                               _v)-                     Data.Monoid.<>-                     Data.ProtoLens.Encoding.Wire.buildFieldSet-                       (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData DescriptorProto'ExtensionRange-         where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq-                 (_DescriptorProto'ExtensionRange'_unknownFields x__)-                 (Control.DeepSeq.deepseq-                    (_DescriptorProto'ExtensionRange'start x__)-                    (Control.DeepSeq.deepseq (_DescriptorProto'ExtensionRange'end x__)-                       (Control.DeepSeq.deepseq-                          (_DescriptorProto'ExtensionRange'options x__)-                          (())))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.start' @:: Lens' DescriptorProto'ReservedRange Data.Int.Int32@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'start' @:: Lens' DescriptorProto'ReservedRange (Prelude.Maybe Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.end' @:: Lens' DescriptorProto'ReservedRange Data.Int.Int32@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'end' @:: Lens' DescriptorProto'ReservedRange (Prelude.Maybe Data.Int.Int32)@- -}-data DescriptorProto'ReservedRange = DescriptorProto'ReservedRange{_DescriptorProto'ReservedRange'start-                                                                   ::-                                                                   !(Prelude.Maybe Data.Int.Int32),-                                                                   _DescriptorProto'ReservedRange'end-                                                                   ::-                                                                   !(Prelude.Maybe Data.Int.Int32),-                                                                   _DescriptorProto'ReservedRange'_unknownFields-                                                                   :: !Data.ProtoLens.FieldSet}-                                       deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show DescriptorProto'ReservedRange where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField-           DescriptorProto'ReservedRange-           "start"-           (Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'ReservedRange'start-               (\ x__ y__ -> x__{_DescriptorProto'ReservedRange'start = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField-           DescriptorProto'ReservedRange-           "maybe'start"-           (Prelude.Maybe Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'ReservedRange'start-               (\ x__ y__ -> x__{_DescriptorProto'ReservedRange'start = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField-           DescriptorProto'ReservedRange-           "end"-           (Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'ReservedRange'end-               (\ x__ y__ -> x__{_DescriptorProto'ReservedRange'end = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField-           DescriptorProto'ReservedRange-           "maybe'end"-           (Prelude.Maybe Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _DescriptorProto'ReservedRange'end-               (\ x__ y__ -> x__{_DescriptorProto'ReservedRange'end = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message DescriptorProto'ReservedRange where-        messageName _-          = Data.Text.pack "google.protobuf.DescriptorProto.ReservedRange"-        fieldsByTag-          = let start__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "start"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'start"))-                      :: Data.ProtoLens.FieldDescriptor DescriptorProto'ReservedRange-                end__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "end"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'end"))-                      :: Data.ProtoLens.FieldDescriptor DescriptorProto'ReservedRange-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, start__field_descriptor),-                 (Data.ProtoLens.Tag 2, end__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens-              _DescriptorProto'ReservedRange'_unknownFields-              (\ x__ y__ ->-                 x__{_DescriptorProto'ReservedRange'_unknownFields = y__})-        defMessage-          = DescriptorProto'ReservedRange{_DescriptorProto'ReservedRange'start-                                            = Prelude.Nothing,-                                          _DescriptorProto'ReservedRange'end = Prelude.Nothing,-                                          _DescriptorProto'ReservedRange'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     DescriptorProto'ReservedRange ->-                       Data.ProtoLens.Encoding.Bytes.Parser DescriptorProto'ReservedRange-                loop x-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 x)-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                8 -> do y <- (Prelude.fmap Prelude.fromIntegral-                                                Data.ProtoLens.Encoding.Bytes.getVarInt)-                                               Data.ProtoLens.Encoding.Bytes.<?> "start"-                                        loop-                                          (Lens.Family2.set (Data.ProtoLens.Field.field @"start") y-                                             x)-                                16 -> do y <- (Prelude.fmap Prelude.fromIntegral-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "end"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"end") y-                                              x)-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-              in-              (do loop Data.ProtoLens.defMessage)-                Data.ProtoLens.Encoding.Bytes.<?> "ReservedRange"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'start") _x of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                                         Data.Monoid.<>-                                         ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                            Prelude.fromIntegral)-                                           _v)-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'end") _x of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16)-                                           Data.Monoid.<>-                                           ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                              Prelude.fromIntegral)-                                             _v)-                   Data.Monoid.<>-                   Data.ProtoLens.Encoding.Wire.buildFieldSet-                     (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData DescriptorProto'ReservedRange where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq-                 (_DescriptorProto'ReservedRange'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_DescriptorProto'ReservedRange'start x__)-                    (Control.DeepSeq.deepseq (_DescriptorProto'ReservedRange'end x__)-                       (()))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' EnumDescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' EnumDescriptorProto (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.value' @:: Lens' EnumDescriptorProto [EnumValueDescriptorProto]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'value' @:: Lens' EnumDescriptorProto-  (Data.Vector.Vector EnumValueDescriptorProto)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' EnumDescriptorProto EnumOptions@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' EnumDescriptorProto (Prelude.Maybe EnumOptions)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.reservedRange' @:: Lens' EnumDescriptorProto [EnumDescriptorProto'EnumReservedRange]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'reservedRange' @:: Lens' EnumDescriptorProto-  (Data.Vector.Vector EnumDescriptorProto'EnumReservedRange)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.reservedName' @:: Lens' EnumDescriptorProto [Data.Text.Text]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'reservedName' @:: Lens' EnumDescriptorProto (Data.Vector.Vector Data.Text.Text)@- -}-data EnumDescriptorProto = EnumDescriptorProto{_EnumDescriptorProto'name-                                               :: !(Prelude.Maybe Data.Text.Text),-                                               _EnumDescriptorProto'value ::-                                               !(Data.Vector.Vector EnumValueDescriptorProto),-                                               _EnumDescriptorProto'options ::-                                               !(Prelude.Maybe EnumOptions),-                                               _EnumDescriptorProto'reservedRange ::-                                               !(Data.Vector.Vector-                                                   EnumDescriptorProto'EnumReservedRange),-                                               _EnumDescriptorProto'reservedName ::-                                               !(Data.Vector.Vector Data.Text.Text),-                                               _EnumDescriptorProto'_unknownFields ::-                                               !Data.ProtoLens.FieldSet}-                             deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show EnumDescriptorProto where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField EnumDescriptorProto "name"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'name-               (\ x__ y__ -> x__{_EnumDescriptorProto'name = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField EnumDescriptorProto-           "maybe'name"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'name-               (\ x__ y__ -> x__{_EnumDescriptorProto'name = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField EnumDescriptorProto "value"-           ([EnumValueDescriptorProto])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'value-               (\ x__ y__ -> x__{_EnumDescriptorProto'value = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField EnumDescriptorProto-           "vec'value"-           (Data.Vector.Vector EnumValueDescriptorProto)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'value-               (\ x__ y__ -> x__{_EnumDescriptorProto'value = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField EnumDescriptorProto-           "options"-           (EnumOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'options-               (\ x__ y__ -> x__{_EnumDescriptorProto'options = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField EnumDescriptorProto-           "maybe'options"-           (Prelude.Maybe EnumOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'options-               (\ x__ y__ -> x__{_EnumDescriptorProto'options = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField EnumDescriptorProto-           "reservedRange"-           ([EnumDescriptorProto'EnumReservedRange])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'reservedRange-               (\ x__ y__ -> x__{_EnumDescriptorProto'reservedRange = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField EnumDescriptorProto-           "vec'reservedRange"-           (Data.Vector.Vector EnumDescriptorProto'EnumReservedRange)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'reservedRange-               (\ x__ y__ -> x__{_EnumDescriptorProto'reservedRange = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField EnumDescriptorProto-           "reservedName"-           ([Data.Text.Text])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'reservedName-               (\ x__ y__ -> x__{_EnumDescriptorProto'reservedName = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField EnumDescriptorProto-           "vec'reservedName"-           (Data.Vector.Vector Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumDescriptorProto'reservedName-               (\ x__ y__ -> x__{_EnumDescriptorProto'reservedName = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message EnumDescriptorProto where-        messageName _-          = Data.Text.pack "google.protobuf.EnumDescriptorProto"-        fieldsByTag-          = let name__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "name"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'name"))-                      :: Data.ProtoLens.FieldDescriptor EnumDescriptorProto-                value__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "value"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor EnumValueDescriptorProto)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"value"))-                      :: Data.ProtoLens.FieldDescriptor EnumDescriptorProto-                options__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "options"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor EnumOptions)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'options"))-                      :: Data.ProtoLens.FieldDescriptor EnumDescriptorProto-                reservedRange__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "reserved_range"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor-                           EnumDescriptorProto'EnumReservedRange)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"reservedRange"))-                      :: Data.ProtoLens.FieldDescriptor EnumDescriptorProto-                reservedName__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "reserved_name"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"reservedName"))-                      :: Data.ProtoLens.FieldDescriptor EnumDescriptorProto-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, name__field_descriptor),-                 (Data.ProtoLens.Tag 2, value__field_descriptor),-                 (Data.ProtoLens.Tag 3, options__field_descriptor),-                 (Data.ProtoLens.Tag 4, reservedRange__field_descriptor),-                 (Data.ProtoLens.Tag 5, reservedName__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _EnumDescriptorProto'_unknownFields-              (\ x__ y__ -> x__{_EnumDescriptorProto'_unknownFields = y__})-        defMessage-          = EnumDescriptorProto{_EnumDescriptorProto'name = Prelude.Nothing,-                                _EnumDescriptorProto'value = Data.Vector.Generic.empty,-                                _EnumDescriptorProto'options = Prelude.Nothing,-                                _EnumDescriptorProto'reservedRange = Data.Vector.Generic.empty,-                                _EnumDescriptorProto'reservedName = Data.Vector.Generic.empty,-                                _EnumDescriptorProto'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     EnumDescriptorProto ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         Data.Text.Text-                         ->-                         Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                           Data.ProtoLens.Encoding.Growing.RealWorld-                           EnumDescriptorProto'EnumReservedRange-                           ->-                           Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                             Data.ProtoLens.Encoding.Growing.RealWorld-                             EnumValueDescriptorProto-                             -> Data.ProtoLens.Encoding.Bytes.Parser EnumDescriptorProto-                loop x mutable'reservedName mutable'reservedRange mutable'value-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'reservedName <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                     (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                        mutable'reservedName)-                            frozen'reservedRange <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                      (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                         mutable'reservedRange)-                            frozen'value <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                              (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                 mutable'value)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'reservedName")-                                    frozen'reservedName-                                    (Lens.Family2.set-                                       (Data.ProtoLens.Field.field @"vec'reservedRange")-                                       frozen'reservedRange-                                       (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'value")-                                          frozen'value-                                          x))))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "name"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y-                                              x)-                                           mutable'reservedName-                                           mutable'reservedRange-                                           mutable'value-                                18 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "value"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'value-                                                   y)-                                         loop x mutable'reservedName mutable'reservedRange v-                                26 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                  Data.ProtoLens.Encoding.Bytes.isolate-                                                    (Prelude.fromIntegral len)-                                                    Data.ProtoLens.parseMessage)-                                                Data.ProtoLens.Encoding.Bytes.<?> "options"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"options")-                                              y-                                              x)-                                           mutable'reservedName-                                           mutable'reservedRange-                                           mutable'value-                                34 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "reserved_range"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'reservedRange-                                                   y)-                                         loop x mutable'reservedName v mutable'value-                                42 -> do !y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                               Data.ProtoLens.Encoding.Bytes.getBytes-                                                                 (Prelude.fromIntegral len)-                                                   Data.ProtoLens.Encoding.Bytes.runEither-                                                     (case Data.Text.Encoding.decodeUtf8' value of-                                                          Prelude.Left err -> Prelude.Left-                                                                                (Prelude.show err)-                                                          Prelude.Right r -> Prelude.Right r))-                                                 Data.ProtoLens.Encoding.Bytes.<?> "reserved_name"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'reservedName-                                                   y)-                                         loop x v mutable'reservedRange mutable'value-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'reservedName-                                             mutable'reservedRange-                                             mutable'value-              in-              (do mutable'reservedName <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                            Data.ProtoLens.Encoding.Growing.new-                  mutable'reservedRange <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                             Data.ProtoLens.Encoding.Growing.new-                  mutable'value <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                     Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'reservedName-                    mutable'reservedRange-                    mutable'value)-                Data.ProtoLens.Encoding.Bytes.<?> "EnumDescriptorProto"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                                         Data.Monoid.<>-                                         (((\ bs ->-                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                                Data.Monoid.<>-                                                Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                            Prelude.. Data.Text.Encoding.encodeUtf8)-                                           _v)-                 Data.Monoid.<>-                 (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                    (\ _v ->-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<>-                         (((\ bs ->-                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                            Prelude.. Data.ProtoLens.encodeMessage)-                           _v)-                    (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'value") _x))-                   Data.Monoid.<>-                   (case-                      Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x-                      of-                        (Prelude.Nothing) -> Data.Monoid.mempty-                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                                             Data.Monoid.<>-                                             (((\ bs ->-                                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                     (Prelude.fromIntegral-                                                        (Data.ByteString.length bs)))-                                                    Data.Monoid.<>-                                                    Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                                Prelude.. Data.ProtoLens.encodeMessage)-                                               _v)-                     Data.Monoid.<>-                     (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                        (\ _v ->-                           (Data.ProtoLens.Encoding.Bytes.putVarInt 34) Data.Monoid.<>-                             (((\ bs ->-                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                     (Prelude.fromIntegral (Data.ByteString.length bs)))-                                    Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                Prelude.. Data.ProtoLens.encodeMessage)-                               _v)-                        (Lens.Family2.view-                           (Data.ProtoLens.Field.field @"vec'reservedRange")-                           _x))-                       Data.Monoid.<>-                       (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                          (\ _v ->-                             (Data.ProtoLens.Encoding.Bytes.putVarInt 42) Data.Monoid.<>-                               (((\ bs ->-                                    (Data.ProtoLens.Encoding.Bytes.putVarInt-                                       (Prelude.fromIntegral (Data.ByteString.length bs)))-                                      Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                  Prelude.. Data.Text.Encoding.encodeUtf8)-                                 _v)-                          (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'reservedName")-                             _x))-                         Data.Monoid.<>-                         Data.ProtoLens.Encoding.Wire.buildFieldSet-                           (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData EnumDescriptorProto where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_EnumDescriptorProto'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_EnumDescriptorProto'name x__)-                    (Control.DeepSeq.deepseq (_EnumDescriptorProto'value x__)-                       (Control.DeepSeq.deepseq (_EnumDescriptorProto'options x__)-                          (Control.DeepSeq.deepseq (_EnumDescriptorProto'reservedRange x__)-                             (Control.DeepSeq.deepseq (_EnumDescriptorProto'reservedName x__)-                                (())))))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.start' @:: Lens' EnumDescriptorProto'EnumReservedRange Data.Int.Int32@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'start' @:: Lens' EnumDescriptorProto'EnumReservedRange-  (Prelude.Maybe Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.end' @:: Lens' EnumDescriptorProto'EnumReservedRange Data.Int.Int32@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'end' @:: Lens' EnumDescriptorProto'EnumReservedRange-  (Prelude.Maybe Data.Int.Int32)@- -}-data EnumDescriptorProto'EnumReservedRange = EnumDescriptorProto'EnumReservedRange{_EnumDescriptorProto'EnumReservedRange'start-                                                                                   ::-                                                                                   !(Prelude.Maybe-                                                                                       Data.Int.Int32),-                                                                                   _EnumDescriptorProto'EnumReservedRange'end-                                                                                   ::-                                                                                   !(Prelude.Maybe-                                                                                       Data.Int.Int32),-                                                                                   _EnumDescriptorProto'EnumReservedRange'_unknownFields-                                                                                   ::-                                                                                   !Data.ProtoLens.FieldSet}-                                               deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show EnumDescriptorProto'EnumReservedRange where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField-           EnumDescriptorProto'EnumReservedRange-           "start"-           (Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _EnumDescriptorProto'EnumReservedRange'start-               (\ x__ y__ ->-                  x__{_EnumDescriptorProto'EnumReservedRange'start = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField-           EnumDescriptorProto'EnumReservedRange-           "maybe'start"-           (Prelude.Maybe Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _EnumDescriptorProto'EnumReservedRange'start-               (\ x__ y__ ->-                  x__{_EnumDescriptorProto'EnumReservedRange'start = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField-           EnumDescriptorProto'EnumReservedRange-           "end"-           (Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _EnumDescriptorProto'EnumReservedRange'end-               (\ x__ y__ ->-                  x__{_EnumDescriptorProto'EnumReservedRange'end = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField-           EnumDescriptorProto'EnumReservedRange-           "maybe'end"-           (Prelude.Maybe Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _EnumDescriptorProto'EnumReservedRange'end-               (\ x__ y__ ->-                  x__{_EnumDescriptorProto'EnumReservedRange'end = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message-           EnumDescriptorProto'EnumReservedRange-         where-        messageName _-          = Data.Text.pack-              "google.protobuf.EnumDescriptorProto.EnumReservedRange"-        fieldsByTag-          = let start__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "start"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'start"))-                      ::-                      Data.ProtoLens.FieldDescriptor-                        EnumDescriptorProto'EnumReservedRange-                end__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "end"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'end"))-                      ::-                      Data.ProtoLens.FieldDescriptor-                        EnumDescriptorProto'EnumReservedRange-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, start__field_descriptor),-                 (Data.ProtoLens.Tag 2, end__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens-              _EnumDescriptorProto'EnumReservedRange'_unknownFields-              (\ x__ y__ ->-                 x__{_EnumDescriptorProto'EnumReservedRange'_unknownFields = y__})-        defMessage-          = EnumDescriptorProto'EnumReservedRange{_EnumDescriptorProto'EnumReservedRange'start-                                                    = Prelude.Nothing,-                                                  _EnumDescriptorProto'EnumReservedRange'end =-                                                    Prelude.Nothing,-                                                  _EnumDescriptorProto'EnumReservedRange'_unknownFields-                                                    = ([])}-        parseMessage-          = let loop ::-                     EnumDescriptorProto'EnumReservedRange ->-                       Data.ProtoLens.Encoding.Bytes.Parser-                         EnumDescriptorProto'EnumReservedRange-                loop x-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 x)-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                8 -> do y <- (Prelude.fmap Prelude.fromIntegral-                                                Data.ProtoLens.Encoding.Bytes.getVarInt)-                                               Data.ProtoLens.Encoding.Bytes.<?> "start"-                                        loop-                                          (Lens.Family2.set (Data.ProtoLens.Field.field @"start") y-                                             x)-                                16 -> do y <- (Prelude.fmap Prelude.fromIntegral-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "end"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"end") y-                                              x)-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-              in-              (do loop Data.ProtoLens.defMessage)-                Data.ProtoLens.Encoding.Bytes.<?> "EnumReservedRange"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'start") _x of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                                         Data.Monoid.<>-                                         ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                            Prelude.fromIntegral)-                                           _v)-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'end") _x of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16)-                                           Data.Monoid.<>-                                           ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                              Prelude.fromIntegral)-                                             _v)-                   Data.Monoid.<>-                   Data.ProtoLens.Encoding.Wire.buildFieldSet-                     (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData-           EnumDescriptorProto'EnumReservedRange-         where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq-                 (_EnumDescriptorProto'EnumReservedRange'_unknownFields x__)-                 (Control.DeepSeq.deepseq-                    (_EnumDescriptorProto'EnumReservedRange'start x__)-                    (Control.DeepSeq.deepseq-                       (_EnumDescriptorProto'EnumReservedRange'end x__)-                       (()))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.allowAlias' @:: Lens' EnumOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'allowAlias' @:: Lens' EnumOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' EnumOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' EnumOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' EnumOptions [UninterpretedOption]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' EnumOptions (Data.Vector.Vector UninterpretedOption)@- -}-data EnumOptions = EnumOptions{_EnumOptions'allowAlias ::-                               !(Prelude.Maybe Prelude.Bool),-                               _EnumOptions'deprecated :: !(Prelude.Maybe Prelude.Bool),-                               _EnumOptions'uninterpretedOption ::-                               !(Data.Vector.Vector UninterpretedOption),-                               _EnumOptions'_unknownFields :: !Data.ProtoLens.FieldSet}-                     deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show EnumOptions where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField EnumOptions "allowAlias"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumOptions'allowAlias-               (\ x__ y__ -> x__{_EnumOptions'allowAlias = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField EnumOptions-           "maybe'allowAlias"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumOptions'allowAlias-               (\ x__ y__ -> x__{_EnumOptions'allowAlias = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField EnumOptions "deprecated"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumOptions'deprecated-               (\ x__ y__ -> x__{_EnumOptions'deprecated = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField EnumOptions-           "maybe'deprecated"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumOptions'deprecated-               (\ x__ y__ -> x__{_EnumOptions'deprecated = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField EnumOptions-           "uninterpretedOption"-           ([UninterpretedOption])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumOptions'uninterpretedOption-               (\ x__ y__ -> x__{_EnumOptions'uninterpretedOption = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField EnumOptions-           "vec'uninterpretedOption"-           (Data.Vector.Vector UninterpretedOption)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumOptions'uninterpretedOption-               (\ x__ y__ -> x__{_EnumOptions'uninterpretedOption = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message EnumOptions where-        messageName _ = Data.Text.pack "google.protobuf.EnumOptions"-        fieldsByTag-          = let allowAlias__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "allow_alias"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'allowAlias"))-                      :: Data.ProtoLens.FieldDescriptor EnumOptions-                deprecated__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "deprecated"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'deprecated"))-                      :: Data.ProtoLens.FieldDescriptor EnumOptions-                uninterpretedOption__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "uninterpreted_option"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"uninterpretedOption"))-                      :: Data.ProtoLens.FieldDescriptor EnumOptions-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 2, allowAlias__field_descriptor),-                 (Data.ProtoLens.Tag 3, deprecated__field_descriptor),-                 (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _EnumOptions'_unknownFields-              (\ x__ y__ -> x__{_EnumOptions'_unknownFields = y__})-        defMessage-          = EnumOptions{_EnumOptions'allowAlias = Prelude.Nothing,-                        _EnumOptions'deprecated = Prelude.Nothing,-                        _EnumOptions'uninterpretedOption = Data.Vector.Generic.empty,-                        _EnumOptions'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     EnumOptions ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         UninterpretedOption-                         -> Data.ProtoLens.Encoding.Bytes.Parser EnumOptions-                loop x mutable'uninterpretedOption-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                            (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                               mutable'uninterpretedOption)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set-                                    (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                                    frozen'uninterpretedOption-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                16 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "allow_alias"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"allowAlias")-                                              y-                                              x)-                                           mutable'uninterpretedOption-                                24 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "deprecated"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"deprecated")-                                              y-                                              x)-                                           mutable'uninterpretedOption-                                7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                     Data.ProtoLens.Encoding.Bytes.isolate-                                                       (Prelude.fromIntegral len)-                                                       Data.ProtoLens.parseMessage)-                                                   Data.ProtoLens.Encoding.Bytes.<?>-                                                   "uninterpreted_option"-                                           v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                  (Data.ProtoLens.Encoding.Growing.append-                                                     mutable'uninterpretedOption-                                                     y)-                                           loop x v-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'uninterpretedOption-              in-              (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                   Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'uninterpretedOption)-                Data.ProtoLens.Encoding.Bytes.<?> "EnumOptions"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'allowAlias")-                    _x-                  of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16)-                                         Data.Monoid.<>-                                         ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                            (\ b -> if b then 1 else 0))-                                           _v)-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'deprecated")-                      _x-                    of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 24)-                                           Data.Monoid.<>-                                           ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                              (\ b -> if b then 1 else 0))-                                             _v)-                   Data.Monoid.<>-                   (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                      (\ _v ->-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<>-                           (((\ bs ->-                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                   (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                              Prelude.. Data.ProtoLens.encodeMessage)-                             _v)-                      (Lens.Family2.view-                         (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                         _x))-                     Data.Monoid.<>-                     Data.ProtoLens.Encoding.Wire.buildFieldSet-                       (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData EnumOptions where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_EnumOptions'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_EnumOptions'allowAlias x__)-                    (Control.DeepSeq.deepseq (_EnumOptions'deprecated x__)-                       (Control.DeepSeq.deepseq (_EnumOptions'uninterpretedOption x__)-                          (())))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' EnumValueDescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' EnumValueDescriptorProto (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.number' @:: Lens' EnumValueDescriptorProto Data.Int.Int32@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'number' @:: Lens' EnumValueDescriptorProto (Prelude.Maybe Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' EnumValueDescriptorProto EnumValueOptions@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' EnumValueDescriptorProto (Prelude.Maybe EnumValueOptions)@- -}-data EnumValueDescriptorProto = EnumValueDescriptorProto{_EnumValueDescriptorProto'name-                                                         :: !(Prelude.Maybe Data.Text.Text),-                                                         _EnumValueDescriptorProto'number ::-                                                         !(Prelude.Maybe Data.Int.Int32),-                                                         _EnumValueDescriptorProto'options ::-                                                         !(Prelude.Maybe EnumValueOptions),-                                                         _EnumValueDescriptorProto'_unknownFields ::-                                                         !Data.ProtoLens.FieldSet}-                                  deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show EnumValueDescriptorProto where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto-           "name"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'name-               (\ x__ y__ -> x__{_EnumValueDescriptorProto'name = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto-           "maybe'name"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'name-               (\ x__ y__ -> x__{_EnumValueDescriptorProto'name = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto-           "number"-           (Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'number-               (\ x__ y__ -> x__{_EnumValueDescriptorProto'number = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto-           "maybe'number"-           (Prelude.Maybe Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'number-               (\ x__ y__ -> x__{_EnumValueDescriptorProto'number = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto-           "options"-           (EnumValueOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'options-               (\ x__ y__ -> x__{_EnumValueDescriptorProto'options = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto-           "maybe'options"-           (Prelude.Maybe EnumValueOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'options-               (\ x__ y__ -> x__{_EnumValueDescriptorProto'options = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message EnumValueDescriptorProto where-        messageName _-          = Data.Text.pack "google.protobuf.EnumValueDescriptorProto"-        fieldsByTag-          = let name__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "name"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'name"))-                      :: Data.ProtoLens.FieldDescriptor EnumValueDescriptorProto-                number__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "number"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'number"))-                      :: Data.ProtoLens.FieldDescriptor EnumValueDescriptorProto-                options__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "options"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor EnumValueOptions)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'options"))-                      :: Data.ProtoLens.FieldDescriptor EnumValueDescriptorProto-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, name__field_descriptor),-                 (Data.ProtoLens.Tag 2, number__field_descriptor),-                 (Data.ProtoLens.Tag 3, options__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens-              _EnumValueDescriptorProto'_unknownFields-              (\ x__ y__ -> x__{_EnumValueDescriptorProto'_unknownFields = y__})-        defMessage-          = EnumValueDescriptorProto{_EnumValueDescriptorProto'name =-                                       Prelude.Nothing,-                                     _EnumValueDescriptorProto'number = Prelude.Nothing,-                                     _EnumValueDescriptorProto'options = Prelude.Nothing,-                                     _EnumValueDescriptorProto'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     EnumValueDescriptorProto ->-                       Data.ProtoLens.Encoding.Bytes.Parser EnumValueDescriptorProto-                loop x-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 x)-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "name"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y-                                              x)-                                16 -> do y <- (Prelude.fmap Prelude.fromIntegral-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "number"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"number")-                                              y-                                              x)-                                26 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                  Data.ProtoLens.Encoding.Bytes.isolate-                                                    (Prelude.fromIntegral len)-                                                    Data.ProtoLens.parseMessage)-                                                Data.ProtoLens.Encoding.Bytes.<?> "options"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"options")-                                              y-                                              x)-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-              in-              (do loop Data.ProtoLens.defMessage)-                Data.ProtoLens.Encoding.Bytes.<?> "EnumValueDescriptorProto"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                                         Data.Monoid.<>-                                         (((\ bs ->-                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                                Data.Monoid.<>-                                                Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                            Prelude.. Data.Text.Encoding.encodeUtf8)-                                           _v)-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'number") _x-                    of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16)-                                           Data.Monoid.<>-                                           ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                              Prelude.fromIntegral)-                                             _v)-                   Data.Monoid.<>-                   (case-                      Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x-                      of-                        (Prelude.Nothing) -> Data.Monoid.mempty-                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                                             Data.Monoid.<>-                                             (((\ bs ->-                                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                     (Prelude.fromIntegral-                                                        (Data.ByteString.length bs)))-                                                    Data.Monoid.<>-                                                    Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                                Prelude.. Data.ProtoLens.encodeMessage)-                                               _v)-                     Data.Monoid.<>-                     Data.ProtoLens.Encoding.Wire.buildFieldSet-                       (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData EnumValueDescriptorProto where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq-                 (_EnumValueDescriptorProto'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_EnumValueDescriptorProto'name x__)-                    (Control.DeepSeq.deepseq (_EnumValueDescriptorProto'number x__)-                       (Control.DeepSeq.deepseq (_EnumValueDescriptorProto'options x__)-                          (())))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' EnumValueOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' EnumValueOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' EnumValueOptions [UninterpretedOption]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' EnumValueOptions (Data.Vector.Vector UninterpretedOption)@- -}-data EnumValueOptions = EnumValueOptions{_EnumValueOptions'deprecated-                                         :: !(Prelude.Maybe Prelude.Bool),-                                         _EnumValueOptions'uninterpretedOption ::-                                         !(Data.Vector.Vector UninterpretedOption),-                                         _EnumValueOptions'_unknownFields ::-                                         !Data.ProtoLens.FieldSet}-                          deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show EnumValueOptions where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField EnumValueOptions-           "deprecated"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumValueOptions'deprecated-               (\ x__ y__ -> x__{_EnumValueOptions'deprecated = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField EnumValueOptions-           "maybe'deprecated"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _EnumValueOptions'deprecated-               (\ x__ y__ -> x__{_EnumValueOptions'deprecated = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField EnumValueOptions-           "uninterpretedOption"-           ([UninterpretedOption])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _EnumValueOptions'uninterpretedOption-               (\ x__ y__ -> x__{_EnumValueOptions'uninterpretedOption = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField EnumValueOptions-           "vec'uninterpretedOption"-           (Data.Vector.Vector UninterpretedOption)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _EnumValueOptions'uninterpretedOption-               (\ x__ y__ -> x__{_EnumValueOptions'uninterpretedOption = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message EnumValueOptions where-        messageName _ = Data.Text.pack "google.protobuf.EnumValueOptions"-        fieldsByTag-          = let deprecated__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "deprecated"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'deprecated"))-                      :: Data.ProtoLens.FieldDescriptor EnumValueOptions-                uninterpretedOption__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "uninterpreted_option"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"uninterpretedOption"))-                      :: Data.ProtoLens.FieldDescriptor EnumValueOptions-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, deprecated__field_descriptor),-                 (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _EnumValueOptions'_unknownFields-              (\ x__ y__ -> x__{_EnumValueOptions'_unknownFields = y__})-        defMessage-          = EnumValueOptions{_EnumValueOptions'deprecated = Prelude.Nothing,-                             _EnumValueOptions'uninterpretedOption = Data.Vector.Generic.empty,-                             _EnumValueOptions'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     EnumValueOptions ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         UninterpretedOption-                         -> Data.ProtoLens.Encoding.Bytes.Parser EnumValueOptions-                loop x mutable'uninterpretedOption-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                            (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                               mutable'uninterpretedOption)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set-                                    (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                                    frozen'uninterpretedOption-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                8 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                Data.ProtoLens.Encoding.Bytes.getVarInt)-                                               Data.ProtoLens.Encoding.Bytes.<?> "deprecated"-                                        loop-                                          (Lens.Family2.set-                                             (Data.ProtoLens.Field.field @"deprecated")-                                             y-                                             x)-                                          mutable'uninterpretedOption-                                7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                     Data.ProtoLens.Encoding.Bytes.isolate-                                                       (Prelude.fromIntegral len)-                                                       Data.ProtoLens.parseMessage)-                                                   Data.ProtoLens.Encoding.Bytes.<?>-                                                   "uninterpreted_option"-                                           v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                  (Data.ProtoLens.Encoding.Growing.append-                                                     mutable'uninterpretedOption-                                                     y)-                                           loop x v-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'uninterpretedOption-              in-              (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                   Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'uninterpretedOption)-                Data.ProtoLens.Encoding.Bytes.<?> "EnumValueOptions"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'deprecated")-                    _x-                  of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                                         Data.Monoid.<>-                                         ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                            (\ b -> if b then 1 else 0))-                                           _v)-                 Data.Monoid.<>-                 (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                    (\ _v ->-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<>-                         (((\ bs ->-                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                            Prelude.. Data.ProtoLens.encodeMessage)-                           _v)-                    (Lens.Family2.view-                       (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                       _x))-                   Data.Monoid.<>-                   Data.ProtoLens.Encoding.Wire.buildFieldSet-                     (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData EnumValueOptions where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_EnumValueOptions'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_EnumValueOptions'deprecated x__)-                    (Control.DeepSeq.deepseq-                       (_EnumValueOptions'uninterpretedOption x__)-                       (()))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' ExtensionRangeOptions [UninterpretedOption]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' ExtensionRangeOptions-  (Data.Vector.Vector UninterpretedOption)@- -}-data ExtensionRangeOptions = ExtensionRangeOptions{_ExtensionRangeOptions'uninterpretedOption-                                                   :: !(Data.Vector.Vector UninterpretedOption),-                                                   _ExtensionRangeOptions'_unknownFields ::-                                                   !Data.ProtoLens.FieldSet}-                               deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show ExtensionRangeOptions where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField ExtensionRangeOptions-           "uninterpretedOption"-           ([UninterpretedOption])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _ExtensionRangeOptions'uninterpretedOption-               (\ x__ y__ ->-                  x__{_ExtensionRangeOptions'uninterpretedOption = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField ExtensionRangeOptions-           "vec'uninterpretedOption"-           (Data.Vector.Vector UninterpretedOption)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _ExtensionRangeOptions'uninterpretedOption-               (\ x__ y__ ->-                  x__{_ExtensionRangeOptions'uninterpretedOption = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message ExtensionRangeOptions where-        messageName _-          = Data.Text.pack "google.protobuf.ExtensionRangeOptions"-        fieldsByTag-          = let uninterpretedOption__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "uninterpreted_option"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"uninterpretedOption"))-                      :: Data.ProtoLens.FieldDescriptor ExtensionRangeOptions-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _ExtensionRangeOptions'_unknownFields-              (\ x__ y__ -> x__{_ExtensionRangeOptions'_unknownFields = y__})-        defMessage-          = ExtensionRangeOptions{_ExtensionRangeOptions'uninterpretedOption-                                    = Data.Vector.Generic.empty,-                                  _ExtensionRangeOptions'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     ExtensionRangeOptions ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         UninterpretedOption-                         -> Data.ProtoLens.Encoding.Bytes.Parser ExtensionRangeOptions-                loop x mutable'uninterpretedOption-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                            (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                               mutable'uninterpretedOption)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set-                                    (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                                    frozen'uninterpretedOption-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                     Data.ProtoLens.Encoding.Bytes.isolate-                                                       (Prelude.fromIntegral len)-                                                       Data.ProtoLens.parseMessage)-                                                   Data.ProtoLens.Encoding.Bytes.<?>-                                                   "uninterpreted_option"-                                           v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                  (Data.ProtoLens.Encoding.Growing.append-                                                     mutable'uninterpretedOption-                                                     y)-                                           loop x v-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'uninterpretedOption-              in-              (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                   Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'uninterpretedOption)-                Data.ProtoLens.Encoding.Bytes.<?> "ExtensionRangeOptions"-        buildMessage-          = (\ _x ->-               (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                  (\ _v ->-                     (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<>-                       (((\ bs ->-                            (Data.ProtoLens.Encoding.Bytes.putVarInt-                               (Prelude.fromIntegral (Data.ByteString.length bs)))-                              Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Prelude.. Data.ProtoLens.encodeMessage)-                         _v)-                  (Lens.Family2.view-                     (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                     _x))-                 Data.Monoid.<>-                 Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData ExtensionRangeOptions where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_ExtensionRangeOptions'_unknownFields x__)-                 (Control.DeepSeq.deepseq-                    (_ExtensionRangeOptions'uninterpretedOption x__)-                    (())))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' FieldDescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.number' @:: Lens' FieldDescriptorProto Data.Int.Int32@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'number' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.label' @:: Lens' FieldDescriptorProto FieldDescriptorProto'Label@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'label' @:: Lens' FieldDescriptorProto-  (Prelude.Maybe FieldDescriptorProto'Label)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.type'' @:: Lens' FieldDescriptorProto FieldDescriptorProto'Type@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'type'' @:: Lens' FieldDescriptorProto-  (Prelude.Maybe FieldDescriptorProto'Type)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.typeName' @:: Lens' FieldDescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'typeName' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.extendee' @:: Lens' FieldDescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'extendee' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.defaultValue' @:: Lens' FieldDescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'defaultValue' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.oneofIndex' @:: Lens' FieldDescriptorProto Data.Int.Int32@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'oneofIndex' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.jsonName' @:: Lens' FieldDescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'jsonName' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' FieldDescriptorProto FieldOptions@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' FieldDescriptorProto (Prelude.Maybe FieldOptions)@- -}-data FieldDescriptorProto = FieldDescriptorProto{_FieldDescriptorProto'name-                                                 :: !(Prelude.Maybe Data.Text.Text),-                                                 _FieldDescriptorProto'number ::-                                                 !(Prelude.Maybe Data.Int.Int32),-                                                 _FieldDescriptorProto'label ::-                                                 !(Prelude.Maybe FieldDescriptorProto'Label),-                                                 _FieldDescriptorProto'type' ::-                                                 !(Prelude.Maybe FieldDescriptorProto'Type),-                                                 _FieldDescriptorProto'typeName ::-                                                 !(Prelude.Maybe Data.Text.Text),-                                                 _FieldDescriptorProto'extendee ::-                                                 !(Prelude.Maybe Data.Text.Text),-                                                 _FieldDescriptorProto'defaultValue ::-                                                 !(Prelude.Maybe Data.Text.Text),-                                                 _FieldDescriptorProto'oneofIndex ::-                                                 !(Prelude.Maybe Data.Int.Int32),-                                                 _FieldDescriptorProto'jsonName ::-                                                 !(Prelude.Maybe Data.Text.Text),-                                                 _FieldDescriptorProto'options ::-                                                 !(Prelude.Maybe FieldOptions),-                                                 _FieldDescriptorProto'_unknownFields ::-                                                 !Data.ProtoLens.FieldSet}-                              deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show FieldDescriptorProto where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField FieldDescriptorProto "name"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'name-               (\ x__ y__ -> x__{_FieldDescriptorProto'name = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "maybe'name"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'name-               (\ x__ y__ -> x__{_FieldDescriptorProto'name = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "number"-           (Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'number-               (\ x__ y__ -> x__{_FieldDescriptorProto'number = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "maybe'number"-           (Prelude.Maybe Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'number-               (\ x__ y__ -> x__{_FieldDescriptorProto'number = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FieldDescriptorProto "label"-           (FieldDescriptorProto'Label)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'label-               (\ x__ y__ -> x__{_FieldDescriptorProto'label = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "maybe'label"-           (Prelude.Maybe FieldDescriptorProto'Label)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'label-               (\ x__ y__ -> x__{_FieldDescriptorProto'label = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FieldDescriptorProto "type'"-           (FieldDescriptorProto'Type)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'type'-               (\ x__ y__ -> x__{_FieldDescriptorProto'type' = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "maybe'type'"-           (Prelude.Maybe FieldDescriptorProto'Type)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'type'-               (\ x__ y__ -> x__{_FieldDescriptorProto'type' = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "typeName"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'typeName-               (\ x__ y__ -> x__{_FieldDescriptorProto'typeName = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "maybe'typeName"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'typeName-               (\ x__ y__ -> x__{_FieldDescriptorProto'typeName = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "extendee"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'extendee-               (\ x__ y__ -> x__{_FieldDescriptorProto'extendee = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "maybe'extendee"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'extendee-               (\ x__ y__ -> x__{_FieldDescriptorProto'extendee = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "defaultValue"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'defaultValue-               (\ x__ y__ -> x__{_FieldDescriptorProto'defaultValue = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "maybe'defaultValue"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'defaultValue-               (\ x__ y__ -> x__{_FieldDescriptorProto'defaultValue = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "oneofIndex"-           (Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'oneofIndex-               (\ x__ y__ -> x__{_FieldDescriptorProto'oneofIndex = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "maybe'oneofIndex"-           (Prelude.Maybe Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'oneofIndex-               (\ x__ y__ -> x__{_FieldDescriptorProto'oneofIndex = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "jsonName"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'jsonName-               (\ x__ y__ -> x__{_FieldDescriptorProto'jsonName = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "maybe'jsonName"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'jsonName-               (\ x__ y__ -> x__{_FieldDescriptorProto'jsonName = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "options"-           (FieldOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'options-               (\ x__ y__ -> x__{_FieldDescriptorProto'options = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField FieldDescriptorProto-           "maybe'options"-           (Prelude.Maybe FieldOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldDescriptorProto'options-               (\ x__ y__ -> x__{_FieldDescriptorProto'options = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message FieldDescriptorProto where-        messageName _-          = Data.Text.pack "google.protobuf.FieldDescriptorProto"-        fieldsByTag-          = let name__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "name"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'name"))-                      :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto-                number__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "number"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'number"))-                      :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto-                label__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "label"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::-                         Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto'Label)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'label"))-                      :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto-                type'__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "type"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::-                         Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto'Type)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'type'"))-                      :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto-                typeName__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "type_name"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'typeName"))-                      :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto-                extendee__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "extendee"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'extendee"))-                      :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto-                defaultValue__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "default_value"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'defaultValue"))-                      :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto-                oneofIndex__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "oneof_index"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'oneofIndex"))-                      :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto-                jsonName__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "json_name"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'jsonName"))-                      :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto-                options__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "options"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor FieldOptions)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'options"))-                      :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, name__field_descriptor),-                 (Data.ProtoLens.Tag 3, number__field_descriptor),-                 (Data.ProtoLens.Tag 4, label__field_descriptor),-                 (Data.ProtoLens.Tag 5, type'__field_descriptor),-                 (Data.ProtoLens.Tag 6, typeName__field_descriptor),-                 (Data.ProtoLens.Tag 2, extendee__field_descriptor),-                 (Data.ProtoLens.Tag 7, defaultValue__field_descriptor),-                 (Data.ProtoLens.Tag 9, oneofIndex__field_descriptor),-                 (Data.ProtoLens.Tag 10, jsonName__field_descriptor),-                 (Data.ProtoLens.Tag 8, options__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _FieldDescriptorProto'_unknownFields-              (\ x__ y__ -> x__{_FieldDescriptorProto'_unknownFields = y__})-        defMessage-          = FieldDescriptorProto{_FieldDescriptorProto'name =-                                   Prelude.Nothing,-                                 _FieldDescriptorProto'number = Prelude.Nothing,-                                 _FieldDescriptorProto'label = Prelude.Nothing,-                                 _FieldDescriptorProto'type' = Prelude.Nothing,-                                 _FieldDescriptorProto'typeName = Prelude.Nothing,-                                 _FieldDescriptorProto'extendee = Prelude.Nothing,-                                 _FieldDescriptorProto'defaultValue = Prelude.Nothing,-                                 _FieldDescriptorProto'oneofIndex = Prelude.Nothing,-                                 _FieldDescriptorProto'jsonName = Prelude.Nothing,-                                 _FieldDescriptorProto'options = Prelude.Nothing,-                                 _FieldDescriptorProto'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     FieldDescriptorProto ->-                       Data.ProtoLens.Encoding.Bytes.Parser FieldDescriptorProto-                loop x-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 x)-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "name"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y-                                              x)-                                24 -> do y <- (Prelude.fmap Prelude.fromIntegral-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "number"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"number")-                                              y-                                              x)-                                32 -> do y <- (Prelude.fmap Prelude.toEnum-                                                 (Prelude.fmap Prelude.fromIntegral-                                                    Data.ProtoLens.Encoding.Bytes.getVarInt))-                                                Data.ProtoLens.Encoding.Bytes.<?> "label"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"label") y-                                              x)-                                40 -> do y <- (Prelude.fmap Prelude.toEnum-                                                 (Prelude.fmap Prelude.fromIntegral-                                                    Data.ProtoLens.Encoding.Bytes.getVarInt))-                                                Data.ProtoLens.Encoding.Bytes.<?> "type"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y-                                              x)-                                50 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "type_name"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"typeName")-                                              y-                                              x)-                                18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "extendee"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"extendee")-                                              y-                                              x)-                                58 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "default_value"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"defaultValue")-                                              y-                                              x)-                                72 -> do y <- (Prelude.fmap Prelude.fromIntegral-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "oneof_index"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"oneofIndex")-                                              y-                                              x)-                                82 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "json_name"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"jsonName")-                                              y-                                              x)-                                66 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                  Data.ProtoLens.Encoding.Bytes.isolate-                                                    (Prelude.fromIntegral len)-                                                    Data.ProtoLens.parseMessage)-                                                Data.ProtoLens.Encoding.Bytes.<?> "options"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"options")-                                              y-                                              x)-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-              in-              (do loop Data.ProtoLens.defMessage)-                Data.ProtoLens.Encoding.Bytes.<?> "FieldDescriptorProto"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                                         Data.Monoid.<>-                                         (((\ bs ->-                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                                Data.Monoid.<>-                                                Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                            Prelude.. Data.Text.Encoding.encodeUtf8)-                                           _v)-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'number") _x-                    of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 24)-                                           Data.Monoid.<>-                                           ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                              Prelude.fromIntegral)-                                             _v)-                   Data.Monoid.<>-                   (case-                      Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'label") _x of-                        (Prelude.Nothing) -> Data.Monoid.mempty-                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 32)-                                             Data.Monoid.<>-                                             (((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                                 Prelude.fromIntegral)-                                                Prelude.. Prelude.fromEnum)-                                               _v)-                     Data.Monoid.<>-                     (case-                        Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'type'") _x of-                          (Prelude.Nothing) -> Data.Monoid.mempty-                          Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 40)-                                               Data.Monoid.<>-                                               (((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                                   Prelude.fromIntegral)-                                                  Prelude.. Prelude.fromEnum)-                                                 _v)-                       Data.Monoid.<>-                       (case-                          Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'typeName") _x-                          of-                            (Prelude.Nothing) -> Data.Monoid.mempty-                            Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 50)-                                                 Data.Monoid.<>-                                                 (((\ bs ->-                                                      (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                         (Prelude.fromIntegral-                                                            (Data.ByteString.length bs)))-                                                        Data.Monoid.<>-                                                        Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                                    Prelude.. Data.Text.Encoding.encodeUtf8)-                                                   _v)-                         Data.Monoid.<>-                         (case-                            Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'extendee") _x-                            of-                              (Prelude.Nothing) -> Data.Monoid.mempty-                              Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                                                   Data.Monoid.<>-                                                   (((\ bs ->-                                                        (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                           (Prelude.fromIntegral-                                                              (Data.ByteString.length bs)))-                                                          Data.Monoid.<>-                                                          Data.ProtoLens.Encoding.Bytes.putBytes-                                                            bs))-                                                      Prelude.. Data.Text.Encoding.encodeUtf8)-                                                     _v)-                           Data.Monoid.<>-                           (case-                              Lens.Family2.view-                                (Data.ProtoLens.Field.field @"maybe'defaultValue")-                                _x-                              of-                                (Prelude.Nothing) -> Data.Monoid.mempty-                                Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 58)-                                                     Data.Monoid.<>-                                                     (((\ bs ->-                                                          (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                             (Prelude.fromIntegral-                                                                (Data.ByteString.length bs)))-                                                            Data.Monoid.<>-                                                            Data.ProtoLens.Encoding.Bytes.putBytes-                                                              bs))-                                                        Prelude.. Data.Text.Encoding.encodeUtf8)-                                                       _v)-                             Data.Monoid.<>-                             (case-                                Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'oneofIndex")-                                  _x-                                of-                                  (Prelude.Nothing) -> Data.Monoid.mempty-                                  Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 72)-                                                       Data.Monoid.<>-                                                       ((Data.ProtoLens.Encoding.Bytes.putVarInt)-                                                          Prelude.. Prelude.fromIntegral)-                                                         _v)-                               Data.Monoid.<>-                               (case-                                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'jsonName")-                                    _x-                                  of-                                    (Prelude.Nothing) -> Data.Monoid.mempty-                                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 82)-                                                         Data.Monoid.<>-                                                         (((\ bs ->-                                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                 (Prelude.fromIntegral-                                                                    (Data.ByteString.length bs)))-                                                                Data.Monoid.<>-                                                                Data.ProtoLens.Encoding.Bytes.putBytes-                                                                  bs))-                                                            Prelude.. Data.Text.Encoding.encodeUtf8)-                                                           _v)-                                 Data.Monoid.<>-                                 (case-                                    Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options")-                                      _x-                                    of-                                      (Prelude.Nothing) -> Data.Monoid.mempty-                                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                            66)-                                                           Data.Monoid.<>-                                                           (((\ bs ->-                                                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                   (Prelude.fromIntegral-                                                                      (Data.ByteString.length bs)))-                                                                  Data.Monoid.<>-                                                                  Data.ProtoLens.Encoding.Bytes.putBytes-                                                                    bs))-                                                              Prelude..-                                                              Data.ProtoLens.encodeMessage)-                                                             _v)-                                   Data.Monoid.<>-                                   Data.ProtoLens.Encoding.Wire.buildFieldSet-                                     (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData FieldDescriptorProto where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_FieldDescriptorProto'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_FieldDescriptorProto'name x__)-                    (Control.DeepSeq.deepseq (_FieldDescriptorProto'number x__)-                       (Control.DeepSeq.deepseq (_FieldDescriptorProto'label x__)-                          (Control.DeepSeq.deepseq (_FieldDescriptorProto'type' x__)-                             (Control.DeepSeq.deepseq (_FieldDescriptorProto'typeName x__)-                                (Control.DeepSeq.deepseq (_FieldDescriptorProto'extendee x__)-                                   (Control.DeepSeq.deepseq (_FieldDescriptorProto'defaultValue x__)-                                      (Control.DeepSeq.deepseq-                                         (_FieldDescriptorProto'oneofIndex x__)-                                         (Control.DeepSeq.deepseq-                                            (_FieldDescriptorProto'jsonName x__)-                                            (Control.DeepSeq.deepseq-                                               (_FieldDescriptorProto'options x__)-                                               (()))))))))))))-data FieldDescriptorProto'Label = FieldDescriptorProto'LABEL_OPTIONAL-                                | FieldDescriptorProto'LABEL_REQUIRED-                                | FieldDescriptorProto'LABEL_REPEATED-                                    deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.MessageEnum FieldDescriptorProto'Label-         where-        maybeToEnum 1 = Prelude.Just FieldDescriptorProto'LABEL_OPTIONAL-        maybeToEnum 2 = Prelude.Just FieldDescriptorProto'LABEL_REQUIRED-        maybeToEnum 3 = Prelude.Just FieldDescriptorProto'LABEL_REPEATED-        maybeToEnum _ = Prelude.Nothing-        showEnum FieldDescriptorProto'LABEL_OPTIONAL = "LABEL_OPTIONAL"-        showEnum FieldDescriptorProto'LABEL_REQUIRED = "LABEL_REQUIRED"-        showEnum FieldDescriptorProto'LABEL_REPEATED = "LABEL_REPEATED"-        readEnum k-          | (k) Prelude.== "LABEL_OPTIONAL" =-            Prelude.Just FieldDescriptorProto'LABEL_OPTIONAL-          | (k) Prelude.== "LABEL_REQUIRED" =-            Prelude.Just FieldDescriptorProto'LABEL_REQUIRED-          | (k) Prelude.== "LABEL_REPEATED" =-            Prelude.Just FieldDescriptorProto'LABEL_REPEATED-        readEnum k-          = (Text.Read.readMaybe k) Prelude.>>= Data.ProtoLens.maybeToEnum-instance Prelude.Bounded FieldDescriptorProto'Label where-        minBound = FieldDescriptorProto'LABEL_OPTIONAL-        maxBound = FieldDescriptorProto'LABEL_REPEATED-instance Prelude.Enum FieldDescriptorProto'Label where-        toEnum k__-          = Prelude.maybe-              (Prelude.error-                 (("toEnum: unknown value for enum Label: ") Prelude.++-                    Prelude.show k__))-              Prelude.id-              (Data.ProtoLens.maybeToEnum k__)-        fromEnum FieldDescriptorProto'LABEL_OPTIONAL = 1-        fromEnum FieldDescriptorProto'LABEL_REQUIRED = 2-        fromEnum FieldDescriptorProto'LABEL_REPEATED = 3-        succ FieldDescriptorProto'LABEL_REPEATED-          = Prelude.error-              "FieldDescriptorProto'Label.succ: bad argument FieldDescriptorProto'LABEL_REPEATED. This value would be out of bounds."-        succ FieldDescriptorProto'LABEL_OPTIONAL-          = FieldDescriptorProto'LABEL_REQUIRED-        succ FieldDescriptorProto'LABEL_REQUIRED-          = FieldDescriptorProto'LABEL_REPEATED-        pred FieldDescriptorProto'LABEL_OPTIONAL-          = Prelude.error-              "FieldDescriptorProto'Label.pred: bad argument FieldDescriptorProto'LABEL_OPTIONAL. This value would be out of bounds."-        pred FieldDescriptorProto'LABEL_REQUIRED-          = FieldDescriptorProto'LABEL_OPTIONAL-        pred FieldDescriptorProto'LABEL_REPEATED-          = FieldDescriptorProto'LABEL_REQUIRED-        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 FieldDescriptorProto'Label-         where-        fieldDefault = FieldDescriptorProto'LABEL_OPTIONAL-instance Control.DeepSeq.NFData FieldDescriptorProto'Label where-        rnf x__ = Prelude.seq x__ (())-data FieldDescriptorProto'Type = FieldDescriptorProto'TYPE_DOUBLE-                               | FieldDescriptorProto'TYPE_FLOAT-                               | FieldDescriptorProto'TYPE_INT64-                               | FieldDescriptorProto'TYPE_UINT64-                               | FieldDescriptorProto'TYPE_INT32-                               | FieldDescriptorProto'TYPE_FIXED64-                               | FieldDescriptorProto'TYPE_FIXED32-                               | FieldDescriptorProto'TYPE_BOOL-                               | FieldDescriptorProto'TYPE_STRING-                               | FieldDescriptorProto'TYPE_GROUP-                               | FieldDescriptorProto'TYPE_MESSAGE-                               | FieldDescriptorProto'TYPE_BYTES-                               | FieldDescriptorProto'TYPE_UINT32-                               | FieldDescriptorProto'TYPE_ENUM-                               | FieldDescriptorProto'TYPE_SFIXED32-                               | FieldDescriptorProto'TYPE_SFIXED64-                               | FieldDescriptorProto'TYPE_SINT32-                               | FieldDescriptorProto'TYPE_SINT64-                                   deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.MessageEnum FieldDescriptorProto'Type where-        maybeToEnum 1 = Prelude.Just FieldDescriptorProto'TYPE_DOUBLE-        maybeToEnum 2 = Prelude.Just FieldDescriptorProto'TYPE_FLOAT-        maybeToEnum 3 = Prelude.Just FieldDescriptorProto'TYPE_INT64-        maybeToEnum 4 = Prelude.Just FieldDescriptorProto'TYPE_UINT64-        maybeToEnum 5 = Prelude.Just FieldDescriptorProto'TYPE_INT32-        maybeToEnum 6 = Prelude.Just FieldDescriptorProto'TYPE_FIXED64-        maybeToEnum 7 = Prelude.Just FieldDescriptorProto'TYPE_FIXED32-        maybeToEnum 8 = Prelude.Just FieldDescriptorProto'TYPE_BOOL-        maybeToEnum 9 = Prelude.Just FieldDescriptorProto'TYPE_STRING-        maybeToEnum 10 = Prelude.Just FieldDescriptorProto'TYPE_GROUP-        maybeToEnum 11 = Prelude.Just FieldDescriptorProto'TYPE_MESSAGE-        maybeToEnum 12 = Prelude.Just FieldDescriptorProto'TYPE_BYTES-        maybeToEnum 13 = Prelude.Just FieldDescriptorProto'TYPE_UINT32-        maybeToEnum 14 = Prelude.Just FieldDescriptorProto'TYPE_ENUM-        maybeToEnum 15 = Prelude.Just FieldDescriptorProto'TYPE_SFIXED32-        maybeToEnum 16 = Prelude.Just FieldDescriptorProto'TYPE_SFIXED64-        maybeToEnum 17 = Prelude.Just FieldDescriptorProto'TYPE_SINT32-        maybeToEnum 18 = Prelude.Just FieldDescriptorProto'TYPE_SINT64-        maybeToEnum _ = Prelude.Nothing-        showEnum FieldDescriptorProto'TYPE_DOUBLE = "TYPE_DOUBLE"-        showEnum FieldDescriptorProto'TYPE_FLOAT = "TYPE_FLOAT"-        showEnum FieldDescriptorProto'TYPE_INT64 = "TYPE_INT64"-        showEnum FieldDescriptorProto'TYPE_UINT64 = "TYPE_UINT64"-        showEnum FieldDescriptorProto'TYPE_INT32 = "TYPE_INT32"-        showEnum FieldDescriptorProto'TYPE_FIXED64 = "TYPE_FIXED64"-        showEnum FieldDescriptorProto'TYPE_FIXED32 = "TYPE_FIXED32"-        showEnum FieldDescriptorProto'TYPE_BOOL = "TYPE_BOOL"-        showEnum FieldDescriptorProto'TYPE_STRING = "TYPE_STRING"-        showEnum FieldDescriptorProto'TYPE_GROUP = "TYPE_GROUP"-        showEnum FieldDescriptorProto'TYPE_MESSAGE = "TYPE_MESSAGE"-        showEnum FieldDescriptorProto'TYPE_BYTES = "TYPE_BYTES"-        showEnum FieldDescriptorProto'TYPE_UINT32 = "TYPE_UINT32"-        showEnum FieldDescriptorProto'TYPE_ENUM = "TYPE_ENUM"-        showEnum FieldDescriptorProto'TYPE_SFIXED32 = "TYPE_SFIXED32"-        showEnum FieldDescriptorProto'TYPE_SFIXED64 = "TYPE_SFIXED64"-        showEnum FieldDescriptorProto'TYPE_SINT32 = "TYPE_SINT32"-        showEnum FieldDescriptorProto'TYPE_SINT64 = "TYPE_SINT64"-        readEnum k-          | (k) Prelude.== "TYPE_DOUBLE" =-            Prelude.Just FieldDescriptorProto'TYPE_DOUBLE-          | (k) Prelude.== "TYPE_FLOAT" =-            Prelude.Just FieldDescriptorProto'TYPE_FLOAT-          | (k) Prelude.== "TYPE_INT64" =-            Prelude.Just FieldDescriptorProto'TYPE_INT64-          | (k) Prelude.== "TYPE_UINT64" =-            Prelude.Just FieldDescriptorProto'TYPE_UINT64-          | (k) Prelude.== "TYPE_INT32" =-            Prelude.Just FieldDescriptorProto'TYPE_INT32-          | (k) Prelude.== "TYPE_FIXED64" =-            Prelude.Just FieldDescriptorProto'TYPE_FIXED64-          | (k) Prelude.== "TYPE_FIXED32" =-            Prelude.Just FieldDescriptorProto'TYPE_FIXED32-          | (k) Prelude.== "TYPE_BOOL" =-            Prelude.Just FieldDescriptorProto'TYPE_BOOL-          | (k) Prelude.== "TYPE_STRING" =-            Prelude.Just FieldDescriptorProto'TYPE_STRING-          | (k) Prelude.== "TYPE_GROUP" =-            Prelude.Just FieldDescriptorProto'TYPE_GROUP-          | (k) Prelude.== "TYPE_MESSAGE" =-            Prelude.Just FieldDescriptorProto'TYPE_MESSAGE-          | (k) Prelude.== "TYPE_BYTES" =-            Prelude.Just FieldDescriptorProto'TYPE_BYTES-          | (k) Prelude.== "TYPE_UINT32" =-            Prelude.Just FieldDescriptorProto'TYPE_UINT32-          | (k) Prelude.== "TYPE_ENUM" =-            Prelude.Just FieldDescriptorProto'TYPE_ENUM-          | (k) Prelude.== "TYPE_SFIXED32" =-            Prelude.Just FieldDescriptorProto'TYPE_SFIXED32-          | (k) Prelude.== "TYPE_SFIXED64" =-            Prelude.Just FieldDescriptorProto'TYPE_SFIXED64-          | (k) Prelude.== "TYPE_SINT32" =-            Prelude.Just FieldDescriptorProto'TYPE_SINT32-          | (k) Prelude.== "TYPE_SINT64" =-            Prelude.Just FieldDescriptorProto'TYPE_SINT64-        readEnum k-          = (Text.Read.readMaybe k) Prelude.>>= Data.ProtoLens.maybeToEnum-instance Prelude.Bounded FieldDescriptorProto'Type where-        minBound = FieldDescriptorProto'TYPE_DOUBLE-        maxBound = FieldDescriptorProto'TYPE_SINT64-instance Prelude.Enum FieldDescriptorProto'Type where-        toEnum k__-          = Prelude.maybe-              (Prelude.error-                 (("toEnum: unknown value for enum Type: ") Prelude.++-                    Prelude.show k__))-              Prelude.id-              (Data.ProtoLens.maybeToEnum k__)-        fromEnum FieldDescriptorProto'TYPE_DOUBLE = 1-        fromEnum FieldDescriptorProto'TYPE_FLOAT = 2-        fromEnum FieldDescriptorProto'TYPE_INT64 = 3-        fromEnum FieldDescriptorProto'TYPE_UINT64 = 4-        fromEnum FieldDescriptorProto'TYPE_INT32 = 5-        fromEnum FieldDescriptorProto'TYPE_FIXED64 = 6-        fromEnum FieldDescriptorProto'TYPE_FIXED32 = 7-        fromEnum FieldDescriptorProto'TYPE_BOOL = 8-        fromEnum FieldDescriptorProto'TYPE_STRING = 9-        fromEnum FieldDescriptorProto'TYPE_GROUP = 10-        fromEnum FieldDescriptorProto'TYPE_MESSAGE = 11-        fromEnum FieldDescriptorProto'TYPE_BYTES = 12-        fromEnum FieldDescriptorProto'TYPE_UINT32 = 13-        fromEnum FieldDescriptorProto'TYPE_ENUM = 14-        fromEnum FieldDescriptorProto'TYPE_SFIXED32 = 15-        fromEnum FieldDescriptorProto'TYPE_SFIXED64 = 16-        fromEnum FieldDescriptorProto'TYPE_SINT32 = 17-        fromEnum FieldDescriptorProto'TYPE_SINT64 = 18-        succ FieldDescriptorProto'TYPE_SINT64-          = Prelude.error-              "FieldDescriptorProto'Type.succ: bad argument FieldDescriptorProto'TYPE_SINT64. This value would be out of bounds."-        succ FieldDescriptorProto'TYPE_DOUBLE-          = FieldDescriptorProto'TYPE_FLOAT-        succ FieldDescriptorProto'TYPE_FLOAT-          = FieldDescriptorProto'TYPE_INT64-        succ FieldDescriptorProto'TYPE_INT64-          = FieldDescriptorProto'TYPE_UINT64-        succ FieldDescriptorProto'TYPE_UINT64-          = FieldDescriptorProto'TYPE_INT32-        succ FieldDescriptorProto'TYPE_INT32-          = FieldDescriptorProto'TYPE_FIXED64-        succ FieldDescriptorProto'TYPE_FIXED64-          = FieldDescriptorProto'TYPE_FIXED32-        succ FieldDescriptorProto'TYPE_FIXED32-          = FieldDescriptorProto'TYPE_BOOL-        succ FieldDescriptorProto'TYPE_BOOL-          = FieldDescriptorProto'TYPE_STRING-        succ FieldDescriptorProto'TYPE_STRING-          = FieldDescriptorProto'TYPE_GROUP-        succ FieldDescriptorProto'TYPE_GROUP-          = FieldDescriptorProto'TYPE_MESSAGE-        succ FieldDescriptorProto'TYPE_MESSAGE-          = FieldDescriptorProto'TYPE_BYTES-        succ FieldDescriptorProto'TYPE_BYTES-          = FieldDescriptorProto'TYPE_UINT32-        succ FieldDescriptorProto'TYPE_UINT32-          = FieldDescriptorProto'TYPE_ENUM-        succ FieldDescriptorProto'TYPE_ENUM-          = FieldDescriptorProto'TYPE_SFIXED32-        succ FieldDescriptorProto'TYPE_SFIXED32-          = FieldDescriptorProto'TYPE_SFIXED64-        succ FieldDescriptorProto'TYPE_SFIXED64-          = FieldDescriptorProto'TYPE_SINT32-        succ FieldDescriptorProto'TYPE_SINT32-          = FieldDescriptorProto'TYPE_SINT64-        pred FieldDescriptorProto'TYPE_DOUBLE-          = Prelude.error-              "FieldDescriptorProto'Type.pred: bad argument FieldDescriptorProto'TYPE_DOUBLE. This value would be out of bounds."-        pred FieldDescriptorProto'TYPE_FLOAT-          = FieldDescriptorProto'TYPE_DOUBLE-        pred FieldDescriptorProto'TYPE_INT64-          = FieldDescriptorProto'TYPE_FLOAT-        pred FieldDescriptorProto'TYPE_UINT64-          = FieldDescriptorProto'TYPE_INT64-        pred FieldDescriptorProto'TYPE_INT32-          = FieldDescriptorProto'TYPE_UINT64-        pred FieldDescriptorProto'TYPE_FIXED64-          = FieldDescriptorProto'TYPE_INT32-        pred FieldDescriptorProto'TYPE_FIXED32-          = FieldDescriptorProto'TYPE_FIXED64-        pred FieldDescriptorProto'TYPE_BOOL-          = FieldDescriptorProto'TYPE_FIXED32-        pred FieldDescriptorProto'TYPE_STRING-          = FieldDescriptorProto'TYPE_BOOL-        pred FieldDescriptorProto'TYPE_GROUP-          = FieldDescriptorProto'TYPE_STRING-        pred FieldDescriptorProto'TYPE_MESSAGE-          = FieldDescriptorProto'TYPE_GROUP-        pred FieldDescriptorProto'TYPE_BYTES-          = FieldDescriptorProto'TYPE_MESSAGE-        pred FieldDescriptorProto'TYPE_UINT32-          = FieldDescriptorProto'TYPE_BYTES-        pred FieldDescriptorProto'TYPE_ENUM-          = FieldDescriptorProto'TYPE_UINT32-        pred FieldDescriptorProto'TYPE_SFIXED32-          = FieldDescriptorProto'TYPE_ENUM-        pred FieldDescriptorProto'TYPE_SFIXED64-          = FieldDescriptorProto'TYPE_SFIXED32-        pred FieldDescriptorProto'TYPE_SINT32-          = FieldDescriptorProto'TYPE_SFIXED64-        pred FieldDescriptorProto'TYPE_SINT64-          = FieldDescriptorProto'TYPE_SINT32-        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 FieldDescriptorProto'Type-         where-        fieldDefault = FieldDescriptorProto'TYPE_DOUBLE-instance Control.DeepSeq.NFData FieldDescriptorProto'Type where-        rnf x__ = Prelude.seq x__ (())-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.ctype' @:: Lens' FieldOptions FieldOptions'CType@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'ctype' @:: Lens' FieldOptions (Prelude.Maybe FieldOptions'CType)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.packed' @:: Lens' FieldOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'packed' @:: Lens' FieldOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.jstype' @:: Lens' FieldOptions FieldOptions'JSType@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'jstype' @:: Lens' FieldOptions (Prelude.Maybe FieldOptions'JSType)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.lazy' @:: Lens' FieldOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'lazy' @:: Lens' FieldOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' FieldOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' FieldOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.weak' @:: Lens' FieldOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'weak' @:: Lens' FieldOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' FieldOptions [UninterpretedOption]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' FieldOptions (Data.Vector.Vector UninterpretedOption)@- -}-data FieldOptions = FieldOptions{_FieldOptions'ctype ::-                                 !(Prelude.Maybe FieldOptions'CType),-                                 _FieldOptions'packed :: !(Prelude.Maybe Prelude.Bool),-                                 _FieldOptions'jstype :: !(Prelude.Maybe FieldOptions'JSType),-                                 _FieldOptions'lazy :: !(Prelude.Maybe Prelude.Bool),-                                 _FieldOptions'deprecated :: !(Prelude.Maybe Prelude.Bool),-                                 _FieldOptions'weak :: !(Prelude.Maybe Prelude.Bool),-                                 _FieldOptions'uninterpretedOption ::-                                 !(Data.Vector.Vector UninterpretedOption),-                                 _FieldOptions'_unknownFields :: !Data.ProtoLens.FieldSet}-                      deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show FieldOptions where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField FieldOptions "ctype"-           (FieldOptions'CType)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldOptions'ctype-               (\ x__ y__ -> x__{_FieldOptions'ctype = y__}))-              Prelude.. Data.ProtoLens.maybeLens FieldOptions'STRING-instance Data.ProtoLens.Field.HasField FieldOptions "maybe'ctype"-           (Prelude.Maybe FieldOptions'CType)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldOptions'ctype-               (\ x__ y__ -> x__{_FieldOptions'ctype = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FieldOptions "packed"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldOptions'packed-               (\ x__ y__ -> x__{_FieldOptions'packed = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FieldOptions "maybe'packed"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldOptions'packed-               (\ x__ y__ -> x__{_FieldOptions'packed = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FieldOptions "jstype"-           (FieldOptions'JSType)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldOptions'jstype-               (\ x__ y__ -> x__{_FieldOptions'jstype = y__}))-              Prelude.. Data.ProtoLens.maybeLens FieldOptions'JS_NORMAL-instance Data.ProtoLens.Field.HasField FieldOptions "maybe'jstype"-           (Prelude.Maybe FieldOptions'JSType)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldOptions'jstype-               (\ x__ y__ -> x__{_FieldOptions'jstype = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FieldOptions "lazy"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldOptions'lazy-               (\ x__ y__ -> x__{_FieldOptions'lazy = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField FieldOptions "maybe'lazy"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldOptions'lazy-               (\ x__ y__ -> x__{_FieldOptions'lazy = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FieldOptions "deprecated"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldOptions'deprecated-               (\ x__ y__ -> x__{_FieldOptions'deprecated = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField FieldOptions-           "maybe'deprecated"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldOptions'deprecated-               (\ x__ y__ -> x__{_FieldOptions'deprecated = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FieldOptions "weak"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldOptions'weak-               (\ x__ y__ -> x__{_FieldOptions'weak = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField FieldOptions "maybe'weak"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldOptions'weak-               (\ x__ y__ -> x__{_FieldOptions'weak = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FieldOptions-           "uninterpretedOption"-           ([UninterpretedOption])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldOptions'uninterpretedOption-               (\ x__ y__ -> x__{_FieldOptions'uninterpretedOption = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField FieldOptions-           "vec'uninterpretedOption"-           (Data.Vector.Vector UninterpretedOption)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FieldOptions'uninterpretedOption-               (\ x__ y__ -> x__{_FieldOptions'uninterpretedOption = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message FieldOptions where-        messageName _ = Data.Text.pack "google.protobuf.FieldOptions"-        fieldsByTag-          = let ctype__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "ctype"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::-                         Data.ProtoLens.FieldTypeDescriptor FieldOptions'CType)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'ctype"))-                      :: Data.ProtoLens.FieldDescriptor FieldOptions-                packed__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "packed"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'packed"))-                      :: Data.ProtoLens.FieldDescriptor FieldOptions-                jstype__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "jstype"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::-                         Data.ProtoLens.FieldTypeDescriptor FieldOptions'JSType)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'jstype"))-                      :: Data.ProtoLens.FieldDescriptor FieldOptions-                lazy__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "lazy"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'lazy"))-                      :: Data.ProtoLens.FieldDescriptor FieldOptions-                deprecated__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "deprecated"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'deprecated"))-                      :: Data.ProtoLens.FieldDescriptor FieldOptions-                weak__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "weak"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'weak"))-                      :: Data.ProtoLens.FieldDescriptor FieldOptions-                uninterpretedOption__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "uninterpreted_option"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"uninterpretedOption"))-                      :: Data.ProtoLens.FieldDescriptor FieldOptions-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, ctype__field_descriptor),-                 (Data.ProtoLens.Tag 2, packed__field_descriptor),-                 (Data.ProtoLens.Tag 6, jstype__field_descriptor),-                 (Data.ProtoLens.Tag 5, lazy__field_descriptor),-                 (Data.ProtoLens.Tag 3, deprecated__field_descriptor),-                 (Data.ProtoLens.Tag 10, weak__field_descriptor),-                 (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _FieldOptions'_unknownFields-              (\ x__ y__ -> x__{_FieldOptions'_unknownFields = y__})-        defMessage-          = FieldOptions{_FieldOptions'ctype = Prelude.Nothing,-                         _FieldOptions'packed = Prelude.Nothing,-                         _FieldOptions'jstype = Prelude.Nothing,-                         _FieldOptions'lazy = Prelude.Nothing,-                         _FieldOptions'deprecated = Prelude.Nothing,-                         _FieldOptions'weak = Prelude.Nothing,-                         _FieldOptions'uninterpretedOption = Data.Vector.Generic.empty,-                         _FieldOptions'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     FieldOptions ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         UninterpretedOption-                         -> Data.ProtoLens.Encoding.Bytes.Parser FieldOptions-                loop x mutable'uninterpretedOption-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                            (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                               mutable'uninterpretedOption)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set-                                    (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                                    frozen'uninterpretedOption-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                8 -> do y <- (Prelude.fmap Prelude.toEnum-                                                (Prelude.fmap Prelude.fromIntegral-                                                   Data.ProtoLens.Encoding.Bytes.getVarInt))-                                               Data.ProtoLens.Encoding.Bytes.<?> "ctype"-                                        loop-                                          (Lens.Family2.set (Data.ProtoLens.Field.field @"ctype") y-                                             x)-                                          mutable'uninterpretedOption-                                16 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "packed"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"packed")-                                              y-                                              x)-                                           mutable'uninterpretedOption-                                48 -> do y <- (Prelude.fmap Prelude.toEnum-                                                 (Prelude.fmap Prelude.fromIntegral-                                                    Data.ProtoLens.Encoding.Bytes.getVarInt))-                                                Data.ProtoLens.Encoding.Bytes.<?> "jstype"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"jstype")-                                              y-                                              x)-                                           mutable'uninterpretedOption-                                40 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "lazy"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"lazy") y-                                              x)-                                           mutable'uninterpretedOption-                                24 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "deprecated"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"deprecated")-                                              y-                                              x)-                                           mutable'uninterpretedOption-                                80 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "weak"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"weak") y-                                              x)-                                           mutable'uninterpretedOption-                                7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                     Data.ProtoLens.Encoding.Bytes.isolate-                                                       (Prelude.fromIntegral len)-                                                       Data.ProtoLens.parseMessage)-                                                   Data.ProtoLens.Encoding.Bytes.<?>-                                                   "uninterpreted_option"-                                           v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                  (Data.ProtoLens.Encoding.Growing.append-                                                     mutable'uninterpretedOption-                                                     y)-                                           loop x v-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'uninterpretedOption-              in-              (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                   Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'uninterpretedOption)-                Data.ProtoLens.Encoding.Bytes.<?> "FieldOptions"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'ctype") _x of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                                         Data.Monoid.<>-                                         (((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                             Prelude.fromIntegral)-                                            Prelude.. Prelude.fromEnum)-                                           _v)-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'packed") _x-                    of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16)-                                           Data.Monoid.<>-                                           ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                              (\ b -> if b then 1 else 0))-                                             _v)-                   Data.Monoid.<>-                   (case-                      Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'jstype") _x-                      of-                        (Prelude.Nothing) -> Data.Monoid.mempty-                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 48)-                                             Data.Monoid.<>-                                             (((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                                 Prelude.fromIntegral)-                                                Prelude.. Prelude.fromEnum)-                                               _v)-                     Data.Monoid.<>-                     (case-                        Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'lazy") _x of-                          (Prelude.Nothing) -> Data.Monoid.mempty-                          Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 40)-                                               Data.Monoid.<>-                                               ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                                  (\ b -> if b then 1 else 0))-                                                 _v)-                       Data.Monoid.<>-                       (case-                          Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'deprecated")-                            _x-                          of-                            (Prelude.Nothing) -> Data.Monoid.mempty-                            Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 24)-                                                 Data.Monoid.<>-                                                 ((Data.ProtoLens.Encoding.Bytes.putVarInt)-                                                    Prelude.. (\ b -> if b then 1 else 0))-                                                   _v)-                         Data.Monoid.<>-                         (case-                            Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'weak") _x of-                              (Prelude.Nothing) -> Data.Monoid.mempty-                              Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 80)-                                                   Data.Monoid.<>-                                                   ((Data.ProtoLens.Encoding.Bytes.putVarInt)-                                                      Prelude.. (\ b -> if b then 1 else 0))-                                                     _v)-                           Data.Monoid.<>-                           (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                              (\ _v ->-                                 (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<>-                                   (((\ bs ->-                                        (Data.ProtoLens.Encoding.Bytes.putVarInt-                                           (Prelude.fromIntegral (Data.ByteString.length bs)))-                                          Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                      Prelude.. Data.ProtoLens.encodeMessage)-                                     _v)-                              (Lens.Family2.view-                                 (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                                 _x))-                             Data.Monoid.<>-                             Data.ProtoLens.Encoding.Wire.buildFieldSet-                               (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData FieldOptions where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_FieldOptions'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_FieldOptions'ctype x__)-                    (Control.DeepSeq.deepseq (_FieldOptions'packed x__)-                       (Control.DeepSeq.deepseq (_FieldOptions'jstype x__)-                          (Control.DeepSeq.deepseq (_FieldOptions'lazy x__)-                             (Control.DeepSeq.deepseq (_FieldOptions'deprecated x__)-                                (Control.DeepSeq.deepseq (_FieldOptions'weak x__)-                                   (Control.DeepSeq.deepseq (_FieldOptions'uninterpretedOption x__)-                                      (())))))))))-data FieldOptions'CType = FieldOptions'STRING-                        | FieldOptions'CORD-                        | FieldOptions'STRING_PIECE-                            deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.MessageEnum FieldOptions'CType where-        maybeToEnum 0 = Prelude.Just FieldOptions'STRING-        maybeToEnum 1 = Prelude.Just FieldOptions'CORD-        maybeToEnum 2 = Prelude.Just FieldOptions'STRING_PIECE-        maybeToEnum _ = Prelude.Nothing-        showEnum FieldOptions'STRING = "STRING"-        showEnum FieldOptions'CORD = "CORD"-        showEnum FieldOptions'STRING_PIECE = "STRING_PIECE"-        readEnum k-          | (k) Prelude.== "STRING" = Prelude.Just FieldOptions'STRING-          | (k) Prelude.== "CORD" = Prelude.Just FieldOptions'CORD-          | (k) Prelude.== "STRING_PIECE" =-            Prelude.Just FieldOptions'STRING_PIECE-        readEnum k-          = (Text.Read.readMaybe k) Prelude.>>= Data.ProtoLens.maybeToEnum-instance Prelude.Bounded FieldOptions'CType where-        minBound = FieldOptions'STRING-        maxBound = FieldOptions'STRING_PIECE-instance Prelude.Enum FieldOptions'CType where-        toEnum k__-          = Prelude.maybe-              (Prelude.error-                 (("toEnum: unknown value for enum CType: ") Prelude.++-                    Prelude.show k__))-              Prelude.id-              (Data.ProtoLens.maybeToEnum k__)-        fromEnum FieldOptions'STRING = 0-        fromEnum FieldOptions'CORD = 1-        fromEnum FieldOptions'STRING_PIECE = 2-        succ FieldOptions'STRING_PIECE-          = Prelude.error-              "FieldOptions'CType.succ: bad argument FieldOptions'STRING_PIECE. This value would be out of bounds."-        succ FieldOptions'STRING = FieldOptions'CORD-        succ FieldOptions'CORD = FieldOptions'STRING_PIECE-        pred FieldOptions'STRING-          = Prelude.error-              "FieldOptions'CType.pred: bad argument FieldOptions'STRING. This value would be out of bounds."-        pred FieldOptions'CORD = FieldOptions'STRING-        pred FieldOptions'STRING_PIECE = FieldOptions'CORD-        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 FieldOptions'CType where-        fieldDefault = FieldOptions'STRING-instance Control.DeepSeq.NFData FieldOptions'CType where-        rnf x__ = Prelude.seq x__ (())-data FieldOptions'JSType = FieldOptions'JS_NORMAL-                         | FieldOptions'JS_STRING-                         | FieldOptions'JS_NUMBER-                             deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.MessageEnum FieldOptions'JSType where-        maybeToEnum 0 = Prelude.Just FieldOptions'JS_NORMAL-        maybeToEnum 1 = Prelude.Just FieldOptions'JS_STRING-        maybeToEnum 2 = Prelude.Just FieldOptions'JS_NUMBER-        maybeToEnum _ = Prelude.Nothing-        showEnum FieldOptions'JS_NORMAL = "JS_NORMAL"-        showEnum FieldOptions'JS_STRING = "JS_STRING"-        showEnum FieldOptions'JS_NUMBER = "JS_NUMBER"-        readEnum k-          | (k) Prelude.== "JS_NORMAL" = Prelude.Just FieldOptions'JS_NORMAL-          | (k) Prelude.== "JS_STRING" = Prelude.Just FieldOptions'JS_STRING-          | (k) Prelude.== "JS_NUMBER" = Prelude.Just FieldOptions'JS_NUMBER-        readEnum k-          = (Text.Read.readMaybe k) Prelude.>>= Data.ProtoLens.maybeToEnum-instance Prelude.Bounded FieldOptions'JSType where-        minBound = FieldOptions'JS_NORMAL-        maxBound = FieldOptions'JS_NUMBER-instance Prelude.Enum FieldOptions'JSType where-        toEnum k__-          = Prelude.maybe-              (Prelude.error-                 (("toEnum: unknown value for enum JSType: ") Prelude.++-                    Prelude.show k__))-              Prelude.id-              (Data.ProtoLens.maybeToEnum k__)-        fromEnum FieldOptions'JS_NORMAL = 0-        fromEnum FieldOptions'JS_STRING = 1-        fromEnum FieldOptions'JS_NUMBER = 2-        succ FieldOptions'JS_NUMBER-          = Prelude.error-              "FieldOptions'JSType.succ: bad argument FieldOptions'JS_NUMBER. This value would be out of bounds."-        succ FieldOptions'JS_NORMAL = FieldOptions'JS_STRING-        succ FieldOptions'JS_STRING = FieldOptions'JS_NUMBER-        pred FieldOptions'JS_NORMAL-          = Prelude.error-              "FieldOptions'JSType.pred: bad argument FieldOptions'JS_NORMAL. This value would be out of bounds."-        pred FieldOptions'JS_STRING = FieldOptions'JS_NORMAL-        pred FieldOptions'JS_NUMBER = FieldOptions'JS_STRING-        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 FieldOptions'JSType where-        fieldDefault = FieldOptions'JS_NORMAL-instance Control.DeepSeq.NFData FieldOptions'JSType where-        rnf x__ = Prelude.seq x__ (())-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' FileDescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' FileDescriptorProto (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.package' @:: Lens' FileDescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'package' @:: Lens' FileDescriptorProto (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.dependency' @:: Lens' FileDescriptorProto [Data.Text.Text]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'dependency' @:: Lens' FileDescriptorProto (Data.Vector.Vector Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.publicDependency' @:: Lens' FileDescriptorProto [Data.Int.Int32]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'publicDependency' @:: Lens' FileDescriptorProto-  (Data.Vector.Unboxed.Vector Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.weakDependency' @:: Lens' FileDescriptorProto [Data.Int.Int32]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'weakDependency' @:: Lens' FileDescriptorProto-  (Data.Vector.Unboxed.Vector Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.messageType' @:: Lens' FileDescriptorProto [DescriptorProto]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'messageType' @:: Lens' FileDescriptorProto (Data.Vector.Vector DescriptorProto)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.enumType' @:: Lens' FileDescriptorProto [EnumDescriptorProto]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'enumType' @:: Lens' FileDescriptorProto (Data.Vector.Vector EnumDescriptorProto)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.service' @:: Lens' FileDescriptorProto [ServiceDescriptorProto]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'service' @:: Lens' FileDescriptorProto-  (Data.Vector.Vector ServiceDescriptorProto)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.extension' @:: Lens' FileDescriptorProto [FieldDescriptorProto]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'extension' @:: Lens' FileDescriptorProto (Data.Vector.Vector FieldDescriptorProto)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' FileDescriptorProto FileOptions@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' FileDescriptorProto (Prelude.Maybe FileOptions)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.sourceCodeInfo' @:: Lens' FileDescriptorProto SourceCodeInfo@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'sourceCodeInfo' @:: Lens' FileDescriptorProto (Prelude.Maybe SourceCodeInfo)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.syntax' @:: Lens' FileDescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'syntax' @:: Lens' FileDescriptorProto (Prelude.Maybe Data.Text.Text)@- -}-data FileDescriptorProto = FileDescriptorProto{_FileDescriptorProto'name-                                               :: !(Prelude.Maybe Data.Text.Text),-                                               _FileDescriptorProto'package ::-                                               !(Prelude.Maybe Data.Text.Text),-                                               _FileDescriptorProto'dependency ::-                                               !(Data.Vector.Vector Data.Text.Text),-                                               _FileDescriptorProto'publicDependency ::-                                               !(Data.Vector.Unboxed.Vector Data.Int.Int32),-                                               _FileDescriptorProto'weakDependency ::-                                               !(Data.Vector.Unboxed.Vector Data.Int.Int32),-                                               _FileDescriptorProto'messageType ::-                                               !(Data.Vector.Vector DescriptorProto),-                                               _FileDescriptorProto'enumType ::-                                               !(Data.Vector.Vector EnumDescriptorProto),-                                               _FileDescriptorProto'service ::-                                               !(Data.Vector.Vector ServiceDescriptorProto),-                                               _FileDescriptorProto'extension ::-                                               !(Data.Vector.Vector FieldDescriptorProto),-                                               _FileDescriptorProto'options ::-                                               !(Prelude.Maybe FileOptions),-                                               _FileDescriptorProto'sourceCodeInfo ::-                                               !(Prelude.Maybe SourceCodeInfo),-                                               _FileDescriptorProto'syntax ::-                                               !(Prelude.Maybe Data.Text.Text),-                                               _FileDescriptorProto'_unknownFields ::-                                               !Data.ProtoLens.FieldSet}-                             deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show FileDescriptorProto where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField FileDescriptorProto "name"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'name-               (\ x__ y__ -> x__{_FileDescriptorProto'name = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "maybe'name"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'name-               (\ x__ y__ -> x__{_FileDescriptorProto'name = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "package"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'package-               (\ x__ y__ -> x__{_FileDescriptorProto'package = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "maybe'package"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'package-               (\ x__ y__ -> x__{_FileDescriptorProto'package = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "dependency"-           ([Data.Text.Text])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'dependency-               (\ x__ y__ -> x__{_FileDescriptorProto'dependency = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "vec'dependency"-           (Data.Vector.Vector Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'dependency-               (\ x__ y__ -> x__{_FileDescriptorProto'dependency = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "publicDependency"-           ([Data.Int.Int32])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _FileDescriptorProto'publicDependency-               (\ x__ y__ -> x__{_FileDescriptorProto'publicDependency = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "vec'publicDependency"-           (Data.Vector.Unboxed.Vector Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _FileDescriptorProto'publicDependency-               (\ x__ y__ -> x__{_FileDescriptorProto'publicDependency = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "weakDependency"-           ([Data.Int.Int32])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'weakDependency-               (\ x__ y__ -> x__{_FileDescriptorProto'weakDependency = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "vec'weakDependency"-           (Data.Vector.Unboxed.Vector Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'weakDependency-               (\ x__ y__ -> x__{_FileDescriptorProto'weakDependency = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "messageType"-           ([DescriptorProto])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'messageType-               (\ x__ y__ -> x__{_FileDescriptorProto'messageType = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "vec'messageType"-           (Data.Vector.Vector DescriptorProto)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'messageType-               (\ x__ y__ -> x__{_FileDescriptorProto'messageType = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "enumType"-           ([EnumDescriptorProto])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'enumType-               (\ x__ y__ -> x__{_FileDescriptorProto'enumType = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "vec'enumType"-           (Data.Vector.Vector EnumDescriptorProto)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'enumType-               (\ x__ y__ -> x__{_FileDescriptorProto'enumType = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "service"-           ([ServiceDescriptorProto])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'service-               (\ x__ y__ -> x__{_FileDescriptorProto'service = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "vec'service"-           (Data.Vector.Vector ServiceDescriptorProto)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'service-               (\ x__ y__ -> x__{_FileDescriptorProto'service = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "extension"-           ([FieldDescriptorProto])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'extension-               (\ x__ y__ -> x__{_FileDescriptorProto'extension = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "vec'extension"-           (Data.Vector.Vector FieldDescriptorProto)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'extension-               (\ x__ y__ -> x__{_FileDescriptorProto'extension = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "options"-           (FileOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'options-               (\ x__ y__ -> x__{_FileDescriptorProto'options = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "maybe'options"-           (Prelude.Maybe FileOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'options-               (\ x__ y__ -> x__{_FileDescriptorProto'options = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "sourceCodeInfo"-           (SourceCodeInfo)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'sourceCodeInfo-               (\ x__ y__ -> x__{_FileDescriptorProto'sourceCodeInfo = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "maybe'sourceCodeInfo"-           (Prelude.Maybe SourceCodeInfo)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'sourceCodeInfo-               (\ x__ y__ -> x__{_FileDescriptorProto'sourceCodeInfo = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileDescriptorProto "syntax"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'syntax-               (\ x__ y__ -> x__{_FileDescriptorProto'syntax = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FileDescriptorProto-           "maybe'syntax"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorProto'syntax-               (\ x__ y__ -> x__{_FileDescriptorProto'syntax = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message FileDescriptorProto where-        messageName _-          = Data.Text.pack "google.protobuf.FileDescriptorProto"-        fieldsByTag-          = let name__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "name"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'name"))-                      :: Data.ProtoLens.FieldDescriptor FileDescriptorProto-                package__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "package"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'package"))-                      :: Data.ProtoLens.FieldDescriptor FileDescriptorProto-                dependency__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "dependency"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"dependency"))-                      :: Data.ProtoLens.FieldDescriptor FileDescriptorProto-                publicDependency__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "public_dependency"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"publicDependency"))-                      :: Data.ProtoLens.FieldDescriptor FileDescriptorProto-                weakDependency__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "weak_dependency"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"weakDependency"))-                      :: Data.ProtoLens.FieldDescriptor FileDescriptorProto-                messageType__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "message_type"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor DescriptorProto)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"messageType"))-                      :: Data.ProtoLens.FieldDescriptor FileDescriptorProto-                enumType__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "enum_type"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor EnumDescriptorProto)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"enumType"))-                      :: Data.ProtoLens.FieldDescriptor FileDescriptorProto-                service__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "service"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor ServiceDescriptorProto)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"service"))-                      :: Data.ProtoLens.FieldDescriptor FileDescriptorProto-                extension__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "extension"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"extension"))-                      :: Data.ProtoLens.FieldDescriptor FileDescriptorProto-                options__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "options"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor FileOptions)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'options"))-                      :: Data.ProtoLens.FieldDescriptor FileDescriptorProto-                sourceCodeInfo__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "source_code_info"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor SourceCodeInfo)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'sourceCodeInfo"))-                      :: Data.ProtoLens.FieldDescriptor FileDescriptorProto-                syntax__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "syntax"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'syntax"))-                      :: Data.ProtoLens.FieldDescriptor FileDescriptorProto-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, name__field_descriptor),-                 (Data.ProtoLens.Tag 2, package__field_descriptor),-                 (Data.ProtoLens.Tag 3, dependency__field_descriptor),-                 (Data.ProtoLens.Tag 10, publicDependency__field_descriptor),-                 (Data.ProtoLens.Tag 11, weakDependency__field_descriptor),-                 (Data.ProtoLens.Tag 4, messageType__field_descriptor),-                 (Data.ProtoLens.Tag 5, enumType__field_descriptor),-                 (Data.ProtoLens.Tag 6, service__field_descriptor),-                 (Data.ProtoLens.Tag 7, extension__field_descriptor),-                 (Data.ProtoLens.Tag 8, options__field_descriptor),-                 (Data.ProtoLens.Tag 9, sourceCodeInfo__field_descriptor),-                 (Data.ProtoLens.Tag 12, syntax__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _FileDescriptorProto'_unknownFields-              (\ x__ y__ -> x__{_FileDescriptorProto'_unknownFields = y__})-        defMessage-          = FileDescriptorProto{_FileDescriptorProto'name = Prelude.Nothing,-                                _FileDescriptorProto'package = Prelude.Nothing,-                                _FileDescriptorProto'dependency = Data.Vector.Generic.empty,-                                _FileDescriptorProto'publicDependency = Data.Vector.Generic.empty,-                                _FileDescriptorProto'weakDependency = Data.Vector.Generic.empty,-                                _FileDescriptorProto'messageType = Data.Vector.Generic.empty,-                                _FileDescriptorProto'enumType = Data.Vector.Generic.empty,-                                _FileDescriptorProto'service = Data.Vector.Generic.empty,-                                _FileDescriptorProto'extension = Data.Vector.Generic.empty,-                                _FileDescriptorProto'options = Prelude.Nothing,-                                _FileDescriptorProto'sourceCodeInfo = Prelude.Nothing,-                                _FileDescriptorProto'syntax = Prelude.Nothing,-                                _FileDescriptorProto'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     FileDescriptorProto ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         Data.Text.Text-                         ->-                         Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                           Data.ProtoLens.Encoding.Growing.RealWorld-                           EnumDescriptorProto-                           ->-                           Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                             Data.ProtoLens.Encoding.Growing.RealWorld-                             FieldDescriptorProto-                             ->-                             Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                               Data.ProtoLens.Encoding.Growing.RealWorld-                               DescriptorProto-                               ->-                               Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector-                                 Data.ProtoLens.Encoding.Growing.RealWorld-                                 Data.Int.Int32-                                 ->-                                 Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                                   Data.ProtoLens.Encoding.Growing.RealWorld-                                   ServiceDescriptorProto-                                   ->-                                   Data.ProtoLens.Encoding.Growing.Growing-                                     Data.Vector.Unboxed.Vector-                                     Data.ProtoLens.Encoding.Growing.RealWorld-                                     Data.Int.Int32-                                     -> Data.ProtoLens.Encoding.Bytes.Parser FileDescriptorProto-                loop x mutable'dependency mutable'enumType mutable'extension-                  mutable'messageType mutable'publicDependency mutable'service-                  mutable'weakDependency-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'dependency <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                   (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                      mutable'dependency)-                            frozen'enumType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                 (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                    mutable'enumType)-                            frozen'extension <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                  (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                     mutable'extension)-                            frozen'messageType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                    (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                       mutable'messageType)-                            frozen'publicDependency <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                         (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                            mutable'publicDependency)-                            frozen'service <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                   mutable'service)-                            frozen'weakDependency <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                       (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                          mutable'weakDependency)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'dependency")-                                    frozen'dependency-                                    (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'enumType")-                                       frozen'enumType-                                       (Lens.Family2.set-                                          (Data.ProtoLens.Field.field @"vec'extension")-                                          frozen'extension-                                          (Lens.Family2.set-                                             (Data.ProtoLens.Field.field @"vec'messageType")-                                             frozen'messageType-                                             (Lens.Family2.set-                                                (Data.ProtoLens.Field.field @"vec'publicDependency")-                                                frozen'publicDependency-                                                (Lens.Family2.set-                                                   (Data.ProtoLens.Field.field @"vec'service")-                                                   frozen'service-                                                   (Lens.Family2.set-                                                      (Data.ProtoLens.Field.field-                                                         @"vec'weakDependency")-                                                      frozen'weakDependency-                                                      x))))))))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "name"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y-                                              x)-                                           mutable'dependency-                                           mutable'enumType-                                           mutable'extension-                                           mutable'messageType-                                           mutable'publicDependency-                                           mutable'service-                                           mutable'weakDependency-                                18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "package"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"package")-                                              y-                                              x)-                                           mutable'dependency-                                           mutable'enumType-                                           mutable'extension-                                           mutable'messageType-                                           mutable'publicDependency-                                           mutable'service-                                           mutable'weakDependency-                                26 -> do !y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                               Data.ProtoLens.Encoding.Bytes.getBytes-                                                                 (Prelude.fromIntegral len)-                                                   Data.ProtoLens.Encoding.Bytes.runEither-                                                     (case Data.Text.Encoding.decodeUtf8' value of-                                                          Prelude.Left err -> Prelude.Left-                                                                                (Prelude.show err)-                                                          Prelude.Right r -> Prelude.Right r))-                                                 Data.ProtoLens.Encoding.Bytes.<?> "dependency"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'dependency-                                                   y)-                                         loop x v mutable'enumType mutable'extension-                                           mutable'messageType-                                           mutable'publicDependency-                                           mutable'service-                                           mutable'weakDependency-                                80 -> do !y <- (Prelude.fmap Prelude.fromIntegral-                                                  Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                 Data.ProtoLens.Encoding.Bytes.<?>-                                                 "public_dependency"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'publicDependency-                                                   y)-                                         loop x mutable'dependency mutable'enumType-                                           mutable'extension-                                           mutable'messageType-                                           v-                                           mutable'service-                                           mutable'weakDependency-                                82 -> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                 Data.ProtoLens.Encoding.Bytes.isolate-                                                   (Prelude.fromIntegral len)-                                                   ((let ploop qs-                                                           = do packedEnd <- Data.ProtoLens.Encoding.Bytes.atEnd-                                                                if packedEnd then Prelude.return qs-                                                                  else-                                                                  do !q <- (Prelude.fmap-                                                                              Prelude.fromIntegral-                                                                              Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                                             Data.ProtoLens.Encoding.Bytes.<?>-                                                                             "public_dependency"-                                                                     qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                                              (Data.ProtoLens.Encoding.Growing.append-                                                                                 qs-                                                                                 q)-                                                                     ploop qs'-                                                       in ploop)-                                                      mutable'publicDependency)-                                         loop x mutable'dependency mutable'enumType-                                           mutable'extension-                                           mutable'messageType-                                           y-                                           mutable'service-                                           mutable'weakDependency-                                88 -> do !y <- (Prelude.fmap Prelude.fromIntegral-                                                  Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "weak_dependency"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'weakDependency-                                                   y)-                                         loop x mutable'dependency mutable'enumType-                                           mutable'extension-                                           mutable'messageType-                                           mutable'publicDependency-                                           mutable'service-                                           v-                                90 -> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                 Data.ProtoLens.Encoding.Bytes.isolate-                                                   (Prelude.fromIntegral len)-                                                   ((let ploop qs-                                                           = do packedEnd <- Data.ProtoLens.Encoding.Bytes.atEnd-                                                                if packedEnd then Prelude.return qs-                                                                  else-                                                                  do !q <- (Prelude.fmap-                                                                              Prelude.fromIntegral-                                                                              Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                                             Data.ProtoLens.Encoding.Bytes.<?>-                                                                             "weak_dependency"-                                                                     qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                                              (Data.ProtoLens.Encoding.Growing.append-                                                                                 qs-                                                                                 q)-                                                                     ploop qs'-                                                       in ploop)-                                                      mutable'weakDependency)-                                         loop x mutable'dependency mutable'enumType-                                           mutable'extension-                                           mutable'messageType-                                           mutable'publicDependency-                                           mutable'service-                                           y-                                34 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "message_type"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'messageType-                                                   y)-                                         loop x mutable'dependency mutable'enumType-                                           mutable'extension-                                           v-                                           mutable'publicDependency-                                           mutable'service-                                           mutable'weakDependency-                                42 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "enum_type"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'enumType-                                                   y)-                                         loop x mutable'dependency v mutable'extension-                                           mutable'messageType-                                           mutable'publicDependency-                                           mutable'service-                                           mutable'weakDependency-                                50 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "service"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'service-                                                   y)-                                         loop x mutable'dependency mutable'enumType-                                           mutable'extension-                                           mutable'messageType-                                           mutable'publicDependency-                                           v-                                           mutable'weakDependency-                                58 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "extension"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'extension-                                                   y)-                                         loop x mutable'dependency mutable'enumType v-                                           mutable'messageType-                                           mutable'publicDependency-                                           mutable'service-                                           mutable'weakDependency-                                66 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                  Data.ProtoLens.Encoding.Bytes.isolate-                                                    (Prelude.fromIntegral len)-                                                    Data.ProtoLens.parseMessage)-                                                Data.ProtoLens.Encoding.Bytes.<?> "options"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"options")-                                              y-                                              x)-                                           mutable'dependency-                                           mutable'enumType-                                           mutable'extension-                                           mutable'messageType-                                           mutable'publicDependency-                                           mutable'service-                                           mutable'weakDependency-                                74 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                  Data.ProtoLens.Encoding.Bytes.isolate-                                                    (Prelude.fromIntegral len)-                                                    Data.ProtoLens.parseMessage)-                                                Data.ProtoLens.Encoding.Bytes.<?> "source_code_info"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"sourceCodeInfo")-                                              y-                                              x)-                                           mutable'dependency-                                           mutable'enumType-                                           mutable'extension-                                           mutable'messageType-                                           mutable'publicDependency-                                           mutable'service-                                           mutable'weakDependency-                                98 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "syntax"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"syntax")-                                              y-                                              x)-                                           mutable'dependency-                                           mutable'enumType-                                           mutable'extension-                                           mutable'messageType-                                           mutable'publicDependency-                                           mutable'service-                                           mutable'weakDependency-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'dependency-                                             mutable'enumType-                                             mutable'extension-                                             mutable'messageType-                                             mutable'publicDependency-                                             mutable'service-                                             mutable'weakDependency-              in-              (do mutable'dependency <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                          Data.ProtoLens.Encoding.Growing.new-                  mutable'enumType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                        Data.ProtoLens.Encoding.Growing.new-                  mutable'extension <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                         Data.ProtoLens.Encoding.Growing.new-                  mutable'messageType <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                           Data.ProtoLens.Encoding.Growing.new-                  mutable'publicDependency <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                Data.ProtoLens.Encoding.Growing.new-                  mutable'service <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                       Data.ProtoLens.Encoding.Growing.new-                  mutable'weakDependency <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                              Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'dependency mutable'enumType-                    mutable'extension-                    mutable'messageType-                    mutable'publicDependency-                    mutable'service-                    mutable'weakDependency)-                Data.ProtoLens.Encoding.Bytes.<?> "FileDescriptorProto"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                                         Data.Monoid.<>-                                         (((\ bs ->-                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                                Data.Monoid.<>-                                                Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                            Prelude.. Data.Text.Encoding.encodeUtf8)-                                           _v)-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'package") _x-                    of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                                           Data.Monoid.<>-                                           (((\ bs ->-                                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                   (Prelude.fromIntegral-                                                      (Data.ByteString.length bs)))-                                                  Data.Monoid.<>-                                                  Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                              Prelude.. Data.Text.Encoding.encodeUtf8)-                                             _v)-                   Data.Monoid.<>-                   (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                      (\ _v ->-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 26) Data.Monoid.<>-                           (((\ bs ->-                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                   (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                              Prelude.. Data.Text.Encoding.encodeUtf8)-                             _v)-                      (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'dependency")-                         _x))-                     Data.Monoid.<>-                     (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                        (\ _v ->-                           (Data.ProtoLens.Encoding.Bytes.putVarInt 80) Data.Monoid.<>-                             ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                Prelude.fromIntegral)-                               _v)-                        (Lens.Family2.view-                           (Data.ProtoLens.Field.field @"vec'publicDependency")-                           _x))-                       Data.Monoid.<>-                       (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                          (\ _v ->-                             (Data.ProtoLens.Encoding.Bytes.putVarInt 88) Data.Monoid.<>-                               ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                  Prelude.fromIntegral)-                                 _v)-                          (Lens.Family2.view-                             (Data.ProtoLens.Field.field @"vec'weakDependency")-                             _x))-                         Data.Monoid.<>-                         (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                            (\ _v ->-                               (Data.ProtoLens.Encoding.Bytes.putVarInt 34) Data.Monoid.<>-                                 (((\ bs ->-                                      (Data.ProtoLens.Encoding.Bytes.putVarInt-                                         (Prelude.fromIntegral (Data.ByteString.length bs)))-                                        Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                    Prelude.. Data.ProtoLens.encodeMessage)-                                   _v)-                            (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'messageType")-                               _x))-                           Data.Monoid.<>-                           (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                              (\ _v ->-                                 (Data.ProtoLens.Encoding.Bytes.putVarInt 42) Data.Monoid.<>-                                   (((\ bs ->-                                        (Data.ProtoLens.Encoding.Bytes.putVarInt-                                           (Prelude.fromIntegral (Data.ByteString.length bs)))-                                          Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                      Prelude.. Data.ProtoLens.encodeMessage)-                                     _v)-                              (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'enumType")-                                 _x))-                             Data.Monoid.<>-                             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                                (\ _v ->-                                   (Data.ProtoLens.Encoding.Bytes.putVarInt 50) Data.Monoid.<>-                                     (((\ bs ->-                                          (Data.ProtoLens.Encoding.Bytes.putVarInt-                                             (Prelude.fromIntegral (Data.ByteString.length bs)))-                                            Data.Monoid.<>-                                            Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                        Prelude.. Data.ProtoLens.encodeMessage)-                                       _v)-                                (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'service") _x))-                               Data.Monoid.<>-                               (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                                  (\ _v ->-                                     (Data.ProtoLens.Encoding.Bytes.putVarInt 58) Data.Monoid.<>-                                       (((\ bs ->-                                            (Data.ProtoLens.Encoding.Bytes.putVarInt-                                               (Prelude.fromIntegral (Data.ByteString.length bs)))-                                              Data.Monoid.<>-                                              Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                          Prelude.. Data.ProtoLens.encodeMessage)-                                         _v)-                                  (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'extension")-                                     _x))-                                 Data.Monoid.<>-                                 (case-                                    Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options")-                                      _x-                                    of-                                      (Prelude.Nothing) -> Data.Monoid.mempty-                                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                            66)-                                                           Data.Monoid.<>-                                                           (((\ bs ->-                                                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                   (Prelude.fromIntegral-                                                                      (Data.ByteString.length bs)))-                                                                  Data.Monoid.<>-                                                                  Data.ProtoLens.Encoding.Bytes.putBytes-                                                                    bs))-                                                              Prelude..-                                                              Data.ProtoLens.encodeMessage)-                                                             _v)-                                   Data.Monoid.<>-                                   (case-                                      Lens.Family2.view-                                        (Data.ProtoLens.Field.field @"maybe'sourceCodeInfo")-                                        _x-                                      of-                                        (Prelude.Nothing) -> Data.Monoid.mempty-                                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                              74)-                                                             Data.Monoid.<>-                                                             (((\ bs ->-                                                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                     (Prelude.fromIntegral-                                                                        (Data.ByteString.length-                                                                           bs)))-                                                                    Data.Monoid.<>-                                                                    Data.ProtoLens.Encoding.Bytes.putBytes-                                                                      bs))-                                                                Prelude..-                                                                Data.ProtoLens.encodeMessage)-                                                               _v)-                                     Data.Monoid.<>-                                     (case-                                        Lens.Family2.view-                                          (Data.ProtoLens.Field.field @"maybe'syntax")-                                          _x-                                        of-                                          (Prelude.Nothing) -> Data.Monoid.mempty-                                          Prelude.Just-                                            _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 98)-                                                    Data.Monoid.<>-                                                    (((\ bs ->-                                                         (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                            (Prelude.fromIntegral-                                                               (Data.ByteString.length bs)))-                                                           Data.Monoid.<>-                                                           Data.ProtoLens.Encoding.Bytes.putBytes-                                                             bs))-                                                       Prelude.. Data.Text.Encoding.encodeUtf8)-                                                      _v)-                                       Data.Monoid.<>-                                       Data.ProtoLens.Encoding.Wire.buildFieldSet-                                         (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData FileDescriptorProto where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_FileDescriptorProto'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_FileDescriptorProto'name x__)-                    (Control.DeepSeq.deepseq (_FileDescriptorProto'package x__)-                       (Control.DeepSeq.deepseq (_FileDescriptorProto'dependency x__)-                          (Control.DeepSeq.deepseq-                             (_FileDescriptorProto'publicDependency x__)-                             (Control.DeepSeq.deepseq (_FileDescriptorProto'weakDependency x__)-                                (Control.DeepSeq.deepseq (_FileDescriptorProto'messageType x__)-                                   (Control.DeepSeq.deepseq (_FileDescriptorProto'enumType x__)-                                      (Control.DeepSeq.deepseq (_FileDescriptorProto'service x__)-                                         (Control.DeepSeq.deepseq-                                            (_FileDescriptorProto'extension x__)-                                            (Control.DeepSeq.deepseq-                                               (_FileDescriptorProto'options x__)-                                               (Control.DeepSeq.deepseq-                                                  (_FileDescriptorProto'sourceCodeInfo x__)-                                                  (Control.DeepSeq.deepseq-                                                     (_FileDescriptorProto'syntax x__)-                                                     (()))))))))))))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.file' @:: Lens' FileDescriptorSet [FileDescriptorProto]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'file' @:: Lens' FileDescriptorSet (Data.Vector.Vector FileDescriptorProto)@- -}-data FileDescriptorSet = FileDescriptorSet{_FileDescriptorSet'file-                                           :: !(Data.Vector.Vector FileDescriptorProto),-                                           _FileDescriptorSet'_unknownFields ::-                                           !Data.ProtoLens.FieldSet}-                           deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show FileDescriptorSet where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField FileDescriptorSet "file"-           ([FileDescriptorProto])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorSet'file-               (\ x__ y__ -> x__{_FileDescriptorSet'file = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField FileDescriptorSet "vec'file"-           (Data.Vector.Vector FileDescriptorProto)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileDescriptorSet'file-               (\ x__ y__ -> x__{_FileDescriptorSet'file = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message FileDescriptorSet where-        messageName _ = Data.Text.pack "google.protobuf.FileDescriptorSet"-        fieldsByTag-          = let file__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "file"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor FileDescriptorProto)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"file"))-                      :: Data.ProtoLens.FieldDescriptor FileDescriptorSet-              in-              Data.Map.fromList [(Data.ProtoLens.Tag 1, file__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _FileDescriptorSet'_unknownFields-              (\ x__ y__ -> x__{_FileDescriptorSet'_unknownFields = y__})-        defMessage-          = FileDescriptorSet{_FileDescriptorSet'file =-                                Data.Vector.Generic.empty,-                              _FileDescriptorSet'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     FileDescriptorSet ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         FileDescriptorProto-                         -> Data.ProtoLens.Encoding.Bytes.Parser FileDescriptorSet-                loop x mutable'file-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'file <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                             (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                mutable'file)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'file")-                                    frozen'file-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "file"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append mutable'file-                                                   y)-                                         loop x v-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'file-              in-              (do mutable'file <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                    Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'file)-                Data.ProtoLens.Encoding.Bytes.<?> "FileDescriptorSet"-        buildMessage-          = (\ _x ->-               (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                  (\ _v ->-                     (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>-                       (((\ bs ->-                            (Data.ProtoLens.Encoding.Bytes.putVarInt-                               (Prelude.fromIntegral (Data.ByteString.length bs)))-                              Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Prelude.. Data.ProtoLens.encodeMessage)-                         _v)-                  (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'file") _x))-                 Data.Monoid.<>-                 Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData FileDescriptorSet where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_FileDescriptorSet'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_FileDescriptorSet'file x__) (())))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.javaPackage' @:: Lens' FileOptions Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaPackage' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.javaOuterClassname' @:: Lens' FileOptions Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaOuterClassname' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.javaMultipleFiles' @:: Lens' FileOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaMultipleFiles' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.javaGenerateEqualsAndHash' @:: Lens' FileOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaGenerateEqualsAndHash' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.javaStringCheckUtf8' @:: Lens' FileOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaStringCheckUtf8' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.optimizeFor' @:: Lens' FileOptions FileOptions'OptimizeMode@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'optimizeFor' @:: Lens' FileOptions (Prelude.Maybe FileOptions'OptimizeMode)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.goPackage' @:: Lens' FileOptions Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'goPackage' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.ccGenericServices' @:: Lens' FileOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'ccGenericServices' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.javaGenericServices' @:: Lens' FileOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaGenericServices' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.pyGenericServices' @:: Lens' FileOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'pyGenericServices' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.phpGenericServices' @:: Lens' FileOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'phpGenericServices' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' FileOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.ccEnableArenas' @:: Lens' FileOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'ccEnableArenas' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.objcClassPrefix' @:: Lens' FileOptions Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'objcClassPrefix' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.csharpNamespace' @:: Lens' FileOptions Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'csharpNamespace' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.swiftPrefix' @:: Lens' FileOptions Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'swiftPrefix' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.phpClassPrefix' @:: Lens' FileOptions Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'phpClassPrefix' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.phpNamespace' @:: Lens' FileOptions Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'phpNamespace' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.phpMetadataNamespace' @:: Lens' FileOptions Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'phpMetadataNamespace' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.rubyPackage' @:: Lens' FileOptions Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'rubyPackage' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' FileOptions [UninterpretedOption]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' FileOptions (Data.Vector.Vector UninterpretedOption)@- -}-data FileOptions = FileOptions{_FileOptions'javaPackage ::-                               !(Prelude.Maybe Data.Text.Text),-                               _FileOptions'javaOuterClassname :: !(Prelude.Maybe Data.Text.Text),-                               _FileOptions'javaMultipleFiles :: !(Prelude.Maybe Prelude.Bool),-                               _FileOptions'javaGenerateEqualsAndHash ::-                               !(Prelude.Maybe Prelude.Bool),-                               _FileOptions'javaStringCheckUtf8 :: !(Prelude.Maybe Prelude.Bool),-                               _FileOptions'optimizeFor ::-                               !(Prelude.Maybe FileOptions'OptimizeMode),-                               _FileOptions'goPackage :: !(Prelude.Maybe Data.Text.Text),-                               _FileOptions'ccGenericServices :: !(Prelude.Maybe Prelude.Bool),-                               _FileOptions'javaGenericServices :: !(Prelude.Maybe Prelude.Bool),-                               _FileOptions'pyGenericServices :: !(Prelude.Maybe Prelude.Bool),-                               _FileOptions'phpGenericServices :: !(Prelude.Maybe Prelude.Bool),-                               _FileOptions'deprecated :: !(Prelude.Maybe Prelude.Bool),-                               _FileOptions'ccEnableArenas :: !(Prelude.Maybe Prelude.Bool),-                               _FileOptions'objcClassPrefix :: !(Prelude.Maybe Data.Text.Text),-                               _FileOptions'csharpNamespace :: !(Prelude.Maybe Data.Text.Text),-                               _FileOptions'swiftPrefix :: !(Prelude.Maybe Data.Text.Text),-                               _FileOptions'phpClassPrefix :: !(Prelude.Maybe Data.Text.Text),-                               _FileOptions'phpNamespace :: !(Prelude.Maybe Data.Text.Text),-                               _FileOptions'phpMetadataNamespace ::-                               !(Prelude.Maybe Data.Text.Text),-                               _FileOptions'rubyPackage :: !(Prelude.Maybe Data.Text.Text),-                               _FileOptions'uninterpretedOption ::-                               !(Data.Vector.Vector UninterpretedOption),-                               _FileOptions'_unknownFields :: !Data.ProtoLens.FieldSet}-                     deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show FileOptions where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField FileOptions "javaPackage"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'javaPackage-               (\ x__ y__ -> x__{_FileOptions'javaPackage = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'javaPackage"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'javaPackage-               (\ x__ y__ -> x__{_FileOptions'javaPackage = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions-           "javaOuterClassname"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'javaOuterClassname-               (\ x__ y__ -> x__{_FileOptions'javaOuterClassname = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'javaOuterClassname"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'javaOuterClassname-               (\ x__ y__ -> x__{_FileOptions'javaOuterClassname = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions-           "javaMultipleFiles"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'javaMultipleFiles-               (\ x__ y__ -> x__{_FileOptions'javaMultipleFiles = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'javaMultipleFiles"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'javaMultipleFiles-               (\ x__ y__ -> x__{_FileOptions'javaMultipleFiles = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions-           "javaGenerateEqualsAndHash"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _FileOptions'javaGenerateEqualsAndHash-               (\ x__ y__ -> x__{_FileOptions'javaGenerateEqualsAndHash = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'javaGenerateEqualsAndHash"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _FileOptions'javaGenerateEqualsAndHash-               (\ x__ y__ -> x__{_FileOptions'javaGenerateEqualsAndHash = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions-           "javaStringCheckUtf8"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'javaStringCheckUtf8-               (\ x__ y__ -> x__{_FileOptions'javaStringCheckUtf8 = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'javaStringCheckUtf8"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'javaStringCheckUtf8-               (\ x__ y__ -> x__{_FileOptions'javaStringCheckUtf8 = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions "optimizeFor"-           (FileOptions'OptimizeMode)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'optimizeFor-               (\ x__ y__ -> x__{_FileOptions'optimizeFor = y__}))-              Prelude.. Data.ProtoLens.maybeLens FileOptions'SPEED-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'optimizeFor"-           (Prelude.Maybe FileOptions'OptimizeMode)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'optimizeFor-               (\ x__ y__ -> x__{_FileOptions'optimizeFor = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions "goPackage"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'goPackage-               (\ x__ y__ -> x__{_FileOptions'goPackage = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'goPackage"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'goPackage-               (\ x__ y__ -> x__{_FileOptions'goPackage = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions-           "ccGenericServices"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'ccGenericServices-               (\ x__ y__ -> x__{_FileOptions'ccGenericServices = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'ccGenericServices"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'ccGenericServices-               (\ x__ y__ -> x__{_FileOptions'ccGenericServices = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions-           "javaGenericServices"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'javaGenericServices-               (\ x__ y__ -> x__{_FileOptions'javaGenericServices = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'javaGenericServices"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'javaGenericServices-               (\ x__ y__ -> x__{_FileOptions'javaGenericServices = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions-           "pyGenericServices"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'pyGenericServices-               (\ x__ y__ -> x__{_FileOptions'pyGenericServices = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'pyGenericServices"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'pyGenericServices-               (\ x__ y__ -> x__{_FileOptions'pyGenericServices = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions-           "phpGenericServices"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'phpGenericServices-               (\ x__ y__ -> x__{_FileOptions'phpGenericServices = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'phpGenericServices"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'phpGenericServices-               (\ x__ y__ -> x__{_FileOptions'phpGenericServices = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions "deprecated"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'deprecated-               (\ x__ y__ -> x__{_FileOptions'deprecated = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'deprecated"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'deprecated-               (\ x__ y__ -> x__{_FileOptions'deprecated = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions "ccEnableArenas"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'ccEnableArenas-               (\ x__ y__ -> x__{_FileOptions'ccEnableArenas = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'ccEnableArenas"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'ccEnableArenas-               (\ x__ y__ -> x__{_FileOptions'ccEnableArenas = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions-           "objcClassPrefix"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'objcClassPrefix-               (\ x__ y__ -> x__{_FileOptions'objcClassPrefix = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'objcClassPrefix"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'objcClassPrefix-               (\ x__ y__ -> x__{_FileOptions'objcClassPrefix = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions-           "csharpNamespace"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'csharpNamespace-               (\ x__ y__ -> x__{_FileOptions'csharpNamespace = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'csharpNamespace"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'csharpNamespace-               (\ x__ y__ -> x__{_FileOptions'csharpNamespace = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions "swiftPrefix"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'swiftPrefix-               (\ x__ y__ -> x__{_FileOptions'swiftPrefix = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'swiftPrefix"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'swiftPrefix-               (\ x__ y__ -> x__{_FileOptions'swiftPrefix = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions "phpClassPrefix"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'phpClassPrefix-               (\ x__ y__ -> x__{_FileOptions'phpClassPrefix = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'phpClassPrefix"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'phpClassPrefix-               (\ x__ y__ -> x__{_FileOptions'phpClassPrefix = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions "phpNamespace"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'phpNamespace-               (\ x__ y__ -> x__{_FileOptions'phpNamespace = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'phpNamespace"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'phpNamespace-               (\ x__ y__ -> x__{_FileOptions'phpNamespace = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions-           "phpMetadataNamespace"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'phpMetadataNamespace-               (\ x__ y__ -> x__{_FileOptions'phpMetadataNamespace = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'phpMetadataNamespace"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'phpMetadataNamespace-               (\ x__ y__ -> x__{_FileOptions'phpMetadataNamespace = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions "rubyPackage"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'rubyPackage-               (\ x__ y__ -> x__{_FileOptions'rubyPackage = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField FileOptions-           "maybe'rubyPackage"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'rubyPackage-               (\ x__ y__ -> x__{_FileOptions'rubyPackage = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField FileOptions-           "uninterpretedOption"-           ([UninterpretedOption])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'uninterpretedOption-               (\ x__ y__ -> x__{_FileOptions'uninterpretedOption = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField FileOptions-           "vec'uninterpretedOption"-           (Data.Vector.Vector UninterpretedOption)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _FileOptions'uninterpretedOption-               (\ x__ y__ -> x__{_FileOptions'uninterpretedOption = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message FileOptions where-        messageName _ = Data.Text.pack "google.protobuf.FileOptions"-        fieldsByTag-          = let javaPackage__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "java_package"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'javaPackage"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                javaOuterClassname__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "java_outer_classname"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'javaOuterClassname"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                javaMultipleFiles__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "java_multiple_files"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'javaMultipleFiles"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                javaGenerateEqualsAndHash__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "java_generate_equals_and_hash"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'javaGenerateEqualsAndHash"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                javaStringCheckUtf8__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "java_string_check_utf8"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'javaStringCheckUtf8"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                optimizeFor__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "optimize_for"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::-                         Data.ProtoLens.FieldTypeDescriptor FileOptions'OptimizeMode)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'optimizeFor"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                goPackage__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "go_package"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'goPackage"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                ccGenericServices__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "cc_generic_services"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'ccGenericServices"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                javaGenericServices__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "java_generic_services"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'javaGenericServices"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                pyGenericServices__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "py_generic_services"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'pyGenericServices"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                phpGenericServices__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "php_generic_services"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'phpGenericServices"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                deprecated__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "deprecated"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'deprecated"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                ccEnableArenas__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "cc_enable_arenas"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'ccEnableArenas"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                objcClassPrefix__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "objc_class_prefix"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'objcClassPrefix"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                csharpNamespace__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "csharp_namespace"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'csharpNamespace"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                swiftPrefix__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "swift_prefix"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'swiftPrefix"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                phpClassPrefix__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "php_class_prefix"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'phpClassPrefix"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                phpNamespace__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "php_namespace"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'phpNamespace"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                phpMetadataNamespace__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "php_metadata_namespace"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'phpMetadataNamespace"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                rubyPackage__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "ruby_package"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'rubyPackage"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-                uninterpretedOption__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "uninterpreted_option"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"uninterpretedOption"))-                      :: Data.ProtoLens.FieldDescriptor FileOptions-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, javaPackage__field_descriptor),-                 (Data.ProtoLens.Tag 8, javaOuterClassname__field_descriptor),-                 (Data.ProtoLens.Tag 10, javaMultipleFiles__field_descriptor),-                 (Data.ProtoLens.Tag 20,-                  javaGenerateEqualsAndHash__field_descriptor),-                 (Data.ProtoLens.Tag 27, javaStringCheckUtf8__field_descriptor),-                 (Data.ProtoLens.Tag 9, optimizeFor__field_descriptor),-                 (Data.ProtoLens.Tag 11, goPackage__field_descriptor),-                 (Data.ProtoLens.Tag 16, ccGenericServices__field_descriptor),-                 (Data.ProtoLens.Tag 17, javaGenericServices__field_descriptor),-                 (Data.ProtoLens.Tag 18, pyGenericServices__field_descriptor),-                 (Data.ProtoLens.Tag 42, phpGenericServices__field_descriptor),-                 (Data.ProtoLens.Tag 23, deprecated__field_descriptor),-                 (Data.ProtoLens.Tag 31, ccEnableArenas__field_descriptor),-                 (Data.ProtoLens.Tag 36, objcClassPrefix__field_descriptor),-                 (Data.ProtoLens.Tag 37, csharpNamespace__field_descriptor),-                 (Data.ProtoLens.Tag 39, swiftPrefix__field_descriptor),-                 (Data.ProtoLens.Tag 40, phpClassPrefix__field_descriptor),-                 (Data.ProtoLens.Tag 41, phpNamespace__field_descriptor),-                 (Data.ProtoLens.Tag 44, phpMetadataNamespace__field_descriptor),-                 (Data.ProtoLens.Tag 45, rubyPackage__field_descriptor),-                 (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _FileOptions'_unknownFields-              (\ x__ y__ -> x__{_FileOptions'_unknownFields = y__})-        defMessage-          = FileOptions{_FileOptions'javaPackage = Prelude.Nothing,-                        _FileOptions'javaOuterClassname = Prelude.Nothing,-                        _FileOptions'javaMultipleFiles = Prelude.Nothing,-                        _FileOptions'javaGenerateEqualsAndHash = Prelude.Nothing,-                        _FileOptions'javaStringCheckUtf8 = Prelude.Nothing,-                        _FileOptions'optimizeFor = Prelude.Nothing,-                        _FileOptions'goPackage = Prelude.Nothing,-                        _FileOptions'ccGenericServices = Prelude.Nothing,-                        _FileOptions'javaGenericServices = Prelude.Nothing,-                        _FileOptions'pyGenericServices = Prelude.Nothing,-                        _FileOptions'phpGenericServices = Prelude.Nothing,-                        _FileOptions'deprecated = Prelude.Nothing,-                        _FileOptions'ccEnableArenas = Prelude.Nothing,-                        _FileOptions'objcClassPrefix = Prelude.Nothing,-                        _FileOptions'csharpNamespace = Prelude.Nothing,-                        _FileOptions'swiftPrefix = Prelude.Nothing,-                        _FileOptions'phpClassPrefix = Prelude.Nothing,-                        _FileOptions'phpNamespace = Prelude.Nothing,-                        _FileOptions'phpMetadataNamespace = Prelude.Nothing,-                        _FileOptions'rubyPackage = Prelude.Nothing,-                        _FileOptions'uninterpretedOption = Data.Vector.Generic.empty,-                        _FileOptions'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     FileOptions ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         UninterpretedOption-                         -> Data.ProtoLens.Encoding.Bytes.Parser FileOptions-                loop x mutable'uninterpretedOption-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                            (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                               mutable'uninterpretedOption)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set-                                    (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                                    frozen'uninterpretedOption-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "java_package"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"javaPackage")-                                              y-                                              x)-                                           mutable'uninterpretedOption-                                66 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?>-                                                "java_outer_classname"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"javaOuterClassname")-                                              y-                                              x)-                                           mutable'uninterpretedOption-                                80 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?>-                                                "java_multiple_files"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"javaMultipleFiles")-                                              y-                                              x)-                                           mutable'uninterpretedOption-                                160 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                  Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                 Data.ProtoLens.Encoding.Bytes.<?>-                                                 "java_generate_equals_and_hash"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field-                                                  @"javaGenerateEqualsAndHash")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                216 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                  Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                 Data.ProtoLens.Encoding.Bytes.<?>-                                                 "java_string_check_utf8"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"javaStringCheckUtf8")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                72 -> do y <- (Prelude.fmap Prelude.toEnum-                                                 (Prelude.fmap Prelude.fromIntegral-                                                    Data.ProtoLens.Encoding.Bytes.getVarInt))-                                                Data.ProtoLens.Encoding.Bytes.<?> "optimize_for"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"optimizeFor")-                                              y-                                              x)-                                           mutable'uninterpretedOption-                                90 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "go_package"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"goPackage")-                                              y-                                              x)-                                           mutable'uninterpretedOption-                                128 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                  Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                 Data.ProtoLens.Encoding.Bytes.<?>-                                                 "cc_generic_services"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"ccGenericServices")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                136 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                  Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                 Data.ProtoLens.Encoding.Bytes.<?>-                                                 "java_generic_services"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"javaGenericServices")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                144 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                  Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                 Data.ProtoLens.Encoding.Bytes.<?>-                                                 "py_generic_services"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"pyGenericServices")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                336 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                  Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                 Data.ProtoLens.Encoding.Bytes.<?>-                                                 "php_generic_services"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"phpGenericServices")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                184 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                  Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "deprecated"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"deprecated")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                248 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                  Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                 Data.ProtoLens.Encoding.Bytes.<?>-                                                 "cc_enable_arenas"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"ccEnableArenas")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                290 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                               Data.ProtoLens.Encoding.Bytes.getBytes-                                                                 (Prelude.fromIntegral len)-                                                   Data.ProtoLens.Encoding.Bytes.runEither-                                                     (case Data.Text.Encoding.decodeUtf8' value of-                                                          Prelude.Left err -> Prelude.Left-                                                                                (Prelude.show err)-                                                          Prelude.Right r -> Prelude.Right r))-                                                 Data.ProtoLens.Encoding.Bytes.<?>-                                                 "objc_class_prefix"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"objcClassPrefix")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                298 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                               Data.ProtoLens.Encoding.Bytes.getBytes-                                                                 (Prelude.fromIntegral len)-                                                   Data.ProtoLens.Encoding.Bytes.runEither-                                                     (case Data.Text.Encoding.decodeUtf8' value of-                                                          Prelude.Left err -> Prelude.Left-                                                                                (Prelude.show err)-                                                          Prelude.Right r -> Prelude.Right r))-                                                 Data.ProtoLens.Encoding.Bytes.<?>-                                                 "csharp_namespace"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"csharpNamespace")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                314 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                               Data.ProtoLens.Encoding.Bytes.getBytes-                                                                 (Prelude.fromIntegral len)-                                                   Data.ProtoLens.Encoding.Bytes.runEither-                                                     (case Data.Text.Encoding.decodeUtf8' value of-                                                          Prelude.Left err -> Prelude.Left-                                                                                (Prelude.show err)-                                                          Prelude.Right r -> Prelude.Right r))-                                                 Data.ProtoLens.Encoding.Bytes.<?> "swift_prefix"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"swiftPrefix")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                322 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                               Data.ProtoLens.Encoding.Bytes.getBytes-                                                                 (Prelude.fromIntegral len)-                                                   Data.ProtoLens.Encoding.Bytes.runEither-                                                     (case Data.Text.Encoding.decodeUtf8' value of-                                                          Prelude.Left err -> Prelude.Left-                                                                                (Prelude.show err)-                                                          Prelude.Right r -> Prelude.Right r))-                                                 Data.ProtoLens.Encoding.Bytes.<?>-                                                 "php_class_prefix"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"phpClassPrefix")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                330 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                               Data.ProtoLens.Encoding.Bytes.getBytes-                                                                 (Prelude.fromIntegral len)-                                                   Data.ProtoLens.Encoding.Bytes.runEither-                                                     (case Data.Text.Encoding.decodeUtf8' value of-                                                          Prelude.Left err -> Prelude.Left-                                                                                (Prelude.show err)-                                                          Prelude.Right r -> Prelude.Right r))-                                                 Data.ProtoLens.Encoding.Bytes.<?> "php_namespace"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"phpNamespace")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                354 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                               Data.ProtoLens.Encoding.Bytes.getBytes-                                                                 (Prelude.fromIntegral len)-                                                   Data.ProtoLens.Encoding.Bytes.runEither-                                                     (case Data.Text.Encoding.decodeUtf8' value of-                                                          Prelude.Left err -> Prelude.Left-                                                                                (Prelude.show err)-                                                          Prelude.Right r -> Prelude.Right r))-                                                 Data.ProtoLens.Encoding.Bytes.<?>-                                                 "php_metadata_namespace"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"phpMetadataNamespace")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                362 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                               Data.ProtoLens.Encoding.Bytes.getBytes-                                                                 (Prelude.fromIntegral len)-                                                   Data.ProtoLens.Encoding.Bytes.runEither-                                                     (case Data.Text.Encoding.decodeUtf8' value of-                                                          Prelude.Left err -> Prelude.Left-                                                                                (Prelude.show err)-                                                          Prelude.Right r -> Prelude.Right r))-                                                 Data.ProtoLens.Encoding.Bytes.<?> "ruby_package"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"rubyPackage")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                     Data.ProtoLens.Encoding.Bytes.isolate-                                                       (Prelude.fromIntegral len)-                                                       Data.ProtoLens.parseMessage)-                                                   Data.ProtoLens.Encoding.Bytes.<?>-                                                   "uninterpreted_option"-                                           v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                  (Data.ProtoLens.Encoding.Growing.append-                                                     mutable'uninterpretedOption-                                                     y)-                                           loop x v-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'uninterpretedOption-              in-              (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                   Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'uninterpretedOption)-                Data.ProtoLens.Encoding.Bytes.<?> "FileOptions"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'javaPackage")-                    _x-                  of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                                         Data.Monoid.<>-                                         (((\ bs ->-                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                                Data.Monoid.<>-                                                Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                            Prelude.. Data.Text.Encoding.encodeUtf8)-                                           _v)-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view-                      (Data.ProtoLens.Field.field @"maybe'javaOuterClassname")-                      _x-                    of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 66)-                                           Data.Monoid.<>-                                           (((\ bs ->-                                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                   (Prelude.fromIntegral-                                                      (Data.ByteString.length bs)))-                                                  Data.Monoid.<>-                                                  Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                              Prelude.. Data.Text.Encoding.encodeUtf8)-                                             _v)-                   Data.Monoid.<>-                   (case-                      Lens.Family2.view-                        (Data.ProtoLens.Field.field @"maybe'javaMultipleFiles")-                        _x-                      of-                        (Prelude.Nothing) -> Data.Monoid.mempty-                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 80)-                                             Data.Monoid.<>-                                             ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                                (\ b -> if b then 1 else 0))-                                               _v)-                     Data.Monoid.<>-                     (case-                        Lens.Family2.view-                          (Data.ProtoLens.Field.field @"maybe'javaGenerateEqualsAndHash")-                          _x-                        of-                          (Prelude.Nothing) -> Data.Monoid.mempty-                          Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 160)-                                               Data.Monoid.<>-                                               ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                                  (\ b -> if b then 1 else 0))-                                                 _v)-                       Data.Monoid.<>-                       (case-                          Lens.Family2.view-                            (Data.ProtoLens.Field.field @"maybe'javaStringCheckUtf8")-                            _x-                          of-                            (Prelude.Nothing) -> Data.Monoid.mempty-                            Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 216)-                                                 Data.Monoid.<>-                                                 ((Data.ProtoLens.Encoding.Bytes.putVarInt)-                                                    Prelude.. (\ b -> if b then 1 else 0))-                                                   _v)-                         Data.Monoid.<>-                         (case-                            Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'optimizeFor")-                              _x-                            of-                              (Prelude.Nothing) -> Data.Monoid.mempty-                              Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 72)-                                                   Data.Monoid.<>-                                                   (((Data.ProtoLens.Encoding.Bytes.putVarInt)-                                                       Prelude.. Prelude.fromIntegral)-                                                      Prelude.. Prelude.fromEnum)-                                                     _v)-                           Data.Monoid.<>-                           (case-                              Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'goPackage")-                                _x-                              of-                                (Prelude.Nothing) -> Data.Monoid.mempty-                                Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 90)-                                                     Data.Monoid.<>-                                                     (((\ bs ->-                                                          (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                             (Prelude.fromIntegral-                                                                (Data.ByteString.length bs)))-                                                            Data.Monoid.<>-                                                            Data.ProtoLens.Encoding.Bytes.putBytes-                                                              bs))-                                                        Prelude.. Data.Text.Encoding.encodeUtf8)-                                                       _v)-                             Data.Monoid.<>-                             (case-                                Lens.Family2.view-                                  (Data.ProtoLens.Field.field @"maybe'ccGenericServices")-                                  _x-                                of-                                  (Prelude.Nothing) -> Data.Monoid.mempty-                                  Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 128)-                                                       Data.Monoid.<>-                                                       ((Data.ProtoLens.Encoding.Bytes.putVarInt)-                                                          Prelude.. (\ b -> if b then 1 else 0))-                                                         _v)-                               Data.Monoid.<>-                               (case-                                  Lens.Family2.view-                                    (Data.ProtoLens.Field.field @"maybe'javaGenericServices")-                                    _x-                                  of-                                    (Prelude.Nothing) -> Data.Monoid.mempty-                                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 136)-                                                         Data.Monoid.<>-                                                         ((Data.ProtoLens.Encoding.Bytes.putVarInt)-                                                            Prelude.. (\ b -> if b then 1 else 0))-                                                           _v)-                                 Data.Monoid.<>-                                 (case-                                    Lens.Family2.view-                                      (Data.ProtoLens.Field.field @"maybe'pyGenericServices")-                                      _x-                                    of-                                      (Prelude.Nothing) -> Data.Monoid.mempty-                                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                            144)-                                                           Data.Monoid.<>-                                                           ((Data.ProtoLens.Encoding.Bytes.putVarInt)-                                                              Prelude.. (\ b -> if b then 1 else 0))-                                                             _v)-                                   Data.Monoid.<>-                                   (case-                                      Lens.Family2.view-                                        (Data.ProtoLens.Field.field @"maybe'phpGenericServices")-                                        _x-                                      of-                                        (Prelude.Nothing) -> Data.Monoid.mempty-                                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                              336)-                                                             Data.Monoid.<>-                                                             ((Data.ProtoLens.Encoding.Bytes.putVarInt)-                                                                Prelude..-                                                                (\ b -> if b then 1 else 0))-                                                               _v)-                                     Data.Monoid.<>-                                     (case-                                        Lens.Family2.view-                                          (Data.ProtoLens.Field.field @"maybe'deprecated")-                                          _x-                                        of-                                          (Prelude.Nothing) -> Data.Monoid.mempty-                                          Prelude.Just-                                            _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 184)-                                                    Data.Monoid.<>-                                                    ((Data.ProtoLens.Encoding.Bytes.putVarInt)-                                                       Prelude.. (\ b -> if b then 1 else 0))-                                                      _v)-                                       Data.Monoid.<>-                                       (case-                                          Lens.Family2.view-                                            (Data.ProtoLens.Field.field @"maybe'ccEnableArenas")-                                            _x-                                          of-                                            (Prelude.Nothing) -> Data.Monoid.mempty-                                            Prelude.Just-                                              _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 248)-                                                      Data.Monoid.<>-                                                      ((Data.ProtoLens.Encoding.Bytes.putVarInt)-                                                         Prelude.. (\ b -> if b then 1 else 0))-                                                        _v)-                                         Data.Monoid.<>-                                         (case-                                            Lens.Family2.view-                                              (Data.ProtoLens.Field.field @"maybe'objcClassPrefix")-                                              _x-                                            of-                                              (Prelude.Nothing) -> Data.Monoid.mempty-                                              Prelude.Just-                                                _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 290)-                                                        Data.Monoid.<>-                                                        (((\ bs ->-                                                             (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                (Prelude.fromIntegral-                                                                   (Data.ByteString.length bs)))-                                                               Data.Monoid.<>-                                                               Data.ProtoLens.Encoding.Bytes.putBytes-                                                                 bs))-                                                           Prelude.. Data.Text.Encoding.encodeUtf8)-                                                          _v)-                                           Data.Monoid.<>-                                           (case-                                              Lens.Family2.view-                                                (Data.ProtoLens.Field.field-                                                   @"maybe'csharpNamespace")-                                                _x-                                              of-                                                (Prelude.Nothing) -> Data.Monoid.mempty-                                                Prelude.Just-                                                  _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                           298)-                                                          Data.Monoid.<>-                                                          (((\ bs ->-                                                               (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                  (Prelude.fromIntegral-                                                                     (Data.ByteString.length bs)))-                                                                 Data.Monoid.<>-                                                                 Data.ProtoLens.Encoding.Bytes.putBytes-                                                                   bs))-                                                             Prelude..-                                                             Data.Text.Encoding.encodeUtf8)-                                                            _v)-                                             Data.Monoid.<>-                                             (case-                                                Lens.Family2.view-                                                  (Data.ProtoLens.Field.field @"maybe'swiftPrefix")-                                                  _x-                                                of-                                                  (Prelude.Nothing) -> Data.Monoid.mempty-                                                  Prelude.Just-                                                    _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                             314)-                                                            Data.Monoid.<>-                                                            (((\ bs ->-                                                                 (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                    (Prelude.fromIntegral-                                                                       (Data.ByteString.length bs)))-                                                                   Data.Monoid.<>-                                                                   Data.ProtoLens.Encoding.Bytes.putBytes-                                                                     bs))-                                                               Prelude..-                                                               Data.Text.Encoding.encodeUtf8)-                                                              _v)-                                               Data.Monoid.<>-                                               (case-                                                  Lens.Family2.view-                                                    (Data.ProtoLens.Field.field-                                                       @"maybe'phpClassPrefix")-                                                    _x-                                                  of-                                                    (Prelude.Nothing) -> Data.Monoid.mempty-                                                    Prelude.Just-                                                      _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                               322)-                                                              Data.Monoid.<>-                                                              (((\ bs ->-                                                                   (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                      (Prelude.fromIntegral-                                                                         (Data.ByteString.length-                                                                            bs)))-                                                                     Data.Monoid.<>-                                                                     Data.ProtoLens.Encoding.Bytes.putBytes-                                                                       bs))-                                                                 Prelude..-                                                                 Data.Text.Encoding.encodeUtf8)-                                                                _v)-                                                 Data.Monoid.<>-                                                 (case-                                                    Lens.Family2.view-                                                      (Data.ProtoLens.Field.field-                                                         @"maybe'phpNamespace")-                                                      _x-                                                    of-                                                      (Prelude.Nothing) -> Data.Monoid.mempty-                                                      Prelude.Just-                                                        _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                 330)-                                                                Data.Monoid.<>-                                                                (((\ bs ->-                                                                     (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                        (Prelude.fromIntegral-                                                                           (Data.ByteString.length-                                                                              bs)))-                                                                       Data.Monoid.<>-                                                                       Data.ProtoLens.Encoding.Bytes.putBytes-                                                                         bs))-                                                                   Prelude..-                                                                   Data.Text.Encoding.encodeUtf8)-                                                                  _v)-                                                   Data.Monoid.<>-                                                   (case-                                                      Lens.Family2.view-                                                        (Data.ProtoLens.Field.field-                                                           @"maybe'phpMetadataNamespace")-                                                        _x-                                                      of-                                                        (Prelude.Nothing) -> Data.Monoid.mempty-                                                        Prelude.Just-                                                          _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                   354)-                                                                  Data.Monoid.<>-                                                                  (((\ bs ->-                                                                       (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                          (Prelude.fromIntegral-                                                                             (Data.ByteString.length-                                                                                bs)))-                                                                         Data.Monoid.<>-                                                                         Data.ProtoLens.Encoding.Bytes.putBytes-                                                                           bs))-                                                                     Prelude..-                                                                     Data.Text.Encoding.encodeUtf8)-                                                                    _v)-                                                     Data.Monoid.<>-                                                     (case-                                                        Lens.Family2.view-                                                          (Data.ProtoLens.Field.field-                                                             @"maybe'rubyPackage")-                                                          _x-                                                        of-                                                          (Prelude.Nothing) -> Data.Monoid.mempty-                                                          Prelude.Just-                                                            _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                     362)-                                                                    Data.Monoid.<>-                                                                    (((\ bs ->-                                                                         (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                            (Prelude.fromIntegral-                                                                               (Data.ByteString.length-                                                                                  bs)))-                                                                           Data.Monoid.<>-                                                                           Data.ProtoLens.Encoding.Bytes.putBytes-                                                                             bs))-                                                                       Prelude..-                                                                       Data.Text.Encoding.encodeUtf8)-                                                                      _v)-                                                       Data.Monoid.<>-                                                       (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                                                          (\ _v ->-                                                             (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                7994)-                                                               Data.Monoid.<>-                                                               (((\ bs ->-                                                                    (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                                       (Prelude.fromIntegral-                                                                          (Data.ByteString.length-                                                                             bs)))-                                                                      Data.Monoid.<>-                                                                      Data.ProtoLens.Encoding.Bytes.putBytes-                                                                        bs))-                                                                  Prelude..-                                                                  Data.ProtoLens.encodeMessage)-                                                                 _v)-                                                          (Lens.Family2.view-                                                             (Data.ProtoLens.Field.field-                                                                @"vec'uninterpretedOption")-                                                             _x))-                                                         Data.Monoid.<>-                                                         Data.ProtoLens.Encoding.Wire.buildFieldSet-                                                           (Lens.Family2.view-                                                              Data.ProtoLens.unknownFields-                                                              _x))-instance Control.DeepSeq.NFData FileOptions where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_FileOptions'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_FileOptions'javaPackage x__)-                    (Control.DeepSeq.deepseq (_FileOptions'javaOuterClassname x__)-                       (Control.DeepSeq.deepseq (_FileOptions'javaMultipleFiles x__)-                          (Control.DeepSeq.deepseq-                             (_FileOptions'javaGenerateEqualsAndHash x__)-                             (Control.DeepSeq.deepseq (_FileOptions'javaStringCheckUtf8 x__)-                                (Control.DeepSeq.deepseq (_FileOptions'optimizeFor x__)-                                   (Control.DeepSeq.deepseq (_FileOptions'goPackage x__)-                                      (Control.DeepSeq.deepseq (_FileOptions'ccGenericServices x__)-                                         (Control.DeepSeq.deepseq-                                            (_FileOptions'javaGenericServices x__)-                                            (Control.DeepSeq.deepseq-                                               (_FileOptions'pyGenericServices x__)-                                               (Control.DeepSeq.deepseq-                                                  (_FileOptions'phpGenericServices x__)-                                                  (Control.DeepSeq.deepseq-                                                     (_FileOptions'deprecated x__)-                                                     (Control.DeepSeq.deepseq-                                                        (_FileOptions'ccEnableArenas x__)-                                                        (Control.DeepSeq.deepseq-                                                           (_FileOptions'objcClassPrefix x__)-                                                           (Control.DeepSeq.deepseq-                                                              (_FileOptions'csharpNamespace x__)-                                                              (Control.DeepSeq.deepseq-                                                                 (_FileOptions'swiftPrefix x__)-                                                                 (Control.DeepSeq.deepseq-                                                                    (_FileOptions'phpClassPrefix-                                                                       x__)-                                                                    (Control.DeepSeq.deepseq-                                                                       (_FileOptions'phpNamespace-                                                                          x__)-                                                                       (Control.DeepSeq.deepseq-                                                                          (_FileOptions'phpMetadataNamespace-                                                                             x__)-                                                                          (Control.DeepSeq.deepseq-                                                                             (_FileOptions'rubyPackage-                                                                                x__)-                                                                             (Control.DeepSeq.deepseq-                                                                                (_FileOptions'uninterpretedOption-                                                                                   x__)-                                                                                (())))))))))))))))))))))))-data FileOptions'OptimizeMode = FileOptions'SPEED-                              | FileOptions'CODE_SIZE-                              | FileOptions'LITE_RUNTIME-                                  deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.MessageEnum FileOptions'OptimizeMode where-        maybeToEnum 1 = Prelude.Just FileOptions'SPEED-        maybeToEnum 2 = Prelude.Just FileOptions'CODE_SIZE-        maybeToEnum 3 = Prelude.Just FileOptions'LITE_RUNTIME-        maybeToEnum _ = Prelude.Nothing-        showEnum FileOptions'SPEED = "SPEED"-        showEnum FileOptions'CODE_SIZE = "CODE_SIZE"-        showEnum FileOptions'LITE_RUNTIME = "LITE_RUNTIME"-        readEnum k-          | (k) Prelude.== "SPEED" = Prelude.Just FileOptions'SPEED-          | (k) Prelude.== "CODE_SIZE" = Prelude.Just FileOptions'CODE_SIZE-          | (k) Prelude.== "LITE_RUNTIME" =-            Prelude.Just FileOptions'LITE_RUNTIME-        readEnum k-          = (Text.Read.readMaybe k) Prelude.>>= Data.ProtoLens.maybeToEnum-instance Prelude.Bounded FileOptions'OptimizeMode where-        minBound = FileOptions'SPEED-        maxBound = FileOptions'LITE_RUNTIME-instance Prelude.Enum FileOptions'OptimizeMode where-        toEnum k__-          = Prelude.maybe-              (Prelude.error-                 (("toEnum: unknown value for enum OptimizeMode: ") Prelude.++-                    Prelude.show k__))-              Prelude.id-              (Data.ProtoLens.maybeToEnum k__)-        fromEnum FileOptions'SPEED = 1-        fromEnum FileOptions'CODE_SIZE = 2-        fromEnum FileOptions'LITE_RUNTIME = 3-        succ FileOptions'LITE_RUNTIME-          = Prelude.error-              "FileOptions'OptimizeMode.succ: bad argument FileOptions'LITE_RUNTIME. This value would be out of bounds."-        succ FileOptions'SPEED = FileOptions'CODE_SIZE-        succ FileOptions'CODE_SIZE = FileOptions'LITE_RUNTIME-        pred FileOptions'SPEED-          = Prelude.error-              "FileOptions'OptimizeMode.pred: bad argument FileOptions'SPEED. This value would be out of bounds."-        pred FileOptions'CODE_SIZE = FileOptions'SPEED-        pred FileOptions'LITE_RUNTIME = FileOptions'CODE_SIZE-        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 FileOptions'OptimizeMode where-        fieldDefault = FileOptions'SPEED-instance Control.DeepSeq.NFData FileOptions'OptimizeMode where-        rnf x__ = Prelude.seq x__ (())-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.annotation' @:: Lens' GeneratedCodeInfo [GeneratedCodeInfo'Annotation]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'annotation' @:: Lens' GeneratedCodeInfo-  (Data.Vector.Vector GeneratedCodeInfo'Annotation)@- -}-data GeneratedCodeInfo = GeneratedCodeInfo{_GeneratedCodeInfo'annotation-                                           :: !(Data.Vector.Vector GeneratedCodeInfo'Annotation),-                                           _GeneratedCodeInfo'_unknownFields ::-                                           !Data.ProtoLens.FieldSet}-                           deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show GeneratedCodeInfo where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField GeneratedCodeInfo-           "annotation"-           ([GeneratedCodeInfo'Annotation])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'annotation-               (\ x__ y__ -> x__{_GeneratedCodeInfo'annotation = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField GeneratedCodeInfo-           "vec'annotation"-           (Data.Vector.Vector GeneratedCodeInfo'Annotation)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'annotation-               (\ x__ y__ -> x__{_GeneratedCodeInfo'annotation = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message GeneratedCodeInfo where-        messageName _ = Data.Text.pack "google.protobuf.GeneratedCodeInfo"-        fieldsByTag-          = let annotation__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "annotation"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor GeneratedCodeInfo'Annotation)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"annotation"))-                      :: Data.ProtoLens.FieldDescriptor GeneratedCodeInfo-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, annotation__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _GeneratedCodeInfo'_unknownFields-              (\ x__ y__ -> x__{_GeneratedCodeInfo'_unknownFields = y__})-        defMessage-          = GeneratedCodeInfo{_GeneratedCodeInfo'annotation =-                                Data.Vector.Generic.empty,-                              _GeneratedCodeInfo'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     GeneratedCodeInfo ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         GeneratedCodeInfo'Annotation-                         -> Data.ProtoLens.Encoding.Bytes.Parser GeneratedCodeInfo-                loop x mutable'annotation-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'annotation <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                   (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                      mutable'annotation)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'annotation")-                                    frozen'annotation-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "annotation"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'annotation-                                                   y)-                                         loop x v-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'annotation-              in-              (do mutable'annotation <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                          Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'annotation)-                Data.ProtoLens.Encoding.Bytes.<?> "GeneratedCodeInfo"-        buildMessage-          = (\ _x ->-               (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                  (\ _v ->-                     (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>-                       (((\ bs ->-                            (Data.ProtoLens.Encoding.Bytes.putVarInt-                               (Prelude.fromIntegral (Data.ByteString.length bs)))-                              Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Prelude.. Data.ProtoLens.encodeMessage)-                         _v)-                  (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'annotation")-                     _x))-                 Data.Monoid.<>-                 Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData GeneratedCodeInfo where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_GeneratedCodeInfo'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_GeneratedCodeInfo'annotation x__) (())))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.path' @:: Lens' GeneratedCodeInfo'Annotation [Data.Int.Int32]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'path' @:: Lens' GeneratedCodeInfo'Annotation-  (Data.Vector.Unboxed.Vector Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.sourceFile' @:: Lens' GeneratedCodeInfo'Annotation Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'sourceFile' @:: Lens' GeneratedCodeInfo'Annotation (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.begin' @:: Lens' GeneratedCodeInfo'Annotation Data.Int.Int32@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'begin' @:: Lens' GeneratedCodeInfo'Annotation (Prelude.Maybe Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.end' @:: Lens' GeneratedCodeInfo'Annotation Data.Int.Int32@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'end' @:: Lens' GeneratedCodeInfo'Annotation (Prelude.Maybe Data.Int.Int32)@- -}-data GeneratedCodeInfo'Annotation = GeneratedCodeInfo'Annotation{_GeneratedCodeInfo'Annotation'path-                                                                 ::-                                                                 !(Data.Vector.Unboxed.Vector-                                                                     Data.Int.Int32),-                                                                 _GeneratedCodeInfo'Annotation'sourceFile-                                                                 :: !(Prelude.Maybe Data.Text.Text),-                                                                 _GeneratedCodeInfo'Annotation'begin-                                                                 :: !(Prelude.Maybe Data.Int.Int32),-                                                                 _GeneratedCodeInfo'Annotation'end-                                                                 :: !(Prelude.Maybe Data.Int.Int32),-                                                                 _GeneratedCodeInfo'Annotation'_unknownFields-                                                                 :: !Data.ProtoLens.FieldSet}-                                      deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show GeneratedCodeInfo'Annotation where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation-           "path"-           ([Data.Int.Int32])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'path-               (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'path = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation-           "vec'path"-           (Data.Vector.Unboxed.Vector Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'path-               (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'path = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation-           "sourceFile"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _GeneratedCodeInfo'Annotation'sourceFile-               (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'sourceFile = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation-           "maybe'sourceFile"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _GeneratedCodeInfo'Annotation'sourceFile-               (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'sourceFile = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation-           "begin"-           (Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'begin-               (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'begin = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation-           "maybe'begin"-           (Prelude.Maybe Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'begin-               (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'begin = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation-           "end"-           (Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'end-               (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'end = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation-           "maybe'end"-           (Prelude.Maybe Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'end-               (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'end = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message GeneratedCodeInfo'Annotation where-        messageName _-          = Data.Text.pack "google.protobuf.GeneratedCodeInfo.Annotation"-        fieldsByTag-          = let path__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "path"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed-                         (Data.ProtoLens.Field.field @"path"))-                      :: Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation-                sourceFile__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "source_file"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'sourceFile"))-                      :: Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation-                begin__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "begin"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'begin"))-                      :: Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation-                end__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "end"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'end"))-                      :: Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, path__field_descriptor),-                 (Data.ProtoLens.Tag 2, sourceFile__field_descriptor),-                 (Data.ProtoLens.Tag 3, begin__field_descriptor),-                 (Data.ProtoLens.Tag 4, end__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens-              _GeneratedCodeInfo'Annotation'_unknownFields-              (\ x__ y__ ->-                 x__{_GeneratedCodeInfo'Annotation'_unknownFields = y__})-        defMessage-          = GeneratedCodeInfo'Annotation{_GeneratedCodeInfo'Annotation'path =-                                           Data.Vector.Generic.empty,-                                         _GeneratedCodeInfo'Annotation'sourceFile = Prelude.Nothing,-                                         _GeneratedCodeInfo'Annotation'begin = Prelude.Nothing,-                                         _GeneratedCodeInfo'Annotation'end = Prelude.Nothing,-                                         _GeneratedCodeInfo'Annotation'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     GeneratedCodeInfo'Annotation ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         Data.Int.Int32-                         ->-                         Data.ProtoLens.Encoding.Bytes.Parser GeneratedCodeInfo'Annotation-                loop x mutable'path-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'path <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                             (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                mutable'path)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'path")-                                    frozen'path-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                8 -> do !y <- (Prelude.fmap Prelude.fromIntegral-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "path"-                                        v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                               (Data.ProtoLens.Encoding.Growing.append mutable'path-                                                  y)-                                        loop x v-                                10 -> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                 Data.ProtoLens.Encoding.Bytes.isolate-                                                   (Prelude.fromIntegral len)-                                                   ((let ploop qs-                                                           = do packedEnd <- Data.ProtoLens.Encoding.Bytes.atEnd-                                                                if packedEnd then Prelude.return qs-                                                                  else-                                                                  do !q <- (Prelude.fmap-                                                                              Prelude.fromIntegral-                                                                              Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                                             Data.ProtoLens.Encoding.Bytes.<?>-                                                                             "path"-                                                                     qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                                              (Data.ProtoLens.Encoding.Growing.append-                                                                                 qs-                                                                                 q)-                                                                     ploop qs'-                                                       in ploop)-                                                      mutable'path)-                                         loop x y-                                18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "source_file"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"sourceFile")-                                              y-                                              x)-                                           mutable'path-                                24 -> do y <- (Prelude.fmap Prelude.fromIntegral-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "begin"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"begin") y-                                              x)-                                           mutable'path-                                32 -> do y <- (Prelude.fmap Prelude.fromIntegral-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "end"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"end") y-                                              x)-                                           mutable'path-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'path-              in-              (do mutable'path <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                    Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'path)-                Data.ProtoLens.Encoding.Bytes.<?> "Annotation"-        buildMessage-          = (\ _x ->-               (let p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'path")-                          _x-                  in-                  if Data.Vector.Generic.null p then Data.Monoid.mempty else-                    (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>-                      (\ bs ->-                         (Data.ProtoLens.Encoding.Bytes.putVarInt-                            (Prelude.fromIntegral (Data.ByteString.length bs)))-                           Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)-                        (Data.ProtoLens.Encoding.Bytes.runBuilder-                           (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                              ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                 Prelude.fromIntegral)-                              p)))-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'sourceFile")-                      _x-                    of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                                           Data.Monoid.<>-                                           (((\ bs ->-                                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                   (Prelude.fromIntegral-                                                      (Data.ByteString.length bs)))-                                                  Data.Monoid.<>-                                                  Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                              Prelude.. Data.Text.Encoding.encodeUtf8)-                                             _v)-                   Data.Monoid.<>-                   (case-                      Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'begin") _x of-                        (Prelude.Nothing) -> Data.Monoid.mempty-                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 24)-                                             Data.Monoid.<>-                                             ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                                Prelude.fromIntegral)-                                               _v)-                     Data.Monoid.<>-                     (case-                        Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'end") _x of-                          (Prelude.Nothing) -> Data.Monoid.mempty-                          Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 32)-                                               Data.Monoid.<>-                                               ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                                  Prelude.fromIntegral)-                                                 _v)-                       Data.Monoid.<>-                       Data.ProtoLens.Encoding.Wire.buildFieldSet-                         (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData GeneratedCodeInfo'Annotation where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq-                 (_GeneratedCodeInfo'Annotation'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_GeneratedCodeInfo'Annotation'path x__)-                    (Control.DeepSeq.deepseq-                       (_GeneratedCodeInfo'Annotation'sourceFile x__)-                       (Control.DeepSeq.deepseq (_GeneratedCodeInfo'Annotation'begin x__)-                          (Control.DeepSeq.deepseq (_GeneratedCodeInfo'Annotation'end x__)-                             (()))))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.messageSetWireFormat' @:: Lens' MessageOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'messageSetWireFormat' @:: Lens' MessageOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.noStandardDescriptorAccessor' @:: Lens' MessageOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'noStandardDescriptorAccessor' @:: Lens' MessageOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' MessageOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' MessageOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.mapEntry' @:: Lens' MessageOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'mapEntry' @:: Lens' MessageOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' MessageOptions [UninterpretedOption]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' MessageOptions (Data.Vector.Vector UninterpretedOption)@- -}-data MessageOptions = MessageOptions{_MessageOptions'messageSetWireFormat-                                     :: !(Prelude.Maybe Prelude.Bool),-                                     _MessageOptions'noStandardDescriptorAccessor ::-                                     !(Prelude.Maybe Prelude.Bool),-                                     _MessageOptions'deprecated :: !(Prelude.Maybe Prelude.Bool),-                                     _MessageOptions'mapEntry :: !(Prelude.Maybe Prelude.Bool),-                                     _MessageOptions'uninterpretedOption ::-                                     !(Data.Vector.Vector UninterpretedOption),-                                     _MessageOptions'_unknownFields :: !Data.ProtoLens.FieldSet}-                        deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show MessageOptions where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField MessageOptions-           "messageSetWireFormat"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MessageOptions'messageSetWireFormat-               (\ x__ y__ -> x__{_MessageOptions'messageSetWireFormat = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField MessageOptions-           "maybe'messageSetWireFormat"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MessageOptions'messageSetWireFormat-               (\ x__ y__ -> x__{_MessageOptions'messageSetWireFormat = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField MessageOptions-           "noStandardDescriptorAccessor"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _MessageOptions'noStandardDescriptorAccessor-               (\ x__ y__ ->-                  x__{_MessageOptions'noStandardDescriptorAccessor = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField MessageOptions-           "maybe'noStandardDescriptorAccessor"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _MessageOptions'noStandardDescriptorAccessor-               (\ x__ y__ ->-                  x__{_MessageOptions'noStandardDescriptorAccessor = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField MessageOptions "deprecated"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MessageOptions'deprecated-               (\ x__ y__ -> x__{_MessageOptions'deprecated = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField MessageOptions-           "maybe'deprecated"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MessageOptions'deprecated-               (\ x__ y__ -> x__{_MessageOptions'deprecated = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField MessageOptions "mapEntry"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MessageOptions'mapEntry-               (\ x__ y__ -> x__{_MessageOptions'mapEntry = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField MessageOptions-           "maybe'mapEntry"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MessageOptions'mapEntry-               (\ x__ y__ -> x__{_MessageOptions'mapEntry = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField MessageOptions-           "uninterpretedOption"-           ([UninterpretedOption])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MessageOptions'uninterpretedOption-               (\ x__ y__ -> x__{_MessageOptions'uninterpretedOption = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField MessageOptions-           "vec'uninterpretedOption"-           (Data.Vector.Vector UninterpretedOption)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MessageOptions'uninterpretedOption-               (\ x__ y__ -> x__{_MessageOptions'uninterpretedOption = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message MessageOptions where-        messageName _ = Data.Text.pack "google.protobuf.MessageOptions"-        fieldsByTag-          = let messageSetWireFormat__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "message_set_wire_format"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'messageSetWireFormat"))-                      :: Data.ProtoLens.FieldDescriptor MessageOptions-                noStandardDescriptorAccessor__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "no_standard_descriptor_accessor"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'noStandardDescriptorAccessor"))-                      :: Data.ProtoLens.FieldDescriptor MessageOptions-                deprecated__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "deprecated"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'deprecated"))-                      :: Data.ProtoLens.FieldDescriptor MessageOptions-                mapEntry__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "map_entry"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'mapEntry"))-                      :: Data.ProtoLens.FieldDescriptor MessageOptions-                uninterpretedOption__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "uninterpreted_option"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"uninterpretedOption"))-                      :: Data.ProtoLens.FieldDescriptor MessageOptions-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, messageSetWireFormat__field_descriptor),-                 (Data.ProtoLens.Tag 2,-                  noStandardDescriptorAccessor__field_descriptor),-                 (Data.ProtoLens.Tag 3, deprecated__field_descriptor),-                 (Data.ProtoLens.Tag 7, mapEntry__field_descriptor),-                 (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _MessageOptions'_unknownFields-              (\ x__ y__ -> x__{_MessageOptions'_unknownFields = y__})-        defMessage-          = MessageOptions{_MessageOptions'messageSetWireFormat =-                             Prelude.Nothing,-                           _MessageOptions'noStandardDescriptorAccessor = Prelude.Nothing,-                           _MessageOptions'deprecated = Prelude.Nothing,-                           _MessageOptions'mapEntry = Prelude.Nothing,-                           _MessageOptions'uninterpretedOption = Data.Vector.Generic.empty,-                           _MessageOptions'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     MessageOptions ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         UninterpretedOption-                         -> Data.ProtoLens.Encoding.Bytes.Parser MessageOptions-                loop x mutable'uninterpretedOption-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                            (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                               mutable'uninterpretedOption)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set-                                    (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                                    frozen'uninterpretedOption-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                8 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                Data.ProtoLens.Encoding.Bytes.getVarInt)-                                               Data.ProtoLens.Encoding.Bytes.<?>-                                               "message_set_wire_format"-                                        loop-                                          (Lens.Family2.set-                                             (Data.ProtoLens.Field.field @"messageSetWireFormat")-                                             y-                                             x)-                                          mutable'uninterpretedOption-                                16 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?>-                                                "no_standard_descriptor_accessor"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field-                                                 @"noStandardDescriptorAccessor")-                                              y-                                              x)-                                           mutable'uninterpretedOption-                                24 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "deprecated"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"deprecated")-                                              y-                                              x)-                                           mutable'uninterpretedOption-                                56 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "map_entry"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"mapEntry")-                                              y-                                              x)-                                           mutable'uninterpretedOption-                                7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                     Data.ProtoLens.Encoding.Bytes.isolate-                                                       (Prelude.fromIntegral len)-                                                       Data.ProtoLens.parseMessage)-                                                   Data.ProtoLens.Encoding.Bytes.<?>-                                                   "uninterpreted_option"-                                           v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                  (Data.ProtoLens.Encoding.Growing.append-                                                     mutable'uninterpretedOption-                                                     y)-                                           loop x v-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'uninterpretedOption-              in-              (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                   Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'uninterpretedOption)-                Data.ProtoLens.Encoding.Bytes.<?> "MessageOptions"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view-                    (Data.ProtoLens.Field.field @"maybe'messageSetWireFormat")-                    _x-                  of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 8)-                                         Data.Monoid.<>-                                         ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                            (\ b -> if b then 1 else 0))-                                           _v)-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view-                      (Data.ProtoLens.Field.field @"maybe'noStandardDescriptorAccessor")-                      _x-                    of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 16)-                                           Data.Monoid.<>-                                           ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                              (\ b -> if b then 1 else 0))-                                             _v)-                   Data.Monoid.<>-                   (case-                      Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'deprecated")-                        _x-                      of-                        (Prelude.Nothing) -> Data.Monoid.mempty-                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 24)-                                             Data.Monoid.<>-                                             ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                                (\ b -> if b then 1 else 0))-                                               _v)-                     Data.Monoid.<>-                     (case-                        Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'mapEntry") _x-                        of-                          (Prelude.Nothing) -> Data.Monoid.mempty-                          Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 56)-                                               Data.Monoid.<>-                                               ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                                  (\ b -> if b then 1 else 0))-                                                 _v)-                       Data.Monoid.<>-                       (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                          (\ _v ->-                             (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<>-                               (((\ bs ->-                                    (Data.ProtoLens.Encoding.Bytes.putVarInt-                                       (Prelude.fromIntegral (Data.ByteString.length bs)))-                                      Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                  Prelude.. Data.ProtoLens.encodeMessage)-                                 _v)-                          (Lens.Family2.view-                             (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                             _x))-                         Data.Monoid.<>-                         Data.ProtoLens.Encoding.Wire.buildFieldSet-                           (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData MessageOptions where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_MessageOptions'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_MessageOptions'messageSetWireFormat x__)-                    (Control.DeepSeq.deepseq-                       (_MessageOptions'noStandardDescriptorAccessor x__)-                       (Control.DeepSeq.deepseq (_MessageOptions'deprecated x__)-                          (Control.DeepSeq.deepseq (_MessageOptions'mapEntry x__)-                             (Control.DeepSeq.deepseq (_MessageOptions'uninterpretedOption x__)-                                (())))))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' MethodDescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' MethodDescriptorProto (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.inputType' @:: Lens' MethodDescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'inputType' @:: Lens' MethodDescriptorProto (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.outputType' @:: Lens' MethodDescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'outputType' @:: Lens' MethodDescriptorProto (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' MethodDescriptorProto MethodOptions@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' MethodDescriptorProto (Prelude.Maybe MethodOptions)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.clientStreaming' @:: Lens' MethodDescriptorProto Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'clientStreaming' @:: Lens' MethodDescriptorProto (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.serverStreaming' @:: Lens' MethodDescriptorProto Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'serverStreaming' @:: Lens' MethodDescriptorProto (Prelude.Maybe Prelude.Bool)@- -}-data MethodDescriptorProto = MethodDescriptorProto{_MethodDescriptorProto'name-                                                   :: !(Prelude.Maybe Data.Text.Text),-                                                   _MethodDescriptorProto'inputType ::-                                                   !(Prelude.Maybe Data.Text.Text),-                                                   _MethodDescriptorProto'outputType ::-                                                   !(Prelude.Maybe Data.Text.Text),-                                                   _MethodDescriptorProto'options ::-                                                   !(Prelude.Maybe MethodOptions),-                                                   _MethodDescriptorProto'clientStreaming ::-                                                   !(Prelude.Maybe Prelude.Bool),-                                                   _MethodDescriptorProto'serverStreaming ::-                                                   !(Prelude.Maybe Prelude.Bool),-                                                   _MethodDescriptorProto'_unknownFields ::-                                                   !Data.ProtoLens.FieldSet}-                               deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show MethodDescriptorProto where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField MethodDescriptorProto "name"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'name-               (\ x__ y__ -> x__{_MethodDescriptorProto'name = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField MethodDescriptorProto-           "maybe'name"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'name-               (\ x__ y__ -> x__{_MethodDescriptorProto'name = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField MethodDescriptorProto-           "inputType"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'inputType-               (\ x__ y__ -> x__{_MethodDescriptorProto'inputType = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField MethodDescriptorProto-           "maybe'inputType"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'inputType-               (\ x__ y__ -> x__{_MethodDescriptorProto'inputType = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField MethodDescriptorProto-           "outputType"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'outputType-               (\ x__ y__ -> x__{_MethodDescriptorProto'outputType = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField MethodDescriptorProto-           "maybe'outputType"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'outputType-               (\ x__ y__ -> x__{_MethodDescriptorProto'outputType = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField MethodDescriptorProto-           "options"-           (MethodOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'options-               (\ x__ y__ -> x__{_MethodDescriptorProto'options = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField MethodDescriptorProto-           "maybe'options"-           (Prelude.Maybe MethodOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MethodDescriptorProto'options-               (\ x__ y__ -> x__{_MethodDescriptorProto'options = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField MethodDescriptorProto-           "clientStreaming"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _MethodDescriptorProto'clientStreaming-               (\ x__ y__ -> x__{_MethodDescriptorProto'clientStreaming = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField MethodDescriptorProto-           "maybe'clientStreaming"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _MethodDescriptorProto'clientStreaming-               (\ x__ y__ -> x__{_MethodDescriptorProto'clientStreaming = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField MethodDescriptorProto-           "serverStreaming"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _MethodDescriptorProto'serverStreaming-               (\ x__ y__ -> x__{_MethodDescriptorProto'serverStreaming = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField MethodDescriptorProto-           "maybe'serverStreaming"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _MethodDescriptorProto'serverStreaming-               (\ x__ y__ -> x__{_MethodDescriptorProto'serverStreaming = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message MethodDescriptorProto where-        messageName _-          = Data.Text.pack "google.protobuf.MethodDescriptorProto"-        fieldsByTag-          = let name__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "name"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'name"))-                      :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto-                inputType__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "input_type"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'inputType"))-                      :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto-                outputType__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "output_type"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'outputType"))-                      :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto-                options__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "options"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor MethodOptions)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'options"))-                      :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto-                clientStreaming__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "client_streaming"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'clientStreaming"))-                      :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto-                serverStreaming__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "server_streaming"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'serverStreaming"))-                      :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, name__field_descriptor),-                 (Data.ProtoLens.Tag 2, inputType__field_descriptor),-                 (Data.ProtoLens.Tag 3, outputType__field_descriptor),-                 (Data.ProtoLens.Tag 4, options__field_descriptor),-                 (Data.ProtoLens.Tag 5, clientStreaming__field_descriptor),-                 (Data.ProtoLens.Tag 6, serverStreaming__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _MethodDescriptorProto'_unknownFields-              (\ x__ y__ -> x__{_MethodDescriptorProto'_unknownFields = y__})-        defMessage-          = MethodDescriptorProto{_MethodDescriptorProto'name =-                                    Prelude.Nothing,-                                  _MethodDescriptorProto'inputType = Prelude.Nothing,-                                  _MethodDescriptorProto'outputType = Prelude.Nothing,-                                  _MethodDescriptorProto'options = Prelude.Nothing,-                                  _MethodDescriptorProto'clientStreaming = Prelude.Nothing,-                                  _MethodDescriptorProto'serverStreaming = Prelude.Nothing,-                                  _MethodDescriptorProto'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     MethodDescriptorProto ->-                       Data.ProtoLens.Encoding.Bytes.Parser MethodDescriptorProto-                loop x-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 x)-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "name"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y-                                              x)-                                18 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "input_type"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"inputType")-                                              y-                                              x)-                                26 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "output_type"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"outputType")-                                              y-                                              x)-                                34 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                  Data.ProtoLens.Encoding.Bytes.isolate-                                                    (Prelude.fromIntegral len)-                                                    Data.ProtoLens.parseMessage)-                                                Data.ProtoLens.Encoding.Bytes.<?> "options"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"options")-                                              y-                                              x)-                                40 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "client_streaming"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"clientStreaming")-                                              y-                                              x)-                                48 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "server_streaming"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"serverStreaming")-                                              y-                                              x)-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-              in-              (do loop Data.ProtoLens.defMessage)-                Data.ProtoLens.Encoding.Bytes.<?> "MethodDescriptorProto"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                                         Data.Monoid.<>-                                         (((\ bs ->-                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                                Data.Monoid.<>-                                                Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                            Prelude.. Data.Text.Encoding.encodeUtf8)-                                           _v)-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'inputType")-                      _x-                    of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                                           Data.Monoid.<>-                                           (((\ bs ->-                                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                   (Prelude.fromIntegral-                                                      (Data.ByteString.length bs)))-                                                  Data.Monoid.<>-                                                  Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                              Prelude.. Data.Text.Encoding.encodeUtf8)-                                             _v)-                   Data.Monoid.<>-                   (case-                      Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'outputType")-                        _x-                      of-                        (Prelude.Nothing) -> Data.Monoid.mempty-                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                                             Data.Monoid.<>-                                             (((\ bs ->-                                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                     (Prelude.fromIntegral-                                                        (Data.ByteString.length bs)))-                                                    Data.Monoid.<>-                                                    Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                                Prelude.. Data.Text.Encoding.encodeUtf8)-                                               _v)-                     Data.Monoid.<>-                     (case-                        Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x-                        of-                          (Prelude.Nothing) -> Data.Monoid.mempty-                          Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 34)-                                               Data.Monoid.<>-                                               (((\ bs ->-                                                    (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                       (Prelude.fromIntegral-                                                          (Data.ByteString.length bs)))-                                                      Data.Monoid.<>-                                                      Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                                  Prelude.. Data.ProtoLens.encodeMessage)-                                                 _v)-                       Data.Monoid.<>-                       (case-                          Lens.Family2.view-                            (Data.ProtoLens.Field.field @"maybe'clientStreaming")-                            _x-                          of-                            (Prelude.Nothing) -> Data.Monoid.mempty-                            Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 40)-                                                 Data.Monoid.<>-                                                 ((Data.ProtoLens.Encoding.Bytes.putVarInt)-                                                    Prelude.. (\ b -> if b then 1 else 0))-                                                   _v)-                         Data.Monoid.<>-                         (case-                            Lens.Family2.view-                              (Data.ProtoLens.Field.field @"maybe'serverStreaming")-                              _x-                            of-                              (Prelude.Nothing) -> Data.Monoid.mempty-                              Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 48)-                                                   Data.Monoid.<>-                                                   ((Data.ProtoLens.Encoding.Bytes.putVarInt)-                                                      Prelude.. (\ b -> if b then 1 else 0))-                                                     _v)-                           Data.Monoid.<>-                           Data.ProtoLens.Encoding.Wire.buildFieldSet-                             (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData MethodDescriptorProto where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_MethodDescriptorProto'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_MethodDescriptorProto'name x__)-                    (Control.DeepSeq.deepseq (_MethodDescriptorProto'inputType x__)-                       (Control.DeepSeq.deepseq (_MethodDescriptorProto'outputType x__)-                          (Control.DeepSeq.deepseq (_MethodDescriptorProto'options x__)-                             (Control.DeepSeq.deepseq-                                (_MethodDescriptorProto'clientStreaming x__)-                                (Control.DeepSeq.deepseq-                                   (_MethodDescriptorProto'serverStreaming x__)-                                   (()))))))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' MethodOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' MethodOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.idempotencyLevel' @:: Lens' MethodOptions MethodOptions'IdempotencyLevel@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'idempotencyLevel' @:: Lens' MethodOptions (Prelude.Maybe MethodOptions'IdempotencyLevel)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' MethodOptions [UninterpretedOption]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' MethodOptions (Data.Vector.Vector UninterpretedOption)@- -}-data MethodOptions = MethodOptions{_MethodOptions'deprecated ::-                                   !(Prelude.Maybe Prelude.Bool),-                                   _MethodOptions'idempotencyLevel ::-                                   !(Prelude.Maybe MethodOptions'IdempotencyLevel),-                                   _MethodOptions'uninterpretedOption ::-                                   !(Data.Vector.Vector UninterpretedOption),-                                   _MethodOptions'_unknownFields :: !Data.ProtoLens.FieldSet}-                       deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show MethodOptions where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField MethodOptions "deprecated"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MethodOptions'deprecated-               (\ x__ y__ -> x__{_MethodOptions'deprecated = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField MethodOptions-           "maybe'deprecated"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MethodOptions'deprecated-               (\ x__ y__ -> x__{_MethodOptions'deprecated = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField MethodOptions-           "idempotencyLevel"-           (MethodOptions'IdempotencyLevel)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MethodOptions'idempotencyLevel-               (\ x__ y__ -> x__{_MethodOptions'idempotencyLevel = y__}))-              Prelude..-              Data.ProtoLens.maybeLens MethodOptions'IDEMPOTENCY_UNKNOWN-instance Data.ProtoLens.Field.HasField MethodOptions-           "maybe'idempotencyLevel"-           (Prelude.Maybe MethodOptions'IdempotencyLevel)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MethodOptions'idempotencyLevel-               (\ x__ y__ -> x__{_MethodOptions'idempotencyLevel = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField MethodOptions-           "uninterpretedOption"-           ([UninterpretedOption])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MethodOptions'uninterpretedOption-               (\ x__ y__ -> x__{_MethodOptions'uninterpretedOption = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField MethodOptions-           "vec'uninterpretedOption"-           (Data.Vector.Vector UninterpretedOption)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _MethodOptions'uninterpretedOption-               (\ x__ y__ -> x__{_MethodOptions'uninterpretedOption = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message MethodOptions where-        messageName _ = Data.Text.pack "google.protobuf.MethodOptions"-        fieldsByTag-          = let deprecated__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "deprecated"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'deprecated"))-                      :: Data.ProtoLens.FieldDescriptor MethodOptions-                idempotencyLevel__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "idempotency_level"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField ::-                         Data.ProtoLens.FieldTypeDescriptor MethodOptions'IdempotencyLevel)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'idempotencyLevel"))-                      :: Data.ProtoLens.FieldDescriptor MethodOptions-                uninterpretedOption__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "uninterpreted_option"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"uninterpretedOption"))-                      :: Data.ProtoLens.FieldDescriptor MethodOptions-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 33, deprecated__field_descriptor),-                 (Data.ProtoLens.Tag 34, idempotencyLevel__field_descriptor),-                 (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _MethodOptions'_unknownFields-              (\ x__ y__ -> x__{_MethodOptions'_unknownFields = y__})-        defMessage-          = MethodOptions{_MethodOptions'deprecated = Prelude.Nothing,-                          _MethodOptions'idempotencyLevel = Prelude.Nothing,-                          _MethodOptions'uninterpretedOption = Data.Vector.Generic.empty,-                          _MethodOptions'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     MethodOptions ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         UninterpretedOption-                         -> Data.ProtoLens.Encoding.Bytes.Parser MethodOptions-                loop x mutable'uninterpretedOption-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                            (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                               mutable'uninterpretedOption)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set-                                    (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                                    frozen'uninterpretedOption-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                264 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                  Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "deprecated"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"deprecated")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                272 -> do y <- (Prelude.fmap Prelude.toEnum-                                                  (Prelude.fmap Prelude.fromIntegral-                                                     Data.ProtoLens.Encoding.Bytes.getVarInt))-                                                 Data.ProtoLens.Encoding.Bytes.<?>-                                                 "idempotency_level"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"idempotencyLevel")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                     Data.ProtoLens.Encoding.Bytes.isolate-                                                       (Prelude.fromIntegral len)-                                                       Data.ProtoLens.parseMessage)-                                                   Data.ProtoLens.Encoding.Bytes.<?>-                                                   "uninterpreted_option"-                                           v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                  (Data.ProtoLens.Encoding.Growing.append-                                                     mutable'uninterpretedOption-                                                     y)-                                           loop x v-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'uninterpretedOption-              in-              (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                   Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'uninterpretedOption)-                Data.ProtoLens.Encoding.Bytes.<?> "MethodOptions"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'deprecated")-                    _x-                  of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 264)-                                         Data.Monoid.<>-                                         ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                            (\ b -> if b then 1 else 0))-                                           _v)-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view-                      (Data.ProtoLens.Field.field @"maybe'idempotencyLevel")-                      _x-                    of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 272)-                                           Data.Monoid.<>-                                           (((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                               Prelude.fromIntegral)-                                              Prelude.. Prelude.fromEnum)-                                             _v)-                   Data.Monoid.<>-                   (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                      (\ _v ->-                         (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<>-                           (((\ bs ->-                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                   (Prelude.fromIntegral (Data.ByteString.length bs)))-                                  Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                              Prelude.. Data.ProtoLens.encodeMessage)-                             _v)-                      (Lens.Family2.view-                         (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                         _x))-                     Data.Monoid.<>-                     Data.ProtoLens.Encoding.Wire.buildFieldSet-                       (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData MethodOptions where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_MethodOptions'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_MethodOptions'deprecated x__)-                    (Control.DeepSeq.deepseq (_MethodOptions'idempotencyLevel x__)-                       (Control.DeepSeq.deepseq (_MethodOptions'uninterpretedOption x__)-                          (())))))-data MethodOptions'IdempotencyLevel = MethodOptions'IDEMPOTENCY_UNKNOWN-                                    | MethodOptions'NO_SIDE_EFFECTS-                                    | MethodOptions'IDEMPOTENT-                                        deriving (Prelude.Show, Prelude.Eq, Prelude.Ord)-instance Data.ProtoLens.MessageEnum MethodOptions'IdempotencyLevel-         where-        maybeToEnum 0 = Prelude.Just MethodOptions'IDEMPOTENCY_UNKNOWN-        maybeToEnum 1 = Prelude.Just MethodOptions'NO_SIDE_EFFECTS-        maybeToEnum 2 = Prelude.Just MethodOptions'IDEMPOTENT-        maybeToEnum _ = Prelude.Nothing-        showEnum MethodOptions'IDEMPOTENCY_UNKNOWN = "IDEMPOTENCY_UNKNOWN"-        showEnum MethodOptions'NO_SIDE_EFFECTS = "NO_SIDE_EFFECTS"-        showEnum MethodOptions'IDEMPOTENT = "IDEMPOTENT"-        readEnum k-          | (k) Prelude.== "IDEMPOTENCY_UNKNOWN" =-            Prelude.Just MethodOptions'IDEMPOTENCY_UNKNOWN-          | (k) Prelude.== "NO_SIDE_EFFECTS" =-            Prelude.Just MethodOptions'NO_SIDE_EFFECTS-          | (k) Prelude.== "IDEMPOTENT" =-            Prelude.Just MethodOptions'IDEMPOTENT-        readEnum k-          = (Text.Read.readMaybe k) Prelude.>>= Data.ProtoLens.maybeToEnum-instance Prelude.Bounded MethodOptions'IdempotencyLevel where-        minBound = MethodOptions'IDEMPOTENCY_UNKNOWN-        maxBound = MethodOptions'IDEMPOTENT-instance Prelude.Enum MethodOptions'IdempotencyLevel where-        toEnum k__-          = Prelude.maybe-              (Prelude.error-                 (("toEnum: unknown value for enum IdempotencyLevel: ") Prelude.++-                    Prelude.show k__))-              Prelude.id-              (Data.ProtoLens.maybeToEnum k__)-        fromEnum MethodOptions'IDEMPOTENCY_UNKNOWN = 0-        fromEnum MethodOptions'NO_SIDE_EFFECTS = 1-        fromEnum MethodOptions'IDEMPOTENT = 2-        succ MethodOptions'IDEMPOTENT-          = Prelude.error-              "MethodOptions'IdempotencyLevel.succ: bad argument MethodOptions'IDEMPOTENT. This value would be out of bounds."-        succ MethodOptions'IDEMPOTENCY_UNKNOWN-          = MethodOptions'NO_SIDE_EFFECTS-        succ MethodOptions'NO_SIDE_EFFECTS = MethodOptions'IDEMPOTENT-        pred MethodOptions'IDEMPOTENCY_UNKNOWN-          = Prelude.error-              "MethodOptions'IdempotencyLevel.pred: bad argument MethodOptions'IDEMPOTENCY_UNKNOWN. This value would be out of bounds."-        pred MethodOptions'NO_SIDE_EFFECTS-          = MethodOptions'IDEMPOTENCY_UNKNOWN-        pred MethodOptions'IDEMPOTENT = MethodOptions'NO_SIDE_EFFECTS-        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 MethodOptions'IdempotencyLevel-         where-        fieldDefault = MethodOptions'IDEMPOTENCY_UNKNOWN-instance Control.DeepSeq.NFData MethodOptions'IdempotencyLevel-         where-        rnf x__ = Prelude.seq x__ (())-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' OneofDescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' OneofDescriptorProto (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' OneofDescriptorProto OneofOptions@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' OneofDescriptorProto (Prelude.Maybe OneofOptions)@- -}-data OneofDescriptorProto = OneofDescriptorProto{_OneofDescriptorProto'name-                                                 :: !(Prelude.Maybe Data.Text.Text),-                                                 _OneofDescriptorProto'options ::-                                                 !(Prelude.Maybe OneofOptions),-                                                 _OneofDescriptorProto'_unknownFields ::-                                                 !Data.ProtoLens.FieldSet}-                              deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show OneofDescriptorProto where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField OneofDescriptorProto "name"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _OneofDescriptorProto'name-               (\ x__ y__ -> x__{_OneofDescriptorProto'name = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField OneofDescriptorProto-           "maybe'name"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _OneofDescriptorProto'name-               (\ x__ y__ -> x__{_OneofDescriptorProto'name = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField OneofDescriptorProto-           "options"-           (OneofOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _OneofDescriptorProto'options-               (\ x__ y__ -> x__{_OneofDescriptorProto'options = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField OneofDescriptorProto-           "maybe'options"-           (Prelude.Maybe OneofOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _OneofDescriptorProto'options-               (\ x__ y__ -> x__{_OneofDescriptorProto'options = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message OneofDescriptorProto where-        messageName _-          = Data.Text.pack "google.protobuf.OneofDescriptorProto"-        fieldsByTag-          = let name__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "name"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'name"))-                      :: Data.ProtoLens.FieldDescriptor OneofDescriptorProto-                options__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "options"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor OneofOptions)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'options"))-                      :: Data.ProtoLens.FieldDescriptor OneofDescriptorProto-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, name__field_descriptor),-                 (Data.ProtoLens.Tag 2, options__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _OneofDescriptorProto'_unknownFields-              (\ x__ y__ -> x__{_OneofDescriptorProto'_unknownFields = y__})-        defMessage-          = OneofDescriptorProto{_OneofDescriptorProto'name =-                                   Prelude.Nothing,-                                 _OneofDescriptorProto'options = Prelude.Nothing,-                                 _OneofDescriptorProto'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     OneofDescriptorProto ->-                       Data.ProtoLens.Encoding.Bytes.Parser OneofDescriptorProto-                loop x-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 x)-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "name"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y-                                              x)-                                18 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                  Data.ProtoLens.Encoding.Bytes.isolate-                                                    (Prelude.fromIntegral len)-                                                    Data.ProtoLens.parseMessage)-                                                Data.ProtoLens.Encoding.Bytes.<?> "options"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"options")-                                              y-                                              x)-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-              in-              (do loop Data.ProtoLens.defMessage)-                Data.ProtoLens.Encoding.Bytes.<?> "OneofDescriptorProto"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                                         Data.Monoid.<>-                                         (((\ bs ->-                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                                Data.Monoid.<>-                                                Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                            Prelude.. Data.Text.Encoding.encodeUtf8)-                                           _v)-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x-                    of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 18)-                                           Data.Monoid.<>-                                           (((\ bs ->-                                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                   (Prelude.fromIntegral-                                                      (Data.ByteString.length bs)))-                                                  Data.Monoid.<>-                                                  Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                              Prelude.. Data.ProtoLens.encodeMessage)-                                             _v)-                   Data.Monoid.<>-                   Data.ProtoLens.Encoding.Wire.buildFieldSet-                     (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData OneofDescriptorProto where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_OneofDescriptorProto'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_OneofDescriptorProto'name x__)-                    (Control.DeepSeq.deepseq (_OneofDescriptorProto'options x__)-                       (()))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' OneofOptions [UninterpretedOption]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' OneofOptions (Data.Vector.Vector UninterpretedOption)@- -}-data OneofOptions = OneofOptions{_OneofOptions'uninterpretedOption-                                 :: !(Data.Vector.Vector UninterpretedOption),-                                 _OneofOptions'_unknownFields :: !Data.ProtoLens.FieldSet}-                      deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show OneofOptions where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField OneofOptions-           "uninterpretedOption"-           ([UninterpretedOption])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _OneofOptions'uninterpretedOption-               (\ x__ y__ -> x__{_OneofOptions'uninterpretedOption = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField OneofOptions-           "vec'uninterpretedOption"-           (Data.Vector.Vector UninterpretedOption)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _OneofOptions'uninterpretedOption-               (\ x__ y__ -> x__{_OneofOptions'uninterpretedOption = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message OneofOptions where-        messageName _ = Data.Text.pack "google.protobuf.OneofOptions"-        fieldsByTag-          = let uninterpretedOption__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "uninterpreted_option"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"uninterpretedOption"))-                      :: Data.ProtoLens.FieldDescriptor OneofOptions-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _OneofOptions'_unknownFields-              (\ x__ y__ -> x__{_OneofOptions'_unknownFields = y__})-        defMessage-          = OneofOptions{_OneofOptions'uninterpretedOption =-                           Data.Vector.Generic.empty,-                         _OneofOptions'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     OneofOptions ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         UninterpretedOption-                         -> Data.ProtoLens.Encoding.Bytes.Parser OneofOptions-                loop x mutable'uninterpretedOption-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                            (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                               mutable'uninterpretedOption)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set-                                    (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                                    frozen'uninterpretedOption-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                     Data.ProtoLens.Encoding.Bytes.isolate-                                                       (Prelude.fromIntegral len)-                                                       Data.ProtoLens.parseMessage)-                                                   Data.ProtoLens.Encoding.Bytes.<?>-                                                   "uninterpreted_option"-                                           v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                  (Data.ProtoLens.Encoding.Growing.append-                                                     mutable'uninterpretedOption-                                                     y)-                                           loop x v-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'uninterpretedOption-              in-              (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                   Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'uninterpretedOption)-                Data.ProtoLens.Encoding.Bytes.<?> "OneofOptions"-        buildMessage-          = (\ _x ->-               (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                  (\ _v ->-                     (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<>-                       (((\ bs ->-                            (Data.ProtoLens.Encoding.Bytes.putVarInt-                               (Prelude.fromIntegral (Data.ByteString.length bs)))-                              Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Prelude.. Data.ProtoLens.encodeMessage)-                         _v)-                  (Lens.Family2.view-                     (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                     _x))-                 Data.Monoid.<>-                 Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData OneofOptions where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_OneofOptions'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_OneofOptions'uninterpretedOption x__)-                    (())))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' ServiceDescriptorProto Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' ServiceDescriptorProto (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.method' @:: Lens' ServiceDescriptorProto [MethodDescriptorProto]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'method' @:: Lens' ServiceDescriptorProto-  (Data.Vector.Vector MethodDescriptorProto)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' ServiceDescriptorProto ServiceOptions@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' ServiceDescriptorProto (Prelude.Maybe ServiceOptions)@- -}-data ServiceDescriptorProto = ServiceDescriptorProto{_ServiceDescriptorProto'name-                                                     :: !(Prelude.Maybe Data.Text.Text),-                                                     _ServiceDescriptorProto'method ::-                                                     !(Data.Vector.Vector MethodDescriptorProto),-                                                     _ServiceDescriptorProto'options ::-                                                     !(Prelude.Maybe ServiceOptions),-                                                     _ServiceDescriptorProto'_unknownFields ::-                                                     !Data.ProtoLens.FieldSet}-                                deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show ServiceDescriptorProto where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField ServiceDescriptorProto-           "name"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _ServiceDescriptorProto'name-               (\ x__ y__ -> x__{_ServiceDescriptorProto'name = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField ServiceDescriptorProto-           "maybe'name"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _ServiceDescriptorProto'name-               (\ x__ y__ -> x__{_ServiceDescriptorProto'name = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField ServiceDescriptorProto-           "method"-           ([MethodDescriptorProto])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _ServiceDescriptorProto'method-               (\ x__ y__ -> x__{_ServiceDescriptorProto'method = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField ServiceDescriptorProto-           "vec'method"-           (Data.Vector.Vector MethodDescriptorProto)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _ServiceDescriptorProto'method-               (\ x__ y__ -> x__{_ServiceDescriptorProto'method = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField ServiceDescriptorProto-           "options"-           (ServiceOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _ServiceDescriptorProto'options-               (\ x__ y__ -> x__{_ServiceDescriptorProto'options = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.defMessage-instance Data.ProtoLens.Field.HasField ServiceDescriptorProto-           "maybe'options"-           (Prelude.Maybe ServiceOptions)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _ServiceDescriptorProto'options-               (\ x__ y__ -> x__{_ServiceDescriptorProto'options = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message ServiceDescriptorProto where-        messageName _-          = Data.Text.pack "google.protobuf.ServiceDescriptorProto"-        fieldsByTag-          = let name__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "name"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'name"))-                      :: Data.ProtoLens.FieldDescriptor ServiceDescriptorProto-                method__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "method"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor MethodDescriptorProto)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"method"))-                      :: Data.ProtoLens.FieldDescriptor ServiceDescriptorProto-                options__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "options"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor ServiceOptions)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'options"))-                      :: Data.ProtoLens.FieldDescriptor ServiceDescriptorProto-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, name__field_descriptor),-                 (Data.ProtoLens.Tag 2, method__field_descriptor),-                 (Data.ProtoLens.Tag 3, options__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens-              _ServiceDescriptorProto'_unknownFields-              (\ x__ y__ -> x__{_ServiceDescriptorProto'_unknownFields = y__})-        defMessage-          = ServiceDescriptorProto{_ServiceDescriptorProto'name =-                                     Prelude.Nothing,-                                   _ServiceDescriptorProto'method = Data.Vector.Generic.empty,-                                   _ServiceDescriptorProto'options = Prelude.Nothing,-                                   _ServiceDescriptorProto'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     ServiceDescriptorProto ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         MethodDescriptorProto-                         -> Data.ProtoLens.Encoding.Bytes.Parser ServiceDescriptorProto-                loop x mutable'method-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'method <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                               (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                  mutable'method)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'method")-                                    frozen'method-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "name"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y-                                              x)-                                           mutable'method-                                18 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "method"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'method-                                                   y)-                                         loop x v-                                26 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                  Data.ProtoLens.Encoding.Bytes.isolate-                                                    (Prelude.fromIntegral len)-                                                    Data.ProtoLens.parseMessage)-                                                Data.ProtoLens.Encoding.Bytes.<?> "options"-                                         loop-                                           (Lens.Family2.set (Data.ProtoLens.Field.field @"options")-                                              y-                                              x)-                                           mutable'method-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'method-              in-              (do mutable'method <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                      Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'method)-                Data.ProtoLens.Encoding.Bytes.<?> "ServiceDescriptorProto"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'name") _x of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 10)-                                         Data.Monoid.<>-                                         (((\ bs ->-                                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                                Data.Monoid.<>-                                                Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                            Prelude.. Data.Text.Encoding.encodeUtf8)-                                           _v)-                 Data.Monoid.<>-                 (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                    (\ _v ->-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<>-                         (((\ bs ->-                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                            Prelude.. Data.ProtoLens.encodeMessage)-                           _v)-                    (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'method") _x))-                   Data.Monoid.<>-                   (case-                      Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'options") _x-                      of-                        (Prelude.Nothing) -> Data.Monoid.mempty-                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                                             Data.Monoid.<>-                                             (((\ bs ->-                                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                     (Prelude.fromIntegral-                                                        (Data.ByteString.length bs)))-                                                    Data.Monoid.<>-                                                    Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                                Prelude.. Data.ProtoLens.encodeMessage)-                                               _v)-                     Data.Monoid.<>-                     Data.ProtoLens.Encoding.Wire.buildFieldSet-                       (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData ServiceDescriptorProto where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq-                 (_ServiceDescriptorProto'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_ServiceDescriptorProto'name x__)-                    (Control.DeepSeq.deepseq (_ServiceDescriptorProto'method x__)-                       (Control.DeepSeq.deepseq (_ServiceDescriptorProto'options x__)-                          (())))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' ServiceOptions Prelude.Bool@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' ServiceOptions (Prelude.Maybe Prelude.Bool)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' ServiceOptions [UninterpretedOption]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' ServiceOptions (Data.Vector.Vector UninterpretedOption)@- -}-data ServiceOptions = ServiceOptions{_ServiceOptions'deprecated ::-                                     !(Prelude.Maybe Prelude.Bool),-                                     _ServiceOptions'uninterpretedOption ::-                                     !(Data.Vector.Vector UninterpretedOption),-                                     _ServiceOptions'_unknownFields :: !Data.ProtoLens.FieldSet}-                        deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show ServiceOptions where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField ServiceOptions "deprecated"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _ServiceOptions'deprecated-               (\ x__ y__ -> x__{_ServiceOptions'deprecated = y__}))-              Prelude.. Data.ProtoLens.maybeLens Prelude.False-instance Data.ProtoLens.Field.HasField ServiceOptions-           "maybe'deprecated"-           (Prelude.Maybe Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _ServiceOptions'deprecated-               (\ x__ y__ -> x__{_ServiceOptions'deprecated = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField ServiceOptions-           "uninterpretedOption"-           ([UninterpretedOption])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _ServiceOptions'uninterpretedOption-               (\ x__ y__ -> x__{_ServiceOptions'uninterpretedOption = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField ServiceOptions-           "vec'uninterpretedOption"-           (Data.Vector.Vector UninterpretedOption)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _ServiceOptions'uninterpretedOption-               (\ x__ y__ -> x__{_ServiceOptions'uninterpretedOption = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message ServiceOptions where-        messageName _ = Data.Text.pack "google.protobuf.ServiceOptions"-        fieldsByTag-          = let deprecated__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "deprecated"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'deprecated"))-                      :: Data.ProtoLens.FieldDescriptor ServiceOptions-                uninterpretedOption__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "uninterpreted_option"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"uninterpretedOption"))-                      :: Data.ProtoLens.FieldDescriptor ServiceOptions-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 33, deprecated__field_descriptor),-                 (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _ServiceOptions'_unknownFields-              (\ x__ y__ -> x__{_ServiceOptions'_unknownFields = y__})-        defMessage-          = ServiceOptions{_ServiceOptions'deprecated = Prelude.Nothing,-                           _ServiceOptions'uninterpretedOption = Data.Vector.Generic.empty,-                           _ServiceOptions'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     ServiceOptions ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         UninterpretedOption-                         -> Data.ProtoLens.Encoding.Bytes.Parser ServiceOptions-                loop x mutable'uninterpretedOption-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                            (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                               mutable'uninterpretedOption)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set-                                    (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                                    frozen'uninterpretedOption-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                264 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                  Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "deprecated"-                                          loop-                                            (Lens.Family2.set-                                               (Data.ProtoLens.Field.field @"deprecated")-                                               y-                                               x)-                                            mutable'uninterpretedOption-                                7994 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                     Data.ProtoLens.Encoding.Bytes.isolate-                                                       (Prelude.fromIntegral len)-                                                       Data.ProtoLens.parseMessage)-                                                   Data.ProtoLens.Encoding.Bytes.<?>-                                                   "uninterpreted_option"-                                           v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                  (Data.ProtoLens.Encoding.Growing.append-                                                     mutable'uninterpretedOption-                                                     y)-                                           loop x v-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'uninterpretedOption-              in-              (do mutable'uninterpretedOption <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                   Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'uninterpretedOption)-                Data.ProtoLens.Encoding.Bytes.<?> "ServiceOptions"-        buildMessage-          = (\ _x ->-               (case-                  Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'deprecated")-                    _x-                  of-                    (Prelude.Nothing) -> Data.Monoid.mempty-                    Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 264)-                                         Data.Monoid.<>-                                         ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                            (\ b -> if b then 1 else 0))-                                           _v)-                 Data.Monoid.<>-                 (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                    (\ _v ->-                       (Data.ProtoLens.Encoding.Bytes.putVarInt 7994) Data.Monoid.<>-                         (((\ bs ->-                              (Data.ProtoLens.Encoding.Bytes.putVarInt-                                 (Prelude.fromIntegral (Data.ByteString.length bs)))-                                Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                            Prelude.. Data.ProtoLens.encodeMessage)-                           _v)-                    (Lens.Family2.view-                       (Data.ProtoLens.Field.field @"vec'uninterpretedOption")-                       _x))-                   Data.Monoid.<>-                   Data.ProtoLens.Encoding.Wire.buildFieldSet-                     (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData ServiceOptions where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_ServiceOptions'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_ServiceOptions'deprecated x__)-                    (Control.DeepSeq.deepseq (_ServiceOptions'uninterpretedOption x__)-                       (()))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.location' @:: Lens' SourceCodeInfo [SourceCodeInfo'Location]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'location' @:: Lens' SourceCodeInfo (Data.Vector.Vector SourceCodeInfo'Location)@- -}-data SourceCodeInfo = SourceCodeInfo{_SourceCodeInfo'location ::-                                     !(Data.Vector.Vector SourceCodeInfo'Location),-                                     _SourceCodeInfo'_unknownFields :: !Data.ProtoLens.FieldSet}-                        deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show SourceCodeInfo where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField SourceCodeInfo "location"-           ([SourceCodeInfo'Location])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _SourceCodeInfo'location-               (\ x__ y__ -> x__{_SourceCodeInfo'location = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField SourceCodeInfo-           "vec'location"-           (Data.Vector.Vector SourceCodeInfo'Location)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _SourceCodeInfo'location-               (\ x__ y__ -> x__{_SourceCodeInfo'location = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message SourceCodeInfo where-        messageName _ = Data.Text.pack "google.protobuf.SourceCodeInfo"-        fieldsByTag-          = let location__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "location"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor SourceCodeInfo'Location)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"location"))-                      :: Data.ProtoLens.FieldDescriptor SourceCodeInfo-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, location__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _SourceCodeInfo'_unknownFields-              (\ x__ y__ -> x__{_SourceCodeInfo'_unknownFields = y__})-        defMessage-          = SourceCodeInfo{_SourceCodeInfo'location =-                             Data.Vector.Generic.empty,-                           _SourceCodeInfo'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     SourceCodeInfo ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         SourceCodeInfo'Location-                         -> Data.ProtoLens.Encoding.Bytes.Parser SourceCodeInfo-                loop x mutable'location-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'location <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                 (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                    mutable'location)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'location")-                                    frozen'location-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "location"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'location-                                                   y)-                                         loop x v-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'location-              in-              (do mutable'location <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                        Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'location)-                Data.ProtoLens.Encoding.Bytes.<?> "SourceCodeInfo"-        buildMessage-          = (\ _x ->-               (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                  (\ _v ->-                     (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>-                       (((\ bs ->-                            (Data.ProtoLens.Encoding.Bytes.putVarInt-                               (Prelude.fromIntegral (Data.ByteString.length bs)))-                              Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Prelude.. Data.ProtoLens.encodeMessage)-                         _v)-                  (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'location")-                     _x))-                 Data.Monoid.<>-                 Data.ProtoLens.Encoding.Wire.buildFieldSet-                   (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData SourceCodeInfo where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_SourceCodeInfo'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_SourceCodeInfo'location x__) (())))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.path' @:: Lens' SourceCodeInfo'Location [Data.Int.Int32]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'path' @:: Lens' SourceCodeInfo'Location-  (Data.Vector.Unboxed.Vector Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.span' @:: Lens' SourceCodeInfo'Location [Data.Int.Int32]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'span' @:: Lens' SourceCodeInfo'Location-  (Data.Vector.Unboxed.Vector Data.Int.Int32)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.leadingComments' @:: Lens' SourceCodeInfo'Location Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'leadingComments' @:: Lens' SourceCodeInfo'Location (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.trailingComments' @:: Lens' SourceCodeInfo'Location Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'trailingComments' @:: Lens' SourceCodeInfo'Location (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.leadingDetachedComments' @:: Lens' SourceCodeInfo'Location [Data.Text.Text]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'leadingDetachedComments' @:: Lens' SourceCodeInfo'Location (Data.Vector.Vector Data.Text.Text)@- -}-data SourceCodeInfo'Location = SourceCodeInfo'Location{_SourceCodeInfo'Location'path-                                                       ::-                                                       !(Data.Vector.Unboxed.Vector Data.Int.Int32),-                                                       _SourceCodeInfo'Location'span ::-                                                       !(Data.Vector.Unboxed.Vector Data.Int.Int32),-                                                       _SourceCodeInfo'Location'leadingComments ::-                                                       !(Prelude.Maybe Data.Text.Text),-                                                       _SourceCodeInfo'Location'trailingComments ::-                                                       !(Prelude.Maybe Data.Text.Text),-                                                       _SourceCodeInfo'Location'leadingDetachedComments-                                                       :: !(Data.Vector.Vector Data.Text.Text),-                                                       _SourceCodeInfo'Location'_unknownFields ::-                                                       !Data.ProtoLens.FieldSet}-                                 deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show SourceCodeInfo'Location where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location-           "path"-           ([Data.Int.Int32])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'path-               (\ x__ y__ -> x__{_SourceCodeInfo'Location'path = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location-           "vec'path"-           (Data.Vector.Unboxed.Vector Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'path-               (\ x__ y__ -> x__{_SourceCodeInfo'Location'path = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location-           "span"-           ([Data.Int.Int32])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'span-               (\ x__ y__ -> x__{_SourceCodeInfo'Location'span = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location-           "vec'span"-           (Data.Vector.Unboxed.Vector Data.Int.Int32)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'span-               (\ x__ y__ -> x__{_SourceCodeInfo'Location'span = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location-           "leadingComments"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _SourceCodeInfo'Location'leadingComments-               (\ x__ y__ -> x__{_SourceCodeInfo'Location'leadingComments = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location-           "maybe'leadingComments"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _SourceCodeInfo'Location'leadingComments-               (\ x__ y__ -> x__{_SourceCodeInfo'Location'leadingComments = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location-           "trailingComments"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _SourceCodeInfo'Location'trailingComments-               (\ x__ y__ ->-                  x__{_SourceCodeInfo'Location'trailingComments = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location-           "maybe'trailingComments"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _SourceCodeInfo'Location'trailingComments-               (\ x__ y__ ->-                  x__{_SourceCodeInfo'Location'trailingComments = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location-           "leadingDetachedComments"-           ([Data.Text.Text])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _SourceCodeInfo'Location'leadingDetachedComments-               (\ x__ y__ ->-                  x__{_SourceCodeInfo'Location'leadingDetachedComments = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location-           "vec'leadingDetachedComments"-           (Data.Vector.Vector Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _SourceCodeInfo'Location'leadingDetachedComments-               (\ x__ y__ ->-                  x__{_SourceCodeInfo'Location'leadingDetachedComments = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message SourceCodeInfo'Location where-        messageName _-          = Data.Text.pack "google.protobuf.SourceCodeInfo.Location"-        fieldsByTag-          = let path__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "path"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed-                         (Data.ProtoLens.Field.field @"path"))-                      :: Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location-                span__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "span"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed-                         (Data.ProtoLens.Field.field @"span"))-                      :: Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location-                leadingComments__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "leading_comments"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'leadingComments"))-                      :: Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location-                trailingComments__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "trailing_comments"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'trailingComments"))-                      :: Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location-                leadingDetachedComments__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "leading_detached_comments"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"leadingDetachedComments"))-                      :: Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, path__field_descriptor),-                 (Data.ProtoLens.Tag 2, span__field_descriptor),-                 (Data.ProtoLens.Tag 3, leadingComments__field_descriptor),-                 (Data.ProtoLens.Tag 4, trailingComments__field_descriptor),-                 (Data.ProtoLens.Tag 6, leadingDetachedComments__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens-              _SourceCodeInfo'Location'_unknownFields-              (\ x__ y__ -> x__{_SourceCodeInfo'Location'_unknownFields = y__})-        defMessage-          = SourceCodeInfo'Location{_SourceCodeInfo'Location'path =-                                      Data.Vector.Generic.empty,-                                    _SourceCodeInfo'Location'span = Data.Vector.Generic.empty,-                                    _SourceCodeInfo'Location'leadingComments = Prelude.Nothing,-                                    _SourceCodeInfo'Location'trailingComments = Prelude.Nothing,-                                    _SourceCodeInfo'Location'leadingDetachedComments =-                                      Data.Vector.Generic.empty,-                                    _SourceCodeInfo'Location'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     SourceCodeInfo'Location ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         Data.Text.Text-                         ->-                         Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector-                           Data.ProtoLens.Encoding.Growing.RealWorld-                           Data.Int.Int32-                           ->-                           Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector-                             Data.ProtoLens.Encoding.Growing.RealWorld-                             Data.Int.Int32-                             -> Data.ProtoLens.Encoding.Bytes.Parser SourceCodeInfo'Location-                loop x mutable'leadingDetachedComments mutable'path mutable'span-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'leadingDetachedComments <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                                (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                                   mutable'leadingDetachedComments)-                            frozen'path <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                             (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                mutable'path)-                            frozen'span <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                             (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                mutable'span)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set-                                    (Data.ProtoLens.Field.field @"vec'leadingDetachedComments")-                                    frozen'leadingDetachedComments-                                    (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'path")-                                       frozen'path-                                       (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'span")-                                          frozen'span-                                          x))))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                8 -> do !y <- (Prelude.fmap Prelude.fromIntegral-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "path"-                                        v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                               (Data.ProtoLens.Encoding.Growing.append mutable'path-                                                  y)-                                        loop x mutable'leadingDetachedComments v mutable'span-                                10 -> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                 Data.ProtoLens.Encoding.Bytes.isolate-                                                   (Prelude.fromIntegral len)-                                                   ((let ploop qs-                                                           = do packedEnd <- Data.ProtoLens.Encoding.Bytes.atEnd-                                                                if packedEnd then Prelude.return qs-                                                                  else-                                                                  do !q <- (Prelude.fmap-                                                                              Prelude.fromIntegral-                                                                              Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                                             Data.ProtoLens.Encoding.Bytes.<?>-                                                                             "path"-                                                                     qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                                              (Data.ProtoLens.Encoding.Growing.append-                                                                                 qs-                                                                                 q)-                                                                     ploop qs'-                                                       in ploop)-                                                      mutable'path)-                                         loop x mutable'leadingDetachedComments y mutable'span-                                16 -> do !y <- (Prelude.fmap Prelude.fromIntegral-                                                  Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "span"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append mutable'span-                                                   y)-                                         loop x mutable'leadingDetachedComments mutable'path v-                                18 -> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                 Data.ProtoLens.Encoding.Bytes.isolate-                                                   (Prelude.fromIntegral len)-                                                   ((let ploop qs-                                                           = do packedEnd <- Data.ProtoLens.Encoding.Bytes.atEnd-                                                                if packedEnd then Prelude.return qs-                                                                  else-                                                                  do !q <- (Prelude.fmap-                                                                              Prelude.fromIntegral-                                                                              Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                                             Data.ProtoLens.Encoding.Bytes.<?>-                                                                             "span"-                                                                     qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                                              (Data.ProtoLens.Encoding.Growing.append-                                                                                 qs-                                                                                 q)-                                                                     ploop qs'-                                                       in ploop)-                                                      mutable'span)-                                         loop x mutable'leadingDetachedComments mutable'path y-                                26 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "leading_comments"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"leadingComments")-                                              y-                                              x)-                                           mutable'leadingDetachedComments-                                           mutable'path-                                           mutable'span-                                34 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?>-                                                "trailing_comments"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"trailingComments")-                                              y-                                              x)-                                           mutable'leadingDetachedComments-                                           mutable'path-                                           mutable'span-                                50 -> do !y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                               Data.ProtoLens.Encoding.Bytes.getBytes-                                                                 (Prelude.fromIntegral len)-                                                   Data.ProtoLens.Encoding.Bytes.runEither-                                                     (case Data.Text.Encoding.decodeUtf8' value of-                                                          Prelude.Left err -> Prelude.Left-                                                                                (Prelude.show err)-                                                          Prelude.Right r -> Prelude.Right r))-                                                 Data.ProtoLens.Encoding.Bytes.<?>-                                                 "leading_detached_comments"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append-                                                   mutable'leadingDetachedComments-                                                   y)-                                         loop x v mutable'path mutable'span-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'leadingDetachedComments-                                             mutable'path-                                             mutable'span-              in-              (do mutable'leadingDetachedComments <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                       Data.ProtoLens.Encoding.Growing.new-                  mutable'path <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                    Data.ProtoLens.Encoding.Growing.new-                  mutable'span <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                    Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'leadingDetachedComments-                    mutable'path-                    mutable'span)-                Data.ProtoLens.Encoding.Bytes.<?> "Location"-        buildMessage-          = (\ _x ->-               (let p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'path")-                          _x-                  in-                  if Data.Vector.Generic.null p then Data.Monoid.mempty else-                    (Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>-                      (\ bs ->-                         (Data.ProtoLens.Encoding.Bytes.putVarInt-                            (Prelude.fromIntegral (Data.ByteString.length bs)))-                           Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)-                        (Data.ProtoLens.Encoding.Bytes.runBuilder-                           (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                              ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                 Prelude.fromIntegral)-                              p)))-                 Data.Monoid.<>-                 (let p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'span")-                            _x-                    in-                    if Data.Vector.Generic.null p then Data.Monoid.mempty else-                      (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<>-                        (\ bs ->-                           (Data.ProtoLens.Encoding.Bytes.putVarInt-                              (Prelude.fromIntegral (Data.ByteString.length bs)))-                             Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs)-                          (Data.ProtoLens.Encoding.Bytes.runBuilder-                             (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                                ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                   Prelude.fromIntegral)-                                p)))-                   Data.Monoid.<>-                   (case-                      Lens.Family2.view-                        (Data.ProtoLens.Field.field @"maybe'leadingComments")-                        _x-                      of-                        (Prelude.Nothing) -> Data.Monoid.mempty-                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                                             Data.Monoid.<>-                                             (((\ bs ->-                                                  (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                     (Prelude.fromIntegral-                                                        (Data.ByteString.length bs)))-                                                    Data.Monoid.<>-                                                    Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                                Prelude.. Data.Text.Encoding.encodeUtf8)-                                               _v)-                     Data.Monoid.<>-                     (case-                        Lens.Family2.view-                          (Data.ProtoLens.Field.field @"maybe'trailingComments")-                          _x-                        of-                          (Prelude.Nothing) -> Data.Monoid.mempty-                          Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 34)-                                               Data.Monoid.<>-                                               (((\ bs ->-                                                    (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                       (Prelude.fromIntegral-                                                          (Data.ByteString.length bs)))-                                                      Data.Monoid.<>-                                                      Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                                  Prelude.. Data.Text.Encoding.encodeUtf8)-                                                 _v)-                       Data.Monoid.<>-                       (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                          (\ _v ->-                             (Data.ProtoLens.Encoding.Bytes.putVarInt 50) Data.Monoid.<>-                               (((\ bs ->-                                    (Data.ProtoLens.Encoding.Bytes.putVarInt-                                       (Prelude.fromIntegral (Data.ByteString.length bs)))-                                      Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                  Prelude.. Data.Text.Encoding.encodeUtf8)-                                 _v)-                          (Lens.Family2.view-                             (Data.ProtoLens.Field.field @"vec'leadingDetachedComments")-                             _x))-                         Data.Monoid.<>-                         Data.ProtoLens.Encoding.Wire.buildFieldSet-                           (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData SourceCodeInfo'Location where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq-                 (_SourceCodeInfo'Location'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_SourceCodeInfo'Location'path x__)-                    (Control.DeepSeq.deepseq (_SourceCodeInfo'Location'span x__)-                       (Control.DeepSeq.deepseq-                          (_SourceCodeInfo'Location'leadingComments x__)-                          (Control.DeepSeq.deepseq-                             (_SourceCodeInfo'Location'trailingComments x__)-                             (Control.DeepSeq.deepseq-                                (_SourceCodeInfo'Location'leadingDetachedComments x__)-                                (())))))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' UninterpretedOption [UninterpretedOption'NamePart]@-    * 'Proto.Google.Protobuf.Descriptor_Fields.vec'name' @:: Lens' UninterpretedOption-  (Data.Vector.Vector UninterpretedOption'NamePart)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.identifierValue' @:: Lens' UninterpretedOption Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'identifierValue' @:: Lens' UninterpretedOption (Prelude.Maybe Data.Text.Text)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.positiveIntValue' @:: Lens' UninterpretedOption Data.Word.Word64@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'positiveIntValue' @:: Lens' UninterpretedOption (Prelude.Maybe Data.Word.Word64)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.negativeIntValue' @:: Lens' UninterpretedOption Data.Int.Int64@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'negativeIntValue' @:: Lens' UninterpretedOption (Prelude.Maybe Data.Int.Int64)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.doubleValue' @:: Lens' UninterpretedOption Prelude.Double@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'doubleValue' @:: Lens' UninterpretedOption (Prelude.Maybe Prelude.Double)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.stringValue' @:: Lens' UninterpretedOption Data.ByteString.ByteString@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'stringValue' @:: Lens' UninterpretedOption-  (Prelude.Maybe Data.ByteString.ByteString)@-    * 'Proto.Google.Protobuf.Descriptor_Fields.aggregateValue' @:: Lens' UninterpretedOption Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'aggregateValue' @:: Lens' UninterpretedOption (Prelude.Maybe Data.Text.Text)@- -}-data UninterpretedOption = UninterpretedOption{_UninterpretedOption'name-                                               ::-                                               !(Data.Vector.Vector UninterpretedOption'NamePart),-                                               _UninterpretedOption'identifierValue ::-                                               !(Prelude.Maybe Data.Text.Text),-                                               _UninterpretedOption'positiveIntValue ::-                                               !(Prelude.Maybe Data.Word.Word64),-                                               _UninterpretedOption'negativeIntValue ::-                                               !(Prelude.Maybe Data.Int.Int64),-                                               _UninterpretedOption'doubleValue ::-                                               !(Prelude.Maybe Prelude.Double),-                                               _UninterpretedOption'stringValue ::-                                               !(Prelude.Maybe Data.ByteString.ByteString),-                                               _UninterpretedOption'aggregateValue ::-                                               !(Prelude.Maybe Data.Text.Text),-                                               _UninterpretedOption'_unknownFields ::-                                               !Data.ProtoLens.FieldSet}-                             deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show UninterpretedOption where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField UninterpretedOption "name"-           ([UninterpretedOption'NamePart])-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _UninterpretedOption'name-               (\ x__ y__ -> x__{_UninterpretedOption'name = y__}))-              Prelude..-              Lens.Family2.Unchecked.lens Data.Vector.Generic.toList-                (\ _ y__ -> Data.Vector.Generic.fromList y__)-instance Data.ProtoLens.Field.HasField UninterpretedOption-           "vec'name"-           (Data.Vector.Vector UninterpretedOption'NamePart)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _UninterpretedOption'name-               (\ x__ y__ -> x__{_UninterpretedOption'name = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField UninterpretedOption-           "identifierValue"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _UninterpretedOption'identifierValue-               (\ x__ y__ -> x__{_UninterpretedOption'identifierValue = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField UninterpretedOption-           "maybe'identifierValue"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _UninterpretedOption'identifierValue-               (\ x__ y__ -> x__{_UninterpretedOption'identifierValue = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField UninterpretedOption-           "positiveIntValue"-           (Data.Word.Word64)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _UninterpretedOption'positiveIntValue-               (\ x__ y__ -> x__{_UninterpretedOption'positiveIntValue = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField UninterpretedOption-           "maybe'positiveIntValue"-           (Prelude.Maybe Data.Word.Word64)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _UninterpretedOption'positiveIntValue-               (\ x__ y__ -> x__{_UninterpretedOption'positiveIntValue = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField UninterpretedOption-           "negativeIntValue"-           (Data.Int.Int64)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _UninterpretedOption'negativeIntValue-               (\ x__ y__ -> x__{_UninterpretedOption'negativeIntValue = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField UninterpretedOption-           "maybe'negativeIntValue"-           (Prelude.Maybe Data.Int.Int64)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _UninterpretedOption'negativeIntValue-               (\ x__ y__ -> x__{_UninterpretedOption'negativeIntValue = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField UninterpretedOption-           "doubleValue"-           (Prelude.Double)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _UninterpretedOption'doubleValue-               (\ x__ y__ -> x__{_UninterpretedOption'doubleValue = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField UninterpretedOption-           "maybe'doubleValue"-           (Prelude.Maybe Prelude.Double)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _UninterpretedOption'doubleValue-               (\ x__ y__ -> x__{_UninterpretedOption'doubleValue = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField UninterpretedOption-           "stringValue"-           (Data.ByteString.ByteString)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _UninterpretedOption'stringValue-               (\ x__ y__ -> x__{_UninterpretedOption'stringValue = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField UninterpretedOption-           "maybe'stringValue"-           (Prelude.Maybe Data.ByteString.ByteString)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _UninterpretedOption'stringValue-               (\ x__ y__ -> x__{_UninterpretedOption'stringValue = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField UninterpretedOption-           "aggregateValue"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _UninterpretedOption'aggregateValue-               (\ x__ y__ -> x__{_UninterpretedOption'aggregateValue = y__}))-              Prelude.. Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault-instance Data.ProtoLens.Field.HasField UninterpretedOption-           "maybe'aggregateValue"-           (Prelude.Maybe Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens _UninterpretedOption'aggregateValue-               (\ x__ y__ -> x__{_UninterpretedOption'aggregateValue = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message UninterpretedOption where-        messageName _-          = Data.Text.pack "google.protobuf.UninterpretedOption"-        fieldsByTag-          = let name__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "name"-                      (Data.ProtoLens.MessageField Data.ProtoLens.MessageType ::-                         Data.ProtoLens.FieldTypeDescriptor UninterpretedOption'NamePart)-                      (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked-                         (Data.ProtoLens.Field.field @"name"))-                      :: Data.ProtoLens.FieldDescriptor UninterpretedOption-                identifierValue__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "identifier_value"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'identifierValue"))-                      :: Data.ProtoLens.FieldDescriptor UninterpretedOption-                positiveIntValue__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "positive_int_value"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.UInt64Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'positiveIntValue"))-                      :: Data.ProtoLens.FieldDescriptor UninterpretedOption-                negativeIntValue__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "negative_int_value"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'negativeIntValue"))-                      :: Data.ProtoLens.FieldDescriptor UninterpretedOption-                doubleValue__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "double_value"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Double)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'doubleValue"))-                      :: Data.ProtoLens.FieldDescriptor UninterpretedOption-                stringValue__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "string_value"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'stringValue"))-                      :: Data.ProtoLens.FieldDescriptor UninterpretedOption-                aggregateValue__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "aggregate_value"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.OptionalField-                         (Data.ProtoLens.Field.field @"maybe'aggregateValue"))-                      :: Data.ProtoLens.FieldDescriptor UninterpretedOption-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 2, name__field_descriptor),-                 (Data.ProtoLens.Tag 3, identifierValue__field_descriptor),-                 (Data.ProtoLens.Tag 4, positiveIntValue__field_descriptor),-                 (Data.ProtoLens.Tag 5, negativeIntValue__field_descriptor),-                 (Data.ProtoLens.Tag 6, doubleValue__field_descriptor),-                 (Data.ProtoLens.Tag 7, stringValue__field_descriptor),-                 (Data.ProtoLens.Tag 8, aggregateValue__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens _UninterpretedOption'_unknownFields-              (\ x__ y__ -> x__{_UninterpretedOption'_unknownFields = y__})-        defMessage-          = UninterpretedOption{_UninterpretedOption'name =-                                  Data.Vector.Generic.empty,-                                _UninterpretedOption'identifierValue = Prelude.Nothing,-                                _UninterpretedOption'positiveIntValue = Prelude.Nothing,-                                _UninterpretedOption'negativeIntValue = Prelude.Nothing,-                                _UninterpretedOption'doubleValue = Prelude.Nothing,-                                _UninterpretedOption'stringValue = Prelude.Nothing,-                                _UninterpretedOption'aggregateValue = Prelude.Nothing,-                                _UninterpretedOption'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     UninterpretedOption ->-                       Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector-                         Data.ProtoLens.Encoding.Growing.RealWorld-                         UninterpretedOption'NamePart-                         -> Data.ProtoLens.Encoding.Bytes.Parser UninterpretedOption-                loop x mutable'name-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do frozen'name <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                             (Data.ProtoLens.Encoding.Growing.unsafeFreeze-                                                mutable'name)-                            let missing = [] in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 (Lens.Family2.set (Data.ProtoLens.Field.field @"vec'name")-                                    frozen'name-                                    x))-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                18 -> do !y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                   Data.ProtoLens.Encoding.Bytes.isolate-                                                     (Prelude.fromIntegral len)-                                                     Data.ProtoLens.parseMessage)-                                                 Data.ProtoLens.Encoding.Bytes.<?> "name"-                                         v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                                (Data.ProtoLens.Encoding.Growing.append mutable'name-                                                   y)-                                         loop x v-                                26 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "identifier_value"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"identifierValue")-                                              y-                                              x)-                                           mutable'name-                                32 -> do y <- (Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?>-                                                "positive_int_value"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"positiveIntValue")-                                              y-                                              x)-                                           mutable'name-                                40 -> do y <- (Prelude.fmap Prelude.fromIntegral-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?>-                                                "negative_int_value"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"negativeIntValue")-                                              y-                                              x)-                                           mutable'name-                                49 -> do y <- (Prelude.fmap-                                                 Data.ProtoLens.Encoding.Bytes.wordToDouble-                                                 Data.ProtoLens.Encoding.Bytes.getFixed64)-                                                Data.ProtoLens.Encoding.Bytes.<?> "double_value"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"doubleValue")-                                              y-                                              x)-                                           mutable'name-                                58 -> do y <- (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                  Data.ProtoLens.Encoding.Bytes.getBytes-                                                    (Prelude.fromIntegral len))-                                                Data.ProtoLens.Encoding.Bytes.<?> "string_value"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"stringValue")-                                              y-                                              x)-                                           mutable'name-                                66 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "aggregate_value"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"aggregateValue")-                                              y-                                              x)-                                           mutable'name-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             mutable'name-              in-              (do mutable'name <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO-                                    Data.ProtoLens.Encoding.Growing.new-                  loop Data.ProtoLens.defMessage mutable'name)-                Data.ProtoLens.Encoding.Bytes.<?> "UninterpretedOption"-        buildMessage-          = (\ _x ->-               (Data.ProtoLens.Encoding.Bytes.foldMapBuilder-                  (\ _v ->-                     (Data.ProtoLens.Encoding.Bytes.putVarInt 18) Data.Monoid.<>-                       (((\ bs ->-                            (Data.ProtoLens.Encoding.Bytes.putVarInt-                               (Prelude.fromIntegral (Data.ByteString.length bs)))-                              Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                          Prelude.. Data.ProtoLens.encodeMessage)-                         _v)-                  (Lens.Family2.view (Data.ProtoLens.Field.field @"vec'name") _x))-                 Data.Monoid.<>-                 (case-                    Lens.Family2.view-                      (Data.ProtoLens.Field.field @"maybe'identifierValue")-                      _x-                    of-                      (Prelude.Nothing) -> Data.Monoid.mempty-                      Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 26)-                                           Data.Monoid.<>-                                           (((\ bs ->-                                                (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                   (Prelude.fromIntegral-                                                      (Data.ByteString.length bs)))-                                                  Data.Monoid.<>-                                                  Data.ProtoLens.Encoding.Bytes.putBytes bs))-                                              Prelude.. Data.Text.Encoding.encodeUtf8)-                                             _v)-                   Data.Monoid.<>-                   (case-                      Lens.Family2.view-                        (Data.ProtoLens.Field.field @"maybe'positiveIntValue")-                        _x-                      of-                        (Prelude.Nothing) -> Data.Monoid.mempty-                        Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 32)-                                             Data.Monoid.<>-                                             Data.ProtoLens.Encoding.Bytes.putVarInt _v)-                     Data.Monoid.<>-                     (case-                        Lens.Family2.view-                          (Data.ProtoLens.Field.field @"maybe'negativeIntValue")-                          _x-                        of-                          (Prelude.Nothing) -> Data.Monoid.mempty-                          Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 40)-                                               Data.Monoid.<>-                                               ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                                                  Prelude.fromIntegral)-                                                 _v)-                       Data.Monoid.<>-                       (case-                          Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'doubleValue")-                            _x-                          of-                            (Prelude.Nothing) -> Data.Monoid.mempty-                            Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 49)-                                                 Data.Monoid.<>-                                                 ((Data.ProtoLens.Encoding.Bytes.putFixed64)-                                                    Prelude..-                                                    Data.ProtoLens.Encoding.Bytes.doubleToWord)-                                                   _v)-                         Data.Monoid.<>-                         (case-                            Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'stringValue")-                              _x-                            of-                              (Prelude.Nothing) -> Data.Monoid.mempty-                              Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 58)-                                                   Data.Monoid.<>-                                                   (\ bs ->-                                                      (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                         (Prelude.fromIntegral-                                                            (Data.ByteString.length bs)))-                                                        Data.Monoid.<>-                                                        Data.ProtoLens.Encoding.Bytes.putBytes bs)-                                                     _v)-                           Data.Monoid.<>-                           (case-                              Lens.Family2.view-                                (Data.ProtoLens.Field.field @"maybe'aggregateValue")-                                _x-                              of-                                (Prelude.Nothing) -> Data.Monoid.mempty-                                Prelude.Just _v -> (Data.ProtoLens.Encoding.Bytes.putVarInt 66)-                                                     Data.Monoid.<>-                                                     (((\ bs ->-                                                          (Data.ProtoLens.Encoding.Bytes.putVarInt-                                                             (Prelude.fromIntegral-                                                                (Data.ByteString.length bs)))-                                                            Data.Monoid.<>-                                                            Data.ProtoLens.Encoding.Bytes.putBytes-                                                              bs))-                                                        Prelude.. Data.Text.Encoding.encodeUtf8)-                                                       _v)-                             Data.Monoid.<>-                             Data.ProtoLens.Encoding.Wire.buildFieldSet-                               (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData UninterpretedOption where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq (_UninterpretedOption'_unknownFields x__)-                 (Control.DeepSeq.deepseq (_UninterpretedOption'name x__)-                    (Control.DeepSeq.deepseq (_UninterpretedOption'identifierValue x__)-                       (Control.DeepSeq.deepseq-                          (_UninterpretedOption'positiveIntValue x__)-                          (Control.DeepSeq.deepseq-                             (_UninterpretedOption'negativeIntValue x__)-                             (Control.DeepSeq.deepseq (_UninterpretedOption'doubleValue x__)-                                (Control.DeepSeq.deepseq (_UninterpretedOption'stringValue x__)-                                   (Control.DeepSeq.deepseq-                                      (_UninterpretedOption'aggregateValue x__)-                                      (())))))))))-{- | Fields :--    * 'Proto.Google.Protobuf.Descriptor_Fields.namePart' @:: Lens' UninterpretedOption'NamePart Data.Text.Text@-    * 'Proto.Google.Protobuf.Descriptor_Fields.isExtension' @:: Lens' UninterpretedOption'NamePart Prelude.Bool@- -}-data UninterpretedOption'NamePart = UninterpretedOption'NamePart{_UninterpretedOption'NamePart'namePart-                                                                 :: !Data.Text.Text,-                                                                 _UninterpretedOption'NamePart'isExtension-                                                                 :: !Prelude.Bool,-                                                                 _UninterpretedOption'NamePart'_unknownFields-                                                                 :: !Data.ProtoLens.FieldSet}-                                      deriving (Prelude.Eq, Prelude.Ord)-instance Prelude.Show UninterpretedOption'NamePart where-        showsPrec _ __x __s-          = Prelude.showChar '{'-              (Prelude.showString (Data.ProtoLens.showMessageShort __x)-                 (Prelude.showChar '}' __s))-instance Data.ProtoLens.Field.HasField UninterpretedOption'NamePart-           "namePart"-           (Data.Text.Text)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _UninterpretedOption'NamePart'namePart-               (\ x__ y__ -> x__{_UninterpretedOption'NamePart'namePart = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Field.HasField UninterpretedOption'NamePart-           "isExtension"-           (Prelude.Bool)-         where-        fieldOf _-          = (Lens.Family2.Unchecked.lens-               _UninterpretedOption'NamePart'isExtension-               (\ x__ y__ ->-                  x__{_UninterpretedOption'NamePart'isExtension = y__}))-              Prelude.. Prelude.id-instance Data.ProtoLens.Message UninterpretedOption'NamePart where-        messageName _-          = Data.Text.pack "google.protobuf.UninterpretedOption.NamePart"-        fieldsByTag-          = let namePart__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "name_part"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.StringField ::-                         Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)-                      (Data.ProtoLens.PlainField Data.ProtoLens.Required-                         (Data.ProtoLens.Field.field @"namePart"))-                      :: Data.ProtoLens.FieldDescriptor UninterpretedOption'NamePart-                isExtension__field_descriptor-                  = Data.ProtoLens.FieldDescriptor "is_extension"-                      (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField ::-                         Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)-                      (Data.ProtoLens.PlainField Data.ProtoLens.Required-                         (Data.ProtoLens.Field.field @"isExtension"))-                      :: Data.ProtoLens.FieldDescriptor UninterpretedOption'NamePart-              in-              Data.Map.fromList-                [(Data.ProtoLens.Tag 1, namePart__field_descriptor),-                 (Data.ProtoLens.Tag 2, isExtension__field_descriptor)]-        unknownFields-          = Lens.Family2.Unchecked.lens-              _UninterpretedOption'NamePart'_unknownFields-              (\ x__ y__ ->-                 x__{_UninterpretedOption'NamePart'_unknownFields = y__})-        defMessage-          = UninterpretedOption'NamePart{_UninterpretedOption'NamePart'namePart-                                           = Data.ProtoLens.fieldDefault,-                                         _UninterpretedOption'NamePart'isExtension =-                                           Data.ProtoLens.fieldDefault,-                                         _UninterpretedOption'NamePart'_unknownFields = ([])}-        parseMessage-          = let loop ::-                     UninterpretedOption'NamePart ->-                       Prelude.Bool ->-                         Prelude.Bool ->-                           Data.ProtoLens.Encoding.Bytes.Parser UninterpretedOption'NamePart-                loop x required'isExtension required'namePart-                  = do end <- Data.ProtoLens.Encoding.Bytes.atEnd-                       if end then-                         do let missing-                                  = (if required'isExtension then (:) "is_extension" else-                                       Prelude.id)-                                      ((if required'namePart then (:) "name_part" else Prelude.id)-                                         [])-                              in-                              if Prelude.null missing then Prelude.return () else-                                Prelude.fail-                                  (("Missing required fields: ") Prelude.++-                                     Prelude.show (missing :: ([Prelude.String])))-                            Prelude.return-                              (Lens.Family2.over Data.ProtoLens.unknownFields-                                 (\ !t -> Prelude.reverse t)-                                 x)-                         else-                         do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt-                            case tag of-                                10 -> do y <- (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt-                                                              Data.ProtoLens.Encoding.Bytes.getBytes-                                                                (Prelude.fromIntegral len)-                                                  Data.ProtoLens.Encoding.Bytes.runEither-                                                    (case Data.Text.Encoding.decodeUtf8' value of-                                                         Prelude.Left err -> Prelude.Left-                                                                               (Prelude.show err)-                                                         Prelude.Right r -> Prelude.Right r))-                                                Data.ProtoLens.Encoding.Bytes.<?> "name_part"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"namePart")-                                              y-                                              x)-                                           required'isExtension-                                           Prelude.False-                                16 -> do y <- (Prelude.fmap ((Prelude./=) 0)-                                                 Data.ProtoLens.Encoding.Bytes.getVarInt)-                                                Data.ProtoLens.Encoding.Bytes.<?> "is_extension"-                                         loop-                                           (Lens.Family2.set-                                              (Data.ProtoLens.Field.field @"isExtension")-                                              y-                                              x)-                                           Prelude.False-                                           required'namePart-                                wire -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire-                                                   wire-                                           loop-                                             (Lens.Family2.over Data.ProtoLens.unknownFields-                                                (\ !t -> (:) y t)-                                                x)-                                             required'isExtension-                                             required'namePart-              in-              (do loop Data.ProtoLens.defMessage Prelude.True Prelude.True)-                Data.ProtoLens.Encoding.Bytes.<?> "NamePart"-        buildMessage-          = (\ _x ->-               ((Data.ProtoLens.Encoding.Bytes.putVarInt 10) Data.Monoid.<>-                  (((\ bs ->-                       (Data.ProtoLens.Encoding.Bytes.putVarInt-                          (Prelude.fromIntegral (Data.ByteString.length bs)))-                         Data.Monoid.<> Data.ProtoLens.Encoding.Bytes.putBytes bs))-                     Prelude.. Data.Text.Encoding.encodeUtf8)-                    (Lens.Family2.view (Data.ProtoLens.Field.field @"namePart") _x))-                 Data.Monoid.<>-                 ((Data.ProtoLens.Encoding.Bytes.putVarInt 16) Data.Monoid.<>-                    ((Data.ProtoLens.Encoding.Bytes.putVarInt) Prelude..-                       (\ b -> if b then 1 else 0))-                      (Lens.Family2.view (Data.ProtoLens.Field.field @"isExtension") _x))-                   Data.Monoid.<>-                   Data.ProtoLens.Encoding.Wire.buildFieldSet-                     (Lens.Family2.view Data.ProtoLens.unknownFields _x))-instance Control.DeepSeq.NFData UninterpretedOption'NamePart where-        rnf-          = (\ x__ ->-               Control.DeepSeq.deepseq-                 (_UninterpretedOption'NamePart'_unknownFields x__)-                 (Control.DeepSeq.deepseq-                    (_UninterpretedOption'NamePart'namePart x__)-                    (Control.DeepSeq.deepseq-                       (_UninterpretedOption'NamePart'isExtension x__)-                       (()))))