diff --git a/proto-lens-descriptors.cabal b/proto-lens-descriptors.cabal --- a/proto-lens-descriptors.cabal +++ b/proto-lens-descriptors.cabal @@ -1,5 +1,5 @@ name: proto-lens-descriptors -version: 0.1.0.5 +version: 0.2.0.0 synopsis: Protocol buffers for describing the definitions of messages. description: This package provides definitions for the 'proto-lens' package @@ -7,7 +7,7 @@ license: BSD3 license-file: LICENSE author: Judah Jacobson -maintainer: judahjacobson@google.com +maintainer: proto-lens@googlegroups.com copyright: Google Inc. category: Data build-type: Simple @@ -25,7 +25,8 @@ , bytestring == 0.10.* , data-default-class >= 0.0 && < 0.2 , lens-family == 1.2.* + , lens-labels == 0.1.* -- Specify an exact version of `proto-lens`, since it's tied closely -- to the generated code. - , proto-lens == 0.1.0.5 + , proto-lens == 0.2.0.0 , text == 1.2.* diff --git a/src/Proto/Google/Protobuf/Compiler/Plugin.hs b/src/Proto/Google/Protobuf/Compiler/Plugin.hs --- a/src/Proto/Google/Protobuf/Compiler/Plugin.hs +++ b/src/Proto/Google/Protobuf/Compiler/Plugin.hs @@ -1,8 +1,8 @@ {- This file was auto-generated from google/protobuf/compiler/plugin.proto by the proto-lens-protoc program. -} {-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, - PatternSynonyms #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} + UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, + FlexibleInstances, PatternSynonyms, MagicHash #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} module Proto.Google.Protobuf.Compiler.Plugin where import qualified Prelude import qualified Data.Int @@ -15,51 +15,48 @@ import qualified Data.Text import qualified Data.Map import qualified Data.ByteString +import qualified Lens.Labels import qualified Proto.Google.Protobuf.Descriptor data CodeGeneratorRequest = CodeGeneratorRequest{_CodeGeneratorRequest'fileToGenerate - :: [Data.Text.Text], + :: ![Data.Text.Text], _CodeGeneratorRequest'parameter :: - Prelude.Maybe Data.Text.Text, + !(Prelude.Maybe Data.Text.Text), _CodeGeneratorRequest'protoFile :: - [Proto.Google.Protobuf.Descriptor.FileDescriptorProto]} + ![Proto.Google.Protobuf.Descriptor.FileDescriptorProto]} deriving (Prelude.Show, Prelude.Eq) -type instance - Data.ProtoLens.Field "fileToGenerate" CodeGeneratorRequest = - [Data.Text.Text] - -instance Data.ProtoLens.HasField "fileToGenerate" - CodeGeneratorRequest CodeGeneratorRequest where - field _ +instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], + Prelude.Functor f) => + Lens.Labels.HasLens "fileToGenerate" f CodeGeneratorRequest + CodeGeneratorRequest a b where + lensOf _ = Lens.Family2.Unchecked.lens _CodeGeneratorRequest'fileToGenerate (\ x__ y__ -> x__{_CodeGeneratorRequest'fileToGenerate = y__}) -type instance Data.ProtoLens.Field "parameter" CodeGeneratorRequest - = Data.Text.Text - -instance Data.ProtoLens.HasField "parameter" CodeGeneratorRequest - CodeGeneratorRequest where - field _ +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "parameter" f CodeGeneratorRequest + CodeGeneratorRequest a b where + lensOf _ = (Prelude..) maybe'parameter (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) -type instance - Data.ProtoLens.Field "maybe'parameter" CodeGeneratorRequest = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'parameter" - CodeGeneratorRequest CodeGeneratorRequest where - field _ +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'parameter" f CodeGeneratorRequest + CodeGeneratorRequest a b where + lensOf _ = Lens.Family2.Unchecked.lens _CodeGeneratorRequest'parameter (\ x__ y__ -> x__{_CodeGeneratorRequest'parameter = y__}) -type instance Data.ProtoLens.Field "protoFile" CodeGeneratorRequest - = [Proto.Google.Protobuf.Descriptor.FileDescriptorProto] - -instance Data.ProtoLens.HasField "protoFile" CodeGeneratorRequest - CodeGeneratorRequest where - field _ +instance (a ~ + [Proto.Google.Protobuf.Descriptor.FileDescriptorProto], + b ~ [Proto.Google.Protobuf.Descriptor.FileDescriptorProto], + Prelude.Functor f) => + Lens.Labels.HasLens "protoFile" f CodeGeneratorRequest + CodeGeneratorRequest a b where + lensOf _ = Lens.Family2.Unchecked.lens _CodeGeneratorRequest'protoFile (\ x__ y__ -> x__{_CodeGeneratorRequest'protoFile = y__}) @@ -77,17 +74,20 @@ Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked fileToGenerate) + :: Data.ProtoLens.FieldDescriptor CodeGeneratorRequest parameter__field_descriptor = Data.ProtoLens.FieldDescriptor "parameter" (Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField maybe'parameter) + :: Data.ProtoLens.FieldDescriptor CodeGeneratorRequest protoFile__field_descriptor = Data.ProtoLens.FieldDescriptor "proto_file" (Data.ProtoLens.MessageField :: Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Descriptor.FileDescriptorProto) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked protoFile) + :: Data.ProtoLens.FieldDescriptor CodeGeneratorRequest in Data.ProtoLens.MessageDescriptor (Data.Map.fromList @@ -100,36 +100,32 @@ ("proto_file", protoFile__field_descriptor)]) data CodeGeneratorResponse = CodeGeneratorResponse{_CodeGeneratorResponse'error - :: Prelude.Maybe Data.Text.Text, + :: !(Prelude.Maybe Data.Text.Text), _CodeGeneratorResponse'file :: - [CodeGeneratorResponse'File]} + ![CodeGeneratorResponse'File]} deriving (Prelude.Show, Prelude.Eq) -type instance Data.ProtoLens.Field "error" CodeGeneratorResponse = - Data.Text.Text - -instance Data.ProtoLens.HasField "error" CodeGeneratorResponse - CodeGeneratorResponse where - field _ +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "error" f CodeGeneratorResponse + CodeGeneratorResponse a b where + lensOf _ = (Prelude..) maybe'error (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) -type instance - Data.ProtoLens.Field "maybe'error" CodeGeneratorResponse = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'error" - CodeGeneratorResponse CodeGeneratorResponse where - field _ +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'error" f CodeGeneratorResponse + CodeGeneratorResponse a b where + lensOf _ = Lens.Family2.Unchecked.lens _CodeGeneratorResponse'error (\ x__ y__ -> x__{_CodeGeneratorResponse'error = y__}) -type instance Data.ProtoLens.Field "file" CodeGeneratorResponse = - [CodeGeneratorResponse'File] - -instance Data.ProtoLens.HasField "file" CodeGeneratorResponse - CodeGeneratorResponse where - field _ +instance (a ~ [CodeGeneratorResponse'File], + b ~ [CodeGeneratorResponse'File], Prelude.Functor f) => + Lens.Labels.HasLens "file" f CodeGeneratorResponse + CodeGeneratorResponse a b where + lensOf _ = Lens.Family2.Unchecked.lens _CodeGeneratorResponse'file (\ x__ y__ -> x__{_CodeGeneratorResponse'file = y__}) @@ -146,11 +142,13 @@ (Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField maybe'error) + :: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse file__field_descriptor = Data.ProtoLens.FieldDescriptor "file" (Data.ProtoLens.MessageField :: Data.ProtoLens.FieldTypeDescriptor CodeGeneratorResponse'File) (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked file) + :: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse in Data.ProtoLens.MessageDescriptor (Data.Map.fromList @@ -161,73 +159,60 @@ ("file", file__field_descriptor)]) data CodeGeneratorResponse'File = CodeGeneratorResponse'File{_CodeGeneratorResponse'File'name - :: Prelude.Maybe Data.Text.Text, + :: !(Prelude.Maybe Data.Text.Text), _CodeGeneratorResponse'File'insertionPoint - :: Prelude.Maybe Data.Text.Text, + :: !(Prelude.Maybe Data.Text.Text), _CodeGeneratorResponse'File'content :: - Prelude.Maybe Data.Text.Text} + !(Prelude.Maybe Data.Text.Text)} deriving (Prelude.Show, Prelude.Eq) -type instance - Data.ProtoLens.Field "name" CodeGeneratorResponse'File = - Data.Text.Text - -instance Data.ProtoLens.HasField "name" CodeGeneratorResponse'File - CodeGeneratorResponse'File where - field _ +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "name" f CodeGeneratorResponse'File + CodeGeneratorResponse'File a b where + lensOf _ = (Prelude..) maybe'name (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) -type instance - Data.ProtoLens.Field "maybe'name" CodeGeneratorResponse'File = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'name" - CodeGeneratorResponse'File CodeGeneratorResponse'File where - field _ +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'name" f CodeGeneratorResponse'File + CodeGeneratorResponse'File a b where + lensOf _ = Lens.Family2.Unchecked.lens _CodeGeneratorResponse'File'name (\ x__ y__ -> x__{_CodeGeneratorResponse'File'name = y__}) -type instance - Data.ProtoLens.Field "insertionPoint" CodeGeneratorResponse'File = - Data.Text.Text - -instance Data.ProtoLens.HasField "insertionPoint" - CodeGeneratorResponse'File CodeGeneratorResponse'File where - field _ +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "insertionPoint" f CodeGeneratorResponse'File + CodeGeneratorResponse'File a b where + lensOf _ = (Prelude..) maybe'insertionPoint (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) -type instance - Data.ProtoLens.Field "maybe'insertionPoint" - CodeGeneratorResponse'File - = Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'insertionPoint" - CodeGeneratorResponse'File CodeGeneratorResponse'File where - field _ +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'insertionPoint" f + CodeGeneratorResponse'File CodeGeneratorResponse'File a b where + lensOf _ = Lens.Family2.Unchecked.lens _CodeGeneratorResponse'File'insertionPoint (\ x__ y__ -> x__{_CodeGeneratorResponse'File'insertionPoint = y__}) -type instance - Data.ProtoLens.Field "content" CodeGeneratorResponse'File = - Data.Text.Text - -instance Data.ProtoLens.HasField "content" - CodeGeneratorResponse'File CodeGeneratorResponse'File where - field _ +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "content" f CodeGeneratorResponse'File + CodeGeneratorResponse'File a b where + lensOf _ = (Prelude..) maybe'content (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) -type instance - Data.ProtoLens.Field "maybe'content" CodeGeneratorResponse'File = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'content" - CodeGeneratorResponse'File CodeGeneratorResponse'File where - field _ +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'content" f CodeGeneratorResponse'File + CodeGeneratorResponse'File a b where + lensOf _ = Lens.Family2.Unchecked.lens _CodeGeneratorResponse'File'content (\ x__ y__ -> x__{_CodeGeneratorResponse'File'content = y__}) @@ -246,16 +231,19 @@ (Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField maybe'name) + :: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse'File insertionPoint__field_descriptor = Data.ProtoLens.FieldDescriptor "insertion_point" (Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField maybe'insertionPoint) + :: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse'File content__field_descriptor = Data.ProtoLens.FieldDescriptor "content" (Data.ProtoLens.StringField :: Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) (Data.ProtoLens.OptionalField maybe'content) + :: Data.ProtoLens.FieldDescriptor CodeGeneratorResponse'File in Data.ProtoLens.MessageDescriptor (Data.Map.fromList @@ -268,120 +256,111 @@ ("content", content__field_descriptor)]) content :: - forall msg msg' . Data.ProtoLens.HasField "content" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "content" msg) - (Data.ProtoLens.Field "content" msg') + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "content" f s t a b) => + Lens.Family2.LensLike f s t a b content - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "content") + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "content") error :: - forall msg msg' . Data.ProtoLens.HasField "error" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "error" msg) - (Data.ProtoLens.Field "error" msg') + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "error" f s t a b) => + Lens.Family2.LensLike f s t a b error - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "error") + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "error") file :: - forall msg msg' . Data.ProtoLens.HasField "file" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "file" msg) - (Data.ProtoLens.Field "file" msg') + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "file" f s t a b) => + Lens.Family2.LensLike f s t a b file - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "file") + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "file") fileToGenerate :: - forall msg msg' . - Data.ProtoLens.HasField "fileToGenerate" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "fileToGenerate" msg) - (Data.ProtoLens.Field "fileToGenerate" msg') + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "fileToGenerate" f s t a b) => + Lens.Family2.LensLike f s t a b fileToGenerate - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "fileToGenerate") + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "fileToGenerate") insertionPoint :: - forall msg msg' . - Data.ProtoLens.HasField "insertionPoint" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "insertionPoint" msg) - (Data.ProtoLens.Field "insertionPoint" msg') + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "insertionPoint" f s t a b) => + Lens.Family2.LensLike f s t a b insertionPoint - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "insertionPoint") + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "insertionPoint") maybe'content :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'content" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'content" msg) - (Data.ProtoLens.Field "maybe'content" msg') + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'content" f s t a b) => + Lens.Family2.LensLike f s t a b maybe'content - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'content") + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'content") maybe'error :: - forall msg msg' . Data.ProtoLens.HasField "maybe'error" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'error" msg) - (Data.ProtoLens.Field "maybe'error" msg') + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "maybe'error" f s t a b) => + Lens.Family2.LensLike f s t a b maybe'error - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'error") + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'error") maybe'insertionPoint :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'insertionPoint" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'insertionPoint" msg) - (Data.ProtoLens.Field "maybe'insertionPoint" msg') + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'insertionPoint" f s t a b) => + Lens.Family2.LensLike f s t a b maybe'insertionPoint - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'insertionPoint") + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'insertionPoint") maybe'name :: - forall msg msg' . Data.ProtoLens.HasField "maybe'name" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'name" msg) - (Data.ProtoLens.Field "maybe'name" msg') + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "maybe'name" f s t a b) => + Lens.Family2.LensLike f s t a b maybe'name - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'name") + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'name") maybe'parameter :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'parameter" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'parameter" msg) - (Data.ProtoLens.Field "maybe'parameter" msg') + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'parameter" f s t a b) => + Lens.Family2.LensLike f s t a b maybe'parameter - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'parameter") + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'parameter") name :: - forall msg msg' . Data.ProtoLens.HasField "name" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "name" msg) - (Data.ProtoLens.Field "name" msg') + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "name" f s t a b) => + Lens.Family2.LensLike f s t a b name - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "name") + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") parameter :: - forall msg msg' . Data.ProtoLens.HasField "parameter" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "parameter" msg) - (Data.ProtoLens.Field "parameter" msg') + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "parameter" f s t a b) => + Lens.Family2.LensLike f s t a b parameter - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "parameter") + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "parameter") protoFile :: - forall msg msg' . Data.ProtoLens.HasField "protoFile" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "protoFile" msg) - (Data.ProtoLens.Field "protoFile" msg') + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "protoFile" f s t a b) => + Lens.Family2.LensLike f s t a b protoFile - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "protoFile") + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "protoFile") diff --git a/src/Proto/Google/Protobuf/Descriptor.hs b/src/Proto/Google/Protobuf/Descriptor.hs --- a/src/Proto/Google/Protobuf/Descriptor.hs +++ b/src/Proto/Google/Protobuf/Descriptor.hs @@ -1,4834 +1,4514 @@ {- This file was auto-generated from google/protobuf/descriptor.proto by the proto-lens-protoc program. -} {-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, - MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, - PatternSynonyms #-} -{-# OPTIONS_GHC -fno-warn-unused-imports#-} -module Proto.Google.Protobuf.Descriptor where -import qualified Prelude -import qualified Data.Int -import qualified Data.Word -import qualified Data.ProtoLens -import qualified Data.ProtoLens.Message.Enum -import qualified Lens.Family2 -import qualified Lens.Family2.Unchecked -import qualified Data.Default.Class -import qualified Data.Text -import qualified Data.Map -import qualified Data.ByteString - -data DescriptorProto = DescriptorProto{_DescriptorProto'name :: - Prelude.Maybe Data.Text.Text, - _DescriptorProto'field :: [FieldDescriptorProto], - _DescriptorProto'extension :: [FieldDescriptorProto], - _DescriptorProto'nestedType :: [DescriptorProto], - _DescriptorProto'enumType :: [EnumDescriptorProto], - _DescriptorProto'extensionRange :: - [DescriptorProto'ExtensionRange], - _DescriptorProto'oneofDecl :: [OneofDescriptorProto], - _DescriptorProto'options :: Prelude.Maybe MessageOptions, - _DescriptorProto'reservedRange :: - [DescriptorProto'ReservedRange], - _DescriptorProto'reservedName :: [Data.Text.Text]} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "name" DescriptorProto = - Data.Text.Text - -instance Data.ProtoLens.HasField "name" DescriptorProto - DescriptorProto where - field _ - = (Prelude..) maybe'name - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance Data.ProtoLens.Field "maybe'name" DescriptorProto = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'name" DescriptorProto - DescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _DescriptorProto'name - (\ x__ y__ -> x__{_DescriptorProto'name = y__}) - -type instance Data.ProtoLens.Field "field" DescriptorProto = - [FieldDescriptorProto] - -instance Data.ProtoLens.HasField "field" DescriptorProto - DescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _DescriptorProto'field - (\ x__ y__ -> x__{_DescriptorProto'field = y__}) - -type instance Data.ProtoLens.Field "extension" DescriptorProto = - [FieldDescriptorProto] - -instance Data.ProtoLens.HasField "extension" DescriptorProto - DescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _DescriptorProto'extension - (\ x__ y__ -> x__{_DescriptorProto'extension = y__}) - -type instance Data.ProtoLens.Field "nestedType" DescriptorProto = - [DescriptorProto] - -instance Data.ProtoLens.HasField "nestedType" DescriptorProto - DescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _DescriptorProto'nestedType - (\ x__ y__ -> x__{_DescriptorProto'nestedType = y__}) - -type instance Data.ProtoLens.Field "enumType" DescriptorProto = - [EnumDescriptorProto] - -instance Data.ProtoLens.HasField "enumType" DescriptorProto - DescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _DescriptorProto'enumType - (\ x__ y__ -> x__{_DescriptorProto'enumType = y__}) - -type instance Data.ProtoLens.Field "extensionRange" DescriptorProto - = [DescriptorProto'ExtensionRange] - -instance Data.ProtoLens.HasField "extensionRange" DescriptorProto - DescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _DescriptorProto'extensionRange - (\ x__ y__ -> x__{_DescriptorProto'extensionRange = y__}) - -type instance Data.ProtoLens.Field "oneofDecl" DescriptorProto = - [OneofDescriptorProto] - -instance Data.ProtoLens.HasField "oneofDecl" DescriptorProto - DescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _DescriptorProto'oneofDecl - (\ x__ y__ -> x__{_DescriptorProto'oneofDecl = y__}) - -type instance Data.ProtoLens.Field "options" DescriptorProto = - MessageOptions - -instance Data.ProtoLens.HasField "options" DescriptorProto - DescriptorProto where - field _ - = (Prelude..) maybe'options - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -type instance Data.ProtoLens.Field "maybe'options" DescriptorProto - = Prelude.Maybe MessageOptions - -instance Data.ProtoLens.HasField "maybe'options" DescriptorProto - DescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _DescriptorProto'options - (\ x__ y__ -> x__{_DescriptorProto'options = y__}) - -type instance Data.ProtoLens.Field "reservedRange" DescriptorProto - = [DescriptorProto'ReservedRange] - -instance Data.ProtoLens.HasField "reservedRange" DescriptorProto - DescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _DescriptorProto'reservedRange - (\ x__ y__ -> x__{_DescriptorProto'reservedRange = y__}) - -type instance Data.ProtoLens.Field "reservedName" DescriptorProto = - [Data.Text.Text] - -instance Data.ProtoLens.HasField "reservedName" DescriptorProto - DescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _DescriptorProto'reservedName - (\ x__ y__ -> x__{_DescriptorProto'reservedName = y__}) - -instance Data.Default.Class.Default DescriptorProto where - def - = DescriptorProto{_DescriptorProto'name = Prelude.Nothing, - _DescriptorProto'field = [], _DescriptorProto'extension = [], - _DescriptorProto'nestedType = [], _DescriptorProto'enumType = [], - _DescriptorProto'extensionRange = [], - _DescriptorProto'oneofDecl = [], - _DescriptorProto'options = Prelude.Nothing, - _DescriptorProto'reservedRange = [], - _DescriptorProto'reservedName = []} - -instance Data.ProtoLens.Message DescriptorProto where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'name) - field__field_descriptor - = Data.ProtoLens.FieldDescriptor "field" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked field) - extension__field_descriptor - = Data.ProtoLens.FieldDescriptor "extension" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked extension) - nestedType__field_descriptor - = Data.ProtoLens.FieldDescriptor "nested_type" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor DescriptorProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked nestedType) - enumType__field_descriptor - = Data.ProtoLens.FieldDescriptor "enum_type" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor EnumDescriptorProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked enumType) - extensionRange__field_descriptor - = Data.ProtoLens.FieldDescriptor "extension_range" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor DescriptorProto'ExtensionRange) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - extensionRange) - oneofDecl__field_descriptor - = Data.ProtoLens.FieldDescriptor "oneof_decl" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor OneofDescriptorProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked oneofDecl) - options__field_descriptor - = Data.ProtoLens.FieldDescriptor "options" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor MessageOptions) - (Data.ProtoLens.OptionalField maybe'options) - reservedRange__field_descriptor - = Data.ProtoLens.FieldDescriptor "reserved_range" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor DescriptorProto'ReservedRange) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - reservedRange) - reservedName__field_descriptor - = Data.ProtoLens.FieldDescriptor "reserved_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked reservedName) - in - Data.ProtoLens.MessageDescriptor - (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)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("field", field__field_descriptor), - ("extension", extension__field_descriptor), - ("nested_type", nestedType__field_descriptor), - ("enum_type", enumType__field_descriptor), - ("extension_range", extensionRange__field_descriptor), - ("oneof_decl", oneofDecl__field_descriptor), - ("options", options__field_descriptor), - ("reserved_range", reservedRange__field_descriptor), - ("reserved_name", reservedName__field_descriptor)]) - -data DescriptorProto'ExtensionRange = DescriptorProto'ExtensionRange{_DescriptorProto'ExtensionRange'start - :: - Prelude.Maybe Data.Int.Int32, - _DescriptorProto'ExtensionRange'end - :: - Prelude.Maybe Data.Int.Int32} - deriving (Prelude.Show, Prelude.Eq) - -type instance - Data.ProtoLens.Field "start" DescriptorProto'ExtensionRange = - Data.Int.Int32 - -instance Data.ProtoLens.HasField "start" - DescriptorProto'ExtensionRange DescriptorProto'ExtensionRange where - field _ - = (Prelude..) maybe'start - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'start" DescriptorProto'ExtensionRange = - Prelude.Maybe Data.Int.Int32 - -instance Data.ProtoLens.HasField "maybe'start" - DescriptorProto'ExtensionRange DescriptorProto'ExtensionRange where - field _ - = Lens.Family2.Unchecked.lens _DescriptorProto'ExtensionRange'start - (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'start = y__}) - -type instance - Data.ProtoLens.Field "end" DescriptorProto'ExtensionRange = - Data.Int.Int32 - -instance Data.ProtoLens.HasField "end" - DescriptorProto'ExtensionRange DescriptorProto'ExtensionRange where - field _ - = (Prelude..) maybe'end - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'end" DescriptorProto'ExtensionRange = - Prelude.Maybe Data.Int.Int32 - -instance Data.ProtoLens.HasField "maybe'end" - DescriptorProto'ExtensionRange DescriptorProto'ExtensionRange where - field _ - = Lens.Family2.Unchecked.lens _DescriptorProto'ExtensionRange'end - (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'end = y__}) - -instance Data.Default.Class.Default DescriptorProto'ExtensionRange - where - def - = DescriptorProto'ExtensionRange{_DescriptorProto'ExtensionRange'start - = Prelude.Nothing, - _DescriptorProto'ExtensionRange'end = Prelude.Nothing} - -instance Data.ProtoLens.Message DescriptorProto'ExtensionRange - where - descriptor - = let start__field_descriptor - = Data.ProtoLens.FieldDescriptor "start" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.OptionalField maybe'start) - end__field_descriptor - = Data.ProtoLens.FieldDescriptor "end" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.OptionalField maybe'end) - in - Data.ProtoLens.MessageDescriptor - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, start__field_descriptor), - (Data.ProtoLens.Tag 2, end__field_descriptor)]) - (Data.Map.fromList - [("start", start__field_descriptor), - ("end", end__field_descriptor)]) - -data DescriptorProto'ReservedRange = DescriptorProto'ReservedRange{_DescriptorProto'ReservedRange'start - :: Prelude.Maybe Data.Int.Int32, - _DescriptorProto'ReservedRange'end - :: Prelude.Maybe Data.Int.Int32} - deriving (Prelude.Show, Prelude.Eq) - -type instance - Data.ProtoLens.Field "start" DescriptorProto'ReservedRange = - Data.Int.Int32 - -instance Data.ProtoLens.HasField "start" - DescriptorProto'ReservedRange DescriptorProto'ReservedRange where - field _ - = (Prelude..) maybe'start - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'start" DescriptorProto'ReservedRange = - Prelude.Maybe Data.Int.Int32 - -instance Data.ProtoLens.HasField "maybe'start" - DescriptorProto'ReservedRange DescriptorProto'ReservedRange where - field _ - = Lens.Family2.Unchecked.lens _DescriptorProto'ReservedRange'start - (\ x__ y__ -> x__{_DescriptorProto'ReservedRange'start = y__}) - -type instance - Data.ProtoLens.Field "end" DescriptorProto'ReservedRange = - Data.Int.Int32 - -instance Data.ProtoLens.HasField "end" - DescriptorProto'ReservedRange DescriptorProto'ReservedRange where - field _ - = (Prelude..) maybe'end - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'end" DescriptorProto'ReservedRange = - Prelude.Maybe Data.Int.Int32 - -instance Data.ProtoLens.HasField "maybe'end" - DescriptorProto'ReservedRange DescriptorProto'ReservedRange where - field _ - = Lens.Family2.Unchecked.lens _DescriptorProto'ReservedRange'end - (\ x__ y__ -> x__{_DescriptorProto'ReservedRange'end = y__}) - -instance Data.Default.Class.Default DescriptorProto'ReservedRange - where - def - = DescriptorProto'ReservedRange{_DescriptorProto'ReservedRange'start - = Prelude.Nothing, - _DescriptorProto'ReservedRange'end = Prelude.Nothing} - -instance Data.ProtoLens.Message DescriptorProto'ReservedRange where - descriptor - = let start__field_descriptor - = Data.ProtoLens.FieldDescriptor "start" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.OptionalField maybe'start) - end__field_descriptor - = Data.ProtoLens.FieldDescriptor "end" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.OptionalField maybe'end) - in - Data.ProtoLens.MessageDescriptor - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, start__field_descriptor), - (Data.ProtoLens.Tag 2, end__field_descriptor)]) - (Data.Map.fromList - [("start", start__field_descriptor), - ("end", end__field_descriptor)]) - -data EnumDescriptorProto = EnumDescriptorProto{_EnumDescriptorProto'name - :: Prelude.Maybe Data.Text.Text, - _EnumDescriptorProto'value :: - [EnumValueDescriptorProto], - _EnumDescriptorProto'options :: - Prelude.Maybe EnumOptions} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "name" EnumDescriptorProto = - Data.Text.Text - -instance Data.ProtoLens.HasField "name" EnumDescriptorProto - EnumDescriptorProto where - field _ - = (Prelude..) maybe'name - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance Data.ProtoLens.Field "maybe'name" EnumDescriptorProto - = Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'name" EnumDescriptorProto - EnumDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _EnumDescriptorProto'name - (\ x__ y__ -> x__{_EnumDescriptorProto'name = y__}) - -type instance Data.ProtoLens.Field "value" EnumDescriptorProto = - [EnumValueDescriptorProto] - -instance Data.ProtoLens.HasField "value" EnumDescriptorProto - EnumDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _EnumDescriptorProto'value - (\ x__ y__ -> x__{_EnumDescriptorProto'value = y__}) - -type instance Data.ProtoLens.Field "options" EnumDescriptorProto = - EnumOptions - -instance Data.ProtoLens.HasField "options" EnumDescriptorProto - EnumDescriptorProto where - field _ - = (Prelude..) maybe'options - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -type instance - Data.ProtoLens.Field "maybe'options" EnumDescriptorProto = - Prelude.Maybe EnumOptions - -instance Data.ProtoLens.HasField "maybe'options" - EnumDescriptorProto EnumDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _EnumDescriptorProto'options - (\ x__ y__ -> x__{_EnumDescriptorProto'options = y__}) - -instance Data.Default.Class.Default EnumDescriptorProto where - def - = EnumDescriptorProto{_EnumDescriptorProto'name = Prelude.Nothing, - _EnumDescriptorProto'value = [], - _EnumDescriptorProto'options = Prelude.Nothing} - -instance Data.ProtoLens.Message EnumDescriptorProto where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'name) - value__field_descriptor - = Data.ProtoLens.FieldDescriptor "value" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor EnumValueDescriptorProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked value) - options__field_descriptor - = Data.ProtoLens.FieldDescriptor "options" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor EnumOptions) - (Data.ProtoLens.OptionalField maybe'options) - in - Data.ProtoLens.MessageDescriptor - (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.Map.fromList - [("name", name__field_descriptor), - ("value", value__field_descriptor), - ("options", options__field_descriptor)]) - -data EnumOptions = EnumOptions{_EnumOptions'allowAlias :: - Prelude.Maybe Prelude.Bool, - _EnumOptions'deprecated :: Prelude.Maybe Prelude.Bool, - _EnumOptions'uninterpretedOption :: [UninterpretedOption]} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "allowAlias" EnumOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "allowAlias" EnumOptions - EnumOptions where - field _ - = (Prelude..) maybe'allowAlias - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance Data.ProtoLens.Field "maybe'allowAlias" EnumOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'allowAlias" EnumOptions - EnumOptions where - field _ - = Lens.Family2.Unchecked.lens _EnumOptions'allowAlias - (\ x__ y__ -> x__{_EnumOptions'allowAlias = y__}) - -type instance Data.ProtoLens.Field "deprecated" EnumOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "deprecated" EnumOptions - EnumOptions where - field _ - = (Prelude..) maybe'deprecated - (Data.ProtoLens.maybeLens Prelude.False) - -type instance Data.ProtoLens.Field "maybe'deprecated" EnumOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'deprecated" EnumOptions - EnumOptions where - field _ - = Lens.Family2.Unchecked.lens _EnumOptions'deprecated - (\ x__ y__ -> x__{_EnumOptions'deprecated = y__}) - -type instance - Data.ProtoLens.Field "uninterpretedOption" EnumOptions = - [UninterpretedOption] - -instance Data.ProtoLens.HasField "uninterpretedOption" EnumOptions - EnumOptions where - field _ - = Lens.Family2.Unchecked.lens _EnumOptions'uninterpretedOption - (\ x__ y__ -> x__{_EnumOptions'uninterpretedOption = y__}) - -instance Data.Default.Class.Default EnumOptions where - def - = EnumOptions{_EnumOptions'allowAlias = Prelude.Nothing, - _EnumOptions'deprecated = Prelude.Nothing, - _EnumOptions'uninterpretedOption = []} - -instance Data.ProtoLens.Message EnumOptions where - descriptor - = let allowAlias__field_descriptor - = Data.ProtoLens.FieldDescriptor "allow_alias" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'allowAlias) - deprecated__field_descriptor - = Data.ProtoLens.FieldDescriptor "deprecated" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'deprecated) - uninterpretedOption__field_descriptor - = Data.ProtoLens.FieldDescriptor "uninterpreted_option" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - uninterpretedOption) - in - Data.ProtoLens.MessageDescriptor - (Data.Map.fromList - [(Data.ProtoLens.Tag 2, allowAlias__field_descriptor), - (Data.ProtoLens.Tag 3, deprecated__field_descriptor), - (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]) - (Data.Map.fromList - [("allow_alias", allowAlias__field_descriptor), - ("deprecated", deprecated__field_descriptor), - ("uninterpreted_option", uninterpretedOption__field_descriptor)]) - -data EnumValueDescriptorProto = EnumValueDescriptorProto{_EnumValueDescriptorProto'name - :: Prelude.Maybe Data.Text.Text, - _EnumValueDescriptorProto'number :: - Prelude.Maybe Data.Int.Int32, - _EnumValueDescriptorProto'options :: - Prelude.Maybe EnumValueOptions} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "name" EnumValueDescriptorProto - = Data.Text.Text - -instance Data.ProtoLens.HasField "name" EnumValueDescriptorProto - EnumValueDescriptorProto where - field _ - = (Prelude..) maybe'name - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'name" EnumValueDescriptorProto = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'name" - EnumValueDescriptorProto EnumValueDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'name - (\ x__ y__ -> x__{_EnumValueDescriptorProto'name = y__}) - -type instance - Data.ProtoLens.Field "number" EnumValueDescriptorProto = - Data.Int.Int32 - -instance Data.ProtoLens.HasField "number" EnumValueDescriptorProto - EnumValueDescriptorProto where - field _ - = (Prelude..) maybe'number - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'number" EnumValueDescriptorProto = - Prelude.Maybe Data.Int.Int32 - -instance Data.ProtoLens.HasField "maybe'number" - EnumValueDescriptorProto EnumValueDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'number - (\ x__ y__ -> x__{_EnumValueDescriptorProto'number = y__}) - -type instance - Data.ProtoLens.Field "options" EnumValueDescriptorProto = - EnumValueOptions - -instance Data.ProtoLens.HasField "options" EnumValueDescriptorProto - EnumValueDescriptorProto where - field _ - = (Prelude..) maybe'options - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -type instance - Data.ProtoLens.Field "maybe'options" EnumValueDescriptorProto = - Prelude.Maybe EnumValueOptions - -instance Data.ProtoLens.HasField "maybe'options" - EnumValueDescriptorProto EnumValueDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'options - (\ x__ y__ -> x__{_EnumValueDescriptorProto'options = y__}) - -instance Data.Default.Class.Default EnumValueDescriptorProto where - def - = EnumValueDescriptorProto{_EnumValueDescriptorProto'name = - Prelude.Nothing, - _EnumValueDescriptorProto'number = Prelude.Nothing, - _EnumValueDescriptorProto'options = Prelude.Nothing} - -instance Data.ProtoLens.Message EnumValueDescriptorProto where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'name) - number__field_descriptor - = Data.ProtoLens.FieldDescriptor "number" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.OptionalField maybe'number) - options__field_descriptor - = Data.ProtoLens.FieldDescriptor "options" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor EnumValueOptions) - (Data.ProtoLens.OptionalField maybe'options) - in - Data.ProtoLens.MessageDescriptor - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, number__field_descriptor), - (Data.ProtoLens.Tag 3, options__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("number", number__field_descriptor), - ("options", options__field_descriptor)]) - -data EnumValueOptions = EnumValueOptions{_EnumValueOptions'deprecated - :: Prelude.Maybe Prelude.Bool, - _EnumValueOptions'uninterpretedOption :: - [UninterpretedOption]} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "deprecated" EnumValueOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "deprecated" EnumValueOptions - EnumValueOptions where - field _ - = (Prelude..) maybe'deprecated - (Data.ProtoLens.maybeLens Prelude.False) - -type instance - Data.ProtoLens.Field "maybe'deprecated" EnumValueOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'deprecated" - EnumValueOptions EnumValueOptions where - field _ - = Lens.Family2.Unchecked.lens _EnumValueOptions'deprecated - (\ x__ y__ -> x__{_EnumValueOptions'deprecated = y__}) - -type instance - Data.ProtoLens.Field "uninterpretedOption" EnumValueOptions = - [UninterpretedOption] - -instance Data.ProtoLens.HasField "uninterpretedOption" - EnumValueOptions EnumValueOptions where - field _ - = Lens.Family2.Unchecked.lens _EnumValueOptions'uninterpretedOption - (\ x__ y__ -> x__{_EnumValueOptions'uninterpretedOption = y__}) - -instance Data.Default.Class.Default EnumValueOptions where - def - = EnumValueOptions{_EnumValueOptions'deprecated = Prelude.Nothing, - _EnumValueOptions'uninterpretedOption = []} - -instance Data.ProtoLens.Message EnumValueOptions where - descriptor - = let deprecated__field_descriptor - = Data.ProtoLens.FieldDescriptor "deprecated" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'deprecated) - uninterpretedOption__field_descriptor - = Data.ProtoLens.FieldDescriptor "uninterpreted_option" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - uninterpretedOption) - in - Data.ProtoLens.MessageDescriptor - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, deprecated__field_descriptor), - (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]) - (Data.Map.fromList - [("deprecated", deprecated__field_descriptor), - ("uninterpreted_option", uninterpretedOption__field_descriptor)]) - -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} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "name" FieldDescriptorProto = - Data.Text.Text - -instance Data.ProtoLens.HasField "name" FieldDescriptorProto - FieldDescriptorProto where - field _ - = (Prelude..) maybe'name - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'name" FieldDescriptorProto = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'name" FieldDescriptorProto - FieldDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FieldDescriptorProto'name - (\ x__ y__ -> x__{_FieldDescriptorProto'name = y__}) - -type instance Data.ProtoLens.Field "number" FieldDescriptorProto = - Data.Int.Int32 - -instance Data.ProtoLens.HasField "number" FieldDescriptorProto - FieldDescriptorProto where - field _ - = (Prelude..) maybe'number - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'number" FieldDescriptorProto = - Prelude.Maybe Data.Int.Int32 - -instance Data.ProtoLens.HasField "maybe'number" - FieldDescriptorProto FieldDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FieldDescriptorProto'number - (\ x__ y__ -> x__{_FieldDescriptorProto'number = y__}) - -type instance Data.ProtoLens.Field "label" FieldDescriptorProto = - FieldDescriptorProto'Label - -instance Data.ProtoLens.HasField "label" FieldDescriptorProto - FieldDescriptorProto where - field _ - = (Prelude..) maybe'label - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -type instance - Data.ProtoLens.Field "maybe'label" FieldDescriptorProto = - Prelude.Maybe FieldDescriptorProto'Label - -instance Data.ProtoLens.HasField "maybe'label" FieldDescriptorProto - FieldDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FieldDescriptorProto'label - (\ x__ y__ -> x__{_FieldDescriptorProto'label = y__}) - -type instance Data.ProtoLens.Field "type'" FieldDescriptorProto = - FieldDescriptorProto'Type - -instance Data.ProtoLens.HasField "type'" FieldDescriptorProto - FieldDescriptorProto where - field _ - = (Prelude..) maybe'type' - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -type instance - Data.ProtoLens.Field "maybe'type'" FieldDescriptorProto = - Prelude.Maybe FieldDescriptorProto'Type - -instance Data.ProtoLens.HasField "maybe'type'" FieldDescriptorProto - FieldDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FieldDescriptorProto'type' - (\ x__ y__ -> x__{_FieldDescriptorProto'type' = y__}) - -type instance Data.ProtoLens.Field "typeName" FieldDescriptorProto - = Data.Text.Text - -instance Data.ProtoLens.HasField "typeName" FieldDescriptorProto - FieldDescriptorProto where - field _ - = (Prelude..) maybe'typeName - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'typeName" FieldDescriptorProto = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'typeName" - FieldDescriptorProto FieldDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FieldDescriptorProto'typeName - (\ x__ y__ -> x__{_FieldDescriptorProto'typeName = y__}) - -type instance Data.ProtoLens.Field "extendee" FieldDescriptorProto - = Data.Text.Text - -instance Data.ProtoLens.HasField "extendee" FieldDescriptorProto - FieldDescriptorProto where - field _ - = (Prelude..) maybe'extendee - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'extendee" FieldDescriptorProto = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'extendee" - FieldDescriptorProto FieldDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FieldDescriptorProto'extendee - (\ x__ y__ -> x__{_FieldDescriptorProto'extendee = y__}) - -type instance - Data.ProtoLens.Field "defaultValue" FieldDescriptorProto = - Data.Text.Text - -instance Data.ProtoLens.HasField "defaultValue" - FieldDescriptorProto FieldDescriptorProto where - field _ - = (Prelude..) maybe'defaultValue - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'defaultValue" FieldDescriptorProto = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'defaultValue" - FieldDescriptorProto FieldDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FieldDescriptorProto'defaultValue - (\ x__ y__ -> x__{_FieldDescriptorProto'defaultValue = y__}) - -type instance - Data.ProtoLens.Field "oneofIndex" FieldDescriptorProto = - Data.Int.Int32 - -instance Data.ProtoLens.HasField "oneofIndex" FieldDescriptorProto - FieldDescriptorProto where - field _ - = (Prelude..) maybe'oneofIndex - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'oneofIndex" FieldDescriptorProto = - Prelude.Maybe Data.Int.Int32 - -instance Data.ProtoLens.HasField "maybe'oneofIndex" - FieldDescriptorProto FieldDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FieldDescriptorProto'oneofIndex - (\ x__ y__ -> x__{_FieldDescriptorProto'oneofIndex = y__}) - -type instance Data.ProtoLens.Field "jsonName" FieldDescriptorProto - = Data.Text.Text - -instance Data.ProtoLens.HasField "jsonName" FieldDescriptorProto - FieldDescriptorProto where - field _ - = (Prelude..) maybe'jsonName - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'jsonName" FieldDescriptorProto = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'jsonName" - FieldDescriptorProto FieldDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FieldDescriptorProto'jsonName - (\ x__ y__ -> x__{_FieldDescriptorProto'jsonName = y__}) - -type instance Data.ProtoLens.Field "options" FieldDescriptorProto = - FieldOptions - -instance Data.ProtoLens.HasField "options" FieldDescriptorProto - FieldDescriptorProto where - field _ - = (Prelude..) maybe'options - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -type instance - Data.ProtoLens.Field "maybe'options" FieldDescriptorProto = - Prelude.Maybe FieldOptions - -instance Data.ProtoLens.HasField "maybe'options" - FieldDescriptorProto FieldDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FieldDescriptorProto'options - (\ x__ y__ -> x__{_FieldDescriptorProto'options = y__}) - -instance Data.Default.Class.Default FieldDescriptorProto where - def - = 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} - -instance Data.ProtoLens.Message FieldDescriptorProto where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'name) - number__field_descriptor - = Data.ProtoLens.FieldDescriptor "number" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.OptionalField maybe'number) - label__field_descriptor - = Data.ProtoLens.FieldDescriptor "label" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto'Label) - (Data.ProtoLens.OptionalField maybe'label) - type'__field_descriptor - = Data.ProtoLens.FieldDescriptor "type" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto'Type) - (Data.ProtoLens.OptionalField maybe'type') - typeName__field_descriptor - = Data.ProtoLens.FieldDescriptor "type_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'typeName) - extendee__field_descriptor - = Data.ProtoLens.FieldDescriptor "extendee" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'extendee) - defaultValue__field_descriptor - = Data.ProtoLens.FieldDescriptor "default_value" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'defaultValue) - oneofIndex__field_descriptor - = Data.ProtoLens.FieldDescriptor "oneof_index" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.OptionalField maybe'oneofIndex) - jsonName__field_descriptor - = Data.ProtoLens.FieldDescriptor "json_name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'jsonName) - options__field_descriptor - = Data.ProtoLens.FieldDescriptor "options" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor FieldOptions) - (Data.ProtoLens.OptionalField maybe'options) - in - Data.ProtoLens.MessageDescriptor - (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)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("number", number__field_descriptor), - ("label", label__field_descriptor), - ("type", type'__field_descriptor), - ("type_name", typeName__field_descriptor), - ("extendee", extendee__field_descriptor), - ("default_value", defaultValue__field_descriptor), - ("oneof_index", oneofIndex__field_descriptor), - ("json_name", jsonName__field_descriptor), - ("options", options__field_descriptor)]) - -data FieldDescriptorProto'Label = FieldDescriptorProto'LABEL_OPTIONAL - | FieldDescriptorProto'LABEL_REQUIRED - | FieldDescriptorProto'LABEL_REPEATED - deriving (Prelude.Show, Prelude.Eq) - -instance Data.Default.Class.Default FieldDescriptorProto'Label - where - def = FieldDescriptorProto'LABEL_OPTIONAL - -instance Data.ProtoLens.FieldDefault FieldDescriptorProto'Label - where - fieldDefault = FieldDescriptorProto'LABEL_OPTIONAL - -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 "LABEL_OPTIONAL" - = Prelude.Just FieldDescriptorProto'LABEL_OPTIONAL - readEnum "LABEL_REQUIRED" - = Prelude.Just FieldDescriptorProto'LABEL_REQUIRED - readEnum "LABEL_REPEATED" - = Prelude.Just FieldDescriptorProto'LABEL_REPEATED - readEnum _ = Prelude.Nothing - -instance Prelude.Enum FieldDescriptorProto'Label where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum Label: " - (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 - "Ident \"FieldDescriptorProto'Label\".Ident \"succ\": bad argument Ident \"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 - "Ident \"FieldDescriptorProto'Label\".Ident \"pred\": bad argument Ident \"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 Prelude.Bounded FieldDescriptorProto'Label where - minBound = FieldDescriptorProto'LABEL_OPTIONAL - maxBound = FieldDescriptorProto'LABEL_REPEATED - -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) - -instance Data.Default.Class.Default FieldDescriptorProto'Type where - def = FieldDescriptorProto'TYPE_DOUBLE - -instance Data.ProtoLens.FieldDefault FieldDescriptorProto'Type - where - fieldDefault = FieldDescriptorProto'TYPE_DOUBLE - -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 "TYPE_DOUBLE" - = Prelude.Just FieldDescriptorProto'TYPE_DOUBLE - readEnum "TYPE_FLOAT" - = Prelude.Just FieldDescriptorProto'TYPE_FLOAT - readEnum "TYPE_INT64" - = Prelude.Just FieldDescriptorProto'TYPE_INT64 - readEnum "TYPE_UINT64" - = Prelude.Just FieldDescriptorProto'TYPE_UINT64 - readEnum "TYPE_INT32" - = Prelude.Just FieldDescriptorProto'TYPE_INT32 - readEnum "TYPE_FIXED64" - = Prelude.Just FieldDescriptorProto'TYPE_FIXED64 - readEnum "TYPE_FIXED32" - = Prelude.Just FieldDescriptorProto'TYPE_FIXED32 - readEnum "TYPE_BOOL" = Prelude.Just FieldDescriptorProto'TYPE_BOOL - readEnum "TYPE_STRING" - = Prelude.Just FieldDescriptorProto'TYPE_STRING - readEnum "TYPE_GROUP" - = Prelude.Just FieldDescriptorProto'TYPE_GROUP - readEnum "TYPE_MESSAGE" - = Prelude.Just FieldDescriptorProto'TYPE_MESSAGE - readEnum "TYPE_BYTES" - = Prelude.Just FieldDescriptorProto'TYPE_BYTES - readEnum "TYPE_UINT32" - = Prelude.Just FieldDescriptorProto'TYPE_UINT32 - readEnum "TYPE_ENUM" = Prelude.Just FieldDescriptorProto'TYPE_ENUM - readEnum "TYPE_SFIXED32" - = Prelude.Just FieldDescriptorProto'TYPE_SFIXED32 - readEnum "TYPE_SFIXED64" - = Prelude.Just FieldDescriptorProto'TYPE_SFIXED64 - readEnum "TYPE_SINT32" - = Prelude.Just FieldDescriptorProto'TYPE_SINT32 - readEnum "TYPE_SINT64" - = Prelude.Just FieldDescriptorProto'TYPE_SINT64 - readEnum _ = Prelude.Nothing - -instance Prelude.Enum FieldDescriptorProto'Type where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum Type: " - (Prelude.show k__))) - Prelude.id - (Data.ProtoLens.maybeToEnum k__) - fromEnum 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 - "Ident \"FieldDescriptorProto'Type\".Ident \"succ\": bad argument Ident \"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 - "Ident \"FieldDescriptorProto'Type\".Ident \"pred\": bad argument Ident \"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 Prelude.Bounded FieldDescriptorProto'Type where - minBound = FieldDescriptorProto'TYPE_DOUBLE - maxBound = FieldDescriptorProto'TYPE_SINT64 - -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 :: [UninterpretedOption]} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "ctype" FieldOptions = - FieldOptions'CType - -instance Data.ProtoLens.HasField "ctype" FieldOptions FieldOptions - where - field _ - = (Prelude..) maybe'ctype - (Data.ProtoLens.maybeLens FieldOptions'STRING) - -type instance Data.ProtoLens.Field "maybe'ctype" FieldOptions = - Prelude.Maybe FieldOptions'CType - -instance Data.ProtoLens.HasField "maybe'ctype" FieldOptions - FieldOptions where - field _ - = Lens.Family2.Unchecked.lens _FieldOptions'ctype - (\ x__ y__ -> x__{_FieldOptions'ctype = y__}) - -type instance Data.ProtoLens.Field "packed" FieldOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "packed" FieldOptions FieldOptions - where - field _ - = (Prelude..) maybe'packed - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance Data.ProtoLens.Field "maybe'packed" FieldOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'packed" FieldOptions - FieldOptions where - field _ - = Lens.Family2.Unchecked.lens _FieldOptions'packed - (\ x__ y__ -> x__{_FieldOptions'packed = y__}) - -type instance Data.ProtoLens.Field "jstype" FieldOptions = - FieldOptions'JSType - -instance Data.ProtoLens.HasField "jstype" FieldOptions FieldOptions - where - field _ - = (Prelude..) maybe'jstype - (Data.ProtoLens.maybeLens FieldOptions'JS_NORMAL) - -type instance Data.ProtoLens.Field "maybe'jstype" FieldOptions = - Prelude.Maybe FieldOptions'JSType - -instance Data.ProtoLens.HasField "maybe'jstype" FieldOptions - FieldOptions where - field _ - = Lens.Family2.Unchecked.lens _FieldOptions'jstype - (\ x__ y__ -> x__{_FieldOptions'jstype = y__}) - -type instance Data.ProtoLens.Field "lazy" FieldOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "lazy" FieldOptions FieldOptions - where - field _ - = (Prelude..) maybe'lazy (Data.ProtoLens.maybeLens Prelude.False) - -type instance Data.ProtoLens.Field "maybe'lazy" FieldOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'lazy" FieldOptions - FieldOptions where - field _ - = Lens.Family2.Unchecked.lens _FieldOptions'lazy - (\ x__ y__ -> x__{_FieldOptions'lazy = y__}) - -type instance Data.ProtoLens.Field "deprecated" FieldOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "deprecated" FieldOptions - FieldOptions where - field _ - = (Prelude..) maybe'deprecated - (Data.ProtoLens.maybeLens Prelude.False) - -type instance Data.ProtoLens.Field "maybe'deprecated" FieldOptions - = Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'deprecated" FieldOptions - FieldOptions where - field _ - = Lens.Family2.Unchecked.lens _FieldOptions'deprecated - (\ x__ y__ -> x__{_FieldOptions'deprecated = y__}) - -type instance Data.ProtoLens.Field "weak" FieldOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "weak" FieldOptions FieldOptions - where - field _ - = (Prelude..) maybe'weak (Data.ProtoLens.maybeLens Prelude.False) - -type instance Data.ProtoLens.Field "maybe'weak" FieldOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'weak" FieldOptions - FieldOptions where - field _ - = Lens.Family2.Unchecked.lens _FieldOptions'weak - (\ x__ y__ -> x__{_FieldOptions'weak = y__}) - -type instance - Data.ProtoLens.Field "uninterpretedOption" FieldOptions = - [UninterpretedOption] - -instance Data.ProtoLens.HasField "uninterpretedOption" FieldOptions - FieldOptions where - field _ - = Lens.Family2.Unchecked.lens _FieldOptions'uninterpretedOption - (\ x__ y__ -> x__{_FieldOptions'uninterpretedOption = y__}) - -instance Data.Default.Class.Default FieldOptions where - def - = 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 = []} - -instance Data.ProtoLens.Message FieldOptions where - descriptor - = let ctype__field_descriptor - = Data.ProtoLens.FieldDescriptor "ctype" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor FieldOptions'CType) - (Data.ProtoLens.OptionalField maybe'ctype) - packed__field_descriptor - = Data.ProtoLens.FieldDescriptor "packed" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'packed) - jstype__field_descriptor - = Data.ProtoLens.FieldDescriptor "jstype" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor FieldOptions'JSType) - (Data.ProtoLens.OptionalField maybe'jstype) - lazy__field_descriptor - = Data.ProtoLens.FieldDescriptor "lazy" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'lazy) - deprecated__field_descriptor - = Data.ProtoLens.FieldDescriptor "deprecated" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'deprecated) - weak__field_descriptor - = Data.ProtoLens.FieldDescriptor "weak" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'weak) - uninterpretedOption__field_descriptor - = Data.ProtoLens.FieldDescriptor "uninterpreted_option" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - uninterpretedOption) - in - Data.ProtoLens.MessageDescriptor - (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)]) - (Data.Map.fromList - [("ctype", ctype__field_descriptor), - ("packed", packed__field_descriptor), - ("jstype", jstype__field_descriptor), - ("lazy", lazy__field_descriptor), - ("deprecated", deprecated__field_descriptor), - ("weak", weak__field_descriptor), - ("uninterpreted_option", uninterpretedOption__field_descriptor)]) - -data FieldOptions'CType = FieldOptions'STRING - | FieldOptions'CORD - | FieldOptions'STRING_PIECE - deriving (Prelude.Show, Prelude.Eq) - -instance Data.Default.Class.Default FieldOptions'CType where - def = FieldOptions'STRING - -instance Data.ProtoLens.FieldDefault FieldOptions'CType where - fieldDefault = FieldOptions'STRING - -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 "STRING" = Prelude.Just FieldOptions'STRING - readEnum "CORD" = Prelude.Just FieldOptions'CORD - readEnum "STRING_PIECE" = Prelude.Just FieldOptions'STRING_PIECE - readEnum _ = Prelude.Nothing - -instance Prelude.Enum FieldOptions'CType where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum CType: " - (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 - "Ident \"FieldOptions'CType\".Ident \"succ\": bad argument Ident \"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 - "Ident \"FieldOptions'CType\".Ident \"pred\": bad argument Ident \"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 Prelude.Bounded FieldOptions'CType where - minBound = FieldOptions'STRING - maxBound = FieldOptions'STRING_PIECE - -data FieldOptions'JSType = FieldOptions'JS_NORMAL - | FieldOptions'JS_STRING - | FieldOptions'JS_NUMBER - deriving (Prelude.Show, Prelude.Eq) - -instance Data.Default.Class.Default FieldOptions'JSType where - def = FieldOptions'JS_NORMAL - -instance Data.ProtoLens.FieldDefault FieldOptions'JSType where - fieldDefault = FieldOptions'JS_NORMAL - -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 "JS_NORMAL" = Prelude.Just FieldOptions'JS_NORMAL - readEnum "JS_STRING" = Prelude.Just FieldOptions'JS_STRING - readEnum "JS_NUMBER" = Prelude.Just FieldOptions'JS_NUMBER - readEnum _ = Prelude.Nothing - -instance Prelude.Enum FieldOptions'JSType where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum JSType: " - (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 - "Ident \"FieldOptions'JSType\".Ident \"succ\": bad argument Ident \"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 - "Ident \"FieldOptions'JSType\".Ident \"pred\": bad argument Ident \"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 Prelude.Bounded FieldOptions'JSType where - minBound = FieldOptions'JS_NORMAL - maxBound = FieldOptions'JS_NUMBER - -data FileDescriptorProto = FileDescriptorProto{_FileDescriptorProto'name - :: Prelude.Maybe Data.Text.Text, - _FileDescriptorProto'package :: - Prelude.Maybe Data.Text.Text, - _FileDescriptorProto'dependency :: [Data.Text.Text], - _FileDescriptorProto'publicDependency :: - [Data.Int.Int32], - _FileDescriptorProto'weakDependency :: - [Data.Int.Int32], - _FileDescriptorProto'messageType :: - [DescriptorProto], - _FileDescriptorProto'enumType :: - [EnumDescriptorProto], - _FileDescriptorProto'service :: - [ServiceDescriptorProto], - _FileDescriptorProto'extension :: - [FieldDescriptorProto], - _FileDescriptorProto'options :: - Prelude.Maybe FileOptions, - _FileDescriptorProto'sourceCodeInfo :: - Prelude.Maybe SourceCodeInfo, - _FileDescriptorProto'syntax :: - Prelude.Maybe Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "name" FileDescriptorProto = - Data.Text.Text - -instance Data.ProtoLens.HasField "name" FileDescriptorProto - FileDescriptorProto where - field _ - = (Prelude..) maybe'name - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance Data.ProtoLens.Field "maybe'name" FileDescriptorProto - = Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'name" FileDescriptorProto - FileDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FileDescriptorProto'name - (\ x__ y__ -> x__{_FileDescriptorProto'name = y__}) - -type instance Data.ProtoLens.Field "package" FileDescriptorProto = - Data.Text.Text - -instance Data.ProtoLens.HasField "package" FileDescriptorProto - FileDescriptorProto where - field _ - = (Prelude..) maybe'package - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'package" FileDescriptorProto = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'package" - FileDescriptorProto FileDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FileDescriptorProto'package - (\ x__ y__ -> x__{_FileDescriptorProto'package = y__}) - -type instance Data.ProtoLens.Field "dependency" FileDescriptorProto - = [Data.Text.Text] - -instance Data.ProtoLens.HasField "dependency" FileDescriptorProto - FileDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FileDescriptorProto'dependency - (\ x__ y__ -> x__{_FileDescriptorProto'dependency = y__}) - -type instance - Data.ProtoLens.Field "publicDependency" FileDescriptorProto = - [Data.Int.Int32] - -instance Data.ProtoLens.HasField "publicDependency" - FileDescriptorProto FileDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FileDescriptorProto'publicDependency - (\ x__ y__ -> x__{_FileDescriptorProto'publicDependency = y__}) - -type instance - Data.ProtoLens.Field "weakDependency" FileDescriptorProto = - [Data.Int.Int32] - -instance Data.ProtoLens.HasField "weakDependency" - FileDescriptorProto FileDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FileDescriptorProto'weakDependency - (\ x__ y__ -> x__{_FileDescriptorProto'weakDependency = y__}) - -type instance - Data.ProtoLens.Field "messageType" FileDescriptorProto = - [DescriptorProto] - -instance Data.ProtoLens.HasField "messageType" FileDescriptorProto - FileDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FileDescriptorProto'messageType - (\ x__ y__ -> x__{_FileDescriptorProto'messageType = y__}) - -type instance Data.ProtoLens.Field "enumType" FileDescriptorProto = - [EnumDescriptorProto] - -instance Data.ProtoLens.HasField "enumType" FileDescriptorProto - FileDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FileDescriptorProto'enumType - (\ x__ y__ -> x__{_FileDescriptorProto'enumType = y__}) - -type instance Data.ProtoLens.Field "service" FileDescriptorProto = - [ServiceDescriptorProto] - -instance Data.ProtoLens.HasField "service" FileDescriptorProto - FileDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FileDescriptorProto'service - (\ x__ y__ -> x__{_FileDescriptorProto'service = y__}) - -type instance Data.ProtoLens.Field "extension" FileDescriptorProto - = [FieldDescriptorProto] - -instance Data.ProtoLens.HasField "extension" FileDescriptorProto - FileDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FileDescriptorProto'extension - (\ x__ y__ -> x__{_FileDescriptorProto'extension = y__}) - -type instance Data.ProtoLens.Field "options" FileDescriptorProto = - FileOptions - -instance Data.ProtoLens.HasField "options" FileDescriptorProto - FileDescriptorProto where - field _ - = (Prelude..) maybe'options - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -type instance - Data.ProtoLens.Field "maybe'options" FileDescriptorProto = - Prelude.Maybe FileOptions - -instance Data.ProtoLens.HasField "maybe'options" - FileDescriptorProto FileDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FileDescriptorProto'options - (\ x__ y__ -> x__{_FileDescriptorProto'options = y__}) - -type instance - Data.ProtoLens.Field "sourceCodeInfo" FileDescriptorProto = - SourceCodeInfo - -instance Data.ProtoLens.HasField "sourceCodeInfo" - FileDescriptorProto FileDescriptorProto where - field _ - = (Prelude..) maybe'sourceCodeInfo - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -type instance - Data.ProtoLens.Field "maybe'sourceCodeInfo" FileDescriptorProto = - Prelude.Maybe SourceCodeInfo - -instance Data.ProtoLens.HasField "maybe'sourceCodeInfo" - FileDescriptorProto FileDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FileDescriptorProto'sourceCodeInfo - (\ x__ y__ -> x__{_FileDescriptorProto'sourceCodeInfo = y__}) - -type instance Data.ProtoLens.Field "syntax" FileDescriptorProto = - Data.Text.Text - -instance Data.ProtoLens.HasField "syntax" FileDescriptorProto - FileDescriptorProto where - field _ - = (Prelude..) maybe'syntax - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'syntax" FileDescriptorProto = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'syntax" FileDescriptorProto - FileDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _FileDescriptorProto'syntax - (\ x__ y__ -> x__{_FileDescriptorProto'syntax = y__}) - -instance Data.Default.Class.Default FileDescriptorProto where - def - = FileDescriptorProto{_FileDescriptorProto'name = Prelude.Nothing, - _FileDescriptorProto'package = Prelude.Nothing, - _FileDescriptorProto'dependency = [], - _FileDescriptorProto'publicDependency = [], - _FileDescriptorProto'weakDependency = [], - _FileDescriptorProto'messageType = [], - _FileDescriptorProto'enumType = [], - _FileDescriptorProto'service = [], - _FileDescriptorProto'extension = [], - _FileDescriptorProto'options = Prelude.Nothing, - _FileDescriptorProto'sourceCodeInfo = Prelude.Nothing, - _FileDescriptorProto'syntax = Prelude.Nothing} - -instance Data.ProtoLens.Message FileDescriptorProto where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'name) - package__field_descriptor - = Data.ProtoLens.FieldDescriptor "package" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'package) - dependency__field_descriptor - = Data.ProtoLens.FieldDescriptor "dependency" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked dependency) - publicDependency__field_descriptor - = Data.ProtoLens.FieldDescriptor "public_dependency" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - publicDependency) - weakDependency__field_descriptor - = Data.ProtoLens.FieldDescriptor "weak_dependency" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - weakDependency) - messageType__field_descriptor - = Data.ProtoLens.FieldDescriptor "message_type" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor DescriptorProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked messageType) - enumType__field_descriptor - = Data.ProtoLens.FieldDescriptor "enum_type" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor EnumDescriptorProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked enumType) - service__field_descriptor - = Data.ProtoLens.FieldDescriptor "service" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor ServiceDescriptorProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked service) - extension__field_descriptor - = Data.ProtoLens.FieldDescriptor "extension" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked extension) - options__field_descriptor - = Data.ProtoLens.FieldDescriptor "options" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor FileOptions) - (Data.ProtoLens.OptionalField maybe'options) - sourceCodeInfo__field_descriptor - = Data.ProtoLens.FieldDescriptor "source_code_info" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor SourceCodeInfo) - (Data.ProtoLens.OptionalField maybe'sourceCodeInfo) - syntax__field_descriptor - = Data.ProtoLens.FieldDescriptor "syntax" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'syntax) - in - Data.ProtoLens.MessageDescriptor - (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)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("package", package__field_descriptor), - ("dependency", dependency__field_descriptor), - ("public_dependency", publicDependency__field_descriptor), - ("weak_dependency", weakDependency__field_descriptor), - ("message_type", messageType__field_descriptor), - ("enum_type", enumType__field_descriptor), - ("service", service__field_descriptor), - ("extension", extension__field_descriptor), - ("options", options__field_descriptor), - ("source_code_info", sourceCodeInfo__field_descriptor), - ("syntax", syntax__field_descriptor)]) - -data FileDescriptorSet = FileDescriptorSet{_FileDescriptorSet'file - :: [FileDescriptorProto]} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "file" FileDescriptorSet = - [FileDescriptorProto] - -instance Data.ProtoLens.HasField "file" FileDescriptorSet - FileDescriptorSet where - field _ - = Lens.Family2.Unchecked.lens _FileDescriptorSet'file - (\ x__ y__ -> x__{_FileDescriptorSet'file = y__}) - -instance Data.Default.Class.Default FileDescriptorSet where - def = FileDescriptorSet{_FileDescriptorSet'file = []} - -instance Data.ProtoLens.Message FileDescriptorSet where - descriptor - = let file__field_descriptor - = Data.ProtoLens.FieldDescriptor "file" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor FileDescriptorProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked file) - in - Data.ProtoLens.MessageDescriptor - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, file__field_descriptor)]) - (Data.Map.fromList [("file", file__field_descriptor)]) - -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'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'uninterpretedOption :: [UninterpretedOption]} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "javaPackage" FileOptions = - Data.Text.Text - -instance Data.ProtoLens.HasField "javaPackage" FileOptions - FileOptions where - field _ - = (Prelude..) maybe'javaPackage - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance Data.ProtoLens.Field "maybe'javaPackage" FileOptions - = Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'javaPackage" FileOptions - FileOptions where - field _ - = Lens.Family2.Unchecked.lens _FileOptions'javaPackage - (\ x__ y__ -> x__{_FileOptions'javaPackage = y__}) - -type instance Data.ProtoLens.Field "javaOuterClassname" FileOptions - = Data.Text.Text - -instance Data.ProtoLens.HasField "javaOuterClassname" FileOptions - FileOptions where - field _ - = (Prelude..) maybe'javaOuterClassname - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'javaOuterClassname" FileOptions = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'javaOuterClassname" - FileOptions FileOptions where - field _ - = Lens.Family2.Unchecked.lens _FileOptions'javaOuterClassname - (\ x__ y__ -> x__{_FileOptions'javaOuterClassname = y__}) - -type instance Data.ProtoLens.Field "javaMultipleFiles" FileOptions - = Prelude.Bool - -instance Data.ProtoLens.HasField "javaMultipleFiles" FileOptions - FileOptions where - field _ - = (Prelude..) maybe'javaMultipleFiles - (Data.ProtoLens.maybeLens Prelude.False) - -type instance - Data.ProtoLens.Field "maybe'javaMultipleFiles" FileOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'javaMultipleFiles" - FileOptions FileOptions where - field _ - = Lens.Family2.Unchecked.lens _FileOptions'javaMultipleFiles - (\ x__ y__ -> x__{_FileOptions'javaMultipleFiles = y__}) - -type instance - Data.ProtoLens.Field "javaGenerateEqualsAndHash" FileOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "javaGenerateEqualsAndHash" - FileOptions FileOptions where - field _ - = (Prelude..) maybe'javaGenerateEqualsAndHash - (Data.ProtoLens.maybeLens Prelude.False) - -type instance - Data.ProtoLens.Field "maybe'javaGenerateEqualsAndHash" FileOptions - = Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'javaGenerateEqualsAndHash" - FileOptions FileOptions where - field _ - = Lens.Family2.Unchecked.lens - _FileOptions'javaGenerateEqualsAndHash - (\ x__ y__ -> x__{_FileOptions'javaGenerateEqualsAndHash = y__}) - -type instance - Data.ProtoLens.Field "javaStringCheckUtf8" FileOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "javaStringCheckUtf8" FileOptions - FileOptions where - field _ - = (Prelude..) maybe'javaStringCheckUtf8 - (Data.ProtoLens.maybeLens Prelude.False) - -type instance - Data.ProtoLens.Field "maybe'javaStringCheckUtf8" FileOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'javaStringCheckUtf8" - FileOptions FileOptions where - field _ - = Lens.Family2.Unchecked.lens _FileOptions'javaStringCheckUtf8 - (\ x__ y__ -> x__{_FileOptions'javaStringCheckUtf8 = y__}) - -type instance Data.ProtoLens.Field "optimizeFor" FileOptions = - FileOptions'OptimizeMode - -instance Data.ProtoLens.HasField "optimizeFor" FileOptions - FileOptions where - field _ - = (Prelude..) maybe'optimizeFor - (Data.ProtoLens.maybeLens FileOptions'SPEED) - -type instance Data.ProtoLens.Field "maybe'optimizeFor" FileOptions - = Prelude.Maybe FileOptions'OptimizeMode - -instance Data.ProtoLens.HasField "maybe'optimizeFor" FileOptions - FileOptions where - field _ - = Lens.Family2.Unchecked.lens _FileOptions'optimizeFor - (\ x__ y__ -> x__{_FileOptions'optimizeFor = y__}) - -type instance Data.ProtoLens.Field "goPackage" FileOptions = - Data.Text.Text - -instance Data.ProtoLens.HasField "goPackage" FileOptions - FileOptions where - field _ - = (Prelude..) maybe'goPackage - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance Data.ProtoLens.Field "maybe'goPackage" FileOptions = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'goPackage" FileOptions - FileOptions where - field _ - = Lens.Family2.Unchecked.lens _FileOptions'goPackage - (\ x__ y__ -> x__{_FileOptions'goPackage = y__}) - -type instance Data.ProtoLens.Field "ccGenericServices" FileOptions - = Prelude.Bool - -instance Data.ProtoLens.HasField "ccGenericServices" FileOptions - FileOptions where - field _ - = (Prelude..) maybe'ccGenericServices - (Data.ProtoLens.maybeLens Prelude.False) - -type instance - Data.ProtoLens.Field "maybe'ccGenericServices" FileOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'ccGenericServices" - FileOptions FileOptions where - field _ - = Lens.Family2.Unchecked.lens _FileOptions'ccGenericServices - (\ x__ y__ -> x__{_FileOptions'ccGenericServices = y__}) - -type instance - Data.ProtoLens.Field "javaGenericServices" FileOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "javaGenericServices" FileOptions - FileOptions where - field _ - = (Prelude..) maybe'javaGenericServices - (Data.ProtoLens.maybeLens Prelude.False) - -type instance - Data.ProtoLens.Field "maybe'javaGenericServices" FileOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'javaGenericServices" - FileOptions FileOptions where - field _ - = Lens.Family2.Unchecked.lens _FileOptions'javaGenericServices - (\ x__ y__ -> x__{_FileOptions'javaGenericServices = y__}) - -type instance Data.ProtoLens.Field "pyGenericServices" FileOptions - = Prelude.Bool - -instance Data.ProtoLens.HasField "pyGenericServices" FileOptions - FileOptions where - field _ - = (Prelude..) maybe'pyGenericServices - (Data.ProtoLens.maybeLens Prelude.False) - -type instance - Data.ProtoLens.Field "maybe'pyGenericServices" FileOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'pyGenericServices" - FileOptions FileOptions where - field _ - = Lens.Family2.Unchecked.lens _FileOptions'pyGenericServices - (\ x__ y__ -> x__{_FileOptions'pyGenericServices = y__}) - -type instance Data.ProtoLens.Field "deprecated" FileOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "deprecated" FileOptions - FileOptions where - field _ - = (Prelude..) maybe'deprecated - (Data.ProtoLens.maybeLens Prelude.False) - -type instance Data.ProtoLens.Field "maybe'deprecated" FileOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'deprecated" FileOptions - FileOptions where - field _ - = Lens.Family2.Unchecked.lens _FileOptions'deprecated - (\ x__ y__ -> x__{_FileOptions'deprecated = y__}) - -type instance Data.ProtoLens.Field "ccEnableArenas" FileOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "ccEnableArenas" FileOptions - FileOptions where - field _ - = (Prelude..) maybe'ccEnableArenas - (Data.ProtoLens.maybeLens Prelude.False) - -type instance - Data.ProtoLens.Field "maybe'ccEnableArenas" FileOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'ccEnableArenas" FileOptions - FileOptions where - field _ - = Lens.Family2.Unchecked.lens _FileOptions'ccEnableArenas - (\ x__ y__ -> x__{_FileOptions'ccEnableArenas = y__}) - -type instance Data.ProtoLens.Field "objcClassPrefix" FileOptions = - Data.Text.Text - -instance Data.ProtoLens.HasField "objcClassPrefix" FileOptions - FileOptions where - field _ - = (Prelude..) maybe'objcClassPrefix - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'objcClassPrefix" FileOptions = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'objcClassPrefix" - FileOptions FileOptions where - field _ - = Lens.Family2.Unchecked.lens _FileOptions'objcClassPrefix - (\ x__ y__ -> x__{_FileOptions'objcClassPrefix = y__}) - -type instance Data.ProtoLens.Field "csharpNamespace" FileOptions = - Data.Text.Text - -instance Data.ProtoLens.HasField "csharpNamespace" FileOptions - FileOptions where - field _ - = (Prelude..) maybe'csharpNamespace - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'csharpNamespace" FileOptions = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'csharpNamespace" - FileOptions FileOptions where - field _ - = Lens.Family2.Unchecked.lens _FileOptions'csharpNamespace - (\ x__ y__ -> x__{_FileOptions'csharpNamespace = y__}) - -type instance - Data.ProtoLens.Field "uninterpretedOption" FileOptions = - [UninterpretedOption] - -instance Data.ProtoLens.HasField "uninterpretedOption" FileOptions - FileOptions where - field _ - = Lens.Family2.Unchecked.lens _FileOptions'uninterpretedOption - (\ x__ y__ -> x__{_FileOptions'uninterpretedOption = y__}) - -instance Data.Default.Class.Default FileOptions where - def - = 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'deprecated = Prelude.Nothing, - _FileOptions'ccEnableArenas = Prelude.Nothing, - _FileOptions'objcClassPrefix = Prelude.Nothing, - _FileOptions'csharpNamespace = Prelude.Nothing, - _FileOptions'uninterpretedOption = []} - -instance Data.ProtoLens.Message FileOptions where - descriptor - = let javaPackage__field_descriptor - = Data.ProtoLens.FieldDescriptor "java_package" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'javaPackage) - javaOuterClassname__field_descriptor - = Data.ProtoLens.FieldDescriptor "java_outer_classname" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'javaOuterClassname) - javaMultipleFiles__field_descriptor - = Data.ProtoLens.FieldDescriptor "java_multiple_files" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'javaMultipleFiles) - javaGenerateEqualsAndHash__field_descriptor - = Data.ProtoLens.FieldDescriptor "java_generate_equals_and_hash" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'javaGenerateEqualsAndHash) - javaStringCheckUtf8__field_descriptor - = Data.ProtoLens.FieldDescriptor "java_string_check_utf8" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'javaStringCheckUtf8) - optimizeFor__field_descriptor - = Data.ProtoLens.FieldDescriptor "optimize_for" - (Data.ProtoLens.EnumField :: - Data.ProtoLens.FieldTypeDescriptor FileOptions'OptimizeMode) - (Data.ProtoLens.OptionalField maybe'optimizeFor) - goPackage__field_descriptor - = Data.ProtoLens.FieldDescriptor "go_package" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'goPackage) - ccGenericServices__field_descriptor - = Data.ProtoLens.FieldDescriptor "cc_generic_services" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'ccGenericServices) - javaGenericServices__field_descriptor - = Data.ProtoLens.FieldDescriptor "java_generic_services" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'javaGenericServices) - pyGenericServices__field_descriptor - = Data.ProtoLens.FieldDescriptor "py_generic_services" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'pyGenericServices) - deprecated__field_descriptor - = Data.ProtoLens.FieldDescriptor "deprecated" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'deprecated) - ccEnableArenas__field_descriptor - = Data.ProtoLens.FieldDescriptor "cc_enable_arenas" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'ccEnableArenas) - objcClassPrefix__field_descriptor - = Data.ProtoLens.FieldDescriptor "objc_class_prefix" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'objcClassPrefix) - csharpNamespace__field_descriptor - = Data.ProtoLens.FieldDescriptor "csharp_namespace" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'csharpNamespace) - uninterpretedOption__field_descriptor - = Data.ProtoLens.FieldDescriptor "uninterpreted_option" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - uninterpretedOption) - in - Data.ProtoLens.MessageDescriptor - (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 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 999, uninterpretedOption__field_descriptor)]) - (Data.Map.fromList - [("java_package", javaPackage__field_descriptor), - ("java_outer_classname", javaOuterClassname__field_descriptor), - ("java_multiple_files", javaMultipleFiles__field_descriptor), - ("java_generate_equals_and_hash", - javaGenerateEqualsAndHash__field_descriptor), - ("java_string_check_utf8", javaStringCheckUtf8__field_descriptor), - ("optimize_for", optimizeFor__field_descriptor), - ("go_package", goPackage__field_descriptor), - ("cc_generic_services", ccGenericServices__field_descriptor), - ("java_generic_services", javaGenericServices__field_descriptor), - ("py_generic_services", pyGenericServices__field_descriptor), - ("deprecated", deprecated__field_descriptor), - ("cc_enable_arenas", ccEnableArenas__field_descriptor), - ("objc_class_prefix", objcClassPrefix__field_descriptor), - ("csharp_namespace", csharpNamespace__field_descriptor), - ("uninterpreted_option", uninterpretedOption__field_descriptor)]) - -data FileOptions'OptimizeMode = FileOptions'SPEED - | FileOptions'CODE_SIZE - | FileOptions'LITE_RUNTIME - deriving (Prelude.Show, Prelude.Eq) - -instance Data.Default.Class.Default FileOptions'OptimizeMode where - def = FileOptions'SPEED - -instance Data.ProtoLens.FieldDefault FileOptions'OptimizeMode where - fieldDefault = FileOptions'SPEED - -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 "SPEED" = Prelude.Just FileOptions'SPEED - readEnum "CODE_SIZE" = Prelude.Just FileOptions'CODE_SIZE - readEnum "LITE_RUNTIME" = Prelude.Just FileOptions'LITE_RUNTIME - readEnum _ = Prelude.Nothing - -instance Prelude.Enum FileOptions'OptimizeMode where - toEnum k__ - = Prelude.maybe - (Prelude.error - ((Prelude.++) "toEnum: unknown value for enum OptimizeMode: " - (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 - "Ident \"FileOptions'OptimizeMode\".Ident \"succ\": bad argument Ident \"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 - "Ident \"FileOptions'OptimizeMode\".Ident \"pred\": bad argument Ident \"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 Prelude.Bounded FileOptions'OptimizeMode where - minBound = FileOptions'SPEED - maxBound = FileOptions'LITE_RUNTIME - -data GeneratedCodeInfo = GeneratedCodeInfo{_GeneratedCodeInfo'annotation - :: [GeneratedCodeInfo'Annotation]} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "annotation" GeneratedCodeInfo = - [GeneratedCodeInfo'Annotation] - -instance Data.ProtoLens.HasField "annotation" GeneratedCodeInfo - GeneratedCodeInfo where - field _ - = Lens.Family2.Unchecked.lens _GeneratedCodeInfo'annotation - (\ x__ y__ -> x__{_GeneratedCodeInfo'annotation = y__}) - -instance Data.Default.Class.Default GeneratedCodeInfo where - def = GeneratedCodeInfo{_GeneratedCodeInfo'annotation = []} - -instance Data.ProtoLens.Message GeneratedCodeInfo where - descriptor - = let annotation__field_descriptor - = Data.ProtoLens.FieldDescriptor "annotation" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor GeneratedCodeInfo'Annotation) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked annotation) - in - Data.ProtoLens.MessageDescriptor - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, annotation__field_descriptor)]) - (Data.Map.fromList [("annotation", annotation__field_descriptor)]) - -data GeneratedCodeInfo'Annotation = GeneratedCodeInfo'Annotation{_GeneratedCodeInfo'Annotation'path - :: [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} - deriving (Prelude.Show, Prelude.Eq) - -type instance - Data.ProtoLens.Field "path" GeneratedCodeInfo'Annotation = - [Data.Int.Int32] - -instance Data.ProtoLens.HasField "path" - GeneratedCodeInfo'Annotation GeneratedCodeInfo'Annotation where - field _ - = Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'path - (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'path = y__}) - -type instance - Data.ProtoLens.Field "sourceFile" GeneratedCodeInfo'Annotation = - Data.Text.Text - -instance Data.ProtoLens.HasField "sourceFile" - GeneratedCodeInfo'Annotation GeneratedCodeInfo'Annotation where - field _ - = (Prelude..) maybe'sourceFile - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'sourceFile" - GeneratedCodeInfo'Annotation - = Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'sourceFile" - GeneratedCodeInfo'Annotation GeneratedCodeInfo'Annotation where - field _ - = Lens.Family2.Unchecked.lens - _GeneratedCodeInfo'Annotation'sourceFile - (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'sourceFile = y__}) - -type instance - Data.ProtoLens.Field "begin" GeneratedCodeInfo'Annotation = - Data.Int.Int32 - -instance Data.ProtoLens.HasField "begin" - GeneratedCodeInfo'Annotation GeneratedCodeInfo'Annotation where - field _ - = (Prelude..) maybe'begin - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'begin" GeneratedCodeInfo'Annotation = - Prelude.Maybe Data.Int.Int32 - -instance Data.ProtoLens.HasField "maybe'begin" - GeneratedCodeInfo'Annotation GeneratedCodeInfo'Annotation where - field _ - = Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'begin - (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'begin = y__}) - -type instance - Data.ProtoLens.Field "end" GeneratedCodeInfo'Annotation = - Data.Int.Int32 - -instance Data.ProtoLens.HasField "end" GeneratedCodeInfo'Annotation - GeneratedCodeInfo'Annotation where - field _ - = (Prelude..) maybe'end - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'end" GeneratedCodeInfo'Annotation = - Prelude.Maybe Data.Int.Int32 - -instance Data.ProtoLens.HasField "maybe'end" - GeneratedCodeInfo'Annotation GeneratedCodeInfo'Annotation where - field _ - = Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'end - (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'end = y__}) - -instance Data.Default.Class.Default GeneratedCodeInfo'Annotation - where - def - = GeneratedCodeInfo'Annotation{_GeneratedCodeInfo'Annotation'path = - [], - _GeneratedCodeInfo'Annotation'sourceFile = Prelude.Nothing, - _GeneratedCodeInfo'Annotation'begin = Prelude.Nothing, - _GeneratedCodeInfo'Annotation'end = Prelude.Nothing} - -instance Data.ProtoLens.Message GeneratedCodeInfo'Annotation where - descriptor - = let path__field_descriptor - = Data.ProtoLens.FieldDescriptor "path" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed path) - sourceFile__field_descriptor - = Data.ProtoLens.FieldDescriptor "source_file" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'sourceFile) - begin__field_descriptor - = Data.ProtoLens.FieldDescriptor "begin" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.OptionalField maybe'begin) - end__field_descriptor - = Data.ProtoLens.FieldDescriptor "end" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.OptionalField maybe'end) - in - Data.ProtoLens.MessageDescriptor - (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)]) - (Data.Map.fromList - [("path", path__field_descriptor), - ("source_file", sourceFile__field_descriptor), - ("begin", begin__field_descriptor), - ("end", end__field_descriptor)]) - -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 :: [UninterpretedOption]} - deriving (Prelude.Show, Prelude.Eq) - -type instance - Data.ProtoLens.Field "messageSetWireFormat" MessageOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "messageSetWireFormat" - MessageOptions MessageOptions where - field _ - = (Prelude..) maybe'messageSetWireFormat - (Data.ProtoLens.maybeLens Prelude.False) - -type instance - Data.ProtoLens.Field "maybe'messageSetWireFormat" MessageOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'messageSetWireFormat" - MessageOptions MessageOptions where - field _ - = Lens.Family2.Unchecked.lens _MessageOptions'messageSetWireFormat - (\ x__ y__ -> x__{_MessageOptions'messageSetWireFormat = y__}) - -type instance - Data.ProtoLens.Field "noStandardDescriptorAccessor" MessageOptions - = Prelude.Bool - -instance Data.ProtoLens.HasField "noStandardDescriptorAccessor" - MessageOptions MessageOptions where - field _ - = (Prelude..) maybe'noStandardDescriptorAccessor - (Data.ProtoLens.maybeLens Prelude.False) - -type instance - Data.ProtoLens.Field "maybe'noStandardDescriptorAccessor" - MessageOptions - = Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField - "maybe'noStandardDescriptorAccessor" MessageOptions MessageOptions - where - field _ - = Lens.Family2.Unchecked.lens - _MessageOptions'noStandardDescriptorAccessor - (\ x__ y__ -> - x__{_MessageOptions'noStandardDescriptorAccessor = y__}) - -type instance Data.ProtoLens.Field "deprecated" MessageOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "deprecated" MessageOptions - MessageOptions where - field _ - = (Prelude..) maybe'deprecated - (Data.ProtoLens.maybeLens Prelude.False) - -type instance - Data.ProtoLens.Field "maybe'deprecated" MessageOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'deprecated" MessageOptions - MessageOptions where - field _ - = Lens.Family2.Unchecked.lens _MessageOptions'deprecated - (\ x__ y__ -> x__{_MessageOptions'deprecated = y__}) - -type instance Data.ProtoLens.Field "mapEntry" MessageOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "mapEntry" MessageOptions - MessageOptions where - field _ - = (Prelude..) maybe'mapEntry - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance Data.ProtoLens.Field "maybe'mapEntry" MessageOptions - = Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'mapEntry" MessageOptions - MessageOptions where - field _ - = Lens.Family2.Unchecked.lens _MessageOptions'mapEntry - (\ x__ y__ -> x__{_MessageOptions'mapEntry = y__}) - -type instance - Data.ProtoLens.Field "uninterpretedOption" MessageOptions = - [UninterpretedOption] - -instance Data.ProtoLens.HasField "uninterpretedOption" - MessageOptions MessageOptions where - field _ - = Lens.Family2.Unchecked.lens _MessageOptions'uninterpretedOption - (\ x__ y__ -> x__{_MessageOptions'uninterpretedOption = y__}) - -instance Data.Default.Class.Default MessageOptions where - def - = MessageOptions{_MessageOptions'messageSetWireFormat = - Prelude.Nothing, - _MessageOptions'noStandardDescriptorAccessor = Prelude.Nothing, - _MessageOptions'deprecated = Prelude.Nothing, - _MessageOptions'mapEntry = Prelude.Nothing, - _MessageOptions'uninterpretedOption = []} - -instance Data.ProtoLens.Message MessageOptions where - descriptor - = let messageSetWireFormat__field_descriptor - = Data.ProtoLens.FieldDescriptor "message_set_wire_format" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'messageSetWireFormat) - noStandardDescriptorAccessor__field_descriptor - = Data.ProtoLens.FieldDescriptor "no_standard_descriptor_accessor" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'noStandardDescriptorAccessor) - deprecated__field_descriptor - = Data.ProtoLens.FieldDescriptor "deprecated" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'deprecated) - mapEntry__field_descriptor - = Data.ProtoLens.FieldDescriptor "map_entry" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'mapEntry) - uninterpretedOption__field_descriptor - = Data.ProtoLens.FieldDescriptor "uninterpreted_option" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - uninterpretedOption) - in - Data.ProtoLens.MessageDescriptor - (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)]) - (Data.Map.fromList - [("message_set_wire_format", - messageSetWireFormat__field_descriptor), - ("no_standard_descriptor_accessor", - noStandardDescriptorAccessor__field_descriptor), - ("deprecated", deprecated__field_descriptor), - ("map_entry", mapEntry__field_descriptor), - ("uninterpreted_option", uninterpretedOption__field_descriptor)]) - -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} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "name" MethodDescriptorProto = - Data.Text.Text - -instance Data.ProtoLens.HasField "name" MethodDescriptorProto - MethodDescriptorProto where - field _ - = (Prelude..) maybe'name - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'name" MethodDescriptorProto = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'name" MethodDescriptorProto - MethodDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _MethodDescriptorProto'name - (\ x__ y__ -> x__{_MethodDescriptorProto'name = y__}) - -type instance - Data.ProtoLens.Field "inputType" MethodDescriptorProto = - Data.Text.Text - -instance Data.ProtoLens.HasField "inputType" MethodDescriptorProto - MethodDescriptorProto where - field _ - = (Prelude..) maybe'inputType - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'inputType" MethodDescriptorProto = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'inputType" - MethodDescriptorProto MethodDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _MethodDescriptorProto'inputType - (\ x__ y__ -> x__{_MethodDescriptorProto'inputType = y__}) - -type instance - Data.ProtoLens.Field "outputType" MethodDescriptorProto = - Data.Text.Text - -instance Data.ProtoLens.HasField "outputType" MethodDescriptorProto - MethodDescriptorProto where - field _ - = (Prelude..) maybe'outputType - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'outputType" MethodDescriptorProto = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'outputType" - MethodDescriptorProto MethodDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _MethodDescriptorProto'outputType - (\ x__ y__ -> x__{_MethodDescriptorProto'outputType = y__}) - -type instance Data.ProtoLens.Field "options" MethodDescriptorProto - = MethodOptions - -instance Data.ProtoLens.HasField "options" MethodDescriptorProto - MethodDescriptorProto where - field _ - = (Prelude..) maybe'options - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -type instance - Data.ProtoLens.Field "maybe'options" MethodDescriptorProto = - Prelude.Maybe MethodOptions - -instance Data.ProtoLens.HasField "maybe'options" - MethodDescriptorProto MethodDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _MethodDescriptorProto'options - (\ x__ y__ -> x__{_MethodDescriptorProto'options = y__}) - -type instance - Data.ProtoLens.Field "clientStreaming" MethodDescriptorProto = - Prelude.Bool - -instance Data.ProtoLens.HasField "clientStreaming" - MethodDescriptorProto MethodDescriptorProto where - field _ - = (Prelude..) maybe'clientStreaming - (Data.ProtoLens.maybeLens Prelude.False) - -type instance - Data.ProtoLens.Field "maybe'clientStreaming" MethodDescriptorProto - = Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'clientStreaming" - MethodDescriptorProto MethodDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens - _MethodDescriptorProto'clientStreaming - (\ x__ y__ -> x__{_MethodDescriptorProto'clientStreaming = y__}) - -type instance - Data.ProtoLens.Field "serverStreaming" MethodDescriptorProto = - Prelude.Bool - -instance Data.ProtoLens.HasField "serverStreaming" - MethodDescriptorProto MethodDescriptorProto where - field _ - = (Prelude..) maybe'serverStreaming - (Data.ProtoLens.maybeLens Prelude.False) - -type instance - Data.ProtoLens.Field "maybe'serverStreaming" MethodDescriptorProto - = Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'serverStreaming" - MethodDescriptorProto MethodDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens - _MethodDescriptorProto'serverStreaming - (\ x__ y__ -> x__{_MethodDescriptorProto'serverStreaming = y__}) - -instance Data.Default.Class.Default MethodDescriptorProto where - def - = 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} - -instance Data.ProtoLens.Message MethodDescriptorProto where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'name) - inputType__field_descriptor - = Data.ProtoLens.FieldDescriptor "input_type" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'inputType) - outputType__field_descriptor - = Data.ProtoLens.FieldDescriptor "output_type" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'outputType) - options__field_descriptor - = Data.ProtoLens.FieldDescriptor "options" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor MethodOptions) - (Data.ProtoLens.OptionalField maybe'options) - clientStreaming__field_descriptor - = Data.ProtoLens.FieldDescriptor "client_streaming" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'clientStreaming) - serverStreaming__field_descriptor - = Data.ProtoLens.FieldDescriptor "server_streaming" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'serverStreaming) - in - Data.ProtoLens.MessageDescriptor - (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)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("input_type", inputType__field_descriptor), - ("output_type", outputType__field_descriptor), - ("options", options__field_descriptor), - ("client_streaming", clientStreaming__field_descriptor), - ("server_streaming", serverStreaming__field_descriptor)]) - -data MethodOptions = MethodOptions{_MethodOptions'deprecated :: - Prelude.Maybe Prelude.Bool, - _MethodOptions'uninterpretedOption :: [UninterpretedOption]} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "deprecated" MethodOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "deprecated" MethodOptions - MethodOptions where - field _ - = (Prelude..) maybe'deprecated - (Data.ProtoLens.maybeLens Prelude.False) - -type instance Data.ProtoLens.Field "maybe'deprecated" MethodOptions - = Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'deprecated" MethodOptions - MethodOptions where - field _ - = Lens.Family2.Unchecked.lens _MethodOptions'deprecated - (\ x__ y__ -> x__{_MethodOptions'deprecated = y__}) - -type instance - Data.ProtoLens.Field "uninterpretedOption" MethodOptions = - [UninterpretedOption] - -instance Data.ProtoLens.HasField "uninterpretedOption" - MethodOptions MethodOptions where - field _ - = Lens.Family2.Unchecked.lens _MethodOptions'uninterpretedOption - (\ x__ y__ -> x__{_MethodOptions'uninterpretedOption = y__}) - -instance Data.Default.Class.Default MethodOptions where - def - = MethodOptions{_MethodOptions'deprecated = Prelude.Nothing, - _MethodOptions'uninterpretedOption = []} - -instance Data.ProtoLens.Message MethodOptions where - descriptor - = let deprecated__field_descriptor - = Data.ProtoLens.FieldDescriptor "deprecated" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'deprecated) - uninterpretedOption__field_descriptor - = Data.ProtoLens.FieldDescriptor "uninterpreted_option" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - uninterpretedOption) - in - Data.ProtoLens.MessageDescriptor - (Data.Map.fromList - [(Data.ProtoLens.Tag 33, deprecated__field_descriptor), - (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]) - (Data.Map.fromList - [("deprecated", deprecated__field_descriptor), - ("uninterpreted_option", uninterpretedOption__field_descriptor)]) - -data OneofDescriptorProto = OneofDescriptorProto{_OneofDescriptorProto'name - :: Prelude.Maybe Data.Text.Text} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "name" OneofDescriptorProto = - Data.Text.Text - -instance Data.ProtoLens.HasField "name" OneofDescriptorProto - OneofDescriptorProto where - field _ - = (Prelude..) maybe'name - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'name" OneofDescriptorProto = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'name" OneofDescriptorProto - OneofDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _OneofDescriptorProto'name - (\ x__ y__ -> x__{_OneofDescriptorProto'name = y__}) - -instance Data.Default.Class.Default OneofDescriptorProto where - def - = OneofDescriptorProto{_OneofDescriptorProto'name = - Prelude.Nothing} - -instance Data.ProtoLens.Message OneofDescriptorProto where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'name) - in - Data.ProtoLens.MessageDescriptor - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor)]) - (Data.Map.fromList [("name", name__field_descriptor)]) - -data ServiceDescriptorProto = ServiceDescriptorProto{_ServiceDescriptorProto'name - :: Prelude.Maybe Data.Text.Text, - _ServiceDescriptorProto'method :: - [MethodDescriptorProto], - _ServiceDescriptorProto'options :: - Prelude.Maybe ServiceOptions} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "name" ServiceDescriptorProto = - Data.Text.Text - -instance Data.ProtoLens.HasField "name" ServiceDescriptorProto - ServiceDescriptorProto where - field _ - = (Prelude..) maybe'name - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'name" ServiceDescriptorProto = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'name" - ServiceDescriptorProto ServiceDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _ServiceDescriptorProto'name - (\ x__ y__ -> x__{_ServiceDescriptorProto'name = y__}) - -type instance Data.ProtoLens.Field "method" ServiceDescriptorProto - = [MethodDescriptorProto] - -instance Data.ProtoLens.HasField "method" ServiceDescriptorProto - ServiceDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _ServiceDescriptorProto'method - (\ x__ y__ -> x__{_ServiceDescriptorProto'method = y__}) - -type instance Data.ProtoLens.Field "options" ServiceDescriptorProto - = ServiceOptions - -instance Data.ProtoLens.HasField "options" ServiceDescriptorProto - ServiceDescriptorProto where - field _ - = (Prelude..) maybe'options - (Data.ProtoLens.maybeLens Data.Default.Class.def) - -type instance - Data.ProtoLens.Field "maybe'options" ServiceDescriptorProto = - Prelude.Maybe ServiceOptions - -instance Data.ProtoLens.HasField "maybe'options" - ServiceDescriptorProto ServiceDescriptorProto where - field _ - = Lens.Family2.Unchecked.lens _ServiceDescriptorProto'options - (\ x__ y__ -> x__{_ServiceDescriptorProto'options = y__}) - -instance Data.Default.Class.Default ServiceDescriptorProto where - def - = ServiceDescriptorProto{_ServiceDescriptorProto'name = - Prelude.Nothing, - _ServiceDescriptorProto'method = [], - _ServiceDescriptorProto'options = Prelude.Nothing} - -instance Data.ProtoLens.Message ServiceDescriptorProto where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'name) - method__field_descriptor - = Data.ProtoLens.FieldDescriptor "method" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor MethodDescriptorProto) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked method) - options__field_descriptor - = Data.ProtoLens.FieldDescriptor "options" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor ServiceOptions) - (Data.ProtoLens.OptionalField maybe'options) - in - Data.ProtoLens.MessageDescriptor - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, name__field_descriptor), - (Data.ProtoLens.Tag 2, method__field_descriptor), - (Data.ProtoLens.Tag 3, options__field_descriptor)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("method", method__field_descriptor), - ("options", options__field_descriptor)]) - -data ServiceOptions = ServiceOptions{_ServiceOptions'deprecated :: - Prelude.Maybe Prelude.Bool, - _ServiceOptions'uninterpretedOption :: [UninterpretedOption]} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "deprecated" ServiceOptions = - Prelude.Bool - -instance Data.ProtoLens.HasField "deprecated" ServiceOptions - ServiceOptions where - field _ - = (Prelude..) maybe'deprecated - (Data.ProtoLens.maybeLens Prelude.False) - -type instance - Data.ProtoLens.Field "maybe'deprecated" ServiceOptions = - Prelude.Maybe Prelude.Bool - -instance Data.ProtoLens.HasField "maybe'deprecated" ServiceOptions - ServiceOptions where - field _ - = Lens.Family2.Unchecked.lens _ServiceOptions'deprecated - (\ x__ y__ -> x__{_ServiceOptions'deprecated = y__}) - -type instance - Data.ProtoLens.Field "uninterpretedOption" ServiceOptions = - [UninterpretedOption] - -instance Data.ProtoLens.HasField "uninterpretedOption" - ServiceOptions ServiceOptions where - field _ - = Lens.Family2.Unchecked.lens _ServiceOptions'uninterpretedOption - (\ x__ y__ -> x__{_ServiceOptions'uninterpretedOption = y__}) - -instance Data.Default.Class.Default ServiceOptions where - def - = ServiceOptions{_ServiceOptions'deprecated = Prelude.Nothing, - _ServiceOptions'uninterpretedOption = []} - -instance Data.ProtoLens.Message ServiceOptions where - descriptor - = let deprecated__field_descriptor - = Data.ProtoLens.FieldDescriptor "deprecated" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.OptionalField maybe'deprecated) - uninterpretedOption__field_descriptor - = Data.ProtoLens.FieldDescriptor "uninterpreted_option" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - uninterpretedOption) - in - Data.ProtoLens.MessageDescriptor - (Data.Map.fromList - [(Data.ProtoLens.Tag 33, deprecated__field_descriptor), - (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]) - (Data.Map.fromList - [("deprecated", deprecated__field_descriptor), - ("uninterpreted_option", uninterpretedOption__field_descriptor)]) - -data SourceCodeInfo = SourceCodeInfo{_SourceCodeInfo'location :: - [SourceCodeInfo'Location]} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "location" SourceCodeInfo = - [SourceCodeInfo'Location] - -instance Data.ProtoLens.HasField "location" SourceCodeInfo - SourceCodeInfo where - field _ - = Lens.Family2.Unchecked.lens _SourceCodeInfo'location - (\ x__ y__ -> x__{_SourceCodeInfo'location = y__}) - -instance Data.Default.Class.Default SourceCodeInfo where - def = SourceCodeInfo{_SourceCodeInfo'location = []} - -instance Data.ProtoLens.Message SourceCodeInfo where - descriptor - = let location__field_descriptor - = Data.ProtoLens.FieldDescriptor "location" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor SourceCodeInfo'Location) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked location) - in - Data.ProtoLens.MessageDescriptor - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, location__field_descriptor)]) - (Data.Map.fromList [("location", location__field_descriptor)]) - -data SourceCodeInfo'Location = SourceCodeInfo'Location{_SourceCodeInfo'Location'path - :: [Data.Int.Int32], - _SourceCodeInfo'Location'span :: - [Data.Int.Int32], - _SourceCodeInfo'Location'leadingComments :: - Prelude.Maybe Data.Text.Text, - _SourceCodeInfo'Location'trailingComments :: - Prelude.Maybe Data.Text.Text, - _SourceCodeInfo'Location'leadingDetachedComments - :: [Data.Text.Text]} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "path" SourceCodeInfo'Location = - [Data.Int.Int32] - -instance Data.ProtoLens.HasField "path" SourceCodeInfo'Location - SourceCodeInfo'Location where - field _ - = Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'path - (\ x__ y__ -> x__{_SourceCodeInfo'Location'path = y__}) - -type instance Data.ProtoLens.Field "span" SourceCodeInfo'Location = - [Data.Int.Int32] - -instance Data.ProtoLens.HasField "span" SourceCodeInfo'Location - SourceCodeInfo'Location where - field _ - = Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'span - (\ x__ y__ -> x__{_SourceCodeInfo'Location'span = y__}) - -type instance - Data.ProtoLens.Field "leadingComments" SourceCodeInfo'Location = - Data.Text.Text - -instance Data.ProtoLens.HasField "leadingComments" - SourceCodeInfo'Location SourceCodeInfo'Location where - field _ - = (Prelude..) maybe'leadingComments - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'leadingComments" - SourceCodeInfo'Location - = Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'leadingComments" - SourceCodeInfo'Location SourceCodeInfo'Location where - field _ - = Lens.Family2.Unchecked.lens - _SourceCodeInfo'Location'leadingComments - (\ x__ y__ -> x__{_SourceCodeInfo'Location'leadingComments = y__}) - -type instance - Data.ProtoLens.Field "trailingComments" SourceCodeInfo'Location = - Data.Text.Text - -instance Data.ProtoLens.HasField "trailingComments" - SourceCodeInfo'Location SourceCodeInfo'Location where - field _ - = (Prelude..) maybe'trailingComments - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'trailingComments" - SourceCodeInfo'Location - = Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'trailingComments" - SourceCodeInfo'Location SourceCodeInfo'Location where - field _ - = Lens.Family2.Unchecked.lens - _SourceCodeInfo'Location'trailingComments - (\ x__ y__ -> x__{_SourceCodeInfo'Location'trailingComments = y__}) - -type instance - Data.ProtoLens.Field "leadingDetachedComments" - SourceCodeInfo'Location - = [Data.Text.Text] - -instance Data.ProtoLens.HasField "leadingDetachedComments" - SourceCodeInfo'Location SourceCodeInfo'Location where - field _ - = Lens.Family2.Unchecked.lens - _SourceCodeInfo'Location'leadingDetachedComments - (\ x__ y__ -> - x__{_SourceCodeInfo'Location'leadingDetachedComments = y__}) - -instance Data.Default.Class.Default SourceCodeInfo'Location where - def - = SourceCodeInfo'Location{_SourceCodeInfo'Location'path = [], - _SourceCodeInfo'Location'span = [], - _SourceCodeInfo'Location'leadingComments = Prelude.Nothing, - _SourceCodeInfo'Location'trailingComments = Prelude.Nothing, - _SourceCodeInfo'Location'leadingDetachedComments = []} - -instance Data.ProtoLens.Message SourceCodeInfo'Location where - descriptor - = let path__field_descriptor - = Data.ProtoLens.FieldDescriptor "path" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed path) - span__field_descriptor - = Data.ProtoLens.FieldDescriptor "span" - (Data.ProtoLens.Int32Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed span) - leadingComments__field_descriptor - = Data.ProtoLens.FieldDescriptor "leading_comments" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'leadingComments) - trailingComments__field_descriptor - = Data.ProtoLens.FieldDescriptor "trailing_comments" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'trailingComments) - leadingDetachedComments__field_descriptor - = Data.ProtoLens.FieldDescriptor "leading_detached_comments" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked - leadingDetachedComments) - in - Data.ProtoLens.MessageDescriptor - (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)]) - (Data.Map.fromList - [("path", path__field_descriptor), - ("span", span__field_descriptor), - ("leading_comments", leadingComments__field_descriptor), - ("trailing_comments", trailingComments__field_descriptor), - ("leading_detached_comments", - leadingDetachedComments__field_descriptor)]) - -data UninterpretedOption = UninterpretedOption{_UninterpretedOption'name - :: [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} - deriving (Prelude.Show, Prelude.Eq) - -type instance Data.ProtoLens.Field "name" UninterpretedOption = - [UninterpretedOption'NamePart] - -instance Data.ProtoLens.HasField "name" UninterpretedOption - UninterpretedOption where - field _ - = Lens.Family2.Unchecked.lens _UninterpretedOption'name - (\ x__ y__ -> x__{_UninterpretedOption'name = y__}) - -type instance - Data.ProtoLens.Field "identifierValue" UninterpretedOption = - Data.Text.Text - -instance Data.ProtoLens.HasField "identifierValue" - UninterpretedOption UninterpretedOption where - field _ - = (Prelude..) maybe'identifierValue - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'identifierValue" UninterpretedOption = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'identifierValue" - UninterpretedOption UninterpretedOption where - field _ - = Lens.Family2.Unchecked.lens _UninterpretedOption'identifierValue - (\ x__ y__ -> x__{_UninterpretedOption'identifierValue = y__}) - -type instance - Data.ProtoLens.Field "positiveIntValue" UninterpretedOption = - Data.Word.Word64 - -instance Data.ProtoLens.HasField "positiveIntValue" - UninterpretedOption UninterpretedOption where - field _ - = (Prelude..) maybe'positiveIntValue - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'positiveIntValue" UninterpretedOption = - Prelude.Maybe Data.Word.Word64 - -instance Data.ProtoLens.HasField "maybe'positiveIntValue" - UninterpretedOption UninterpretedOption where - field _ - = Lens.Family2.Unchecked.lens _UninterpretedOption'positiveIntValue - (\ x__ y__ -> x__{_UninterpretedOption'positiveIntValue = y__}) - -type instance - Data.ProtoLens.Field "negativeIntValue" UninterpretedOption = - Data.Int.Int64 - -instance Data.ProtoLens.HasField "negativeIntValue" - UninterpretedOption UninterpretedOption where - field _ - = (Prelude..) maybe'negativeIntValue - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'negativeIntValue" UninterpretedOption = - Prelude.Maybe Data.Int.Int64 - -instance Data.ProtoLens.HasField "maybe'negativeIntValue" - UninterpretedOption UninterpretedOption where - field _ - = Lens.Family2.Unchecked.lens _UninterpretedOption'negativeIntValue - (\ x__ y__ -> x__{_UninterpretedOption'negativeIntValue = y__}) - -type instance - Data.ProtoLens.Field "doubleValue" UninterpretedOption = - Prelude.Double - -instance Data.ProtoLens.HasField "doubleValue" UninterpretedOption - UninterpretedOption where - field _ - = (Prelude..) maybe'doubleValue - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'doubleValue" UninterpretedOption = - Prelude.Maybe Prelude.Double - -instance Data.ProtoLens.HasField "maybe'doubleValue" - UninterpretedOption UninterpretedOption where - field _ - = Lens.Family2.Unchecked.lens _UninterpretedOption'doubleValue - (\ x__ y__ -> x__{_UninterpretedOption'doubleValue = y__}) - -type instance - Data.ProtoLens.Field "stringValue" UninterpretedOption = - Data.ByteString.ByteString - -instance Data.ProtoLens.HasField "stringValue" UninterpretedOption - UninterpretedOption where - field _ - = (Prelude..) maybe'stringValue - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'stringValue" UninterpretedOption = - Prelude.Maybe Data.ByteString.ByteString - -instance Data.ProtoLens.HasField "maybe'stringValue" - UninterpretedOption UninterpretedOption where - field _ - = Lens.Family2.Unchecked.lens _UninterpretedOption'stringValue - (\ x__ y__ -> x__{_UninterpretedOption'stringValue = y__}) - -type instance - Data.ProtoLens.Field "aggregateValue" UninterpretedOption = - Data.Text.Text - -instance Data.ProtoLens.HasField "aggregateValue" - UninterpretedOption UninterpretedOption where - field _ - = (Prelude..) maybe'aggregateValue - (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) - -type instance - Data.ProtoLens.Field "maybe'aggregateValue" UninterpretedOption = - Prelude.Maybe Data.Text.Text - -instance Data.ProtoLens.HasField "maybe'aggregateValue" - UninterpretedOption UninterpretedOption where - field _ - = Lens.Family2.Unchecked.lens _UninterpretedOption'aggregateValue - (\ x__ y__ -> x__{_UninterpretedOption'aggregateValue = y__}) - -instance Data.Default.Class.Default UninterpretedOption where - def - = UninterpretedOption{_UninterpretedOption'name = [], - _UninterpretedOption'identifierValue = Prelude.Nothing, - _UninterpretedOption'positiveIntValue = Prelude.Nothing, - _UninterpretedOption'negativeIntValue = Prelude.Nothing, - _UninterpretedOption'doubleValue = Prelude.Nothing, - _UninterpretedOption'stringValue = Prelude.Nothing, - _UninterpretedOption'aggregateValue = Prelude.Nothing} - -instance Data.ProtoLens.Message UninterpretedOption where - descriptor - = let name__field_descriptor - = Data.ProtoLens.FieldDescriptor "name" - (Data.ProtoLens.MessageField :: - Data.ProtoLens.FieldTypeDescriptor UninterpretedOption'NamePart) - (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked name) - identifierValue__field_descriptor - = Data.ProtoLens.FieldDescriptor "identifier_value" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'identifierValue) - positiveIntValue__field_descriptor - = Data.ProtoLens.FieldDescriptor "positive_int_value" - (Data.ProtoLens.UInt64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) - (Data.ProtoLens.OptionalField maybe'positiveIntValue) - negativeIntValue__field_descriptor - = Data.ProtoLens.FieldDescriptor "negative_int_value" - (Data.ProtoLens.Int64Field :: - Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) - (Data.ProtoLens.OptionalField maybe'negativeIntValue) - doubleValue__field_descriptor - = Data.ProtoLens.FieldDescriptor "double_value" - (Data.ProtoLens.DoubleField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Double) - (Data.ProtoLens.OptionalField maybe'doubleValue) - stringValue__field_descriptor - = Data.ProtoLens.FieldDescriptor "string_value" - (Data.ProtoLens.BytesField :: - Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) - (Data.ProtoLens.OptionalField maybe'stringValue) - aggregateValue__field_descriptor - = Data.ProtoLens.FieldDescriptor "aggregate_value" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.OptionalField maybe'aggregateValue) - in - Data.ProtoLens.MessageDescriptor - (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)]) - (Data.Map.fromList - [("name", name__field_descriptor), - ("identifier_value", identifierValue__field_descriptor), - ("positive_int_value", positiveIntValue__field_descriptor), - ("negative_int_value", negativeIntValue__field_descriptor), - ("double_value", doubleValue__field_descriptor), - ("string_value", stringValue__field_descriptor), - ("aggregate_value", aggregateValue__field_descriptor)]) - -data UninterpretedOption'NamePart = UninterpretedOption'NamePart{_UninterpretedOption'NamePart'namePart - :: Data.Text.Text, - _UninterpretedOption'NamePart'isExtension - :: Prelude.Bool} - deriving (Prelude.Show, Prelude.Eq) - -type instance - Data.ProtoLens.Field "namePart" UninterpretedOption'NamePart = - Data.Text.Text - -instance Data.ProtoLens.HasField "namePart" - UninterpretedOption'NamePart UninterpretedOption'NamePart where - field _ - = Lens.Family2.Unchecked.lens - _UninterpretedOption'NamePart'namePart - (\ x__ y__ -> x__{_UninterpretedOption'NamePart'namePart = y__}) - -type instance - Data.ProtoLens.Field "isExtension" UninterpretedOption'NamePart = - Prelude.Bool - -instance Data.ProtoLens.HasField "isExtension" - UninterpretedOption'NamePart UninterpretedOption'NamePart where - field _ - = Lens.Family2.Unchecked.lens - _UninterpretedOption'NamePart'isExtension - (\ x__ y__ -> x__{_UninterpretedOption'NamePart'isExtension = y__}) - -instance Data.Default.Class.Default UninterpretedOption'NamePart - where - def - = UninterpretedOption'NamePart{_UninterpretedOption'NamePart'namePart - = Data.ProtoLens.fieldDefault, - _UninterpretedOption'NamePart'isExtension = - Data.ProtoLens.fieldDefault} - -instance Data.ProtoLens.Message UninterpretedOption'NamePart where - descriptor - = let namePart__field_descriptor - = Data.ProtoLens.FieldDescriptor "name_part" - (Data.ProtoLens.StringField :: - Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) - (Data.ProtoLens.PlainField Data.ProtoLens.Required namePart) - isExtension__field_descriptor - = Data.ProtoLens.FieldDescriptor "is_extension" - (Data.ProtoLens.BoolField :: - Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) - (Data.ProtoLens.PlainField Data.ProtoLens.Required isExtension) - in - Data.ProtoLens.MessageDescriptor - (Data.Map.fromList - [(Data.ProtoLens.Tag 1, namePart__field_descriptor), - (Data.ProtoLens.Tag 2, isExtension__field_descriptor)]) - (Data.Map.fromList - [("name_part", namePart__field_descriptor), - ("is_extension", isExtension__field_descriptor)]) - -aggregateValue :: - forall msg msg' . - Data.ProtoLens.HasField "aggregateValue" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "aggregateValue" msg) - (Data.ProtoLens.Field "aggregateValue" msg') -aggregateValue - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "aggregateValue") - -allowAlias :: - forall msg msg' . Data.ProtoLens.HasField "allowAlias" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "allowAlias" msg) - (Data.ProtoLens.Field "allowAlias" msg') -allowAlias - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "allowAlias") - -annotation :: - forall msg msg' . Data.ProtoLens.HasField "annotation" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "annotation" msg) - (Data.ProtoLens.Field "annotation" msg') -annotation - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "annotation") - -begin :: - forall msg msg' . Data.ProtoLens.HasField "begin" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "begin" msg) - (Data.ProtoLens.Field "begin" msg') -begin - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "begin") - -ccEnableArenas :: - forall msg msg' . - Data.ProtoLens.HasField "ccEnableArenas" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "ccEnableArenas" msg) - (Data.ProtoLens.Field "ccEnableArenas" msg') -ccEnableArenas - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "ccEnableArenas") - -ccGenericServices :: - forall msg msg' . - Data.ProtoLens.HasField "ccGenericServices" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "ccGenericServices" msg) - (Data.ProtoLens.Field "ccGenericServices" msg') -ccGenericServices - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "ccGenericServices") - -clientStreaming :: - forall msg msg' . - Data.ProtoLens.HasField "clientStreaming" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "clientStreaming" msg) - (Data.ProtoLens.Field "clientStreaming" msg') -clientStreaming - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "clientStreaming") - -csharpNamespace :: - forall msg msg' . - Data.ProtoLens.HasField "csharpNamespace" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "csharpNamespace" msg) - (Data.ProtoLens.Field "csharpNamespace" msg') -csharpNamespace - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "csharpNamespace") - -ctype :: - forall msg msg' . Data.ProtoLens.HasField "ctype" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "ctype" msg) - (Data.ProtoLens.Field "ctype" msg') -ctype - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "ctype") - -defaultValue :: - forall msg msg' . - Data.ProtoLens.HasField "defaultValue" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "defaultValue" msg) - (Data.ProtoLens.Field "defaultValue" msg') -defaultValue - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "defaultValue") - -dependency :: - forall msg msg' . Data.ProtoLens.HasField "dependency" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "dependency" msg) - (Data.ProtoLens.Field "dependency" msg') -dependency - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "dependency") - -deprecated :: - forall msg msg' . Data.ProtoLens.HasField "deprecated" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "deprecated" msg) - (Data.ProtoLens.Field "deprecated" msg') -deprecated - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "deprecated") - -doubleValue :: - forall msg msg' . Data.ProtoLens.HasField "doubleValue" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "doubleValue" msg) - (Data.ProtoLens.Field "doubleValue" msg') -doubleValue - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "doubleValue") - -end :: - forall msg msg' . Data.ProtoLens.HasField "end" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "end" msg) - (Data.ProtoLens.Field "end" msg') -end - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "end") - -enumType :: - forall msg msg' . Data.ProtoLens.HasField "enumType" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "enumType" msg) - (Data.ProtoLens.Field "enumType" msg') -enumType - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "enumType") - -extendee :: - forall msg msg' . Data.ProtoLens.HasField "extendee" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "extendee" msg) - (Data.ProtoLens.Field "extendee" msg') -extendee - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "extendee") - -extension :: - forall msg msg' . Data.ProtoLens.HasField "extension" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "extension" msg) - (Data.ProtoLens.Field "extension" msg') -extension - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "extension") - -extensionRange :: - forall msg msg' . - Data.ProtoLens.HasField "extensionRange" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "extensionRange" msg) - (Data.ProtoLens.Field "extensionRange" msg') -extensionRange - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "extensionRange") - -field :: - forall msg msg' . Data.ProtoLens.HasField "field" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "field" msg) - (Data.ProtoLens.Field "field" msg') -field - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "field") - -file :: - forall msg msg' . Data.ProtoLens.HasField "file" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "file" msg) - (Data.ProtoLens.Field "file" msg') -file - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "file") - -goPackage :: - forall msg msg' . Data.ProtoLens.HasField "goPackage" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "goPackage" msg) - (Data.ProtoLens.Field "goPackage" msg') -goPackage - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "goPackage") - -identifierValue :: - forall msg msg' . - Data.ProtoLens.HasField "identifierValue" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "identifierValue" msg) - (Data.ProtoLens.Field "identifierValue" msg') -identifierValue - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "identifierValue") - -inputType :: - forall msg msg' . Data.ProtoLens.HasField "inputType" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "inputType" msg) - (Data.ProtoLens.Field "inputType" msg') -inputType - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "inputType") - -isExtension :: - forall msg msg' . Data.ProtoLens.HasField "isExtension" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "isExtension" msg) - (Data.ProtoLens.Field "isExtension" msg') -isExtension - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "isExtension") - -javaGenerateEqualsAndHash :: - forall msg msg' . - Data.ProtoLens.HasField "javaGenerateEqualsAndHash" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "javaGenerateEqualsAndHash" msg) - (Data.ProtoLens.Field "javaGenerateEqualsAndHash" msg') -javaGenerateEqualsAndHash - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "javaGenerateEqualsAndHash") - -javaGenericServices :: - forall msg msg' . - Data.ProtoLens.HasField "javaGenericServices" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "javaGenericServices" msg) - (Data.ProtoLens.Field "javaGenericServices" msg') -javaGenericServices - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "javaGenericServices") - -javaMultipleFiles :: - forall msg msg' . - Data.ProtoLens.HasField "javaMultipleFiles" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "javaMultipleFiles" msg) - (Data.ProtoLens.Field "javaMultipleFiles" msg') -javaMultipleFiles - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "javaMultipleFiles") - -javaOuterClassname :: - forall msg msg' . - Data.ProtoLens.HasField "javaOuterClassname" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "javaOuterClassname" msg) - (Data.ProtoLens.Field "javaOuterClassname" msg') -javaOuterClassname - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "javaOuterClassname") - -javaPackage :: - forall msg msg' . Data.ProtoLens.HasField "javaPackage" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "javaPackage" msg) - (Data.ProtoLens.Field "javaPackage" msg') -javaPackage - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "javaPackage") - -javaStringCheckUtf8 :: - forall msg msg' . - Data.ProtoLens.HasField "javaStringCheckUtf8" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "javaStringCheckUtf8" msg) - (Data.ProtoLens.Field "javaStringCheckUtf8" msg') -javaStringCheckUtf8 - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "javaStringCheckUtf8") - -jsonName :: - forall msg msg' . Data.ProtoLens.HasField "jsonName" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "jsonName" msg) - (Data.ProtoLens.Field "jsonName" msg') -jsonName - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "jsonName") - -jstype :: - forall msg msg' . Data.ProtoLens.HasField "jstype" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "jstype" msg) - (Data.ProtoLens.Field "jstype" msg') -jstype - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "jstype") - -label :: - forall msg msg' . Data.ProtoLens.HasField "label" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "label" msg) - (Data.ProtoLens.Field "label" msg') -label - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "label") - -lazy :: - forall msg msg' . Data.ProtoLens.HasField "lazy" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "lazy" msg) - (Data.ProtoLens.Field "lazy" msg') -lazy - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "lazy") - -leadingComments :: - forall msg msg' . - Data.ProtoLens.HasField "leadingComments" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "leadingComments" msg) - (Data.ProtoLens.Field "leadingComments" msg') -leadingComments - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "leadingComments") - -leadingDetachedComments :: - forall msg msg' . - Data.ProtoLens.HasField "leadingDetachedComments" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "leadingDetachedComments" msg) - (Data.ProtoLens.Field "leadingDetachedComments" msg') -leadingDetachedComments - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "leadingDetachedComments") - -location :: - forall msg msg' . Data.ProtoLens.HasField "location" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "location" msg) - (Data.ProtoLens.Field "location" msg') -location - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "location") - -mapEntry :: - forall msg msg' . Data.ProtoLens.HasField "mapEntry" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "mapEntry" msg) - (Data.ProtoLens.Field "mapEntry" msg') -mapEntry - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "mapEntry") - -maybe'aggregateValue :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'aggregateValue" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'aggregateValue" msg) - (Data.ProtoLens.Field "maybe'aggregateValue" msg') -maybe'aggregateValue - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'aggregateValue") - -maybe'allowAlias :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'allowAlias" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'allowAlias" msg) - (Data.ProtoLens.Field "maybe'allowAlias" msg') -maybe'allowAlias - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'allowAlias") - -maybe'begin :: - forall msg msg' . Data.ProtoLens.HasField "maybe'begin" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'begin" msg) - (Data.ProtoLens.Field "maybe'begin" msg') -maybe'begin - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'begin") - -maybe'ccEnableArenas :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'ccEnableArenas" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'ccEnableArenas" msg) - (Data.ProtoLens.Field "maybe'ccEnableArenas" msg') -maybe'ccEnableArenas - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'ccEnableArenas") - -maybe'ccGenericServices :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'ccGenericServices" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'ccGenericServices" msg) - (Data.ProtoLens.Field "maybe'ccGenericServices" msg') -maybe'ccGenericServices - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'ccGenericServices") - -maybe'clientStreaming :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'clientStreaming" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'clientStreaming" msg) - (Data.ProtoLens.Field "maybe'clientStreaming" msg') -maybe'clientStreaming - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'clientStreaming") - -maybe'csharpNamespace :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'csharpNamespace" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'csharpNamespace" msg) - (Data.ProtoLens.Field "maybe'csharpNamespace" msg') -maybe'csharpNamespace - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'csharpNamespace") - -maybe'ctype :: - forall msg msg' . Data.ProtoLens.HasField "maybe'ctype" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'ctype" msg) - (Data.ProtoLens.Field "maybe'ctype" msg') -maybe'ctype - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'ctype") - -maybe'defaultValue :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'defaultValue" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'defaultValue" msg) - (Data.ProtoLens.Field "maybe'defaultValue" msg') -maybe'defaultValue - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'defaultValue") - -maybe'deprecated :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'deprecated" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'deprecated" msg) - (Data.ProtoLens.Field "maybe'deprecated" msg') -maybe'deprecated - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'deprecated") - -maybe'doubleValue :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'doubleValue" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'doubleValue" msg) - (Data.ProtoLens.Field "maybe'doubleValue" msg') -maybe'doubleValue - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'doubleValue") - -maybe'end :: - forall msg msg' . Data.ProtoLens.HasField "maybe'end" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'end" msg) - (Data.ProtoLens.Field "maybe'end" msg') -maybe'end - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'end") - -maybe'extendee :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'extendee" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'extendee" msg) - (Data.ProtoLens.Field "maybe'extendee" msg') -maybe'extendee - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'extendee") - -maybe'goPackage :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'goPackage" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'goPackage" msg) - (Data.ProtoLens.Field "maybe'goPackage" msg') -maybe'goPackage - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'goPackage") - -maybe'identifierValue :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'identifierValue" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'identifierValue" msg) - (Data.ProtoLens.Field "maybe'identifierValue" msg') -maybe'identifierValue - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'identifierValue") - -maybe'inputType :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'inputType" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'inputType" msg) - (Data.ProtoLens.Field "maybe'inputType" msg') -maybe'inputType - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'inputType") - -maybe'javaGenerateEqualsAndHash :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'javaGenerateEqualsAndHash" msg - msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'javaGenerateEqualsAndHash" msg) - (Data.ProtoLens.Field "maybe'javaGenerateEqualsAndHash" msg') -maybe'javaGenerateEqualsAndHash - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'javaGenerateEqualsAndHash") - -maybe'javaGenericServices :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'javaGenericServices" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'javaGenericServices" msg) - (Data.ProtoLens.Field "maybe'javaGenericServices" msg') -maybe'javaGenericServices - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'javaGenericServices") - -maybe'javaMultipleFiles :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'javaMultipleFiles" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'javaMultipleFiles" msg) - (Data.ProtoLens.Field "maybe'javaMultipleFiles" msg') -maybe'javaMultipleFiles - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'javaMultipleFiles") - -maybe'javaOuterClassname :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'javaOuterClassname" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'javaOuterClassname" msg) - (Data.ProtoLens.Field "maybe'javaOuterClassname" msg') -maybe'javaOuterClassname - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'javaOuterClassname") - -maybe'javaPackage :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'javaPackage" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'javaPackage" msg) - (Data.ProtoLens.Field "maybe'javaPackage" msg') -maybe'javaPackage - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'javaPackage") - -maybe'javaStringCheckUtf8 :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'javaStringCheckUtf8" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'javaStringCheckUtf8" msg) - (Data.ProtoLens.Field "maybe'javaStringCheckUtf8" msg') -maybe'javaStringCheckUtf8 - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'javaStringCheckUtf8") - -maybe'jsonName :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'jsonName" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'jsonName" msg) - (Data.ProtoLens.Field "maybe'jsonName" msg') -maybe'jsonName - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'jsonName") - -maybe'jstype :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'jstype" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'jstype" msg) - (Data.ProtoLens.Field "maybe'jstype" msg') -maybe'jstype - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'jstype") - -maybe'label :: - forall msg msg' . Data.ProtoLens.HasField "maybe'label" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'label" msg) - (Data.ProtoLens.Field "maybe'label" msg') -maybe'label - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'label") - -maybe'lazy :: - forall msg msg' . Data.ProtoLens.HasField "maybe'lazy" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'lazy" msg) - (Data.ProtoLens.Field "maybe'lazy" msg') -maybe'lazy - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'lazy") - -maybe'leadingComments :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'leadingComments" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'leadingComments" msg) - (Data.ProtoLens.Field "maybe'leadingComments" msg') -maybe'leadingComments - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'leadingComments") - -maybe'mapEntry :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'mapEntry" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'mapEntry" msg) - (Data.ProtoLens.Field "maybe'mapEntry" msg') -maybe'mapEntry - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'mapEntry") - -maybe'messageSetWireFormat :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'messageSetWireFormat" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'messageSetWireFormat" msg) - (Data.ProtoLens.Field "maybe'messageSetWireFormat" msg') -maybe'messageSetWireFormat - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'messageSetWireFormat") - -maybe'name :: - forall msg msg' . Data.ProtoLens.HasField "maybe'name" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'name" msg) - (Data.ProtoLens.Field "maybe'name" msg') -maybe'name - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'name") - -maybe'negativeIntValue :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'negativeIntValue" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'negativeIntValue" msg) - (Data.ProtoLens.Field "maybe'negativeIntValue" msg') -maybe'negativeIntValue - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'negativeIntValue") - -maybe'noStandardDescriptorAccessor :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'noStandardDescriptorAccessor" - msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'noStandardDescriptorAccessor" - msg) - (Data.ProtoLens.Field "maybe'noStandardDescriptorAccessor" - msg') -maybe'noStandardDescriptorAccessor - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'noStandardDescriptorAccessor") - -maybe'number :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'number" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'number" msg) - (Data.ProtoLens.Field "maybe'number" msg') -maybe'number - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'number") - -maybe'objcClassPrefix :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'objcClassPrefix" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'objcClassPrefix" msg) - (Data.ProtoLens.Field "maybe'objcClassPrefix" msg') -maybe'objcClassPrefix - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'objcClassPrefix") - -maybe'oneofIndex :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'oneofIndex" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'oneofIndex" msg) - (Data.ProtoLens.Field "maybe'oneofIndex" msg') -maybe'oneofIndex - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'oneofIndex") - -maybe'optimizeFor :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'optimizeFor" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'optimizeFor" msg) - (Data.ProtoLens.Field "maybe'optimizeFor" msg') -maybe'optimizeFor - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'optimizeFor") - -maybe'options :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'options" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'options" msg) - (Data.ProtoLens.Field "maybe'options" msg') -maybe'options - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'options") - -maybe'outputType :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'outputType" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'outputType" msg) - (Data.ProtoLens.Field "maybe'outputType" msg') -maybe'outputType - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'outputType") - -maybe'package :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'package" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'package" msg) - (Data.ProtoLens.Field "maybe'package" msg') -maybe'package - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'package") - -maybe'packed :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'packed" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'packed" msg) - (Data.ProtoLens.Field "maybe'packed" msg') -maybe'packed - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'packed") - -maybe'positiveIntValue :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'positiveIntValue" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'positiveIntValue" msg) - (Data.ProtoLens.Field "maybe'positiveIntValue" msg') -maybe'positiveIntValue - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'positiveIntValue") - -maybe'pyGenericServices :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'pyGenericServices" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'pyGenericServices" msg) - (Data.ProtoLens.Field "maybe'pyGenericServices" msg') -maybe'pyGenericServices - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'pyGenericServices") - -maybe'serverStreaming :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'serverStreaming" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'serverStreaming" msg) - (Data.ProtoLens.Field "maybe'serverStreaming" msg') -maybe'serverStreaming - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'serverStreaming") - -maybe'sourceCodeInfo :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'sourceCodeInfo" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'sourceCodeInfo" msg) - (Data.ProtoLens.Field "maybe'sourceCodeInfo" msg') -maybe'sourceCodeInfo - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'sourceCodeInfo") - -maybe'sourceFile :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'sourceFile" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'sourceFile" msg) - (Data.ProtoLens.Field "maybe'sourceFile" msg') -maybe'sourceFile - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'sourceFile") - -maybe'start :: - forall msg msg' . Data.ProtoLens.HasField "maybe'start" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'start" msg) - (Data.ProtoLens.Field "maybe'start" msg') -maybe'start - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'start") - -maybe'stringValue :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'stringValue" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'stringValue" msg) - (Data.ProtoLens.Field "maybe'stringValue" msg') -maybe'stringValue - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'stringValue") - -maybe'syntax :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'syntax" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'syntax" msg) - (Data.ProtoLens.Field "maybe'syntax" msg') -maybe'syntax - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'syntax") - -maybe'trailingComments :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'trailingComments" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'trailingComments" msg) - (Data.ProtoLens.Field "maybe'trailingComments" msg') -maybe'trailingComments - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'trailingComments") - -maybe'type' :: - forall msg msg' . Data.ProtoLens.HasField "maybe'type'" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'type'" msg) - (Data.ProtoLens.Field "maybe'type'" msg') -maybe'type' - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'type'") - -maybe'typeName :: - forall msg msg' . - Data.ProtoLens.HasField "maybe'typeName" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "maybe'typeName" msg) - (Data.ProtoLens.Field "maybe'typeName" msg') -maybe'typeName - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "maybe'typeName") - -maybe'weak :: - forall msg msg' . Data.ProtoLens.HasField "maybe'weak" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "maybe'weak" msg) - (Data.ProtoLens.Field "maybe'weak" msg') -maybe'weak - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "maybe'weak") - -messageSetWireFormat :: - forall msg msg' . - Data.ProtoLens.HasField "messageSetWireFormat" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "messageSetWireFormat" msg) - (Data.ProtoLens.Field "messageSetWireFormat" msg') -messageSetWireFormat - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "messageSetWireFormat") - -messageType :: - forall msg msg' . Data.ProtoLens.HasField "messageType" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "messageType" msg) - (Data.ProtoLens.Field "messageType" msg') -messageType - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "messageType") - -method :: - forall msg msg' . Data.ProtoLens.HasField "method" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "method" msg) - (Data.ProtoLens.Field "method" msg') -method - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "method") - -name :: - forall msg msg' . Data.ProtoLens.HasField "name" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "name" msg) - (Data.ProtoLens.Field "name" msg') -name - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "name") - -namePart :: - forall msg msg' . Data.ProtoLens.HasField "namePart" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "namePart" msg) - (Data.ProtoLens.Field "namePart" msg') -namePart - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "namePart") - -negativeIntValue :: - forall msg msg' . - Data.ProtoLens.HasField "negativeIntValue" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "negativeIntValue" msg) - (Data.ProtoLens.Field "negativeIntValue" msg') -negativeIntValue - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "negativeIntValue") - -nestedType :: - forall msg msg' . Data.ProtoLens.HasField "nestedType" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "nestedType" msg) - (Data.ProtoLens.Field "nestedType" msg') -nestedType - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "nestedType") - -noStandardDescriptorAccessor :: - forall msg msg' . - Data.ProtoLens.HasField "noStandardDescriptorAccessor" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "noStandardDescriptorAccessor" msg) - (Data.ProtoLens.Field "noStandardDescriptorAccessor" msg') -noStandardDescriptorAccessor - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "noStandardDescriptorAccessor") - -number :: - forall msg msg' . Data.ProtoLens.HasField "number" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "number" msg) - (Data.ProtoLens.Field "number" msg') -number - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "number") - -objcClassPrefix :: - forall msg msg' . - Data.ProtoLens.HasField "objcClassPrefix" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "objcClassPrefix" msg) - (Data.ProtoLens.Field "objcClassPrefix" msg') -objcClassPrefix - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "objcClassPrefix") - -oneofDecl :: - forall msg msg' . Data.ProtoLens.HasField "oneofDecl" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "oneofDecl" msg) - (Data.ProtoLens.Field "oneofDecl" msg') -oneofDecl - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "oneofDecl") - -oneofIndex :: - forall msg msg' . Data.ProtoLens.HasField "oneofIndex" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "oneofIndex" msg) - (Data.ProtoLens.Field "oneofIndex" msg') -oneofIndex - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "oneofIndex") - -optimizeFor :: - forall msg msg' . Data.ProtoLens.HasField "optimizeFor" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "optimizeFor" msg) - (Data.ProtoLens.Field "optimizeFor" msg') -optimizeFor - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "optimizeFor") - -options :: - forall msg msg' . Data.ProtoLens.HasField "options" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "options" msg) - (Data.ProtoLens.Field "options" msg') -options - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "options") - -outputType :: - forall msg msg' . Data.ProtoLens.HasField "outputType" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "outputType" msg) - (Data.ProtoLens.Field "outputType" msg') -outputType - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "outputType") - -package :: - forall msg msg' . Data.ProtoLens.HasField "package" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "package" msg) - (Data.ProtoLens.Field "package" msg') -package - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "package") - -packed :: - forall msg msg' . Data.ProtoLens.HasField "packed" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "packed" msg) - (Data.ProtoLens.Field "packed" msg') -packed - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "packed") - -path :: - forall msg msg' . Data.ProtoLens.HasField "path" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "path" msg) - (Data.ProtoLens.Field "path" msg') -path - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "path") - -positiveIntValue :: - forall msg msg' . - Data.ProtoLens.HasField "positiveIntValue" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "positiveIntValue" msg) - (Data.ProtoLens.Field "positiveIntValue" msg') -positiveIntValue - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "positiveIntValue") - -publicDependency :: - forall msg msg' . - Data.ProtoLens.HasField "publicDependency" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "publicDependency" msg) - (Data.ProtoLens.Field "publicDependency" msg') -publicDependency - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "publicDependency") - -pyGenericServices :: - forall msg msg' . - Data.ProtoLens.HasField "pyGenericServices" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "pyGenericServices" msg) - (Data.ProtoLens.Field "pyGenericServices" msg') -pyGenericServices - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "pyGenericServices") - -reservedName :: - forall msg msg' . - Data.ProtoLens.HasField "reservedName" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "reservedName" msg) - (Data.ProtoLens.Field "reservedName" msg') -reservedName - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "reservedName") - -reservedRange :: - forall msg msg' . - Data.ProtoLens.HasField "reservedRange" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "reservedRange" msg) - (Data.ProtoLens.Field "reservedRange" msg') -reservedRange - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "reservedRange") - -serverStreaming :: - forall msg msg' . - Data.ProtoLens.HasField "serverStreaming" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "serverStreaming" msg) - (Data.ProtoLens.Field "serverStreaming" msg') -serverStreaming - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "serverStreaming") - -service :: - forall msg msg' . Data.ProtoLens.HasField "service" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "service" msg) - (Data.ProtoLens.Field "service" msg') -service - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "service") - -sourceCodeInfo :: - forall msg msg' . - Data.ProtoLens.HasField "sourceCodeInfo" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "sourceCodeInfo" msg) - (Data.ProtoLens.Field "sourceCodeInfo" msg') -sourceCodeInfo - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "sourceCodeInfo") - -sourceFile :: - forall msg msg' . Data.ProtoLens.HasField "sourceFile" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "sourceFile" msg) - (Data.ProtoLens.Field "sourceFile" msg') -sourceFile - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "sourceFile") - -span :: - forall msg msg' . Data.ProtoLens.HasField "span" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "span" msg) - (Data.ProtoLens.Field "span" msg') -span - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "span") - -start :: - forall msg msg' . Data.ProtoLens.HasField "start" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "start" msg) - (Data.ProtoLens.Field "start" msg') -start - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "start") - -stringValue :: - forall msg msg' . Data.ProtoLens.HasField "stringValue" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "stringValue" msg) - (Data.ProtoLens.Field "stringValue" msg') -stringValue - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "stringValue") - -syntax :: - forall msg msg' . Data.ProtoLens.HasField "syntax" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "syntax" msg) - (Data.ProtoLens.Field "syntax" msg') -syntax - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "syntax") - -trailingComments :: - forall msg msg' . - Data.ProtoLens.HasField "trailingComments" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "trailingComments" msg) - (Data.ProtoLens.Field "trailingComments" msg') -trailingComments - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "trailingComments") - -type' :: - forall msg msg' . Data.ProtoLens.HasField "type'" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "type'" msg) - (Data.ProtoLens.Field "type'" msg') -type' - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "type'") - -typeName :: - forall msg msg' . Data.ProtoLens.HasField "typeName" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "typeName" msg) - (Data.ProtoLens.Field "typeName" msg') -typeName - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "typeName") - -uninterpretedOption :: - forall msg msg' . - Data.ProtoLens.HasField "uninterpretedOption" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "uninterpretedOption" msg) - (Data.ProtoLens.Field "uninterpretedOption" msg') -uninterpretedOption - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "uninterpretedOption") - -value :: - forall msg msg' . Data.ProtoLens.HasField "value" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "value" msg) - (Data.ProtoLens.Field "value" msg') -value - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "value") - -weak :: - forall msg msg' . Data.ProtoLens.HasField "weak" msg msg' => - Lens.Family2.Lens msg msg' (Data.ProtoLens.Field "weak" msg) - (Data.ProtoLens.Field "weak" msg') -weak - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: Data.ProtoLens.ProxySym "weak") - -weakDependency :: - forall msg msg' . - Data.ProtoLens.HasField "weakDependency" msg msg' => - Lens.Family2.Lens msg msg' - (Data.ProtoLens.Field "weakDependency" msg) - (Data.ProtoLens.Field "weakDependency" msg') -weakDependency - = Data.ProtoLens.field - (Data.ProtoLens.ProxySym :: - Data.ProtoLens.ProxySym "weakDependency") + UndecidableInstances, MultiParamTypeClasses, FlexibleContexts, + FlexibleInstances, PatternSynonyms, MagicHash #-} +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +module Proto.Google.Protobuf.Descriptor where +import qualified Prelude +import qualified Data.Int +import qualified Data.Word +import qualified Data.ProtoLens +import qualified Data.ProtoLens.Message.Enum +import qualified Lens.Family2 +import qualified Lens.Family2.Unchecked +import qualified Data.Default.Class +import qualified Data.Text +import qualified Data.Map +import qualified Data.ByteString +import qualified Lens.Labels + +data DescriptorProto = DescriptorProto{_DescriptorProto'name :: + !(Prelude.Maybe Data.Text.Text), + _DescriptorProto'field :: ![FieldDescriptorProto], + _DescriptorProto'extension :: ![FieldDescriptorProto], + _DescriptorProto'nestedType :: ![DescriptorProto], + _DescriptorProto'enumType :: ![EnumDescriptorProto], + _DescriptorProto'extensionRange :: + ![DescriptorProto'ExtensionRange], + _DescriptorProto'oneofDecl :: ![OneofDescriptorProto], + _DescriptorProto'options :: !(Prelude.Maybe MessageOptions), + _DescriptorProto'reservedRange :: + ![DescriptorProto'ReservedRange], + _DescriptorProto'reservedName :: ![Data.Text.Text]} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "name" f DescriptorProto DescriptorProto a b + where + lensOf _ + = (Prelude..) maybe'name + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'name" f DescriptorProto DescriptorProto + a b where + lensOf _ + = Lens.Family2.Unchecked.lens _DescriptorProto'name + (\ x__ y__ -> x__{_DescriptorProto'name = y__}) + +instance (a ~ [FieldDescriptorProto], b ~ [FieldDescriptorProto], + Prelude.Functor f) => + Lens.Labels.HasLens "field" f DescriptorProto DescriptorProto a b + where + lensOf _ + = Lens.Family2.Unchecked.lens _DescriptorProto'field + (\ x__ y__ -> x__{_DescriptorProto'field = y__}) + +instance (a ~ [FieldDescriptorProto], b ~ [FieldDescriptorProto], + Prelude.Functor f) => + Lens.Labels.HasLens "extension" f DescriptorProto DescriptorProto a + b where + lensOf _ + = Lens.Family2.Unchecked.lens _DescriptorProto'extension + (\ x__ y__ -> x__{_DescriptorProto'extension = y__}) + +instance (a ~ [DescriptorProto], b ~ [DescriptorProto], + Prelude.Functor f) => + Lens.Labels.HasLens "nestedType" f DescriptorProto DescriptorProto + a b where + lensOf _ + = Lens.Family2.Unchecked.lens _DescriptorProto'nestedType + (\ x__ y__ -> x__{_DescriptorProto'nestedType = y__}) + +instance (a ~ [EnumDescriptorProto], b ~ [EnumDescriptorProto], + Prelude.Functor f) => + Lens.Labels.HasLens "enumType" f DescriptorProto DescriptorProto a + b where + lensOf _ + = Lens.Family2.Unchecked.lens _DescriptorProto'enumType + (\ x__ y__ -> x__{_DescriptorProto'enumType = y__}) + +instance (a ~ [DescriptorProto'ExtensionRange], + b ~ [DescriptorProto'ExtensionRange], Prelude.Functor f) => + Lens.Labels.HasLens "extensionRange" f DescriptorProto + DescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _DescriptorProto'extensionRange + (\ x__ y__ -> x__{_DescriptorProto'extensionRange = y__}) + +instance (a ~ [OneofDescriptorProto], b ~ [OneofDescriptorProto], + Prelude.Functor f) => + Lens.Labels.HasLens "oneofDecl" f DescriptorProto DescriptorProto a + b where + lensOf _ + = Lens.Family2.Unchecked.lens _DescriptorProto'oneofDecl + (\ x__ y__ -> x__{_DescriptorProto'oneofDecl = y__}) + +instance (a ~ MessageOptions, b ~ MessageOptions, + Prelude.Functor f) => + Lens.Labels.HasLens "options" f DescriptorProto DescriptorProto a b + where + lensOf _ + = (Prelude..) maybe'options + (Data.ProtoLens.maybeLens Data.Default.Class.def) + +instance (a ~ Prelude.Maybe MessageOptions, + b ~ Prelude.Maybe MessageOptions, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'options" f DescriptorProto + DescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _DescriptorProto'options + (\ x__ y__ -> x__{_DescriptorProto'options = y__}) + +instance (a ~ [DescriptorProto'ReservedRange], + b ~ [DescriptorProto'ReservedRange], Prelude.Functor f) => + Lens.Labels.HasLens "reservedRange" f DescriptorProto + DescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _DescriptorProto'reservedRange + (\ x__ y__ -> x__{_DescriptorProto'reservedRange = y__}) + +instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], + Prelude.Functor f) => + Lens.Labels.HasLens "reservedName" f DescriptorProto + DescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _DescriptorProto'reservedName + (\ x__ y__ -> x__{_DescriptorProto'reservedName = y__}) + +instance Data.Default.Class.Default DescriptorProto where + def + = DescriptorProto{_DescriptorProto'name = Prelude.Nothing, + _DescriptorProto'field = [], _DescriptorProto'extension = [], + _DescriptorProto'nestedType = [], _DescriptorProto'enumType = [], + _DescriptorProto'extensionRange = [], + _DescriptorProto'oneofDecl = [], + _DescriptorProto'options = Prelude.Nothing, + _DescriptorProto'reservedRange = [], + _DescriptorProto'reservedName = []} + +instance Data.ProtoLens.Message DescriptorProto where + descriptor + = let name__field_descriptor + = Data.ProtoLens.FieldDescriptor "name" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'name) + :: Data.ProtoLens.FieldDescriptor DescriptorProto + field__field_descriptor + = Data.ProtoLens.FieldDescriptor "field" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked field) + :: Data.ProtoLens.FieldDescriptor DescriptorProto + extension__field_descriptor + = Data.ProtoLens.FieldDescriptor "extension" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked extension) + :: Data.ProtoLens.FieldDescriptor DescriptorProto + nestedType__field_descriptor + = Data.ProtoLens.FieldDescriptor "nested_type" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor DescriptorProto) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked nestedType) + :: Data.ProtoLens.FieldDescriptor DescriptorProto + enumType__field_descriptor + = Data.ProtoLens.FieldDescriptor "enum_type" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor EnumDescriptorProto) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked enumType) + :: Data.ProtoLens.FieldDescriptor DescriptorProto + extensionRange__field_descriptor + = Data.ProtoLens.FieldDescriptor "extension_range" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor DescriptorProto'ExtensionRange) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked + extensionRange) + :: Data.ProtoLens.FieldDescriptor DescriptorProto + oneofDecl__field_descriptor + = Data.ProtoLens.FieldDescriptor "oneof_decl" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor OneofDescriptorProto) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked oneofDecl) + :: Data.ProtoLens.FieldDescriptor DescriptorProto + options__field_descriptor + = Data.ProtoLens.FieldDescriptor "options" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor MessageOptions) + (Data.ProtoLens.OptionalField maybe'options) + :: Data.ProtoLens.FieldDescriptor DescriptorProto + reservedRange__field_descriptor + = Data.ProtoLens.FieldDescriptor "reserved_range" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor DescriptorProto'ReservedRange) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked + reservedRange) + :: Data.ProtoLens.FieldDescriptor DescriptorProto + reservedName__field_descriptor + = Data.ProtoLens.FieldDescriptor "reserved_name" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked reservedName) + :: Data.ProtoLens.FieldDescriptor DescriptorProto + in + Data.ProtoLens.MessageDescriptor + (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)]) + (Data.Map.fromList + [("name", name__field_descriptor), + ("field", field__field_descriptor), + ("extension", extension__field_descriptor), + ("nested_type", nestedType__field_descriptor), + ("enum_type", enumType__field_descriptor), + ("extension_range", extensionRange__field_descriptor), + ("oneof_decl", oneofDecl__field_descriptor), + ("options", options__field_descriptor), + ("reserved_range", reservedRange__field_descriptor), + ("reserved_name", reservedName__field_descriptor)]) + +data DescriptorProto'ExtensionRange = DescriptorProto'ExtensionRange{_DescriptorProto'ExtensionRange'start + :: + !(Prelude.Maybe + Data.Int.Int32), + _DescriptorProto'ExtensionRange'end + :: + !(Prelude.Maybe + Data.Int.Int32)} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, + Prelude.Functor f) => + Lens.Labels.HasLens "start" f DescriptorProto'ExtensionRange + DescriptorProto'ExtensionRange a b where + lensOf _ + = (Prelude..) maybe'start + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Int.Int32, + b ~ Prelude.Maybe Data.Int.Int32, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'start" f DescriptorProto'ExtensionRange + DescriptorProto'ExtensionRange a b where + lensOf _ + = Lens.Family2.Unchecked.lens _DescriptorProto'ExtensionRange'start + (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'start = y__}) + +instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, + Prelude.Functor f) => + Lens.Labels.HasLens "end" f DescriptorProto'ExtensionRange + DescriptorProto'ExtensionRange a b where + lensOf _ + = (Prelude..) maybe'end + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Int.Int32, + b ~ Prelude.Maybe Data.Int.Int32, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'end" f DescriptorProto'ExtensionRange + DescriptorProto'ExtensionRange a b where + lensOf _ + = Lens.Family2.Unchecked.lens _DescriptorProto'ExtensionRange'end + (\ x__ y__ -> x__{_DescriptorProto'ExtensionRange'end = y__}) + +instance Data.Default.Class.Default DescriptorProto'ExtensionRange + where + def + = DescriptorProto'ExtensionRange{_DescriptorProto'ExtensionRange'start + = Prelude.Nothing, + _DescriptorProto'ExtensionRange'end = Prelude.Nothing} + +instance Data.ProtoLens.Message DescriptorProto'ExtensionRange + where + descriptor + = let start__field_descriptor + = Data.ProtoLens.FieldDescriptor "start" + (Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.OptionalField maybe'start) + :: Data.ProtoLens.FieldDescriptor DescriptorProto'ExtensionRange + end__field_descriptor + = Data.ProtoLens.FieldDescriptor "end" + (Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.OptionalField maybe'end) + :: Data.ProtoLens.FieldDescriptor DescriptorProto'ExtensionRange + in + Data.ProtoLens.MessageDescriptor + (Data.Map.fromList + [(Data.ProtoLens.Tag 1, start__field_descriptor), + (Data.ProtoLens.Tag 2, end__field_descriptor)]) + (Data.Map.fromList + [("start", start__field_descriptor), + ("end", end__field_descriptor)]) + +data DescriptorProto'ReservedRange = DescriptorProto'ReservedRange{_DescriptorProto'ReservedRange'start + :: + !(Prelude.Maybe Data.Int.Int32), + _DescriptorProto'ReservedRange'end + :: + !(Prelude.Maybe Data.Int.Int32)} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, + Prelude.Functor f) => + Lens.Labels.HasLens "start" f DescriptorProto'ReservedRange + DescriptorProto'ReservedRange a b where + lensOf _ + = (Prelude..) maybe'start + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Int.Int32, + b ~ Prelude.Maybe Data.Int.Int32, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'start" f DescriptorProto'ReservedRange + DescriptorProto'ReservedRange a b where + lensOf _ + = Lens.Family2.Unchecked.lens _DescriptorProto'ReservedRange'start + (\ x__ y__ -> x__{_DescriptorProto'ReservedRange'start = y__}) + +instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, + Prelude.Functor f) => + Lens.Labels.HasLens "end" f DescriptorProto'ReservedRange + DescriptorProto'ReservedRange a b where + lensOf _ + = (Prelude..) maybe'end + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Int.Int32, + b ~ Prelude.Maybe Data.Int.Int32, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'end" f DescriptorProto'ReservedRange + DescriptorProto'ReservedRange a b where + lensOf _ + = Lens.Family2.Unchecked.lens _DescriptorProto'ReservedRange'end + (\ x__ y__ -> x__{_DescriptorProto'ReservedRange'end = y__}) + +instance Data.Default.Class.Default DescriptorProto'ReservedRange + where + def + = DescriptorProto'ReservedRange{_DescriptorProto'ReservedRange'start + = Prelude.Nothing, + _DescriptorProto'ReservedRange'end = Prelude.Nothing} + +instance Data.ProtoLens.Message DescriptorProto'ReservedRange where + descriptor + = let start__field_descriptor + = Data.ProtoLens.FieldDescriptor "start" + (Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.OptionalField maybe'start) + :: Data.ProtoLens.FieldDescriptor DescriptorProto'ReservedRange + end__field_descriptor + = Data.ProtoLens.FieldDescriptor "end" + (Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.OptionalField maybe'end) + :: Data.ProtoLens.FieldDescriptor DescriptorProto'ReservedRange + in + Data.ProtoLens.MessageDescriptor + (Data.Map.fromList + [(Data.ProtoLens.Tag 1, start__field_descriptor), + (Data.ProtoLens.Tag 2, end__field_descriptor)]) + (Data.Map.fromList + [("start", start__field_descriptor), + ("end", end__field_descriptor)]) + +data EnumDescriptorProto = EnumDescriptorProto{_EnumDescriptorProto'name + :: !(Prelude.Maybe Data.Text.Text), + _EnumDescriptorProto'value :: + ![EnumValueDescriptorProto], + _EnumDescriptorProto'options :: + !(Prelude.Maybe EnumOptions)} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "name" f EnumDescriptorProto + EnumDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'name + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'name" f EnumDescriptorProto + EnumDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _EnumDescriptorProto'name + (\ x__ y__ -> x__{_EnumDescriptorProto'name = y__}) + +instance (a ~ [EnumValueDescriptorProto], + b ~ [EnumValueDescriptorProto], Prelude.Functor f) => + Lens.Labels.HasLens "value" f EnumDescriptorProto + EnumDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _EnumDescriptorProto'value + (\ x__ y__ -> x__{_EnumDescriptorProto'value = y__}) + +instance (a ~ EnumOptions, b ~ EnumOptions, Prelude.Functor f) => + Lens.Labels.HasLens "options" f EnumDescriptorProto + EnumDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'options + (Data.ProtoLens.maybeLens Data.Default.Class.def) + +instance (a ~ Prelude.Maybe EnumOptions, + b ~ Prelude.Maybe EnumOptions, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'options" f EnumDescriptorProto + EnumDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _EnumDescriptorProto'options + (\ x__ y__ -> x__{_EnumDescriptorProto'options = y__}) + +instance Data.Default.Class.Default EnumDescriptorProto where + def + = EnumDescriptorProto{_EnumDescriptorProto'name = Prelude.Nothing, + _EnumDescriptorProto'value = [], + _EnumDescriptorProto'options = Prelude.Nothing} + +instance Data.ProtoLens.Message EnumDescriptorProto where + descriptor + = let name__field_descriptor + = Data.ProtoLens.FieldDescriptor "name" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'name) + :: Data.ProtoLens.FieldDescriptor EnumDescriptorProto + value__field_descriptor + = Data.ProtoLens.FieldDescriptor "value" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor EnumValueDescriptorProto) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked value) + :: Data.ProtoLens.FieldDescriptor EnumDescriptorProto + options__field_descriptor + = Data.ProtoLens.FieldDescriptor "options" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor EnumOptions) + (Data.ProtoLens.OptionalField maybe'options) + :: Data.ProtoLens.FieldDescriptor EnumDescriptorProto + in + Data.ProtoLens.MessageDescriptor + (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.Map.fromList + [("name", name__field_descriptor), + ("value", value__field_descriptor), + ("options", options__field_descriptor)]) + +data EnumOptions = EnumOptions{_EnumOptions'allowAlias :: + !(Prelude.Maybe Prelude.Bool), + _EnumOptions'deprecated :: !(Prelude.Maybe Prelude.Bool), + _EnumOptions'uninterpretedOption :: ![UninterpretedOption]} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "allowAlias" f EnumOptions EnumOptions a b + where + lensOf _ + = (Prelude..) maybe'allowAlias + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'allowAlias" f EnumOptions EnumOptions a + b where + lensOf _ + = Lens.Family2.Unchecked.lens _EnumOptions'allowAlias + (\ x__ y__ -> x__{_EnumOptions'allowAlias = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "deprecated" f EnumOptions EnumOptions a b + where + lensOf _ + = (Prelude..) maybe'deprecated + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'deprecated" f EnumOptions EnumOptions a + b where + lensOf _ + = Lens.Family2.Unchecked.lens _EnumOptions'deprecated + (\ x__ y__ -> x__{_EnumOptions'deprecated = y__}) + +instance (a ~ [UninterpretedOption], b ~ [UninterpretedOption], + Prelude.Functor f) => + Lens.Labels.HasLens "uninterpretedOption" f EnumOptions EnumOptions + a b where + lensOf _ + = Lens.Family2.Unchecked.lens _EnumOptions'uninterpretedOption + (\ x__ y__ -> x__{_EnumOptions'uninterpretedOption = y__}) + +instance Data.Default.Class.Default EnumOptions where + def + = EnumOptions{_EnumOptions'allowAlias = Prelude.Nothing, + _EnumOptions'deprecated = Prelude.Nothing, + _EnumOptions'uninterpretedOption = []} + +instance Data.ProtoLens.Message EnumOptions where + descriptor + = let allowAlias__field_descriptor + = Data.ProtoLens.FieldDescriptor "allow_alias" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'allowAlias) + :: Data.ProtoLens.FieldDescriptor EnumOptions + deprecated__field_descriptor + = Data.ProtoLens.FieldDescriptor "deprecated" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'deprecated) + :: Data.ProtoLens.FieldDescriptor EnumOptions + uninterpretedOption__field_descriptor + = Data.ProtoLens.FieldDescriptor "uninterpreted_option" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked + uninterpretedOption) + :: Data.ProtoLens.FieldDescriptor EnumOptions + in + Data.ProtoLens.MessageDescriptor + (Data.Map.fromList + [(Data.ProtoLens.Tag 2, allowAlias__field_descriptor), + (Data.ProtoLens.Tag 3, deprecated__field_descriptor), + (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]) + (Data.Map.fromList + [("allow_alias", allowAlias__field_descriptor), + ("deprecated", deprecated__field_descriptor), + ("uninterpreted_option", uninterpretedOption__field_descriptor)]) + +data EnumValueDescriptorProto = EnumValueDescriptorProto{_EnumValueDescriptorProto'name + :: !(Prelude.Maybe Data.Text.Text), + _EnumValueDescriptorProto'number :: + !(Prelude.Maybe Data.Int.Int32), + _EnumValueDescriptorProto'options :: + !(Prelude.Maybe EnumValueOptions)} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "name" f EnumValueDescriptorProto + EnumValueDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'name + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'name" f EnumValueDescriptorProto + EnumValueDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'name + (\ x__ y__ -> x__{_EnumValueDescriptorProto'name = y__}) + +instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, + Prelude.Functor f) => + Lens.Labels.HasLens "number" f EnumValueDescriptorProto + EnumValueDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'number + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Int.Int32, + b ~ Prelude.Maybe Data.Int.Int32, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'number" f EnumValueDescriptorProto + EnumValueDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'number + (\ x__ y__ -> x__{_EnumValueDescriptorProto'number = y__}) + +instance (a ~ EnumValueOptions, b ~ EnumValueOptions, + Prelude.Functor f) => + Lens.Labels.HasLens "options" f EnumValueDescriptorProto + EnumValueDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'options + (Data.ProtoLens.maybeLens Data.Default.Class.def) + +instance (a ~ Prelude.Maybe EnumValueOptions, + b ~ Prelude.Maybe EnumValueOptions, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'options" f EnumValueDescriptorProto + EnumValueDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _EnumValueDescriptorProto'options + (\ x__ y__ -> x__{_EnumValueDescriptorProto'options = y__}) + +instance Data.Default.Class.Default EnumValueDescriptorProto where + def + = EnumValueDescriptorProto{_EnumValueDescriptorProto'name = + Prelude.Nothing, + _EnumValueDescriptorProto'number = Prelude.Nothing, + _EnumValueDescriptorProto'options = Prelude.Nothing} + +instance Data.ProtoLens.Message EnumValueDescriptorProto where + descriptor + = let name__field_descriptor + = Data.ProtoLens.FieldDescriptor "name" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'name) + :: Data.ProtoLens.FieldDescriptor EnumValueDescriptorProto + number__field_descriptor + = Data.ProtoLens.FieldDescriptor "number" + (Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.OptionalField maybe'number) + :: Data.ProtoLens.FieldDescriptor EnumValueDescriptorProto + options__field_descriptor + = Data.ProtoLens.FieldDescriptor "options" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor EnumValueOptions) + (Data.ProtoLens.OptionalField maybe'options) + :: Data.ProtoLens.FieldDescriptor EnumValueDescriptorProto + in + Data.ProtoLens.MessageDescriptor + (Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, number__field_descriptor), + (Data.ProtoLens.Tag 3, options__field_descriptor)]) + (Data.Map.fromList + [("name", name__field_descriptor), + ("number", number__field_descriptor), + ("options", options__field_descriptor)]) + +data EnumValueOptions = EnumValueOptions{_EnumValueOptions'deprecated + :: !(Prelude.Maybe Prelude.Bool), + _EnumValueOptions'uninterpretedOption :: + ![UninterpretedOption]} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "deprecated" f EnumValueOptions + EnumValueOptions a b where + lensOf _ + = (Prelude..) maybe'deprecated + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'deprecated" f EnumValueOptions + EnumValueOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _EnumValueOptions'deprecated + (\ x__ y__ -> x__{_EnumValueOptions'deprecated = y__}) + +instance (a ~ [UninterpretedOption], b ~ [UninterpretedOption], + Prelude.Functor f) => + Lens.Labels.HasLens "uninterpretedOption" f EnumValueOptions + EnumValueOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _EnumValueOptions'uninterpretedOption + (\ x__ y__ -> x__{_EnumValueOptions'uninterpretedOption = y__}) + +instance Data.Default.Class.Default EnumValueOptions where + def + = EnumValueOptions{_EnumValueOptions'deprecated = Prelude.Nothing, + _EnumValueOptions'uninterpretedOption = []} + +instance Data.ProtoLens.Message EnumValueOptions where + descriptor + = let deprecated__field_descriptor + = Data.ProtoLens.FieldDescriptor "deprecated" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'deprecated) + :: Data.ProtoLens.FieldDescriptor EnumValueOptions + uninterpretedOption__field_descriptor + = Data.ProtoLens.FieldDescriptor "uninterpreted_option" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked + uninterpretedOption) + :: Data.ProtoLens.FieldDescriptor EnumValueOptions + in + Data.ProtoLens.MessageDescriptor + (Data.Map.fromList + [(Data.ProtoLens.Tag 1, deprecated__field_descriptor), + (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]) + (Data.Map.fromList + [("deprecated", deprecated__field_descriptor), + ("uninterpreted_option", uninterpretedOption__field_descriptor)]) + +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)} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "name" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'name + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'name" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldDescriptorProto'name + (\ x__ y__ -> x__{_FieldDescriptorProto'name = y__}) + +instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, + Prelude.Functor f) => + Lens.Labels.HasLens "number" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'number + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Int.Int32, + b ~ Prelude.Maybe Data.Int.Int32, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'number" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldDescriptorProto'number + (\ x__ y__ -> x__{_FieldDescriptorProto'number = y__}) + +instance (a ~ FieldDescriptorProto'Label, + b ~ FieldDescriptorProto'Label, Prelude.Functor f) => + Lens.Labels.HasLens "label" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'label + (Data.ProtoLens.maybeLens Data.Default.Class.def) + +instance (a ~ Prelude.Maybe FieldDescriptorProto'Label, + b ~ Prelude.Maybe FieldDescriptorProto'Label, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'label" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldDescriptorProto'label + (\ x__ y__ -> x__{_FieldDescriptorProto'label = y__}) + +instance (a ~ FieldDescriptorProto'Type, + b ~ FieldDescriptorProto'Type, Prelude.Functor f) => + Lens.Labels.HasLens "type'" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'type' + (Data.ProtoLens.maybeLens Data.Default.Class.def) + +instance (a ~ Prelude.Maybe FieldDescriptorProto'Type, + b ~ Prelude.Maybe FieldDescriptorProto'Type, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'type'" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldDescriptorProto'type' + (\ x__ y__ -> x__{_FieldDescriptorProto'type' = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "typeName" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'typeName + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'typeName" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldDescriptorProto'typeName + (\ x__ y__ -> x__{_FieldDescriptorProto'typeName = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "extendee" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'extendee + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'extendee" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldDescriptorProto'extendee + (\ x__ y__ -> x__{_FieldDescriptorProto'extendee = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "defaultValue" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'defaultValue + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'defaultValue" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldDescriptorProto'defaultValue + (\ x__ y__ -> x__{_FieldDescriptorProto'defaultValue = y__}) + +instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, + Prelude.Functor f) => + Lens.Labels.HasLens "oneofIndex" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'oneofIndex + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Int.Int32, + b ~ Prelude.Maybe Data.Int.Int32, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'oneofIndex" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldDescriptorProto'oneofIndex + (\ x__ y__ -> x__{_FieldDescriptorProto'oneofIndex = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "jsonName" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'jsonName + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'jsonName" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldDescriptorProto'jsonName + (\ x__ y__ -> x__{_FieldDescriptorProto'jsonName = y__}) + +instance (a ~ FieldOptions, b ~ FieldOptions, Prelude.Functor f) => + Lens.Labels.HasLens "options" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'options + (Data.ProtoLens.maybeLens Data.Default.Class.def) + +instance (a ~ Prelude.Maybe FieldOptions, + b ~ Prelude.Maybe FieldOptions, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'options" f FieldDescriptorProto + FieldDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldDescriptorProto'options + (\ x__ y__ -> x__{_FieldDescriptorProto'options = y__}) + +instance Data.Default.Class.Default FieldDescriptorProto where + def + = 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} + +instance Data.ProtoLens.Message FieldDescriptorProto where + descriptor + = let name__field_descriptor + = Data.ProtoLens.FieldDescriptor "name" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'name) + :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto + number__field_descriptor + = Data.ProtoLens.FieldDescriptor "number" + (Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.OptionalField maybe'number) + :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto + label__field_descriptor + = Data.ProtoLens.FieldDescriptor "label" + (Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto'Label) + (Data.ProtoLens.OptionalField maybe'label) + :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor "type" + (Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto'Type) + (Data.ProtoLens.OptionalField maybe'type') + :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto + typeName__field_descriptor + = Data.ProtoLens.FieldDescriptor "type_name" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'typeName) + :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto + extendee__field_descriptor + = Data.ProtoLens.FieldDescriptor "extendee" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'extendee) + :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto + defaultValue__field_descriptor + = Data.ProtoLens.FieldDescriptor "default_value" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'defaultValue) + :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto + oneofIndex__field_descriptor + = Data.ProtoLens.FieldDescriptor "oneof_index" + (Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.OptionalField maybe'oneofIndex) + :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto + jsonName__field_descriptor + = Data.ProtoLens.FieldDescriptor "json_name" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'jsonName) + :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto + options__field_descriptor + = Data.ProtoLens.FieldDescriptor "options" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor FieldOptions) + (Data.ProtoLens.OptionalField maybe'options) + :: Data.ProtoLens.FieldDescriptor FieldDescriptorProto + in + Data.ProtoLens.MessageDescriptor + (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)]) + (Data.Map.fromList + [("name", name__field_descriptor), + ("number", number__field_descriptor), + ("label", label__field_descriptor), + ("type", type'__field_descriptor), + ("type_name", typeName__field_descriptor), + ("extendee", extendee__field_descriptor), + ("default_value", defaultValue__field_descriptor), + ("oneof_index", oneofIndex__field_descriptor), + ("json_name", jsonName__field_descriptor), + ("options", options__field_descriptor)]) + +data FieldDescriptorProto'Label = FieldDescriptorProto'LABEL_OPTIONAL + | FieldDescriptorProto'LABEL_REQUIRED + | FieldDescriptorProto'LABEL_REPEATED + deriving (Prelude.Show, Prelude.Eq) + +instance Data.Default.Class.Default FieldDescriptorProto'Label + where + def = FieldDescriptorProto'LABEL_OPTIONAL + +instance Data.ProtoLens.FieldDefault FieldDescriptorProto'Label + where + fieldDefault = FieldDescriptorProto'LABEL_OPTIONAL + +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 "LABEL_OPTIONAL" + = Prelude.Just FieldDescriptorProto'LABEL_OPTIONAL + readEnum "LABEL_REQUIRED" + = Prelude.Just FieldDescriptorProto'LABEL_REQUIRED + readEnum "LABEL_REPEATED" + = Prelude.Just FieldDescriptorProto'LABEL_REPEATED + readEnum _ = Prelude.Nothing + +instance Prelude.Enum FieldDescriptorProto'Label where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) "toEnum: unknown value for enum Label: " + (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 Prelude.Bounded FieldDescriptorProto'Label where + minBound = FieldDescriptorProto'LABEL_OPTIONAL + maxBound = FieldDescriptorProto'LABEL_REPEATED + +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) + +instance Data.Default.Class.Default FieldDescriptorProto'Type where + def = FieldDescriptorProto'TYPE_DOUBLE + +instance Data.ProtoLens.FieldDefault FieldDescriptorProto'Type + where + fieldDefault = FieldDescriptorProto'TYPE_DOUBLE + +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 "TYPE_DOUBLE" + = Prelude.Just FieldDescriptorProto'TYPE_DOUBLE + readEnum "TYPE_FLOAT" + = Prelude.Just FieldDescriptorProto'TYPE_FLOAT + readEnum "TYPE_INT64" + = Prelude.Just FieldDescriptorProto'TYPE_INT64 + readEnum "TYPE_UINT64" + = Prelude.Just FieldDescriptorProto'TYPE_UINT64 + readEnum "TYPE_INT32" + = Prelude.Just FieldDescriptorProto'TYPE_INT32 + readEnum "TYPE_FIXED64" + = Prelude.Just FieldDescriptorProto'TYPE_FIXED64 + readEnum "TYPE_FIXED32" + = Prelude.Just FieldDescriptorProto'TYPE_FIXED32 + readEnum "TYPE_BOOL" = Prelude.Just FieldDescriptorProto'TYPE_BOOL + readEnum "TYPE_STRING" + = Prelude.Just FieldDescriptorProto'TYPE_STRING + readEnum "TYPE_GROUP" + = Prelude.Just FieldDescriptorProto'TYPE_GROUP + readEnum "TYPE_MESSAGE" + = Prelude.Just FieldDescriptorProto'TYPE_MESSAGE + readEnum "TYPE_BYTES" + = Prelude.Just FieldDescriptorProto'TYPE_BYTES + readEnum "TYPE_UINT32" + = Prelude.Just FieldDescriptorProto'TYPE_UINT32 + readEnum "TYPE_ENUM" = Prelude.Just FieldDescriptorProto'TYPE_ENUM + readEnum "TYPE_SFIXED32" + = Prelude.Just FieldDescriptorProto'TYPE_SFIXED32 + readEnum "TYPE_SFIXED64" + = Prelude.Just FieldDescriptorProto'TYPE_SFIXED64 + readEnum "TYPE_SINT32" + = Prelude.Just FieldDescriptorProto'TYPE_SINT32 + readEnum "TYPE_SINT64" + = Prelude.Just FieldDescriptorProto'TYPE_SINT64 + readEnum _ = Prelude.Nothing + +instance Prelude.Enum FieldDescriptorProto'Type where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) "toEnum: unknown value for enum Type: " + (Prelude.show k__))) + Prelude.id + (Data.ProtoLens.maybeToEnum k__) + fromEnum 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 Prelude.Bounded FieldDescriptorProto'Type where + minBound = FieldDescriptorProto'TYPE_DOUBLE + maxBound = FieldDescriptorProto'TYPE_SINT64 + +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 :: ![UninterpretedOption]} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ FieldOptions'CType, b ~ FieldOptions'CType, + Prelude.Functor f) => + Lens.Labels.HasLens "ctype" f FieldOptions FieldOptions a b where + lensOf _ + = (Prelude..) maybe'ctype + (Data.ProtoLens.maybeLens FieldOptions'STRING) + +instance (a ~ Prelude.Maybe FieldOptions'CType, + b ~ Prelude.Maybe FieldOptions'CType, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'ctype" f FieldOptions FieldOptions a b + where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldOptions'ctype + (\ x__ y__ -> x__{_FieldOptions'ctype = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "packed" f FieldOptions FieldOptions a b where + lensOf _ + = (Prelude..) maybe'packed + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'packed" f FieldOptions FieldOptions a b + where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldOptions'packed + (\ x__ y__ -> x__{_FieldOptions'packed = y__}) + +instance (a ~ FieldOptions'JSType, b ~ FieldOptions'JSType, + Prelude.Functor f) => + Lens.Labels.HasLens "jstype" f FieldOptions FieldOptions a b where + lensOf _ + = (Prelude..) maybe'jstype + (Data.ProtoLens.maybeLens FieldOptions'JS_NORMAL) + +instance (a ~ Prelude.Maybe FieldOptions'JSType, + b ~ Prelude.Maybe FieldOptions'JSType, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'jstype" f FieldOptions FieldOptions a b + where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldOptions'jstype + (\ x__ y__ -> x__{_FieldOptions'jstype = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "lazy" f FieldOptions FieldOptions a b where + lensOf _ + = (Prelude..) maybe'lazy (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'lazy" f FieldOptions FieldOptions a b + where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldOptions'lazy + (\ x__ y__ -> x__{_FieldOptions'lazy = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "deprecated" f FieldOptions FieldOptions a b + where + lensOf _ + = (Prelude..) maybe'deprecated + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'deprecated" f FieldOptions FieldOptions + a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldOptions'deprecated + (\ x__ y__ -> x__{_FieldOptions'deprecated = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "weak" f FieldOptions FieldOptions a b where + lensOf _ + = (Prelude..) maybe'weak (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'weak" f FieldOptions FieldOptions a b + where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldOptions'weak + (\ x__ y__ -> x__{_FieldOptions'weak = y__}) + +instance (a ~ [UninterpretedOption], b ~ [UninterpretedOption], + Prelude.Functor f) => + Lens.Labels.HasLens "uninterpretedOption" f FieldOptions + FieldOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FieldOptions'uninterpretedOption + (\ x__ y__ -> x__{_FieldOptions'uninterpretedOption = y__}) + +instance Data.Default.Class.Default FieldOptions where + def + = 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 = []} + +instance Data.ProtoLens.Message FieldOptions where + descriptor + = let ctype__field_descriptor + = Data.ProtoLens.FieldDescriptor "ctype" + (Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor FieldOptions'CType) + (Data.ProtoLens.OptionalField maybe'ctype) + :: Data.ProtoLens.FieldDescriptor FieldOptions + packed__field_descriptor + = Data.ProtoLens.FieldDescriptor "packed" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'packed) + :: Data.ProtoLens.FieldDescriptor FieldOptions + jstype__field_descriptor + = Data.ProtoLens.FieldDescriptor "jstype" + (Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor FieldOptions'JSType) + (Data.ProtoLens.OptionalField maybe'jstype) + :: Data.ProtoLens.FieldDescriptor FieldOptions + lazy__field_descriptor + = Data.ProtoLens.FieldDescriptor "lazy" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'lazy) + :: Data.ProtoLens.FieldDescriptor FieldOptions + deprecated__field_descriptor + = Data.ProtoLens.FieldDescriptor "deprecated" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'deprecated) + :: Data.ProtoLens.FieldDescriptor FieldOptions + weak__field_descriptor + = Data.ProtoLens.FieldDescriptor "weak" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'weak) + :: Data.ProtoLens.FieldDescriptor FieldOptions + uninterpretedOption__field_descriptor + = Data.ProtoLens.FieldDescriptor "uninterpreted_option" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked + uninterpretedOption) + :: Data.ProtoLens.FieldDescriptor FieldOptions + in + Data.ProtoLens.MessageDescriptor + (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)]) + (Data.Map.fromList + [("ctype", ctype__field_descriptor), + ("packed", packed__field_descriptor), + ("jstype", jstype__field_descriptor), + ("lazy", lazy__field_descriptor), + ("deprecated", deprecated__field_descriptor), + ("weak", weak__field_descriptor), + ("uninterpreted_option", uninterpretedOption__field_descriptor)]) + +data FieldOptions'CType = FieldOptions'STRING + | FieldOptions'CORD + | FieldOptions'STRING_PIECE + deriving (Prelude.Show, Prelude.Eq) + +instance Data.Default.Class.Default FieldOptions'CType where + def = FieldOptions'STRING + +instance Data.ProtoLens.FieldDefault FieldOptions'CType where + fieldDefault = FieldOptions'STRING + +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 "STRING" = Prelude.Just FieldOptions'STRING + readEnum "CORD" = Prelude.Just FieldOptions'CORD + readEnum "STRING_PIECE" = Prelude.Just FieldOptions'STRING_PIECE + readEnum _ = Prelude.Nothing + +instance Prelude.Enum FieldOptions'CType where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) "toEnum: unknown value for enum CType: " + (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 Prelude.Bounded FieldOptions'CType where + minBound = FieldOptions'STRING + maxBound = FieldOptions'STRING_PIECE + +data FieldOptions'JSType = FieldOptions'JS_NORMAL + | FieldOptions'JS_STRING + | FieldOptions'JS_NUMBER + deriving (Prelude.Show, Prelude.Eq) + +instance Data.Default.Class.Default FieldOptions'JSType where + def = FieldOptions'JS_NORMAL + +instance Data.ProtoLens.FieldDefault FieldOptions'JSType where + fieldDefault = FieldOptions'JS_NORMAL + +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 "JS_NORMAL" = Prelude.Just FieldOptions'JS_NORMAL + readEnum "JS_STRING" = Prelude.Just FieldOptions'JS_STRING + readEnum "JS_NUMBER" = Prelude.Just FieldOptions'JS_NUMBER + readEnum _ = Prelude.Nothing + +instance Prelude.Enum FieldOptions'JSType where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) "toEnum: unknown value for enum JSType: " + (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 Prelude.Bounded FieldOptions'JSType where + minBound = FieldOptions'JS_NORMAL + maxBound = FieldOptions'JS_NUMBER + +data FileDescriptorProto = FileDescriptorProto{_FileDescriptorProto'name + :: !(Prelude.Maybe Data.Text.Text), + _FileDescriptorProto'package :: + !(Prelude.Maybe Data.Text.Text), + _FileDescriptorProto'dependency :: ![Data.Text.Text], + _FileDescriptorProto'publicDependency :: + ![Data.Int.Int32], + _FileDescriptorProto'weakDependency :: + ![Data.Int.Int32], + _FileDescriptorProto'messageType :: + ![DescriptorProto], + _FileDescriptorProto'enumType :: + ![EnumDescriptorProto], + _FileDescriptorProto'service :: + ![ServiceDescriptorProto], + _FileDescriptorProto'extension :: + ![FieldDescriptorProto], + _FileDescriptorProto'options :: + !(Prelude.Maybe FileOptions), + _FileDescriptorProto'sourceCodeInfo :: + !(Prelude.Maybe SourceCodeInfo), + _FileDescriptorProto'syntax :: + !(Prelude.Maybe Data.Text.Text)} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "name" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'name + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'name" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileDescriptorProto'name + (\ x__ y__ -> x__{_FileDescriptorProto'name = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "package" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'package + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'package" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileDescriptorProto'package + (\ x__ y__ -> x__{_FileDescriptorProto'package = y__}) + +instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], + Prelude.Functor f) => + Lens.Labels.HasLens "dependency" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileDescriptorProto'dependency + (\ x__ y__ -> x__{_FileDescriptorProto'dependency = y__}) + +instance (a ~ [Data.Int.Int32], b ~ [Data.Int.Int32], + Prelude.Functor f) => + Lens.Labels.HasLens "publicDependency" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileDescriptorProto'publicDependency + (\ x__ y__ -> x__{_FileDescriptorProto'publicDependency = y__}) + +instance (a ~ [Data.Int.Int32], b ~ [Data.Int.Int32], + Prelude.Functor f) => + Lens.Labels.HasLens "weakDependency" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileDescriptorProto'weakDependency + (\ x__ y__ -> x__{_FileDescriptorProto'weakDependency = y__}) + +instance (a ~ [DescriptorProto], b ~ [DescriptorProto], + Prelude.Functor f) => + Lens.Labels.HasLens "messageType" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileDescriptorProto'messageType + (\ x__ y__ -> x__{_FileDescriptorProto'messageType = y__}) + +instance (a ~ [EnumDescriptorProto], b ~ [EnumDescriptorProto], + Prelude.Functor f) => + Lens.Labels.HasLens "enumType" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileDescriptorProto'enumType + (\ x__ y__ -> x__{_FileDescriptorProto'enumType = y__}) + +instance (a ~ [ServiceDescriptorProto], + b ~ [ServiceDescriptorProto], Prelude.Functor f) => + Lens.Labels.HasLens "service" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileDescriptorProto'service + (\ x__ y__ -> x__{_FileDescriptorProto'service = y__}) + +instance (a ~ [FieldDescriptorProto], b ~ [FieldDescriptorProto], + Prelude.Functor f) => + Lens.Labels.HasLens "extension" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileDescriptorProto'extension + (\ x__ y__ -> x__{_FileDescriptorProto'extension = y__}) + +instance (a ~ FileOptions, b ~ FileOptions, Prelude.Functor f) => + Lens.Labels.HasLens "options" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'options + (Data.ProtoLens.maybeLens Data.Default.Class.def) + +instance (a ~ Prelude.Maybe FileOptions, + b ~ Prelude.Maybe FileOptions, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'options" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileDescriptorProto'options + (\ x__ y__ -> x__{_FileDescriptorProto'options = y__}) + +instance (a ~ SourceCodeInfo, b ~ SourceCodeInfo, + Prelude.Functor f) => + Lens.Labels.HasLens "sourceCodeInfo" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'sourceCodeInfo + (Data.ProtoLens.maybeLens Data.Default.Class.def) + +instance (a ~ Prelude.Maybe SourceCodeInfo, + b ~ Prelude.Maybe SourceCodeInfo, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'sourceCodeInfo" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileDescriptorProto'sourceCodeInfo + (\ x__ y__ -> x__{_FileDescriptorProto'sourceCodeInfo = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "syntax" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'syntax + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'syntax" f FileDescriptorProto + FileDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileDescriptorProto'syntax + (\ x__ y__ -> x__{_FileDescriptorProto'syntax = y__}) + +instance Data.Default.Class.Default FileDescriptorProto where + def + = FileDescriptorProto{_FileDescriptorProto'name = Prelude.Nothing, + _FileDescriptorProto'package = Prelude.Nothing, + _FileDescriptorProto'dependency = [], + _FileDescriptorProto'publicDependency = [], + _FileDescriptorProto'weakDependency = [], + _FileDescriptorProto'messageType = [], + _FileDescriptorProto'enumType = [], + _FileDescriptorProto'service = [], + _FileDescriptorProto'extension = [], + _FileDescriptorProto'options = Prelude.Nothing, + _FileDescriptorProto'sourceCodeInfo = Prelude.Nothing, + _FileDescriptorProto'syntax = Prelude.Nothing} + +instance Data.ProtoLens.Message FileDescriptorProto where + descriptor + = let name__field_descriptor + = Data.ProtoLens.FieldDescriptor "name" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'name) + :: Data.ProtoLens.FieldDescriptor FileDescriptorProto + package__field_descriptor + = Data.ProtoLens.FieldDescriptor "package" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'package) + :: Data.ProtoLens.FieldDescriptor FileDescriptorProto + dependency__field_descriptor + = Data.ProtoLens.FieldDescriptor "dependency" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked dependency) + :: Data.ProtoLens.FieldDescriptor FileDescriptorProto + publicDependency__field_descriptor + = Data.ProtoLens.FieldDescriptor "public_dependency" + (Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked + publicDependency) + :: Data.ProtoLens.FieldDescriptor FileDescriptorProto + weakDependency__field_descriptor + = Data.ProtoLens.FieldDescriptor "weak_dependency" + (Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked + weakDependency) + :: Data.ProtoLens.FieldDescriptor FileDescriptorProto + messageType__field_descriptor + = Data.ProtoLens.FieldDescriptor "message_type" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor DescriptorProto) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked messageType) + :: Data.ProtoLens.FieldDescriptor FileDescriptorProto + enumType__field_descriptor + = Data.ProtoLens.FieldDescriptor "enum_type" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor EnumDescriptorProto) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked enumType) + :: Data.ProtoLens.FieldDescriptor FileDescriptorProto + service__field_descriptor + = Data.ProtoLens.FieldDescriptor "service" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor ServiceDescriptorProto) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked service) + :: Data.ProtoLens.FieldDescriptor FileDescriptorProto + extension__field_descriptor + = Data.ProtoLens.FieldDescriptor "extension" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked extension) + :: Data.ProtoLens.FieldDescriptor FileDescriptorProto + options__field_descriptor + = Data.ProtoLens.FieldDescriptor "options" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor FileOptions) + (Data.ProtoLens.OptionalField maybe'options) + :: Data.ProtoLens.FieldDescriptor FileDescriptorProto + sourceCodeInfo__field_descriptor + = Data.ProtoLens.FieldDescriptor "source_code_info" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor SourceCodeInfo) + (Data.ProtoLens.OptionalField maybe'sourceCodeInfo) + :: Data.ProtoLens.FieldDescriptor FileDescriptorProto + syntax__field_descriptor + = Data.ProtoLens.FieldDescriptor "syntax" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'syntax) + :: Data.ProtoLens.FieldDescriptor FileDescriptorProto + in + Data.ProtoLens.MessageDescriptor + (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)]) + (Data.Map.fromList + [("name", name__field_descriptor), + ("package", package__field_descriptor), + ("dependency", dependency__field_descriptor), + ("public_dependency", publicDependency__field_descriptor), + ("weak_dependency", weakDependency__field_descriptor), + ("message_type", messageType__field_descriptor), + ("enum_type", enumType__field_descriptor), + ("service", service__field_descriptor), + ("extension", extension__field_descriptor), + ("options", options__field_descriptor), + ("source_code_info", sourceCodeInfo__field_descriptor), + ("syntax", syntax__field_descriptor)]) + +data FileDescriptorSet = FileDescriptorSet{_FileDescriptorSet'file + :: ![FileDescriptorProto]} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ [FileDescriptorProto], b ~ [FileDescriptorProto], + Prelude.Functor f) => + Lens.Labels.HasLens "file" f FileDescriptorSet FileDescriptorSet a + b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileDescriptorSet'file + (\ x__ y__ -> x__{_FileDescriptorSet'file = y__}) + +instance Data.Default.Class.Default FileDescriptorSet where + def = FileDescriptorSet{_FileDescriptorSet'file = []} + +instance Data.ProtoLens.Message FileDescriptorSet where + descriptor + = let file__field_descriptor + = Data.ProtoLens.FieldDescriptor "file" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor FileDescriptorProto) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked file) + :: Data.ProtoLens.FieldDescriptor FileDescriptorSet + in + Data.ProtoLens.MessageDescriptor + (Data.Map.fromList + [(Data.ProtoLens.Tag 1, file__field_descriptor)]) + (Data.Map.fromList [("file", file__field_descriptor)]) + +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'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'uninterpretedOption :: ![UninterpretedOption]} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "javaPackage" f FileOptions FileOptions a b + where + lensOf _ + = (Prelude..) maybe'javaPackage + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'javaPackage" f FileOptions FileOptions a + b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileOptions'javaPackage + (\ x__ y__ -> x__{_FileOptions'javaPackage = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "javaOuterClassname" f FileOptions FileOptions + a b where + lensOf _ + = (Prelude..) maybe'javaOuterClassname + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'javaOuterClassname" f FileOptions + FileOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileOptions'javaOuterClassname + (\ x__ y__ -> x__{_FileOptions'javaOuterClassname = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "javaMultipleFiles" f FileOptions FileOptions a + b where + lensOf _ + = (Prelude..) maybe'javaMultipleFiles + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'javaMultipleFiles" f FileOptions + FileOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileOptions'javaMultipleFiles + (\ x__ y__ -> x__{_FileOptions'javaMultipleFiles = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "javaGenerateEqualsAndHash" f FileOptions + FileOptions a b where + lensOf _ + = (Prelude..) maybe'javaGenerateEqualsAndHash + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'javaGenerateEqualsAndHash" f FileOptions + FileOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens + _FileOptions'javaGenerateEqualsAndHash + (\ x__ y__ -> x__{_FileOptions'javaGenerateEqualsAndHash = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "javaStringCheckUtf8" f FileOptions FileOptions + a b where + lensOf _ + = (Prelude..) maybe'javaStringCheckUtf8 + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'javaStringCheckUtf8" f FileOptions + FileOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileOptions'javaStringCheckUtf8 + (\ x__ y__ -> x__{_FileOptions'javaStringCheckUtf8 = y__}) + +instance (a ~ FileOptions'OptimizeMode, + b ~ FileOptions'OptimizeMode, Prelude.Functor f) => + Lens.Labels.HasLens "optimizeFor" f FileOptions FileOptions a b + where + lensOf _ + = (Prelude..) maybe'optimizeFor + (Data.ProtoLens.maybeLens FileOptions'SPEED) + +instance (a ~ Prelude.Maybe FileOptions'OptimizeMode, + b ~ Prelude.Maybe FileOptions'OptimizeMode, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'optimizeFor" f FileOptions FileOptions a + b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileOptions'optimizeFor + (\ x__ y__ -> x__{_FileOptions'optimizeFor = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "goPackage" f FileOptions FileOptions a b where + lensOf _ + = (Prelude..) maybe'goPackage + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'goPackage" f FileOptions FileOptions a b + where + lensOf _ + = Lens.Family2.Unchecked.lens _FileOptions'goPackage + (\ x__ y__ -> x__{_FileOptions'goPackage = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "ccGenericServices" f FileOptions FileOptions a + b where + lensOf _ + = (Prelude..) maybe'ccGenericServices + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'ccGenericServices" f FileOptions + FileOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileOptions'ccGenericServices + (\ x__ y__ -> x__{_FileOptions'ccGenericServices = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "javaGenericServices" f FileOptions FileOptions + a b where + lensOf _ + = (Prelude..) maybe'javaGenericServices + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'javaGenericServices" f FileOptions + FileOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileOptions'javaGenericServices + (\ x__ y__ -> x__{_FileOptions'javaGenericServices = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "pyGenericServices" f FileOptions FileOptions a + b where + lensOf _ + = (Prelude..) maybe'pyGenericServices + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'pyGenericServices" f FileOptions + FileOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileOptions'pyGenericServices + (\ x__ y__ -> x__{_FileOptions'pyGenericServices = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "deprecated" f FileOptions FileOptions a b + where + lensOf _ + = (Prelude..) maybe'deprecated + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'deprecated" f FileOptions FileOptions a + b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileOptions'deprecated + (\ x__ y__ -> x__{_FileOptions'deprecated = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "ccEnableArenas" f FileOptions FileOptions a b + where + lensOf _ + = (Prelude..) maybe'ccEnableArenas + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'ccEnableArenas" f FileOptions + FileOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileOptions'ccEnableArenas + (\ x__ y__ -> x__{_FileOptions'ccEnableArenas = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "objcClassPrefix" f FileOptions FileOptions a b + where + lensOf _ + = (Prelude..) maybe'objcClassPrefix + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'objcClassPrefix" f FileOptions + FileOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileOptions'objcClassPrefix + (\ x__ y__ -> x__{_FileOptions'objcClassPrefix = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "csharpNamespace" f FileOptions FileOptions a b + where + lensOf _ + = (Prelude..) maybe'csharpNamespace + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'csharpNamespace" f FileOptions + FileOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileOptions'csharpNamespace + (\ x__ y__ -> x__{_FileOptions'csharpNamespace = y__}) + +instance (a ~ [UninterpretedOption], b ~ [UninterpretedOption], + Prelude.Functor f) => + Lens.Labels.HasLens "uninterpretedOption" f FileOptions FileOptions + a b where + lensOf _ + = Lens.Family2.Unchecked.lens _FileOptions'uninterpretedOption + (\ x__ y__ -> x__{_FileOptions'uninterpretedOption = y__}) + +instance Data.Default.Class.Default FileOptions where + def + = 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'deprecated = Prelude.Nothing, + _FileOptions'ccEnableArenas = Prelude.Nothing, + _FileOptions'objcClassPrefix = Prelude.Nothing, + _FileOptions'csharpNamespace = Prelude.Nothing, + _FileOptions'uninterpretedOption = []} + +instance Data.ProtoLens.Message FileOptions where + descriptor + = let javaPackage__field_descriptor + = Data.ProtoLens.FieldDescriptor "java_package" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'javaPackage) + :: Data.ProtoLens.FieldDescriptor FileOptions + javaOuterClassname__field_descriptor + = Data.ProtoLens.FieldDescriptor "java_outer_classname" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'javaOuterClassname) + :: Data.ProtoLens.FieldDescriptor FileOptions + javaMultipleFiles__field_descriptor + = Data.ProtoLens.FieldDescriptor "java_multiple_files" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'javaMultipleFiles) + :: Data.ProtoLens.FieldDescriptor FileOptions + javaGenerateEqualsAndHash__field_descriptor + = Data.ProtoLens.FieldDescriptor "java_generate_equals_and_hash" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'javaGenerateEqualsAndHash) + :: Data.ProtoLens.FieldDescriptor FileOptions + javaStringCheckUtf8__field_descriptor + = Data.ProtoLens.FieldDescriptor "java_string_check_utf8" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'javaStringCheckUtf8) + :: Data.ProtoLens.FieldDescriptor FileOptions + optimizeFor__field_descriptor + = Data.ProtoLens.FieldDescriptor "optimize_for" + (Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor FileOptions'OptimizeMode) + (Data.ProtoLens.OptionalField maybe'optimizeFor) + :: Data.ProtoLens.FieldDescriptor FileOptions + goPackage__field_descriptor + = Data.ProtoLens.FieldDescriptor "go_package" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'goPackage) + :: Data.ProtoLens.FieldDescriptor FileOptions + ccGenericServices__field_descriptor + = Data.ProtoLens.FieldDescriptor "cc_generic_services" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'ccGenericServices) + :: Data.ProtoLens.FieldDescriptor FileOptions + javaGenericServices__field_descriptor + = Data.ProtoLens.FieldDescriptor "java_generic_services" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'javaGenericServices) + :: Data.ProtoLens.FieldDescriptor FileOptions + pyGenericServices__field_descriptor + = Data.ProtoLens.FieldDescriptor "py_generic_services" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'pyGenericServices) + :: Data.ProtoLens.FieldDescriptor FileOptions + deprecated__field_descriptor + = Data.ProtoLens.FieldDescriptor "deprecated" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'deprecated) + :: Data.ProtoLens.FieldDescriptor FileOptions + ccEnableArenas__field_descriptor + = Data.ProtoLens.FieldDescriptor "cc_enable_arenas" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'ccEnableArenas) + :: Data.ProtoLens.FieldDescriptor FileOptions + objcClassPrefix__field_descriptor + = Data.ProtoLens.FieldDescriptor "objc_class_prefix" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'objcClassPrefix) + :: Data.ProtoLens.FieldDescriptor FileOptions + csharpNamespace__field_descriptor + = Data.ProtoLens.FieldDescriptor "csharp_namespace" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'csharpNamespace) + :: Data.ProtoLens.FieldDescriptor FileOptions + uninterpretedOption__field_descriptor + = Data.ProtoLens.FieldDescriptor "uninterpreted_option" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked + uninterpretedOption) + :: Data.ProtoLens.FieldDescriptor FileOptions + in + Data.ProtoLens.MessageDescriptor + (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 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 999, uninterpretedOption__field_descriptor)]) + (Data.Map.fromList + [("java_package", javaPackage__field_descriptor), + ("java_outer_classname", javaOuterClassname__field_descriptor), + ("java_multiple_files", javaMultipleFiles__field_descriptor), + ("java_generate_equals_and_hash", + javaGenerateEqualsAndHash__field_descriptor), + ("java_string_check_utf8", javaStringCheckUtf8__field_descriptor), + ("optimize_for", optimizeFor__field_descriptor), + ("go_package", goPackage__field_descriptor), + ("cc_generic_services", ccGenericServices__field_descriptor), + ("java_generic_services", javaGenericServices__field_descriptor), + ("py_generic_services", pyGenericServices__field_descriptor), + ("deprecated", deprecated__field_descriptor), + ("cc_enable_arenas", ccEnableArenas__field_descriptor), + ("objc_class_prefix", objcClassPrefix__field_descriptor), + ("csharp_namespace", csharpNamespace__field_descriptor), + ("uninterpreted_option", uninterpretedOption__field_descriptor)]) + +data FileOptions'OptimizeMode = FileOptions'SPEED + | FileOptions'CODE_SIZE + | FileOptions'LITE_RUNTIME + deriving (Prelude.Show, Prelude.Eq) + +instance Data.Default.Class.Default FileOptions'OptimizeMode where + def = FileOptions'SPEED + +instance Data.ProtoLens.FieldDefault FileOptions'OptimizeMode where + fieldDefault = FileOptions'SPEED + +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 "SPEED" = Prelude.Just FileOptions'SPEED + readEnum "CODE_SIZE" = Prelude.Just FileOptions'CODE_SIZE + readEnum "LITE_RUNTIME" = Prelude.Just FileOptions'LITE_RUNTIME + readEnum _ = Prelude.Nothing + +instance Prelude.Enum FileOptions'OptimizeMode where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) "toEnum: unknown value for enum OptimizeMode: " + (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 Prelude.Bounded FileOptions'OptimizeMode where + minBound = FileOptions'SPEED + maxBound = FileOptions'LITE_RUNTIME + +data GeneratedCodeInfo = GeneratedCodeInfo{_GeneratedCodeInfo'annotation + :: ![GeneratedCodeInfo'Annotation]} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ [GeneratedCodeInfo'Annotation], + b ~ [GeneratedCodeInfo'Annotation], Prelude.Functor f) => + Lens.Labels.HasLens "annotation" f GeneratedCodeInfo + GeneratedCodeInfo a b where + lensOf _ + = Lens.Family2.Unchecked.lens _GeneratedCodeInfo'annotation + (\ x__ y__ -> x__{_GeneratedCodeInfo'annotation = y__}) + +instance Data.Default.Class.Default GeneratedCodeInfo where + def = GeneratedCodeInfo{_GeneratedCodeInfo'annotation = []} + +instance Data.ProtoLens.Message GeneratedCodeInfo where + descriptor + = let annotation__field_descriptor + = Data.ProtoLens.FieldDescriptor "annotation" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor GeneratedCodeInfo'Annotation) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked annotation) + :: Data.ProtoLens.FieldDescriptor GeneratedCodeInfo + in + Data.ProtoLens.MessageDescriptor + (Data.Map.fromList + [(Data.ProtoLens.Tag 1, annotation__field_descriptor)]) + (Data.Map.fromList [("annotation", annotation__field_descriptor)]) + +data GeneratedCodeInfo'Annotation = GeneratedCodeInfo'Annotation{_GeneratedCodeInfo'Annotation'path + :: ![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)} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ [Data.Int.Int32], b ~ [Data.Int.Int32], + Prelude.Functor f) => + Lens.Labels.HasLens "path" f GeneratedCodeInfo'Annotation + GeneratedCodeInfo'Annotation a b where + lensOf _ + = Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'path + (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'path = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "sourceFile" f GeneratedCodeInfo'Annotation + GeneratedCodeInfo'Annotation a b where + lensOf _ + = (Prelude..) maybe'sourceFile + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'sourceFile" f + GeneratedCodeInfo'Annotation GeneratedCodeInfo'Annotation a b where + lensOf _ + = Lens.Family2.Unchecked.lens + _GeneratedCodeInfo'Annotation'sourceFile + (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'sourceFile = y__}) + +instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, + Prelude.Functor f) => + Lens.Labels.HasLens "begin" f GeneratedCodeInfo'Annotation + GeneratedCodeInfo'Annotation a b where + lensOf _ + = (Prelude..) maybe'begin + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Int.Int32, + b ~ Prelude.Maybe Data.Int.Int32, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'begin" f GeneratedCodeInfo'Annotation + GeneratedCodeInfo'Annotation a b where + lensOf _ + = Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'begin + (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'begin = y__}) + +instance (a ~ Data.Int.Int32, b ~ Data.Int.Int32, + Prelude.Functor f) => + Lens.Labels.HasLens "end" f GeneratedCodeInfo'Annotation + GeneratedCodeInfo'Annotation a b where + lensOf _ + = (Prelude..) maybe'end + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Int.Int32, + b ~ Prelude.Maybe Data.Int.Int32, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'end" f GeneratedCodeInfo'Annotation + GeneratedCodeInfo'Annotation a b where + lensOf _ + = Lens.Family2.Unchecked.lens _GeneratedCodeInfo'Annotation'end + (\ x__ y__ -> x__{_GeneratedCodeInfo'Annotation'end = y__}) + +instance Data.Default.Class.Default GeneratedCodeInfo'Annotation + where + def + = GeneratedCodeInfo'Annotation{_GeneratedCodeInfo'Annotation'path = + [], + _GeneratedCodeInfo'Annotation'sourceFile = Prelude.Nothing, + _GeneratedCodeInfo'Annotation'begin = Prelude.Nothing, + _GeneratedCodeInfo'Annotation'end = Prelude.Nothing} + +instance Data.ProtoLens.Message GeneratedCodeInfo'Annotation where + descriptor + = let path__field_descriptor + = Data.ProtoLens.FieldDescriptor "path" + (Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed path) + :: Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation + sourceFile__field_descriptor + = Data.ProtoLens.FieldDescriptor "source_file" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'sourceFile) + :: Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation + begin__field_descriptor + = Data.ProtoLens.FieldDescriptor "begin" + (Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.OptionalField maybe'begin) + :: Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation + end__field_descriptor + = Data.ProtoLens.FieldDescriptor "end" + (Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.OptionalField maybe'end) + :: Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation + in + Data.ProtoLens.MessageDescriptor + (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)]) + (Data.Map.fromList + [("path", path__field_descriptor), + ("source_file", sourceFile__field_descriptor), + ("begin", begin__field_descriptor), + ("end", end__field_descriptor)]) + +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 :: ![UninterpretedOption]} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "messageSetWireFormat" f MessageOptions + MessageOptions a b where + lensOf _ + = (Prelude..) maybe'messageSetWireFormat + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'messageSetWireFormat" f MessageOptions + MessageOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _MessageOptions'messageSetWireFormat + (\ x__ y__ -> x__{_MessageOptions'messageSetWireFormat = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "noStandardDescriptorAccessor" f MessageOptions + MessageOptions a b where + lensOf _ + = (Prelude..) maybe'noStandardDescriptorAccessor + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'noStandardDescriptorAccessor" f + MessageOptions MessageOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens + _MessageOptions'noStandardDescriptorAccessor + (\ x__ y__ -> + x__{_MessageOptions'noStandardDescriptorAccessor = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "deprecated" f MessageOptions MessageOptions a + b where + lensOf _ + = (Prelude..) maybe'deprecated + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'deprecated" f MessageOptions + MessageOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _MessageOptions'deprecated + (\ x__ y__ -> x__{_MessageOptions'deprecated = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "mapEntry" f MessageOptions MessageOptions a b + where + lensOf _ + = (Prelude..) maybe'mapEntry + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'mapEntry" f MessageOptions + MessageOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _MessageOptions'mapEntry + (\ x__ y__ -> x__{_MessageOptions'mapEntry = y__}) + +instance (a ~ [UninterpretedOption], b ~ [UninterpretedOption], + Prelude.Functor f) => + Lens.Labels.HasLens "uninterpretedOption" f MessageOptions + MessageOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _MessageOptions'uninterpretedOption + (\ x__ y__ -> x__{_MessageOptions'uninterpretedOption = y__}) + +instance Data.Default.Class.Default MessageOptions where + def + = MessageOptions{_MessageOptions'messageSetWireFormat = + Prelude.Nothing, + _MessageOptions'noStandardDescriptorAccessor = Prelude.Nothing, + _MessageOptions'deprecated = Prelude.Nothing, + _MessageOptions'mapEntry = Prelude.Nothing, + _MessageOptions'uninterpretedOption = []} + +instance Data.ProtoLens.Message MessageOptions where + descriptor + = let messageSetWireFormat__field_descriptor + = Data.ProtoLens.FieldDescriptor "message_set_wire_format" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'messageSetWireFormat) + :: Data.ProtoLens.FieldDescriptor MessageOptions + noStandardDescriptorAccessor__field_descriptor + = Data.ProtoLens.FieldDescriptor "no_standard_descriptor_accessor" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'noStandardDescriptorAccessor) + :: Data.ProtoLens.FieldDescriptor MessageOptions + deprecated__field_descriptor + = Data.ProtoLens.FieldDescriptor "deprecated" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'deprecated) + :: Data.ProtoLens.FieldDescriptor MessageOptions + mapEntry__field_descriptor + = Data.ProtoLens.FieldDescriptor "map_entry" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'mapEntry) + :: Data.ProtoLens.FieldDescriptor MessageOptions + uninterpretedOption__field_descriptor + = Data.ProtoLens.FieldDescriptor "uninterpreted_option" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked + uninterpretedOption) + :: Data.ProtoLens.FieldDescriptor MessageOptions + in + Data.ProtoLens.MessageDescriptor + (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)]) + (Data.Map.fromList + [("message_set_wire_format", + messageSetWireFormat__field_descriptor), + ("no_standard_descriptor_accessor", + noStandardDescriptorAccessor__field_descriptor), + ("deprecated", deprecated__field_descriptor), + ("map_entry", mapEntry__field_descriptor), + ("uninterpreted_option", uninterpretedOption__field_descriptor)]) + +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)} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "name" f MethodDescriptorProto + MethodDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'name + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'name" f MethodDescriptorProto + MethodDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _MethodDescriptorProto'name + (\ x__ y__ -> x__{_MethodDescriptorProto'name = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "inputType" f MethodDescriptorProto + MethodDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'inputType + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'inputType" f MethodDescriptorProto + MethodDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _MethodDescriptorProto'inputType + (\ x__ y__ -> x__{_MethodDescriptorProto'inputType = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "outputType" f MethodDescriptorProto + MethodDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'outputType + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'outputType" f MethodDescriptorProto + MethodDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _MethodDescriptorProto'outputType + (\ x__ y__ -> x__{_MethodDescriptorProto'outputType = y__}) + +instance (a ~ MethodOptions, b ~ MethodOptions, + Prelude.Functor f) => + Lens.Labels.HasLens "options" f MethodDescriptorProto + MethodDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'options + (Data.ProtoLens.maybeLens Data.Default.Class.def) + +instance (a ~ Prelude.Maybe MethodOptions, + b ~ Prelude.Maybe MethodOptions, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'options" f MethodDescriptorProto + MethodDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _MethodDescriptorProto'options + (\ x__ y__ -> x__{_MethodDescriptorProto'options = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "clientStreaming" f MethodDescriptorProto + MethodDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'clientStreaming + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'clientStreaming" f MethodDescriptorProto + MethodDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens + _MethodDescriptorProto'clientStreaming + (\ x__ y__ -> x__{_MethodDescriptorProto'clientStreaming = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "serverStreaming" f MethodDescriptorProto + MethodDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'serverStreaming + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'serverStreaming" f MethodDescriptorProto + MethodDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens + _MethodDescriptorProto'serverStreaming + (\ x__ y__ -> x__{_MethodDescriptorProto'serverStreaming = y__}) + +instance Data.Default.Class.Default MethodDescriptorProto where + def + = 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} + +instance Data.ProtoLens.Message MethodDescriptorProto where + descriptor + = let name__field_descriptor + = Data.ProtoLens.FieldDescriptor "name" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'name) + :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto + inputType__field_descriptor + = Data.ProtoLens.FieldDescriptor "input_type" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'inputType) + :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto + outputType__field_descriptor + = Data.ProtoLens.FieldDescriptor "output_type" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'outputType) + :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto + options__field_descriptor + = Data.ProtoLens.FieldDescriptor "options" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor MethodOptions) + (Data.ProtoLens.OptionalField maybe'options) + :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto + clientStreaming__field_descriptor + = Data.ProtoLens.FieldDescriptor "client_streaming" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'clientStreaming) + :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto + serverStreaming__field_descriptor + = Data.ProtoLens.FieldDescriptor "server_streaming" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'serverStreaming) + :: Data.ProtoLens.FieldDescriptor MethodDescriptorProto + in + Data.ProtoLens.MessageDescriptor + (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)]) + (Data.Map.fromList + [("name", name__field_descriptor), + ("input_type", inputType__field_descriptor), + ("output_type", outputType__field_descriptor), + ("options", options__field_descriptor), + ("client_streaming", clientStreaming__field_descriptor), + ("server_streaming", serverStreaming__field_descriptor)]) + +data MethodOptions = MethodOptions{_MethodOptions'deprecated :: + !(Prelude.Maybe Prelude.Bool), + _MethodOptions'uninterpretedOption :: ![UninterpretedOption]} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "deprecated" f MethodOptions MethodOptions a b + where + lensOf _ + = (Prelude..) maybe'deprecated + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'deprecated" f MethodOptions + MethodOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _MethodOptions'deprecated + (\ x__ y__ -> x__{_MethodOptions'deprecated = y__}) + +instance (a ~ [UninterpretedOption], b ~ [UninterpretedOption], + Prelude.Functor f) => + Lens.Labels.HasLens "uninterpretedOption" f MethodOptions + MethodOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _MethodOptions'uninterpretedOption + (\ x__ y__ -> x__{_MethodOptions'uninterpretedOption = y__}) + +instance Data.Default.Class.Default MethodOptions where + def + = MethodOptions{_MethodOptions'deprecated = Prelude.Nothing, + _MethodOptions'uninterpretedOption = []} + +instance Data.ProtoLens.Message MethodOptions where + descriptor + = let deprecated__field_descriptor + = Data.ProtoLens.FieldDescriptor "deprecated" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'deprecated) + :: Data.ProtoLens.FieldDescriptor MethodOptions + uninterpretedOption__field_descriptor + = Data.ProtoLens.FieldDescriptor "uninterpreted_option" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked + uninterpretedOption) + :: Data.ProtoLens.FieldDescriptor MethodOptions + in + Data.ProtoLens.MessageDescriptor + (Data.Map.fromList + [(Data.ProtoLens.Tag 33, deprecated__field_descriptor), + (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]) + (Data.Map.fromList + [("deprecated", deprecated__field_descriptor), + ("uninterpreted_option", uninterpretedOption__field_descriptor)]) + +data OneofDescriptorProto = OneofDescriptorProto{_OneofDescriptorProto'name + :: !(Prelude.Maybe Data.Text.Text)} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "name" f OneofDescriptorProto + OneofDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'name + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'name" f OneofDescriptorProto + OneofDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _OneofDescriptorProto'name + (\ x__ y__ -> x__{_OneofDescriptorProto'name = y__}) + +instance Data.Default.Class.Default OneofDescriptorProto where + def + = OneofDescriptorProto{_OneofDescriptorProto'name = + Prelude.Nothing} + +instance Data.ProtoLens.Message OneofDescriptorProto where + descriptor + = let name__field_descriptor + = Data.ProtoLens.FieldDescriptor "name" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'name) + :: Data.ProtoLens.FieldDescriptor OneofDescriptorProto + in + Data.ProtoLens.MessageDescriptor + (Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor)]) + (Data.Map.fromList [("name", name__field_descriptor)]) + +data ServiceDescriptorProto = ServiceDescriptorProto{_ServiceDescriptorProto'name + :: !(Prelude.Maybe Data.Text.Text), + _ServiceDescriptorProto'method :: + ![MethodDescriptorProto], + _ServiceDescriptorProto'options :: + !(Prelude.Maybe ServiceOptions)} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "name" f ServiceDescriptorProto + ServiceDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'name + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'name" f ServiceDescriptorProto + ServiceDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _ServiceDescriptorProto'name + (\ x__ y__ -> x__{_ServiceDescriptorProto'name = y__}) + +instance (a ~ [MethodDescriptorProto], b ~ [MethodDescriptorProto], + Prelude.Functor f) => + Lens.Labels.HasLens "method" f ServiceDescriptorProto + ServiceDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _ServiceDescriptorProto'method + (\ x__ y__ -> x__{_ServiceDescriptorProto'method = y__}) + +instance (a ~ ServiceOptions, b ~ ServiceOptions, + Prelude.Functor f) => + Lens.Labels.HasLens "options" f ServiceDescriptorProto + ServiceDescriptorProto a b where + lensOf _ + = (Prelude..) maybe'options + (Data.ProtoLens.maybeLens Data.Default.Class.def) + +instance (a ~ Prelude.Maybe ServiceOptions, + b ~ Prelude.Maybe ServiceOptions, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'options" f ServiceDescriptorProto + ServiceDescriptorProto a b where + lensOf _ + = Lens.Family2.Unchecked.lens _ServiceDescriptorProto'options + (\ x__ y__ -> x__{_ServiceDescriptorProto'options = y__}) + +instance Data.Default.Class.Default ServiceDescriptorProto where + def + = ServiceDescriptorProto{_ServiceDescriptorProto'name = + Prelude.Nothing, + _ServiceDescriptorProto'method = [], + _ServiceDescriptorProto'options = Prelude.Nothing} + +instance Data.ProtoLens.Message ServiceDescriptorProto where + descriptor + = let name__field_descriptor + = Data.ProtoLens.FieldDescriptor "name" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'name) + :: Data.ProtoLens.FieldDescriptor ServiceDescriptorProto + method__field_descriptor + = Data.ProtoLens.FieldDescriptor "method" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor MethodDescriptorProto) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked method) + :: Data.ProtoLens.FieldDescriptor ServiceDescriptorProto + options__field_descriptor + = Data.ProtoLens.FieldDescriptor "options" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor ServiceOptions) + (Data.ProtoLens.OptionalField maybe'options) + :: Data.ProtoLens.FieldDescriptor ServiceDescriptorProto + in + Data.ProtoLens.MessageDescriptor + (Data.Map.fromList + [(Data.ProtoLens.Tag 1, name__field_descriptor), + (Data.ProtoLens.Tag 2, method__field_descriptor), + (Data.ProtoLens.Tag 3, options__field_descriptor)]) + (Data.Map.fromList + [("name", name__field_descriptor), + ("method", method__field_descriptor), + ("options", options__field_descriptor)]) + +data ServiceOptions = ServiceOptions{_ServiceOptions'deprecated :: + !(Prelude.Maybe Prelude.Bool), + _ServiceOptions'uninterpretedOption :: ![UninterpretedOption]} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "deprecated" f ServiceOptions ServiceOptions a + b where + lensOf _ + = (Prelude..) maybe'deprecated + (Data.ProtoLens.maybeLens Prelude.False) + +instance (a ~ Prelude.Maybe Prelude.Bool, + b ~ Prelude.Maybe Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'deprecated" f ServiceOptions + ServiceOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _ServiceOptions'deprecated + (\ x__ y__ -> x__{_ServiceOptions'deprecated = y__}) + +instance (a ~ [UninterpretedOption], b ~ [UninterpretedOption], + Prelude.Functor f) => + Lens.Labels.HasLens "uninterpretedOption" f ServiceOptions + ServiceOptions a b where + lensOf _ + = Lens.Family2.Unchecked.lens _ServiceOptions'uninterpretedOption + (\ x__ y__ -> x__{_ServiceOptions'uninterpretedOption = y__}) + +instance Data.Default.Class.Default ServiceOptions where + def + = ServiceOptions{_ServiceOptions'deprecated = Prelude.Nothing, + _ServiceOptions'uninterpretedOption = []} + +instance Data.ProtoLens.Message ServiceOptions where + descriptor + = let deprecated__field_descriptor + = Data.ProtoLens.FieldDescriptor "deprecated" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.OptionalField maybe'deprecated) + :: Data.ProtoLens.FieldDescriptor ServiceOptions + uninterpretedOption__field_descriptor + = Data.ProtoLens.FieldDescriptor "uninterpreted_option" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor UninterpretedOption) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked + uninterpretedOption) + :: Data.ProtoLens.FieldDescriptor ServiceOptions + in + Data.ProtoLens.MessageDescriptor + (Data.Map.fromList + [(Data.ProtoLens.Tag 33, deprecated__field_descriptor), + (Data.ProtoLens.Tag 999, uninterpretedOption__field_descriptor)]) + (Data.Map.fromList + [("deprecated", deprecated__field_descriptor), + ("uninterpreted_option", uninterpretedOption__field_descriptor)]) + +data SourceCodeInfo = SourceCodeInfo{_SourceCodeInfo'location :: + ![SourceCodeInfo'Location]} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ [SourceCodeInfo'Location], + b ~ [SourceCodeInfo'Location], Prelude.Functor f) => + Lens.Labels.HasLens "location" f SourceCodeInfo SourceCodeInfo a b + where + lensOf _ + = Lens.Family2.Unchecked.lens _SourceCodeInfo'location + (\ x__ y__ -> x__{_SourceCodeInfo'location = y__}) + +instance Data.Default.Class.Default SourceCodeInfo where + def = SourceCodeInfo{_SourceCodeInfo'location = []} + +instance Data.ProtoLens.Message SourceCodeInfo where + descriptor + = let location__field_descriptor + = Data.ProtoLens.FieldDescriptor "location" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor SourceCodeInfo'Location) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked location) + :: Data.ProtoLens.FieldDescriptor SourceCodeInfo + in + Data.ProtoLens.MessageDescriptor + (Data.Map.fromList + [(Data.ProtoLens.Tag 1, location__field_descriptor)]) + (Data.Map.fromList [("location", location__field_descriptor)]) + +data SourceCodeInfo'Location = SourceCodeInfo'Location{_SourceCodeInfo'Location'path + :: ![Data.Int.Int32], + _SourceCodeInfo'Location'span :: + ![Data.Int.Int32], + _SourceCodeInfo'Location'leadingComments :: + !(Prelude.Maybe Data.Text.Text), + _SourceCodeInfo'Location'trailingComments :: + !(Prelude.Maybe Data.Text.Text), + _SourceCodeInfo'Location'leadingDetachedComments + :: ![Data.Text.Text]} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ [Data.Int.Int32], b ~ [Data.Int.Int32], + Prelude.Functor f) => + Lens.Labels.HasLens "path" f SourceCodeInfo'Location + SourceCodeInfo'Location a b where + lensOf _ + = Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'path + (\ x__ y__ -> x__{_SourceCodeInfo'Location'path = y__}) + +instance (a ~ [Data.Int.Int32], b ~ [Data.Int.Int32], + Prelude.Functor f) => + Lens.Labels.HasLens "span" f SourceCodeInfo'Location + SourceCodeInfo'Location a b where + lensOf _ + = Lens.Family2.Unchecked.lens _SourceCodeInfo'Location'span + (\ x__ y__ -> x__{_SourceCodeInfo'Location'span = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "leadingComments" f SourceCodeInfo'Location + SourceCodeInfo'Location a b where + lensOf _ + = (Prelude..) maybe'leadingComments + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'leadingComments" f + SourceCodeInfo'Location SourceCodeInfo'Location a b where + lensOf _ + = Lens.Family2.Unchecked.lens + _SourceCodeInfo'Location'leadingComments + (\ x__ y__ -> x__{_SourceCodeInfo'Location'leadingComments = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "trailingComments" f SourceCodeInfo'Location + SourceCodeInfo'Location a b where + lensOf _ + = (Prelude..) maybe'trailingComments + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'trailingComments" f + SourceCodeInfo'Location SourceCodeInfo'Location a b where + lensOf _ + = Lens.Family2.Unchecked.lens + _SourceCodeInfo'Location'trailingComments + (\ x__ y__ -> x__{_SourceCodeInfo'Location'trailingComments = y__}) + +instance (a ~ [Data.Text.Text], b ~ [Data.Text.Text], + Prelude.Functor f) => + Lens.Labels.HasLens "leadingDetachedComments" f + SourceCodeInfo'Location SourceCodeInfo'Location a b where + lensOf _ + = Lens.Family2.Unchecked.lens + _SourceCodeInfo'Location'leadingDetachedComments + (\ x__ y__ -> + x__{_SourceCodeInfo'Location'leadingDetachedComments = y__}) + +instance Data.Default.Class.Default SourceCodeInfo'Location where + def + = SourceCodeInfo'Location{_SourceCodeInfo'Location'path = [], + _SourceCodeInfo'Location'span = [], + _SourceCodeInfo'Location'leadingComments = Prelude.Nothing, + _SourceCodeInfo'Location'trailingComments = Prelude.Nothing, + _SourceCodeInfo'Location'leadingDetachedComments = []} + +instance Data.ProtoLens.Message SourceCodeInfo'Location where + descriptor + = let path__field_descriptor + = Data.ProtoLens.FieldDescriptor "path" + (Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed path) + :: Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location + span__field_descriptor + = Data.ProtoLens.FieldDescriptor "span" + (Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Packed span) + :: Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location + leadingComments__field_descriptor + = Data.ProtoLens.FieldDescriptor "leading_comments" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'leadingComments) + :: Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location + trailingComments__field_descriptor + = Data.ProtoLens.FieldDescriptor "trailing_comments" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'trailingComments) + :: Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location + leadingDetachedComments__field_descriptor + = Data.ProtoLens.FieldDescriptor "leading_detached_comments" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked + leadingDetachedComments) + :: Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location + in + Data.ProtoLens.MessageDescriptor + (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)]) + (Data.Map.fromList + [("path", path__field_descriptor), + ("span", span__field_descriptor), + ("leading_comments", leadingComments__field_descriptor), + ("trailing_comments", trailingComments__field_descriptor), + ("leading_detached_comments", + leadingDetachedComments__field_descriptor)]) + +data UninterpretedOption = UninterpretedOption{_UninterpretedOption'name + :: ![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)} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ [UninterpretedOption'NamePart], + b ~ [UninterpretedOption'NamePart], Prelude.Functor f) => + Lens.Labels.HasLens "name" f UninterpretedOption + UninterpretedOption a b where + lensOf _ + = Lens.Family2.Unchecked.lens _UninterpretedOption'name + (\ x__ y__ -> x__{_UninterpretedOption'name = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "identifierValue" f UninterpretedOption + UninterpretedOption a b where + lensOf _ + = (Prelude..) maybe'identifierValue + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'identifierValue" f UninterpretedOption + UninterpretedOption a b where + lensOf _ + = Lens.Family2.Unchecked.lens _UninterpretedOption'identifierValue + (\ x__ y__ -> x__{_UninterpretedOption'identifierValue = y__}) + +instance (a ~ Data.Word.Word64, b ~ Data.Word.Word64, + Prelude.Functor f) => + Lens.Labels.HasLens "positiveIntValue" f UninterpretedOption + UninterpretedOption a b where + lensOf _ + = (Prelude..) maybe'positiveIntValue + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Word.Word64, + b ~ Prelude.Maybe Data.Word.Word64, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'positiveIntValue" f UninterpretedOption + UninterpretedOption a b where + lensOf _ + = Lens.Family2.Unchecked.lens _UninterpretedOption'positiveIntValue + (\ x__ y__ -> x__{_UninterpretedOption'positiveIntValue = y__}) + +instance (a ~ Data.Int.Int64, b ~ Data.Int.Int64, + Prelude.Functor f) => + Lens.Labels.HasLens "negativeIntValue" f UninterpretedOption + UninterpretedOption a b where + lensOf _ + = (Prelude..) maybe'negativeIntValue + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Int.Int64, + b ~ Prelude.Maybe Data.Int.Int64, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'negativeIntValue" f UninterpretedOption + UninterpretedOption a b where + lensOf _ + = Lens.Family2.Unchecked.lens _UninterpretedOption'negativeIntValue + (\ x__ y__ -> x__{_UninterpretedOption'negativeIntValue = y__}) + +instance (a ~ Prelude.Double, b ~ Prelude.Double, + Prelude.Functor f) => + Lens.Labels.HasLens "doubleValue" f UninterpretedOption + UninterpretedOption a b where + lensOf _ + = (Prelude..) maybe'doubleValue + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Prelude.Double, + b ~ Prelude.Maybe Prelude.Double, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'doubleValue" f UninterpretedOption + UninterpretedOption a b where + lensOf _ + = Lens.Family2.Unchecked.lens _UninterpretedOption'doubleValue + (\ x__ y__ -> x__{_UninterpretedOption'doubleValue = y__}) + +instance (a ~ Data.ByteString.ByteString, + b ~ Data.ByteString.ByteString, Prelude.Functor f) => + Lens.Labels.HasLens "stringValue" f UninterpretedOption + UninterpretedOption a b where + lensOf _ + = (Prelude..) maybe'stringValue + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.ByteString.ByteString, + b ~ Prelude.Maybe Data.ByteString.ByteString, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'stringValue" f UninterpretedOption + UninterpretedOption a b where + lensOf _ + = Lens.Family2.Unchecked.lens _UninterpretedOption'stringValue + (\ x__ y__ -> x__{_UninterpretedOption'stringValue = y__}) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "aggregateValue" f UninterpretedOption + UninterpretedOption a b where + lensOf _ + = (Prelude..) maybe'aggregateValue + (Data.ProtoLens.maybeLens Data.ProtoLens.fieldDefault) + +instance (a ~ Prelude.Maybe Data.Text.Text, + b ~ Prelude.Maybe Data.Text.Text, Prelude.Functor f) => + Lens.Labels.HasLens "maybe'aggregateValue" f UninterpretedOption + UninterpretedOption a b where + lensOf _ + = Lens.Family2.Unchecked.lens _UninterpretedOption'aggregateValue + (\ x__ y__ -> x__{_UninterpretedOption'aggregateValue = y__}) + +instance Data.Default.Class.Default UninterpretedOption where + def + = UninterpretedOption{_UninterpretedOption'name = [], + _UninterpretedOption'identifierValue = Prelude.Nothing, + _UninterpretedOption'positiveIntValue = Prelude.Nothing, + _UninterpretedOption'negativeIntValue = Prelude.Nothing, + _UninterpretedOption'doubleValue = Prelude.Nothing, + _UninterpretedOption'stringValue = Prelude.Nothing, + _UninterpretedOption'aggregateValue = Prelude.Nothing} + +instance Data.ProtoLens.Message UninterpretedOption where + descriptor + = let name__field_descriptor + = Data.ProtoLens.FieldDescriptor "name" + (Data.ProtoLens.MessageField :: + Data.ProtoLens.FieldTypeDescriptor UninterpretedOption'NamePart) + (Data.ProtoLens.RepeatedField Data.ProtoLens.Unpacked name) + :: Data.ProtoLens.FieldDescriptor UninterpretedOption + identifierValue__field_descriptor + = Data.ProtoLens.FieldDescriptor "identifier_value" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'identifierValue) + :: Data.ProtoLens.FieldDescriptor UninterpretedOption + positiveIntValue__field_descriptor + = Data.ProtoLens.FieldDescriptor "positive_int_value" + (Data.ProtoLens.UInt64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64) + (Data.ProtoLens.OptionalField maybe'positiveIntValue) + :: Data.ProtoLens.FieldDescriptor UninterpretedOption + negativeIntValue__field_descriptor + = Data.ProtoLens.FieldDescriptor "negative_int_value" + (Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.OptionalField maybe'negativeIntValue) + :: Data.ProtoLens.FieldDescriptor UninterpretedOption + doubleValue__field_descriptor + = Data.ProtoLens.FieldDescriptor "double_value" + (Data.ProtoLens.DoubleField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Double) + (Data.ProtoLens.OptionalField maybe'doubleValue) + :: Data.ProtoLens.FieldDescriptor UninterpretedOption + stringValue__field_descriptor + = Data.ProtoLens.FieldDescriptor "string_value" + (Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.OptionalField maybe'stringValue) + :: Data.ProtoLens.FieldDescriptor UninterpretedOption + aggregateValue__field_descriptor + = Data.ProtoLens.FieldDescriptor "aggregate_value" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.OptionalField maybe'aggregateValue) + :: Data.ProtoLens.FieldDescriptor UninterpretedOption + in + Data.ProtoLens.MessageDescriptor + (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)]) + (Data.Map.fromList + [("name", name__field_descriptor), + ("identifier_value", identifierValue__field_descriptor), + ("positive_int_value", positiveIntValue__field_descriptor), + ("negative_int_value", negativeIntValue__field_descriptor), + ("double_value", doubleValue__field_descriptor), + ("string_value", stringValue__field_descriptor), + ("aggregate_value", aggregateValue__field_descriptor)]) + +data UninterpretedOption'NamePart = UninterpretedOption'NamePart{_UninterpretedOption'NamePart'namePart + :: !Data.Text.Text, + _UninterpretedOption'NamePart'isExtension + :: !Prelude.Bool} + deriving (Prelude.Show, Prelude.Eq) + +instance (a ~ Data.Text.Text, b ~ Data.Text.Text, + Prelude.Functor f) => + Lens.Labels.HasLens "namePart" f UninterpretedOption'NamePart + UninterpretedOption'NamePart a b where + lensOf _ + = Lens.Family2.Unchecked.lens + _UninterpretedOption'NamePart'namePart + (\ x__ y__ -> x__{_UninterpretedOption'NamePart'namePart = y__}) + +instance (a ~ Prelude.Bool, b ~ Prelude.Bool, Prelude.Functor f) => + Lens.Labels.HasLens "isExtension" f UninterpretedOption'NamePart + UninterpretedOption'NamePart a b where + lensOf _ + = Lens.Family2.Unchecked.lens + _UninterpretedOption'NamePart'isExtension + (\ x__ y__ -> x__{_UninterpretedOption'NamePart'isExtension = y__}) + +instance Data.Default.Class.Default UninterpretedOption'NamePart + where + def + = UninterpretedOption'NamePart{_UninterpretedOption'NamePart'namePart + = Data.ProtoLens.fieldDefault, + _UninterpretedOption'NamePart'isExtension = + Data.ProtoLens.fieldDefault} + +instance Data.ProtoLens.Message UninterpretedOption'NamePart where + descriptor + = let namePart__field_descriptor + = Data.ProtoLens.FieldDescriptor "name_part" + (Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField Data.ProtoLens.Required namePart) + :: Data.ProtoLens.FieldDescriptor UninterpretedOption'NamePart + isExtension__field_descriptor + = Data.ProtoLens.FieldDescriptor "is_extension" + (Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField Data.ProtoLens.Required isExtension) + :: Data.ProtoLens.FieldDescriptor UninterpretedOption'NamePart + in + Data.ProtoLens.MessageDescriptor + (Data.Map.fromList + [(Data.ProtoLens.Tag 1, namePart__field_descriptor), + (Data.ProtoLens.Tag 2, isExtension__field_descriptor)]) + (Data.Map.fromList + [("name_part", namePart__field_descriptor), + ("is_extension", isExtension__field_descriptor)]) + +aggregateValue :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "aggregateValue" f s t a b) => + Lens.Family2.LensLike f s t a b +aggregateValue + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "aggregateValue") + +allowAlias :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "allowAlias" f s t a b) => + Lens.Family2.LensLike f s t a b +allowAlias + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "allowAlias") + +annotation :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "annotation" f s t a b) => + Lens.Family2.LensLike f s t a b +annotation + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "annotation") + +begin :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "begin" f s t a b) => + Lens.Family2.LensLike f s t a b +begin + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "begin") + +ccEnableArenas :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "ccEnableArenas" f s t a b) => + Lens.Family2.LensLike f s t a b +ccEnableArenas + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ccEnableArenas") + +ccGenericServices :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "ccGenericServices" f s t a b) => + Lens.Family2.LensLike f s t a b +ccGenericServices + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ccGenericServices") + +clientStreaming :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "clientStreaming" f s t a b) => + Lens.Family2.LensLike f s t a b +clientStreaming + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "clientStreaming") + +csharpNamespace :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "csharpNamespace" f s t a b) => + Lens.Family2.LensLike f s t a b +csharpNamespace + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "csharpNamespace") + +ctype :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "ctype" f s t a b) => + Lens.Family2.LensLike f s t a b +ctype + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "ctype") + +defaultValue :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "defaultValue" f s t a b) => + Lens.Family2.LensLike f s t a b +defaultValue + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "defaultValue") + +dependency :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "dependency" f s t a b) => + Lens.Family2.LensLike f s t a b +dependency + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "dependency") + +deprecated :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "deprecated" f s t a b) => + Lens.Family2.LensLike f s t a b +deprecated + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "deprecated") + +doubleValue :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "doubleValue" f s t a b) => + Lens.Family2.LensLike f s t a b +doubleValue + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "doubleValue") + +end :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "end" f s t a b) => + Lens.Family2.LensLike f s t a b +end + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "end") + +enumType :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "enumType" f s t a b) => + Lens.Family2.LensLike f s t a b +enumType + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "enumType") + +extendee :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "extendee" f s t a b) => + Lens.Family2.LensLike f s t a b +extendee + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "extendee") + +extension :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "extension" f s t a b) => + Lens.Family2.LensLike f s t a b +extension + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "extension") + +extensionRange :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "extensionRange" f s t a b) => + Lens.Family2.LensLike f s t a b +extensionRange + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "extensionRange") + +field :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "field" f s t a b) => + Lens.Family2.LensLike f s t a b +field + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "field") + +file :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "file" f s t a b) => + Lens.Family2.LensLike f s t a b +file + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "file") + +goPackage :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "goPackage" f s t a b) => + Lens.Family2.LensLike f s t a b +goPackage + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "goPackage") + +identifierValue :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "identifierValue" f s t a b) => + Lens.Family2.LensLike f s t a b +identifierValue + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "identifierValue") + +inputType :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "inputType" f s t a b) => + Lens.Family2.LensLike f s t a b +inputType + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "inputType") + +isExtension :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "isExtension" f s t a b) => + Lens.Family2.LensLike f s t a b +isExtension + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "isExtension") + +javaGenerateEqualsAndHash :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "javaGenerateEqualsAndHash" f s t a b) => + Lens.Family2.LensLike f s t a b +javaGenerateEqualsAndHash + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "javaGenerateEqualsAndHash") + +javaGenericServices :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "javaGenericServices" f s t a b) => + Lens.Family2.LensLike f s t a b +javaGenericServices + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "javaGenericServices") + +javaMultipleFiles :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "javaMultipleFiles" f s t a b) => + Lens.Family2.LensLike f s t a b +javaMultipleFiles + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "javaMultipleFiles") + +javaOuterClassname :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "javaOuterClassname" f s t a b) => + Lens.Family2.LensLike f s t a b +javaOuterClassname + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "javaOuterClassname") + +javaPackage :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "javaPackage" f s t a b) => + Lens.Family2.LensLike f s t a b +javaPackage + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "javaPackage") + +javaStringCheckUtf8 :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "javaStringCheckUtf8" f s t a b) => + Lens.Family2.LensLike f s t a b +javaStringCheckUtf8 + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "javaStringCheckUtf8") + +jsonName :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "jsonName" f s t a b) => + Lens.Family2.LensLike f s t a b +jsonName + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "jsonName") + +jstype :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "jstype" f s t a b) => + Lens.Family2.LensLike f s t a b +jstype + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "jstype") + +label :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "label" f s t a b) => + Lens.Family2.LensLike f s t a b +label + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "label") + +lazy :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "lazy" f s t a b) => + Lens.Family2.LensLike f s t a b +lazy + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "lazy") + +leadingComments :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "leadingComments" f s t a b) => + Lens.Family2.LensLike f s t a b +leadingComments + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "leadingComments") + +leadingDetachedComments :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "leadingDetachedComments" f s t a b) => + Lens.Family2.LensLike f s t a b +leadingDetachedComments + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "leadingDetachedComments") + +location :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "location" f s t a b) => + Lens.Family2.LensLike f s t a b +location + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "location") + +mapEntry :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "mapEntry" f s t a b) => + Lens.Family2.LensLike f s t a b +mapEntry + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "mapEntry") + +maybe'aggregateValue :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'aggregateValue" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'aggregateValue + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'aggregateValue") + +maybe'allowAlias :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'allowAlias" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'allowAlias + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'allowAlias") + +maybe'begin :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "maybe'begin" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'begin + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'begin") + +maybe'ccEnableArenas :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'ccEnableArenas" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'ccEnableArenas + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'ccEnableArenas") + +maybe'ccGenericServices :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'ccGenericServices" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'ccGenericServices + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'ccGenericServices") + +maybe'clientStreaming :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'clientStreaming" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'clientStreaming + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'clientStreaming") + +maybe'csharpNamespace :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'csharpNamespace" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'csharpNamespace + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'csharpNamespace") + +maybe'ctype :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "maybe'ctype" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'ctype + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'ctype") + +maybe'defaultValue :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'defaultValue" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'defaultValue + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'defaultValue") + +maybe'deprecated :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'deprecated" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'deprecated + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'deprecated") + +maybe'doubleValue :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'doubleValue" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'doubleValue + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'doubleValue") + +maybe'end :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "maybe'end" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'end + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'end") + +maybe'extendee :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'extendee" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'extendee + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'extendee") + +maybe'goPackage :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'goPackage" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'goPackage + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'goPackage") + +maybe'identifierValue :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'identifierValue" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'identifierValue + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'identifierValue") + +maybe'inputType :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'inputType" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'inputType + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'inputType") + +maybe'javaGenerateEqualsAndHash :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'javaGenerateEqualsAndHash" f s t a + b) => + Lens.Family2.LensLike f s t a b +maybe'javaGenerateEqualsAndHash + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'javaGenerateEqualsAndHash") + +maybe'javaGenericServices :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'javaGenericServices" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'javaGenericServices + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'javaGenericServices") + +maybe'javaMultipleFiles :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'javaMultipleFiles" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'javaMultipleFiles + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'javaMultipleFiles") + +maybe'javaOuterClassname :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'javaOuterClassname" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'javaOuterClassname + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'javaOuterClassname") + +maybe'javaPackage :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'javaPackage" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'javaPackage + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'javaPackage") + +maybe'javaStringCheckUtf8 :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'javaStringCheckUtf8" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'javaStringCheckUtf8 + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'javaStringCheckUtf8") + +maybe'jsonName :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'jsonName" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'jsonName + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'jsonName") + +maybe'jstype :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'jstype" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'jstype + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'jstype") + +maybe'label :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "maybe'label" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'label + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'label") + +maybe'lazy :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "maybe'lazy" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'lazy + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'lazy") + +maybe'leadingComments :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'leadingComments" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'leadingComments + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'leadingComments") + +maybe'mapEntry :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'mapEntry" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'mapEntry + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'mapEntry") + +maybe'messageSetWireFormat :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'messageSetWireFormat" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'messageSetWireFormat + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'messageSetWireFormat") + +maybe'name :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "maybe'name" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'name + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'name") + +maybe'negativeIntValue :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'negativeIntValue" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'negativeIntValue + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'negativeIntValue") + +maybe'noStandardDescriptorAccessor :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'noStandardDescriptorAccessor" f s t + a b) => + Lens.Family2.LensLike f s t a b +maybe'noStandardDescriptorAccessor + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'noStandardDescriptorAccessor") + +maybe'number :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'number" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'number + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'number") + +maybe'objcClassPrefix :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'objcClassPrefix" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'objcClassPrefix + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'objcClassPrefix") + +maybe'oneofIndex :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'oneofIndex" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'oneofIndex + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'oneofIndex") + +maybe'optimizeFor :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'optimizeFor" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'optimizeFor + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'optimizeFor") + +maybe'options :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'options" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'options + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'options") + +maybe'outputType :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'outputType" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'outputType + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'outputType") + +maybe'package :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'package" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'package + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'package") + +maybe'packed :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'packed" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'packed + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'packed") + +maybe'positiveIntValue :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'positiveIntValue" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'positiveIntValue + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'positiveIntValue") + +maybe'pyGenericServices :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'pyGenericServices" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'pyGenericServices + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'pyGenericServices") + +maybe'serverStreaming :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'serverStreaming" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'serverStreaming + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'serverStreaming") + +maybe'sourceCodeInfo :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'sourceCodeInfo" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'sourceCodeInfo + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'sourceCodeInfo") + +maybe'sourceFile :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'sourceFile" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'sourceFile + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'sourceFile") + +maybe'start :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "maybe'start" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'start + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'start") + +maybe'stringValue :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'stringValue" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'stringValue + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'stringValue") + +maybe'syntax :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'syntax" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'syntax + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'syntax") + +maybe'trailingComments :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'trailingComments" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'trailingComments + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "maybe'trailingComments") + +maybe'type' :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "maybe'type'" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'type' + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'type'") + +maybe'typeName :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "maybe'typeName" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'typeName + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'typeName") + +maybe'weak :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "maybe'weak" f s t a b) => + Lens.Family2.LensLike f s t a b +maybe'weak + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "maybe'weak") + +messageSetWireFormat :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "messageSetWireFormat" f s t a b) => + Lens.Family2.LensLike f s t a b +messageSetWireFormat + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "messageSetWireFormat") + +messageType :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "messageType" f s t a b) => + Lens.Family2.LensLike f s t a b +messageType + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "messageType") + +method :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "method" f s t a b) => + Lens.Family2.LensLike f s t a b +method + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "method") + +name :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "name" f s t a b) => + Lens.Family2.LensLike f s t a b +name + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "name") + +namePart :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "namePart" f s t a b) => + Lens.Family2.LensLike f s t a b +namePart + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "namePart") + +negativeIntValue :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "negativeIntValue" f s t a b) => + Lens.Family2.LensLike f s t a b +negativeIntValue + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "negativeIntValue") + +nestedType :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "nestedType" f s t a b) => + Lens.Family2.LensLike f s t a b +nestedType + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "nestedType") + +noStandardDescriptorAccessor :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "noStandardDescriptorAccessor" f s t a b) => + Lens.Family2.LensLike f s t a b +noStandardDescriptorAccessor + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "noStandardDescriptorAccessor") + +number :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "number" f s t a b) => + Lens.Family2.LensLike f s t a b +number + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "number") + +objcClassPrefix :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "objcClassPrefix" f s t a b) => + Lens.Family2.LensLike f s t a b +objcClassPrefix + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "objcClassPrefix") + +oneofDecl :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "oneofDecl" f s t a b) => + Lens.Family2.LensLike f s t a b +oneofDecl + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "oneofDecl") + +oneofIndex :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "oneofIndex" f s t a b) => + Lens.Family2.LensLike f s t a b +oneofIndex + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "oneofIndex") + +optimizeFor :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "optimizeFor" f s t a b) => + Lens.Family2.LensLike f s t a b +optimizeFor + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "optimizeFor") + +options :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "options" f s t a b) => + Lens.Family2.LensLike f s t a b +options + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "options") + +outputType :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "outputType" f s t a b) => + Lens.Family2.LensLike f s t a b +outputType + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "outputType") + +package :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "package" f s t a b) => + Lens.Family2.LensLike f s t a b +package + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "package") + +packed :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "packed" f s t a b) => + Lens.Family2.LensLike f s t a b +packed + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "packed") + +path :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "path" f s t a b) => + Lens.Family2.LensLike f s t a b +path + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "path") + +positiveIntValue :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "positiveIntValue" f s t a b) => + Lens.Family2.LensLike f s t a b +positiveIntValue + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "positiveIntValue") + +publicDependency :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "publicDependency" f s t a b) => + Lens.Family2.LensLike f s t a b +publicDependency + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "publicDependency") + +pyGenericServices :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "pyGenericServices" f s t a b) => + Lens.Family2.LensLike f s t a b +pyGenericServices + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "pyGenericServices") + +reservedName :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "reservedName" f s t a b) => + Lens.Family2.LensLike f s t a b +reservedName + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "reservedName") + +reservedRange :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "reservedRange" f s t a b) => + Lens.Family2.LensLike f s t a b +reservedRange + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "reservedRange") + +serverStreaming :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "serverStreaming" f s t a b) => + Lens.Family2.LensLike f s t a b +serverStreaming + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "serverStreaming") + +service :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "service" f s t a b) => + Lens.Family2.LensLike f s t a b +service + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "service") + +sourceCodeInfo :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "sourceCodeInfo" f s t a b) => + Lens.Family2.LensLike f s t a b +sourceCodeInfo + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "sourceCodeInfo") + +sourceFile :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "sourceFile" f s t a b) => + Lens.Family2.LensLike f s t a b +sourceFile + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "sourceFile") + +span :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "span" f s t a b) => + Lens.Family2.LensLike f s t a b +span + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "span") + +start :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "start" f s t a b) => + Lens.Family2.LensLike f s t a b +start + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "start") + +stringValue :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "stringValue" f s t a b) => + Lens.Family2.LensLike f s t a b +stringValue + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "stringValue") + +syntax :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "syntax" f s t a b) => + Lens.Family2.LensLike f s t a b +syntax + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "syntax") + +trailingComments :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "trailingComments" f s t a b) => + Lens.Family2.LensLike f s t a b +trailingComments + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "trailingComments") + +type' :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "type'" f s t a b) => + Lens.Family2.LensLike f s t a b +type' + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "type'") + +typeName :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "typeName" f s t a b) => + Lens.Family2.LensLike f s t a b +typeName + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "typeName") + +uninterpretedOption :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "uninterpretedOption" f s t a b) => + Lens.Family2.LensLike f s t a b +uninterpretedOption + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: + (Lens.Labels.Proxy#) "uninterpretedOption") + +value :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "value" f s t a b) => + Lens.Family2.LensLike f s t a b +value + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "value") + +weak :: + forall x f s t a b . + (Prelude.Functor f, Lens.Labels.HasLens "weak" f s t a b) => + Lens.Family2.LensLike f s t a b +weak + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "weak") + +weakDependency :: + forall x f s t a b . + (Prelude.Functor f, + Lens.Labels.HasLens "weakDependency" f s t a b) => + Lens.Family2.LensLike f s t a b +weakDependency + = Lens.Labels.lensOf + ((Lens.Labels.proxy#) :: (Lens.Labels.Proxy#) "weakDependency")