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