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