{- This file was auto-generated from google/protobuf/descriptor.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Google.Protobuf.Descriptor (
        DescriptorProto(), DescriptorProto'ExtensionRange(),
        DescriptorProto'ReservedRange(), EnumDescriptorProto(),
        EnumDescriptorProto'EnumReservedRange(), EnumOptions(),
        EnumValueDescriptorProto(), EnumValueOptions(),
        ExtensionRangeOptions(), FieldDescriptorProto(),
        FieldDescriptorProto'Label(..), FieldDescriptorProto'Label(),
        FieldDescriptorProto'Type(..), FieldDescriptorProto'Type(),
        FieldOptions(), FieldOptions'CType(..), FieldOptions'CType(),
        FieldOptions'JSType(..), FieldOptions'JSType(),
        FileDescriptorProto(), FileDescriptorSet(), FileOptions(),
        FileOptions'OptimizeMode(..), FileOptions'OptimizeMode(),
        GeneratedCodeInfo(), GeneratedCodeInfo'Annotation(),
        MessageOptions(), MethodDescriptorProto(), MethodOptions(),
        MethodOptions'IdempotencyLevel(..),
        MethodOptions'IdempotencyLevel(), OneofDescriptorProto(),
        OneofOptions(), ServiceDescriptorProto(), ServiceOptions(),
        SourceCodeInfo(), SourceCodeInfo'Location(), UninterpretedOption(),
        UninterpretedOption'NamePart()
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' DescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' DescriptorProto (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.field' @:: Lens' DescriptorProto [FieldDescriptorProto]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'field' @:: Lens' DescriptorProto (Data.Vector.Vector FieldDescriptorProto)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.extension' @:: Lens' DescriptorProto [FieldDescriptorProto]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'extension' @:: Lens' DescriptorProto (Data.Vector.Vector FieldDescriptorProto)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.nestedType' @:: Lens' DescriptorProto [DescriptorProto]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'nestedType' @:: Lens' DescriptorProto (Data.Vector.Vector DescriptorProto)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.enumType' @:: Lens' DescriptorProto [EnumDescriptorProto]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'enumType' @:: Lens' DescriptorProto (Data.Vector.Vector EnumDescriptorProto)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.extensionRange' @:: Lens' DescriptorProto [DescriptorProto'ExtensionRange]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'extensionRange' @:: Lens' DescriptorProto (Data.Vector.Vector DescriptorProto'ExtensionRange)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.oneofDecl' @:: Lens' DescriptorProto [OneofDescriptorProto]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'oneofDecl' @:: Lens' DescriptorProto (Data.Vector.Vector OneofDescriptorProto)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' DescriptorProto MessageOptions@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' DescriptorProto (Prelude.Maybe MessageOptions)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.reservedRange' @:: Lens' DescriptorProto [DescriptorProto'ReservedRange]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'reservedRange' @:: Lens' DescriptorProto (Data.Vector.Vector DescriptorProto'ReservedRange)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.reservedName' @:: Lens' DescriptorProto [Data.Text.Text]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'reservedName' @:: Lens' DescriptorProto (Data.Vector.Vector Data.Text.Text)@ -}
data DescriptorProto
  = DescriptorProto'_constructor {DescriptorProto -> Maybe Text
_DescriptorProto'name :: !(Prelude.Maybe Data.Text.Text),
                                  DescriptorProto -> Vector FieldDescriptorProto
_DescriptorProto'field :: !(Data.Vector.Vector FieldDescriptorProto),
                                  DescriptorProto -> Vector FieldDescriptorProto
_DescriptorProto'extension :: !(Data.Vector.Vector FieldDescriptorProto),
                                  DescriptorProto -> Vector DescriptorProto
_DescriptorProto'nestedType :: !(Data.Vector.Vector DescriptorProto),
                                  DescriptorProto -> Vector EnumDescriptorProto
_DescriptorProto'enumType :: !(Data.Vector.Vector EnumDescriptorProto),
                                  DescriptorProto -> Vector DescriptorProto'ExtensionRange
_DescriptorProto'extensionRange :: !(Data.Vector.Vector DescriptorProto'ExtensionRange),
                                  DescriptorProto -> Vector OneofDescriptorProto
_DescriptorProto'oneofDecl :: !(Data.Vector.Vector OneofDescriptorProto),
                                  DescriptorProto -> Maybe MessageOptions
_DescriptorProto'options :: !(Prelude.Maybe MessageOptions),
                                  DescriptorProto -> Vector DescriptorProto'ReservedRange
_DescriptorProto'reservedRange :: !(Data.Vector.Vector DescriptorProto'ReservedRange),
                                  DescriptorProto -> Vector Text
_DescriptorProto'reservedName :: !(Data.Vector.Vector Data.Text.Text),
                                  DescriptorProto -> FieldSet
_DescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (DescriptorProto -> DescriptorProto -> Bool
(DescriptorProto -> DescriptorProto -> Bool)
-> (DescriptorProto -> DescriptorProto -> Bool)
-> Eq DescriptorProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescriptorProto -> DescriptorProto -> Bool
$c/= :: DescriptorProto -> DescriptorProto -> Bool
== :: DescriptorProto -> DescriptorProto -> Bool
$c== :: DescriptorProto -> DescriptorProto -> Bool
Prelude.Eq, Eq DescriptorProto
Eq DescriptorProto =>
(DescriptorProto -> DescriptorProto -> Ordering)
-> (DescriptorProto -> DescriptorProto -> Bool)
-> (DescriptorProto -> DescriptorProto -> Bool)
-> (DescriptorProto -> DescriptorProto -> Bool)
-> (DescriptorProto -> DescriptorProto -> Bool)
-> (DescriptorProto -> DescriptorProto -> DescriptorProto)
-> (DescriptorProto -> DescriptorProto -> DescriptorProto)
-> Ord DescriptorProto
DescriptorProto -> DescriptorProto -> Bool
DescriptorProto -> DescriptorProto -> Ordering
DescriptorProto -> DescriptorProto -> DescriptorProto
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: DescriptorProto -> DescriptorProto -> DescriptorProto
$cmin :: DescriptorProto -> DescriptorProto -> DescriptorProto
max :: DescriptorProto -> DescriptorProto -> DescriptorProto
$cmax :: DescriptorProto -> DescriptorProto -> DescriptorProto
>= :: DescriptorProto -> DescriptorProto -> Bool
$c>= :: DescriptorProto -> DescriptorProto -> Bool
> :: DescriptorProto -> DescriptorProto -> Bool
$c> :: DescriptorProto -> DescriptorProto -> Bool
<= :: DescriptorProto -> DescriptorProto -> Bool
$c<= :: DescriptorProto -> DescriptorProto -> Bool
< :: DescriptorProto -> DescriptorProto -> Bool
$c< :: DescriptorProto -> DescriptorProto -> Bool
compare :: DescriptorProto -> DescriptorProto -> Ordering
$ccompare :: DescriptorProto -> DescriptorProto -> Ordering
$cp1Ord :: Eq DescriptorProto
Prelude.Ord)
instance Prelude.Show DescriptorProto where
  showsPrec :: Int -> DescriptorProto -> ShowS
showsPrec _ __x :: DescriptorProto
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (DescriptorProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DescriptorProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField DescriptorProto "name" Data.Text.Text where
  fieldOf :: Proxy# "name"
-> (Text -> f Text) -> DescriptorProto -> f DescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> DescriptorProto -> f DescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Maybe Text)
-> (DescriptorProto -> Maybe Text -> DescriptorProto)
-> Lens DescriptorProto DescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Maybe Text
_DescriptorProto'name
           (\ x__ :: DescriptorProto
x__ y__ :: Maybe Text
y__ -> DescriptorProto
x__ {_DescriptorProto'name :: Maybe Text
_DescriptorProto'name = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField DescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'name"
-> (Maybe Text -> f (Maybe Text))
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> DescriptorProto -> f DescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Maybe Text)
-> (DescriptorProto -> Maybe Text -> DescriptorProto)
-> Lens DescriptorProto DescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Maybe Text
_DescriptorProto'name
           (\ x__ :: DescriptorProto
x__ y__ :: Maybe Text
y__ -> DescriptorProto
x__ {_DescriptorProto'name :: Maybe Text
_DescriptorProto'name = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DescriptorProto "field" [FieldDescriptorProto] where
  fieldOf :: Proxy# "field"
-> ([FieldDescriptorProto] -> f [FieldDescriptorProto])
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
 -> DescriptorProto -> f DescriptorProto)
-> (([FieldDescriptorProto] -> f [FieldDescriptorProto])
    -> Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
-> ([FieldDescriptorProto] -> f [FieldDescriptorProto])
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector FieldDescriptorProto)
-> (DescriptorProto
    -> Vector FieldDescriptorProto -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Vector FieldDescriptorProto)
     (Vector FieldDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector FieldDescriptorProto
_DescriptorProto'field
           (\ x__ :: DescriptorProto
x__ y__ :: Vector FieldDescriptorProto
y__ -> DescriptorProto
x__ {_DescriptorProto'field :: Vector FieldDescriptorProto
_DescriptorProto'field = Vector FieldDescriptorProto
y__}))
        ((Vector FieldDescriptorProto -> [FieldDescriptorProto])
-> (Vector FieldDescriptorProto
    -> [FieldDescriptorProto] -> Vector FieldDescriptorProto)
-> Lens
     (Vector FieldDescriptorProto)
     (Vector FieldDescriptorProto)
     [FieldDescriptorProto]
     [FieldDescriptorProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector FieldDescriptorProto -> [FieldDescriptorProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [FieldDescriptorProto]
y__ -> [FieldDescriptorProto] -> Vector FieldDescriptorProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [FieldDescriptorProto]
y__))
instance Data.ProtoLens.Field.HasField DescriptorProto "vec'field" (Data.Vector.Vector FieldDescriptorProto) where
  fieldOf :: Proxy# "vec'field"
-> (Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
 -> DescriptorProto -> f DescriptorProto)
-> ((Vector FieldDescriptorProto
     -> f (Vector FieldDescriptorProto))
    -> Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
-> (Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector FieldDescriptorProto)
-> (DescriptorProto
    -> Vector FieldDescriptorProto -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Vector FieldDescriptorProto)
     (Vector FieldDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector FieldDescriptorProto
_DescriptorProto'field
           (\ x__ :: DescriptorProto
x__ y__ :: Vector FieldDescriptorProto
y__ -> DescriptorProto
x__ {_DescriptorProto'field :: Vector FieldDescriptorProto
_DescriptorProto'field = Vector FieldDescriptorProto
y__}))
        (Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
-> Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DescriptorProto "extension" [FieldDescriptorProto] where
  fieldOf :: Proxy# "extension"
-> ([FieldDescriptorProto] -> f [FieldDescriptorProto])
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
 -> DescriptorProto -> f DescriptorProto)
-> (([FieldDescriptorProto] -> f [FieldDescriptorProto])
    -> Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
-> ([FieldDescriptorProto] -> f [FieldDescriptorProto])
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector FieldDescriptorProto)
-> (DescriptorProto
    -> Vector FieldDescriptorProto -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Vector FieldDescriptorProto)
     (Vector FieldDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector FieldDescriptorProto
_DescriptorProto'extension
           (\ x__ :: DescriptorProto
x__ y__ :: Vector FieldDescriptorProto
y__ -> DescriptorProto
x__ {_DescriptorProto'extension :: Vector FieldDescriptorProto
_DescriptorProto'extension = Vector FieldDescriptorProto
y__}))
        ((Vector FieldDescriptorProto -> [FieldDescriptorProto])
-> (Vector FieldDescriptorProto
    -> [FieldDescriptorProto] -> Vector FieldDescriptorProto)
-> Lens
     (Vector FieldDescriptorProto)
     (Vector FieldDescriptorProto)
     [FieldDescriptorProto]
     [FieldDescriptorProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector FieldDescriptorProto -> [FieldDescriptorProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [FieldDescriptorProto]
y__ -> [FieldDescriptorProto] -> Vector FieldDescriptorProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [FieldDescriptorProto]
y__))
instance Data.ProtoLens.Field.HasField DescriptorProto "vec'extension" (Data.Vector.Vector FieldDescriptorProto) where
  fieldOf :: Proxy# "vec'extension"
-> (Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
 -> DescriptorProto -> f DescriptorProto)
-> ((Vector FieldDescriptorProto
     -> f (Vector FieldDescriptorProto))
    -> Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
-> (Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector FieldDescriptorProto)
-> (DescriptorProto
    -> Vector FieldDescriptorProto -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Vector FieldDescriptorProto)
     (Vector FieldDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector FieldDescriptorProto
_DescriptorProto'extension
           (\ x__ :: DescriptorProto
x__ y__ :: Vector FieldDescriptorProto
y__ -> DescriptorProto
x__ {_DescriptorProto'extension :: Vector FieldDescriptorProto
_DescriptorProto'extension = Vector FieldDescriptorProto
y__}))
        (Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
-> Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DescriptorProto "nestedType" [DescriptorProto] where
  fieldOf :: Proxy# "nestedType"
-> ([DescriptorProto] -> f [DescriptorProto])
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Vector DescriptorProto -> f (Vector DescriptorProto))
 -> DescriptorProto -> f DescriptorProto)
-> (([DescriptorProto] -> f [DescriptorProto])
    -> Vector DescriptorProto -> f (Vector DescriptorProto))
-> ([DescriptorProto] -> f [DescriptorProto])
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector DescriptorProto)
-> (DescriptorProto -> Vector DescriptorProto -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Vector DescriptorProto)
     (Vector DescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector DescriptorProto
_DescriptorProto'nestedType
           (\ x__ :: DescriptorProto
x__ y__ :: Vector DescriptorProto
y__ -> DescriptorProto
x__ {_DescriptorProto'nestedType :: Vector DescriptorProto
_DescriptorProto'nestedType = Vector DescriptorProto
y__}))
        ((Vector DescriptorProto -> [DescriptorProto])
-> (Vector DescriptorProto
    -> [DescriptorProto] -> Vector DescriptorProto)
-> Lens
     (Vector DescriptorProto)
     (Vector DescriptorProto)
     [DescriptorProto]
     [DescriptorProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector DescriptorProto -> [DescriptorProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [DescriptorProto]
y__ -> [DescriptorProto] -> Vector DescriptorProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [DescriptorProto]
y__))
instance Data.ProtoLens.Field.HasField DescriptorProto "vec'nestedType" (Data.Vector.Vector DescriptorProto) where
  fieldOf :: Proxy# "vec'nestedType"
-> (Vector DescriptorProto -> f (Vector DescriptorProto))
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Vector DescriptorProto -> f (Vector DescriptorProto))
 -> DescriptorProto -> f DescriptorProto)
-> ((Vector DescriptorProto -> f (Vector DescriptorProto))
    -> Vector DescriptorProto -> f (Vector DescriptorProto))
-> (Vector DescriptorProto -> f (Vector DescriptorProto))
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector DescriptorProto)
-> (DescriptorProto -> Vector DescriptorProto -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Vector DescriptorProto)
     (Vector DescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector DescriptorProto
_DescriptorProto'nestedType
           (\ x__ :: DescriptorProto
x__ y__ :: Vector DescriptorProto
y__ -> DescriptorProto
x__ {_DescriptorProto'nestedType :: Vector DescriptorProto
_DescriptorProto'nestedType = Vector DescriptorProto
y__}))
        (Vector DescriptorProto -> f (Vector DescriptorProto))
-> Vector DescriptorProto -> f (Vector DescriptorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DescriptorProto "enumType" [EnumDescriptorProto] where
  fieldOf :: Proxy# "enumType"
-> ([EnumDescriptorProto] -> f [EnumDescriptorProto])
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
 -> DescriptorProto -> f DescriptorProto)
-> (([EnumDescriptorProto] -> f [EnumDescriptorProto])
    -> Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
-> ([EnumDescriptorProto] -> f [EnumDescriptorProto])
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector EnumDescriptorProto)
-> (DescriptorProto
    -> Vector EnumDescriptorProto -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Vector EnumDescriptorProto)
     (Vector EnumDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector EnumDescriptorProto
_DescriptorProto'enumType
           (\ x__ :: DescriptorProto
x__ y__ :: Vector EnumDescriptorProto
y__ -> DescriptorProto
x__ {_DescriptorProto'enumType :: Vector EnumDescriptorProto
_DescriptorProto'enumType = Vector EnumDescriptorProto
y__}))
        ((Vector EnumDescriptorProto -> [EnumDescriptorProto])
-> (Vector EnumDescriptorProto
    -> [EnumDescriptorProto] -> Vector EnumDescriptorProto)
-> Lens
     (Vector EnumDescriptorProto)
     (Vector EnumDescriptorProto)
     [EnumDescriptorProto]
     [EnumDescriptorProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector EnumDescriptorProto -> [EnumDescriptorProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [EnumDescriptorProto]
y__ -> [EnumDescriptorProto] -> Vector EnumDescriptorProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [EnumDescriptorProto]
y__))
instance Data.ProtoLens.Field.HasField DescriptorProto "vec'enumType" (Data.Vector.Vector EnumDescriptorProto) where
  fieldOf :: Proxy# "vec'enumType"
-> (Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
 -> DescriptorProto -> f DescriptorProto)
-> ((Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
    -> Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
-> (Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector EnumDescriptorProto)
-> (DescriptorProto
    -> Vector EnumDescriptorProto -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Vector EnumDescriptorProto)
     (Vector EnumDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector EnumDescriptorProto
_DescriptorProto'enumType
           (\ x__ :: DescriptorProto
x__ y__ :: Vector EnumDescriptorProto
y__ -> DescriptorProto
x__ {_DescriptorProto'enumType :: Vector EnumDescriptorProto
_DescriptorProto'enumType = Vector EnumDescriptorProto
y__}))
        (Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
-> Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DescriptorProto "extensionRange" [DescriptorProto'ExtensionRange] where
  fieldOf :: Proxy# "extensionRange"
-> ([DescriptorProto'ExtensionRange]
    -> f [DescriptorProto'ExtensionRange])
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Vector DescriptorProto'ExtensionRange
  -> f (Vector DescriptorProto'ExtensionRange))
 -> DescriptorProto -> f DescriptorProto)
-> (([DescriptorProto'ExtensionRange]
     -> f [DescriptorProto'ExtensionRange])
    -> Vector DescriptorProto'ExtensionRange
    -> f (Vector DescriptorProto'ExtensionRange))
-> ([DescriptorProto'ExtensionRange]
    -> f [DescriptorProto'ExtensionRange])
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector DescriptorProto'ExtensionRange)
-> (DescriptorProto
    -> Vector DescriptorProto'ExtensionRange -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Vector DescriptorProto'ExtensionRange)
     (Vector DescriptorProto'ExtensionRange)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector DescriptorProto'ExtensionRange
_DescriptorProto'extensionRange
           (\ x__ :: DescriptorProto
x__ y__ :: Vector DescriptorProto'ExtensionRange
y__ -> DescriptorProto
x__ {_DescriptorProto'extensionRange :: Vector DescriptorProto'ExtensionRange
_DescriptorProto'extensionRange = Vector DescriptorProto'ExtensionRange
y__}))
        ((Vector DescriptorProto'ExtensionRange
 -> [DescriptorProto'ExtensionRange])
-> (Vector DescriptorProto'ExtensionRange
    -> [DescriptorProto'ExtensionRange]
    -> Vector DescriptorProto'ExtensionRange)
-> Lens
     (Vector DescriptorProto'ExtensionRange)
     (Vector DescriptorProto'ExtensionRange)
     [DescriptorProto'ExtensionRange]
     [DescriptorProto'ExtensionRange]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector DescriptorProto'ExtensionRange
-> [DescriptorProto'ExtensionRange]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [DescriptorProto'ExtensionRange]
y__ -> [DescriptorProto'ExtensionRange]
-> Vector DescriptorProto'ExtensionRange
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [DescriptorProto'ExtensionRange]
y__))
instance Data.ProtoLens.Field.HasField DescriptorProto "vec'extensionRange" (Data.Vector.Vector DescriptorProto'ExtensionRange) where
  fieldOf :: Proxy# "vec'extensionRange"
-> (Vector DescriptorProto'ExtensionRange
    -> f (Vector DescriptorProto'ExtensionRange))
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Vector DescriptorProto'ExtensionRange
  -> f (Vector DescriptorProto'ExtensionRange))
 -> DescriptorProto -> f DescriptorProto)
-> ((Vector DescriptorProto'ExtensionRange
     -> f (Vector DescriptorProto'ExtensionRange))
    -> Vector DescriptorProto'ExtensionRange
    -> f (Vector DescriptorProto'ExtensionRange))
-> (Vector DescriptorProto'ExtensionRange
    -> f (Vector DescriptorProto'ExtensionRange))
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector DescriptorProto'ExtensionRange)
-> (DescriptorProto
    -> Vector DescriptorProto'ExtensionRange -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Vector DescriptorProto'ExtensionRange)
     (Vector DescriptorProto'ExtensionRange)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector DescriptorProto'ExtensionRange
_DescriptorProto'extensionRange
           (\ x__ :: DescriptorProto
x__ y__ :: Vector DescriptorProto'ExtensionRange
y__ -> DescriptorProto
x__ {_DescriptorProto'extensionRange :: Vector DescriptorProto'ExtensionRange
_DescriptorProto'extensionRange = Vector DescriptorProto'ExtensionRange
y__}))
        (Vector DescriptorProto'ExtensionRange
 -> f (Vector DescriptorProto'ExtensionRange))
-> Vector DescriptorProto'ExtensionRange
-> f (Vector DescriptorProto'ExtensionRange)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DescriptorProto "oneofDecl" [OneofDescriptorProto] where
  fieldOf :: Proxy# "oneofDecl"
-> ([OneofDescriptorProto] -> f [OneofDescriptorProto])
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Vector OneofDescriptorProto -> f (Vector OneofDescriptorProto))
 -> DescriptorProto -> f DescriptorProto)
-> (([OneofDescriptorProto] -> f [OneofDescriptorProto])
    -> Vector OneofDescriptorProto -> f (Vector OneofDescriptorProto))
-> ([OneofDescriptorProto] -> f [OneofDescriptorProto])
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector OneofDescriptorProto)
-> (DescriptorProto
    -> Vector OneofDescriptorProto -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Vector OneofDescriptorProto)
     (Vector OneofDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector OneofDescriptorProto
_DescriptorProto'oneofDecl
           (\ x__ :: DescriptorProto
x__ y__ :: Vector OneofDescriptorProto
y__ -> DescriptorProto
x__ {_DescriptorProto'oneofDecl :: Vector OneofDescriptorProto
_DescriptorProto'oneofDecl = Vector OneofDescriptorProto
y__}))
        ((Vector OneofDescriptorProto -> [OneofDescriptorProto])
-> (Vector OneofDescriptorProto
    -> [OneofDescriptorProto] -> Vector OneofDescriptorProto)
-> Lens
     (Vector OneofDescriptorProto)
     (Vector OneofDescriptorProto)
     [OneofDescriptorProto]
     [OneofDescriptorProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector OneofDescriptorProto -> [OneofDescriptorProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [OneofDescriptorProto]
y__ -> [OneofDescriptorProto] -> Vector OneofDescriptorProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [OneofDescriptorProto]
y__))
instance Data.ProtoLens.Field.HasField DescriptorProto "vec'oneofDecl" (Data.Vector.Vector OneofDescriptorProto) where
  fieldOf :: Proxy# "vec'oneofDecl"
-> (Vector OneofDescriptorProto -> f (Vector OneofDescriptorProto))
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Vector OneofDescriptorProto -> f (Vector OneofDescriptorProto))
 -> DescriptorProto -> f DescriptorProto)
-> ((Vector OneofDescriptorProto
     -> f (Vector OneofDescriptorProto))
    -> Vector OneofDescriptorProto -> f (Vector OneofDescriptorProto))
-> (Vector OneofDescriptorProto -> f (Vector OneofDescriptorProto))
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector OneofDescriptorProto)
-> (DescriptorProto
    -> Vector OneofDescriptorProto -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Vector OneofDescriptorProto)
     (Vector OneofDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector OneofDescriptorProto
_DescriptorProto'oneofDecl
           (\ x__ :: DescriptorProto
x__ y__ :: Vector OneofDescriptorProto
y__ -> DescriptorProto
x__ {_DescriptorProto'oneofDecl :: Vector OneofDescriptorProto
_DescriptorProto'oneofDecl = Vector OneofDescriptorProto
y__}))
        (Vector OneofDescriptorProto -> f (Vector OneofDescriptorProto))
-> Vector OneofDescriptorProto -> f (Vector OneofDescriptorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DescriptorProto "options" MessageOptions where
  fieldOf :: Proxy# "options"
-> (MessageOptions -> f MessageOptions)
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Maybe MessageOptions -> f (Maybe MessageOptions))
 -> DescriptorProto -> f DescriptorProto)
-> ((MessageOptions -> f MessageOptions)
    -> Maybe MessageOptions -> f (Maybe MessageOptions))
-> (MessageOptions -> f MessageOptions)
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Maybe MessageOptions)
-> (DescriptorProto -> Maybe MessageOptions -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Maybe MessageOptions)
     (Maybe MessageOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Maybe MessageOptions
_DescriptorProto'options
           (\ x__ :: DescriptorProto
x__ y__ :: Maybe MessageOptions
y__ -> DescriptorProto
x__ {_DescriptorProto'options :: Maybe MessageOptions
_DescriptorProto'options = Maybe MessageOptions
y__}))
        (MessageOptions -> Lens' (Maybe MessageOptions) MessageOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens MessageOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DescriptorProto "maybe'options" (Prelude.Maybe MessageOptions) where
  fieldOf :: Proxy# "maybe'options"
-> (Maybe MessageOptions -> f (Maybe MessageOptions))
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Maybe MessageOptions -> f (Maybe MessageOptions))
 -> DescriptorProto -> f DescriptorProto)
-> ((Maybe MessageOptions -> f (Maybe MessageOptions))
    -> Maybe MessageOptions -> f (Maybe MessageOptions))
-> (Maybe MessageOptions -> f (Maybe MessageOptions))
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Maybe MessageOptions)
-> (DescriptorProto -> Maybe MessageOptions -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Maybe MessageOptions)
     (Maybe MessageOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Maybe MessageOptions
_DescriptorProto'options
           (\ x__ :: DescriptorProto
x__ y__ :: Maybe MessageOptions
y__ -> DescriptorProto
x__ {_DescriptorProto'options :: Maybe MessageOptions
_DescriptorProto'options = Maybe MessageOptions
y__}))
        (Maybe MessageOptions -> f (Maybe MessageOptions))
-> Maybe MessageOptions -> f (Maybe MessageOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DescriptorProto "reservedRange" [DescriptorProto'ReservedRange] where
  fieldOf :: Proxy# "reservedRange"
-> ([DescriptorProto'ReservedRange]
    -> f [DescriptorProto'ReservedRange])
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Vector DescriptorProto'ReservedRange
  -> f (Vector DescriptorProto'ReservedRange))
 -> DescriptorProto -> f DescriptorProto)
-> (([DescriptorProto'ReservedRange]
     -> f [DescriptorProto'ReservedRange])
    -> Vector DescriptorProto'ReservedRange
    -> f (Vector DescriptorProto'ReservedRange))
-> ([DescriptorProto'ReservedRange]
    -> f [DescriptorProto'ReservedRange])
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector DescriptorProto'ReservedRange)
-> (DescriptorProto
    -> Vector DescriptorProto'ReservedRange -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Vector DescriptorProto'ReservedRange)
     (Vector DescriptorProto'ReservedRange)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector DescriptorProto'ReservedRange
_DescriptorProto'reservedRange
           (\ x__ :: DescriptorProto
x__ y__ :: Vector DescriptorProto'ReservedRange
y__ -> DescriptorProto
x__ {_DescriptorProto'reservedRange :: Vector DescriptorProto'ReservedRange
_DescriptorProto'reservedRange = Vector DescriptorProto'ReservedRange
y__}))
        ((Vector DescriptorProto'ReservedRange
 -> [DescriptorProto'ReservedRange])
-> (Vector DescriptorProto'ReservedRange
    -> [DescriptorProto'ReservedRange]
    -> Vector DescriptorProto'ReservedRange)
-> Lens
     (Vector DescriptorProto'ReservedRange)
     (Vector DescriptorProto'ReservedRange)
     [DescriptorProto'ReservedRange]
     [DescriptorProto'ReservedRange]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector DescriptorProto'ReservedRange
-> [DescriptorProto'ReservedRange]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [DescriptorProto'ReservedRange]
y__ -> [DescriptorProto'ReservedRange]
-> Vector DescriptorProto'ReservedRange
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [DescriptorProto'ReservedRange]
y__))
instance Data.ProtoLens.Field.HasField DescriptorProto "vec'reservedRange" (Data.Vector.Vector DescriptorProto'ReservedRange) where
  fieldOf :: Proxy# "vec'reservedRange"
-> (Vector DescriptorProto'ReservedRange
    -> f (Vector DescriptorProto'ReservedRange))
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Vector DescriptorProto'ReservedRange
  -> f (Vector DescriptorProto'ReservedRange))
 -> DescriptorProto -> f DescriptorProto)
-> ((Vector DescriptorProto'ReservedRange
     -> f (Vector DescriptorProto'ReservedRange))
    -> Vector DescriptorProto'ReservedRange
    -> f (Vector DescriptorProto'ReservedRange))
-> (Vector DescriptorProto'ReservedRange
    -> f (Vector DescriptorProto'ReservedRange))
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector DescriptorProto'ReservedRange)
-> (DescriptorProto
    -> Vector DescriptorProto'ReservedRange -> DescriptorProto)
-> Lens
     DescriptorProto
     DescriptorProto
     (Vector DescriptorProto'ReservedRange)
     (Vector DescriptorProto'ReservedRange)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector DescriptorProto'ReservedRange
_DescriptorProto'reservedRange
           (\ x__ :: DescriptorProto
x__ y__ :: Vector DescriptorProto'ReservedRange
y__ -> DescriptorProto
x__ {_DescriptorProto'reservedRange :: Vector DescriptorProto'ReservedRange
_DescriptorProto'reservedRange = Vector DescriptorProto'ReservedRange
y__}))
        (Vector DescriptorProto'ReservedRange
 -> f (Vector DescriptorProto'ReservedRange))
-> Vector DescriptorProto'ReservedRange
-> f (Vector DescriptorProto'ReservedRange)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DescriptorProto "reservedName" [Data.Text.Text] where
  fieldOf :: Proxy# "reservedName"
-> ([Text] -> f [Text]) -> DescriptorProto -> f DescriptorProto
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> DescriptorProto -> f DescriptorProto)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector Text)
-> (DescriptorProto -> Vector Text -> DescriptorProto)
-> Lens DescriptorProto DescriptorProto (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector Text
_DescriptorProto'reservedName
           (\ x__ :: DescriptorProto
x__ y__ :: Vector Text
y__ -> DescriptorProto
x__ {_DescriptorProto'reservedName :: Vector Text
_DescriptorProto'reservedName = Vector Text
y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField DescriptorProto "vec'reservedName" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: Proxy# "vec'reservedName"
-> (Vector Text -> f (Vector Text))
-> DescriptorProto
-> f DescriptorProto
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> DescriptorProto -> f DescriptorProto)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> DescriptorProto
-> f DescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto -> Vector Text)
-> (DescriptorProto -> Vector Text -> DescriptorProto)
-> Lens DescriptorProto DescriptorProto (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto -> Vector Text
_DescriptorProto'reservedName
           (\ x__ :: DescriptorProto
x__ y__ :: Vector Text
y__ -> DescriptorProto
x__ {_DescriptorProto'reservedName :: Vector Text
_DescriptorProto'reservedName = Vector Text
y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DescriptorProto where
  messageName :: Proxy DescriptorProto -> Text
messageName _ = String -> Text
Data.Text.pack "google.protobuf.DescriptorProto"
  fieldsByTag :: Map Tag (FieldDescriptor DescriptorProto)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor DescriptorProto
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor DescriptorProto Text
-> FieldDescriptor DescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens DescriptorProto DescriptorProto (Maybe Text) (Maybe Text)
-> FieldAccessor DescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name")) ::
              Data.ProtoLens.FieldDescriptor DescriptorProto
        field__field_descriptor :: FieldDescriptor DescriptorProto
field__field_descriptor
          = String
-> FieldTypeDescriptor FieldDescriptorProto
-> FieldAccessor DescriptorProto FieldDescriptorProto
-> FieldDescriptor DescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "field"
              (MessageOrGroup -> FieldTypeDescriptor FieldDescriptorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto)
              (Packing
-> Lens' DescriptorProto [FieldDescriptorProto]
-> FieldAccessor DescriptorProto FieldDescriptorProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "field" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"field")) ::
              Data.ProtoLens.FieldDescriptor DescriptorProto
        extension__field_descriptor :: FieldDescriptor DescriptorProto
extension__field_descriptor
          = String
-> FieldTypeDescriptor FieldDescriptorProto
-> FieldAccessor DescriptorProto FieldDescriptorProto
-> FieldDescriptor DescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "extension"
              (MessageOrGroup -> FieldTypeDescriptor FieldDescriptorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto)
              (Packing
-> Lens' DescriptorProto [FieldDescriptorProto]
-> FieldAccessor DescriptorProto FieldDescriptorProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "extension" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"extension")) ::
              Data.ProtoLens.FieldDescriptor DescriptorProto
        nestedType__field_descriptor :: FieldDescriptor DescriptorProto
nestedType__field_descriptor
          = String
-> FieldTypeDescriptor DescriptorProto
-> FieldAccessor DescriptorProto DescriptorProto
-> FieldDescriptor DescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "nested_type"
              (MessageOrGroup -> FieldTypeDescriptor DescriptorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor DescriptorProto)
              (Packing
-> Lens' DescriptorProto [DescriptorProto]
-> FieldAccessor DescriptorProto DescriptorProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "nestedType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nestedType")) ::
              Data.ProtoLens.FieldDescriptor DescriptorProto
        enumType__field_descriptor :: FieldDescriptor DescriptorProto
enumType__field_descriptor
          = String
-> FieldTypeDescriptor EnumDescriptorProto
-> FieldAccessor DescriptorProto EnumDescriptorProto
-> FieldDescriptor DescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "enum_type"
              (MessageOrGroup -> FieldTypeDescriptor EnumDescriptorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor EnumDescriptorProto)
              (Packing
-> Lens' DescriptorProto [EnumDescriptorProto]
-> FieldAccessor DescriptorProto EnumDescriptorProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "enumType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"enumType")) ::
              Data.ProtoLens.FieldDescriptor DescriptorProto
        extensionRange__field_descriptor :: FieldDescriptor DescriptorProto
extensionRange__field_descriptor
          = String
-> FieldTypeDescriptor DescriptorProto'ExtensionRange
-> FieldAccessor DescriptorProto DescriptorProto'ExtensionRange
-> FieldDescriptor DescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "extension_range"
              (MessageOrGroup
-> FieldTypeDescriptor DescriptorProto'ExtensionRange
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor DescriptorProto'ExtensionRange)
              (Packing
-> Lens' DescriptorProto [DescriptorProto'ExtensionRange]
-> FieldAccessor DescriptorProto DescriptorProto'ExtensionRange
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "extensionRange" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"extensionRange")) ::
              Data.ProtoLens.FieldDescriptor DescriptorProto
        oneofDecl__field_descriptor :: FieldDescriptor DescriptorProto
oneofDecl__field_descriptor
          = String
-> FieldTypeDescriptor OneofDescriptorProto
-> FieldAccessor DescriptorProto OneofDescriptorProto
-> FieldDescriptor DescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "oneof_decl"
              (MessageOrGroup -> FieldTypeDescriptor OneofDescriptorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor OneofDescriptorProto)
              (Packing
-> Lens' DescriptorProto [OneofDescriptorProto]
-> FieldAccessor DescriptorProto OneofDescriptorProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "oneofDecl" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"oneofDecl")) ::
              Data.ProtoLens.FieldDescriptor DescriptorProto
        options__field_descriptor :: FieldDescriptor DescriptorProto
options__field_descriptor
          = String
-> FieldTypeDescriptor MessageOptions
-> FieldAccessor DescriptorProto MessageOptions
-> FieldDescriptor DescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "options"
              (MessageOrGroup -> FieldTypeDescriptor MessageOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor MessageOptions)
              (Lens
  DescriptorProto
  DescriptorProto
  (Maybe MessageOptions)
  (Maybe MessageOptions)
-> FieldAccessor DescriptorProto MessageOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options")) ::
              Data.ProtoLens.FieldDescriptor DescriptorProto
        reservedRange__field_descriptor :: FieldDescriptor DescriptorProto
reservedRange__field_descriptor
          = String
-> FieldTypeDescriptor DescriptorProto'ReservedRange
-> FieldAccessor DescriptorProto DescriptorProto'ReservedRange
-> FieldDescriptor DescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "reserved_range"
              (MessageOrGroup -> FieldTypeDescriptor DescriptorProto'ReservedRange
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor DescriptorProto'ReservedRange)
              (Packing
-> Lens' DescriptorProto [DescriptorProto'ReservedRange]
-> FieldAccessor DescriptorProto DescriptorProto'ReservedRange
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "reservedRange" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"reservedRange")) ::
              Data.ProtoLens.FieldDescriptor DescriptorProto
        reservedName__field_descriptor :: FieldDescriptor DescriptorProto
reservedName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor DescriptorProto Text
-> FieldDescriptor DescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "reserved_name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing
-> Lens' DescriptorProto [Text]
-> FieldAccessor DescriptorProto Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "reservedName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"reservedName")) ::
              Data.ProtoLens.FieldDescriptor DescriptorProto
      in
        [(Tag, FieldDescriptor DescriptorProto)]
-> Map Tag (FieldDescriptor DescriptorProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor DescriptorProto
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor DescriptorProto
field__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor DescriptorProto
extension__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor DescriptorProto
nestedType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor DescriptorProto
enumType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor DescriptorProto
extensionRange__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor DescriptorProto
oneofDecl__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor DescriptorProto
options__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor DescriptorProto
reservedRange__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 10, FieldDescriptor DescriptorProto
reservedName__field_descriptor)]
  unknownFields :: LensLike' f DescriptorProto FieldSet
unknownFields
    = (DescriptorProto -> FieldSet)
-> (DescriptorProto -> FieldSet -> DescriptorProto)
-> Lens' DescriptorProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DescriptorProto -> FieldSet
_DescriptorProto'_unknownFields
        (\ x__ :: DescriptorProto
x__ y__ :: FieldSet
y__ -> DescriptorProto
x__ {_DescriptorProto'_unknownFields :: FieldSet
_DescriptorProto'_unknownFields = FieldSet
y__})
  defMessage :: DescriptorProto
defMessage
    = $WDescriptorProto'_constructor :: Maybe Text
-> Vector FieldDescriptorProto
-> Vector FieldDescriptorProto
-> Vector DescriptorProto
-> Vector EnumDescriptorProto
-> Vector DescriptorProto'ExtensionRange
-> Vector OneofDescriptorProto
-> Maybe MessageOptions
-> Vector DescriptorProto'ReservedRange
-> Vector Text
-> FieldSet
-> DescriptorProto
DescriptorProto'_constructor
        {_DescriptorProto'name :: Maybe Text
_DescriptorProto'name = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _DescriptorProto'field :: Vector FieldDescriptorProto
_DescriptorProto'field = Vector FieldDescriptorProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _DescriptorProto'extension :: Vector FieldDescriptorProto
_DescriptorProto'extension = Vector FieldDescriptorProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _DescriptorProto'nestedType :: Vector DescriptorProto
_DescriptorProto'nestedType = Vector DescriptorProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _DescriptorProto'enumType :: Vector EnumDescriptorProto
_DescriptorProto'enumType = Vector EnumDescriptorProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _DescriptorProto'extensionRange :: Vector DescriptorProto'ExtensionRange
_DescriptorProto'extensionRange = Vector DescriptorProto'ExtensionRange
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _DescriptorProto'oneofDecl :: Vector OneofDescriptorProto
_DescriptorProto'oneofDecl = Vector OneofDescriptorProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _DescriptorProto'options :: Maybe MessageOptions
_DescriptorProto'options = Maybe MessageOptions
forall a. Maybe a
Prelude.Nothing,
         _DescriptorProto'reservedRange :: Vector DescriptorProto'ReservedRange
_DescriptorProto'reservedRange = Vector DescriptorProto'ReservedRange
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _DescriptorProto'reservedName :: Vector Text
_DescriptorProto'reservedName = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _DescriptorProto'_unknownFields :: FieldSet
_DescriptorProto'_unknownFields = []}
  parseMessage :: Parser DescriptorProto
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 :: DescriptorProto
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto'ExtensionRange
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld OneofDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld DescriptorProto'ReservedRange
-> Parser DescriptorProto
loop
          x :: DescriptorProto
x
          mutable'enumType :: Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
          mutable'extension :: Growing Vector RealWorld FieldDescriptorProto
mutable'extension
          mutable'extensionRange :: Growing Vector RealWorld DescriptorProto'ExtensionRange
mutable'extensionRange
          mutable'field :: Growing Vector RealWorld FieldDescriptorProto
mutable'field
          mutable'nestedType :: Growing Vector RealWorld DescriptorProto
mutable'nestedType
          mutable'oneofDecl :: Growing Vector RealWorld OneofDescriptorProto
mutable'oneofDecl
          mutable'reservedName :: Growing Vector RealWorld Text
mutable'reservedName
          mutable'reservedRange :: Growing Vector RealWorld DescriptorProto'ReservedRange
mutable'reservedRange
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector EnumDescriptorProto
frozen'enumType <- IO (Vector EnumDescriptorProto)
-> Parser (Vector EnumDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                           (Growing Vector (PrimState IO) EnumDescriptorProto
-> IO (Vector EnumDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                              Growing Vector RealWorld EnumDescriptorProto
Growing Vector (PrimState IO) EnumDescriptorProto
mutable'enumType)
                      Vector FieldDescriptorProto
frozen'extension <- IO (Vector FieldDescriptorProto)
-> Parser (Vector FieldDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                            (Growing Vector (PrimState IO) FieldDescriptorProto
-> IO (Vector FieldDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                               Growing Vector RealWorld FieldDescriptorProto
Growing Vector (PrimState IO) FieldDescriptorProto
mutable'extension)
                      Vector DescriptorProto'ExtensionRange
frozen'extensionRange <- IO (Vector DescriptorProto'ExtensionRange)
-> Parser (Vector DescriptorProto'ExtensionRange)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                 (Growing Vector (PrimState IO) DescriptorProto'ExtensionRange
-> IO (Vector DescriptorProto'ExtensionRange)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                    Growing Vector RealWorld DescriptorProto'ExtensionRange
Growing Vector (PrimState IO) DescriptorProto'ExtensionRange
mutable'extensionRange)
                      Vector FieldDescriptorProto
frozen'field <- IO (Vector FieldDescriptorProto)
-> Parser (Vector FieldDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) FieldDescriptorProto
-> IO (Vector FieldDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld FieldDescriptorProto
Growing Vector (PrimState IO) FieldDescriptorProto
mutable'field)
                      Vector DescriptorProto
frozen'nestedType <- IO (Vector DescriptorProto) -> Parser (Vector DescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                             (Growing Vector (PrimState IO) DescriptorProto
-> IO (Vector DescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                Growing Vector RealWorld DescriptorProto
Growing Vector (PrimState IO) DescriptorProto
mutable'nestedType)
                      Vector OneofDescriptorProto
frozen'oneofDecl <- IO (Vector OneofDescriptorProto)
-> Parser (Vector OneofDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                            (Growing Vector (PrimState IO) OneofDescriptorProto
-> IO (Vector OneofDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                               Growing Vector RealWorld OneofDescriptorProto
Growing Vector (PrimState IO) OneofDescriptorProto
mutable'oneofDecl)
                      Vector Text
frozen'reservedName <- IO (Vector Text) -> Parser (Vector Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               (Growing Vector (PrimState IO) Text -> IO (Vector Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                  Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'reservedName)
                      Vector DescriptorProto'ReservedRange
frozen'reservedRange <- IO (Vector DescriptorProto'ReservedRange)
-> Parser (Vector DescriptorProto'ReservedRange)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                (Growing Vector (PrimState IO) DescriptorProto'ReservedRange
-> IO (Vector DescriptorProto'ReservedRange)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                   Growing Vector RealWorld DescriptorProto'ReservedRange
Growing Vector (PrimState IO) DescriptorProto'ReservedRange
mutable'reservedRange)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      DescriptorProto -> Parser DescriptorProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter DescriptorProto DescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet) -> DescriptorProto -> DescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter DescriptorProto DescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  DescriptorProto
  DescriptorProto
  (Vector EnumDescriptorProto)
  (Vector EnumDescriptorProto)
-> Vector EnumDescriptorProto -> DescriptorProto -> DescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'enumType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'enumType")
                              Vector EnumDescriptorProto
frozen'enumType
                              (Setter
  DescriptorProto
  DescriptorProto
  (Vector FieldDescriptorProto)
  (Vector FieldDescriptorProto)
-> Vector FieldDescriptorProto
-> DescriptorProto
-> DescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                 (forall s a (f :: * -> *).
(HasField s "vec'extension" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'extension")
                                 Vector FieldDescriptorProto
frozen'extension
                                 (Setter
  DescriptorProto
  DescriptorProto
  (Vector DescriptorProto'ExtensionRange)
  (Vector DescriptorProto'ExtensionRange)
-> Vector DescriptorProto'ExtensionRange
-> DescriptorProto
-> DescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                    (forall s a (f :: * -> *).
(HasField s "vec'extensionRange" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'extensionRange")
                                    Vector DescriptorProto'ExtensionRange
frozen'extensionRange
                                    (Setter
  DescriptorProto
  DescriptorProto
  (Vector FieldDescriptorProto)
  (Vector FieldDescriptorProto)
-> Vector FieldDescriptorProto
-> DescriptorProto
-> DescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                       (forall s a (f :: * -> *).
(HasField s "vec'field" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'field")
                                       Vector FieldDescriptorProto
frozen'field
                                       (Setter
  DescriptorProto
  DescriptorProto
  (Vector DescriptorProto)
  (Vector DescriptorProto)
-> Vector DescriptorProto -> DescriptorProto -> DescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                          (forall s a (f :: * -> *).
(HasField s "vec'nestedType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'nestedType")
                                          Vector DescriptorProto
frozen'nestedType
                                          (Setter
  DescriptorProto
  DescriptorProto
  (Vector OneofDescriptorProto)
  (Vector OneofDescriptorProto)
-> Vector OneofDescriptorProto
-> DescriptorProto
-> DescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                             (forall s a (f :: * -> *).
(HasField s "vec'oneofDecl" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'oneofDecl")
                                             Vector OneofDescriptorProto
frozen'oneofDecl
                                             (Setter DescriptorProto DescriptorProto (Vector Text) (Vector Text)
-> Vector Text -> DescriptorProto -> DescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                (forall s a (f :: * -> *).
(HasField s "vec'reservedName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'reservedName")
                                                Vector Text
frozen'reservedName
                                                (Setter
  DescriptorProto
  DescriptorProto
  (Vector DescriptorProto'ReservedRange)
  (Vector DescriptorProto'ReservedRange)
-> Vector DescriptorProto'ReservedRange
-> DescriptorProto
-> DescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                   (forall s a (f :: * -> *).
(HasField s "vec'reservedRange" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'reservedRange")
                                                   Vector DescriptorProto'ReservedRange
frozen'reservedRange
                                                   DescriptorProto
x)))))))))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "name"
                                DescriptorProto
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto'ExtensionRange
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld OneofDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld DescriptorProto'ReservedRange
-> Parser DescriptorProto
loop
                                  (Setter DescriptorProto DescriptorProto Text Text
-> Text -> DescriptorProto -> DescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y DescriptorProto
x)
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto'ExtensionRange
mutable'extensionRange
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'field
                                  Growing Vector RealWorld DescriptorProto
mutable'nestedType
                                  Growing Vector RealWorld OneofDescriptorProto
mutable'oneofDecl
                                  Growing Vector RealWorld Text
mutable'reservedName
                                  Growing Vector RealWorld DescriptorProto'ReservedRange
mutable'reservedRange
                        18
                          -> do !FieldDescriptorProto
y <- Parser FieldDescriptorProto
-> String -> Parser FieldDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser FieldDescriptorProto -> Parser FieldDescriptorProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser FieldDescriptorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "field"
                                Growing Vector RealWorld FieldDescriptorProto
v <- IO (Growing Vector RealWorld FieldDescriptorProto)
-> Parser (Growing Vector RealWorld FieldDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) FieldDescriptorProto
-> FieldDescriptorProto
-> IO (Growing Vector (PrimState IO) FieldDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld FieldDescriptorProto
Growing Vector (PrimState IO) FieldDescriptorProto
mutable'field FieldDescriptorProto
y)
                                DescriptorProto
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto'ExtensionRange
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld OneofDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld DescriptorProto'ReservedRange
-> Parser DescriptorProto
loop
                                  DescriptorProto
x
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto'ExtensionRange
mutable'extensionRange
                                  Growing Vector RealWorld FieldDescriptorProto
v
                                  Growing Vector RealWorld DescriptorProto
mutable'nestedType
                                  Growing Vector RealWorld OneofDescriptorProto
mutable'oneofDecl
                                  Growing Vector RealWorld Text
mutable'reservedName
                                  Growing Vector RealWorld DescriptorProto'ReservedRange
mutable'reservedRange
                        50
                          -> do !FieldDescriptorProto
y <- Parser FieldDescriptorProto
-> String -> Parser FieldDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser FieldDescriptorProto -> Parser FieldDescriptorProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser FieldDescriptorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "extension"
                                Growing Vector RealWorld FieldDescriptorProto
v <- IO (Growing Vector RealWorld FieldDescriptorProto)
-> Parser (Growing Vector RealWorld FieldDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) FieldDescriptorProto
-> FieldDescriptorProto
-> IO (Growing Vector (PrimState IO) FieldDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld FieldDescriptorProto
Growing Vector (PrimState IO) FieldDescriptorProto
mutable'extension FieldDescriptorProto
y)
                                DescriptorProto
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto'ExtensionRange
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld OneofDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld DescriptorProto'ReservedRange
-> Parser DescriptorProto
loop
                                  DescriptorProto
x
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
v
                                  Growing Vector RealWorld DescriptorProto'ExtensionRange
mutable'extensionRange
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'field
                                  Growing Vector RealWorld DescriptorProto
mutable'nestedType
                                  Growing Vector RealWorld OneofDescriptorProto
mutable'oneofDecl
                                  Growing Vector RealWorld Text
mutable'reservedName
                                  Growing Vector RealWorld DescriptorProto'ReservedRange
mutable'reservedRange
                        26
                          -> do !DescriptorProto
y <- Parser DescriptorProto -> String -> Parser DescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser DescriptorProto -> Parser DescriptorProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser DescriptorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "nested_type"
                                Growing Vector RealWorld DescriptorProto
v <- IO (Growing Vector RealWorld DescriptorProto)
-> Parser (Growing Vector RealWorld DescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) DescriptorProto
-> DescriptorProto
-> IO (Growing Vector (PrimState IO) DescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld DescriptorProto
Growing Vector (PrimState IO) DescriptorProto
mutable'nestedType DescriptorProto
y)
                                DescriptorProto
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto'ExtensionRange
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld OneofDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld DescriptorProto'ReservedRange
-> Parser DescriptorProto
loop
                                  DescriptorProto
x
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto'ExtensionRange
mutable'extensionRange
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'field
                                  Growing Vector RealWorld DescriptorProto
v
                                  Growing Vector RealWorld OneofDescriptorProto
mutable'oneofDecl
                                  Growing Vector RealWorld Text
mutable'reservedName
                                  Growing Vector RealWorld DescriptorProto'ReservedRange
mutable'reservedRange
                        34
                          -> do !EnumDescriptorProto
y <- Parser EnumDescriptorProto -> String -> Parser EnumDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser EnumDescriptorProto -> Parser EnumDescriptorProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser EnumDescriptorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "enum_type"
                                Growing Vector RealWorld EnumDescriptorProto
v <- IO (Growing Vector RealWorld EnumDescriptorProto)
-> Parser (Growing Vector RealWorld EnumDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) EnumDescriptorProto
-> EnumDescriptorProto
-> IO (Growing Vector (PrimState IO) EnumDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld EnumDescriptorProto
Growing Vector (PrimState IO) EnumDescriptorProto
mutable'enumType EnumDescriptorProto
y)
                                DescriptorProto
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto'ExtensionRange
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld OneofDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld DescriptorProto'ReservedRange
-> Parser DescriptorProto
loop
                                  DescriptorProto
x
                                  Growing Vector RealWorld EnumDescriptorProto
v
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto'ExtensionRange
mutable'extensionRange
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'field
                                  Growing Vector RealWorld DescriptorProto
mutable'nestedType
                                  Growing Vector RealWorld OneofDescriptorProto
mutable'oneofDecl
                                  Growing Vector RealWorld Text
mutable'reservedName
                                  Growing Vector RealWorld DescriptorProto'ReservedRange
mutable'reservedRange
                        42
                          -> do !DescriptorProto'ExtensionRange
y <- Parser DescriptorProto'ExtensionRange
-> String -> Parser DescriptorProto'ExtensionRange
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int
-> Parser DescriptorProto'ExtensionRange
-> Parser DescriptorProto'ExtensionRange
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser DescriptorProto'ExtensionRange
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "extension_range"
                                Growing Vector RealWorld DescriptorProto'ExtensionRange
v <- IO (Growing Vector RealWorld DescriptorProto'ExtensionRange)
-> Parser (Growing Vector RealWorld DescriptorProto'ExtensionRange)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange
-> IO
     (Growing Vector (PrimState IO) DescriptorProto'ExtensionRange)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld DescriptorProto'ExtensionRange
Growing Vector (PrimState IO) DescriptorProto'ExtensionRange
mutable'extensionRange DescriptorProto'ExtensionRange
y)
                                DescriptorProto
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto'ExtensionRange
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld OneofDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld DescriptorProto'ReservedRange
-> Parser DescriptorProto
loop
                                  DescriptorProto
x
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto'ExtensionRange
v
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'field
                                  Growing Vector RealWorld DescriptorProto
mutable'nestedType
                                  Growing Vector RealWorld OneofDescriptorProto
mutable'oneofDecl
                                  Growing Vector RealWorld Text
mutable'reservedName
                                  Growing Vector RealWorld DescriptorProto'ReservedRange
mutable'reservedRange
                        66
                          -> do !OneofDescriptorProto
y <- Parser OneofDescriptorProto
-> String -> Parser OneofDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser OneofDescriptorProto -> Parser OneofDescriptorProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser OneofDescriptorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "oneof_decl"
                                Growing Vector RealWorld OneofDescriptorProto
v <- IO (Growing Vector RealWorld OneofDescriptorProto)
-> Parser (Growing Vector RealWorld OneofDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) OneofDescriptorProto
-> OneofDescriptorProto
-> IO (Growing Vector (PrimState IO) OneofDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld OneofDescriptorProto
Growing Vector (PrimState IO) OneofDescriptorProto
mutable'oneofDecl OneofDescriptorProto
y)
                                DescriptorProto
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto'ExtensionRange
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld OneofDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld DescriptorProto'ReservedRange
-> Parser DescriptorProto
loop
                                  DescriptorProto
x
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto'ExtensionRange
mutable'extensionRange
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'field
                                  Growing Vector RealWorld DescriptorProto
mutable'nestedType
                                  Growing Vector RealWorld OneofDescriptorProto
v
                                  Growing Vector RealWorld Text
mutable'reservedName
                                  Growing Vector RealWorld DescriptorProto'ReservedRange
mutable'reservedRange
                        58
                          -> do MessageOptions
y <- Parser MessageOptions -> String -> Parser MessageOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser MessageOptions -> Parser MessageOptions
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser MessageOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "options"
                                DescriptorProto
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto'ExtensionRange
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld OneofDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld DescriptorProto'ReservedRange
-> Parser DescriptorProto
loop
                                  (Setter
  DescriptorProto DescriptorProto MessageOptions MessageOptions
-> MessageOptions -> DescriptorProto -> DescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"options") MessageOptions
y DescriptorProto
x)
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto'ExtensionRange
mutable'extensionRange
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'field
                                  Growing Vector RealWorld DescriptorProto
mutable'nestedType
                                  Growing Vector RealWorld OneofDescriptorProto
mutable'oneofDecl
                                  Growing Vector RealWorld Text
mutable'reservedName
                                  Growing Vector RealWorld DescriptorProto'ReservedRange
mutable'reservedRange
                        74
                          -> do !DescriptorProto'ReservedRange
y <- Parser DescriptorProto'ReservedRange
-> String -> Parser DescriptorProto'ReservedRange
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int
-> Parser DescriptorProto'ReservedRange
-> Parser DescriptorProto'ReservedRange
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser DescriptorProto'ReservedRange
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "reserved_range"
                                Growing Vector RealWorld DescriptorProto'ReservedRange
v <- IO (Growing Vector RealWorld DescriptorProto'ReservedRange)
-> Parser (Growing Vector RealWorld DescriptorProto'ReservedRange)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange
-> IO (Growing Vector (PrimState IO) DescriptorProto'ReservedRange)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld DescriptorProto'ReservedRange
Growing Vector (PrimState IO) DescriptorProto'ReservedRange
mutable'reservedRange DescriptorProto'ReservedRange
y)
                                DescriptorProto
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto'ExtensionRange
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld OneofDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld DescriptorProto'ReservedRange
-> Parser DescriptorProto
loop
                                  DescriptorProto
x
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto'ExtensionRange
mutable'extensionRange
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'field
                                  Growing Vector RealWorld DescriptorProto
mutable'nestedType
                                  Growing Vector RealWorld OneofDescriptorProto
mutable'oneofDecl
                                  Growing Vector RealWorld Text
mutable'reservedName
                                  Growing Vector RealWorld DescriptorProto'ReservedRange
v
                        82
                          -> do !Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                        Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                            Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                              (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                 (Prelude.Left err :: UnicodeException
err)
                                                   -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                 (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                        "reserved_name"
                                Growing Vector RealWorld Text
v <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Text
-> Text -> IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'reservedName Text
y)
                                DescriptorProto
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto'ExtensionRange
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld OneofDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld DescriptorProto'ReservedRange
-> Parser DescriptorProto
loop
                                  DescriptorProto
x
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto'ExtensionRange
mutable'extensionRange
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'field
                                  Growing Vector RealWorld DescriptorProto
mutable'nestedType
                                  Growing Vector RealWorld OneofDescriptorProto
mutable'oneofDecl
                                  Growing Vector RealWorld Text
v
                                  Growing Vector RealWorld DescriptorProto'ReservedRange
mutable'reservedRange
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                DescriptorProto
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto'ExtensionRange
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld OneofDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld DescriptorProto'ReservedRange
-> Parser DescriptorProto
loop
                                  (Setter DescriptorProto DescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet) -> DescriptorProto -> DescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter DescriptorProto DescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) DescriptorProto
x)
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto'ExtensionRange
mutable'extensionRange
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'field
                                  Growing Vector RealWorld DescriptorProto
mutable'nestedType
                                  Growing Vector RealWorld OneofDescriptorProto
mutable'oneofDecl
                                  Growing Vector RealWorld Text
mutable'reservedName
                                  Growing Vector RealWorld DescriptorProto'ReservedRange
mutable'reservedRange
      in
        Parser DescriptorProto -> String -> Parser DescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld EnumDescriptorProto
mutable'enumType <- IO (Growing Vector RealWorld EnumDescriptorProto)
-> Parser (Growing Vector RealWorld EnumDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                    IO (Growing Vector RealWorld EnumDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld FieldDescriptorProto
mutable'extension <- IO (Growing Vector RealWorld FieldDescriptorProto)
-> Parser (Growing Vector RealWorld FieldDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                     IO (Growing Vector RealWorld FieldDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld DescriptorProto'ExtensionRange
mutable'extensionRange <- IO (Growing Vector RealWorld DescriptorProto'ExtensionRange)
-> Parser (Growing Vector RealWorld DescriptorProto'ExtensionRange)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          IO (Growing Vector RealWorld DescriptorProto'ExtensionRange)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld FieldDescriptorProto
mutable'field <- IO (Growing Vector RealWorld FieldDescriptorProto)
-> Parser (Growing Vector RealWorld FieldDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld FieldDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld DescriptorProto
mutable'nestedType <- IO (Growing Vector RealWorld DescriptorProto)
-> Parser (Growing Vector RealWorld DescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                      IO (Growing Vector RealWorld DescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld OneofDescriptorProto
mutable'oneofDecl <- IO (Growing Vector RealWorld OneofDescriptorProto)
-> Parser (Growing Vector RealWorld OneofDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                     IO (Growing Vector RealWorld OneofDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld Text
mutable'reservedName <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        IO (Growing Vector RealWorld Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld DescriptorProto'ReservedRange
mutable'reservedRange <- IO (Growing Vector RealWorld DescriptorProto'ReservedRange)
-> Parser (Growing Vector RealWorld DescriptorProto'ReservedRange)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         IO (Growing Vector RealWorld DescriptorProto'ReservedRange)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              DescriptorProto
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto'ExtensionRange
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld OneofDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld DescriptorProto'ReservedRange
-> Parser DescriptorProto
loop
                DescriptorProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage
                Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                Growing Vector RealWorld DescriptorProto'ExtensionRange
mutable'extensionRange
                Growing Vector RealWorld FieldDescriptorProto
mutable'field
                Growing Vector RealWorld DescriptorProto
mutable'nestedType
                Growing Vector RealWorld OneofDescriptorProto
mutable'oneofDecl
                Growing Vector RealWorld Text
mutable'reservedName
                Growing Vector RealWorld DescriptorProto'ReservedRange
mutable'reservedRange)
          "DescriptorProto"
  buildMessage :: DescriptorProto -> Builder
buildMessage
    = \ _x :: DescriptorProto
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Text)
  DescriptorProto
  DescriptorProto
  (Maybe Text)
  (Maybe Text)
-> DescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name") DescriptorProto
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Text
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Text -> ByteString
Data.Text.Encoding.encodeUtf8
                          Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((FieldDescriptorProto -> Builder)
-> Vector FieldDescriptorProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ _v :: FieldDescriptorProto
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                           ((ByteString -> Builder)
-> (FieldDescriptorProto -> ByteString)
-> FieldDescriptorProto
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                              (\ bs :: ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                              FieldDescriptorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                              FieldDescriptorProto
_v))
                   (FoldLike
  (Vector FieldDescriptorProto)
  DescriptorProto
  DescriptorProto
  (Vector FieldDescriptorProto)
  (Vector FieldDescriptorProto)
-> DescriptorProto -> Vector FieldDescriptorProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'field" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'field") DescriptorProto
_x))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((FieldDescriptorProto -> Builder)
-> Vector FieldDescriptorProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ _v :: FieldDescriptorProto
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
                              ((ByteString -> Builder)
-> (FieldDescriptorProto -> ByteString)
-> FieldDescriptorProto
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                 (\ bs :: ByteString
bs
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                            (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                         (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                 FieldDescriptorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                 FieldDescriptorProto
_v))
                      (FoldLike
  (Vector FieldDescriptorProto)
  DescriptorProto
  DescriptorProto
  (Vector FieldDescriptorProto)
  (Vector FieldDescriptorProto)
-> DescriptorProto -> Vector FieldDescriptorProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall s a (f :: * -> *).
(HasField s "vec'extension" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'extension") DescriptorProto
_x))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      ((DescriptorProto -> Builder) -> Vector DescriptorProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                         (\ _v :: DescriptorProto
_v
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                                 ((ByteString -> Builder)
-> (DescriptorProto -> ByteString) -> DescriptorProto -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                    (\ bs :: ByteString
bs
                                       -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                               (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                            (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                    DescriptorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                    DescriptorProto
_v))
                         (FoldLike
  (Vector DescriptorProto)
  DescriptorProto
  DescriptorProto
  (Vector DescriptorProto)
  (Vector DescriptorProto)
-> DescriptorProto -> Vector DescriptorProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                            (forall s a (f :: * -> *).
(HasField s "vec'nestedType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'nestedType") DescriptorProto
_x))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         ((EnumDescriptorProto -> Builder)
-> Vector EnumDescriptorProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                            (\ _v :: EnumDescriptorProto
_v
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
                                    ((ByteString -> Builder)
-> (EnumDescriptorProto -> ByteString)
-> EnumDescriptorProto
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                       (\ bs :: ByteString
bs
                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                     (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                       EnumDescriptorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                       EnumDescriptorProto
_v))
                            (FoldLike
  (Vector EnumDescriptorProto)
  DescriptorProto
  DescriptorProto
  (Vector EnumDescriptorProto)
  (Vector EnumDescriptorProto)
-> DescriptorProto -> Vector EnumDescriptorProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                               (forall s a (f :: * -> *).
(HasField s "vec'enumType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'enumType") DescriptorProto
_x))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            ((DescriptorProto'ExtensionRange -> Builder)
-> Vector DescriptorProto'ExtensionRange -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                               (\ _v :: DescriptorProto'ExtensionRange
_v
                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
                                       ((ByteString -> Builder)
-> (DescriptorProto'ExtensionRange -> ByteString)
-> DescriptorProto'ExtensionRange
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                          (\ bs :: ByteString
bs
                                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                        (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                          DescriptorProto'ExtensionRange -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                          DescriptorProto'ExtensionRange
_v))
                               (FoldLike
  (Vector DescriptorProto'ExtensionRange)
  DescriptorProto
  DescriptorProto
  (Vector DescriptorProto'ExtensionRange)
  (Vector DescriptorProto'ExtensionRange)
-> DescriptorProto -> Vector DescriptorProto'ExtensionRange
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                  (forall s a (f :: * -> *).
(HasField s "vec'extensionRange" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'extensionRange") DescriptorProto
_x))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               ((OneofDescriptorProto -> Builder)
-> Vector OneofDescriptorProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                  (\ _v :: OneofDescriptorProto
_v
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 66)
                                          ((ByteString -> Builder)
-> (OneofDescriptorProto -> ByteString)
-> OneofDescriptorProto
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                             (\ bs :: ByteString
bs
                                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                           (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                             OneofDescriptorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                             OneofDescriptorProto
_v))
                                  (FoldLike
  (Vector OneofDescriptorProto)
  DescriptorProto
  DescriptorProto
  (Vector OneofDescriptorProto)
  (Vector OneofDescriptorProto)
-> DescriptorProto -> Vector OneofDescriptorProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                     (forall s a (f :: * -> *).
(HasField s "vec'oneofDecl" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'oneofDecl") DescriptorProto
_x))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (case
                                       FoldLike
  (Maybe MessageOptions)
  DescriptorProto
  DescriptorProto
  (Maybe MessageOptions)
  (Maybe MessageOptions)
-> DescriptorProto -> Maybe MessageOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                         (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options") DescriptorProto
_x
                                   of
                                     Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                     (Prelude.Just _v :: MessageOptions
_v)
                                       -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
                                            ((ByteString -> Builder)
-> (MessageOptions -> ByteString) -> MessageOptions -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                               (\ bs :: ByteString
bs
                                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                          (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                             (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                       (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                               MessageOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                               MessageOptions
_v))
                                  (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     ((DescriptorProto'ReservedRange -> Builder)
-> Vector DescriptorProto'ReservedRange -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                        (\ _v :: DescriptorProto'ReservedRange
_v
                                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 74)
                                                ((ByteString -> Builder)
-> (DescriptorProto'ReservedRange -> ByteString)
-> DescriptorProto'ReservedRange
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                   (\ bs :: ByteString
bs
                                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                 (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                              ByteString
bs))
                                                   DescriptorProto'ReservedRange -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                   DescriptorProto'ReservedRange
_v))
                                        (FoldLike
  (Vector DescriptorProto'ReservedRange)
  DescriptorProto
  DescriptorProto
  (Vector DescriptorProto'ReservedRange)
  (Vector DescriptorProto'ReservedRange)
-> DescriptorProto -> Vector DescriptorProto'ReservedRange
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                           (forall s a (f :: * -> *).
(HasField s "vec'reservedRange" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'reservedRange") DescriptorProto
_x))
                                     (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                           (\ _v :: Text
_v
                                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 82)
                                                   ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                      (\ bs :: ByteString
bs
                                                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                 (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                    (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                              (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                 ByteString
bs))
                                                      Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                                      Text
_v))
                                           (FoldLike
  (Vector Text)
  DescriptorProto
  DescriptorProto
  (Vector Text)
  (Vector Text)
-> DescriptorProto -> Vector Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                              (forall s a (f :: * -> *).
(HasField s "vec'reservedName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'reservedName") DescriptorProto
_x))
                                        (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                           (FoldLike FieldSet DescriptorProto DescriptorProto FieldSet FieldSet
-> DescriptorProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                              FoldLike FieldSet DescriptorProto DescriptorProto FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields DescriptorProto
_x)))))))))))
instance Control.DeepSeq.NFData DescriptorProto where
  rnf :: DescriptorProto -> ()
rnf
    = \ x__ :: DescriptorProto
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DescriptorProto -> FieldSet
_DescriptorProto'_unknownFields DescriptorProto
x__)
             (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (DescriptorProto -> Maybe Text
_DescriptorProto'name DescriptorProto
x__)
                (Vector FieldDescriptorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (DescriptorProto -> Vector FieldDescriptorProto
_DescriptorProto'field DescriptorProto
x__)
                   (Vector FieldDescriptorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (DescriptorProto -> Vector FieldDescriptorProto
_DescriptorProto'extension DescriptorProto
x__)
                      (Vector DescriptorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (DescriptorProto -> Vector DescriptorProto
_DescriptorProto'nestedType DescriptorProto
x__)
                         (Vector EnumDescriptorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (DescriptorProto -> Vector EnumDescriptorProto
_DescriptorProto'enumType DescriptorProto
x__)
                            (Vector DescriptorProto'ExtensionRange -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (DescriptorProto -> Vector DescriptorProto'ExtensionRange
_DescriptorProto'extensionRange DescriptorProto
x__)
                               (Vector OneofDescriptorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (DescriptorProto -> Vector OneofDescriptorProto
_DescriptorProto'oneofDecl DescriptorProto
x__)
                                  (Maybe MessageOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (DescriptorProto -> Maybe MessageOptions
_DescriptorProto'options DescriptorProto
x__)
                                     (Vector DescriptorProto'ReservedRange -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                        (DescriptorProto -> Vector DescriptorProto'ReservedRange
_DescriptorProto'reservedRange DescriptorProto
x__)
                                        (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                           (DescriptorProto -> Vector Text
_DescriptorProto'reservedName DescriptorProto
x__) ()))))))))))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.start' @:: Lens' DescriptorProto'ExtensionRange Data.Int.Int32@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'start' @:: Lens' DescriptorProto'ExtensionRange (Prelude.Maybe Data.Int.Int32)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.end' @:: Lens' DescriptorProto'ExtensionRange Data.Int.Int32@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'end' @:: Lens' DescriptorProto'ExtensionRange (Prelude.Maybe Data.Int.Int32)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' DescriptorProto'ExtensionRange ExtensionRangeOptions@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' DescriptorProto'ExtensionRange (Prelude.Maybe ExtensionRangeOptions)@ -}
data DescriptorProto'ExtensionRange
  = DescriptorProto'ExtensionRange'_constructor {DescriptorProto'ExtensionRange -> Maybe Int32
_DescriptorProto'ExtensionRange'start :: !(Prelude.Maybe Data.Int.Int32),
                                                 DescriptorProto'ExtensionRange -> Maybe Int32
_DescriptorProto'ExtensionRange'end :: !(Prelude.Maybe Data.Int.Int32),
                                                 DescriptorProto'ExtensionRange -> Maybe ExtensionRangeOptions
_DescriptorProto'ExtensionRange'options :: !(Prelude.Maybe ExtensionRangeOptions),
                                                 DescriptorProto'ExtensionRange -> FieldSet
_DescriptorProto'ExtensionRange'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Bool
(DescriptorProto'ExtensionRange
 -> DescriptorProto'ExtensionRange -> Bool)
-> (DescriptorProto'ExtensionRange
    -> DescriptorProto'ExtensionRange -> Bool)
-> Eq DescriptorProto'ExtensionRange
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Bool
$c/= :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Bool
== :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Bool
$c== :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Bool
Prelude.Eq, Eq DescriptorProto'ExtensionRange
Eq DescriptorProto'ExtensionRange =>
(DescriptorProto'ExtensionRange
 -> DescriptorProto'ExtensionRange -> Ordering)
-> (DescriptorProto'ExtensionRange
    -> DescriptorProto'ExtensionRange -> Bool)
-> (DescriptorProto'ExtensionRange
    -> DescriptorProto'ExtensionRange -> Bool)
-> (DescriptorProto'ExtensionRange
    -> DescriptorProto'ExtensionRange -> Bool)
-> (DescriptorProto'ExtensionRange
    -> DescriptorProto'ExtensionRange -> Bool)
-> (DescriptorProto'ExtensionRange
    -> DescriptorProto'ExtensionRange
    -> DescriptorProto'ExtensionRange)
-> (DescriptorProto'ExtensionRange
    -> DescriptorProto'ExtensionRange
    -> DescriptorProto'ExtensionRange)
-> Ord DescriptorProto'ExtensionRange
DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Bool
DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Ordering
DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> DescriptorProto'ExtensionRange
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> DescriptorProto'ExtensionRange
$cmin :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> DescriptorProto'ExtensionRange
max :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> DescriptorProto'ExtensionRange
$cmax :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> DescriptorProto'ExtensionRange
>= :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Bool
$c>= :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Bool
> :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Bool
$c> :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Bool
<= :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Bool
$c<= :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Bool
< :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Bool
$c< :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Bool
compare :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Ordering
$ccompare :: DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange -> Ordering
$cp1Ord :: Eq DescriptorProto'ExtensionRange
Prelude.Ord)
instance Prelude.Show DescriptorProto'ExtensionRange where
  showsPrec :: Int -> DescriptorProto'ExtensionRange -> ShowS
showsPrec _ __x :: DescriptorProto'ExtensionRange
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (DescriptorProto'ExtensionRange -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DescriptorProto'ExtensionRange
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField DescriptorProto'ExtensionRange "start" Data.Int.Int32 where
  fieldOf :: Proxy# "start"
-> (Int32 -> f Int32)
-> DescriptorProto'ExtensionRange
-> f DescriptorProto'ExtensionRange
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> DescriptorProto'ExtensionRange
 -> f DescriptorProto'ExtensionRange)
-> ((Int32 -> f Int32) -> Maybe Int32 -> f (Maybe Int32))
-> (Int32 -> f Int32)
-> DescriptorProto'ExtensionRange
-> f DescriptorProto'ExtensionRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto'ExtensionRange -> Maybe Int32)
-> (DescriptorProto'ExtensionRange
    -> Maybe Int32 -> DescriptorProto'ExtensionRange)
-> Lens
     DescriptorProto'ExtensionRange
     DescriptorProto'ExtensionRange
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto'ExtensionRange -> Maybe Int32
_DescriptorProto'ExtensionRange'start
           (\ x__ :: DescriptorProto'ExtensionRange
x__ y__ :: Maybe Int32
y__ -> DescriptorProto'ExtensionRange
x__ {_DescriptorProto'ExtensionRange'start :: Maybe Int32
_DescriptorProto'ExtensionRange'start = Maybe Int32
y__}))
        (Int32 -> Lens' (Maybe Int32) Int32
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField DescriptorProto'ExtensionRange "maybe'start" (Prelude.Maybe Data.Int.Int32) where
  fieldOf :: Proxy# "maybe'start"
-> (Maybe Int32 -> f (Maybe Int32))
-> DescriptorProto'ExtensionRange
-> f DescriptorProto'ExtensionRange
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> DescriptorProto'ExtensionRange
 -> f DescriptorProto'ExtensionRange)
-> ((Maybe Int32 -> f (Maybe Int32))
    -> Maybe Int32 -> f (Maybe Int32))
-> (Maybe Int32 -> f (Maybe Int32))
-> DescriptorProto'ExtensionRange
-> f DescriptorProto'ExtensionRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto'ExtensionRange -> Maybe Int32)
-> (DescriptorProto'ExtensionRange
    -> Maybe Int32 -> DescriptorProto'ExtensionRange)
-> Lens
     DescriptorProto'ExtensionRange
     DescriptorProto'ExtensionRange
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto'ExtensionRange -> Maybe Int32
_DescriptorProto'ExtensionRange'start
           (\ x__ :: DescriptorProto'ExtensionRange
x__ y__ :: Maybe Int32
y__ -> DescriptorProto'ExtensionRange
x__ {_DescriptorProto'ExtensionRange'start :: Maybe Int32
_DescriptorProto'ExtensionRange'start = Maybe Int32
y__}))
        (Maybe Int32 -> f (Maybe Int32)) -> Maybe Int32 -> f (Maybe Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DescriptorProto'ExtensionRange "end" Data.Int.Int32 where
  fieldOf :: Proxy# "end"
-> (Int32 -> f Int32)
-> DescriptorProto'ExtensionRange
-> f DescriptorProto'ExtensionRange
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> DescriptorProto'ExtensionRange
 -> f DescriptorProto'ExtensionRange)
-> ((Int32 -> f Int32) -> Maybe Int32 -> f (Maybe Int32))
-> (Int32 -> f Int32)
-> DescriptorProto'ExtensionRange
-> f DescriptorProto'ExtensionRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto'ExtensionRange -> Maybe Int32)
-> (DescriptorProto'ExtensionRange
    -> Maybe Int32 -> DescriptorProto'ExtensionRange)
-> Lens
     DescriptorProto'ExtensionRange
     DescriptorProto'ExtensionRange
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto'ExtensionRange -> Maybe Int32
_DescriptorProto'ExtensionRange'end
           (\ x__ :: DescriptorProto'ExtensionRange
x__ y__ :: Maybe Int32
y__ -> DescriptorProto'ExtensionRange
x__ {_DescriptorProto'ExtensionRange'end :: Maybe Int32
_DescriptorProto'ExtensionRange'end = Maybe Int32
y__}))
        (Int32 -> Lens' (Maybe Int32) Int32
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField DescriptorProto'ExtensionRange "maybe'end" (Prelude.Maybe Data.Int.Int32) where
  fieldOf :: Proxy# "maybe'end"
-> (Maybe Int32 -> f (Maybe Int32))
-> DescriptorProto'ExtensionRange
-> f DescriptorProto'ExtensionRange
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> DescriptorProto'ExtensionRange
 -> f DescriptorProto'ExtensionRange)
-> ((Maybe Int32 -> f (Maybe Int32))
    -> Maybe Int32 -> f (Maybe Int32))
-> (Maybe Int32 -> f (Maybe Int32))
-> DescriptorProto'ExtensionRange
-> f DescriptorProto'ExtensionRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto'ExtensionRange -> Maybe Int32)
-> (DescriptorProto'ExtensionRange
    -> Maybe Int32 -> DescriptorProto'ExtensionRange)
-> Lens
     DescriptorProto'ExtensionRange
     DescriptorProto'ExtensionRange
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto'ExtensionRange -> Maybe Int32
_DescriptorProto'ExtensionRange'end
           (\ x__ :: DescriptorProto'ExtensionRange
x__ y__ :: Maybe Int32
y__ -> DescriptorProto'ExtensionRange
x__ {_DescriptorProto'ExtensionRange'end :: Maybe Int32
_DescriptorProto'ExtensionRange'end = Maybe Int32
y__}))
        (Maybe Int32 -> f (Maybe Int32)) -> Maybe Int32 -> f (Maybe Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DescriptorProto'ExtensionRange "options" ExtensionRangeOptions where
  fieldOf :: Proxy# "options"
-> (ExtensionRangeOptions -> f ExtensionRangeOptions)
-> DescriptorProto'ExtensionRange
-> f DescriptorProto'ExtensionRange
fieldOf _
    = ((Maybe ExtensionRangeOptions -> f (Maybe ExtensionRangeOptions))
 -> DescriptorProto'ExtensionRange
 -> f DescriptorProto'ExtensionRange)
-> ((ExtensionRangeOptions -> f ExtensionRangeOptions)
    -> Maybe ExtensionRangeOptions -> f (Maybe ExtensionRangeOptions))
-> (ExtensionRangeOptions -> f ExtensionRangeOptions)
-> DescriptorProto'ExtensionRange
-> f DescriptorProto'ExtensionRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto'ExtensionRange -> Maybe ExtensionRangeOptions)
-> (DescriptorProto'ExtensionRange
    -> Maybe ExtensionRangeOptions -> DescriptorProto'ExtensionRange)
-> Lens
     DescriptorProto'ExtensionRange
     DescriptorProto'ExtensionRange
     (Maybe ExtensionRangeOptions)
     (Maybe ExtensionRangeOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto'ExtensionRange -> Maybe ExtensionRangeOptions
_DescriptorProto'ExtensionRange'options
           (\ x__ :: DescriptorProto'ExtensionRange
x__ y__ :: Maybe ExtensionRangeOptions
y__ -> DescriptorProto'ExtensionRange
x__ {_DescriptorProto'ExtensionRange'options :: Maybe ExtensionRangeOptions
_DescriptorProto'ExtensionRange'options = Maybe ExtensionRangeOptions
y__}))
        (ExtensionRangeOptions
-> Lens' (Maybe ExtensionRangeOptions) ExtensionRangeOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ExtensionRangeOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField DescriptorProto'ExtensionRange "maybe'options" (Prelude.Maybe ExtensionRangeOptions) where
  fieldOf :: Proxy# "maybe'options"
-> (Maybe ExtensionRangeOptions -> f (Maybe ExtensionRangeOptions))
-> DescriptorProto'ExtensionRange
-> f DescriptorProto'ExtensionRange
fieldOf _
    = ((Maybe ExtensionRangeOptions -> f (Maybe ExtensionRangeOptions))
 -> DescriptorProto'ExtensionRange
 -> f DescriptorProto'ExtensionRange)
-> ((Maybe ExtensionRangeOptions
     -> f (Maybe ExtensionRangeOptions))
    -> Maybe ExtensionRangeOptions -> f (Maybe ExtensionRangeOptions))
-> (Maybe ExtensionRangeOptions -> f (Maybe ExtensionRangeOptions))
-> DescriptorProto'ExtensionRange
-> f DescriptorProto'ExtensionRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto'ExtensionRange -> Maybe ExtensionRangeOptions)
-> (DescriptorProto'ExtensionRange
    -> Maybe ExtensionRangeOptions -> DescriptorProto'ExtensionRange)
-> Lens
     DescriptorProto'ExtensionRange
     DescriptorProto'ExtensionRange
     (Maybe ExtensionRangeOptions)
     (Maybe ExtensionRangeOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto'ExtensionRange -> Maybe ExtensionRangeOptions
_DescriptorProto'ExtensionRange'options
           (\ x__ :: DescriptorProto'ExtensionRange
x__ y__ :: Maybe ExtensionRangeOptions
y__ -> DescriptorProto'ExtensionRange
x__ {_DescriptorProto'ExtensionRange'options :: Maybe ExtensionRangeOptions
_DescriptorProto'ExtensionRange'options = Maybe ExtensionRangeOptions
y__}))
        (Maybe ExtensionRangeOptions -> f (Maybe ExtensionRangeOptions))
-> Maybe ExtensionRangeOptions -> f (Maybe ExtensionRangeOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DescriptorProto'ExtensionRange where
  messageName :: Proxy DescriptorProto'ExtensionRange -> Text
messageName _
    = String -> Text
Data.Text.pack "google.protobuf.DescriptorProto.ExtensionRange"
  fieldsByTag :: Map Tag (FieldDescriptor DescriptorProto'ExtensionRange)
fieldsByTag
    = let
        start__field_descriptor :: FieldDescriptor DescriptorProto'ExtensionRange
start__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor DescriptorProto'ExtensionRange Int32
-> FieldDescriptor DescriptorProto'ExtensionRange
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "start"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Lens
  DescriptorProto'ExtensionRange
  DescriptorProto'ExtensionRange
  (Maybe Int32)
  (Maybe Int32)
-> FieldAccessor DescriptorProto'ExtensionRange Int32
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'start" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'start")) ::
              Data.ProtoLens.FieldDescriptor DescriptorProto'ExtensionRange
        end__field_descriptor :: FieldDescriptor DescriptorProto'ExtensionRange
end__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor DescriptorProto'ExtensionRange Int32
-> FieldDescriptor DescriptorProto'ExtensionRange
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "end"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Lens
  DescriptorProto'ExtensionRange
  DescriptorProto'ExtensionRange
  (Maybe Int32)
  (Maybe Int32)
-> FieldAccessor DescriptorProto'ExtensionRange Int32
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'end" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'end")) ::
              Data.ProtoLens.FieldDescriptor DescriptorProto'ExtensionRange
        options__field_descriptor :: FieldDescriptor DescriptorProto'ExtensionRange
options__field_descriptor
          = String
-> FieldTypeDescriptor ExtensionRangeOptions
-> FieldAccessor
     DescriptorProto'ExtensionRange ExtensionRangeOptions
-> FieldDescriptor DescriptorProto'ExtensionRange
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "options"
              (MessageOrGroup -> FieldTypeDescriptor ExtensionRangeOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ExtensionRangeOptions)
              (Lens
  DescriptorProto'ExtensionRange
  DescriptorProto'ExtensionRange
  (Maybe ExtensionRangeOptions)
  (Maybe ExtensionRangeOptions)
-> FieldAccessor
     DescriptorProto'ExtensionRange ExtensionRangeOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options")) ::
              Data.ProtoLens.FieldDescriptor DescriptorProto'ExtensionRange
      in
        [(Tag, FieldDescriptor DescriptorProto'ExtensionRange)]
-> Map Tag (FieldDescriptor DescriptorProto'ExtensionRange)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor DescriptorProto'ExtensionRange
start__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor DescriptorProto'ExtensionRange
end__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor DescriptorProto'ExtensionRange
options__field_descriptor)]
  unknownFields :: LensLike' f DescriptorProto'ExtensionRange FieldSet
unknownFields
    = (DescriptorProto'ExtensionRange -> FieldSet)
-> (DescriptorProto'ExtensionRange
    -> FieldSet -> DescriptorProto'ExtensionRange)
-> Lens' DescriptorProto'ExtensionRange FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DescriptorProto'ExtensionRange -> FieldSet
_DescriptorProto'ExtensionRange'_unknownFields
        (\ x__ :: DescriptorProto'ExtensionRange
x__ y__ :: FieldSet
y__
           -> DescriptorProto'ExtensionRange
x__ {_DescriptorProto'ExtensionRange'_unknownFields :: FieldSet
_DescriptorProto'ExtensionRange'_unknownFields = FieldSet
y__})
  defMessage :: DescriptorProto'ExtensionRange
defMessage
    = $WDescriptorProto'ExtensionRange'_constructor :: Maybe Int32
-> Maybe Int32
-> Maybe ExtensionRangeOptions
-> FieldSet
-> DescriptorProto'ExtensionRange
DescriptorProto'ExtensionRange'_constructor
        {_DescriptorProto'ExtensionRange'start :: Maybe Int32
_DescriptorProto'ExtensionRange'start = Maybe Int32
forall a. Maybe a
Prelude.Nothing,
         _DescriptorProto'ExtensionRange'end :: Maybe Int32
_DescriptorProto'ExtensionRange'end = Maybe Int32
forall a. Maybe a
Prelude.Nothing,
         _DescriptorProto'ExtensionRange'options :: Maybe ExtensionRangeOptions
_DescriptorProto'ExtensionRange'options = Maybe ExtensionRangeOptions
forall a. Maybe a
Prelude.Nothing,
         _DescriptorProto'ExtensionRange'_unknownFields :: FieldSet
_DescriptorProto'ExtensionRange'_unknownFields = []}
  parseMessage :: Parser DescriptorProto'ExtensionRange
parseMessage
    = let
        loop ::
          DescriptorProto'ExtensionRange
          -> Data.ProtoLens.Encoding.Bytes.Parser DescriptorProto'ExtensionRange
        loop :: DescriptorProto'ExtensionRange
-> Parser DescriptorProto'ExtensionRange
loop x :: DescriptorProto'ExtensionRange
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      DescriptorProto'ExtensionRange
-> Parser DescriptorProto'ExtensionRange
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  DescriptorProto'ExtensionRange
  DescriptorProto'ExtensionRange
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  DescriptorProto'ExtensionRange
  DescriptorProto'ExtensionRange
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) DescriptorProto'ExtensionRange
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "start"
                                DescriptorProto'ExtensionRange
-> Parser DescriptorProto'ExtensionRange
loop (Setter
  DescriptorProto'ExtensionRange
  DescriptorProto'ExtensionRange
  Int32
  Int32
-> Int32
-> DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "start" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"start") Int32
y DescriptorProto'ExtensionRange
x)
                        16
                          -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "end"
                                DescriptorProto'ExtensionRange
-> Parser DescriptorProto'ExtensionRange
loop (Setter
  DescriptorProto'ExtensionRange
  DescriptorProto'ExtensionRange
  Int32
  Int32
-> Int32
-> DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "end" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"end") Int32
y DescriptorProto'ExtensionRange
x)
                        26
                          -> do ExtensionRangeOptions
y <- Parser ExtensionRangeOptions
-> String -> Parser ExtensionRangeOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ExtensionRangeOptions -> Parser ExtensionRangeOptions
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ExtensionRangeOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "options"
                                DescriptorProto'ExtensionRange
-> Parser DescriptorProto'ExtensionRange
loop (Setter
  DescriptorProto'ExtensionRange
  DescriptorProto'ExtensionRange
  ExtensionRangeOptions
  ExtensionRangeOptions
-> ExtensionRangeOptions
-> DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"options") ExtensionRangeOptions
y DescriptorProto'ExtensionRange
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                DescriptorProto'ExtensionRange
-> Parser DescriptorProto'ExtensionRange
loop
                                  (Setter
  DescriptorProto'ExtensionRange
  DescriptorProto'ExtensionRange
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> DescriptorProto'ExtensionRange
-> DescriptorProto'ExtensionRange
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  DescriptorProto'ExtensionRange
  DescriptorProto'ExtensionRange
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) DescriptorProto'ExtensionRange
x)
      in
        Parser DescriptorProto'ExtensionRange
-> String -> Parser DescriptorProto'ExtensionRange
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DescriptorProto'ExtensionRange
-> Parser DescriptorProto'ExtensionRange
loop DescriptorProto'ExtensionRange
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "ExtensionRange"
  buildMessage :: DescriptorProto'ExtensionRange -> Builder
buildMessage
    = \ _x :: DescriptorProto'ExtensionRange
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Int32)
  DescriptorProto'ExtensionRange
  DescriptorProto'ExtensionRange
  (Maybe Int32)
  (Maybe Int32)
-> DescriptorProto'ExtensionRange -> Maybe Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'start" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'start") DescriptorProto'ExtensionRange
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Int32
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 8)
                       ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Int32)
  DescriptorProto'ExtensionRange
  DescriptorProto'ExtensionRange
  (Maybe Int32)
  (Maybe Int32)
-> DescriptorProto'ExtensionRange -> Maybe Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'end" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'end") DescriptorProto'ExtensionRange
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: Int32
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 16)
                          ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe ExtensionRangeOptions)
  DescriptorProto'ExtensionRange
  DescriptorProto'ExtensionRange
  (Maybe ExtensionRangeOptions)
  (Maybe ExtensionRangeOptions)
-> DescriptorProto'ExtensionRange -> Maybe ExtensionRangeOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options") DescriptorProto'ExtensionRange
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: ExtensionRangeOptions
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                             ((ByteString -> Builder)
-> (ExtensionRangeOptions -> ByteString)
-> ExtensionRangeOptions
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ bs :: ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                ExtensionRangeOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                ExtensionRangeOptions
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  DescriptorProto'ExtensionRange
  DescriptorProto'ExtensionRange
  FieldSet
  FieldSet
-> DescriptorProto'ExtensionRange -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  DescriptorProto'ExtensionRange
  DescriptorProto'ExtensionRange
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields DescriptorProto'ExtensionRange
_x))))
instance Control.DeepSeq.NFData DescriptorProto'ExtensionRange where
  rnf :: DescriptorProto'ExtensionRange -> ()
rnf
    = \ x__ :: DescriptorProto'ExtensionRange
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DescriptorProto'ExtensionRange -> FieldSet
_DescriptorProto'ExtensionRange'_unknownFields DescriptorProto'ExtensionRange
x__)
             (Maybe Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (DescriptorProto'ExtensionRange -> Maybe Int32
_DescriptorProto'ExtensionRange'start DescriptorProto'ExtensionRange
x__)
                (Maybe Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (DescriptorProto'ExtensionRange -> Maybe Int32
_DescriptorProto'ExtensionRange'end DescriptorProto'ExtensionRange
x__)
                   (Maybe ExtensionRangeOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (DescriptorProto'ExtensionRange -> Maybe ExtensionRangeOptions
_DescriptorProto'ExtensionRange'options DescriptorProto'ExtensionRange
x__) ())))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.start' @:: Lens' DescriptorProto'ReservedRange Data.Int.Int32@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'start' @:: Lens' DescriptorProto'ReservedRange (Prelude.Maybe Data.Int.Int32)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.end' @:: Lens' DescriptorProto'ReservedRange Data.Int.Int32@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'end' @:: Lens' DescriptorProto'ReservedRange (Prelude.Maybe Data.Int.Int32)@ -}
data DescriptorProto'ReservedRange
  = DescriptorProto'ReservedRange'_constructor {DescriptorProto'ReservedRange -> Maybe Int32
_DescriptorProto'ReservedRange'start :: !(Prelude.Maybe Data.Int.Int32),
                                                DescriptorProto'ReservedRange -> Maybe Int32
_DescriptorProto'ReservedRange'end :: !(Prelude.Maybe Data.Int.Int32),
                                                DescriptorProto'ReservedRange -> FieldSet
_DescriptorProto'ReservedRange'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Bool
(DescriptorProto'ReservedRange
 -> DescriptorProto'ReservedRange -> Bool)
-> (DescriptorProto'ReservedRange
    -> DescriptorProto'ReservedRange -> Bool)
-> Eq DescriptorProto'ReservedRange
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Bool
$c/= :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Bool
== :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Bool
$c== :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Bool
Prelude.Eq, Eq DescriptorProto'ReservedRange
Eq DescriptorProto'ReservedRange =>
(DescriptorProto'ReservedRange
 -> DescriptorProto'ReservedRange -> Ordering)
-> (DescriptorProto'ReservedRange
    -> DescriptorProto'ReservedRange -> Bool)
-> (DescriptorProto'ReservedRange
    -> DescriptorProto'ReservedRange -> Bool)
-> (DescriptorProto'ReservedRange
    -> DescriptorProto'ReservedRange -> Bool)
-> (DescriptorProto'ReservedRange
    -> DescriptorProto'ReservedRange -> Bool)
-> (DescriptorProto'ReservedRange
    -> DescriptorProto'ReservedRange -> DescriptorProto'ReservedRange)
-> (DescriptorProto'ReservedRange
    -> DescriptorProto'ReservedRange -> DescriptorProto'ReservedRange)
-> Ord DescriptorProto'ReservedRange
DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Bool
DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Ordering
DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> DescriptorProto'ReservedRange
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> DescriptorProto'ReservedRange
$cmin :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> DescriptorProto'ReservedRange
max :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> DescriptorProto'ReservedRange
$cmax :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> DescriptorProto'ReservedRange
>= :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Bool
$c>= :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Bool
> :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Bool
$c> :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Bool
<= :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Bool
$c<= :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Bool
< :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Bool
$c< :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Bool
compare :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Ordering
$ccompare :: DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange -> Ordering
$cp1Ord :: Eq DescriptorProto'ReservedRange
Prelude.Ord)
instance Prelude.Show DescriptorProto'ReservedRange where
  showsPrec :: Int -> DescriptorProto'ReservedRange -> ShowS
showsPrec _ __x :: DescriptorProto'ReservedRange
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (DescriptorProto'ReservedRange -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DescriptorProto'ReservedRange
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField DescriptorProto'ReservedRange "start" Data.Int.Int32 where
  fieldOf :: Proxy# "start"
-> (Int32 -> f Int32)
-> DescriptorProto'ReservedRange
-> f DescriptorProto'ReservedRange
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> DescriptorProto'ReservedRange
 -> f DescriptorProto'ReservedRange)
-> ((Int32 -> f Int32) -> Maybe Int32 -> f (Maybe Int32))
-> (Int32 -> f Int32)
-> DescriptorProto'ReservedRange
-> f DescriptorProto'ReservedRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto'ReservedRange -> Maybe Int32)
-> (DescriptorProto'ReservedRange
    -> Maybe Int32 -> DescriptorProto'ReservedRange)
-> Lens
     DescriptorProto'ReservedRange
     DescriptorProto'ReservedRange
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto'ReservedRange -> Maybe Int32
_DescriptorProto'ReservedRange'start
           (\ x__ :: DescriptorProto'ReservedRange
x__ y__ :: Maybe Int32
y__ -> DescriptorProto'ReservedRange
x__ {_DescriptorProto'ReservedRange'start :: Maybe Int32
_DescriptorProto'ReservedRange'start = Maybe Int32
y__}))
        (Int32 -> Lens' (Maybe Int32) Int32
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField DescriptorProto'ReservedRange "maybe'start" (Prelude.Maybe Data.Int.Int32) where
  fieldOf :: Proxy# "maybe'start"
-> (Maybe Int32 -> f (Maybe Int32))
-> DescriptorProto'ReservedRange
-> f DescriptorProto'ReservedRange
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> DescriptorProto'ReservedRange
 -> f DescriptorProto'ReservedRange)
-> ((Maybe Int32 -> f (Maybe Int32))
    -> Maybe Int32 -> f (Maybe Int32))
-> (Maybe Int32 -> f (Maybe Int32))
-> DescriptorProto'ReservedRange
-> f DescriptorProto'ReservedRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto'ReservedRange -> Maybe Int32)
-> (DescriptorProto'ReservedRange
    -> Maybe Int32 -> DescriptorProto'ReservedRange)
-> Lens
     DescriptorProto'ReservedRange
     DescriptorProto'ReservedRange
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto'ReservedRange -> Maybe Int32
_DescriptorProto'ReservedRange'start
           (\ x__ :: DescriptorProto'ReservedRange
x__ y__ :: Maybe Int32
y__ -> DescriptorProto'ReservedRange
x__ {_DescriptorProto'ReservedRange'start :: Maybe Int32
_DescriptorProto'ReservedRange'start = Maybe Int32
y__}))
        (Maybe Int32 -> f (Maybe Int32)) -> Maybe Int32 -> f (Maybe Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DescriptorProto'ReservedRange "end" Data.Int.Int32 where
  fieldOf :: Proxy# "end"
-> (Int32 -> f Int32)
-> DescriptorProto'ReservedRange
-> f DescriptorProto'ReservedRange
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> DescriptorProto'ReservedRange
 -> f DescriptorProto'ReservedRange)
-> ((Int32 -> f Int32) -> Maybe Int32 -> f (Maybe Int32))
-> (Int32 -> f Int32)
-> DescriptorProto'ReservedRange
-> f DescriptorProto'ReservedRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto'ReservedRange -> Maybe Int32)
-> (DescriptorProto'ReservedRange
    -> Maybe Int32 -> DescriptorProto'ReservedRange)
-> Lens
     DescriptorProto'ReservedRange
     DescriptorProto'ReservedRange
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto'ReservedRange -> Maybe Int32
_DescriptorProto'ReservedRange'end
           (\ x__ :: DescriptorProto'ReservedRange
x__ y__ :: Maybe Int32
y__ -> DescriptorProto'ReservedRange
x__ {_DescriptorProto'ReservedRange'end :: Maybe Int32
_DescriptorProto'ReservedRange'end = Maybe Int32
y__}))
        (Int32 -> Lens' (Maybe Int32) Int32
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField DescriptorProto'ReservedRange "maybe'end" (Prelude.Maybe Data.Int.Int32) where
  fieldOf :: Proxy# "maybe'end"
-> (Maybe Int32 -> f (Maybe Int32))
-> DescriptorProto'ReservedRange
-> f DescriptorProto'ReservedRange
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> DescriptorProto'ReservedRange
 -> f DescriptorProto'ReservedRange)
-> ((Maybe Int32 -> f (Maybe Int32))
    -> Maybe Int32 -> f (Maybe Int32))
-> (Maybe Int32 -> f (Maybe Int32))
-> DescriptorProto'ReservedRange
-> f DescriptorProto'ReservedRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((DescriptorProto'ReservedRange -> Maybe Int32)
-> (DescriptorProto'ReservedRange
    -> Maybe Int32 -> DescriptorProto'ReservedRange)
-> Lens
     DescriptorProto'ReservedRange
     DescriptorProto'ReservedRange
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           DescriptorProto'ReservedRange -> Maybe Int32
_DescriptorProto'ReservedRange'end
           (\ x__ :: DescriptorProto'ReservedRange
x__ y__ :: Maybe Int32
y__ -> DescriptorProto'ReservedRange
x__ {_DescriptorProto'ReservedRange'end :: Maybe Int32
_DescriptorProto'ReservedRange'end = Maybe Int32
y__}))
        (Maybe Int32 -> f (Maybe Int32)) -> Maybe Int32 -> f (Maybe Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DescriptorProto'ReservedRange where
  messageName :: Proxy DescriptorProto'ReservedRange -> Text
messageName _
    = String -> Text
Data.Text.pack "google.protobuf.DescriptorProto.ReservedRange"
  fieldsByTag :: Map Tag (FieldDescriptor DescriptorProto'ReservedRange)
fieldsByTag
    = let
        start__field_descriptor :: FieldDescriptor DescriptorProto'ReservedRange
start__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor DescriptorProto'ReservedRange Int32
-> FieldDescriptor DescriptorProto'ReservedRange
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "start"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Lens
  DescriptorProto'ReservedRange
  DescriptorProto'ReservedRange
  (Maybe Int32)
  (Maybe Int32)
-> FieldAccessor DescriptorProto'ReservedRange Int32
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'start" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'start")) ::
              Data.ProtoLens.FieldDescriptor DescriptorProto'ReservedRange
        end__field_descriptor :: FieldDescriptor DescriptorProto'ReservedRange
end__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor DescriptorProto'ReservedRange Int32
-> FieldDescriptor DescriptorProto'ReservedRange
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "end"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Lens
  DescriptorProto'ReservedRange
  DescriptorProto'ReservedRange
  (Maybe Int32)
  (Maybe Int32)
-> FieldAccessor DescriptorProto'ReservedRange Int32
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'end" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'end")) ::
              Data.ProtoLens.FieldDescriptor DescriptorProto'ReservedRange
      in
        [(Tag, FieldDescriptor DescriptorProto'ReservedRange)]
-> Map Tag (FieldDescriptor DescriptorProto'ReservedRange)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor DescriptorProto'ReservedRange
start__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor DescriptorProto'ReservedRange
end__field_descriptor)]
  unknownFields :: LensLike' f DescriptorProto'ReservedRange FieldSet
unknownFields
    = (DescriptorProto'ReservedRange -> FieldSet)
-> (DescriptorProto'ReservedRange
    -> FieldSet -> DescriptorProto'ReservedRange)
-> Lens' DescriptorProto'ReservedRange FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        DescriptorProto'ReservedRange -> FieldSet
_DescriptorProto'ReservedRange'_unknownFields
        (\ x__ :: DescriptorProto'ReservedRange
x__ y__ :: FieldSet
y__
           -> DescriptorProto'ReservedRange
x__ {_DescriptorProto'ReservedRange'_unknownFields :: FieldSet
_DescriptorProto'ReservedRange'_unknownFields = FieldSet
y__})
  defMessage :: DescriptorProto'ReservedRange
defMessage
    = $WDescriptorProto'ReservedRange'_constructor :: Maybe Int32
-> Maybe Int32 -> FieldSet -> DescriptorProto'ReservedRange
DescriptorProto'ReservedRange'_constructor
        {_DescriptorProto'ReservedRange'start :: Maybe Int32
_DescriptorProto'ReservedRange'start = Maybe Int32
forall a. Maybe a
Prelude.Nothing,
         _DescriptorProto'ReservedRange'end :: Maybe Int32
_DescriptorProto'ReservedRange'end = Maybe Int32
forall a. Maybe a
Prelude.Nothing,
         _DescriptorProto'ReservedRange'_unknownFields :: FieldSet
_DescriptorProto'ReservedRange'_unknownFields = []}
  parseMessage :: Parser DescriptorProto'ReservedRange
parseMessage
    = let
        loop ::
          DescriptorProto'ReservedRange
          -> Data.ProtoLens.Encoding.Bytes.Parser DescriptorProto'ReservedRange
        loop :: DescriptorProto'ReservedRange
-> Parser DescriptorProto'ReservedRange
loop x :: DescriptorProto'ReservedRange
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      DescriptorProto'ReservedRange
-> Parser DescriptorProto'ReservedRange
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  DescriptorProto'ReservedRange
  DescriptorProto'ReservedRange
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  DescriptorProto'ReservedRange
  DescriptorProto'ReservedRange
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) DescriptorProto'ReservedRange
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "start"
                                DescriptorProto'ReservedRange
-> Parser DescriptorProto'ReservedRange
loop (Setter
  DescriptorProto'ReservedRange
  DescriptorProto'ReservedRange
  Int32
  Int32
-> Int32
-> DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "start" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"start") Int32
y DescriptorProto'ReservedRange
x)
                        16
                          -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "end"
                                DescriptorProto'ReservedRange
-> Parser DescriptorProto'ReservedRange
loop (Setter
  DescriptorProto'ReservedRange
  DescriptorProto'ReservedRange
  Int32
  Int32
-> Int32
-> DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "end" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"end") Int32
y DescriptorProto'ReservedRange
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                DescriptorProto'ReservedRange
-> Parser DescriptorProto'ReservedRange
loop
                                  (Setter
  DescriptorProto'ReservedRange
  DescriptorProto'ReservedRange
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> DescriptorProto'ReservedRange
-> DescriptorProto'ReservedRange
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  DescriptorProto'ReservedRange
  DescriptorProto'ReservedRange
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) DescriptorProto'ReservedRange
x)
      in
        Parser DescriptorProto'ReservedRange
-> String -> Parser DescriptorProto'ReservedRange
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do DescriptorProto'ReservedRange
-> Parser DescriptorProto'ReservedRange
loop DescriptorProto'ReservedRange
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "ReservedRange"
  buildMessage :: DescriptorProto'ReservedRange -> Builder
buildMessage
    = \ _x :: DescriptorProto'ReservedRange
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Int32)
  DescriptorProto'ReservedRange
  DescriptorProto'ReservedRange
  (Maybe Int32)
  (Maybe Int32)
-> DescriptorProto'ReservedRange -> Maybe Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'start" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'start") DescriptorProto'ReservedRange
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Int32
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 8)
                       ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Int32)
  DescriptorProto'ReservedRange
  DescriptorProto'ReservedRange
  (Maybe Int32)
  (Maybe Int32)
-> DescriptorProto'ReservedRange -> Maybe Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'end" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'end") DescriptorProto'ReservedRange
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: Int32
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 16)
                          ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  DescriptorProto'ReservedRange
  DescriptorProto'ReservedRange
  FieldSet
  FieldSet
-> DescriptorProto'ReservedRange -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  DescriptorProto'ReservedRange
  DescriptorProto'ReservedRange
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields DescriptorProto'ReservedRange
_x)))
instance Control.DeepSeq.NFData DescriptorProto'ReservedRange where
  rnf :: DescriptorProto'ReservedRange -> ()
rnf
    = \ x__ :: DescriptorProto'ReservedRange
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (DescriptorProto'ReservedRange -> FieldSet
_DescriptorProto'ReservedRange'_unknownFields DescriptorProto'ReservedRange
x__)
             (Maybe Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (DescriptorProto'ReservedRange -> Maybe Int32
_DescriptorProto'ReservedRange'start DescriptorProto'ReservedRange
x__)
                (Maybe Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (DescriptorProto'ReservedRange -> Maybe Int32
_DescriptorProto'ReservedRange'end DescriptorProto'ReservedRange
x__) ()))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' EnumDescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' EnumDescriptorProto (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.value' @:: Lens' EnumDescriptorProto [EnumValueDescriptorProto]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'value' @:: Lens' EnumDescriptorProto (Data.Vector.Vector EnumValueDescriptorProto)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' EnumDescriptorProto EnumOptions@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' EnumDescriptorProto (Prelude.Maybe EnumOptions)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.reservedRange' @:: Lens' EnumDescriptorProto [EnumDescriptorProto'EnumReservedRange]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'reservedRange' @:: Lens' EnumDescriptorProto (Data.Vector.Vector EnumDescriptorProto'EnumReservedRange)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.reservedName' @:: Lens' EnumDescriptorProto [Data.Text.Text]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'reservedName' @:: Lens' EnumDescriptorProto (Data.Vector.Vector Data.Text.Text)@ -}
data EnumDescriptorProto
  = EnumDescriptorProto'_constructor {EnumDescriptorProto -> Maybe Text
_EnumDescriptorProto'name :: !(Prelude.Maybe Data.Text.Text),
                                      EnumDescriptorProto -> Vector EnumValueDescriptorProto
_EnumDescriptorProto'value :: !(Data.Vector.Vector EnumValueDescriptorProto),
                                      EnumDescriptorProto -> Maybe EnumOptions
_EnumDescriptorProto'options :: !(Prelude.Maybe EnumOptions),
                                      EnumDescriptorProto -> Vector EnumDescriptorProto'EnumReservedRange
_EnumDescriptorProto'reservedRange :: !(Data.Vector.Vector EnumDescriptorProto'EnumReservedRange),
                                      EnumDescriptorProto -> Vector Text
_EnumDescriptorProto'reservedName :: !(Data.Vector.Vector Data.Text.Text),
                                      EnumDescriptorProto -> FieldSet
_EnumDescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (EnumDescriptorProto -> EnumDescriptorProto -> Bool
(EnumDescriptorProto -> EnumDescriptorProto -> Bool)
-> (EnumDescriptorProto -> EnumDescriptorProto -> Bool)
-> Eq EnumDescriptorProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumDescriptorProto -> EnumDescriptorProto -> Bool
$c/= :: EnumDescriptorProto -> EnumDescriptorProto -> Bool
== :: EnumDescriptorProto -> EnumDescriptorProto -> Bool
$c== :: EnumDescriptorProto -> EnumDescriptorProto -> Bool
Prelude.Eq, Eq EnumDescriptorProto
Eq EnumDescriptorProto =>
(EnumDescriptorProto -> EnumDescriptorProto -> Ordering)
-> (EnumDescriptorProto -> EnumDescriptorProto -> Bool)
-> (EnumDescriptorProto -> EnumDescriptorProto -> Bool)
-> (EnumDescriptorProto -> EnumDescriptorProto -> Bool)
-> (EnumDescriptorProto -> EnumDescriptorProto -> Bool)
-> (EnumDescriptorProto
    -> EnumDescriptorProto -> EnumDescriptorProto)
-> (EnumDescriptorProto
    -> EnumDescriptorProto -> EnumDescriptorProto)
-> Ord EnumDescriptorProto
EnumDescriptorProto -> EnumDescriptorProto -> Bool
EnumDescriptorProto -> EnumDescriptorProto -> Ordering
EnumDescriptorProto -> EnumDescriptorProto -> EnumDescriptorProto
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: EnumDescriptorProto -> EnumDescriptorProto -> EnumDescriptorProto
$cmin :: EnumDescriptorProto -> EnumDescriptorProto -> EnumDescriptorProto
max :: EnumDescriptorProto -> EnumDescriptorProto -> EnumDescriptorProto
$cmax :: EnumDescriptorProto -> EnumDescriptorProto -> EnumDescriptorProto
>= :: EnumDescriptorProto -> EnumDescriptorProto -> Bool
$c>= :: EnumDescriptorProto -> EnumDescriptorProto -> Bool
> :: EnumDescriptorProto -> EnumDescriptorProto -> Bool
$c> :: EnumDescriptorProto -> EnumDescriptorProto -> Bool
<= :: EnumDescriptorProto -> EnumDescriptorProto -> Bool
$c<= :: EnumDescriptorProto -> EnumDescriptorProto -> Bool
< :: EnumDescriptorProto -> EnumDescriptorProto -> Bool
$c< :: EnumDescriptorProto -> EnumDescriptorProto -> Bool
compare :: EnumDescriptorProto -> EnumDescriptorProto -> Ordering
$ccompare :: EnumDescriptorProto -> EnumDescriptorProto -> Ordering
$cp1Ord :: Eq EnumDescriptorProto
Prelude.Ord)
instance Prelude.Show EnumDescriptorProto where
  showsPrec :: Int -> EnumDescriptorProto -> ShowS
showsPrec _ __x :: EnumDescriptorProto
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (EnumDescriptorProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EnumDescriptorProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField EnumDescriptorProto "name" Data.Text.Text where
  fieldOf :: Proxy# "name"
-> (Text -> f Text) -> EnumDescriptorProto -> f EnumDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> EnumDescriptorProto -> f EnumDescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> EnumDescriptorProto
-> f EnumDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumDescriptorProto -> Maybe Text)
-> (EnumDescriptorProto -> Maybe Text -> EnumDescriptorProto)
-> Lens
     EnumDescriptorProto EnumDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumDescriptorProto -> Maybe Text
_EnumDescriptorProto'name
           (\ x__ :: EnumDescriptorProto
x__ y__ :: Maybe Text
y__ -> EnumDescriptorProto
x__ {_EnumDescriptorProto'name :: Maybe Text
_EnumDescriptorProto'name = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField EnumDescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'name"
-> (Maybe Text -> f (Maybe Text))
-> EnumDescriptorProto
-> f EnumDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> EnumDescriptorProto -> f EnumDescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> EnumDescriptorProto
-> f EnumDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumDescriptorProto -> Maybe Text)
-> (EnumDescriptorProto -> Maybe Text -> EnumDescriptorProto)
-> Lens
     EnumDescriptorProto EnumDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumDescriptorProto -> Maybe Text
_EnumDescriptorProto'name
           (\ x__ :: EnumDescriptorProto
x__ y__ :: Maybe Text
y__ -> EnumDescriptorProto
x__ {_EnumDescriptorProto'name :: Maybe Text
_EnumDescriptorProto'name = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EnumDescriptorProto "value" [EnumValueDescriptorProto] where
  fieldOf :: Proxy# "value"
-> ([EnumValueDescriptorProto] -> f [EnumValueDescriptorProto])
-> EnumDescriptorProto
-> f EnumDescriptorProto
fieldOf _
    = ((Vector EnumValueDescriptorProto
  -> f (Vector EnumValueDescriptorProto))
 -> EnumDescriptorProto -> f EnumDescriptorProto)
-> (([EnumValueDescriptorProto] -> f [EnumValueDescriptorProto])
    -> Vector EnumValueDescriptorProto
    -> f (Vector EnumValueDescriptorProto))
-> ([EnumValueDescriptorProto] -> f [EnumValueDescriptorProto])
-> EnumDescriptorProto
-> f EnumDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumDescriptorProto -> Vector EnumValueDescriptorProto)
-> (EnumDescriptorProto
    -> Vector EnumValueDescriptorProto -> EnumDescriptorProto)
-> Lens
     EnumDescriptorProto
     EnumDescriptorProto
     (Vector EnumValueDescriptorProto)
     (Vector EnumValueDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumDescriptorProto -> Vector EnumValueDescriptorProto
_EnumDescriptorProto'value
           (\ x__ :: EnumDescriptorProto
x__ y__ :: Vector EnumValueDescriptorProto
y__ -> EnumDescriptorProto
x__ {_EnumDescriptorProto'value :: Vector EnumValueDescriptorProto
_EnumDescriptorProto'value = Vector EnumValueDescriptorProto
y__}))
        ((Vector EnumValueDescriptorProto -> [EnumValueDescriptorProto])
-> (Vector EnumValueDescriptorProto
    -> [EnumValueDescriptorProto] -> Vector EnumValueDescriptorProto)
-> Lens
     (Vector EnumValueDescriptorProto)
     (Vector EnumValueDescriptorProto)
     [EnumValueDescriptorProto]
     [EnumValueDescriptorProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector EnumValueDescriptorProto -> [EnumValueDescriptorProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [EnumValueDescriptorProto]
y__ -> [EnumValueDescriptorProto] -> Vector EnumValueDescriptorProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [EnumValueDescriptorProto]
y__))
instance Data.ProtoLens.Field.HasField EnumDescriptorProto "vec'value" (Data.Vector.Vector EnumValueDescriptorProto) where
  fieldOf :: Proxy# "vec'value"
-> (Vector EnumValueDescriptorProto
    -> f (Vector EnumValueDescriptorProto))
-> EnumDescriptorProto
-> f EnumDescriptorProto
fieldOf _
    = ((Vector EnumValueDescriptorProto
  -> f (Vector EnumValueDescriptorProto))
 -> EnumDescriptorProto -> f EnumDescriptorProto)
-> ((Vector EnumValueDescriptorProto
     -> f (Vector EnumValueDescriptorProto))
    -> Vector EnumValueDescriptorProto
    -> f (Vector EnumValueDescriptorProto))
-> (Vector EnumValueDescriptorProto
    -> f (Vector EnumValueDescriptorProto))
-> EnumDescriptorProto
-> f EnumDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumDescriptorProto -> Vector EnumValueDescriptorProto)
-> (EnumDescriptorProto
    -> Vector EnumValueDescriptorProto -> EnumDescriptorProto)
-> Lens
     EnumDescriptorProto
     EnumDescriptorProto
     (Vector EnumValueDescriptorProto)
     (Vector EnumValueDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumDescriptorProto -> Vector EnumValueDescriptorProto
_EnumDescriptorProto'value
           (\ x__ :: EnumDescriptorProto
x__ y__ :: Vector EnumValueDescriptorProto
y__ -> EnumDescriptorProto
x__ {_EnumDescriptorProto'value :: Vector EnumValueDescriptorProto
_EnumDescriptorProto'value = Vector EnumValueDescriptorProto
y__}))
        (Vector EnumValueDescriptorProto
 -> f (Vector EnumValueDescriptorProto))
-> Vector EnumValueDescriptorProto
-> f (Vector EnumValueDescriptorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EnumDescriptorProto "options" EnumOptions where
  fieldOf :: Proxy# "options"
-> (EnumOptions -> f EnumOptions)
-> EnumDescriptorProto
-> f EnumDescriptorProto
fieldOf _
    = ((Maybe EnumOptions -> f (Maybe EnumOptions))
 -> EnumDescriptorProto -> f EnumDescriptorProto)
-> ((EnumOptions -> f EnumOptions)
    -> Maybe EnumOptions -> f (Maybe EnumOptions))
-> (EnumOptions -> f EnumOptions)
-> EnumDescriptorProto
-> f EnumDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumDescriptorProto -> Maybe EnumOptions)
-> (EnumDescriptorProto
    -> Maybe EnumOptions -> EnumDescriptorProto)
-> Lens
     EnumDescriptorProto
     EnumDescriptorProto
     (Maybe EnumOptions)
     (Maybe EnumOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumDescriptorProto -> Maybe EnumOptions
_EnumDescriptorProto'options
           (\ x__ :: EnumDescriptorProto
x__ y__ :: Maybe EnumOptions
y__ -> EnumDescriptorProto
x__ {_EnumDescriptorProto'options :: Maybe EnumOptions
_EnumDescriptorProto'options = Maybe EnumOptions
y__}))
        (EnumOptions -> Lens' (Maybe EnumOptions) EnumOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens EnumOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField EnumDescriptorProto "maybe'options" (Prelude.Maybe EnumOptions) where
  fieldOf :: Proxy# "maybe'options"
-> (Maybe EnumOptions -> f (Maybe EnumOptions))
-> EnumDescriptorProto
-> f EnumDescriptorProto
fieldOf _
    = ((Maybe EnumOptions -> f (Maybe EnumOptions))
 -> EnumDescriptorProto -> f EnumDescriptorProto)
-> ((Maybe EnumOptions -> f (Maybe EnumOptions))
    -> Maybe EnumOptions -> f (Maybe EnumOptions))
-> (Maybe EnumOptions -> f (Maybe EnumOptions))
-> EnumDescriptorProto
-> f EnumDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumDescriptorProto -> Maybe EnumOptions)
-> (EnumDescriptorProto
    -> Maybe EnumOptions -> EnumDescriptorProto)
-> Lens
     EnumDescriptorProto
     EnumDescriptorProto
     (Maybe EnumOptions)
     (Maybe EnumOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumDescriptorProto -> Maybe EnumOptions
_EnumDescriptorProto'options
           (\ x__ :: EnumDescriptorProto
x__ y__ :: Maybe EnumOptions
y__ -> EnumDescriptorProto
x__ {_EnumDescriptorProto'options :: Maybe EnumOptions
_EnumDescriptorProto'options = Maybe EnumOptions
y__}))
        (Maybe EnumOptions -> f (Maybe EnumOptions))
-> Maybe EnumOptions -> f (Maybe EnumOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EnumDescriptorProto "reservedRange" [EnumDescriptorProto'EnumReservedRange] where
  fieldOf :: Proxy# "reservedRange"
-> ([EnumDescriptorProto'EnumReservedRange]
    -> f [EnumDescriptorProto'EnumReservedRange])
-> EnumDescriptorProto
-> f EnumDescriptorProto
fieldOf _
    = ((Vector EnumDescriptorProto'EnumReservedRange
  -> f (Vector EnumDescriptorProto'EnumReservedRange))
 -> EnumDescriptorProto -> f EnumDescriptorProto)
-> (([EnumDescriptorProto'EnumReservedRange]
     -> f [EnumDescriptorProto'EnumReservedRange])
    -> Vector EnumDescriptorProto'EnumReservedRange
    -> f (Vector EnumDescriptorProto'EnumReservedRange))
-> ([EnumDescriptorProto'EnumReservedRange]
    -> f [EnumDescriptorProto'EnumReservedRange])
-> EnumDescriptorProto
-> f EnumDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumDescriptorProto
 -> Vector EnumDescriptorProto'EnumReservedRange)
-> (EnumDescriptorProto
    -> Vector EnumDescriptorProto'EnumReservedRange
    -> EnumDescriptorProto)
-> Lens
     EnumDescriptorProto
     EnumDescriptorProto
     (Vector EnumDescriptorProto'EnumReservedRange)
     (Vector EnumDescriptorProto'EnumReservedRange)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumDescriptorProto -> Vector EnumDescriptorProto'EnumReservedRange
_EnumDescriptorProto'reservedRange
           (\ x__ :: EnumDescriptorProto
x__ y__ :: Vector EnumDescriptorProto'EnumReservedRange
y__ -> EnumDescriptorProto
x__ {_EnumDescriptorProto'reservedRange :: Vector EnumDescriptorProto'EnumReservedRange
_EnumDescriptorProto'reservedRange = Vector EnumDescriptorProto'EnumReservedRange
y__}))
        ((Vector EnumDescriptorProto'EnumReservedRange
 -> [EnumDescriptorProto'EnumReservedRange])
-> (Vector EnumDescriptorProto'EnumReservedRange
    -> [EnumDescriptorProto'EnumReservedRange]
    -> Vector EnumDescriptorProto'EnumReservedRange)
-> Lens
     (Vector EnumDescriptorProto'EnumReservedRange)
     (Vector EnumDescriptorProto'EnumReservedRange)
     [EnumDescriptorProto'EnumReservedRange]
     [EnumDescriptorProto'EnumReservedRange]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector EnumDescriptorProto'EnumReservedRange
-> [EnumDescriptorProto'EnumReservedRange]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [EnumDescriptorProto'EnumReservedRange]
y__ -> [EnumDescriptorProto'EnumReservedRange]
-> Vector EnumDescriptorProto'EnumReservedRange
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [EnumDescriptorProto'EnumReservedRange]
y__))
instance Data.ProtoLens.Field.HasField EnumDescriptorProto "vec'reservedRange" (Data.Vector.Vector EnumDescriptorProto'EnumReservedRange) where
  fieldOf :: Proxy# "vec'reservedRange"
-> (Vector EnumDescriptorProto'EnumReservedRange
    -> f (Vector EnumDescriptorProto'EnumReservedRange))
-> EnumDescriptorProto
-> f EnumDescriptorProto
fieldOf _
    = ((Vector EnumDescriptorProto'EnumReservedRange
  -> f (Vector EnumDescriptorProto'EnumReservedRange))
 -> EnumDescriptorProto -> f EnumDescriptorProto)
-> ((Vector EnumDescriptorProto'EnumReservedRange
     -> f (Vector EnumDescriptorProto'EnumReservedRange))
    -> Vector EnumDescriptorProto'EnumReservedRange
    -> f (Vector EnumDescriptorProto'EnumReservedRange))
-> (Vector EnumDescriptorProto'EnumReservedRange
    -> f (Vector EnumDescriptorProto'EnumReservedRange))
-> EnumDescriptorProto
-> f EnumDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumDescriptorProto
 -> Vector EnumDescriptorProto'EnumReservedRange)
-> (EnumDescriptorProto
    -> Vector EnumDescriptorProto'EnumReservedRange
    -> EnumDescriptorProto)
-> Lens
     EnumDescriptorProto
     EnumDescriptorProto
     (Vector EnumDescriptorProto'EnumReservedRange)
     (Vector EnumDescriptorProto'EnumReservedRange)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumDescriptorProto -> Vector EnumDescriptorProto'EnumReservedRange
_EnumDescriptorProto'reservedRange
           (\ x__ :: EnumDescriptorProto
x__ y__ :: Vector EnumDescriptorProto'EnumReservedRange
y__ -> EnumDescriptorProto
x__ {_EnumDescriptorProto'reservedRange :: Vector EnumDescriptorProto'EnumReservedRange
_EnumDescriptorProto'reservedRange = Vector EnumDescriptorProto'EnumReservedRange
y__}))
        (Vector EnumDescriptorProto'EnumReservedRange
 -> f (Vector EnumDescriptorProto'EnumReservedRange))
-> Vector EnumDescriptorProto'EnumReservedRange
-> f (Vector EnumDescriptorProto'EnumReservedRange)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EnumDescriptorProto "reservedName" [Data.Text.Text] where
  fieldOf :: Proxy# "reservedName"
-> ([Text] -> f [Text])
-> EnumDescriptorProto
-> f EnumDescriptorProto
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> EnumDescriptorProto -> f EnumDescriptorProto)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> EnumDescriptorProto
-> f EnumDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumDescriptorProto -> Vector Text)
-> (EnumDescriptorProto -> Vector Text -> EnumDescriptorProto)
-> Lens
     EnumDescriptorProto EnumDescriptorProto (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumDescriptorProto -> Vector Text
_EnumDescriptorProto'reservedName
           (\ x__ :: EnumDescriptorProto
x__ y__ :: Vector Text
y__ -> EnumDescriptorProto
x__ {_EnumDescriptorProto'reservedName :: Vector Text
_EnumDescriptorProto'reservedName = Vector Text
y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField EnumDescriptorProto "vec'reservedName" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: Proxy# "vec'reservedName"
-> (Vector Text -> f (Vector Text))
-> EnumDescriptorProto
-> f EnumDescriptorProto
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> EnumDescriptorProto -> f EnumDescriptorProto)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> EnumDescriptorProto
-> f EnumDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumDescriptorProto -> Vector Text)
-> (EnumDescriptorProto -> Vector Text -> EnumDescriptorProto)
-> Lens
     EnumDescriptorProto EnumDescriptorProto (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumDescriptorProto -> Vector Text
_EnumDescriptorProto'reservedName
           (\ x__ :: EnumDescriptorProto
x__ y__ :: Vector Text
y__ -> EnumDescriptorProto
x__ {_EnumDescriptorProto'reservedName :: Vector Text
_EnumDescriptorProto'reservedName = Vector Text
y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message EnumDescriptorProto where
  messageName :: Proxy EnumDescriptorProto -> Text
messageName _
    = String -> Text
Data.Text.pack "google.protobuf.EnumDescriptorProto"
  fieldsByTag :: Map Tag (FieldDescriptor EnumDescriptorProto)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor EnumDescriptorProto
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor EnumDescriptorProto Text
-> FieldDescriptor EnumDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  EnumDescriptorProto EnumDescriptorProto (Maybe Text) (Maybe Text)
-> FieldAccessor EnumDescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name")) ::
              Data.ProtoLens.FieldDescriptor EnumDescriptorProto
        value__field_descriptor :: FieldDescriptor EnumDescriptorProto
value__field_descriptor
          = String
-> FieldTypeDescriptor EnumValueDescriptorProto
-> FieldAccessor EnumDescriptorProto EnumValueDescriptorProto
-> FieldDescriptor EnumDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (MessageOrGroup -> FieldTypeDescriptor EnumValueDescriptorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor EnumValueDescriptorProto)
              (Packing
-> Lens' EnumDescriptorProto [EnumValueDescriptorProto]
-> FieldAccessor EnumDescriptorProto EnumValueDescriptorProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor EnumDescriptorProto
        options__field_descriptor :: FieldDescriptor EnumDescriptorProto
options__field_descriptor
          = String
-> FieldTypeDescriptor EnumOptions
-> FieldAccessor EnumDescriptorProto EnumOptions
-> FieldDescriptor EnumDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "options"
              (MessageOrGroup -> FieldTypeDescriptor EnumOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor EnumOptions)
              (Lens
  EnumDescriptorProto
  EnumDescriptorProto
  (Maybe EnumOptions)
  (Maybe EnumOptions)
-> FieldAccessor EnumDescriptorProto EnumOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options")) ::
              Data.ProtoLens.FieldDescriptor EnumDescriptorProto
        reservedRange__field_descriptor :: FieldDescriptor EnumDescriptorProto
reservedRange__field_descriptor
          = String
-> FieldTypeDescriptor EnumDescriptorProto'EnumReservedRange
-> FieldAccessor
     EnumDescriptorProto EnumDescriptorProto'EnumReservedRange
-> FieldDescriptor EnumDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "reserved_range"
              (MessageOrGroup
-> FieldTypeDescriptor EnumDescriptorProto'EnumReservedRange
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor EnumDescriptorProto'EnumReservedRange)
              (Packing
-> Lens'
     EnumDescriptorProto [EnumDescriptorProto'EnumReservedRange]
-> FieldAccessor
     EnumDescriptorProto EnumDescriptorProto'EnumReservedRange
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "reservedRange" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"reservedRange")) ::
              Data.ProtoLens.FieldDescriptor EnumDescriptorProto
        reservedName__field_descriptor :: FieldDescriptor EnumDescriptorProto
reservedName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor EnumDescriptorProto Text
-> FieldDescriptor EnumDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "reserved_name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing
-> Lens' EnumDescriptorProto [Text]
-> FieldAccessor EnumDescriptorProto Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "reservedName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"reservedName")) ::
              Data.ProtoLens.FieldDescriptor EnumDescriptorProto
      in
        [(Tag, FieldDescriptor EnumDescriptorProto)]
-> Map Tag (FieldDescriptor EnumDescriptorProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor EnumDescriptorProto
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor EnumDescriptorProto
value__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor EnumDescriptorProto
options__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor EnumDescriptorProto
reservedRange__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor EnumDescriptorProto
reservedName__field_descriptor)]
  unknownFields :: LensLike' f EnumDescriptorProto FieldSet
unknownFields
    = (EnumDescriptorProto -> FieldSet)
-> (EnumDescriptorProto -> FieldSet -> EnumDescriptorProto)
-> Lens' EnumDescriptorProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EnumDescriptorProto -> FieldSet
_EnumDescriptorProto'_unknownFields
        (\ x__ :: EnumDescriptorProto
x__ y__ :: FieldSet
y__ -> EnumDescriptorProto
x__ {_EnumDescriptorProto'_unknownFields :: FieldSet
_EnumDescriptorProto'_unknownFields = FieldSet
y__})
  defMessage :: EnumDescriptorProto
defMessage
    = $WEnumDescriptorProto'_constructor :: Maybe Text
-> Vector EnumValueDescriptorProto
-> Maybe EnumOptions
-> Vector EnumDescriptorProto'EnumReservedRange
-> Vector Text
-> FieldSet
-> EnumDescriptorProto
EnumDescriptorProto'_constructor
        {_EnumDescriptorProto'name :: Maybe Text
_EnumDescriptorProto'name = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _EnumDescriptorProto'value :: Vector EnumValueDescriptorProto
_EnumDescriptorProto'value = Vector EnumValueDescriptorProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _EnumDescriptorProto'options :: Maybe EnumOptions
_EnumDescriptorProto'options = Maybe EnumOptions
forall a. Maybe a
Prelude.Nothing,
         _EnumDescriptorProto'reservedRange :: Vector EnumDescriptorProto'EnumReservedRange
_EnumDescriptorProto'reservedRange = Vector EnumDescriptorProto'EnumReservedRange
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _EnumDescriptorProto'reservedName :: Vector Text
_EnumDescriptorProto'reservedName = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _EnumDescriptorProto'_unknownFields :: FieldSet
_EnumDescriptorProto'_unknownFields = []}
  parseMessage :: Parser EnumDescriptorProto
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 :: EnumDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
-> Growing Vector RealWorld EnumValueDescriptorProto
-> Parser EnumDescriptorProto
loop x :: EnumDescriptorProto
x mutable'reservedName :: Growing Vector RealWorld Text
mutable'reservedName mutable'reservedRange :: Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
mutable'reservedRange mutable'value :: Growing Vector RealWorld EnumValueDescriptorProto
mutable'value
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Text
frozen'reservedName <- IO (Vector Text) -> Parser (Vector Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               (Growing Vector (PrimState IO) Text -> IO (Vector Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                  Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'reservedName)
                      Vector EnumDescriptorProto'EnumReservedRange
frozen'reservedRange <- IO (Vector EnumDescriptorProto'EnumReservedRange)
-> Parser (Vector EnumDescriptorProto'EnumReservedRange)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                (Growing Vector (PrimState IO) EnumDescriptorProto'EnumReservedRange
-> IO (Vector EnumDescriptorProto'EnumReservedRange)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                   Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
Growing Vector (PrimState IO) EnumDescriptorProto'EnumReservedRange
mutable'reservedRange)
                      Vector EnumValueDescriptorProto
frozen'value <- IO (Vector EnumValueDescriptorProto)
-> Parser (Vector EnumValueDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) EnumValueDescriptorProto
-> IO (Vector EnumValueDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld EnumValueDescriptorProto
Growing Vector (PrimState IO) EnumValueDescriptorProto
mutable'value)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      EnumDescriptorProto -> Parser EnumDescriptorProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter EnumDescriptorProto EnumDescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> EnumDescriptorProto
-> EnumDescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter EnumDescriptorProto EnumDescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  EnumDescriptorProto EnumDescriptorProto (Vector Text) (Vector Text)
-> Vector Text -> EnumDescriptorProto -> EnumDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'reservedName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'reservedName")
                              Vector Text
frozen'reservedName
                              (Setter
  EnumDescriptorProto
  EnumDescriptorProto
  (Vector EnumDescriptorProto'EnumReservedRange)
  (Vector EnumDescriptorProto'EnumReservedRange)
-> Vector EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto
-> EnumDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                 (forall s a (f :: * -> *).
(HasField s "vec'reservedRange" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'reservedRange")
                                 Vector EnumDescriptorProto'EnumReservedRange
frozen'reservedRange
                                 (Setter
  EnumDescriptorProto
  EnumDescriptorProto
  (Vector EnumValueDescriptorProto)
  (Vector EnumValueDescriptorProto)
-> Vector EnumValueDescriptorProto
-> EnumDescriptorProto
-> EnumDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                    (forall s a (f :: * -> *).
(HasField s "vec'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'value") Vector EnumValueDescriptorProto
frozen'value EnumDescriptorProto
x))))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "name"
                                EnumDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
-> Growing Vector RealWorld EnumValueDescriptorProto
-> Parser EnumDescriptorProto
loop
                                  (Setter EnumDescriptorProto EnumDescriptorProto Text Text
-> Text -> EnumDescriptorProto -> EnumDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y EnumDescriptorProto
x)
                                  Growing Vector RealWorld Text
mutable'reservedName
                                  Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
mutable'reservedRange
                                  Growing Vector RealWorld EnumValueDescriptorProto
mutable'value
                        18
                          -> do !EnumValueDescriptorProto
y <- Parser EnumValueDescriptorProto
-> String -> Parser EnumValueDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int
-> Parser EnumValueDescriptorProto
-> Parser EnumValueDescriptorProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser EnumValueDescriptorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "value"
                                Growing Vector RealWorld EnumValueDescriptorProto
v <- IO (Growing Vector RealWorld EnumValueDescriptorProto)
-> Parser (Growing Vector RealWorld EnumValueDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) EnumValueDescriptorProto
-> EnumValueDescriptorProto
-> IO (Growing Vector (PrimState IO) EnumValueDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld EnumValueDescriptorProto
Growing Vector (PrimState IO) EnumValueDescriptorProto
mutable'value EnumValueDescriptorProto
y)
                                EnumDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
-> Growing Vector RealWorld EnumValueDescriptorProto
-> Parser EnumDescriptorProto
loop EnumDescriptorProto
x Growing Vector RealWorld Text
mutable'reservedName Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
mutable'reservedRange Growing Vector RealWorld EnumValueDescriptorProto
v
                        26
                          -> do EnumOptions
y <- Parser EnumOptions -> String -> Parser EnumOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser EnumOptions -> Parser EnumOptions
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser EnumOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "options"
                                EnumDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
-> Growing Vector RealWorld EnumValueDescriptorProto
-> Parser EnumDescriptorProto
loop
                                  (Setter
  EnumDescriptorProto EnumDescriptorProto EnumOptions EnumOptions
-> EnumOptions -> EnumDescriptorProto -> EnumDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"options") EnumOptions
y EnumDescriptorProto
x)
                                  Growing Vector RealWorld Text
mutable'reservedName
                                  Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
mutable'reservedRange
                                  Growing Vector RealWorld EnumValueDescriptorProto
mutable'value
                        34
                          -> do !EnumDescriptorProto'EnumReservedRange
y <- Parser EnumDescriptorProto'EnumReservedRange
-> String -> Parser EnumDescriptorProto'EnumReservedRange
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int
-> Parser EnumDescriptorProto'EnumReservedRange
-> Parser EnumDescriptorProto'EnumReservedRange
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser EnumDescriptorProto'EnumReservedRange
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "reserved_range"
                                Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
v <- IO (Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange)
-> Parser
     (Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange
-> IO
     (Growing
        Vector (PrimState IO) EnumDescriptorProto'EnumReservedRange)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
Growing Vector (PrimState IO) EnumDescriptorProto'EnumReservedRange
mutable'reservedRange EnumDescriptorProto'EnumReservedRange
y)
                                EnumDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
-> Growing Vector RealWorld EnumValueDescriptorProto
-> Parser EnumDescriptorProto
loop EnumDescriptorProto
x Growing Vector RealWorld Text
mutable'reservedName Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
v Growing Vector RealWorld EnumValueDescriptorProto
mutable'value
                        42
                          -> do !Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                        Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                            Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                              (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                 (Prelude.Left err :: UnicodeException
err)
                                                   -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                 (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                        "reserved_name"
                                Growing Vector RealWorld Text
v <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Text
-> Text -> IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'reservedName Text
y)
                                EnumDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
-> Growing Vector RealWorld EnumValueDescriptorProto
-> Parser EnumDescriptorProto
loop EnumDescriptorProto
x Growing Vector RealWorld Text
v Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
mutable'reservedRange Growing Vector RealWorld EnumValueDescriptorProto
mutable'value
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                EnumDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
-> Growing Vector RealWorld EnumValueDescriptorProto
-> Parser EnumDescriptorProto
loop
                                  (Setter EnumDescriptorProto EnumDescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> EnumDescriptorProto
-> EnumDescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter EnumDescriptorProto EnumDescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) EnumDescriptorProto
x)
                                  Growing Vector RealWorld Text
mutable'reservedName
                                  Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
mutable'reservedRange
                                  Growing Vector RealWorld EnumValueDescriptorProto
mutable'value
      in
        Parser EnumDescriptorProto -> String -> Parser EnumDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Text
mutable'reservedName <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        IO (Growing Vector RealWorld Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
mutable'reservedRange <- IO (Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange)
-> Parser
     (Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         IO (Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld EnumValueDescriptorProto
mutable'value <- IO (Growing Vector RealWorld EnumValueDescriptorProto)
-> Parser (Growing Vector RealWorld EnumValueDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld EnumValueDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              EnumDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
-> Growing Vector RealWorld EnumValueDescriptorProto
-> Parser EnumDescriptorProto
loop
                EnumDescriptorProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage
                Growing Vector RealWorld Text
mutable'reservedName
                Growing Vector RealWorld EnumDescriptorProto'EnumReservedRange
mutable'reservedRange
                Growing Vector RealWorld EnumValueDescriptorProto
mutable'value)
          "EnumDescriptorProto"
  buildMessage :: EnumDescriptorProto -> Builder
buildMessage
    = \ _x :: EnumDescriptorProto
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Text)
  EnumDescriptorProto
  EnumDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> EnumDescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name") EnumDescriptorProto
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Text
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Text -> ByteString
Data.Text.Encoding.encodeUtf8
                          Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((EnumValueDescriptorProto -> Builder)
-> Vector EnumValueDescriptorProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ _v :: EnumValueDescriptorProto
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                           ((ByteString -> Builder)
-> (EnumValueDescriptorProto -> ByteString)
-> EnumValueDescriptorProto
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                              (\ bs :: ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                              EnumValueDescriptorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                              EnumValueDescriptorProto
_v))
                   (FoldLike
  (Vector EnumValueDescriptorProto)
  EnumDescriptorProto
  EnumDescriptorProto
  (Vector EnumValueDescriptorProto)
  (Vector EnumValueDescriptorProto)
-> EnumDescriptorProto -> Vector EnumValueDescriptorProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'value") EnumDescriptorProto
_x))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe EnumOptions)
  EnumDescriptorProto
  EnumDescriptorProto
  (Maybe EnumOptions)
  (Maybe EnumOptions)
-> EnumDescriptorProto -> Maybe EnumOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options") EnumDescriptorProto
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: EnumOptions
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                             ((ByteString -> Builder)
-> (EnumOptions -> ByteString) -> EnumOptions -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ bs :: ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                EnumOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                EnumOptions
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      ((EnumDescriptorProto'EnumReservedRange -> Builder)
-> Vector EnumDescriptorProto'EnumReservedRange -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                         (\ _v :: EnumDescriptorProto'EnumReservedRange
_v
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
                                 ((ByteString -> Builder)
-> (EnumDescriptorProto'EnumReservedRange -> ByteString)
-> EnumDescriptorProto'EnumReservedRange
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                    (\ bs :: ByteString
bs
                                       -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                               (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                            (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                    EnumDescriptorProto'EnumReservedRange -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                    EnumDescriptorProto'EnumReservedRange
_v))
                         (FoldLike
  (Vector EnumDescriptorProto'EnumReservedRange)
  EnumDescriptorProto
  EnumDescriptorProto
  (Vector EnumDescriptorProto'EnumReservedRange)
  (Vector EnumDescriptorProto'EnumReservedRange)
-> EnumDescriptorProto
-> Vector EnumDescriptorProto'EnumReservedRange
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                            (forall s a (f :: * -> *).
(HasField s "vec'reservedRange" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'reservedRange") EnumDescriptorProto
_x))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                            (\ _v :: Text
_v
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
                                    ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                       (\ bs :: ByteString
bs
                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                     (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                       Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                       Text
_v))
                            (FoldLike
  (Vector Text)
  EnumDescriptorProto
  EnumDescriptorProto
  (Vector Text)
  (Vector Text)
-> EnumDescriptorProto -> Vector Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                               (forall s a (f :: * -> *).
(HasField s "vec'reservedName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'reservedName") EnumDescriptorProto
_x))
                         (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                            (FoldLike
  FieldSet EnumDescriptorProto EnumDescriptorProto FieldSet FieldSet
-> EnumDescriptorProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet EnumDescriptorProto EnumDescriptorProto FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields EnumDescriptorProto
_x))))))
instance Control.DeepSeq.NFData EnumDescriptorProto where
  rnf :: EnumDescriptorProto -> ()
rnf
    = \ x__ :: EnumDescriptorProto
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EnumDescriptorProto -> FieldSet
_EnumDescriptorProto'_unknownFields EnumDescriptorProto
x__)
             (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (EnumDescriptorProto -> Maybe Text
_EnumDescriptorProto'name EnumDescriptorProto
x__)
                (Vector EnumValueDescriptorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (EnumDescriptorProto -> Vector EnumValueDescriptorProto
_EnumDescriptorProto'value EnumDescriptorProto
x__)
                   (Maybe EnumOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (EnumDescriptorProto -> Maybe EnumOptions
_EnumDescriptorProto'options EnumDescriptorProto
x__)
                      (Vector EnumDescriptorProto'EnumReservedRange -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (EnumDescriptorProto -> Vector EnumDescriptorProto'EnumReservedRange
_EnumDescriptorProto'reservedRange EnumDescriptorProto
x__)
                         (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (EnumDescriptorProto -> Vector Text
_EnumDescriptorProto'reservedName EnumDescriptorProto
x__) ())))))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.start' @:: Lens' EnumDescriptorProto'EnumReservedRange Data.Int.Int32@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'start' @:: Lens' EnumDescriptorProto'EnumReservedRange (Prelude.Maybe Data.Int.Int32)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.end' @:: Lens' EnumDescriptorProto'EnumReservedRange Data.Int.Int32@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'end' @:: Lens' EnumDescriptorProto'EnumReservedRange (Prelude.Maybe Data.Int.Int32)@ -}
data EnumDescriptorProto'EnumReservedRange
  = EnumDescriptorProto'EnumReservedRange'_constructor {EnumDescriptorProto'EnumReservedRange -> Maybe Int32
_EnumDescriptorProto'EnumReservedRange'start :: !(Prelude.Maybe Data.Int.Int32),
                                                        EnumDescriptorProto'EnumReservedRange -> Maybe Int32
_EnumDescriptorProto'EnumReservedRange'end :: !(Prelude.Maybe Data.Int.Int32),
                                                        EnumDescriptorProto'EnumReservedRange -> FieldSet
_EnumDescriptorProto'EnumReservedRange'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Bool
(EnumDescriptorProto'EnumReservedRange
 -> EnumDescriptorProto'EnumReservedRange -> Bool)
-> (EnumDescriptorProto'EnumReservedRange
    -> EnumDescriptorProto'EnumReservedRange -> Bool)
-> Eq EnumDescriptorProto'EnumReservedRange
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Bool
$c/= :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Bool
== :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Bool
$c== :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Bool
Prelude.Eq, Eq EnumDescriptorProto'EnumReservedRange
Eq EnumDescriptorProto'EnumReservedRange =>
(EnumDescriptorProto'EnumReservedRange
 -> EnumDescriptorProto'EnumReservedRange -> Ordering)
-> (EnumDescriptorProto'EnumReservedRange
    -> EnumDescriptorProto'EnumReservedRange -> Bool)
-> (EnumDescriptorProto'EnumReservedRange
    -> EnumDescriptorProto'EnumReservedRange -> Bool)
-> (EnumDescriptorProto'EnumReservedRange
    -> EnumDescriptorProto'EnumReservedRange -> Bool)
-> (EnumDescriptorProto'EnumReservedRange
    -> EnumDescriptorProto'EnumReservedRange -> Bool)
-> (EnumDescriptorProto'EnumReservedRange
    -> EnumDescriptorProto'EnumReservedRange
    -> EnumDescriptorProto'EnumReservedRange)
-> (EnumDescriptorProto'EnumReservedRange
    -> EnumDescriptorProto'EnumReservedRange
    -> EnumDescriptorProto'EnumReservedRange)
-> Ord EnumDescriptorProto'EnumReservedRange
EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Bool
EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Ordering
EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange
$cmin :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange
max :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange
$cmax :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange
>= :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Bool
$c>= :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Bool
> :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Bool
$c> :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Bool
<= :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Bool
$c<= :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Bool
< :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Bool
$c< :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Bool
compare :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Ordering
$ccompare :: EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange -> Ordering
$cp1Ord :: Eq EnumDescriptorProto'EnumReservedRange
Prelude.Ord)
instance Prelude.Show EnumDescriptorProto'EnumReservedRange where
  showsPrec :: Int -> EnumDescriptorProto'EnumReservedRange -> ShowS
showsPrec _ __x :: EnumDescriptorProto'EnumReservedRange
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (EnumDescriptorProto'EnumReservedRange -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EnumDescriptorProto'EnumReservedRange
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField EnumDescriptorProto'EnumReservedRange "start" Data.Int.Int32 where
  fieldOf :: Proxy# "start"
-> (Int32 -> f Int32)
-> EnumDescriptorProto'EnumReservedRange
-> f EnumDescriptorProto'EnumReservedRange
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> EnumDescriptorProto'EnumReservedRange
 -> f EnumDescriptorProto'EnumReservedRange)
-> ((Int32 -> f Int32) -> Maybe Int32 -> f (Maybe Int32))
-> (Int32 -> f Int32)
-> EnumDescriptorProto'EnumReservedRange
-> f EnumDescriptorProto'EnumReservedRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumDescriptorProto'EnumReservedRange -> Maybe Int32)
-> (EnumDescriptorProto'EnumReservedRange
    -> Maybe Int32 -> EnumDescriptorProto'EnumReservedRange)
-> Lens
     EnumDescriptorProto'EnumReservedRange
     EnumDescriptorProto'EnumReservedRange
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumDescriptorProto'EnumReservedRange -> Maybe Int32
_EnumDescriptorProto'EnumReservedRange'start
           (\ x__ :: EnumDescriptorProto'EnumReservedRange
x__ y__ :: Maybe Int32
y__
              -> EnumDescriptorProto'EnumReservedRange
x__ {_EnumDescriptorProto'EnumReservedRange'start :: Maybe Int32
_EnumDescriptorProto'EnumReservedRange'start = Maybe Int32
y__}))
        (Int32 -> Lens' (Maybe Int32) Int32
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField EnumDescriptorProto'EnumReservedRange "maybe'start" (Prelude.Maybe Data.Int.Int32) where
  fieldOf :: Proxy# "maybe'start"
-> (Maybe Int32 -> f (Maybe Int32))
-> EnumDescriptorProto'EnumReservedRange
-> f EnumDescriptorProto'EnumReservedRange
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> EnumDescriptorProto'EnumReservedRange
 -> f EnumDescriptorProto'EnumReservedRange)
-> ((Maybe Int32 -> f (Maybe Int32))
    -> Maybe Int32 -> f (Maybe Int32))
-> (Maybe Int32 -> f (Maybe Int32))
-> EnumDescriptorProto'EnumReservedRange
-> f EnumDescriptorProto'EnumReservedRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumDescriptorProto'EnumReservedRange -> Maybe Int32)
-> (EnumDescriptorProto'EnumReservedRange
    -> Maybe Int32 -> EnumDescriptorProto'EnumReservedRange)
-> Lens
     EnumDescriptorProto'EnumReservedRange
     EnumDescriptorProto'EnumReservedRange
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumDescriptorProto'EnumReservedRange -> Maybe Int32
_EnumDescriptorProto'EnumReservedRange'start
           (\ x__ :: EnumDescriptorProto'EnumReservedRange
x__ y__ :: Maybe Int32
y__
              -> EnumDescriptorProto'EnumReservedRange
x__ {_EnumDescriptorProto'EnumReservedRange'start :: Maybe Int32
_EnumDescriptorProto'EnumReservedRange'start = Maybe Int32
y__}))
        (Maybe Int32 -> f (Maybe Int32)) -> Maybe Int32 -> f (Maybe Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EnumDescriptorProto'EnumReservedRange "end" Data.Int.Int32 where
  fieldOf :: Proxy# "end"
-> (Int32 -> f Int32)
-> EnumDescriptorProto'EnumReservedRange
-> f EnumDescriptorProto'EnumReservedRange
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> EnumDescriptorProto'EnumReservedRange
 -> f EnumDescriptorProto'EnumReservedRange)
-> ((Int32 -> f Int32) -> Maybe Int32 -> f (Maybe Int32))
-> (Int32 -> f Int32)
-> EnumDescriptorProto'EnumReservedRange
-> f EnumDescriptorProto'EnumReservedRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumDescriptorProto'EnumReservedRange -> Maybe Int32)
-> (EnumDescriptorProto'EnumReservedRange
    -> Maybe Int32 -> EnumDescriptorProto'EnumReservedRange)
-> Lens
     EnumDescriptorProto'EnumReservedRange
     EnumDescriptorProto'EnumReservedRange
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumDescriptorProto'EnumReservedRange -> Maybe Int32
_EnumDescriptorProto'EnumReservedRange'end
           (\ x__ :: EnumDescriptorProto'EnumReservedRange
x__ y__ :: Maybe Int32
y__
              -> EnumDescriptorProto'EnumReservedRange
x__ {_EnumDescriptorProto'EnumReservedRange'end :: Maybe Int32
_EnumDescriptorProto'EnumReservedRange'end = Maybe Int32
y__}))
        (Int32 -> Lens' (Maybe Int32) Int32
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField EnumDescriptorProto'EnumReservedRange "maybe'end" (Prelude.Maybe Data.Int.Int32) where
  fieldOf :: Proxy# "maybe'end"
-> (Maybe Int32 -> f (Maybe Int32))
-> EnumDescriptorProto'EnumReservedRange
-> f EnumDescriptorProto'EnumReservedRange
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> EnumDescriptorProto'EnumReservedRange
 -> f EnumDescriptorProto'EnumReservedRange)
-> ((Maybe Int32 -> f (Maybe Int32))
    -> Maybe Int32 -> f (Maybe Int32))
-> (Maybe Int32 -> f (Maybe Int32))
-> EnumDescriptorProto'EnumReservedRange
-> f EnumDescriptorProto'EnumReservedRange
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumDescriptorProto'EnumReservedRange -> Maybe Int32)
-> (EnumDescriptorProto'EnumReservedRange
    -> Maybe Int32 -> EnumDescriptorProto'EnumReservedRange)
-> Lens
     EnumDescriptorProto'EnumReservedRange
     EnumDescriptorProto'EnumReservedRange
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumDescriptorProto'EnumReservedRange -> Maybe Int32
_EnumDescriptorProto'EnumReservedRange'end
           (\ x__ :: EnumDescriptorProto'EnumReservedRange
x__ y__ :: Maybe Int32
y__
              -> EnumDescriptorProto'EnumReservedRange
x__ {_EnumDescriptorProto'EnumReservedRange'end :: Maybe Int32
_EnumDescriptorProto'EnumReservedRange'end = Maybe Int32
y__}))
        (Maybe Int32 -> f (Maybe Int32)) -> Maybe Int32 -> f (Maybe Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message EnumDescriptorProto'EnumReservedRange where
  messageName :: Proxy EnumDescriptorProto'EnumReservedRange -> Text
messageName _
    = String -> Text
Data.Text.pack
        "google.protobuf.EnumDescriptorProto.EnumReservedRange"
  fieldsByTag :: Map Tag (FieldDescriptor EnumDescriptorProto'EnumReservedRange)
fieldsByTag
    = let
        start__field_descriptor :: FieldDescriptor EnumDescriptorProto'EnumReservedRange
start__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor EnumDescriptorProto'EnumReservedRange Int32
-> FieldDescriptor EnumDescriptorProto'EnumReservedRange
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "start"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Lens
  EnumDescriptorProto'EnumReservedRange
  EnumDescriptorProto'EnumReservedRange
  (Maybe Int32)
  (Maybe Int32)
-> FieldAccessor EnumDescriptorProto'EnumReservedRange Int32
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'start" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'start")) ::
              Data.ProtoLens.FieldDescriptor EnumDescriptorProto'EnumReservedRange
        end__field_descriptor :: FieldDescriptor EnumDescriptorProto'EnumReservedRange
end__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor EnumDescriptorProto'EnumReservedRange Int32
-> FieldDescriptor EnumDescriptorProto'EnumReservedRange
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "end"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Lens
  EnumDescriptorProto'EnumReservedRange
  EnumDescriptorProto'EnumReservedRange
  (Maybe Int32)
  (Maybe Int32)
-> FieldAccessor EnumDescriptorProto'EnumReservedRange Int32
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'end" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'end")) ::
              Data.ProtoLens.FieldDescriptor EnumDescriptorProto'EnumReservedRange
      in
        [(Tag, FieldDescriptor EnumDescriptorProto'EnumReservedRange)]
-> Map Tag (FieldDescriptor EnumDescriptorProto'EnumReservedRange)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor EnumDescriptorProto'EnumReservedRange
start__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor EnumDescriptorProto'EnumReservedRange
end__field_descriptor)]
  unknownFields :: LensLike' f EnumDescriptorProto'EnumReservedRange FieldSet
unknownFields
    = (EnumDescriptorProto'EnumReservedRange -> FieldSet)
-> (EnumDescriptorProto'EnumReservedRange
    -> FieldSet -> EnumDescriptorProto'EnumReservedRange)
-> Lens' EnumDescriptorProto'EnumReservedRange FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EnumDescriptorProto'EnumReservedRange -> FieldSet
_EnumDescriptorProto'EnumReservedRange'_unknownFields
        (\ x__ :: EnumDescriptorProto'EnumReservedRange
x__ y__ :: FieldSet
y__
           -> EnumDescriptorProto'EnumReservedRange
x__
                {_EnumDescriptorProto'EnumReservedRange'_unknownFields :: FieldSet
_EnumDescriptorProto'EnumReservedRange'_unknownFields = FieldSet
y__})
  defMessage :: EnumDescriptorProto'EnumReservedRange
defMessage
    = $WEnumDescriptorProto'EnumReservedRange'_constructor :: Maybe Int32
-> Maybe Int32 -> FieldSet -> EnumDescriptorProto'EnumReservedRange
EnumDescriptorProto'EnumReservedRange'_constructor
        {_EnumDescriptorProto'EnumReservedRange'start :: Maybe Int32
_EnumDescriptorProto'EnumReservedRange'start = Maybe Int32
forall a. Maybe a
Prelude.Nothing,
         _EnumDescriptorProto'EnumReservedRange'end :: Maybe Int32
_EnumDescriptorProto'EnumReservedRange'end = Maybe Int32
forall a. Maybe a
Prelude.Nothing,
         _EnumDescriptorProto'EnumReservedRange'_unknownFields :: FieldSet
_EnumDescriptorProto'EnumReservedRange'_unknownFields = []}
  parseMessage :: Parser EnumDescriptorProto'EnumReservedRange
parseMessage
    = let
        loop ::
          EnumDescriptorProto'EnumReservedRange
          -> Data.ProtoLens.Encoding.Bytes.Parser EnumDescriptorProto'EnumReservedRange
        loop :: EnumDescriptorProto'EnumReservedRange
-> Parser EnumDescriptorProto'EnumReservedRange
loop x :: EnumDescriptorProto'EnumReservedRange
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      EnumDescriptorProto'EnumReservedRange
-> Parser EnumDescriptorProto'EnumReservedRange
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  EnumDescriptorProto'EnumReservedRange
  EnumDescriptorProto'EnumReservedRange
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  EnumDescriptorProto'EnumReservedRange
  EnumDescriptorProto'EnumReservedRange
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) EnumDescriptorProto'EnumReservedRange
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "start"
                                EnumDescriptorProto'EnumReservedRange
-> Parser EnumDescriptorProto'EnumReservedRange
loop (Setter
  EnumDescriptorProto'EnumReservedRange
  EnumDescriptorProto'EnumReservedRange
  Int32
  Int32
-> Int32
-> EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "start" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"start") Int32
y EnumDescriptorProto'EnumReservedRange
x)
                        16
                          -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "end"
                                EnumDescriptorProto'EnumReservedRange
-> Parser EnumDescriptorProto'EnumReservedRange
loop (Setter
  EnumDescriptorProto'EnumReservedRange
  EnumDescriptorProto'EnumReservedRange
  Int32
  Int32
-> Int32
-> EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "end" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"end") Int32
y EnumDescriptorProto'EnumReservedRange
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                EnumDescriptorProto'EnumReservedRange
-> Parser EnumDescriptorProto'EnumReservedRange
loop
                                  (Setter
  EnumDescriptorProto'EnumReservedRange
  EnumDescriptorProto'EnumReservedRange
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> EnumDescriptorProto'EnumReservedRange
-> EnumDescriptorProto'EnumReservedRange
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  EnumDescriptorProto'EnumReservedRange
  EnumDescriptorProto'EnumReservedRange
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) EnumDescriptorProto'EnumReservedRange
x)
      in
        Parser EnumDescriptorProto'EnumReservedRange
-> String -> Parser EnumDescriptorProto'EnumReservedRange
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do EnumDescriptorProto'EnumReservedRange
-> Parser EnumDescriptorProto'EnumReservedRange
loop EnumDescriptorProto'EnumReservedRange
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "EnumReservedRange"
  buildMessage :: EnumDescriptorProto'EnumReservedRange -> Builder
buildMessage
    = \ _x :: EnumDescriptorProto'EnumReservedRange
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Int32)
  EnumDescriptorProto'EnumReservedRange
  EnumDescriptorProto'EnumReservedRange
  (Maybe Int32)
  (Maybe Int32)
-> EnumDescriptorProto'EnumReservedRange -> Maybe Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'start" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'start") EnumDescriptorProto'EnumReservedRange
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Int32
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 8)
                       ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Int32)
  EnumDescriptorProto'EnumReservedRange
  EnumDescriptorProto'EnumReservedRange
  (Maybe Int32)
  (Maybe Int32)
-> EnumDescriptorProto'EnumReservedRange -> Maybe Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'end" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'end") EnumDescriptorProto'EnumReservedRange
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: Int32
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 16)
                          ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  EnumDescriptorProto'EnumReservedRange
  EnumDescriptorProto'EnumReservedRange
  FieldSet
  FieldSet
-> EnumDescriptorProto'EnumReservedRange -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  EnumDescriptorProto'EnumReservedRange
  EnumDescriptorProto'EnumReservedRange
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields EnumDescriptorProto'EnumReservedRange
_x)))
instance Control.DeepSeq.NFData EnumDescriptorProto'EnumReservedRange where
  rnf :: EnumDescriptorProto'EnumReservedRange -> ()
rnf
    = \ x__ :: EnumDescriptorProto'EnumReservedRange
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EnumDescriptorProto'EnumReservedRange -> FieldSet
_EnumDescriptorProto'EnumReservedRange'_unknownFields EnumDescriptorProto'EnumReservedRange
x__)
             (Maybe Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (EnumDescriptorProto'EnumReservedRange -> Maybe Int32
_EnumDescriptorProto'EnumReservedRange'start EnumDescriptorProto'EnumReservedRange
x__)
                (Maybe Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (EnumDescriptorProto'EnumReservedRange -> Maybe Int32
_EnumDescriptorProto'EnumReservedRange'end EnumDescriptorProto'EnumReservedRange
x__) ()))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.allowAlias' @:: Lens' EnumOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'allowAlias' @:: Lens' EnumOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' EnumOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' EnumOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' EnumOptions [UninterpretedOption]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' EnumOptions (Data.Vector.Vector UninterpretedOption)@ -}
data EnumOptions
  = EnumOptions'_constructor {EnumOptions -> Maybe Bool
_EnumOptions'allowAlias :: !(Prelude.Maybe Prelude.Bool),
                              EnumOptions -> Maybe Bool
_EnumOptions'deprecated :: !(Prelude.Maybe Prelude.Bool),
                              EnumOptions -> Vector UninterpretedOption
_EnumOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption),
                              EnumOptions -> FieldSet
_EnumOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (EnumOptions -> EnumOptions -> Bool
(EnumOptions -> EnumOptions -> Bool)
-> (EnumOptions -> EnumOptions -> Bool) -> Eq EnumOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumOptions -> EnumOptions -> Bool
$c/= :: EnumOptions -> EnumOptions -> Bool
== :: EnumOptions -> EnumOptions -> Bool
$c== :: EnumOptions -> EnumOptions -> Bool
Prelude.Eq, Eq EnumOptions
Eq EnumOptions =>
(EnumOptions -> EnumOptions -> Ordering)
-> (EnumOptions -> EnumOptions -> Bool)
-> (EnumOptions -> EnumOptions -> Bool)
-> (EnumOptions -> EnumOptions -> Bool)
-> (EnumOptions -> EnumOptions -> Bool)
-> (EnumOptions -> EnumOptions -> EnumOptions)
-> (EnumOptions -> EnumOptions -> EnumOptions)
-> Ord EnumOptions
EnumOptions -> EnumOptions -> Bool
EnumOptions -> EnumOptions -> Ordering
EnumOptions -> EnumOptions -> EnumOptions
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: EnumOptions -> EnumOptions -> EnumOptions
$cmin :: EnumOptions -> EnumOptions -> EnumOptions
max :: EnumOptions -> EnumOptions -> EnumOptions
$cmax :: EnumOptions -> EnumOptions -> EnumOptions
>= :: EnumOptions -> EnumOptions -> Bool
$c>= :: EnumOptions -> EnumOptions -> Bool
> :: EnumOptions -> EnumOptions -> Bool
$c> :: EnumOptions -> EnumOptions -> Bool
<= :: EnumOptions -> EnumOptions -> Bool
$c<= :: EnumOptions -> EnumOptions -> Bool
< :: EnumOptions -> EnumOptions -> Bool
$c< :: EnumOptions -> EnumOptions -> Bool
compare :: EnumOptions -> EnumOptions -> Ordering
$ccompare :: EnumOptions -> EnumOptions -> Ordering
$cp1Ord :: Eq EnumOptions
Prelude.Ord)
instance Prelude.Show EnumOptions where
  showsPrec :: Int -> EnumOptions -> ShowS
showsPrec _ __x :: EnumOptions
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (EnumOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EnumOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField EnumOptions "allowAlias" Prelude.Bool where
  fieldOf :: Proxy# "allowAlias"
-> (Bool -> f Bool) -> EnumOptions -> f EnumOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> EnumOptions -> f EnumOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> EnumOptions
-> f EnumOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumOptions -> Maybe Bool)
-> (EnumOptions -> Maybe Bool -> EnumOptions)
-> Lens EnumOptions EnumOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumOptions -> Maybe Bool
_EnumOptions'allowAlias
           (\ x__ :: EnumOptions
x__ y__ :: Maybe Bool
y__ -> EnumOptions
x__ {_EnumOptions'allowAlias :: Maybe Bool
_EnumOptions'allowAlias = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField EnumOptions "maybe'allowAlias" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'allowAlias"
-> (Maybe Bool -> f (Maybe Bool)) -> EnumOptions -> f EnumOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> EnumOptions -> f EnumOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> EnumOptions
-> f EnumOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumOptions -> Maybe Bool)
-> (EnumOptions -> Maybe Bool -> EnumOptions)
-> Lens EnumOptions EnumOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumOptions -> Maybe Bool
_EnumOptions'allowAlias
           (\ x__ :: EnumOptions
x__ y__ :: Maybe Bool
y__ -> EnumOptions
x__ {_EnumOptions'allowAlias :: Maybe Bool
_EnumOptions'allowAlias = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EnumOptions "deprecated" Prelude.Bool where
  fieldOf :: Proxy# "deprecated"
-> (Bool -> f Bool) -> EnumOptions -> f EnumOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> EnumOptions -> f EnumOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> EnumOptions
-> f EnumOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumOptions -> Maybe Bool)
-> (EnumOptions -> Maybe Bool -> EnumOptions)
-> Lens EnumOptions EnumOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumOptions -> Maybe Bool
_EnumOptions'deprecated
           (\ x__ :: EnumOptions
x__ y__ :: Maybe Bool
y__ -> EnumOptions
x__ {_EnumOptions'deprecated :: Maybe Bool
_EnumOptions'deprecated = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField EnumOptions "maybe'deprecated" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'deprecated"
-> (Maybe Bool -> f (Maybe Bool)) -> EnumOptions -> f EnumOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> EnumOptions -> f EnumOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> EnumOptions
-> f EnumOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumOptions -> Maybe Bool)
-> (EnumOptions -> Maybe Bool -> EnumOptions)
-> Lens EnumOptions EnumOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumOptions -> Maybe Bool
_EnumOptions'deprecated
           (\ x__ :: EnumOptions
x__ y__ :: Maybe Bool
y__ -> EnumOptions
x__ {_EnumOptions'deprecated :: Maybe Bool
_EnumOptions'deprecated = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EnumOptions "uninterpretedOption" [UninterpretedOption] where
  fieldOf :: Proxy# "uninterpretedOption"
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> EnumOptions
-> f EnumOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> EnumOptions -> f EnumOptions)
-> (([UninterpretedOption] -> f [UninterpretedOption])
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> EnumOptions
-> f EnumOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumOptions -> Vector UninterpretedOption)
-> (EnumOptions -> Vector UninterpretedOption -> EnumOptions)
-> Lens
     EnumOptions
     EnumOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumOptions -> Vector UninterpretedOption
_EnumOptions'uninterpretedOption
           (\ x__ :: EnumOptions
x__ y__ :: Vector UninterpretedOption
y__ -> EnumOptions
x__ {_EnumOptions'uninterpretedOption :: Vector UninterpretedOption
_EnumOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        ((Vector UninterpretedOption -> [UninterpretedOption])
-> (Vector UninterpretedOption
    -> [UninterpretedOption] -> Vector UninterpretedOption)
-> Lens
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
     [UninterpretedOption]
     [UninterpretedOption]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector UninterpretedOption -> [UninterpretedOption]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [UninterpretedOption]
y__ -> [UninterpretedOption] -> Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UninterpretedOption]
y__))
instance Data.ProtoLens.Field.HasField EnumOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where
  fieldOf :: Proxy# "vec'uninterpretedOption"
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> EnumOptions
-> f EnumOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> EnumOptions -> f EnumOptions)
-> ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> EnumOptions
-> f EnumOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumOptions -> Vector UninterpretedOption)
-> (EnumOptions -> Vector UninterpretedOption -> EnumOptions)
-> Lens
     EnumOptions
     EnumOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumOptions -> Vector UninterpretedOption
_EnumOptions'uninterpretedOption
           (\ x__ :: EnumOptions
x__ y__ :: Vector UninterpretedOption
y__ -> EnumOptions
x__ {_EnumOptions'uninterpretedOption :: Vector UninterpretedOption
_EnumOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> Vector UninterpretedOption -> f (Vector UninterpretedOption)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message EnumOptions where
  messageName :: Proxy EnumOptions -> Text
messageName _ = String -> Text
Data.Text.pack "google.protobuf.EnumOptions"
  fieldsByTag :: Map Tag (FieldDescriptor EnumOptions)
fieldsByTag
    = let
        allowAlias__field_descriptor :: FieldDescriptor EnumOptions
allowAlias__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor EnumOptions Bool
-> FieldDescriptor EnumOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "allow_alias"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens EnumOptions EnumOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor EnumOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'allowAlias" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'allowAlias")) ::
              Data.ProtoLens.FieldDescriptor EnumOptions
        deprecated__field_descriptor :: FieldDescriptor EnumOptions
deprecated__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor EnumOptions Bool
-> FieldDescriptor EnumOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "deprecated"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens EnumOptions EnumOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor EnumOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'deprecated")) ::
              Data.ProtoLens.FieldDescriptor EnumOptions
        uninterpretedOption__field_descriptor :: FieldDescriptor EnumOptions
uninterpretedOption__field_descriptor
          = String
-> FieldTypeDescriptor UninterpretedOption
-> FieldAccessor EnumOptions UninterpretedOption
-> FieldDescriptor EnumOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "uninterpreted_option"
              (MessageOrGroup -> FieldTypeDescriptor UninterpretedOption
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)
              (Packing
-> Lens' EnumOptions [UninterpretedOption]
-> FieldAccessor EnumOptions UninterpretedOption
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uninterpretedOption")) ::
              Data.ProtoLens.FieldDescriptor EnumOptions
      in
        [(Tag, FieldDescriptor EnumOptions)]
-> Map Tag (FieldDescriptor EnumOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor EnumOptions
allowAlias__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor EnumOptions
deprecated__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 999, FieldDescriptor EnumOptions
uninterpretedOption__field_descriptor)]
  unknownFields :: LensLike' f EnumOptions FieldSet
unknownFields
    = (EnumOptions -> FieldSet)
-> (EnumOptions -> FieldSet -> EnumOptions)
-> Lens' EnumOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EnumOptions -> FieldSet
_EnumOptions'_unknownFields
        (\ x__ :: EnumOptions
x__ y__ :: FieldSet
y__ -> EnumOptions
x__ {_EnumOptions'_unknownFields :: FieldSet
_EnumOptions'_unknownFields = FieldSet
y__})
  defMessage :: EnumOptions
defMessage
    = $WEnumOptions'_constructor :: Maybe Bool
-> Maybe Bool
-> Vector UninterpretedOption
-> FieldSet
-> EnumOptions
EnumOptions'_constructor
        {_EnumOptions'allowAlias :: Maybe Bool
_EnumOptions'allowAlias = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _EnumOptions'deprecated :: Maybe Bool
_EnumOptions'deprecated = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _EnumOptions'uninterpretedOption :: Vector UninterpretedOption
_EnumOptions'uninterpretedOption = Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _EnumOptions'_unknownFields :: FieldSet
_EnumOptions'_unknownFields = []}
  parseMessage :: Parser EnumOptions
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 :: EnumOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser EnumOptions
loop x :: EnumOptions
x mutable'uninterpretedOption :: Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector UninterpretedOption
frozen'uninterpretedOption <- IO (Vector UninterpretedOption)
-> Parser (Vector UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                      (Growing Vector (PrimState IO) UninterpretedOption
-> IO (Vector UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                         Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      EnumOptions -> Parser EnumOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter EnumOptions EnumOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> EnumOptions -> EnumOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter EnumOptions EnumOptions FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  EnumOptions
  EnumOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> Vector UninterpretedOption -> EnumOptions -> EnumOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption")
                              Vector UninterpretedOption
frozen'uninterpretedOption
                              EnumOptions
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        16
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "allow_alias"
                                EnumOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser EnumOptions
loop
                                  (Setter EnumOptions EnumOptions Bool Bool
-> Bool -> EnumOptions -> EnumOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "allowAlias" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allowAlias") Bool
y EnumOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        24
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "deprecated"
                                EnumOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser EnumOptions
loop
                                  (Setter EnumOptions EnumOptions Bool Bool
-> Bool -> EnumOptions -> EnumOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deprecated") Bool
y EnumOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        7994
                          -> do !UninterpretedOption
y <- Parser UninterpretedOption -> String -> Parser UninterpretedOption
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser UninterpretedOption -> Parser UninterpretedOption
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser UninterpretedOption
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "uninterpreted_option"
                                Growing Vector RealWorld UninterpretedOption
v <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) UninterpretedOption
-> UninterpretedOption
-> IO (Growing Vector (PrimState IO) UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption UninterpretedOption
y)
                                EnumOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser EnumOptions
loop EnumOptions
x Growing Vector RealWorld UninterpretedOption
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                EnumOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser EnumOptions
loop
                                  (Setter EnumOptions EnumOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> EnumOptions -> EnumOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter EnumOptions EnumOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) EnumOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
      in
        Parser EnumOptions -> String -> Parser EnumOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               IO (Growing Vector RealWorld UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              EnumOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser EnumOptions
loop EnumOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption)
          "EnumOptions"
  buildMessage :: EnumOptions -> Builder
buildMessage
    = \ _x :: EnumOptions
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Bool) EnumOptions EnumOptions (Maybe Bool) (Maybe Bool)
-> EnumOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                    (forall s a (f :: * -> *).
(HasField s "maybe'allowAlias" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'allowAlias") EnumOptions
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Bool
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 16)
                       ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                          (\ b :: Bool
b -> if Bool
b then 1 else 0)
                          Bool
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Bool) EnumOptions EnumOptions (Maybe Bool) (Maybe Bool)
-> EnumOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall s a (f :: * -> *).
(HasField s "maybe'deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'deprecated") EnumOptions
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: Bool
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 24)
                          ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                             (\ b :: Bool
b -> if Bool
b then 1 else 0)
                             Bool
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((UninterpretedOption -> Builder)
-> Vector UninterpretedOption -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ _v :: UninterpretedOption
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 7994)
                              ((ByteString -> Builder)
-> (UninterpretedOption -> ByteString)
-> UninterpretedOption
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                 (\ bs :: ByteString
bs
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                            (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                         (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                 UninterpretedOption -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                 UninterpretedOption
_v))
                      (FoldLike
  (Vector UninterpretedOption)
  EnumOptions
  EnumOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> EnumOptions -> Vector UninterpretedOption
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption") EnumOptions
_x))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet EnumOptions EnumOptions FieldSet FieldSet
-> EnumOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet EnumOptions EnumOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields EnumOptions
_x))))
instance Control.DeepSeq.NFData EnumOptions where
  rnf :: EnumOptions -> ()
rnf
    = \ x__ :: EnumOptions
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EnumOptions -> FieldSet
_EnumOptions'_unknownFields EnumOptions
x__)
             (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (EnumOptions -> Maybe Bool
_EnumOptions'allowAlias EnumOptions
x__)
                (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (EnumOptions -> Maybe Bool
_EnumOptions'deprecated EnumOptions
x__)
                   (Vector UninterpretedOption -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (EnumOptions -> Vector UninterpretedOption
_EnumOptions'uninterpretedOption EnumOptions
x__) ())))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' EnumValueDescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' EnumValueDescriptorProto (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.number' @:: Lens' EnumValueDescriptorProto Data.Int.Int32@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'number' @:: Lens' EnumValueDescriptorProto (Prelude.Maybe Data.Int.Int32)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' EnumValueDescriptorProto EnumValueOptions@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' EnumValueDescriptorProto (Prelude.Maybe EnumValueOptions)@ -}
data EnumValueDescriptorProto
  = EnumValueDescriptorProto'_constructor {EnumValueDescriptorProto -> Maybe Text
_EnumValueDescriptorProto'name :: !(Prelude.Maybe Data.Text.Text),
                                           EnumValueDescriptorProto -> Maybe Int32
_EnumValueDescriptorProto'number :: !(Prelude.Maybe Data.Int.Int32),
                                           EnumValueDescriptorProto -> Maybe EnumValueOptions
_EnumValueDescriptorProto'options :: !(Prelude.Maybe EnumValueOptions),
                                           EnumValueDescriptorProto -> FieldSet
_EnumValueDescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool
(EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool)
-> (EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool)
-> Eq EnumValueDescriptorProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool
$c/= :: EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool
== :: EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool
$c== :: EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool
Prelude.Eq, Eq EnumValueDescriptorProto
Eq EnumValueDescriptorProto =>
(EnumValueDescriptorProto -> EnumValueDescriptorProto -> Ordering)
-> (EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool)
-> (EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool)
-> (EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool)
-> (EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool)
-> (EnumValueDescriptorProto
    -> EnumValueDescriptorProto -> EnumValueDescriptorProto)
-> (EnumValueDescriptorProto
    -> EnumValueDescriptorProto -> EnumValueDescriptorProto)
-> Ord EnumValueDescriptorProto
EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool
EnumValueDescriptorProto -> EnumValueDescriptorProto -> Ordering
EnumValueDescriptorProto
-> EnumValueDescriptorProto -> EnumValueDescriptorProto
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: EnumValueDescriptorProto
-> EnumValueDescriptorProto -> EnumValueDescriptorProto
$cmin :: EnumValueDescriptorProto
-> EnumValueDescriptorProto -> EnumValueDescriptorProto
max :: EnumValueDescriptorProto
-> EnumValueDescriptorProto -> EnumValueDescriptorProto
$cmax :: EnumValueDescriptorProto
-> EnumValueDescriptorProto -> EnumValueDescriptorProto
>= :: EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool
$c>= :: EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool
> :: EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool
$c> :: EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool
<= :: EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool
$c<= :: EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool
< :: EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool
$c< :: EnumValueDescriptorProto -> EnumValueDescriptorProto -> Bool
compare :: EnumValueDescriptorProto -> EnumValueDescriptorProto -> Ordering
$ccompare :: EnumValueDescriptorProto -> EnumValueDescriptorProto -> Ordering
$cp1Ord :: Eq EnumValueDescriptorProto
Prelude.Ord)
instance Prelude.Show EnumValueDescriptorProto where
  showsPrec :: Int -> EnumValueDescriptorProto -> ShowS
showsPrec _ __x :: EnumValueDescriptorProto
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (EnumValueDescriptorProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EnumValueDescriptorProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto "name" Data.Text.Text where
  fieldOf :: Proxy# "name"
-> (Text -> f Text)
-> EnumValueDescriptorProto
-> f EnumValueDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> EnumValueDescriptorProto -> f EnumValueDescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> EnumValueDescriptorProto
-> f EnumValueDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumValueDescriptorProto -> Maybe Text)
-> (EnumValueDescriptorProto
    -> Maybe Text -> EnumValueDescriptorProto)
-> Lens
     EnumValueDescriptorProto
     EnumValueDescriptorProto
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumValueDescriptorProto -> Maybe Text
_EnumValueDescriptorProto'name
           (\ x__ :: EnumValueDescriptorProto
x__ y__ :: Maybe Text
y__ -> EnumValueDescriptorProto
x__ {_EnumValueDescriptorProto'name :: Maybe Text
_EnumValueDescriptorProto'name = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'name"
-> (Maybe Text -> f (Maybe Text))
-> EnumValueDescriptorProto
-> f EnumValueDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> EnumValueDescriptorProto -> f EnumValueDescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> EnumValueDescriptorProto
-> f EnumValueDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumValueDescriptorProto -> Maybe Text)
-> (EnumValueDescriptorProto
    -> Maybe Text -> EnumValueDescriptorProto)
-> Lens
     EnumValueDescriptorProto
     EnumValueDescriptorProto
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumValueDescriptorProto -> Maybe Text
_EnumValueDescriptorProto'name
           (\ x__ :: EnumValueDescriptorProto
x__ y__ :: Maybe Text
y__ -> EnumValueDescriptorProto
x__ {_EnumValueDescriptorProto'name :: Maybe Text
_EnumValueDescriptorProto'name = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto "number" Data.Int.Int32 where
  fieldOf :: Proxy# "number"
-> (Int32 -> f Int32)
-> EnumValueDescriptorProto
-> f EnumValueDescriptorProto
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> EnumValueDescriptorProto -> f EnumValueDescriptorProto)
-> ((Int32 -> f Int32) -> Maybe Int32 -> f (Maybe Int32))
-> (Int32 -> f Int32)
-> EnumValueDescriptorProto
-> f EnumValueDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumValueDescriptorProto -> Maybe Int32)
-> (EnumValueDescriptorProto
    -> Maybe Int32 -> EnumValueDescriptorProto)
-> Lens
     EnumValueDescriptorProto
     EnumValueDescriptorProto
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumValueDescriptorProto -> Maybe Int32
_EnumValueDescriptorProto'number
           (\ x__ :: EnumValueDescriptorProto
x__ y__ :: Maybe Int32
y__ -> EnumValueDescriptorProto
x__ {_EnumValueDescriptorProto'number :: Maybe Int32
_EnumValueDescriptorProto'number = Maybe Int32
y__}))
        (Int32 -> Lens' (Maybe Int32) Int32
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto "maybe'number" (Prelude.Maybe Data.Int.Int32) where
  fieldOf :: Proxy# "maybe'number"
-> (Maybe Int32 -> f (Maybe Int32))
-> EnumValueDescriptorProto
-> f EnumValueDescriptorProto
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> EnumValueDescriptorProto -> f EnumValueDescriptorProto)
-> ((Maybe Int32 -> f (Maybe Int32))
    -> Maybe Int32 -> f (Maybe Int32))
-> (Maybe Int32 -> f (Maybe Int32))
-> EnumValueDescriptorProto
-> f EnumValueDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumValueDescriptorProto -> Maybe Int32)
-> (EnumValueDescriptorProto
    -> Maybe Int32 -> EnumValueDescriptorProto)
-> Lens
     EnumValueDescriptorProto
     EnumValueDescriptorProto
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumValueDescriptorProto -> Maybe Int32
_EnumValueDescriptorProto'number
           (\ x__ :: EnumValueDescriptorProto
x__ y__ :: Maybe Int32
y__ -> EnumValueDescriptorProto
x__ {_EnumValueDescriptorProto'number :: Maybe Int32
_EnumValueDescriptorProto'number = Maybe Int32
y__}))
        (Maybe Int32 -> f (Maybe Int32)) -> Maybe Int32 -> f (Maybe Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto "options" EnumValueOptions where
  fieldOf :: Proxy# "options"
-> (EnumValueOptions -> f EnumValueOptions)
-> EnumValueDescriptorProto
-> f EnumValueDescriptorProto
fieldOf _
    = ((Maybe EnumValueOptions -> f (Maybe EnumValueOptions))
 -> EnumValueDescriptorProto -> f EnumValueDescriptorProto)
-> ((EnumValueOptions -> f EnumValueOptions)
    -> Maybe EnumValueOptions -> f (Maybe EnumValueOptions))
-> (EnumValueOptions -> f EnumValueOptions)
-> EnumValueDescriptorProto
-> f EnumValueDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumValueDescriptorProto -> Maybe EnumValueOptions)
-> (EnumValueDescriptorProto
    -> Maybe EnumValueOptions -> EnumValueDescriptorProto)
-> Lens
     EnumValueDescriptorProto
     EnumValueDescriptorProto
     (Maybe EnumValueOptions)
     (Maybe EnumValueOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumValueDescriptorProto -> Maybe EnumValueOptions
_EnumValueDescriptorProto'options
           (\ x__ :: EnumValueDescriptorProto
x__ y__ :: Maybe EnumValueOptions
y__ -> EnumValueDescriptorProto
x__ {_EnumValueDescriptorProto'options :: Maybe EnumValueOptions
_EnumValueDescriptorProto'options = Maybe EnumValueOptions
y__}))
        (EnumValueOptions -> Lens' (Maybe EnumValueOptions) EnumValueOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens EnumValueOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField EnumValueDescriptorProto "maybe'options" (Prelude.Maybe EnumValueOptions) where
  fieldOf :: Proxy# "maybe'options"
-> (Maybe EnumValueOptions -> f (Maybe EnumValueOptions))
-> EnumValueDescriptorProto
-> f EnumValueDescriptorProto
fieldOf _
    = ((Maybe EnumValueOptions -> f (Maybe EnumValueOptions))
 -> EnumValueDescriptorProto -> f EnumValueDescriptorProto)
-> ((Maybe EnumValueOptions -> f (Maybe EnumValueOptions))
    -> Maybe EnumValueOptions -> f (Maybe EnumValueOptions))
-> (Maybe EnumValueOptions -> f (Maybe EnumValueOptions))
-> EnumValueDescriptorProto
-> f EnumValueDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumValueDescriptorProto -> Maybe EnumValueOptions)
-> (EnumValueDescriptorProto
    -> Maybe EnumValueOptions -> EnumValueDescriptorProto)
-> Lens
     EnumValueDescriptorProto
     EnumValueDescriptorProto
     (Maybe EnumValueOptions)
     (Maybe EnumValueOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumValueDescriptorProto -> Maybe EnumValueOptions
_EnumValueDescriptorProto'options
           (\ x__ :: EnumValueDescriptorProto
x__ y__ :: Maybe EnumValueOptions
y__ -> EnumValueDescriptorProto
x__ {_EnumValueDescriptorProto'options :: Maybe EnumValueOptions
_EnumValueDescriptorProto'options = Maybe EnumValueOptions
y__}))
        (Maybe EnumValueOptions -> f (Maybe EnumValueOptions))
-> Maybe EnumValueOptions -> f (Maybe EnumValueOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message EnumValueDescriptorProto where
  messageName :: Proxy EnumValueDescriptorProto -> Text
messageName _
    = String -> Text
Data.Text.pack "google.protobuf.EnumValueDescriptorProto"
  fieldsByTag :: Map Tag (FieldDescriptor EnumValueDescriptorProto)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor EnumValueDescriptorProto
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor EnumValueDescriptorProto Text
-> FieldDescriptor EnumValueDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  EnumValueDescriptorProto
  EnumValueDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> FieldAccessor EnumValueDescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name")) ::
              Data.ProtoLens.FieldDescriptor EnumValueDescriptorProto
        number__field_descriptor :: FieldDescriptor EnumValueDescriptorProto
number__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor EnumValueDescriptorProto Int32
-> FieldDescriptor EnumValueDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "number"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Lens
  EnumValueDescriptorProto
  EnumValueDescriptorProto
  (Maybe Int32)
  (Maybe Int32)
-> FieldAccessor EnumValueDescriptorProto Int32
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'number" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'number")) ::
              Data.ProtoLens.FieldDescriptor EnumValueDescriptorProto
        options__field_descriptor :: FieldDescriptor EnumValueDescriptorProto
options__field_descriptor
          = String
-> FieldTypeDescriptor EnumValueOptions
-> FieldAccessor EnumValueDescriptorProto EnumValueOptions
-> FieldDescriptor EnumValueDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "options"
              (MessageOrGroup -> FieldTypeDescriptor EnumValueOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor EnumValueOptions)
              (Lens
  EnumValueDescriptorProto
  EnumValueDescriptorProto
  (Maybe EnumValueOptions)
  (Maybe EnumValueOptions)
-> FieldAccessor EnumValueDescriptorProto EnumValueOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options")) ::
              Data.ProtoLens.FieldDescriptor EnumValueDescriptorProto
      in
        [(Tag, FieldDescriptor EnumValueDescriptorProto)]
-> Map Tag (FieldDescriptor EnumValueDescriptorProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor EnumValueDescriptorProto
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor EnumValueDescriptorProto
number__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor EnumValueDescriptorProto
options__field_descriptor)]
  unknownFields :: LensLike' f EnumValueDescriptorProto FieldSet
unknownFields
    = (EnumValueDescriptorProto -> FieldSet)
-> (EnumValueDescriptorProto
    -> FieldSet -> EnumValueDescriptorProto)
-> Lens' EnumValueDescriptorProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EnumValueDescriptorProto -> FieldSet
_EnumValueDescriptorProto'_unknownFields
        (\ x__ :: EnumValueDescriptorProto
x__ y__ :: FieldSet
y__ -> EnumValueDescriptorProto
x__ {_EnumValueDescriptorProto'_unknownFields :: FieldSet
_EnumValueDescriptorProto'_unknownFields = FieldSet
y__})
  defMessage :: EnumValueDescriptorProto
defMessage
    = $WEnumValueDescriptorProto'_constructor :: Maybe Text
-> Maybe Int32
-> Maybe EnumValueOptions
-> FieldSet
-> EnumValueDescriptorProto
EnumValueDescriptorProto'_constructor
        {_EnumValueDescriptorProto'name :: Maybe Text
_EnumValueDescriptorProto'name = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _EnumValueDescriptorProto'number :: Maybe Int32
_EnumValueDescriptorProto'number = Maybe Int32
forall a. Maybe a
Prelude.Nothing,
         _EnumValueDescriptorProto'options :: Maybe EnumValueOptions
_EnumValueDescriptorProto'options = Maybe EnumValueOptions
forall a. Maybe a
Prelude.Nothing,
         _EnumValueDescriptorProto'_unknownFields :: FieldSet
_EnumValueDescriptorProto'_unknownFields = []}
  parseMessage :: Parser EnumValueDescriptorProto
parseMessage
    = let
        loop ::
          EnumValueDescriptorProto
          -> Data.ProtoLens.Encoding.Bytes.Parser EnumValueDescriptorProto
        loop :: EnumValueDescriptorProto -> Parser EnumValueDescriptorProto
loop x :: EnumValueDescriptorProto
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      EnumValueDescriptorProto -> Parser EnumValueDescriptorProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  EnumValueDescriptorProto EnumValueDescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> EnumValueDescriptorProto
-> EnumValueDescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  EnumValueDescriptorProto EnumValueDescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) EnumValueDescriptorProto
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "name"
                                EnumValueDescriptorProto -> Parser EnumValueDescriptorProto
loop (Setter EnumValueDescriptorProto EnumValueDescriptorProto Text Text
-> Text -> EnumValueDescriptorProto -> EnumValueDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y EnumValueDescriptorProto
x)
                        16
                          -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "number"
                                EnumValueDescriptorProto -> Parser EnumValueDescriptorProto
loop (Setter
  EnumValueDescriptorProto EnumValueDescriptorProto Int32 Int32
-> Int32 -> EnumValueDescriptorProto -> EnumValueDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "number" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"number") Int32
y EnumValueDescriptorProto
x)
                        26
                          -> do EnumValueOptions
y <- Parser EnumValueOptions -> String -> Parser EnumValueOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser EnumValueOptions -> Parser EnumValueOptions
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser EnumValueOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "options"
                                EnumValueDescriptorProto -> Parser EnumValueDescriptorProto
loop (Setter
  EnumValueDescriptorProto
  EnumValueDescriptorProto
  EnumValueOptions
  EnumValueOptions
-> EnumValueOptions
-> EnumValueDescriptorProto
-> EnumValueDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"options") EnumValueOptions
y EnumValueDescriptorProto
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                EnumValueDescriptorProto -> Parser EnumValueDescriptorProto
loop
                                  (Setter
  EnumValueDescriptorProto EnumValueDescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> EnumValueDescriptorProto
-> EnumValueDescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  EnumValueDescriptorProto EnumValueDescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) EnumValueDescriptorProto
x)
      in
        Parser EnumValueDescriptorProto
-> String -> Parser EnumValueDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do EnumValueDescriptorProto -> Parser EnumValueDescriptorProto
loop EnumValueDescriptorProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "EnumValueDescriptorProto"
  buildMessage :: EnumValueDescriptorProto -> Builder
buildMessage
    = \ _x :: EnumValueDescriptorProto
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Text)
  EnumValueDescriptorProto
  EnumValueDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> EnumValueDescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name") EnumValueDescriptorProto
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Text
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Text -> ByteString
Data.Text.Encoding.encodeUtf8
                          Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Int32)
  EnumValueDescriptorProto
  EnumValueDescriptorProto
  (Maybe Int32)
  (Maybe Int32)
-> EnumValueDescriptorProto -> Maybe Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'number" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'number") EnumValueDescriptorProto
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: Int32
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 16)
                          ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe EnumValueOptions)
  EnumValueDescriptorProto
  EnumValueDescriptorProto
  (Maybe EnumValueOptions)
  (Maybe EnumValueOptions)
-> EnumValueDescriptorProto -> Maybe EnumValueOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options") EnumValueDescriptorProto
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: EnumValueOptions
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                             ((ByteString -> Builder)
-> (EnumValueOptions -> ByteString) -> EnumValueOptions -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ bs :: ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                EnumValueOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                EnumValueOptions
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  EnumValueDescriptorProto
  EnumValueDescriptorProto
  FieldSet
  FieldSet
-> EnumValueDescriptorProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  EnumValueDescriptorProto
  EnumValueDescriptorProto
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields EnumValueDescriptorProto
_x))))
instance Control.DeepSeq.NFData EnumValueDescriptorProto where
  rnf :: EnumValueDescriptorProto -> ()
rnf
    = \ x__ :: EnumValueDescriptorProto
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EnumValueDescriptorProto -> FieldSet
_EnumValueDescriptorProto'_unknownFields EnumValueDescriptorProto
x__)
             (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (EnumValueDescriptorProto -> Maybe Text
_EnumValueDescriptorProto'name EnumValueDescriptorProto
x__)
                (Maybe Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (EnumValueDescriptorProto -> Maybe Int32
_EnumValueDescriptorProto'number EnumValueDescriptorProto
x__)
                   (Maybe EnumValueOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (EnumValueDescriptorProto -> Maybe EnumValueOptions
_EnumValueDescriptorProto'options EnumValueDescriptorProto
x__) ())))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' EnumValueOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' EnumValueOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' EnumValueOptions [UninterpretedOption]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' EnumValueOptions (Data.Vector.Vector UninterpretedOption)@ -}
data EnumValueOptions
  = EnumValueOptions'_constructor {EnumValueOptions -> Maybe Bool
_EnumValueOptions'deprecated :: !(Prelude.Maybe Prelude.Bool),
                                   EnumValueOptions -> Vector UninterpretedOption
_EnumValueOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption),
                                   EnumValueOptions -> FieldSet
_EnumValueOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (EnumValueOptions -> EnumValueOptions -> Bool
(EnumValueOptions -> EnumValueOptions -> Bool)
-> (EnumValueOptions -> EnumValueOptions -> Bool)
-> Eq EnumValueOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EnumValueOptions -> EnumValueOptions -> Bool
$c/= :: EnumValueOptions -> EnumValueOptions -> Bool
== :: EnumValueOptions -> EnumValueOptions -> Bool
$c== :: EnumValueOptions -> EnumValueOptions -> Bool
Prelude.Eq, Eq EnumValueOptions
Eq EnumValueOptions =>
(EnumValueOptions -> EnumValueOptions -> Ordering)
-> (EnumValueOptions -> EnumValueOptions -> Bool)
-> (EnumValueOptions -> EnumValueOptions -> Bool)
-> (EnumValueOptions -> EnumValueOptions -> Bool)
-> (EnumValueOptions -> EnumValueOptions -> Bool)
-> (EnumValueOptions -> EnumValueOptions -> EnumValueOptions)
-> (EnumValueOptions -> EnumValueOptions -> EnumValueOptions)
-> Ord EnumValueOptions
EnumValueOptions -> EnumValueOptions -> Bool
EnumValueOptions -> EnumValueOptions -> Ordering
EnumValueOptions -> EnumValueOptions -> EnumValueOptions
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: EnumValueOptions -> EnumValueOptions -> EnumValueOptions
$cmin :: EnumValueOptions -> EnumValueOptions -> EnumValueOptions
max :: EnumValueOptions -> EnumValueOptions -> EnumValueOptions
$cmax :: EnumValueOptions -> EnumValueOptions -> EnumValueOptions
>= :: EnumValueOptions -> EnumValueOptions -> Bool
$c>= :: EnumValueOptions -> EnumValueOptions -> Bool
> :: EnumValueOptions -> EnumValueOptions -> Bool
$c> :: EnumValueOptions -> EnumValueOptions -> Bool
<= :: EnumValueOptions -> EnumValueOptions -> Bool
$c<= :: EnumValueOptions -> EnumValueOptions -> Bool
< :: EnumValueOptions -> EnumValueOptions -> Bool
$c< :: EnumValueOptions -> EnumValueOptions -> Bool
compare :: EnumValueOptions -> EnumValueOptions -> Ordering
$ccompare :: EnumValueOptions -> EnumValueOptions -> Ordering
$cp1Ord :: Eq EnumValueOptions
Prelude.Ord)
instance Prelude.Show EnumValueOptions where
  showsPrec :: Int -> EnumValueOptions -> ShowS
showsPrec _ __x :: EnumValueOptions
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (EnumValueOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EnumValueOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField EnumValueOptions "deprecated" Prelude.Bool where
  fieldOf :: Proxy# "deprecated"
-> (Bool -> f Bool) -> EnumValueOptions -> f EnumValueOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> EnumValueOptions -> f EnumValueOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> EnumValueOptions
-> f EnumValueOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumValueOptions -> Maybe Bool)
-> (EnumValueOptions -> Maybe Bool -> EnumValueOptions)
-> Lens EnumValueOptions EnumValueOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumValueOptions -> Maybe Bool
_EnumValueOptions'deprecated
           (\ x__ :: EnumValueOptions
x__ y__ :: Maybe Bool
y__ -> EnumValueOptions
x__ {_EnumValueOptions'deprecated :: Maybe Bool
_EnumValueOptions'deprecated = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField EnumValueOptions "maybe'deprecated" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'deprecated"
-> (Maybe Bool -> f (Maybe Bool))
-> EnumValueOptions
-> f EnumValueOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> EnumValueOptions -> f EnumValueOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> EnumValueOptions
-> f EnumValueOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumValueOptions -> Maybe Bool)
-> (EnumValueOptions -> Maybe Bool -> EnumValueOptions)
-> Lens EnumValueOptions EnumValueOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumValueOptions -> Maybe Bool
_EnumValueOptions'deprecated
           (\ x__ :: EnumValueOptions
x__ y__ :: Maybe Bool
y__ -> EnumValueOptions
x__ {_EnumValueOptions'deprecated :: Maybe Bool
_EnumValueOptions'deprecated = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EnumValueOptions "uninterpretedOption" [UninterpretedOption] where
  fieldOf :: Proxy# "uninterpretedOption"
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> EnumValueOptions
-> f EnumValueOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> EnumValueOptions -> f EnumValueOptions)
-> (([UninterpretedOption] -> f [UninterpretedOption])
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> EnumValueOptions
-> f EnumValueOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumValueOptions -> Vector UninterpretedOption)
-> (EnumValueOptions
    -> Vector UninterpretedOption -> EnumValueOptions)
-> Lens
     EnumValueOptions
     EnumValueOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumValueOptions -> Vector UninterpretedOption
_EnumValueOptions'uninterpretedOption
           (\ x__ :: EnumValueOptions
x__ y__ :: Vector UninterpretedOption
y__ -> EnumValueOptions
x__ {_EnumValueOptions'uninterpretedOption :: Vector UninterpretedOption
_EnumValueOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        ((Vector UninterpretedOption -> [UninterpretedOption])
-> (Vector UninterpretedOption
    -> [UninterpretedOption] -> Vector UninterpretedOption)
-> Lens
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
     [UninterpretedOption]
     [UninterpretedOption]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector UninterpretedOption -> [UninterpretedOption]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [UninterpretedOption]
y__ -> [UninterpretedOption] -> Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UninterpretedOption]
y__))
instance Data.ProtoLens.Field.HasField EnumValueOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where
  fieldOf :: Proxy# "vec'uninterpretedOption"
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> EnumValueOptions
-> f EnumValueOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> EnumValueOptions -> f EnumValueOptions)
-> ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> EnumValueOptions
-> f EnumValueOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EnumValueOptions -> Vector UninterpretedOption)
-> (EnumValueOptions
    -> Vector UninterpretedOption -> EnumValueOptions)
-> Lens
     EnumValueOptions
     EnumValueOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EnumValueOptions -> Vector UninterpretedOption
_EnumValueOptions'uninterpretedOption
           (\ x__ :: EnumValueOptions
x__ y__ :: Vector UninterpretedOption
y__ -> EnumValueOptions
x__ {_EnumValueOptions'uninterpretedOption :: Vector UninterpretedOption
_EnumValueOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> Vector UninterpretedOption -> f (Vector UninterpretedOption)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message EnumValueOptions where
  messageName :: Proxy EnumValueOptions -> Text
messageName _ = String -> Text
Data.Text.pack "google.protobuf.EnumValueOptions"
  fieldsByTag :: Map Tag (FieldDescriptor EnumValueOptions)
fieldsByTag
    = let
        deprecated__field_descriptor :: FieldDescriptor EnumValueOptions
deprecated__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor EnumValueOptions Bool
-> FieldDescriptor EnumValueOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "deprecated"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens EnumValueOptions EnumValueOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor EnumValueOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'deprecated")) ::
              Data.ProtoLens.FieldDescriptor EnumValueOptions
        uninterpretedOption__field_descriptor :: FieldDescriptor EnumValueOptions
uninterpretedOption__field_descriptor
          = String
-> FieldTypeDescriptor UninterpretedOption
-> FieldAccessor EnumValueOptions UninterpretedOption
-> FieldDescriptor EnumValueOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "uninterpreted_option"
              (MessageOrGroup -> FieldTypeDescriptor UninterpretedOption
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)
              (Packing
-> Lens' EnumValueOptions [UninterpretedOption]
-> FieldAccessor EnumValueOptions UninterpretedOption
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uninterpretedOption")) ::
              Data.ProtoLens.FieldDescriptor EnumValueOptions
      in
        [(Tag, FieldDescriptor EnumValueOptions)]
-> Map Tag (FieldDescriptor EnumValueOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor EnumValueOptions
deprecated__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 999, FieldDescriptor EnumValueOptions
uninterpretedOption__field_descriptor)]
  unknownFields :: LensLike' f EnumValueOptions FieldSet
unknownFields
    = (EnumValueOptions -> FieldSet)
-> (EnumValueOptions -> FieldSet -> EnumValueOptions)
-> Lens' EnumValueOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EnumValueOptions -> FieldSet
_EnumValueOptions'_unknownFields
        (\ x__ :: EnumValueOptions
x__ y__ :: FieldSet
y__ -> EnumValueOptions
x__ {_EnumValueOptions'_unknownFields :: FieldSet
_EnumValueOptions'_unknownFields = FieldSet
y__})
  defMessage :: EnumValueOptions
defMessage
    = $WEnumValueOptions'_constructor :: Maybe Bool
-> Vector UninterpretedOption -> FieldSet -> EnumValueOptions
EnumValueOptions'_constructor
        {_EnumValueOptions'deprecated :: Maybe Bool
_EnumValueOptions'deprecated = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _EnumValueOptions'uninterpretedOption :: Vector UninterpretedOption
_EnumValueOptions'uninterpretedOption = Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _EnumValueOptions'_unknownFields :: FieldSet
_EnumValueOptions'_unknownFields = []}
  parseMessage :: Parser EnumValueOptions
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 :: EnumValueOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser EnumValueOptions
loop x :: EnumValueOptions
x mutable'uninterpretedOption :: Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector UninterpretedOption
frozen'uninterpretedOption <- IO (Vector UninterpretedOption)
-> Parser (Vector UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                      (Growing Vector (PrimState IO) UninterpretedOption
-> IO (Vector UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                         Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      EnumValueOptions -> Parser EnumValueOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter EnumValueOptions EnumValueOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> EnumValueOptions -> EnumValueOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter EnumValueOptions EnumValueOptions FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  EnumValueOptions
  EnumValueOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> Vector UninterpretedOption
-> EnumValueOptions
-> EnumValueOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption")
                              Vector UninterpretedOption
frozen'uninterpretedOption
                              EnumValueOptions
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "deprecated"
                                EnumValueOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser EnumValueOptions
loop
                                  (Setter EnumValueOptions EnumValueOptions Bool Bool
-> Bool -> EnumValueOptions -> EnumValueOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deprecated") Bool
y EnumValueOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        7994
                          -> do !UninterpretedOption
y <- Parser UninterpretedOption -> String -> Parser UninterpretedOption
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser UninterpretedOption -> Parser UninterpretedOption
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser UninterpretedOption
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "uninterpreted_option"
                                Growing Vector RealWorld UninterpretedOption
v <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) UninterpretedOption
-> UninterpretedOption
-> IO (Growing Vector (PrimState IO) UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption UninterpretedOption
y)
                                EnumValueOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser EnumValueOptions
loop EnumValueOptions
x Growing Vector RealWorld UninterpretedOption
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                EnumValueOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser EnumValueOptions
loop
                                  (Setter EnumValueOptions EnumValueOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> EnumValueOptions -> EnumValueOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter EnumValueOptions EnumValueOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) EnumValueOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
      in
        Parser EnumValueOptions -> String -> Parser EnumValueOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               IO (Growing Vector RealWorld UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              EnumValueOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser EnumValueOptions
loop EnumValueOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption)
          "EnumValueOptions"
  buildMessage :: EnumValueOptions -> Builder
buildMessage
    = \ _x :: EnumValueOptions
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Bool)
  EnumValueOptions
  EnumValueOptions
  (Maybe Bool)
  (Maybe Bool)
-> EnumValueOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                    (forall s a (f :: * -> *).
(HasField s "maybe'deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'deprecated") EnumValueOptions
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Bool
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 8)
                       ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                          (\ b :: Bool
b -> if Bool
b then 1 else 0)
                          Bool
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((UninterpretedOption -> Builder)
-> Vector UninterpretedOption -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ _v :: UninterpretedOption
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 7994)
                           ((ByteString -> Builder)
-> (UninterpretedOption -> ByteString)
-> UninterpretedOption
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                              (\ bs :: ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                              UninterpretedOption -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                              UninterpretedOption
_v))
                   (FoldLike
  (Vector UninterpretedOption)
  EnumValueOptions
  EnumValueOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> EnumValueOptions -> Vector UninterpretedOption
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption") EnumValueOptions
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet EnumValueOptions EnumValueOptions FieldSet FieldSet
-> EnumValueOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet EnumValueOptions EnumValueOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields EnumValueOptions
_x)))
instance Control.DeepSeq.NFData EnumValueOptions where
  rnf :: EnumValueOptions -> ()
rnf
    = \ x__ :: EnumValueOptions
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EnumValueOptions -> FieldSet
_EnumValueOptions'_unknownFields EnumValueOptions
x__)
             (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (EnumValueOptions -> Maybe Bool
_EnumValueOptions'deprecated EnumValueOptions
x__)
                (Vector UninterpretedOption -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (EnumValueOptions -> Vector UninterpretedOption
_EnumValueOptions'uninterpretedOption EnumValueOptions
x__) ()))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' ExtensionRangeOptions [UninterpretedOption]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' ExtensionRangeOptions (Data.Vector.Vector UninterpretedOption)@ -}
data ExtensionRangeOptions
  = ExtensionRangeOptions'_constructor {ExtensionRangeOptions -> Vector UninterpretedOption
_ExtensionRangeOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption),
                                        ExtensionRangeOptions -> FieldSet
_ExtensionRangeOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (ExtensionRangeOptions -> ExtensionRangeOptions -> Bool
(ExtensionRangeOptions -> ExtensionRangeOptions -> Bool)
-> (ExtensionRangeOptions -> ExtensionRangeOptions -> Bool)
-> Eq ExtensionRangeOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ExtensionRangeOptions -> ExtensionRangeOptions -> Bool
$c/= :: ExtensionRangeOptions -> ExtensionRangeOptions -> Bool
== :: ExtensionRangeOptions -> ExtensionRangeOptions -> Bool
$c== :: ExtensionRangeOptions -> ExtensionRangeOptions -> Bool
Prelude.Eq, Eq ExtensionRangeOptions
Eq ExtensionRangeOptions =>
(ExtensionRangeOptions -> ExtensionRangeOptions -> Ordering)
-> (ExtensionRangeOptions -> ExtensionRangeOptions -> Bool)
-> (ExtensionRangeOptions -> ExtensionRangeOptions -> Bool)
-> (ExtensionRangeOptions -> ExtensionRangeOptions -> Bool)
-> (ExtensionRangeOptions -> ExtensionRangeOptions -> Bool)
-> (ExtensionRangeOptions
    -> ExtensionRangeOptions -> ExtensionRangeOptions)
-> (ExtensionRangeOptions
    -> ExtensionRangeOptions -> ExtensionRangeOptions)
-> Ord ExtensionRangeOptions
ExtensionRangeOptions -> ExtensionRangeOptions -> Bool
ExtensionRangeOptions -> ExtensionRangeOptions -> Ordering
ExtensionRangeOptions
-> ExtensionRangeOptions -> ExtensionRangeOptions
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: ExtensionRangeOptions
-> ExtensionRangeOptions -> ExtensionRangeOptions
$cmin :: ExtensionRangeOptions
-> ExtensionRangeOptions -> ExtensionRangeOptions
max :: ExtensionRangeOptions
-> ExtensionRangeOptions -> ExtensionRangeOptions
$cmax :: ExtensionRangeOptions
-> ExtensionRangeOptions -> ExtensionRangeOptions
>= :: ExtensionRangeOptions -> ExtensionRangeOptions -> Bool
$c>= :: ExtensionRangeOptions -> ExtensionRangeOptions -> Bool
> :: ExtensionRangeOptions -> ExtensionRangeOptions -> Bool
$c> :: ExtensionRangeOptions -> ExtensionRangeOptions -> Bool
<= :: ExtensionRangeOptions -> ExtensionRangeOptions -> Bool
$c<= :: ExtensionRangeOptions -> ExtensionRangeOptions -> Bool
< :: ExtensionRangeOptions -> ExtensionRangeOptions -> Bool
$c< :: ExtensionRangeOptions -> ExtensionRangeOptions -> Bool
compare :: ExtensionRangeOptions -> ExtensionRangeOptions -> Ordering
$ccompare :: ExtensionRangeOptions -> ExtensionRangeOptions -> Ordering
$cp1Ord :: Eq ExtensionRangeOptions
Prelude.Ord)
instance Prelude.Show ExtensionRangeOptions where
  showsPrec :: Int -> ExtensionRangeOptions -> ShowS
showsPrec _ __x :: ExtensionRangeOptions
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (ExtensionRangeOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExtensionRangeOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField ExtensionRangeOptions "uninterpretedOption" [UninterpretedOption] where
  fieldOf :: Proxy# "uninterpretedOption"
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> ExtensionRangeOptions
-> f ExtensionRangeOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> ExtensionRangeOptions -> f ExtensionRangeOptions)
-> (([UninterpretedOption] -> f [UninterpretedOption])
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> ExtensionRangeOptions
-> f ExtensionRangeOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExtensionRangeOptions -> Vector UninterpretedOption)
-> (ExtensionRangeOptions
    -> Vector UninterpretedOption -> ExtensionRangeOptions)
-> Lens
     ExtensionRangeOptions
     ExtensionRangeOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExtensionRangeOptions -> Vector UninterpretedOption
_ExtensionRangeOptions'uninterpretedOption
           (\ x__ :: ExtensionRangeOptions
x__ y__ :: Vector UninterpretedOption
y__
              -> ExtensionRangeOptions
x__ {_ExtensionRangeOptions'uninterpretedOption :: Vector UninterpretedOption
_ExtensionRangeOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        ((Vector UninterpretedOption -> [UninterpretedOption])
-> (Vector UninterpretedOption
    -> [UninterpretedOption] -> Vector UninterpretedOption)
-> Lens
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
     [UninterpretedOption]
     [UninterpretedOption]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector UninterpretedOption -> [UninterpretedOption]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [UninterpretedOption]
y__ -> [UninterpretedOption] -> Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UninterpretedOption]
y__))
instance Data.ProtoLens.Field.HasField ExtensionRangeOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where
  fieldOf :: Proxy# "vec'uninterpretedOption"
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> ExtensionRangeOptions
-> f ExtensionRangeOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> ExtensionRangeOptions -> f ExtensionRangeOptions)
-> ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> ExtensionRangeOptions
-> f ExtensionRangeOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExtensionRangeOptions -> Vector UninterpretedOption)
-> (ExtensionRangeOptions
    -> Vector UninterpretedOption -> ExtensionRangeOptions)
-> Lens
     ExtensionRangeOptions
     ExtensionRangeOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExtensionRangeOptions -> Vector UninterpretedOption
_ExtensionRangeOptions'uninterpretedOption
           (\ x__ :: ExtensionRangeOptions
x__ y__ :: Vector UninterpretedOption
y__
              -> ExtensionRangeOptions
x__ {_ExtensionRangeOptions'uninterpretedOption :: Vector UninterpretedOption
_ExtensionRangeOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> Vector UninterpretedOption -> f (Vector UninterpretedOption)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExtensionRangeOptions where
  messageName :: Proxy ExtensionRangeOptions -> Text
messageName _
    = String -> Text
Data.Text.pack "google.protobuf.ExtensionRangeOptions"
  fieldsByTag :: Map Tag (FieldDescriptor ExtensionRangeOptions)
fieldsByTag
    = let
        uninterpretedOption__field_descriptor :: FieldDescriptor ExtensionRangeOptions
uninterpretedOption__field_descriptor
          = String
-> FieldTypeDescriptor UninterpretedOption
-> FieldAccessor ExtensionRangeOptions UninterpretedOption
-> FieldDescriptor ExtensionRangeOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "uninterpreted_option"
              (MessageOrGroup -> FieldTypeDescriptor UninterpretedOption
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)
              (Packing
-> Lens' ExtensionRangeOptions [UninterpretedOption]
-> FieldAccessor ExtensionRangeOptions UninterpretedOption
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uninterpretedOption")) ::
              Data.ProtoLens.FieldDescriptor ExtensionRangeOptions
      in
        [(Tag, FieldDescriptor ExtensionRangeOptions)]
-> Map Tag (FieldDescriptor ExtensionRangeOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 999, FieldDescriptor ExtensionRangeOptions
uninterpretedOption__field_descriptor)]
  unknownFields :: LensLike' f ExtensionRangeOptions FieldSet
unknownFields
    = (ExtensionRangeOptions -> FieldSet)
-> (ExtensionRangeOptions -> FieldSet -> ExtensionRangeOptions)
-> Lens' ExtensionRangeOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ExtensionRangeOptions -> FieldSet
_ExtensionRangeOptions'_unknownFields
        (\ x__ :: ExtensionRangeOptions
x__ y__ :: FieldSet
y__ -> ExtensionRangeOptions
x__ {_ExtensionRangeOptions'_unknownFields :: FieldSet
_ExtensionRangeOptions'_unknownFields = FieldSet
y__})
  defMessage :: ExtensionRangeOptions
defMessage
    = $WExtensionRangeOptions'_constructor :: Vector UninterpretedOption -> FieldSet -> ExtensionRangeOptions
ExtensionRangeOptions'_constructor
        {_ExtensionRangeOptions'uninterpretedOption :: Vector UninterpretedOption
_ExtensionRangeOptions'uninterpretedOption = Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ExtensionRangeOptions'_unknownFields :: FieldSet
_ExtensionRangeOptions'_unknownFields = []}
  parseMessage :: Parser ExtensionRangeOptions
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 :: ExtensionRangeOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser ExtensionRangeOptions
loop x :: ExtensionRangeOptions
x mutable'uninterpretedOption :: Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector UninterpretedOption
frozen'uninterpretedOption <- IO (Vector UninterpretedOption)
-> Parser (Vector UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                      (Growing Vector (PrimState IO) UninterpretedOption
-> IO (Vector UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                         Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ExtensionRangeOptions -> Parser ExtensionRangeOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ExtensionRangeOptions ExtensionRangeOptions FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ExtensionRangeOptions
-> ExtensionRangeOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  ExtensionRangeOptions ExtensionRangeOptions FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  ExtensionRangeOptions
  ExtensionRangeOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> Vector UninterpretedOption
-> ExtensionRangeOptions
-> ExtensionRangeOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption")
                              Vector UninterpretedOption
frozen'uninterpretedOption
                              ExtensionRangeOptions
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        7994
                          -> do !UninterpretedOption
y <- Parser UninterpretedOption -> String -> Parser UninterpretedOption
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser UninterpretedOption -> Parser UninterpretedOption
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser UninterpretedOption
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "uninterpreted_option"
                                Growing Vector RealWorld UninterpretedOption
v <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) UninterpretedOption
-> UninterpretedOption
-> IO (Growing Vector (PrimState IO) UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption UninterpretedOption
y)
                                ExtensionRangeOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser ExtensionRangeOptions
loop ExtensionRangeOptions
x Growing Vector RealWorld UninterpretedOption
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ExtensionRangeOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser ExtensionRangeOptions
loop
                                  (Setter
  ExtensionRangeOptions ExtensionRangeOptions FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ExtensionRangeOptions
-> ExtensionRangeOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  ExtensionRangeOptions ExtensionRangeOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ExtensionRangeOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
      in
        Parser ExtensionRangeOptions
-> String -> Parser ExtensionRangeOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               IO (Growing Vector RealWorld UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              ExtensionRangeOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser ExtensionRangeOptions
loop ExtensionRangeOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption)
          "ExtensionRangeOptions"
  buildMessage :: ExtensionRangeOptions -> Builder
buildMessage
    = \ _x :: ExtensionRangeOptions
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((UninterpretedOption -> Builder)
-> Vector UninterpretedOption -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: UninterpretedOption
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 7994)
                        ((ByteString -> Builder)
-> (UninterpretedOption -> ByteString)
-> UninterpretedOption
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ bs :: ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           UninterpretedOption -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                           UninterpretedOption
_v))
                (FoldLike
  (Vector UninterpretedOption)
  ExtensionRangeOptions
  ExtensionRangeOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> ExtensionRangeOptions -> Vector UninterpretedOption
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption") ExtensionRangeOptions
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  ExtensionRangeOptions
  ExtensionRangeOptions
  FieldSet
  FieldSet
-> ExtensionRangeOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ExtensionRangeOptions
  ExtensionRangeOptions
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ExtensionRangeOptions
_x))
instance Control.DeepSeq.NFData ExtensionRangeOptions where
  rnf :: ExtensionRangeOptions -> ()
rnf
    = \ x__ :: ExtensionRangeOptions
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ExtensionRangeOptions -> FieldSet
_ExtensionRangeOptions'_unknownFields ExtensionRangeOptions
x__)
             (Vector UninterpretedOption -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ExtensionRangeOptions -> Vector UninterpretedOption
_ExtensionRangeOptions'uninterpretedOption ExtensionRangeOptions
x__) ())
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' FieldDescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.number' @:: Lens' FieldDescriptorProto Data.Int.Int32@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'number' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Int.Int32)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.label' @:: Lens' FieldDescriptorProto FieldDescriptorProto'Label@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'label' @:: Lens' FieldDescriptorProto (Prelude.Maybe FieldDescriptorProto'Label)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.type'' @:: Lens' FieldDescriptorProto FieldDescriptorProto'Type@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'type'' @:: Lens' FieldDescriptorProto (Prelude.Maybe FieldDescriptorProto'Type)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.typeName' @:: Lens' FieldDescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'typeName' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.extendee' @:: Lens' FieldDescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'extendee' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.defaultValue' @:: Lens' FieldDescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'defaultValue' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.oneofIndex' @:: Lens' FieldDescriptorProto Data.Int.Int32@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'oneofIndex' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Int.Int32)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.jsonName' @:: Lens' FieldDescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'jsonName' @:: Lens' FieldDescriptorProto (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' FieldDescriptorProto FieldOptions@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' FieldDescriptorProto (Prelude.Maybe FieldOptions)@ -}
data FieldDescriptorProto
  = FieldDescriptorProto'_constructor {FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'name :: !(Prelude.Maybe Data.Text.Text),
                                       FieldDescriptorProto -> Maybe Int32
_FieldDescriptorProto'number :: !(Prelude.Maybe Data.Int.Int32),
                                       FieldDescriptorProto -> Maybe FieldDescriptorProto'Label
_FieldDescriptorProto'label :: !(Prelude.Maybe FieldDescriptorProto'Label),
                                       FieldDescriptorProto -> Maybe FieldDescriptorProto'Type
_FieldDescriptorProto'type' :: !(Prelude.Maybe FieldDescriptorProto'Type),
                                       FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'typeName :: !(Prelude.Maybe Data.Text.Text),
                                       FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'extendee :: !(Prelude.Maybe Data.Text.Text),
                                       FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'defaultValue :: !(Prelude.Maybe Data.Text.Text),
                                       FieldDescriptorProto -> Maybe Int32
_FieldDescriptorProto'oneofIndex :: !(Prelude.Maybe Data.Int.Int32),
                                       FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'jsonName :: !(Prelude.Maybe Data.Text.Text),
                                       FieldDescriptorProto -> Maybe FieldOptions
_FieldDescriptorProto'options :: !(Prelude.Maybe FieldOptions),
                                       FieldDescriptorProto -> FieldSet
_FieldDescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (FieldDescriptorProto -> FieldDescriptorProto -> Bool
(FieldDescriptorProto -> FieldDescriptorProto -> Bool)
-> (FieldDescriptorProto -> FieldDescriptorProto -> Bool)
-> Eq FieldDescriptorProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FieldDescriptorProto -> FieldDescriptorProto -> Bool
$c/= :: FieldDescriptorProto -> FieldDescriptorProto -> Bool
== :: FieldDescriptorProto -> FieldDescriptorProto -> Bool
$c== :: FieldDescriptorProto -> FieldDescriptorProto -> Bool
Prelude.Eq, Eq FieldDescriptorProto
Eq FieldDescriptorProto =>
(FieldDescriptorProto -> FieldDescriptorProto -> Ordering)
-> (FieldDescriptorProto -> FieldDescriptorProto -> Bool)
-> (FieldDescriptorProto -> FieldDescriptorProto -> Bool)
-> (FieldDescriptorProto -> FieldDescriptorProto -> Bool)
-> (FieldDescriptorProto -> FieldDescriptorProto -> Bool)
-> (FieldDescriptorProto
    -> FieldDescriptorProto -> FieldDescriptorProto)
-> (FieldDescriptorProto
    -> FieldDescriptorProto -> FieldDescriptorProto)
-> Ord FieldDescriptorProto
FieldDescriptorProto -> FieldDescriptorProto -> Bool
FieldDescriptorProto -> FieldDescriptorProto -> Ordering
FieldDescriptorProto
-> FieldDescriptorProto -> FieldDescriptorProto
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: FieldDescriptorProto
-> FieldDescriptorProto -> FieldDescriptorProto
$cmin :: FieldDescriptorProto
-> FieldDescriptorProto -> FieldDescriptorProto
max :: FieldDescriptorProto
-> FieldDescriptorProto -> FieldDescriptorProto
$cmax :: FieldDescriptorProto
-> FieldDescriptorProto -> FieldDescriptorProto
>= :: FieldDescriptorProto -> FieldDescriptorProto -> Bool
$c>= :: FieldDescriptorProto -> FieldDescriptorProto -> Bool
> :: FieldDescriptorProto -> FieldDescriptorProto -> Bool
$c> :: FieldDescriptorProto -> FieldDescriptorProto -> Bool
<= :: FieldDescriptorProto -> FieldDescriptorProto -> Bool
$c<= :: FieldDescriptorProto -> FieldDescriptorProto -> Bool
< :: FieldDescriptorProto -> FieldDescriptorProto -> Bool
$c< :: FieldDescriptorProto -> FieldDescriptorProto -> Bool
compare :: FieldDescriptorProto -> FieldDescriptorProto -> Ordering
$ccompare :: FieldDescriptorProto -> FieldDescriptorProto -> Ordering
$cp1Ord :: Eq FieldDescriptorProto
Prelude.Ord)
instance Prelude.Show FieldDescriptorProto where
  showsPrec :: Int -> FieldDescriptorProto -> ShowS
showsPrec _ __x :: FieldDescriptorProto
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (FieldDescriptorProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FieldDescriptorProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "name" Data.Text.Text where
  fieldOf :: Proxy# "name"
-> (Text -> f Text)
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe Text)
-> (FieldDescriptorProto -> Maybe Text -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto FieldDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'name
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe Text
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'name :: Maybe Text
_FieldDescriptorProto'name = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'name"
-> (Maybe Text -> f (Maybe Text))
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe Text)
-> (FieldDescriptorProto -> Maybe Text -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto FieldDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'name
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe Text
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'name :: Maybe Text
_FieldDescriptorProto'name = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "number" Data.Int.Int32 where
  fieldOf :: Proxy# "number"
-> (Int32 -> f Int32)
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Int32 -> f Int32) -> Maybe Int32 -> f (Maybe Int32))
-> (Int32 -> f Int32)
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe Int32)
-> (FieldDescriptorProto -> Maybe Int32 -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto
     FieldDescriptorProto
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe Int32
_FieldDescriptorProto'number
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe Int32
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'number :: Maybe Int32
_FieldDescriptorProto'number = Maybe Int32
y__}))
        (Int32 -> Lens' (Maybe Int32) Int32
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'number" (Prelude.Maybe Data.Int.Int32) where
  fieldOf :: Proxy# "maybe'number"
-> (Maybe Int32 -> f (Maybe Int32))
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Maybe Int32 -> f (Maybe Int32))
    -> Maybe Int32 -> f (Maybe Int32))
-> (Maybe Int32 -> f (Maybe Int32))
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe Int32)
-> (FieldDescriptorProto -> Maybe Int32 -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto
     FieldDescriptorProto
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe Int32
_FieldDescriptorProto'number
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe Int32
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'number :: Maybe Int32
_FieldDescriptorProto'number = Maybe Int32
y__}))
        (Maybe Int32 -> f (Maybe Int32)) -> Maybe Int32 -> f (Maybe Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "label" FieldDescriptorProto'Label where
  fieldOf :: Proxy# "label"
-> (FieldDescriptorProto'Label -> f FieldDescriptorProto'Label)
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe FieldDescriptorProto'Label
  -> f (Maybe FieldDescriptorProto'Label))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((FieldDescriptorProto'Label -> f FieldDescriptorProto'Label)
    -> Maybe FieldDescriptorProto'Label
    -> f (Maybe FieldDescriptorProto'Label))
-> (FieldDescriptorProto'Label -> f FieldDescriptorProto'Label)
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe FieldDescriptorProto'Label)
-> (FieldDescriptorProto
    -> Maybe FieldDescriptorProto'Label -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto
     FieldDescriptorProto
     (Maybe FieldDescriptorProto'Label)
     (Maybe FieldDescriptorProto'Label)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe FieldDescriptorProto'Label
_FieldDescriptorProto'label
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe FieldDescriptorProto'Label
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'label :: Maybe FieldDescriptorProto'Label
_FieldDescriptorProto'label = Maybe FieldDescriptorProto'Label
y__}))
        (FieldDescriptorProto'Label
-> Lens'
     (Maybe FieldDescriptorProto'Label) FieldDescriptorProto'Label
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FieldDescriptorProto'Label
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'label" (Prelude.Maybe FieldDescriptorProto'Label) where
  fieldOf :: Proxy# "maybe'label"
-> (Maybe FieldDescriptorProto'Label
    -> f (Maybe FieldDescriptorProto'Label))
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe FieldDescriptorProto'Label
  -> f (Maybe FieldDescriptorProto'Label))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Maybe FieldDescriptorProto'Label
     -> f (Maybe FieldDescriptorProto'Label))
    -> Maybe FieldDescriptorProto'Label
    -> f (Maybe FieldDescriptorProto'Label))
-> (Maybe FieldDescriptorProto'Label
    -> f (Maybe FieldDescriptorProto'Label))
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe FieldDescriptorProto'Label)
-> (FieldDescriptorProto
    -> Maybe FieldDescriptorProto'Label -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto
     FieldDescriptorProto
     (Maybe FieldDescriptorProto'Label)
     (Maybe FieldDescriptorProto'Label)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe FieldDescriptorProto'Label
_FieldDescriptorProto'label
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe FieldDescriptorProto'Label
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'label :: Maybe FieldDescriptorProto'Label
_FieldDescriptorProto'label = Maybe FieldDescriptorProto'Label
y__}))
        (Maybe FieldDescriptorProto'Label
 -> f (Maybe FieldDescriptorProto'Label))
-> Maybe FieldDescriptorProto'Label
-> f (Maybe FieldDescriptorProto'Label)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "type'" FieldDescriptorProto'Type where
  fieldOf :: Proxy# "type'"
-> (FieldDescriptorProto'Type -> f FieldDescriptorProto'Type)
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe FieldDescriptorProto'Type
  -> f (Maybe FieldDescriptorProto'Type))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((FieldDescriptorProto'Type -> f FieldDescriptorProto'Type)
    -> Maybe FieldDescriptorProto'Type
    -> f (Maybe FieldDescriptorProto'Type))
-> (FieldDescriptorProto'Type -> f FieldDescriptorProto'Type)
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe FieldDescriptorProto'Type)
-> (FieldDescriptorProto
    -> Maybe FieldDescriptorProto'Type -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto
     FieldDescriptorProto
     (Maybe FieldDescriptorProto'Type)
     (Maybe FieldDescriptorProto'Type)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe FieldDescriptorProto'Type
_FieldDescriptorProto'type'
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe FieldDescriptorProto'Type
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'type' :: Maybe FieldDescriptorProto'Type
_FieldDescriptorProto'type' = Maybe FieldDescriptorProto'Type
y__}))
        (FieldDescriptorProto'Type
-> Lens'
     (Maybe FieldDescriptorProto'Type) FieldDescriptorProto'Type
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FieldDescriptorProto'Type
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'type'" (Prelude.Maybe FieldDescriptorProto'Type) where
  fieldOf :: Proxy# "maybe'type'"
-> (Maybe FieldDescriptorProto'Type
    -> f (Maybe FieldDescriptorProto'Type))
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe FieldDescriptorProto'Type
  -> f (Maybe FieldDescriptorProto'Type))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Maybe FieldDescriptorProto'Type
     -> f (Maybe FieldDescriptorProto'Type))
    -> Maybe FieldDescriptorProto'Type
    -> f (Maybe FieldDescriptorProto'Type))
-> (Maybe FieldDescriptorProto'Type
    -> f (Maybe FieldDescriptorProto'Type))
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe FieldDescriptorProto'Type)
-> (FieldDescriptorProto
    -> Maybe FieldDescriptorProto'Type -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto
     FieldDescriptorProto
     (Maybe FieldDescriptorProto'Type)
     (Maybe FieldDescriptorProto'Type)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe FieldDescriptorProto'Type
_FieldDescriptorProto'type'
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe FieldDescriptorProto'Type
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'type' :: Maybe FieldDescriptorProto'Type
_FieldDescriptorProto'type' = Maybe FieldDescriptorProto'Type
y__}))
        (Maybe FieldDescriptorProto'Type
 -> f (Maybe FieldDescriptorProto'Type))
-> Maybe FieldDescriptorProto'Type
-> f (Maybe FieldDescriptorProto'Type)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "typeName" Data.Text.Text where
  fieldOf :: Proxy# "typeName"
-> (Text -> f Text)
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe Text)
-> (FieldDescriptorProto -> Maybe Text -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto FieldDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'typeName
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe Text
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'typeName :: Maybe Text
_FieldDescriptorProto'typeName = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'typeName" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'typeName"
-> (Maybe Text -> f (Maybe Text))
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe Text)
-> (FieldDescriptorProto -> Maybe Text -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto FieldDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'typeName
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe Text
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'typeName :: Maybe Text
_FieldDescriptorProto'typeName = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "extendee" Data.Text.Text where
  fieldOf :: Proxy# "extendee"
-> (Text -> f Text)
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe Text)
-> (FieldDescriptorProto -> Maybe Text -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto FieldDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'extendee
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe Text
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'extendee :: Maybe Text
_FieldDescriptorProto'extendee = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'extendee" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'extendee"
-> (Maybe Text -> f (Maybe Text))
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe Text)
-> (FieldDescriptorProto -> Maybe Text -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto FieldDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'extendee
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe Text
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'extendee :: Maybe Text
_FieldDescriptorProto'extendee = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "defaultValue" Data.Text.Text where
  fieldOf :: Proxy# "defaultValue"
-> (Text -> f Text)
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe Text)
-> (FieldDescriptorProto -> Maybe Text -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto FieldDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'defaultValue
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe Text
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'defaultValue :: Maybe Text
_FieldDescriptorProto'defaultValue = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'defaultValue" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'defaultValue"
-> (Maybe Text -> f (Maybe Text))
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe Text)
-> (FieldDescriptorProto -> Maybe Text -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto FieldDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'defaultValue
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe Text
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'defaultValue :: Maybe Text
_FieldDescriptorProto'defaultValue = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "oneofIndex" Data.Int.Int32 where
  fieldOf :: Proxy# "oneofIndex"
-> (Int32 -> f Int32)
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Int32 -> f Int32) -> Maybe Int32 -> f (Maybe Int32))
-> (Int32 -> f Int32)
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe Int32)
-> (FieldDescriptorProto -> Maybe Int32 -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto
     FieldDescriptorProto
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe Int32
_FieldDescriptorProto'oneofIndex
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe Int32
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'oneofIndex :: Maybe Int32
_FieldDescriptorProto'oneofIndex = Maybe Int32
y__}))
        (Int32 -> Lens' (Maybe Int32) Int32
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'oneofIndex" (Prelude.Maybe Data.Int.Int32) where
  fieldOf :: Proxy# "maybe'oneofIndex"
-> (Maybe Int32 -> f (Maybe Int32))
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Maybe Int32 -> f (Maybe Int32))
    -> Maybe Int32 -> f (Maybe Int32))
-> (Maybe Int32 -> f (Maybe Int32))
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe Int32)
-> (FieldDescriptorProto -> Maybe Int32 -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto
     FieldDescriptorProto
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe Int32
_FieldDescriptorProto'oneofIndex
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe Int32
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'oneofIndex :: Maybe Int32
_FieldDescriptorProto'oneofIndex = Maybe Int32
y__}))
        (Maybe Int32 -> f (Maybe Int32)) -> Maybe Int32 -> f (Maybe Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "jsonName" Data.Text.Text where
  fieldOf :: Proxy# "jsonName"
-> (Text -> f Text)
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe Text)
-> (FieldDescriptorProto -> Maybe Text -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto FieldDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'jsonName
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe Text
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'jsonName :: Maybe Text
_FieldDescriptorProto'jsonName = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'jsonName" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'jsonName"
-> (Maybe Text -> f (Maybe Text))
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe Text)
-> (FieldDescriptorProto -> Maybe Text -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto FieldDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'jsonName
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe Text
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'jsonName :: Maybe Text
_FieldDescriptorProto'jsonName = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "options" FieldOptions where
  fieldOf :: Proxy# "options"
-> (FieldOptions -> f FieldOptions)
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe FieldOptions -> f (Maybe FieldOptions))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((FieldOptions -> f FieldOptions)
    -> Maybe FieldOptions -> f (Maybe FieldOptions))
-> (FieldOptions -> f FieldOptions)
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe FieldOptions)
-> (FieldDescriptorProto
    -> Maybe FieldOptions -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto
     FieldDescriptorProto
     (Maybe FieldOptions)
     (Maybe FieldOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe FieldOptions
_FieldDescriptorProto'options
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe FieldOptions
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'options :: Maybe FieldOptions
_FieldDescriptorProto'options = Maybe FieldOptions
y__}))
        (FieldOptions -> Lens' (Maybe FieldOptions) FieldOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FieldOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FieldDescriptorProto "maybe'options" (Prelude.Maybe FieldOptions) where
  fieldOf :: Proxy# "maybe'options"
-> (Maybe FieldOptions -> f (Maybe FieldOptions))
-> FieldDescriptorProto
-> f FieldDescriptorProto
fieldOf _
    = ((Maybe FieldOptions -> f (Maybe FieldOptions))
 -> FieldDescriptorProto -> f FieldDescriptorProto)
-> ((Maybe FieldOptions -> f (Maybe FieldOptions))
    -> Maybe FieldOptions -> f (Maybe FieldOptions))
-> (Maybe FieldOptions -> f (Maybe FieldOptions))
-> FieldDescriptorProto
-> f FieldDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldDescriptorProto -> Maybe FieldOptions)
-> (FieldDescriptorProto
    -> Maybe FieldOptions -> FieldDescriptorProto)
-> Lens
     FieldDescriptorProto
     FieldDescriptorProto
     (Maybe FieldOptions)
     (Maybe FieldOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldDescriptorProto -> Maybe FieldOptions
_FieldDescriptorProto'options
           (\ x__ :: FieldDescriptorProto
x__ y__ :: Maybe FieldOptions
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'options :: Maybe FieldOptions
_FieldDescriptorProto'options = Maybe FieldOptions
y__}))
        (Maybe FieldOptions -> f (Maybe FieldOptions))
-> Maybe FieldOptions -> f (Maybe FieldOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FieldDescriptorProto where
  messageName :: Proxy FieldDescriptorProto -> Text
messageName _
    = String -> Text
Data.Text.pack "google.protobuf.FieldDescriptorProto"
  fieldsByTag :: Map Tag (FieldDescriptor FieldDescriptorProto)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor FieldDescriptorProto
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FieldDescriptorProto Text
-> FieldDescriptor FieldDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  FieldDescriptorProto FieldDescriptorProto (Maybe Text) (Maybe Text)
-> FieldAccessor FieldDescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name")) ::
              Data.ProtoLens.FieldDescriptor FieldDescriptorProto
        number__field_descriptor :: FieldDescriptor FieldDescriptorProto
number__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor FieldDescriptorProto Int32
-> FieldDescriptor FieldDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "number"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Lens
  FieldDescriptorProto
  FieldDescriptorProto
  (Maybe Int32)
  (Maybe Int32)
-> FieldAccessor FieldDescriptorProto Int32
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'number" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'number")) ::
              Data.ProtoLens.FieldDescriptor FieldDescriptorProto
        label__field_descriptor :: FieldDescriptor FieldDescriptorProto
label__field_descriptor
          = String
-> FieldTypeDescriptor FieldDescriptorProto'Label
-> FieldAccessor FieldDescriptorProto FieldDescriptorProto'Label
-> FieldDescriptor FieldDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "label"
              (ScalarField FieldDescriptorProto'Label
-> FieldTypeDescriptor FieldDescriptorProto'Label
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField FieldDescriptorProto'Label
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto'Label)
              (Lens
  FieldDescriptorProto
  FieldDescriptorProto
  (Maybe FieldDescriptorProto'Label)
  (Maybe FieldDescriptorProto'Label)
-> FieldAccessor FieldDescriptorProto FieldDescriptorProto'Label
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'label" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'label")) ::
              Data.ProtoLens.FieldDescriptor FieldDescriptorProto
        type'__field_descriptor :: FieldDescriptor FieldDescriptorProto
type'__field_descriptor
          = String
-> FieldTypeDescriptor FieldDescriptorProto'Type
-> FieldAccessor FieldDescriptorProto FieldDescriptorProto'Type
-> FieldDescriptor FieldDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "type"
              (ScalarField FieldDescriptorProto'Type
-> FieldTypeDescriptor FieldDescriptorProto'Type
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField FieldDescriptorProto'Type
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto'Type)
              (Lens
  FieldDescriptorProto
  FieldDescriptorProto
  (Maybe FieldDescriptorProto'Type)
  (Maybe FieldDescriptorProto'Type)
-> FieldAccessor FieldDescriptorProto FieldDescriptorProto'Type
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'type'" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'type'")) ::
              Data.ProtoLens.FieldDescriptor FieldDescriptorProto
        typeName__field_descriptor :: FieldDescriptor FieldDescriptorProto
typeName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FieldDescriptorProto Text
-> FieldDescriptor FieldDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "type_name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  FieldDescriptorProto FieldDescriptorProto (Maybe Text) (Maybe Text)
-> FieldAccessor FieldDescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'typeName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'typeName")) ::
              Data.ProtoLens.FieldDescriptor FieldDescriptorProto
        extendee__field_descriptor :: FieldDescriptor FieldDescriptorProto
extendee__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FieldDescriptorProto Text
-> FieldDescriptor FieldDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "extendee"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  FieldDescriptorProto FieldDescriptorProto (Maybe Text) (Maybe Text)
-> FieldAccessor FieldDescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'extendee" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'extendee")) ::
              Data.ProtoLens.FieldDescriptor FieldDescriptorProto
        defaultValue__field_descriptor :: FieldDescriptor FieldDescriptorProto
defaultValue__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FieldDescriptorProto Text
-> FieldDescriptor FieldDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "default_value"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  FieldDescriptorProto FieldDescriptorProto (Maybe Text) (Maybe Text)
-> FieldAccessor FieldDescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'defaultValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'defaultValue")) ::
              Data.ProtoLens.FieldDescriptor FieldDescriptorProto
        oneofIndex__field_descriptor :: FieldDescriptor FieldDescriptorProto
oneofIndex__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor FieldDescriptorProto Int32
-> FieldDescriptor FieldDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "oneof_index"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Lens
  FieldDescriptorProto
  FieldDescriptorProto
  (Maybe Int32)
  (Maybe Int32)
-> FieldAccessor FieldDescriptorProto Int32
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'oneofIndex" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'oneofIndex")) ::
              Data.ProtoLens.FieldDescriptor FieldDescriptorProto
        jsonName__field_descriptor :: FieldDescriptor FieldDescriptorProto
jsonName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FieldDescriptorProto Text
-> FieldDescriptor FieldDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "json_name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  FieldDescriptorProto FieldDescriptorProto (Maybe Text) (Maybe Text)
-> FieldAccessor FieldDescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'jsonName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'jsonName")) ::
              Data.ProtoLens.FieldDescriptor FieldDescriptorProto
        options__field_descriptor :: FieldDescriptor FieldDescriptorProto
options__field_descriptor
          = String
-> FieldTypeDescriptor FieldOptions
-> FieldAccessor FieldDescriptorProto FieldOptions
-> FieldDescriptor FieldDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "options"
              (MessageOrGroup -> FieldTypeDescriptor FieldOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor FieldOptions)
              (Lens
  FieldDescriptorProto
  FieldDescriptorProto
  (Maybe FieldOptions)
  (Maybe FieldOptions)
-> FieldAccessor FieldDescriptorProto FieldOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options")) ::
              Data.ProtoLens.FieldDescriptor FieldDescriptorProto
      in
        [(Tag, FieldDescriptor FieldDescriptorProto)]
-> Map Tag (FieldDescriptor FieldDescriptorProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FieldDescriptorProto
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor FieldDescriptorProto
number__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor FieldDescriptorProto
label__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor FieldDescriptorProto
type'__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor FieldDescriptorProto
typeName__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor FieldDescriptorProto
extendee__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor FieldDescriptorProto
defaultValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor FieldDescriptorProto
oneofIndex__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 10, FieldDescriptor FieldDescriptorProto
jsonName__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor FieldDescriptorProto
options__field_descriptor)]
  unknownFields :: LensLike' f FieldDescriptorProto FieldSet
unknownFields
    = (FieldDescriptorProto -> FieldSet)
-> (FieldDescriptorProto -> FieldSet -> FieldDescriptorProto)
-> Lens' FieldDescriptorProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FieldDescriptorProto -> FieldSet
_FieldDescriptorProto'_unknownFields
        (\ x__ :: FieldDescriptorProto
x__ y__ :: FieldSet
y__ -> FieldDescriptorProto
x__ {_FieldDescriptorProto'_unknownFields :: FieldSet
_FieldDescriptorProto'_unknownFields = FieldSet
y__})
  defMessage :: FieldDescriptorProto
defMessage
    = $WFieldDescriptorProto'_constructor :: Maybe Text
-> Maybe Int32
-> Maybe FieldDescriptorProto'Label
-> Maybe FieldDescriptorProto'Type
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Int32
-> Maybe Text
-> Maybe FieldOptions
-> FieldSet
-> FieldDescriptorProto
FieldDescriptorProto'_constructor
        {_FieldDescriptorProto'name :: Maybe Text
_FieldDescriptorProto'name = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FieldDescriptorProto'number :: Maybe Int32
_FieldDescriptorProto'number = Maybe Int32
forall a. Maybe a
Prelude.Nothing,
         _FieldDescriptorProto'label :: Maybe FieldDescriptorProto'Label
_FieldDescriptorProto'label = Maybe FieldDescriptorProto'Label
forall a. Maybe a
Prelude.Nothing,
         _FieldDescriptorProto'type' :: Maybe FieldDescriptorProto'Type
_FieldDescriptorProto'type' = Maybe FieldDescriptorProto'Type
forall a. Maybe a
Prelude.Nothing,
         _FieldDescriptorProto'typeName :: Maybe Text
_FieldDescriptorProto'typeName = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FieldDescriptorProto'extendee :: Maybe Text
_FieldDescriptorProto'extendee = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FieldDescriptorProto'defaultValue :: Maybe Text
_FieldDescriptorProto'defaultValue = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FieldDescriptorProto'oneofIndex :: Maybe Int32
_FieldDescriptorProto'oneofIndex = Maybe Int32
forall a. Maybe a
Prelude.Nothing,
         _FieldDescriptorProto'jsonName :: Maybe Text
_FieldDescriptorProto'jsonName = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FieldDescriptorProto'options :: Maybe FieldOptions
_FieldDescriptorProto'options = Maybe FieldOptions
forall a. Maybe a
Prelude.Nothing,
         _FieldDescriptorProto'_unknownFields :: FieldSet
_FieldDescriptorProto'_unknownFields = []}
  parseMessage :: Parser FieldDescriptorProto
parseMessage
    = let
        loop ::
          FieldDescriptorProto
          -> Data.ProtoLens.Encoding.Bytes.Parser FieldDescriptorProto
        loop :: FieldDescriptorProto -> Parser FieldDescriptorProto
loop x :: FieldDescriptorProto
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      FieldDescriptorProto -> Parser FieldDescriptorProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter FieldDescriptorProto FieldDescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> FieldDescriptorProto
-> FieldDescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter FieldDescriptorProto FieldDescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) FieldDescriptorProto
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "name"
                                FieldDescriptorProto -> Parser FieldDescriptorProto
loop (Setter FieldDescriptorProto FieldDescriptorProto Text Text
-> Text -> FieldDescriptorProto -> FieldDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y FieldDescriptorProto
x)
                        24
                          -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "number"
                                FieldDescriptorProto -> Parser FieldDescriptorProto
loop (Setter FieldDescriptorProto FieldDescriptorProto Int32 Int32
-> Int32 -> FieldDescriptorProto -> FieldDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "number" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"number") Int32
y FieldDescriptorProto
x)
                        32
                          -> do FieldDescriptorProto'Label
y <- Parser FieldDescriptorProto'Label
-> String -> Parser FieldDescriptorProto'Label
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> FieldDescriptorProto'Label)
-> Parser Int -> Parser FieldDescriptorProto'Label
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> FieldDescriptorProto'Label
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       "label"
                                FieldDescriptorProto -> Parser FieldDescriptorProto
loop (Setter
  FieldDescriptorProto
  FieldDescriptorProto
  FieldDescriptorProto'Label
  FieldDescriptorProto'Label
-> FieldDescriptorProto'Label
-> FieldDescriptorProto
-> FieldDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "label" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"label") FieldDescriptorProto'Label
y FieldDescriptorProto
x)
                        40
                          -> do FieldDescriptorProto'Type
y <- Parser FieldDescriptorProto'Type
-> String -> Parser FieldDescriptorProto'Type
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> FieldDescriptorProto'Type)
-> Parser Int -> Parser FieldDescriptorProto'Type
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> FieldDescriptorProto'Type
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       "type"
                                FieldDescriptorProto -> Parser FieldDescriptorProto
loop (Setter
  FieldDescriptorProto
  FieldDescriptorProto
  FieldDescriptorProto'Type
  FieldDescriptorProto'Type
-> FieldDescriptorProto'Type
-> FieldDescriptorProto
-> FieldDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "type'" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"type'") FieldDescriptorProto'Type
y FieldDescriptorProto
x)
                        50
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "type_name"
                                FieldDescriptorProto -> Parser FieldDescriptorProto
loop
                                  (Setter FieldDescriptorProto FieldDescriptorProto Text Text
-> Text -> FieldDescriptorProto -> FieldDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "typeName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeName") Text
y FieldDescriptorProto
x)
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "extendee"
                                FieldDescriptorProto -> Parser FieldDescriptorProto
loop
                                  (Setter FieldDescriptorProto FieldDescriptorProto Text Text
-> Text -> FieldDescriptorProto -> FieldDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "extendee" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"extendee") Text
y FieldDescriptorProto
x)
                        58
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "default_value"
                                FieldDescriptorProto -> Parser FieldDescriptorProto
loop
                                  (Setter FieldDescriptorProto FieldDescriptorProto Text Text
-> Text -> FieldDescriptorProto -> FieldDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "defaultValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"defaultValue") Text
y FieldDescriptorProto
x)
                        72
                          -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "oneof_index"
                                FieldDescriptorProto -> Parser FieldDescriptorProto
loop
                                  (Setter FieldDescriptorProto FieldDescriptorProto Int32 Int32
-> Int32 -> FieldDescriptorProto -> FieldDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "oneofIndex" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"oneofIndex") Int32
y FieldDescriptorProto
x)
                        82
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "json_name"
                                FieldDescriptorProto -> Parser FieldDescriptorProto
loop
                                  (Setter FieldDescriptorProto FieldDescriptorProto Text Text
-> Text -> FieldDescriptorProto -> FieldDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "jsonName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"jsonName") Text
y FieldDescriptorProto
x)
                        66
                          -> do FieldOptions
y <- Parser FieldOptions -> String -> Parser FieldOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser FieldOptions -> Parser FieldOptions
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser FieldOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "options"
                                FieldDescriptorProto -> Parser FieldDescriptorProto
loop (Setter
  FieldDescriptorProto FieldDescriptorProto FieldOptions FieldOptions
-> FieldOptions -> FieldDescriptorProto -> FieldDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"options") FieldOptions
y FieldDescriptorProto
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                FieldDescriptorProto -> Parser FieldDescriptorProto
loop
                                  (Setter FieldDescriptorProto FieldDescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> FieldDescriptorProto
-> FieldDescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter FieldDescriptorProto FieldDescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FieldDescriptorProto
x)
      in
        Parser FieldDescriptorProto
-> String -> Parser FieldDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do FieldDescriptorProto -> Parser FieldDescriptorProto
loop FieldDescriptorProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "FieldDescriptorProto"
  buildMessage :: FieldDescriptorProto -> Builder
buildMessage
    = \ _x :: FieldDescriptorProto
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Text)
  FieldDescriptorProto
  FieldDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> FieldDescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name") FieldDescriptorProto
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Text
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Text -> ByteString
Data.Text.Encoding.encodeUtf8
                          Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Int32)
  FieldDescriptorProto
  FieldDescriptorProto
  (Maybe Int32)
  (Maybe Int32)
-> FieldDescriptorProto -> Maybe Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'number" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'number") FieldDescriptorProto
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: Int32
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 24)
                          ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe FieldDescriptorProto'Label)
  FieldDescriptorProto
  FieldDescriptorProto
  (Maybe FieldDescriptorProto'Label)
  (Maybe FieldDescriptorProto'Label)
-> FieldDescriptorProto -> Maybe FieldDescriptorProto'Label
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'label" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'label") FieldDescriptorProto
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: FieldDescriptorProto'Label
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 32)
                             ((Int -> Builder)
-> (FieldDescriptorProto'Label -> Int)
-> FieldDescriptorProto'Label
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                                FieldDescriptorProto'Label -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
                                FieldDescriptorProto'Label
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe FieldDescriptorProto'Type)
  FieldDescriptorProto
  FieldDescriptorProto
  (Maybe FieldDescriptorProto'Type)
  (Maybe FieldDescriptorProto'Type)
-> FieldDescriptorProto -> Maybe FieldDescriptorProto'Type
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'type'" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'type'") FieldDescriptorProto
_x
                       of
                         Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just _v :: FieldDescriptorProto'Type
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 40)
                                ((Int -> Builder)
-> (FieldDescriptorProto'Type -> Int)
-> FieldDescriptorProto'Type
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                                   FieldDescriptorProto'Type -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
                                   FieldDescriptorProto'Type
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (case
                              FoldLike
  (Maybe Text)
  FieldDescriptorProto
  FieldDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> FieldDescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'typeName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'typeName") FieldDescriptorProto
_x
                          of
                            Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            (Prelude.Just _v :: Text
_v)
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
                                   ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      (\ bs :: ByteString
bs
                                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                 (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                              (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                      Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                      Text
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (case
                                 FoldLike
  (Maybe Text)
  FieldDescriptorProto
  FieldDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> FieldDescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'extendee" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'extendee") FieldDescriptorProto
_x
                             of
                               Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                               (Prelude.Just _v :: Text
_v)
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                         (\ bs :: ByteString
bs
                                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                       (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                         Text
_v))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (case
                                    FoldLike
  (Maybe Text)
  FieldDescriptorProto
  FieldDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> FieldDescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                      (forall s a (f :: * -> *).
(HasField s "maybe'defaultValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'defaultValue") FieldDescriptorProto
_x
                                of
                                  Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                  (Prelude.Just _v :: Text
_v)
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
                                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                            (\ bs :: ByteString
bs
                                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                          (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                            Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                            Text
_v))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (case
                                       FoldLike
  (Maybe Int32)
  FieldDescriptorProto
  FieldDescriptorProto
  (Maybe Int32)
  (Maybe Int32)
-> FieldDescriptorProto -> Maybe Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                         (forall s a (f :: * -> *).
(HasField s "maybe'oneofIndex" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'oneofIndex") FieldDescriptorProto
_x
                                   of
                                     Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                     (Prelude.Just _v :: Int32
_v)
                                       -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 72)
                                            ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                               Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                               Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                               Int32
_v))
                                  (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (case
                                          FoldLike
  (Maybe Text)
  FieldDescriptorProto
  FieldDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> FieldDescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                            (forall s a (f :: * -> *).
(HasField s "maybe'jsonName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'jsonName") FieldDescriptorProto
_x
                                      of
                                        Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                        (Prelude.Just _v :: Text
_v)
                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 82)
                                               ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                  (\ bs :: ByteString
bs
                                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                             (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                          (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                             ByteString
bs))
                                                  Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                                  Text
_v))
                                     (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (case
                                             FoldLike
  (Maybe FieldOptions)
  FieldDescriptorProto
  FieldDescriptorProto
  (Maybe FieldOptions)
  (Maybe FieldOptions)
-> FieldDescriptorProto -> Maybe FieldOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                               (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options") FieldDescriptorProto
_x
                                         of
                                           Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                           (Prelude.Just _v :: FieldOptions
_v)
                                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 66)
                                                  ((ByteString -> Builder)
-> (FieldOptions -> ByteString) -> FieldOptions -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                     (\ bs :: ByteString
bs
                                                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                   (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                             (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                ByteString
bs))
                                                     FieldOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                     FieldOptions
_v))
                                        (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                           (FoldLike
  FieldSet
  FieldDescriptorProto
  FieldDescriptorProto
  FieldSet
  FieldSet
-> FieldDescriptorProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                              FoldLike
  FieldSet
  FieldDescriptorProto
  FieldDescriptorProto
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FieldDescriptorProto
_x)))))))))))
instance Control.DeepSeq.NFData FieldDescriptorProto where
  rnf :: FieldDescriptorProto -> ()
rnf
    = \ x__ :: FieldDescriptorProto
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FieldDescriptorProto -> FieldSet
_FieldDescriptorProto'_unknownFields FieldDescriptorProto
x__)
             (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'name FieldDescriptorProto
x__)
                (Maybe Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (FieldDescriptorProto -> Maybe Int32
_FieldDescriptorProto'number FieldDescriptorProto
x__)
                   (Maybe FieldDescriptorProto'Label -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (FieldDescriptorProto -> Maybe FieldDescriptorProto'Label
_FieldDescriptorProto'label FieldDescriptorProto
x__)
                      (Maybe FieldDescriptorProto'Type -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (FieldDescriptorProto -> Maybe FieldDescriptorProto'Type
_FieldDescriptorProto'type' FieldDescriptorProto
x__)
                         (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'typeName FieldDescriptorProto
x__)
                            (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'extendee FieldDescriptorProto
x__)
                               (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'defaultValue FieldDescriptorProto
x__)
                                  (Maybe Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (FieldDescriptorProto -> Maybe Int32
_FieldDescriptorProto'oneofIndex FieldDescriptorProto
x__)
                                     (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                        (FieldDescriptorProto -> Maybe Text
_FieldDescriptorProto'jsonName FieldDescriptorProto
x__)
                                        (Maybe FieldOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                           (FieldDescriptorProto -> Maybe FieldOptions
_FieldDescriptorProto'options FieldDescriptorProto
x__) ()))))))))))
data FieldDescriptorProto'Label
  = FieldDescriptorProto'LABEL_OPTIONAL |
    FieldDescriptorProto'LABEL_REQUIRED |
    FieldDescriptorProto'LABEL_REPEATED
  deriving (Int -> FieldDescriptorProto'Label -> ShowS
[FieldDescriptorProto'Label] -> ShowS
FieldDescriptorProto'Label -> String
(Int -> FieldDescriptorProto'Label -> ShowS)
-> (FieldDescriptorProto'Label -> String)
-> ([FieldDescriptorProto'Label] -> ShowS)
-> Show FieldDescriptorProto'Label
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FieldDescriptorProto'Label] -> ShowS
$cshowList :: [FieldDescriptorProto'Label] -> ShowS
show :: FieldDescriptorProto'Label -> String
$cshow :: FieldDescriptorProto'Label -> String
showsPrec :: Int -> FieldDescriptorProto'Label -> ShowS
$cshowsPrec :: Int -> FieldDescriptorProto'Label -> ShowS
Prelude.Show, FieldDescriptorProto'Label -> FieldDescriptorProto'Label -> Bool
(FieldDescriptorProto'Label -> FieldDescriptorProto'Label -> Bool)
-> (FieldDescriptorProto'Label
    -> FieldDescriptorProto'Label -> Bool)
-> Eq FieldDescriptorProto'Label
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FieldDescriptorProto'Label -> FieldDescriptorProto'Label -> Bool
$c/= :: FieldDescriptorProto'Label -> FieldDescriptorProto'Label -> Bool
== :: FieldDescriptorProto'Label -> FieldDescriptorProto'Label -> Bool
$c== :: FieldDescriptorProto'Label -> FieldDescriptorProto'Label -> Bool
Prelude.Eq, Eq FieldDescriptorProto'Label
Eq FieldDescriptorProto'Label =>
(FieldDescriptorProto'Label
 -> FieldDescriptorProto'Label -> Ordering)
-> (FieldDescriptorProto'Label
    -> FieldDescriptorProto'Label -> Bool)
-> (FieldDescriptorProto'Label
    -> FieldDescriptorProto'Label -> Bool)
-> (FieldDescriptorProto'Label
    -> FieldDescriptorProto'Label -> Bool)
-> (FieldDescriptorProto'Label
    -> FieldDescriptorProto'Label -> Bool)
-> (FieldDescriptorProto'Label
    -> FieldDescriptorProto'Label -> FieldDescriptorProto'Label)
-> (FieldDescriptorProto'Label
    -> FieldDescriptorProto'Label -> FieldDescriptorProto'Label)
-> Ord FieldDescriptorProto'Label
FieldDescriptorProto'Label -> FieldDescriptorProto'Label -> Bool
FieldDescriptorProto'Label
-> FieldDescriptorProto'Label -> Ordering
FieldDescriptorProto'Label
-> FieldDescriptorProto'Label -> FieldDescriptorProto'Label
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: FieldDescriptorProto'Label
-> FieldDescriptorProto'Label -> FieldDescriptorProto'Label
$cmin :: FieldDescriptorProto'Label
-> FieldDescriptorProto'Label -> FieldDescriptorProto'Label
max :: FieldDescriptorProto'Label
-> FieldDescriptorProto'Label -> FieldDescriptorProto'Label
$cmax :: FieldDescriptorProto'Label
-> FieldDescriptorProto'Label -> FieldDescriptorProto'Label
>= :: FieldDescriptorProto'Label -> FieldDescriptorProto'Label -> Bool
$c>= :: FieldDescriptorProto'Label -> FieldDescriptorProto'Label -> Bool
> :: FieldDescriptorProto'Label -> FieldDescriptorProto'Label -> Bool
$c> :: FieldDescriptorProto'Label -> FieldDescriptorProto'Label -> Bool
<= :: FieldDescriptorProto'Label -> FieldDescriptorProto'Label -> Bool
$c<= :: FieldDescriptorProto'Label -> FieldDescriptorProto'Label -> Bool
< :: FieldDescriptorProto'Label -> FieldDescriptorProto'Label -> Bool
$c< :: FieldDescriptorProto'Label -> FieldDescriptorProto'Label -> Bool
compare :: FieldDescriptorProto'Label
-> FieldDescriptorProto'Label -> Ordering
$ccompare :: FieldDescriptorProto'Label
-> FieldDescriptorProto'Label -> Ordering
$cp1Ord :: Eq FieldDescriptorProto'Label
Prelude.Ord)
instance Data.ProtoLens.MessageEnum FieldDescriptorProto'Label where
  maybeToEnum :: Int -> Maybe FieldDescriptorProto'Label
maybeToEnum 1 = FieldDescriptorProto'Label -> Maybe FieldDescriptorProto'Label
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Label
FieldDescriptorProto'LABEL_OPTIONAL
  maybeToEnum 2 = FieldDescriptorProto'Label -> Maybe FieldDescriptorProto'Label
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Label
FieldDescriptorProto'LABEL_REQUIRED
  maybeToEnum 3 = FieldDescriptorProto'Label -> Maybe FieldDescriptorProto'Label
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Label
FieldDescriptorProto'LABEL_REPEATED
  maybeToEnum _ = Maybe FieldDescriptorProto'Label
forall a. Maybe a
Prelude.Nothing
  showEnum :: FieldDescriptorProto'Label -> String
showEnum FieldDescriptorProto'LABEL_OPTIONAL = "LABEL_OPTIONAL"
  showEnum FieldDescriptorProto'LABEL_REQUIRED = "LABEL_REQUIRED"
  showEnum FieldDescriptorProto'LABEL_REPEATED = "LABEL_REPEATED"
  readEnum :: String -> Maybe FieldDescriptorProto'Label
readEnum k :: String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "LABEL_OPTIONAL"
    = FieldDescriptorProto'Label -> Maybe FieldDescriptorProto'Label
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Label
FieldDescriptorProto'LABEL_OPTIONAL
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "LABEL_REQUIRED"
    = FieldDescriptorProto'Label -> Maybe FieldDescriptorProto'Label
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Label
FieldDescriptorProto'LABEL_REQUIRED
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "LABEL_REPEATED"
    = FieldDescriptorProto'Label -> Maybe FieldDescriptorProto'Label
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Label
FieldDescriptorProto'LABEL_REPEATED
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe FieldDescriptorProto'Label)
-> Maybe FieldDescriptorProto'Label
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe FieldDescriptorProto'Label
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded FieldDescriptorProto'Label where
  minBound :: FieldDescriptorProto'Label
minBound = FieldDescriptorProto'Label
FieldDescriptorProto'LABEL_OPTIONAL
  maxBound :: FieldDescriptorProto'Label
maxBound = FieldDescriptorProto'Label
FieldDescriptorProto'LABEL_REPEATED
instance Prelude.Enum FieldDescriptorProto'Label where
  toEnum :: Int -> FieldDescriptorProto'Label
toEnum k__ :: Int
k__
    = FieldDescriptorProto'Label
-> (FieldDescriptorProto'Label -> FieldDescriptorProto'Label)
-> Maybe FieldDescriptorProto'Label
-> FieldDescriptorProto'Label
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> FieldDescriptorProto'Label
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              "toEnum: unknown value for enum Label: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        FieldDescriptorProto'Label -> FieldDescriptorProto'Label
forall a. a -> a
Prelude.id
        (Int -> Maybe FieldDescriptorProto'Label
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: FieldDescriptorProto'Label -> Int
fromEnum FieldDescriptorProto'LABEL_OPTIONAL = 1
  fromEnum FieldDescriptorProto'LABEL_REQUIRED = 2
  fromEnum FieldDescriptorProto'LABEL_REPEATED = 3
  succ :: FieldDescriptorProto'Label -> FieldDescriptorProto'Label
succ FieldDescriptorProto'LABEL_REPEATED
    = String -> FieldDescriptorProto'Label
forall a. HasCallStack => String -> a
Prelude.error
        "FieldDescriptorProto'Label.succ: bad argument FieldDescriptorProto'LABEL_REPEATED. This value would be out of bounds."
  succ FieldDescriptorProto'LABEL_OPTIONAL
    = FieldDescriptorProto'Label
FieldDescriptorProto'LABEL_REQUIRED
  succ FieldDescriptorProto'LABEL_REQUIRED
    = FieldDescriptorProto'Label
FieldDescriptorProto'LABEL_REPEATED
  pred :: FieldDescriptorProto'Label -> FieldDescriptorProto'Label
pred FieldDescriptorProto'LABEL_OPTIONAL
    = String -> FieldDescriptorProto'Label
forall a. HasCallStack => String -> a
Prelude.error
        "FieldDescriptorProto'Label.pred: bad argument FieldDescriptorProto'LABEL_OPTIONAL. This value would be out of bounds."
  pred FieldDescriptorProto'LABEL_REQUIRED
    = FieldDescriptorProto'Label
FieldDescriptorProto'LABEL_OPTIONAL
  pred FieldDescriptorProto'LABEL_REPEATED
    = FieldDescriptorProto'Label
FieldDescriptorProto'LABEL_REQUIRED
  enumFrom :: FieldDescriptorProto'Label -> [FieldDescriptorProto'Label]
enumFrom = FieldDescriptorProto'Label -> [FieldDescriptorProto'Label]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: FieldDescriptorProto'Label
-> FieldDescriptorProto'Label -> [FieldDescriptorProto'Label]
enumFromTo = FieldDescriptorProto'Label
-> FieldDescriptorProto'Label -> [FieldDescriptorProto'Label]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: FieldDescriptorProto'Label
-> FieldDescriptorProto'Label -> [FieldDescriptorProto'Label]
enumFromThen = FieldDescriptorProto'Label
-> FieldDescriptorProto'Label -> [FieldDescriptorProto'Label]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: FieldDescriptorProto'Label
-> FieldDescriptorProto'Label
-> FieldDescriptorProto'Label
-> [FieldDescriptorProto'Label]
enumFromThenTo = FieldDescriptorProto'Label
-> FieldDescriptorProto'Label
-> FieldDescriptorProto'Label
-> [FieldDescriptorProto'Label]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault FieldDescriptorProto'Label where
  fieldDefault :: FieldDescriptorProto'Label
fieldDefault = FieldDescriptorProto'Label
FieldDescriptorProto'LABEL_OPTIONAL
instance Control.DeepSeq.NFData FieldDescriptorProto'Label where
  rnf :: FieldDescriptorProto'Label -> ()
rnf x__ :: FieldDescriptorProto'Label
x__ = FieldDescriptorProto'Label -> () -> ()
forall a b. a -> b -> b
Prelude.seq FieldDescriptorProto'Label
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 (Int -> FieldDescriptorProto'Type -> ShowS
[FieldDescriptorProto'Type] -> ShowS
FieldDescriptorProto'Type -> String
(Int -> FieldDescriptorProto'Type -> ShowS)
-> (FieldDescriptorProto'Type -> String)
-> ([FieldDescriptorProto'Type] -> ShowS)
-> Show FieldDescriptorProto'Type
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FieldDescriptorProto'Type] -> ShowS
$cshowList :: [FieldDescriptorProto'Type] -> ShowS
show :: FieldDescriptorProto'Type -> String
$cshow :: FieldDescriptorProto'Type -> String
showsPrec :: Int -> FieldDescriptorProto'Type -> ShowS
$cshowsPrec :: Int -> FieldDescriptorProto'Type -> ShowS
Prelude.Show, FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool
(FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool)
-> (FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool)
-> Eq FieldDescriptorProto'Type
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool
$c/= :: FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool
== :: FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool
$c== :: FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool
Prelude.Eq, Eq FieldDescriptorProto'Type
Eq FieldDescriptorProto'Type =>
(FieldDescriptorProto'Type
 -> FieldDescriptorProto'Type -> Ordering)
-> (FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool)
-> (FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool)
-> (FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool)
-> (FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool)
-> (FieldDescriptorProto'Type
    -> FieldDescriptorProto'Type -> FieldDescriptorProto'Type)
-> (FieldDescriptorProto'Type
    -> FieldDescriptorProto'Type -> FieldDescriptorProto'Type)
-> Ord FieldDescriptorProto'Type
FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool
FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Ordering
FieldDescriptorProto'Type
-> FieldDescriptorProto'Type -> FieldDescriptorProto'Type
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: FieldDescriptorProto'Type
-> FieldDescriptorProto'Type -> FieldDescriptorProto'Type
$cmin :: FieldDescriptorProto'Type
-> FieldDescriptorProto'Type -> FieldDescriptorProto'Type
max :: FieldDescriptorProto'Type
-> FieldDescriptorProto'Type -> FieldDescriptorProto'Type
$cmax :: FieldDescriptorProto'Type
-> FieldDescriptorProto'Type -> FieldDescriptorProto'Type
>= :: FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool
$c>= :: FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool
> :: FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool
$c> :: FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool
<= :: FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool
$c<= :: FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool
< :: FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool
$c< :: FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Bool
compare :: FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Ordering
$ccompare :: FieldDescriptorProto'Type -> FieldDescriptorProto'Type -> Ordering
$cp1Ord :: Eq FieldDescriptorProto'Type
Prelude.Ord)
instance Data.ProtoLens.MessageEnum FieldDescriptorProto'Type where
  maybeToEnum :: Int -> Maybe FieldDescriptorProto'Type
maybeToEnum 1 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_DOUBLE
  maybeToEnum 2 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_FLOAT
  maybeToEnum 3 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_INT64
  maybeToEnum 4 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_UINT64
  maybeToEnum 5 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_INT32
  maybeToEnum 6 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_FIXED64
  maybeToEnum 7 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_FIXED32
  maybeToEnum 8 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_BOOL
  maybeToEnum 9 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_STRING
  maybeToEnum 10 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_GROUP
  maybeToEnum 11 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_MESSAGE
  maybeToEnum 12 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_BYTES
  maybeToEnum 13 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_UINT32
  maybeToEnum 14 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_ENUM
  maybeToEnum 15 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SFIXED32
  maybeToEnum 16 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SFIXED64
  maybeToEnum 17 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SINT32
  maybeToEnum 18 = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SINT64
  maybeToEnum _ = Maybe FieldDescriptorProto'Type
forall a. Maybe a
Prelude.Nothing
  showEnum :: FieldDescriptorProto'Type -> String
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 :: String -> Maybe FieldDescriptorProto'Type
readEnum k :: String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_DOUBLE"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_DOUBLE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_FLOAT"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_FLOAT
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_INT64"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_INT64
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_UINT64"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_UINT64
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_INT32"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_INT32
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_FIXED64"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_FIXED64
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_FIXED32"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_FIXED32
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_BOOL"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_BOOL
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_STRING"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_STRING
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_GROUP"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_GROUP
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_MESSAGE"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_MESSAGE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_BYTES"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_BYTES
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_UINT32"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_UINT32
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_ENUM"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_ENUM
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_SFIXED32"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SFIXED32
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_SFIXED64"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SFIXED64
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_SINT32"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SINT32
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "TYPE_SINT64"
    = FieldDescriptorProto'Type -> Maybe FieldDescriptorProto'Type
forall a. a -> Maybe a
Prelude.Just FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SINT64
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe FieldDescriptorProto'Type)
-> Maybe FieldDescriptorProto'Type
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe FieldDescriptorProto'Type
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded FieldDescriptorProto'Type where
  minBound :: FieldDescriptorProto'Type
minBound = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_DOUBLE
  maxBound :: FieldDescriptorProto'Type
maxBound = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SINT64
instance Prelude.Enum FieldDescriptorProto'Type where
  toEnum :: Int -> FieldDescriptorProto'Type
toEnum k__ :: Int
k__
    = FieldDescriptorProto'Type
-> (FieldDescriptorProto'Type -> FieldDescriptorProto'Type)
-> Maybe FieldDescriptorProto'Type
-> FieldDescriptorProto'Type
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> FieldDescriptorProto'Type
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              "toEnum: unknown value for enum Type: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        FieldDescriptorProto'Type -> FieldDescriptorProto'Type
forall a. a -> a
Prelude.id
        (Int -> Maybe FieldDescriptorProto'Type
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: FieldDescriptorProto'Type -> Int
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 -> FieldDescriptorProto'Type
succ FieldDescriptorProto'TYPE_SINT64
    = String -> FieldDescriptorProto'Type
forall a. HasCallStack => String -> a
Prelude.error
        "FieldDescriptorProto'Type.succ: bad argument FieldDescriptorProto'TYPE_SINT64. This value would be out of bounds."
  succ FieldDescriptorProto'TYPE_DOUBLE
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_FLOAT
  succ FieldDescriptorProto'TYPE_FLOAT
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_INT64
  succ FieldDescriptorProto'TYPE_INT64
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_UINT64
  succ FieldDescriptorProto'TYPE_UINT64
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_INT32
  succ FieldDescriptorProto'TYPE_INT32
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_FIXED64
  succ FieldDescriptorProto'TYPE_FIXED64
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_FIXED32
  succ FieldDescriptorProto'TYPE_FIXED32
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_BOOL
  succ FieldDescriptorProto'TYPE_BOOL
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_STRING
  succ FieldDescriptorProto'TYPE_STRING
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_GROUP
  succ FieldDescriptorProto'TYPE_GROUP
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_MESSAGE
  succ FieldDescriptorProto'TYPE_MESSAGE
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_BYTES
  succ FieldDescriptorProto'TYPE_BYTES
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_UINT32
  succ FieldDescriptorProto'TYPE_UINT32
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_ENUM
  succ FieldDescriptorProto'TYPE_ENUM
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SFIXED32
  succ FieldDescriptorProto'TYPE_SFIXED32
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SFIXED64
  succ FieldDescriptorProto'TYPE_SFIXED64
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SINT32
  succ FieldDescriptorProto'TYPE_SINT32
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SINT64
  pred :: FieldDescriptorProto'Type -> FieldDescriptorProto'Type
pred FieldDescriptorProto'TYPE_DOUBLE
    = String -> FieldDescriptorProto'Type
forall a. HasCallStack => String -> a
Prelude.error
        "FieldDescriptorProto'Type.pred: bad argument FieldDescriptorProto'TYPE_DOUBLE. This value would be out of bounds."
  pred FieldDescriptorProto'TYPE_FLOAT
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_DOUBLE
  pred FieldDescriptorProto'TYPE_INT64
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_FLOAT
  pred FieldDescriptorProto'TYPE_UINT64
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_INT64
  pred FieldDescriptorProto'TYPE_INT32
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_UINT64
  pred FieldDescriptorProto'TYPE_FIXED64
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_INT32
  pred FieldDescriptorProto'TYPE_FIXED32
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_FIXED64
  pred FieldDescriptorProto'TYPE_BOOL
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_FIXED32
  pred FieldDescriptorProto'TYPE_STRING
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_BOOL
  pred FieldDescriptorProto'TYPE_GROUP
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_STRING
  pred FieldDescriptorProto'TYPE_MESSAGE
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_GROUP
  pred FieldDescriptorProto'TYPE_BYTES
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_MESSAGE
  pred FieldDescriptorProto'TYPE_UINT32
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_BYTES
  pred FieldDescriptorProto'TYPE_ENUM
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_UINT32
  pred FieldDescriptorProto'TYPE_SFIXED32
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_ENUM
  pred FieldDescriptorProto'TYPE_SFIXED64
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SFIXED32
  pred FieldDescriptorProto'TYPE_SINT32
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SFIXED64
  pred FieldDescriptorProto'TYPE_SINT64
    = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_SINT32
  enumFrom :: FieldDescriptorProto'Type -> [FieldDescriptorProto'Type]
enumFrom = FieldDescriptorProto'Type -> [FieldDescriptorProto'Type]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: FieldDescriptorProto'Type
-> FieldDescriptorProto'Type -> [FieldDescriptorProto'Type]
enumFromTo = FieldDescriptorProto'Type
-> FieldDescriptorProto'Type -> [FieldDescriptorProto'Type]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: FieldDescriptorProto'Type
-> FieldDescriptorProto'Type -> [FieldDescriptorProto'Type]
enumFromThen = FieldDescriptorProto'Type
-> FieldDescriptorProto'Type -> [FieldDescriptorProto'Type]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: FieldDescriptorProto'Type
-> FieldDescriptorProto'Type
-> FieldDescriptorProto'Type
-> [FieldDescriptorProto'Type]
enumFromThenTo = FieldDescriptorProto'Type
-> FieldDescriptorProto'Type
-> FieldDescriptorProto'Type
-> [FieldDescriptorProto'Type]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault FieldDescriptorProto'Type where
  fieldDefault :: FieldDescriptorProto'Type
fieldDefault = FieldDescriptorProto'Type
FieldDescriptorProto'TYPE_DOUBLE
instance Control.DeepSeq.NFData FieldDescriptorProto'Type where
  rnf :: FieldDescriptorProto'Type -> ()
rnf x__ :: FieldDescriptorProto'Type
x__ = FieldDescriptorProto'Type -> () -> ()
forall a b. a -> b -> b
Prelude.seq FieldDescriptorProto'Type
x__ ()
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.ctype' @:: Lens' FieldOptions FieldOptions'CType@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'ctype' @:: Lens' FieldOptions (Prelude.Maybe FieldOptions'CType)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.packed' @:: Lens' FieldOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'packed' @:: Lens' FieldOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.jstype' @:: Lens' FieldOptions FieldOptions'JSType@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'jstype' @:: Lens' FieldOptions (Prelude.Maybe FieldOptions'JSType)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.lazy' @:: Lens' FieldOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'lazy' @:: Lens' FieldOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' FieldOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' FieldOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.weak' @:: Lens' FieldOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'weak' @:: Lens' FieldOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' FieldOptions [UninterpretedOption]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' FieldOptions (Data.Vector.Vector UninterpretedOption)@ -}
data FieldOptions
  = FieldOptions'_constructor {FieldOptions -> Maybe FieldOptions'CType
_FieldOptions'ctype :: !(Prelude.Maybe FieldOptions'CType),
                               FieldOptions -> Maybe Bool
_FieldOptions'packed :: !(Prelude.Maybe Prelude.Bool),
                               FieldOptions -> Maybe FieldOptions'JSType
_FieldOptions'jstype :: !(Prelude.Maybe FieldOptions'JSType),
                               FieldOptions -> Maybe Bool
_FieldOptions'lazy :: !(Prelude.Maybe Prelude.Bool),
                               FieldOptions -> Maybe Bool
_FieldOptions'deprecated :: !(Prelude.Maybe Prelude.Bool),
                               FieldOptions -> Maybe Bool
_FieldOptions'weak :: !(Prelude.Maybe Prelude.Bool),
                               FieldOptions -> Vector UninterpretedOption
_FieldOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption),
                               FieldOptions -> FieldSet
_FieldOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (FieldOptions -> FieldOptions -> Bool
(FieldOptions -> FieldOptions -> Bool)
-> (FieldOptions -> FieldOptions -> Bool) -> Eq FieldOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FieldOptions -> FieldOptions -> Bool
$c/= :: FieldOptions -> FieldOptions -> Bool
== :: FieldOptions -> FieldOptions -> Bool
$c== :: FieldOptions -> FieldOptions -> Bool
Prelude.Eq, Eq FieldOptions
Eq FieldOptions =>
(FieldOptions -> FieldOptions -> Ordering)
-> (FieldOptions -> FieldOptions -> Bool)
-> (FieldOptions -> FieldOptions -> Bool)
-> (FieldOptions -> FieldOptions -> Bool)
-> (FieldOptions -> FieldOptions -> Bool)
-> (FieldOptions -> FieldOptions -> FieldOptions)
-> (FieldOptions -> FieldOptions -> FieldOptions)
-> Ord FieldOptions
FieldOptions -> FieldOptions -> Bool
FieldOptions -> FieldOptions -> Ordering
FieldOptions -> FieldOptions -> FieldOptions
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: FieldOptions -> FieldOptions -> FieldOptions
$cmin :: FieldOptions -> FieldOptions -> FieldOptions
max :: FieldOptions -> FieldOptions -> FieldOptions
$cmax :: FieldOptions -> FieldOptions -> FieldOptions
>= :: FieldOptions -> FieldOptions -> Bool
$c>= :: FieldOptions -> FieldOptions -> Bool
> :: FieldOptions -> FieldOptions -> Bool
$c> :: FieldOptions -> FieldOptions -> Bool
<= :: FieldOptions -> FieldOptions -> Bool
$c<= :: FieldOptions -> FieldOptions -> Bool
< :: FieldOptions -> FieldOptions -> Bool
$c< :: FieldOptions -> FieldOptions -> Bool
compare :: FieldOptions -> FieldOptions -> Ordering
$ccompare :: FieldOptions -> FieldOptions -> Ordering
$cp1Ord :: Eq FieldOptions
Prelude.Ord)
instance Prelude.Show FieldOptions where
  showsPrec :: Int -> FieldOptions -> ShowS
showsPrec _ __x :: FieldOptions
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (FieldOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FieldOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField FieldOptions "ctype" FieldOptions'CType where
  fieldOf :: Proxy# "ctype"
-> (FieldOptions'CType -> f FieldOptions'CType)
-> FieldOptions
-> f FieldOptions
fieldOf _
    = ((Maybe FieldOptions'CType -> f (Maybe FieldOptions'CType))
 -> FieldOptions -> f FieldOptions)
-> ((FieldOptions'CType -> f FieldOptions'CType)
    -> Maybe FieldOptions'CType -> f (Maybe FieldOptions'CType))
-> (FieldOptions'CType -> f FieldOptions'CType)
-> FieldOptions
-> f FieldOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldOptions -> Maybe FieldOptions'CType)
-> (FieldOptions -> Maybe FieldOptions'CType -> FieldOptions)
-> Lens
     FieldOptions
     FieldOptions
     (Maybe FieldOptions'CType)
     (Maybe FieldOptions'CType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldOptions -> Maybe FieldOptions'CType
_FieldOptions'ctype (\ x__ :: FieldOptions
x__ y__ :: Maybe FieldOptions'CType
y__ -> FieldOptions
x__ {_FieldOptions'ctype :: Maybe FieldOptions'CType
_FieldOptions'ctype = Maybe FieldOptions'CType
y__}))
        (FieldOptions'CType
-> Lens' (Maybe FieldOptions'CType) FieldOptions'CType
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FieldOptions'CType
FieldOptions'STRING)
instance Data.ProtoLens.Field.HasField FieldOptions "maybe'ctype" (Prelude.Maybe FieldOptions'CType) where
  fieldOf :: Proxy# "maybe'ctype"
-> (Maybe FieldOptions'CType -> f (Maybe FieldOptions'CType))
-> FieldOptions
-> f FieldOptions
fieldOf _
    = ((Maybe FieldOptions'CType -> f (Maybe FieldOptions'CType))
 -> FieldOptions -> f FieldOptions)
-> ((Maybe FieldOptions'CType -> f (Maybe FieldOptions'CType))
    -> Maybe FieldOptions'CType -> f (Maybe FieldOptions'CType))
-> (Maybe FieldOptions'CType -> f (Maybe FieldOptions'CType))
-> FieldOptions
-> f FieldOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldOptions -> Maybe FieldOptions'CType)
-> (FieldOptions -> Maybe FieldOptions'CType -> FieldOptions)
-> Lens
     FieldOptions
     FieldOptions
     (Maybe FieldOptions'CType)
     (Maybe FieldOptions'CType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldOptions -> Maybe FieldOptions'CType
_FieldOptions'ctype (\ x__ :: FieldOptions
x__ y__ :: Maybe FieldOptions'CType
y__ -> FieldOptions
x__ {_FieldOptions'ctype :: Maybe FieldOptions'CType
_FieldOptions'ctype = Maybe FieldOptions'CType
y__}))
        (Maybe FieldOptions'CType -> f (Maybe FieldOptions'CType))
-> Maybe FieldOptions'CType -> f (Maybe FieldOptions'CType)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FieldOptions "packed" Prelude.Bool where
  fieldOf :: Proxy# "packed"
-> (Bool -> f Bool) -> FieldOptions -> f FieldOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FieldOptions -> f FieldOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> FieldOptions
-> f FieldOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldOptions -> Maybe Bool)
-> (FieldOptions -> Maybe Bool -> FieldOptions)
-> Lens FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldOptions -> Maybe Bool
_FieldOptions'packed
           (\ x__ :: FieldOptions
x__ y__ :: Maybe Bool
y__ -> FieldOptions
x__ {_FieldOptions'packed :: Maybe Bool
_FieldOptions'packed = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FieldOptions "maybe'packed" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'packed"
-> (Maybe Bool -> f (Maybe Bool)) -> FieldOptions -> f FieldOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FieldOptions -> f FieldOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> FieldOptions
-> f FieldOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldOptions -> Maybe Bool)
-> (FieldOptions -> Maybe Bool -> FieldOptions)
-> Lens FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldOptions -> Maybe Bool
_FieldOptions'packed
           (\ x__ :: FieldOptions
x__ y__ :: Maybe Bool
y__ -> FieldOptions
x__ {_FieldOptions'packed :: Maybe Bool
_FieldOptions'packed = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FieldOptions "jstype" FieldOptions'JSType where
  fieldOf :: Proxy# "jstype"
-> (FieldOptions'JSType -> f FieldOptions'JSType)
-> FieldOptions
-> f FieldOptions
fieldOf _
    = ((Maybe FieldOptions'JSType -> f (Maybe FieldOptions'JSType))
 -> FieldOptions -> f FieldOptions)
-> ((FieldOptions'JSType -> f FieldOptions'JSType)
    -> Maybe FieldOptions'JSType -> f (Maybe FieldOptions'JSType))
-> (FieldOptions'JSType -> f FieldOptions'JSType)
-> FieldOptions
-> f FieldOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldOptions -> Maybe FieldOptions'JSType)
-> (FieldOptions -> Maybe FieldOptions'JSType -> FieldOptions)
-> Lens
     FieldOptions
     FieldOptions
     (Maybe FieldOptions'JSType)
     (Maybe FieldOptions'JSType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldOptions -> Maybe FieldOptions'JSType
_FieldOptions'jstype
           (\ x__ :: FieldOptions
x__ y__ :: Maybe FieldOptions'JSType
y__ -> FieldOptions
x__ {_FieldOptions'jstype :: Maybe FieldOptions'JSType
_FieldOptions'jstype = Maybe FieldOptions'JSType
y__}))
        (FieldOptions'JSType
-> Lens' (Maybe FieldOptions'JSType) FieldOptions'JSType
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FieldOptions'JSType
FieldOptions'JS_NORMAL)
instance Data.ProtoLens.Field.HasField FieldOptions "maybe'jstype" (Prelude.Maybe FieldOptions'JSType) where
  fieldOf :: Proxy# "maybe'jstype"
-> (Maybe FieldOptions'JSType -> f (Maybe FieldOptions'JSType))
-> FieldOptions
-> f FieldOptions
fieldOf _
    = ((Maybe FieldOptions'JSType -> f (Maybe FieldOptions'JSType))
 -> FieldOptions -> f FieldOptions)
-> ((Maybe FieldOptions'JSType -> f (Maybe FieldOptions'JSType))
    -> Maybe FieldOptions'JSType -> f (Maybe FieldOptions'JSType))
-> (Maybe FieldOptions'JSType -> f (Maybe FieldOptions'JSType))
-> FieldOptions
-> f FieldOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldOptions -> Maybe FieldOptions'JSType)
-> (FieldOptions -> Maybe FieldOptions'JSType -> FieldOptions)
-> Lens
     FieldOptions
     FieldOptions
     (Maybe FieldOptions'JSType)
     (Maybe FieldOptions'JSType)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldOptions -> Maybe FieldOptions'JSType
_FieldOptions'jstype
           (\ x__ :: FieldOptions
x__ y__ :: Maybe FieldOptions'JSType
y__ -> FieldOptions
x__ {_FieldOptions'jstype :: Maybe FieldOptions'JSType
_FieldOptions'jstype = Maybe FieldOptions'JSType
y__}))
        (Maybe FieldOptions'JSType -> f (Maybe FieldOptions'JSType))
-> Maybe FieldOptions'JSType -> f (Maybe FieldOptions'JSType)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FieldOptions "lazy" Prelude.Bool where
  fieldOf :: Proxy# "lazy" -> (Bool -> f Bool) -> FieldOptions -> f FieldOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FieldOptions -> f FieldOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> FieldOptions
-> f FieldOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldOptions -> Maybe Bool)
-> (FieldOptions -> Maybe Bool -> FieldOptions)
-> Lens FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldOptions -> Maybe Bool
_FieldOptions'lazy (\ x__ :: FieldOptions
x__ y__ :: Maybe Bool
y__ -> FieldOptions
x__ {_FieldOptions'lazy :: Maybe Bool
_FieldOptions'lazy = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField FieldOptions "maybe'lazy" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'lazy"
-> (Maybe Bool -> f (Maybe Bool)) -> FieldOptions -> f FieldOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FieldOptions -> f FieldOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> FieldOptions
-> f FieldOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldOptions -> Maybe Bool)
-> (FieldOptions -> Maybe Bool -> FieldOptions)
-> Lens FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldOptions -> Maybe Bool
_FieldOptions'lazy (\ x__ :: FieldOptions
x__ y__ :: Maybe Bool
y__ -> FieldOptions
x__ {_FieldOptions'lazy :: Maybe Bool
_FieldOptions'lazy = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FieldOptions "deprecated" Prelude.Bool where
  fieldOf :: Proxy# "deprecated"
-> (Bool -> f Bool) -> FieldOptions -> f FieldOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FieldOptions -> f FieldOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> FieldOptions
-> f FieldOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldOptions -> Maybe Bool)
-> (FieldOptions -> Maybe Bool -> FieldOptions)
-> Lens FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldOptions -> Maybe Bool
_FieldOptions'deprecated
           (\ x__ :: FieldOptions
x__ y__ :: Maybe Bool
y__ -> FieldOptions
x__ {_FieldOptions'deprecated :: Maybe Bool
_FieldOptions'deprecated = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField FieldOptions "maybe'deprecated" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'deprecated"
-> (Maybe Bool -> f (Maybe Bool)) -> FieldOptions -> f FieldOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FieldOptions -> f FieldOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> FieldOptions
-> f FieldOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldOptions -> Maybe Bool)
-> (FieldOptions -> Maybe Bool -> FieldOptions)
-> Lens FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldOptions -> Maybe Bool
_FieldOptions'deprecated
           (\ x__ :: FieldOptions
x__ y__ :: Maybe Bool
y__ -> FieldOptions
x__ {_FieldOptions'deprecated :: Maybe Bool
_FieldOptions'deprecated = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FieldOptions "weak" Prelude.Bool where
  fieldOf :: Proxy# "weak" -> (Bool -> f Bool) -> FieldOptions -> f FieldOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FieldOptions -> f FieldOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> FieldOptions
-> f FieldOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldOptions -> Maybe Bool)
-> (FieldOptions -> Maybe Bool -> FieldOptions)
-> Lens FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldOptions -> Maybe Bool
_FieldOptions'weak (\ x__ :: FieldOptions
x__ y__ :: Maybe Bool
y__ -> FieldOptions
x__ {_FieldOptions'weak :: Maybe Bool
_FieldOptions'weak = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField FieldOptions "maybe'weak" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'weak"
-> (Maybe Bool -> f (Maybe Bool)) -> FieldOptions -> f FieldOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FieldOptions -> f FieldOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> FieldOptions
-> f FieldOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldOptions -> Maybe Bool)
-> (FieldOptions -> Maybe Bool -> FieldOptions)
-> Lens FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldOptions -> Maybe Bool
_FieldOptions'weak (\ x__ :: FieldOptions
x__ y__ :: Maybe Bool
y__ -> FieldOptions
x__ {_FieldOptions'weak :: Maybe Bool
_FieldOptions'weak = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FieldOptions "uninterpretedOption" [UninterpretedOption] where
  fieldOf :: Proxy# "uninterpretedOption"
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> FieldOptions
-> f FieldOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> FieldOptions -> f FieldOptions)
-> (([UninterpretedOption] -> f [UninterpretedOption])
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> FieldOptions
-> f FieldOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldOptions -> Vector UninterpretedOption)
-> (FieldOptions -> Vector UninterpretedOption -> FieldOptions)
-> Lens
     FieldOptions
     FieldOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldOptions -> Vector UninterpretedOption
_FieldOptions'uninterpretedOption
           (\ x__ :: FieldOptions
x__ y__ :: Vector UninterpretedOption
y__ -> FieldOptions
x__ {_FieldOptions'uninterpretedOption :: Vector UninterpretedOption
_FieldOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        ((Vector UninterpretedOption -> [UninterpretedOption])
-> (Vector UninterpretedOption
    -> [UninterpretedOption] -> Vector UninterpretedOption)
-> Lens
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
     [UninterpretedOption]
     [UninterpretedOption]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector UninterpretedOption -> [UninterpretedOption]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [UninterpretedOption]
y__ -> [UninterpretedOption] -> Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UninterpretedOption]
y__))
instance Data.ProtoLens.Field.HasField FieldOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where
  fieldOf :: Proxy# "vec'uninterpretedOption"
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> FieldOptions
-> f FieldOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> FieldOptions -> f FieldOptions)
-> ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> FieldOptions
-> f FieldOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FieldOptions -> Vector UninterpretedOption)
-> (FieldOptions -> Vector UninterpretedOption -> FieldOptions)
-> Lens
     FieldOptions
     FieldOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FieldOptions -> Vector UninterpretedOption
_FieldOptions'uninterpretedOption
           (\ x__ :: FieldOptions
x__ y__ :: Vector UninterpretedOption
y__ -> FieldOptions
x__ {_FieldOptions'uninterpretedOption :: Vector UninterpretedOption
_FieldOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> Vector UninterpretedOption -> f (Vector UninterpretedOption)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FieldOptions where
  messageName :: Proxy FieldOptions -> Text
messageName _ = String -> Text
Data.Text.pack "google.protobuf.FieldOptions"
  fieldsByTag :: Map Tag (FieldDescriptor FieldOptions)
fieldsByTag
    = let
        ctype__field_descriptor :: FieldDescriptor FieldOptions
ctype__field_descriptor
          = String
-> FieldTypeDescriptor FieldOptions'CType
-> FieldAccessor FieldOptions FieldOptions'CType
-> FieldDescriptor FieldOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "ctype"
              (ScalarField FieldOptions'CType
-> FieldTypeDescriptor FieldOptions'CType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField FieldOptions'CType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor FieldOptions'CType)
              (Lens
  FieldOptions
  FieldOptions
  (Maybe FieldOptions'CType)
  (Maybe FieldOptions'CType)
-> FieldAccessor FieldOptions FieldOptions'CType
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'ctype" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ctype")) ::
              Data.ProtoLens.FieldDescriptor FieldOptions
        packed__field_descriptor :: FieldDescriptor FieldOptions
packed__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor FieldOptions Bool
-> FieldDescriptor FieldOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "packed"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor FieldOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'packed" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'packed")) ::
              Data.ProtoLens.FieldDescriptor FieldOptions
        jstype__field_descriptor :: FieldDescriptor FieldOptions
jstype__field_descriptor
          = String
-> FieldTypeDescriptor FieldOptions'JSType
-> FieldAccessor FieldOptions FieldOptions'JSType
-> FieldDescriptor FieldOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "jstype"
              (ScalarField FieldOptions'JSType
-> FieldTypeDescriptor FieldOptions'JSType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField FieldOptions'JSType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor FieldOptions'JSType)
              (Lens
  FieldOptions
  FieldOptions
  (Maybe FieldOptions'JSType)
  (Maybe FieldOptions'JSType)
-> FieldAccessor FieldOptions FieldOptions'JSType
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'jstype" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'jstype")) ::
              Data.ProtoLens.FieldDescriptor FieldOptions
        lazy__field_descriptor :: FieldDescriptor FieldOptions
lazy__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor FieldOptions Bool
-> FieldDescriptor FieldOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "lazy"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor FieldOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'lazy" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'lazy")) ::
              Data.ProtoLens.FieldDescriptor FieldOptions
        deprecated__field_descriptor :: FieldDescriptor FieldOptions
deprecated__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor FieldOptions Bool
-> FieldDescriptor FieldOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "deprecated"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor FieldOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'deprecated")) ::
              Data.ProtoLens.FieldDescriptor FieldOptions
        weak__field_descriptor :: FieldDescriptor FieldOptions
weak__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor FieldOptions Bool
-> FieldDescriptor FieldOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "weak"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor FieldOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'weak" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'weak")) ::
              Data.ProtoLens.FieldDescriptor FieldOptions
        uninterpretedOption__field_descriptor :: FieldDescriptor FieldOptions
uninterpretedOption__field_descriptor
          = String
-> FieldTypeDescriptor UninterpretedOption
-> FieldAccessor FieldOptions UninterpretedOption
-> FieldDescriptor FieldOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "uninterpreted_option"
              (MessageOrGroup -> FieldTypeDescriptor UninterpretedOption
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)
              (Packing
-> Lens' FieldOptions [UninterpretedOption]
-> FieldAccessor FieldOptions UninterpretedOption
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uninterpretedOption")) ::
              Data.ProtoLens.FieldDescriptor FieldOptions
      in
        [(Tag, FieldDescriptor FieldOptions)]
-> Map Tag (FieldDescriptor FieldOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FieldOptions
ctype__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor FieldOptions
packed__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor FieldOptions
jstype__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor FieldOptions
lazy__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor FieldOptions
deprecated__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 10, FieldDescriptor FieldOptions
weak__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 999, FieldDescriptor FieldOptions
uninterpretedOption__field_descriptor)]
  unknownFields :: LensLike' f FieldOptions FieldSet
unknownFields
    = (FieldOptions -> FieldSet)
-> (FieldOptions -> FieldSet -> FieldOptions)
-> Lens' FieldOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FieldOptions -> FieldSet
_FieldOptions'_unknownFields
        (\ x__ :: FieldOptions
x__ y__ :: FieldSet
y__ -> FieldOptions
x__ {_FieldOptions'_unknownFields :: FieldSet
_FieldOptions'_unknownFields = FieldSet
y__})
  defMessage :: FieldOptions
defMessage
    = $WFieldOptions'_constructor :: Maybe FieldOptions'CType
-> Maybe Bool
-> Maybe FieldOptions'JSType
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Vector UninterpretedOption
-> FieldSet
-> FieldOptions
FieldOptions'_constructor
        {_FieldOptions'ctype :: Maybe FieldOptions'CType
_FieldOptions'ctype = Maybe FieldOptions'CType
forall a. Maybe a
Prelude.Nothing,
         _FieldOptions'packed :: Maybe Bool
_FieldOptions'packed = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _FieldOptions'jstype :: Maybe FieldOptions'JSType
_FieldOptions'jstype = Maybe FieldOptions'JSType
forall a. Maybe a
Prelude.Nothing,
         _FieldOptions'lazy :: Maybe Bool
_FieldOptions'lazy = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _FieldOptions'deprecated :: Maybe Bool
_FieldOptions'deprecated = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _FieldOptions'weak :: Maybe Bool
_FieldOptions'weak = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _FieldOptions'uninterpretedOption :: Vector UninterpretedOption
_FieldOptions'uninterpretedOption = Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FieldOptions'_unknownFields :: FieldSet
_FieldOptions'_unknownFields = []}
  parseMessage :: Parser FieldOptions
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 :: FieldOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FieldOptions
loop x :: FieldOptions
x mutable'uninterpretedOption :: Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector UninterpretedOption
frozen'uninterpretedOption <- IO (Vector UninterpretedOption)
-> Parser (Vector UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                      (Growing Vector (PrimState IO) UninterpretedOption
-> IO (Vector UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                         Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      FieldOptions -> Parser FieldOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter FieldOptions FieldOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> FieldOptions -> FieldOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter FieldOptions FieldOptions FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  FieldOptions
  FieldOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> Vector UninterpretedOption -> FieldOptions -> FieldOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption")
                              Vector UninterpretedOption
frozen'uninterpretedOption
                              FieldOptions
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do FieldOptions'CType
y <- Parser FieldOptions'CType -> String -> Parser FieldOptions'CType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> FieldOptions'CType)
-> Parser Int -> Parser FieldOptions'CType
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> FieldOptions'CType
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       "ctype"
                                FieldOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FieldOptions
loop
                                  (Setter
  FieldOptions FieldOptions FieldOptions'CType FieldOptions'CType
-> FieldOptions'CType -> FieldOptions -> FieldOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "ctype" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ctype") FieldOptions'CType
y FieldOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        16
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "packed"
                                FieldOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FieldOptions
loop
                                  (Setter FieldOptions FieldOptions Bool Bool
-> Bool -> FieldOptions -> FieldOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "packed" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"packed") Bool
y FieldOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        48
                          -> do FieldOptions'JSType
y <- Parser FieldOptions'JSType -> String -> Parser FieldOptions'JSType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> FieldOptions'JSType)
-> Parser Int -> Parser FieldOptions'JSType
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> FieldOptions'JSType
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       "jstype"
                                FieldOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FieldOptions
loop
                                  (Setter
  FieldOptions FieldOptions FieldOptions'JSType FieldOptions'JSType
-> FieldOptions'JSType -> FieldOptions -> FieldOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "jstype" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"jstype") FieldOptions'JSType
y FieldOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        40
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "lazy"
                                FieldOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FieldOptions
loop
                                  (Setter FieldOptions FieldOptions Bool Bool
-> Bool -> FieldOptions -> FieldOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "lazy" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"lazy") Bool
y FieldOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        24
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "deprecated"
                                FieldOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FieldOptions
loop
                                  (Setter FieldOptions FieldOptions Bool Bool
-> Bool -> FieldOptions -> FieldOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deprecated") Bool
y FieldOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        80
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "weak"
                                FieldOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FieldOptions
loop
                                  (Setter FieldOptions FieldOptions Bool Bool
-> Bool -> FieldOptions -> FieldOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "weak" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"weak") Bool
y FieldOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        7994
                          -> do !UninterpretedOption
y <- Parser UninterpretedOption -> String -> Parser UninterpretedOption
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser UninterpretedOption -> Parser UninterpretedOption
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser UninterpretedOption
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "uninterpreted_option"
                                Growing Vector RealWorld UninterpretedOption
v <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) UninterpretedOption
-> UninterpretedOption
-> IO (Growing Vector (PrimState IO) UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption UninterpretedOption
y)
                                FieldOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FieldOptions
loop FieldOptions
x Growing Vector RealWorld UninterpretedOption
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                FieldOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FieldOptions
loop
                                  (Setter FieldOptions FieldOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> FieldOptions -> FieldOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter FieldOptions FieldOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FieldOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
      in
        Parser FieldOptions -> String -> Parser FieldOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               IO (Growing Vector RealWorld UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              FieldOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FieldOptions
loop FieldOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption)
          "FieldOptions"
  buildMessage :: FieldOptions -> Builder
buildMessage
    = \ _x :: FieldOptions
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe FieldOptions'CType)
  FieldOptions
  FieldOptions
  (Maybe FieldOptions'CType)
  (Maybe FieldOptions'CType)
-> FieldOptions -> Maybe FieldOptions'CType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'ctype" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ctype") FieldOptions
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: FieldOptions'CType
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 8)
                       ((Int -> Builder)
-> (FieldOptions'CType -> Int) -> FieldOptions'CType -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                          FieldOptions'CType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
                          FieldOptions'CType
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Bool) FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
-> FieldOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'packed" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'packed") FieldOptions
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: Bool
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 16)
                          ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                             (\ b :: Bool
b -> if Bool
b then 1 else 0)
                             Bool
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe FieldOptions'JSType)
  FieldOptions
  FieldOptions
  (Maybe FieldOptions'JSType)
  (Maybe FieldOptions'JSType)
-> FieldOptions -> Maybe FieldOptions'JSType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'jstype" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'jstype") FieldOptions
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: FieldOptions'JSType
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 48)
                             ((Int -> Builder)
-> (FieldOptions'JSType -> Int) -> FieldOptions'JSType -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                                FieldOptions'JSType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
                                FieldOptions'JSType
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe Bool) FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
-> FieldOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'lazy" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'lazy") FieldOptions
_x
                       of
                         Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just _v :: Bool
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 40)
                                ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                   Bool
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (case
                              FoldLike
  (Maybe Bool) FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
-> FieldOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                (forall s a (f :: * -> *).
(HasField s "maybe'deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'deprecated") FieldOptions
_x
                          of
                            Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            (Prelude.Just _v :: Bool
_v)
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 24)
                                   ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                      Bool
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (case
                                 FoldLike
  (Maybe Bool) FieldOptions FieldOptions (Maybe Bool) (Maybe Bool)
-> FieldOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'weak" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'weak") FieldOptions
_x
                             of
                               Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                               (Prelude.Just _v :: Bool
_v)
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 80)
                                      ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                         Bool
_v))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               ((UninterpretedOption -> Builder)
-> Vector UninterpretedOption -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                  (\ _v :: UninterpretedOption
_v
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 7994)
                                          ((ByteString -> Builder)
-> (UninterpretedOption -> ByteString)
-> UninterpretedOption
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                             (\ bs :: ByteString
bs
                                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                           (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                             UninterpretedOption -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                             UninterpretedOption
_v))
                                  (FoldLike
  (Vector UninterpretedOption)
  FieldOptions
  FieldOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> FieldOptions -> Vector UninterpretedOption
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                     (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption") FieldOptions
_x))
                               (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                  (FoldLike FieldSet FieldOptions FieldOptions FieldSet FieldSet
-> FieldOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet FieldOptions FieldOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FieldOptions
_x))))))))
instance Control.DeepSeq.NFData FieldOptions where
  rnf :: FieldOptions -> ()
rnf
    = \ x__ :: FieldOptions
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FieldOptions -> FieldSet
_FieldOptions'_unknownFields FieldOptions
x__)
             (Maybe FieldOptions'CType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (FieldOptions -> Maybe FieldOptions'CType
_FieldOptions'ctype FieldOptions
x__)
                (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (FieldOptions -> Maybe Bool
_FieldOptions'packed FieldOptions
x__)
                   (Maybe FieldOptions'JSType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (FieldOptions -> Maybe FieldOptions'JSType
_FieldOptions'jstype FieldOptions
x__)
                      (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (FieldOptions -> Maybe Bool
_FieldOptions'lazy FieldOptions
x__)
                         (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (FieldOptions -> Maybe Bool
_FieldOptions'deprecated FieldOptions
x__)
                            (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (FieldOptions -> Maybe Bool
_FieldOptions'weak FieldOptions
x__)
                               (Vector UninterpretedOption -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (FieldOptions -> Vector UninterpretedOption
_FieldOptions'uninterpretedOption FieldOptions
x__) ())))))))
data FieldOptions'CType
  = FieldOptions'STRING |
    FieldOptions'CORD |
    FieldOptions'STRING_PIECE
  deriving (Int -> FieldOptions'CType -> ShowS
[FieldOptions'CType] -> ShowS
FieldOptions'CType -> String
(Int -> FieldOptions'CType -> ShowS)
-> (FieldOptions'CType -> String)
-> ([FieldOptions'CType] -> ShowS)
-> Show FieldOptions'CType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FieldOptions'CType] -> ShowS
$cshowList :: [FieldOptions'CType] -> ShowS
show :: FieldOptions'CType -> String
$cshow :: FieldOptions'CType -> String
showsPrec :: Int -> FieldOptions'CType -> ShowS
$cshowsPrec :: Int -> FieldOptions'CType -> ShowS
Prelude.Show, FieldOptions'CType -> FieldOptions'CType -> Bool
(FieldOptions'CType -> FieldOptions'CType -> Bool)
-> (FieldOptions'CType -> FieldOptions'CType -> Bool)
-> Eq FieldOptions'CType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FieldOptions'CType -> FieldOptions'CType -> Bool
$c/= :: FieldOptions'CType -> FieldOptions'CType -> Bool
== :: FieldOptions'CType -> FieldOptions'CType -> Bool
$c== :: FieldOptions'CType -> FieldOptions'CType -> Bool
Prelude.Eq, Eq FieldOptions'CType
Eq FieldOptions'CType =>
(FieldOptions'CType -> FieldOptions'CType -> Ordering)
-> (FieldOptions'CType -> FieldOptions'CType -> Bool)
-> (FieldOptions'CType -> FieldOptions'CType -> Bool)
-> (FieldOptions'CType -> FieldOptions'CType -> Bool)
-> (FieldOptions'CType -> FieldOptions'CType -> Bool)
-> (FieldOptions'CType -> FieldOptions'CType -> FieldOptions'CType)
-> (FieldOptions'CType -> FieldOptions'CType -> FieldOptions'CType)
-> Ord FieldOptions'CType
FieldOptions'CType -> FieldOptions'CType -> Bool
FieldOptions'CType -> FieldOptions'CType -> Ordering
FieldOptions'CType -> FieldOptions'CType -> FieldOptions'CType
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: FieldOptions'CType -> FieldOptions'CType -> FieldOptions'CType
$cmin :: FieldOptions'CType -> FieldOptions'CType -> FieldOptions'CType
max :: FieldOptions'CType -> FieldOptions'CType -> FieldOptions'CType
$cmax :: FieldOptions'CType -> FieldOptions'CType -> FieldOptions'CType
>= :: FieldOptions'CType -> FieldOptions'CType -> Bool
$c>= :: FieldOptions'CType -> FieldOptions'CType -> Bool
> :: FieldOptions'CType -> FieldOptions'CType -> Bool
$c> :: FieldOptions'CType -> FieldOptions'CType -> Bool
<= :: FieldOptions'CType -> FieldOptions'CType -> Bool
$c<= :: FieldOptions'CType -> FieldOptions'CType -> Bool
< :: FieldOptions'CType -> FieldOptions'CType -> Bool
$c< :: FieldOptions'CType -> FieldOptions'CType -> Bool
compare :: FieldOptions'CType -> FieldOptions'CType -> Ordering
$ccompare :: FieldOptions'CType -> FieldOptions'CType -> Ordering
$cp1Ord :: Eq FieldOptions'CType
Prelude.Ord)
instance Data.ProtoLens.MessageEnum FieldOptions'CType where
  maybeToEnum :: Int -> Maybe FieldOptions'CType
maybeToEnum 0 = FieldOptions'CType -> Maybe FieldOptions'CType
forall a. a -> Maybe a
Prelude.Just FieldOptions'CType
FieldOptions'STRING
  maybeToEnum 1 = FieldOptions'CType -> Maybe FieldOptions'CType
forall a. a -> Maybe a
Prelude.Just FieldOptions'CType
FieldOptions'CORD
  maybeToEnum 2 = FieldOptions'CType -> Maybe FieldOptions'CType
forall a. a -> Maybe a
Prelude.Just FieldOptions'CType
FieldOptions'STRING_PIECE
  maybeToEnum _ = Maybe FieldOptions'CType
forall a. Maybe a
Prelude.Nothing
  showEnum :: FieldOptions'CType -> String
showEnum FieldOptions'STRING = "STRING"
  showEnum FieldOptions'CORD = "CORD"
  showEnum FieldOptions'STRING_PIECE = "STRING_PIECE"
  readEnum :: String -> Maybe FieldOptions'CType
readEnum k :: String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "STRING" = FieldOptions'CType -> Maybe FieldOptions'CType
forall a. a -> Maybe a
Prelude.Just FieldOptions'CType
FieldOptions'STRING
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "CORD" = FieldOptions'CType -> Maybe FieldOptions'CType
forall a. a -> Maybe a
Prelude.Just FieldOptions'CType
FieldOptions'CORD
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "STRING_PIECE"
    = FieldOptions'CType -> Maybe FieldOptions'CType
forall a. a -> Maybe a
Prelude.Just FieldOptions'CType
FieldOptions'STRING_PIECE
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe FieldOptions'CType) -> Maybe FieldOptions'CType
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe FieldOptions'CType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded FieldOptions'CType where
  minBound :: FieldOptions'CType
minBound = FieldOptions'CType
FieldOptions'STRING
  maxBound :: FieldOptions'CType
maxBound = FieldOptions'CType
FieldOptions'STRING_PIECE
instance Prelude.Enum FieldOptions'CType where
  toEnum :: Int -> FieldOptions'CType
toEnum k__ :: Int
k__
    = FieldOptions'CType
-> (FieldOptions'CType -> FieldOptions'CType)
-> Maybe FieldOptions'CType
-> FieldOptions'CType
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> FieldOptions'CType
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              "toEnum: unknown value for enum CType: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        FieldOptions'CType -> FieldOptions'CType
forall a. a -> a
Prelude.id
        (Int -> Maybe FieldOptions'CType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: FieldOptions'CType -> Int
fromEnum FieldOptions'STRING = 0
  fromEnum FieldOptions'CORD = 1
  fromEnum FieldOptions'STRING_PIECE = 2
  succ :: FieldOptions'CType -> FieldOptions'CType
succ FieldOptions'STRING_PIECE
    = String -> FieldOptions'CType
forall a. HasCallStack => String -> a
Prelude.error
        "FieldOptions'CType.succ: bad argument FieldOptions'STRING_PIECE. This value would be out of bounds."
  succ FieldOptions'STRING = FieldOptions'CType
FieldOptions'CORD
  succ FieldOptions'CORD = FieldOptions'CType
FieldOptions'STRING_PIECE
  pred :: FieldOptions'CType -> FieldOptions'CType
pred FieldOptions'STRING
    = String -> FieldOptions'CType
forall a. HasCallStack => String -> a
Prelude.error
        "FieldOptions'CType.pred: bad argument FieldOptions'STRING. This value would be out of bounds."
  pred FieldOptions'CORD = FieldOptions'CType
FieldOptions'STRING
  pred FieldOptions'STRING_PIECE = FieldOptions'CType
FieldOptions'CORD
  enumFrom :: FieldOptions'CType -> [FieldOptions'CType]
enumFrom = FieldOptions'CType -> [FieldOptions'CType]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: FieldOptions'CType -> FieldOptions'CType -> [FieldOptions'CType]
enumFromTo = FieldOptions'CType -> FieldOptions'CType -> [FieldOptions'CType]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: FieldOptions'CType -> FieldOptions'CType -> [FieldOptions'CType]
enumFromThen = FieldOptions'CType -> FieldOptions'CType -> [FieldOptions'CType]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: FieldOptions'CType
-> FieldOptions'CType -> FieldOptions'CType -> [FieldOptions'CType]
enumFromThenTo = FieldOptions'CType
-> FieldOptions'CType -> FieldOptions'CType -> [FieldOptions'CType]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault FieldOptions'CType where
  fieldDefault :: FieldOptions'CType
fieldDefault = FieldOptions'CType
FieldOptions'STRING
instance Control.DeepSeq.NFData FieldOptions'CType where
  rnf :: FieldOptions'CType -> ()
rnf x__ :: FieldOptions'CType
x__ = FieldOptions'CType -> () -> ()
forall a b. a -> b -> b
Prelude.seq FieldOptions'CType
x__ ()
data FieldOptions'JSType
  = FieldOptions'JS_NORMAL |
    FieldOptions'JS_STRING |
    FieldOptions'JS_NUMBER
  deriving (Int -> FieldOptions'JSType -> ShowS
[FieldOptions'JSType] -> ShowS
FieldOptions'JSType -> String
(Int -> FieldOptions'JSType -> ShowS)
-> (FieldOptions'JSType -> String)
-> ([FieldOptions'JSType] -> ShowS)
-> Show FieldOptions'JSType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FieldOptions'JSType] -> ShowS
$cshowList :: [FieldOptions'JSType] -> ShowS
show :: FieldOptions'JSType -> String
$cshow :: FieldOptions'JSType -> String
showsPrec :: Int -> FieldOptions'JSType -> ShowS
$cshowsPrec :: Int -> FieldOptions'JSType -> ShowS
Prelude.Show, FieldOptions'JSType -> FieldOptions'JSType -> Bool
(FieldOptions'JSType -> FieldOptions'JSType -> Bool)
-> (FieldOptions'JSType -> FieldOptions'JSType -> Bool)
-> Eq FieldOptions'JSType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FieldOptions'JSType -> FieldOptions'JSType -> Bool
$c/= :: FieldOptions'JSType -> FieldOptions'JSType -> Bool
== :: FieldOptions'JSType -> FieldOptions'JSType -> Bool
$c== :: FieldOptions'JSType -> FieldOptions'JSType -> Bool
Prelude.Eq, Eq FieldOptions'JSType
Eq FieldOptions'JSType =>
(FieldOptions'JSType -> FieldOptions'JSType -> Ordering)
-> (FieldOptions'JSType -> FieldOptions'JSType -> Bool)
-> (FieldOptions'JSType -> FieldOptions'JSType -> Bool)
-> (FieldOptions'JSType -> FieldOptions'JSType -> Bool)
-> (FieldOptions'JSType -> FieldOptions'JSType -> Bool)
-> (FieldOptions'JSType
    -> FieldOptions'JSType -> FieldOptions'JSType)
-> (FieldOptions'JSType
    -> FieldOptions'JSType -> FieldOptions'JSType)
-> Ord FieldOptions'JSType
FieldOptions'JSType -> FieldOptions'JSType -> Bool
FieldOptions'JSType -> FieldOptions'JSType -> Ordering
FieldOptions'JSType -> FieldOptions'JSType -> FieldOptions'JSType
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: FieldOptions'JSType -> FieldOptions'JSType -> FieldOptions'JSType
$cmin :: FieldOptions'JSType -> FieldOptions'JSType -> FieldOptions'JSType
max :: FieldOptions'JSType -> FieldOptions'JSType -> FieldOptions'JSType
$cmax :: FieldOptions'JSType -> FieldOptions'JSType -> FieldOptions'JSType
>= :: FieldOptions'JSType -> FieldOptions'JSType -> Bool
$c>= :: FieldOptions'JSType -> FieldOptions'JSType -> Bool
> :: FieldOptions'JSType -> FieldOptions'JSType -> Bool
$c> :: FieldOptions'JSType -> FieldOptions'JSType -> Bool
<= :: FieldOptions'JSType -> FieldOptions'JSType -> Bool
$c<= :: FieldOptions'JSType -> FieldOptions'JSType -> Bool
< :: FieldOptions'JSType -> FieldOptions'JSType -> Bool
$c< :: FieldOptions'JSType -> FieldOptions'JSType -> Bool
compare :: FieldOptions'JSType -> FieldOptions'JSType -> Ordering
$ccompare :: FieldOptions'JSType -> FieldOptions'JSType -> Ordering
$cp1Ord :: Eq FieldOptions'JSType
Prelude.Ord)
instance Data.ProtoLens.MessageEnum FieldOptions'JSType where
  maybeToEnum :: Int -> Maybe FieldOptions'JSType
maybeToEnum 0 = FieldOptions'JSType -> Maybe FieldOptions'JSType
forall a. a -> Maybe a
Prelude.Just FieldOptions'JSType
FieldOptions'JS_NORMAL
  maybeToEnum 1 = FieldOptions'JSType -> Maybe FieldOptions'JSType
forall a. a -> Maybe a
Prelude.Just FieldOptions'JSType
FieldOptions'JS_STRING
  maybeToEnum 2 = FieldOptions'JSType -> Maybe FieldOptions'JSType
forall a. a -> Maybe a
Prelude.Just FieldOptions'JSType
FieldOptions'JS_NUMBER
  maybeToEnum _ = Maybe FieldOptions'JSType
forall a. Maybe a
Prelude.Nothing
  showEnum :: FieldOptions'JSType -> String
showEnum FieldOptions'JS_NORMAL = "JS_NORMAL"
  showEnum FieldOptions'JS_STRING = "JS_STRING"
  showEnum FieldOptions'JS_NUMBER = "JS_NUMBER"
  readEnum :: String -> Maybe FieldOptions'JSType
readEnum k :: String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "JS_NORMAL" = FieldOptions'JSType -> Maybe FieldOptions'JSType
forall a. a -> Maybe a
Prelude.Just FieldOptions'JSType
FieldOptions'JS_NORMAL
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "JS_STRING" = FieldOptions'JSType -> Maybe FieldOptions'JSType
forall a. a -> Maybe a
Prelude.Just FieldOptions'JSType
FieldOptions'JS_STRING
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "JS_NUMBER" = FieldOptions'JSType -> Maybe FieldOptions'JSType
forall a. a -> Maybe a
Prelude.Just FieldOptions'JSType
FieldOptions'JS_NUMBER
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe FieldOptions'JSType) -> Maybe FieldOptions'JSType
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe FieldOptions'JSType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded FieldOptions'JSType where
  minBound :: FieldOptions'JSType
minBound = FieldOptions'JSType
FieldOptions'JS_NORMAL
  maxBound :: FieldOptions'JSType
maxBound = FieldOptions'JSType
FieldOptions'JS_NUMBER
instance Prelude.Enum FieldOptions'JSType where
  toEnum :: Int -> FieldOptions'JSType
toEnum k__ :: Int
k__
    = FieldOptions'JSType
-> (FieldOptions'JSType -> FieldOptions'JSType)
-> Maybe FieldOptions'JSType
-> FieldOptions'JSType
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> FieldOptions'JSType
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              "toEnum: unknown value for enum JSType: " (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        FieldOptions'JSType -> FieldOptions'JSType
forall a. a -> a
Prelude.id
        (Int -> Maybe FieldOptions'JSType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: FieldOptions'JSType -> Int
fromEnum FieldOptions'JS_NORMAL = 0
  fromEnum FieldOptions'JS_STRING = 1
  fromEnum FieldOptions'JS_NUMBER = 2
  succ :: FieldOptions'JSType -> FieldOptions'JSType
succ FieldOptions'JS_NUMBER
    = String -> FieldOptions'JSType
forall a. HasCallStack => String -> a
Prelude.error
        "FieldOptions'JSType.succ: bad argument FieldOptions'JS_NUMBER. This value would be out of bounds."
  succ FieldOptions'JS_NORMAL = FieldOptions'JSType
FieldOptions'JS_STRING
  succ FieldOptions'JS_STRING = FieldOptions'JSType
FieldOptions'JS_NUMBER
  pred :: FieldOptions'JSType -> FieldOptions'JSType
pred FieldOptions'JS_NORMAL
    = String -> FieldOptions'JSType
forall a. HasCallStack => String -> a
Prelude.error
        "FieldOptions'JSType.pred: bad argument FieldOptions'JS_NORMAL. This value would be out of bounds."
  pred FieldOptions'JS_STRING = FieldOptions'JSType
FieldOptions'JS_NORMAL
  pred FieldOptions'JS_NUMBER = FieldOptions'JSType
FieldOptions'JS_STRING
  enumFrom :: FieldOptions'JSType -> [FieldOptions'JSType]
enumFrom = FieldOptions'JSType -> [FieldOptions'JSType]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: FieldOptions'JSType -> FieldOptions'JSType -> [FieldOptions'JSType]
enumFromTo = FieldOptions'JSType -> FieldOptions'JSType -> [FieldOptions'JSType]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: FieldOptions'JSType -> FieldOptions'JSType -> [FieldOptions'JSType]
enumFromThen = FieldOptions'JSType -> FieldOptions'JSType -> [FieldOptions'JSType]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: FieldOptions'JSType
-> FieldOptions'JSType
-> FieldOptions'JSType
-> [FieldOptions'JSType]
enumFromThenTo = FieldOptions'JSType
-> FieldOptions'JSType
-> FieldOptions'JSType
-> [FieldOptions'JSType]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault FieldOptions'JSType where
  fieldDefault :: FieldOptions'JSType
fieldDefault = FieldOptions'JSType
FieldOptions'JS_NORMAL
instance Control.DeepSeq.NFData FieldOptions'JSType where
  rnf :: FieldOptions'JSType -> ()
rnf x__ :: FieldOptions'JSType
x__ = FieldOptions'JSType -> () -> ()
forall a b. a -> b -> b
Prelude.seq FieldOptions'JSType
x__ ()
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' FileDescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' FileDescriptorProto (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.package' @:: Lens' FileDescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'package' @:: Lens' FileDescriptorProto (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.dependency' @:: Lens' FileDescriptorProto [Data.Text.Text]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'dependency' @:: Lens' FileDescriptorProto (Data.Vector.Vector Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.publicDependency' @:: Lens' FileDescriptorProto [Data.Int.Int32]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'publicDependency' @:: Lens' FileDescriptorProto (Data.Vector.Unboxed.Vector Data.Int.Int32)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.weakDependency' @:: Lens' FileDescriptorProto [Data.Int.Int32]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'weakDependency' @:: Lens' FileDescriptorProto (Data.Vector.Unboxed.Vector Data.Int.Int32)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.messageType' @:: Lens' FileDescriptorProto [DescriptorProto]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'messageType' @:: Lens' FileDescriptorProto (Data.Vector.Vector DescriptorProto)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.enumType' @:: Lens' FileDescriptorProto [EnumDescriptorProto]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'enumType' @:: Lens' FileDescriptorProto (Data.Vector.Vector EnumDescriptorProto)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.service' @:: Lens' FileDescriptorProto [ServiceDescriptorProto]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'service' @:: Lens' FileDescriptorProto (Data.Vector.Vector ServiceDescriptorProto)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.extension' @:: Lens' FileDescriptorProto [FieldDescriptorProto]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'extension' @:: Lens' FileDescriptorProto (Data.Vector.Vector FieldDescriptorProto)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' FileDescriptorProto FileOptions@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' FileDescriptorProto (Prelude.Maybe FileOptions)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.sourceCodeInfo' @:: Lens' FileDescriptorProto SourceCodeInfo@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'sourceCodeInfo' @:: Lens' FileDescriptorProto (Prelude.Maybe SourceCodeInfo)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.syntax' @:: Lens' FileDescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'syntax' @:: Lens' FileDescriptorProto (Prelude.Maybe Data.Text.Text)@ -}
data FileDescriptorProto
  = FileDescriptorProto'_constructor {FileDescriptorProto -> Maybe Text
_FileDescriptorProto'name :: !(Prelude.Maybe Data.Text.Text),
                                      FileDescriptorProto -> Maybe Text
_FileDescriptorProto'package :: !(Prelude.Maybe Data.Text.Text),
                                      FileDescriptorProto -> Vector Text
_FileDescriptorProto'dependency :: !(Data.Vector.Vector Data.Text.Text),
                                      FileDescriptorProto -> Vector Int32
_FileDescriptorProto'publicDependency :: !(Data.Vector.Unboxed.Vector Data.Int.Int32),
                                      FileDescriptorProto -> Vector Int32
_FileDescriptorProto'weakDependency :: !(Data.Vector.Unboxed.Vector Data.Int.Int32),
                                      FileDescriptorProto -> Vector DescriptorProto
_FileDescriptorProto'messageType :: !(Data.Vector.Vector DescriptorProto),
                                      FileDescriptorProto -> Vector EnumDescriptorProto
_FileDescriptorProto'enumType :: !(Data.Vector.Vector EnumDescriptorProto),
                                      FileDescriptorProto -> Vector ServiceDescriptorProto
_FileDescriptorProto'service :: !(Data.Vector.Vector ServiceDescriptorProto),
                                      FileDescriptorProto -> Vector FieldDescriptorProto
_FileDescriptorProto'extension :: !(Data.Vector.Vector FieldDescriptorProto),
                                      FileDescriptorProto -> Maybe FileOptions
_FileDescriptorProto'options :: !(Prelude.Maybe FileOptions),
                                      FileDescriptorProto -> Maybe SourceCodeInfo
_FileDescriptorProto'sourceCodeInfo :: !(Prelude.Maybe SourceCodeInfo),
                                      FileDescriptorProto -> Maybe Text
_FileDescriptorProto'syntax :: !(Prelude.Maybe Data.Text.Text),
                                      FileDescriptorProto -> FieldSet
_FileDescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (FileDescriptorProto -> FileDescriptorProto -> Bool
(FileDescriptorProto -> FileDescriptorProto -> Bool)
-> (FileDescriptorProto -> FileDescriptorProto -> Bool)
-> Eq FileDescriptorProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FileDescriptorProto -> FileDescriptorProto -> Bool
$c/= :: FileDescriptorProto -> FileDescriptorProto -> Bool
== :: FileDescriptorProto -> FileDescriptorProto -> Bool
$c== :: FileDescriptorProto -> FileDescriptorProto -> Bool
Prelude.Eq, Eq FileDescriptorProto
Eq FileDescriptorProto =>
(FileDescriptorProto -> FileDescriptorProto -> Ordering)
-> (FileDescriptorProto -> FileDescriptorProto -> Bool)
-> (FileDescriptorProto -> FileDescriptorProto -> Bool)
-> (FileDescriptorProto -> FileDescriptorProto -> Bool)
-> (FileDescriptorProto -> FileDescriptorProto -> Bool)
-> (FileDescriptorProto
    -> FileDescriptorProto -> FileDescriptorProto)
-> (FileDescriptorProto
    -> FileDescriptorProto -> FileDescriptorProto)
-> Ord FileDescriptorProto
FileDescriptorProto -> FileDescriptorProto -> Bool
FileDescriptorProto -> FileDescriptorProto -> Ordering
FileDescriptorProto -> FileDescriptorProto -> FileDescriptorProto
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: FileDescriptorProto -> FileDescriptorProto -> FileDescriptorProto
$cmin :: FileDescriptorProto -> FileDescriptorProto -> FileDescriptorProto
max :: FileDescriptorProto -> FileDescriptorProto -> FileDescriptorProto
$cmax :: FileDescriptorProto -> FileDescriptorProto -> FileDescriptorProto
>= :: FileDescriptorProto -> FileDescriptorProto -> Bool
$c>= :: FileDescriptorProto -> FileDescriptorProto -> Bool
> :: FileDescriptorProto -> FileDescriptorProto -> Bool
$c> :: FileDescriptorProto -> FileDescriptorProto -> Bool
<= :: FileDescriptorProto -> FileDescriptorProto -> Bool
$c<= :: FileDescriptorProto -> FileDescriptorProto -> Bool
< :: FileDescriptorProto -> FileDescriptorProto -> Bool
$c< :: FileDescriptorProto -> FileDescriptorProto -> Bool
compare :: FileDescriptorProto -> FileDescriptorProto -> Ordering
$ccompare :: FileDescriptorProto -> FileDescriptorProto -> Ordering
$cp1Ord :: Eq FileDescriptorProto
Prelude.Ord)
instance Prelude.Show FileDescriptorProto where
  showsPrec :: Int -> FileDescriptorProto -> ShowS
showsPrec _ __x :: FileDescriptorProto
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (FileDescriptorProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FileDescriptorProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField FileDescriptorProto "name" Data.Text.Text where
  fieldOf :: Proxy# "name"
-> (Text -> f Text) -> FileDescriptorProto -> f FileDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Maybe Text)
-> (FileDescriptorProto -> Maybe Text -> FileDescriptorProto)
-> Lens
     FileDescriptorProto FileDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Maybe Text
_FileDescriptorProto'name
           (\ x__ :: FileDescriptorProto
x__ y__ :: Maybe Text
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'name :: Maybe Text
_FileDescriptorProto'name = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FileDescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'name"
-> (Maybe Text -> f (Maybe Text))
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Maybe Text)
-> (FileDescriptorProto -> Maybe Text -> FileDescriptorProto)
-> Lens
     FileDescriptorProto FileDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Maybe Text
_FileDescriptorProto'name
           (\ x__ :: FileDescriptorProto
x__ y__ :: Maybe Text
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'name :: Maybe Text
_FileDescriptorProto'name = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileDescriptorProto "package" Data.Text.Text where
  fieldOf :: Proxy# "package"
-> (Text -> f Text) -> FileDescriptorProto -> f FileDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Maybe Text)
-> (FileDescriptorProto -> Maybe Text -> FileDescriptorProto)
-> Lens
     FileDescriptorProto FileDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Maybe Text
_FileDescriptorProto'package
           (\ x__ :: FileDescriptorProto
x__ y__ :: Maybe Text
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'package :: Maybe Text
_FileDescriptorProto'package = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FileDescriptorProto "maybe'package" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'package"
-> (Maybe Text -> f (Maybe Text))
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Maybe Text)
-> (FileDescriptorProto -> Maybe Text -> FileDescriptorProto)
-> Lens
     FileDescriptorProto FileDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Maybe Text
_FileDescriptorProto'package
           (\ x__ :: FileDescriptorProto
x__ y__ :: Maybe Text
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'package :: Maybe Text
_FileDescriptorProto'package = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileDescriptorProto "dependency" [Data.Text.Text] where
  fieldOf :: Proxy# "dependency"
-> ([Text] -> f [Text])
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Vector Text)
-> (FileDescriptorProto -> Vector Text -> FileDescriptorProto)
-> Lens
     FileDescriptorProto FileDescriptorProto (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Vector Text
_FileDescriptorProto'dependency
           (\ x__ :: FileDescriptorProto
x__ y__ :: Vector Text
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'dependency :: Vector Text
_FileDescriptorProto'dependency = Vector Text
y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField FileDescriptorProto "vec'dependency" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: Proxy# "vec'dependency"
-> (Vector Text -> f (Vector Text))
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Vector Text)
-> (FileDescriptorProto -> Vector Text -> FileDescriptorProto)
-> Lens
     FileDescriptorProto FileDescriptorProto (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Vector Text
_FileDescriptorProto'dependency
           (\ x__ :: FileDescriptorProto
x__ y__ :: Vector Text
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'dependency :: Vector Text
_FileDescriptorProto'dependency = Vector Text
y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileDescriptorProto "publicDependency" [Data.Int.Int32] where
  fieldOf :: Proxy# "publicDependency"
-> ([Int32] -> f [Int32])
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Vector Int32 -> f (Vector Int32))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> (([Int32] -> f [Int32]) -> Vector Int32 -> f (Vector Int32))
-> ([Int32] -> f [Int32])
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Vector Int32)
-> (FileDescriptorProto -> Vector Int32 -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Vector Int32)
     (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Vector Int32
_FileDescriptorProto'publicDependency
           (\ x__ :: FileDescriptorProto
x__ y__ :: Vector Int32
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'publicDependency :: Vector Int32
_FileDescriptorProto'publicDependency = Vector Int32
y__}))
        ((Vector Int32 -> [Int32])
-> (Vector Int32 -> [Int32] -> Vector Int32)
-> Lens (Vector Int32) (Vector Int32) [Int32] [Int32]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Int32 -> [Int32]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Int32]
y__ -> [Int32] -> Vector Int32
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int32]
y__))
instance Data.ProtoLens.Field.HasField FileDescriptorProto "vec'publicDependency" (Data.Vector.Unboxed.Vector Data.Int.Int32) where
  fieldOf :: Proxy# "vec'publicDependency"
-> (Vector Int32 -> f (Vector Int32))
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Vector Int32 -> f (Vector Int32))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((Vector Int32 -> f (Vector Int32))
    -> Vector Int32 -> f (Vector Int32))
-> (Vector Int32 -> f (Vector Int32))
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Vector Int32)
-> (FileDescriptorProto -> Vector Int32 -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Vector Int32)
     (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Vector Int32
_FileDescriptorProto'publicDependency
           (\ x__ :: FileDescriptorProto
x__ y__ :: Vector Int32
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'publicDependency :: Vector Int32
_FileDescriptorProto'publicDependency = Vector Int32
y__}))
        (Vector Int32 -> f (Vector Int32))
-> Vector Int32 -> f (Vector Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileDescriptorProto "weakDependency" [Data.Int.Int32] where
  fieldOf :: Proxy# "weakDependency"
-> ([Int32] -> f [Int32])
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Vector Int32 -> f (Vector Int32))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> (([Int32] -> f [Int32]) -> Vector Int32 -> f (Vector Int32))
-> ([Int32] -> f [Int32])
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Vector Int32)
-> (FileDescriptorProto -> Vector Int32 -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Vector Int32)
     (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Vector Int32
_FileDescriptorProto'weakDependency
           (\ x__ :: FileDescriptorProto
x__ y__ :: Vector Int32
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'weakDependency :: Vector Int32
_FileDescriptorProto'weakDependency = Vector Int32
y__}))
        ((Vector Int32 -> [Int32])
-> (Vector Int32 -> [Int32] -> Vector Int32)
-> Lens (Vector Int32) (Vector Int32) [Int32] [Int32]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Int32 -> [Int32]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Int32]
y__ -> [Int32] -> Vector Int32
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int32]
y__))
instance Data.ProtoLens.Field.HasField FileDescriptorProto "vec'weakDependency" (Data.Vector.Unboxed.Vector Data.Int.Int32) where
  fieldOf :: Proxy# "vec'weakDependency"
-> (Vector Int32 -> f (Vector Int32))
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Vector Int32 -> f (Vector Int32))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((Vector Int32 -> f (Vector Int32))
    -> Vector Int32 -> f (Vector Int32))
-> (Vector Int32 -> f (Vector Int32))
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Vector Int32)
-> (FileDescriptorProto -> Vector Int32 -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Vector Int32)
     (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Vector Int32
_FileDescriptorProto'weakDependency
           (\ x__ :: FileDescriptorProto
x__ y__ :: Vector Int32
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'weakDependency :: Vector Int32
_FileDescriptorProto'weakDependency = Vector Int32
y__}))
        (Vector Int32 -> f (Vector Int32))
-> Vector Int32 -> f (Vector Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileDescriptorProto "messageType" [DescriptorProto] where
  fieldOf :: Proxy# "messageType"
-> ([DescriptorProto] -> f [DescriptorProto])
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Vector DescriptorProto -> f (Vector DescriptorProto))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> (([DescriptorProto] -> f [DescriptorProto])
    -> Vector DescriptorProto -> f (Vector DescriptorProto))
-> ([DescriptorProto] -> f [DescriptorProto])
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Vector DescriptorProto)
-> (FileDescriptorProto
    -> Vector DescriptorProto -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Vector DescriptorProto)
     (Vector DescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Vector DescriptorProto
_FileDescriptorProto'messageType
           (\ x__ :: FileDescriptorProto
x__ y__ :: Vector DescriptorProto
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'messageType :: Vector DescriptorProto
_FileDescriptorProto'messageType = Vector DescriptorProto
y__}))
        ((Vector DescriptorProto -> [DescriptorProto])
-> (Vector DescriptorProto
    -> [DescriptorProto] -> Vector DescriptorProto)
-> Lens
     (Vector DescriptorProto)
     (Vector DescriptorProto)
     [DescriptorProto]
     [DescriptorProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector DescriptorProto -> [DescriptorProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [DescriptorProto]
y__ -> [DescriptorProto] -> Vector DescriptorProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [DescriptorProto]
y__))
instance Data.ProtoLens.Field.HasField FileDescriptorProto "vec'messageType" (Data.Vector.Vector DescriptorProto) where
  fieldOf :: Proxy# "vec'messageType"
-> (Vector DescriptorProto -> f (Vector DescriptorProto))
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Vector DescriptorProto -> f (Vector DescriptorProto))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((Vector DescriptorProto -> f (Vector DescriptorProto))
    -> Vector DescriptorProto -> f (Vector DescriptorProto))
-> (Vector DescriptorProto -> f (Vector DescriptorProto))
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Vector DescriptorProto)
-> (FileDescriptorProto
    -> Vector DescriptorProto -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Vector DescriptorProto)
     (Vector DescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Vector DescriptorProto
_FileDescriptorProto'messageType
           (\ x__ :: FileDescriptorProto
x__ y__ :: Vector DescriptorProto
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'messageType :: Vector DescriptorProto
_FileDescriptorProto'messageType = Vector DescriptorProto
y__}))
        (Vector DescriptorProto -> f (Vector DescriptorProto))
-> Vector DescriptorProto -> f (Vector DescriptorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileDescriptorProto "enumType" [EnumDescriptorProto] where
  fieldOf :: Proxy# "enumType"
-> ([EnumDescriptorProto] -> f [EnumDescriptorProto])
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> (([EnumDescriptorProto] -> f [EnumDescriptorProto])
    -> Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
-> ([EnumDescriptorProto] -> f [EnumDescriptorProto])
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Vector EnumDescriptorProto)
-> (FileDescriptorProto
    -> Vector EnumDescriptorProto -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Vector EnumDescriptorProto)
     (Vector EnumDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Vector EnumDescriptorProto
_FileDescriptorProto'enumType
           (\ x__ :: FileDescriptorProto
x__ y__ :: Vector EnumDescriptorProto
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'enumType :: Vector EnumDescriptorProto
_FileDescriptorProto'enumType = Vector EnumDescriptorProto
y__}))
        ((Vector EnumDescriptorProto -> [EnumDescriptorProto])
-> (Vector EnumDescriptorProto
    -> [EnumDescriptorProto] -> Vector EnumDescriptorProto)
-> Lens
     (Vector EnumDescriptorProto)
     (Vector EnumDescriptorProto)
     [EnumDescriptorProto]
     [EnumDescriptorProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector EnumDescriptorProto -> [EnumDescriptorProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [EnumDescriptorProto]
y__ -> [EnumDescriptorProto] -> Vector EnumDescriptorProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [EnumDescriptorProto]
y__))
instance Data.ProtoLens.Field.HasField FileDescriptorProto "vec'enumType" (Data.Vector.Vector EnumDescriptorProto) where
  fieldOf :: Proxy# "vec'enumType"
-> (Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
    -> Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
-> (Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Vector EnumDescriptorProto)
-> (FileDescriptorProto
    -> Vector EnumDescriptorProto -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Vector EnumDescriptorProto)
     (Vector EnumDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Vector EnumDescriptorProto
_FileDescriptorProto'enumType
           (\ x__ :: FileDescriptorProto
x__ y__ :: Vector EnumDescriptorProto
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'enumType :: Vector EnumDescriptorProto
_FileDescriptorProto'enumType = Vector EnumDescriptorProto
y__}))
        (Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto))
-> Vector EnumDescriptorProto -> f (Vector EnumDescriptorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileDescriptorProto "service" [ServiceDescriptorProto] where
  fieldOf :: Proxy# "service"
-> ([ServiceDescriptorProto] -> f [ServiceDescriptorProto])
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Vector ServiceDescriptorProto
  -> f (Vector ServiceDescriptorProto))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> (([ServiceDescriptorProto] -> f [ServiceDescriptorProto])
    -> Vector ServiceDescriptorProto
    -> f (Vector ServiceDescriptorProto))
-> ([ServiceDescriptorProto] -> f [ServiceDescriptorProto])
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Vector ServiceDescriptorProto)
-> (FileDescriptorProto
    -> Vector ServiceDescriptorProto -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Vector ServiceDescriptorProto)
     (Vector ServiceDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Vector ServiceDescriptorProto
_FileDescriptorProto'service
           (\ x__ :: FileDescriptorProto
x__ y__ :: Vector ServiceDescriptorProto
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'service :: Vector ServiceDescriptorProto
_FileDescriptorProto'service = Vector ServiceDescriptorProto
y__}))
        ((Vector ServiceDescriptorProto -> [ServiceDescriptorProto])
-> (Vector ServiceDescriptorProto
    -> [ServiceDescriptorProto] -> Vector ServiceDescriptorProto)
-> Lens
     (Vector ServiceDescriptorProto)
     (Vector ServiceDescriptorProto)
     [ServiceDescriptorProto]
     [ServiceDescriptorProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector ServiceDescriptorProto -> [ServiceDescriptorProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [ServiceDescriptorProto]
y__ -> [ServiceDescriptorProto] -> Vector ServiceDescriptorProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ServiceDescriptorProto]
y__))
instance Data.ProtoLens.Field.HasField FileDescriptorProto "vec'service" (Data.Vector.Vector ServiceDescriptorProto) where
  fieldOf :: Proxy# "vec'service"
-> (Vector ServiceDescriptorProto
    -> f (Vector ServiceDescriptorProto))
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Vector ServiceDescriptorProto
  -> f (Vector ServiceDescriptorProto))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((Vector ServiceDescriptorProto
     -> f (Vector ServiceDescriptorProto))
    -> Vector ServiceDescriptorProto
    -> f (Vector ServiceDescriptorProto))
-> (Vector ServiceDescriptorProto
    -> f (Vector ServiceDescriptorProto))
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Vector ServiceDescriptorProto)
-> (FileDescriptorProto
    -> Vector ServiceDescriptorProto -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Vector ServiceDescriptorProto)
     (Vector ServiceDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Vector ServiceDescriptorProto
_FileDescriptorProto'service
           (\ x__ :: FileDescriptorProto
x__ y__ :: Vector ServiceDescriptorProto
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'service :: Vector ServiceDescriptorProto
_FileDescriptorProto'service = Vector ServiceDescriptorProto
y__}))
        (Vector ServiceDescriptorProto
 -> f (Vector ServiceDescriptorProto))
-> Vector ServiceDescriptorProto
-> f (Vector ServiceDescriptorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileDescriptorProto "extension" [FieldDescriptorProto] where
  fieldOf :: Proxy# "extension"
-> ([FieldDescriptorProto] -> f [FieldDescriptorProto])
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> (([FieldDescriptorProto] -> f [FieldDescriptorProto])
    -> Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
-> ([FieldDescriptorProto] -> f [FieldDescriptorProto])
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Vector FieldDescriptorProto)
-> (FileDescriptorProto
    -> Vector FieldDescriptorProto -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Vector FieldDescriptorProto)
     (Vector FieldDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Vector FieldDescriptorProto
_FileDescriptorProto'extension
           (\ x__ :: FileDescriptorProto
x__ y__ :: Vector FieldDescriptorProto
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'extension :: Vector FieldDescriptorProto
_FileDescriptorProto'extension = Vector FieldDescriptorProto
y__}))
        ((Vector FieldDescriptorProto -> [FieldDescriptorProto])
-> (Vector FieldDescriptorProto
    -> [FieldDescriptorProto] -> Vector FieldDescriptorProto)
-> Lens
     (Vector FieldDescriptorProto)
     (Vector FieldDescriptorProto)
     [FieldDescriptorProto]
     [FieldDescriptorProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector FieldDescriptorProto -> [FieldDescriptorProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [FieldDescriptorProto]
y__ -> [FieldDescriptorProto] -> Vector FieldDescriptorProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [FieldDescriptorProto]
y__))
instance Data.ProtoLens.Field.HasField FileDescriptorProto "vec'extension" (Data.Vector.Vector FieldDescriptorProto) where
  fieldOf :: Proxy# "vec'extension"
-> (Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((Vector FieldDescriptorProto
     -> f (Vector FieldDescriptorProto))
    -> Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
-> (Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Vector FieldDescriptorProto)
-> (FileDescriptorProto
    -> Vector FieldDescriptorProto -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Vector FieldDescriptorProto)
     (Vector FieldDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Vector FieldDescriptorProto
_FileDescriptorProto'extension
           (\ x__ :: FileDescriptorProto
x__ y__ :: Vector FieldDescriptorProto
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'extension :: Vector FieldDescriptorProto
_FileDescriptorProto'extension = Vector FieldDescriptorProto
y__}))
        (Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto))
-> Vector FieldDescriptorProto -> f (Vector FieldDescriptorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileDescriptorProto "options" FileOptions where
  fieldOf :: Proxy# "options"
-> (FileOptions -> f FileOptions)
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Maybe FileOptions -> f (Maybe FileOptions))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((FileOptions -> f FileOptions)
    -> Maybe FileOptions -> f (Maybe FileOptions))
-> (FileOptions -> f FileOptions)
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Maybe FileOptions)
-> (FileDescriptorProto
    -> Maybe FileOptions -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Maybe FileOptions)
     (Maybe FileOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Maybe FileOptions
_FileDescriptorProto'options
           (\ x__ :: FileDescriptorProto
x__ y__ :: Maybe FileOptions
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'options :: Maybe FileOptions
_FileDescriptorProto'options = Maybe FileOptions
y__}))
        (FileOptions -> Lens' (Maybe FileOptions) FileOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FileOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FileDescriptorProto "maybe'options" (Prelude.Maybe FileOptions) where
  fieldOf :: Proxy# "maybe'options"
-> (Maybe FileOptions -> f (Maybe FileOptions))
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Maybe FileOptions -> f (Maybe FileOptions))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((Maybe FileOptions -> f (Maybe FileOptions))
    -> Maybe FileOptions -> f (Maybe FileOptions))
-> (Maybe FileOptions -> f (Maybe FileOptions))
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Maybe FileOptions)
-> (FileDescriptorProto
    -> Maybe FileOptions -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Maybe FileOptions)
     (Maybe FileOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Maybe FileOptions
_FileDescriptorProto'options
           (\ x__ :: FileDescriptorProto
x__ y__ :: Maybe FileOptions
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'options :: Maybe FileOptions
_FileDescriptorProto'options = Maybe FileOptions
y__}))
        (Maybe FileOptions -> f (Maybe FileOptions))
-> Maybe FileOptions -> f (Maybe FileOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileDescriptorProto "sourceCodeInfo" SourceCodeInfo where
  fieldOf :: Proxy# "sourceCodeInfo"
-> (SourceCodeInfo -> f SourceCodeInfo)
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Maybe SourceCodeInfo -> f (Maybe SourceCodeInfo))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((SourceCodeInfo -> f SourceCodeInfo)
    -> Maybe SourceCodeInfo -> f (Maybe SourceCodeInfo))
-> (SourceCodeInfo -> f SourceCodeInfo)
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Maybe SourceCodeInfo)
-> (FileDescriptorProto
    -> Maybe SourceCodeInfo -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Maybe SourceCodeInfo)
     (Maybe SourceCodeInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Maybe SourceCodeInfo
_FileDescriptorProto'sourceCodeInfo
           (\ x__ :: FileDescriptorProto
x__ y__ :: Maybe SourceCodeInfo
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'sourceCodeInfo :: Maybe SourceCodeInfo
_FileDescriptorProto'sourceCodeInfo = Maybe SourceCodeInfo
y__}))
        (SourceCodeInfo -> Lens' (Maybe SourceCodeInfo) SourceCodeInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SourceCodeInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FileDescriptorProto "maybe'sourceCodeInfo" (Prelude.Maybe SourceCodeInfo) where
  fieldOf :: Proxy# "maybe'sourceCodeInfo"
-> (Maybe SourceCodeInfo -> f (Maybe SourceCodeInfo))
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Maybe SourceCodeInfo -> f (Maybe SourceCodeInfo))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((Maybe SourceCodeInfo -> f (Maybe SourceCodeInfo))
    -> Maybe SourceCodeInfo -> f (Maybe SourceCodeInfo))
-> (Maybe SourceCodeInfo -> f (Maybe SourceCodeInfo))
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Maybe SourceCodeInfo)
-> (FileDescriptorProto
    -> Maybe SourceCodeInfo -> FileDescriptorProto)
-> Lens
     FileDescriptorProto
     FileDescriptorProto
     (Maybe SourceCodeInfo)
     (Maybe SourceCodeInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Maybe SourceCodeInfo
_FileDescriptorProto'sourceCodeInfo
           (\ x__ :: FileDescriptorProto
x__ y__ :: Maybe SourceCodeInfo
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'sourceCodeInfo :: Maybe SourceCodeInfo
_FileDescriptorProto'sourceCodeInfo = Maybe SourceCodeInfo
y__}))
        (Maybe SourceCodeInfo -> f (Maybe SourceCodeInfo))
-> Maybe SourceCodeInfo -> f (Maybe SourceCodeInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileDescriptorProto "syntax" Data.Text.Text where
  fieldOf :: Proxy# "syntax"
-> (Text -> f Text) -> FileDescriptorProto -> f FileDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Maybe Text)
-> (FileDescriptorProto -> Maybe Text -> FileDescriptorProto)
-> Lens
     FileDescriptorProto FileDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Maybe Text
_FileDescriptorProto'syntax
           (\ x__ :: FileDescriptorProto
x__ y__ :: Maybe Text
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'syntax :: Maybe Text
_FileDescriptorProto'syntax = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FileDescriptorProto "maybe'syntax" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'syntax"
-> (Maybe Text -> f (Maybe Text))
-> FileDescriptorProto
-> f FileDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> FileDescriptorProto -> f FileDescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FileDescriptorProto
-> f FileDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorProto -> Maybe Text)
-> (FileDescriptorProto -> Maybe Text -> FileDescriptorProto)
-> Lens
     FileDescriptorProto FileDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorProto -> Maybe Text
_FileDescriptorProto'syntax
           (\ x__ :: FileDescriptorProto
x__ y__ :: Maybe Text
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'syntax :: Maybe Text
_FileDescriptorProto'syntax = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FileDescriptorProto where
  messageName :: Proxy FileDescriptorProto -> Text
messageName _
    = String -> Text
Data.Text.pack "google.protobuf.FileDescriptorProto"
  fieldsByTag :: Map Tag (FieldDescriptor FileDescriptorProto)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor FileDescriptorProto
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FileDescriptorProto Text
-> FieldDescriptor FileDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  FileDescriptorProto FileDescriptorProto (Maybe Text) (Maybe Text)
-> FieldAccessor FileDescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name")) ::
              Data.ProtoLens.FieldDescriptor FileDescriptorProto
        package__field_descriptor :: FieldDescriptor FileDescriptorProto
package__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FileDescriptorProto Text
-> FieldDescriptor FileDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "package"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  FileDescriptorProto FileDescriptorProto (Maybe Text) (Maybe Text)
-> FieldAccessor FileDescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'package" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'package")) ::
              Data.ProtoLens.FieldDescriptor FileDescriptorProto
        dependency__field_descriptor :: FieldDescriptor FileDescriptorProto
dependency__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FileDescriptorProto Text
-> FieldDescriptor FileDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "dependency"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing
-> Lens' FileDescriptorProto [Text]
-> FieldAccessor FileDescriptorProto Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "dependency" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"dependency")) ::
              Data.ProtoLens.FieldDescriptor FileDescriptorProto
        publicDependency__field_descriptor :: FieldDescriptor FileDescriptorProto
publicDependency__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor FileDescriptorProto Int32
-> FieldDescriptor FileDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "public_dependency"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Packing
-> Lens' FileDescriptorProto [Int32]
-> FieldAccessor FileDescriptorProto Int32
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "publicDependency" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"publicDependency")) ::
              Data.ProtoLens.FieldDescriptor FileDescriptorProto
        weakDependency__field_descriptor :: FieldDescriptor FileDescriptorProto
weakDependency__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor FileDescriptorProto Int32
-> FieldDescriptor FileDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "weak_dependency"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Packing
-> Lens' FileDescriptorProto [Int32]
-> FieldAccessor FileDescriptorProto Int32
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "weakDependency" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"weakDependency")) ::
              Data.ProtoLens.FieldDescriptor FileDescriptorProto
        messageType__field_descriptor :: FieldDescriptor FileDescriptorProto
messageType__field_descriptor
          = String
-> FieldTypeDescriptor DescriptorProto
-> FieldAccessor FileDescriptorProto DescriptorProto
-> FieldDescriptor FileDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "message_type"
              (MessageOrGroup -> FieldTypeDescriptor DescriptorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor DescriptorProto)
              (Packing
-> Lens' FileDescriptorProto [DescriptorProto]
-> FieldAccessor FileDescriptorProto DescriptorProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "messageType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"messageType")) ::
              Data.ProtoLens.FieldDescriptor FileDescriptorProto
        enumType__field_descriptor :: FieldDescriptor FileDescriptorProto
enumType__field_descriptor
          = String
-> FieldTypeDescriptor EnumDescriptorProto
-> FieldAccessor FileDescriptorProto EnumDescriptorProto
-> FieldDescriptor FileDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "enum_type"
              (MessageOrGroup -> FieldTypeDescriptor EnumDescriptorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor EnumDescriptorProto)
              (Packing
-> Lens' FileDescriptorProto [EnumDescriptorProto]
-> FieldAccessor FileDescriptorProto EnumDescriptorProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "enumType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"enumType")) ::
              Data.ProtoLens.FieldDescriptor FileDescriptorProto
        service__field_descriptor :: FieldDescriptor FileDescriptorProto
service__field_descriptor
          = String
-> FieldTypeDescriptor ServiceDescriptorProto
-> FieldAccessor FileDescriptorProto ServiceDescriptorProto
-> FieldDescriptor FileDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "service"
              (MessageOrGroup -> FieldTypeDescriptor ServiceDescriptorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ServiceDescriptorProto)
              (Packing
-> Lens' FileDescriptorProto [ServiceDescriptorProto]
-> FieldAccessor FileDescriptorProto ServiceDescriptorProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "service" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"service")) ::
              Data.ProtoLens.FieldDescriptor FileDescriptorProto
        extension__field_descriptor :: FieldDescriptor FileDescriptorProto
extension__field_descriptor
          = String
-> FieldTypeDescriptor FieldDescriptorProto
-> FieldAccessor FileDescriptorProto FieldDescriptorProto
-> FieldDescriptor FileDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "extension"
              (MessageOrGroup -> FieldTypeDescriptor FieldDescriptorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor FieldDescriptorProto)
              (Packing
-> Lens' FileDescriptorProto [FieldDescriptorProto]
-> FieldAccessor FileDescriptorProto FieldDescriptorProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "extension" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"extension")) ::
              Data.ProtoLens.FieldDescriptor FileDescriptorProto
        options__field_descriptor :: FieldDescriptor FileDescriptorProto
options__field_descriptor
          = String
-> FieldTypeDescriptor FileOptions
-> FieldAccessor FileDescriptorProto FileOptions
-> FieldDescriptor FileDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "options"
              (MessageOrGroup -> FieldTypeDescriptor FileOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor FileOptions)
              (Lens
  FileDescriptorProto
  FileDescriptorProto
  (Maybe FileOptions)
  (Maybe FileOptions)
-> FieldAccessor FileDescriptorProto FileOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options")) ::
              Data.ProtoLens.FieldDescriptor FileDescriptorProto
        sourceCodeInfo__field_descriptor :: FieldDescriptor FileDescriptorProto
sourceCodeInfo__field_descriptor
          = String
-> FieldTypeDescriptor SourceCodeInfo
-> FieldAccessor FileDescriptorProto SourceCodeInfo
-> FieldDescriptor FileDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "source_code_info"
              (MessageOrGroup -> FieldTypeDescriptor SourceCodeInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor SourceCodeInfo)
              (Lens
  FileDescriptorProto
  FileDescriptorProto
  (Maybe SourceCodeInfo)
  (Maybe SourceCodeInfo)
-> FieldAccessor FileDescriptorProto SourceCodeInfo
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'sourceCodeInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'sourceCodeInfo")) ::
              Data.ProtoLens.FieldDescriptor FileDescriptorProto
        syntax__field_descriptor :: FieldDescriptor FileDescriptorProto
syntax__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FileDescriptorProto Text
-> FieldDescriptor FileDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "syntax"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  FileDescriptorProto FileDescriptorProto (Maybe Text) (Maybe Text)
-> FieldAccessor FileDescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'syntax" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'syntax")) ::
              Data.ProtoLens.FieldDescriptor FileDescriptorProto
      in
        [(Tag, FieldDescriptor FileDescriptorProto)]
-> Map Tag (FieldDescriptor FileDescriptorProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FileDescriptorProto
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor FileDescriptorProto
package__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor FileDescriptorProto
dependency__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 10, FieldDescriptor FileDescriptorProto
publicDependency__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 11, FieldDescriptor FileDescriptorProto
weakDependency__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor FileDescriptorProto
messageType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor FileDescriptorProto
enumType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor FileDescriptorProto
service__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor FileDescriptorProto
extension__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor FileDescriptorProto
options__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor FileDescriptorProto
sourceCodeInfo__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 12, FieldDescriptor FileDescriptorProto
syntax__field_descriptor)]
  unknownFields :: LensLike' f FileDescriptorProto FieldSet
unknownFields
    = (FileDescriptorProto -> FieldSet)
-> (FileDescriptorProto -> FieldSet -> FileDescriptorProto)
-> Lens' FileDescriptorProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FileDescriptorProto -> FieldSet
_FileDescriptorProto'_unknownFields
        (\ x__ :: FileDescriptorProto
x__ y__ :: FieldSet
y__ -> FileDescriptorProto
x__ {_FileDescriptorProto'_unknownFields :: FieldSet
_FileDescriptorProto'_unknownFields = FieldSet
y__})
  defMessage :: FileDescriptorProto
defMessage
    = $WFileDescriptorProto'_constructor :: Maybe Text
-> Maybe Text
-> Vector Text
-> Vector Int32
-> Vector Int32
-> Vector DescriptorProto
-> Vector EnumDescriptorProto
-> Vector ServiceDescriptorProto
-> Vector FieldDescriptorProto
-> Maybe FileOptions
-> Maybe SourceCodeInfo
-> Maybe Text
-> FieldSet
-> FileDescriptorProto
FileDescriptorProto'_constructor
        {_FileDescriptorProto'name :: Maybe Text
_FileDescriptorProto'name = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FileDescriptorProto'package :: Maybe Text
_FileDescriptorProto'package = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FileDescriptorProto'dependency :: Vector Text
_FileDescriptorProto'dependency = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FileDescriptorProto'publicDependency :: Vector Int32
_FileDescriptorProto'publicDependency = Vector Int32
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FileDescriptorProto'weakDependency :: Vector Int32
_FileDescriptorProto'weakDependency = Vector Int32
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FileDescriptorProto'messageType :: Vector DescriptorProto
_FileDescriptorProto'messageType = Vector DescriptorProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FileDescriptorProto'enumType :: Vector EnumDescriptorProto
_FileDescriptorProto'enumType = Vector EnumDescriptorProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FileDescriptorProto'service :: Vector ServiceDescriptorProto
_FileDescriptorProto'service = Vector ServiceDescriptorProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FileDescriptorProto'extension :: Vector FieldDescriptorProto
_FileDescriptorProto'extension = Vector FieldDescriptorProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FileDescriptorProto'options :: Maybe FileOptions
_FileDescriptorProto'options = Maybe FileOptions
forall a. Maybe a
Prelude.Nothing,
         _FileDescriptorProto'sourceCodeInfo :: Maybe SourceCodeInfo
_FileDescriptorProto'sourceCodeInfo = Maybe SourceCodeInfo
forall a. Maybe a
Prelude.Nothing,
         _FileDescriptorProto'syntax :: Maybe Text
_FileDescriptorProto'syntax = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FileDescriptorProto'_unknownFields :: FieldSet
_FileDescriptorProto'_unknownFields = []}
  parseMessage :: Parser FileDescriptorProto
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 :: FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
          x :: FileDescriptorProto
x
          mutable'dependency :: Growing Vector RealWorld Text
mutable'dependency
          mutable'enumType :: Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
          mutable'extension :: Growing Vector RealWorld FieldDescriptorProto
mutable'extension
          mutable'messageType :: Growing Vector RealWorld DescriptorProto
mutable'messageType
          mutable'publicDependency :: Growing Vector RealWorld Int32
mutable'publicDependency
          mutable'service :: Growing Vector RealWorld ServiceDescriptorProto
mutable'service
          mutable'weakDependency :: Growing Vector RealWorld Int32
mutable'weakDependency
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Text
frozen'dependency <- IO (Vector Text) -> Parser (Vector Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                             (Growing Vector (PrimState IO) Text -> IO (Vector Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'dependency)
                      Vector EnumDescriptorProto
frozen'enumType <- IO (Vector EnumDescriptorProto)
-> Parser (Vector EnumDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                           (Growing Vector (PrimState IO) EnumDescriptorProto
-> IO (Vector EnumDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                              Growing Vector RealWorld EnumDescriptorProto
Growing Vector (PrimState IO) EnumDescriptorProto
mutable'enumType)
                      Vector FieldDescriptorProto
frozen'extension <- IO (Vector FieldDescriptorProto)
-> Parser (Vector FieldDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                            (Growing Vector (PrimState IO) FieldDescriptorProto
-> IO (Vector FieldDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                               Growing Vector RealWorld FieldDescriptorProto
Growing Vector (PrimState IO) FieldDescriptorProto
mutable'extension)
                      Vector DescriptorProto
frozen'messageType <- IO (Vector DescriptorProto) -> Parser (Vector DescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                              (Growing Vector (PrimState IO) DescriptorProto
-> IO (Vector DescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                 Growing Vector RealWorld DescriptorProto
Growing Vector (PrimState IO) DescriptorProto
mutable'messageType)
                      Vector Int32
frozen'publicDependency <- IO (Vector Int32) -> Parser (Vector Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                   (Growing Vector (PrimState IO) Int32 -> IO (Vector Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                      Growing Vector RealWorld Int32
Growing Vector (PrimState IO) Int32
mutable'publicDependency)
                      Vector ServiceDescriptorProto
frozen'service <- IO (Vector ServiceDescriptorProto)
-> Parser (Vector ServiceDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Growing Vector (PrimState IO) ServiceDescriptorProto
-> IO (Vector ServiceDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             Growing Vector RealWorld ServiceDescriptorProto
Growing Vector (PrimState IO) ServiceDescriptorProto
mutable'service)
                      Vector Int32
frozen'weakDependency <- IO (Vector Int32) -> Parser (Vector Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                 (Growing Vector (PrimState IO) Int32 -> IO (Vector Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                    Growing Vector RealWorld Int32
Growing Vector (PrimState IO) Int32
mutable'weakDependency)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      FileDescriptorProto -> Parser FileDescriptorProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter FileDescriptorProto FileDescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> FileDescriptorProto
-> FileDescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter FileDescriptorProto FileDescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  FileDescriptorProto FileDescriptorProto (Vector Text) (Vector Text)
-> Vector Text -> FileDescriptorProto -> FileDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'dependency" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dependency")
                              Vector Text
frozen'dependency
                              (Setter
  FileDescriptorProto
  FileDescriptorProto
  (Vector EnumDescriptorProto)
  (Vector EnumDescriptorProto)
-> Vector EnumDescriptorProto
-> FileDescriptorProto
-> FileDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                 (forall s a (f :: * -> *).
(HasField s "vec'enumType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'enumType")
                                 Vector EnumDescriptorProto
frozen'enumType
                                 (Setter
  FileDescriptorProto
  FileDescriptorProto
  (Vector FieldDescriptorProto)
  (Vector FieldDescriptorProto)
-> Vector FieldDescriptorProto
-> FileDescriptorProto
-> FileDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                    (forall s a (f :: * -> *).
(HasField s "vec'extension" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'extension")
                                    Vector FieldDescriptorProto
frozen'extension
                                    (Setter
  FileDescriptorProto
  FileDescriptorProto
  (Vector DescriptorProto)
  (Vector DescriptorProto)
-> Vector DescriptorProto
-> FileDescriptorProto
-> FileDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                       (forall s a (f :: * -> *).
(HasField s "vec'messageType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'messageType")
                                       Vector DescriptorProto
frozen'messageType
                                       (Setter
  FileDescriptorProto
  FileDescriptorProto
  (Vector Int32)
  (Vector Int32)
-> Vector Int32 -> FileDescriptorProto -> FileDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                          (forall s a (f :: * -> *).
(HasField s "vec'publicDependency" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'publicDependency")
                                          Vector Int32
frozen'publicDependency
                                          (Setter
  FileDescriptorProto
  FileDescriptorProto
  (Vector ServiceDescriptorProto)
  (Vector ServiceDescriptorProto)
-> Vector ServiceDescriptorProto
-> FileDescriptorProto
-> FileDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                             (forall s a (f :: * -> *).
(HasField s "vec'service" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'service")
                                             Vector ServiceDescriptorProto
frozen'service
                                             (Setter
  FileDescriptorProto
  FileDescriptorProto
  (Vector Int32)
  (Vector Int32)
-> Vector Int32 -> FileDescriptorProto -> FileDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                (forall s a (f :: * -> *).
(HasField s "vec'weakDependency" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'weakDependency")
                                                Vector Int32
frozen'weakDependency
                                                FileDescriptorProto
x))))))))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "name"
                                FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                                  (Setter FileDescriptorProto FileDescriptorProto Text Text
-> Text -> FileDescriptorProto -> FileDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y FileDescriptorProto
x)
                                  Growing Vector RealWorld Text
mutable'dependency
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto
mutable'messageType
                                  Growing Vector RealWorld Int32
mutable'publicDependency
                                  Growing Vector RealWorld ServiceDescriptorProto
mutable'service
                                  Growing Vector RealWorld Int32
mutable'weakDependency
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "package"
                                FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                                  (Setter FileDescriptorProto FileDescriptorProto Text Text
-> Text -> FileDescriptorProto -> FileDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "package" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"package") Text
y FileDescriptorProto
x)
                                  Growing Vector RealWorld Text
mutable'dependency
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto
mutable'messageType
                                  Growing Vector RealWorld Int32
mutable'publicDependency
                                  Growing Vector RealWorld ServiceDescriptorProto
mutable'service
                                  Growing Vector RealWorld Int32
mutable'weakDependency
                        26
                          -> do !Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                        Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                            Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                              (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                 (Prelude.Left err :: UnicodeException
err)
                                                   -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                 (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                        "dependency"
                                Growing Vector RealWorld Text
v <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Text
-> Text -> IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'dependency Text
y)
                                FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                                  FileDescriptorProto
x
                                  Growing Vector RealWorld Text
v
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto
mutable'messageType
                                  Growing Vector RealWorld Int32
mutable'publicDependency
                                  Growing Vector RealWorld ServiceDescriptorProto
mutable'service
                                  Growing Vector RealWorld Int32
mutable'weakDependency
                        80
                          -> do !Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                           Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                           Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                        "public_dependency"
                                Growing Vector RealWorld Int32
v <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Int32
-> Int32 -> IO (Growing Vector (PrimState IO) Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld Int32
Growing Vector (PrimState IO) Int32
mutable'publicDependency Int32
y)
                                FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                                  FileDescriptorProto
x
                                  Growing Vector RealWorld Text
mutable'dependency
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto
mutable'messageType
                                  Growing Vector RealWorld Int32
v
                                  Growing Vector RealWorld ServiceDescriptorProto
mutable'service
                                  Growing Vector RealWorld Int32
mutable'weakDependency
                        82
                          -> do Growing Vector RealWorld Int32
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Int
-> Parser (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                          ((let
                                              ploop :: Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop qs :: Growing v RealWorld a
qs
                                                = do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if Bool
packedEnd then
                                                         Growing v RealWorld a -> Parser (Growing v RealWorld a)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld a
qs
                                                     else
                                                         do !a
q <- Parser a -> String -> Parser a
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    ((Word64 -> a) -> Parser Word64 -> Parser a
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                                                       Word64 -> a
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                                                    "public_dependency"
                                                            Growing v RealWorld a
qs' <- IO (Growing v RealWorld a) -> Parser (Growing v RealWorld a)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Growing v (PrimState IO) a -> a -> IO (Growing v (PrimState IO) a)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                                                        Growing v RealWorld a
Growing v (PrimState IO) a
qs a
q)
                                                            Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop Growing v RealWorld a
qs'
                                            in forall a (v :: * -> *).
(Num a, Vector v a) =>
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop)
                                             Growing Vector RealWorld Int32
mutable'publicDependency)
                                FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                                  FileDescriptorProto
x
                                  Growing Vector RealWorld Text
mutable'dependency
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto
mutable'messageType
                                  Growing Vector RealWorld Int32
y
                                  Growing Vector RealWorld ServiceDescriptorProto
mutable'service
                                  Growing Vector RealWorld Int32
mutable'weakDependency
                        88
                          -> do !Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                           Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                           Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                        "weak_dependency"
                                Growing Vector RealWorld Int32
v <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Int32
-> Int32 -> IO (Growing Vector (PrimState IO) Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld Int32
Growing Vector (PrimState IO) Int32
mutable'weakDependency Int32
y)
                                FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                                  FileDescriptorProto
x
                                  Growing Vector RealWorld Text
mutable'dependency
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto
mutable'messageType
                                  Growing Vector RealWorld Int32
mutable'publicDependency
                                  Growing Vector RealWorld ServiceDescriptorProto
mutable'service
                                  Growing Vector RealWorld Int32
v
                        90
                          -> do Growing Vector RealWorld Int32
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Int
-> Parser (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                          ((let
                                              ploop :: Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop qs :: Growing v RealWorld a
qs
                                                = do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if Bool
packedEnd then
                                                         Growing v RealWorld a -> Parser (Growing v RealWorld a)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld a
qs
                                                     else
                                                         do !a
q <- Parser a -> String -> Parser a
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    ((Word64 -> a) -> Parser Word64 -> Parser a
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                                                       Word64 -> a
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                                                    "weak_dependency"
                                                            Growing v RealWorld a
qs' <- IO (Growing v RealWorld a) -> Parser (Growing v RealWorld a)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Growing v (PrimState IO) a -> a -> IO (Growing v (PrimState IO) a)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                                                        Growing v RealWorld a
Growing v (PrimState IO) a
qs a
q)
                                                            Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop Growing v RealWorld a
qs'
                                            in forall a (v :: * -> *).
(Num a, Vector v a) =>
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop)
                                             Growing Vector RealWorld Int32
mutable'weakDependency)
                                FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                                  FileDescriptorProto
x
                                  Growing Vector RealWorld Text
mutable'dependency
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto
mutable'messageType
                                  Growing Vector RealWorld Int32
mutable'publicDependency
                                  Growing Vector RealWorld ServiceDescriptorProto
mutable'service
                                  Growing Vector RealWorld Int32
y
                        34
                          -> do !DescriptorProto
y <- Parser DescriptorProto -> String -> Parser DescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser DescriptorProto -> Parser DescriptorProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser DescriptorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "message_type"
                                Growing Vector RealWorld DescriptorProto
v <- IO (Growing Vector RealWorld DescriptorProto)
-> Parser (Growing Vector RealWorld DescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) DescriptorProto
-> DescriptorProto
-> IO (Growing Vector (PrimState IO) DescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld DescriptorProto
Growing Vector (PrimState IO) DescriptorProto
mutable'messageType DescriptorProto
y)
                                FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                                  FileDescriptorProto
x
                                  Growing Vector RealWorld Text
mutable'dependency
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto
v
                                  Growing Vector RealWorld Int32
mutable'publicDependency
                                  Growing Vector RealWorld ServiceDescriptorProto
mutable'service
                                  Growing Vector RealWorld Int32
mutable'weakDependency
                        42
                          -> do !EnumDescriptorProto
y <- Parser EnumDescriptorProto -> String -> Parser EnumDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser EnumDescriptorProto -> Parser EnumDescriptorProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser EnumDescriptorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "enum_type"
                                Growing Vector RealWorld EnumDescriptorProto
v <- IO (Growing Vector RealWorld EnumDescriptorProto)
-> Parser (Growing Vector RealWorld EnumDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) EnumDescriptorProto
-> EnumDescriptorProto
-> IO (Growing Vector (PrimState IO) EnumDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld EnumDescriptorProto
Growing Vector (PrimState IO) EnumDescriptorProto
mutable'enumType EnumDescriptorProto
y)
                                FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                                  FileDescriptorProto
x
                                  Growing Vector RealWorld Text
mutable'dependency
                                  Growing Vector RealWorld EnumDescriptorProto
v
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto
mutable'messageType
                                  Growing Vector RealWorld Int32
mutable'publicDependency
                                  Growing Vector RealWorld ServiceDescriptorProto
mutable'service
                                  Growing Vector RealWorld Int32
mutable'weakDependency
                        50
                          -> do !ServiceDescriptorProto
y <- Parser ServiceDescriptorProto
-> String -> Parser ServiceDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int
-> Parser ServiceDescriptorProto -> Parser ServiceDescriptorProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser ServiceDescriptorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "service"
                                Growing Vector RealWorld ServiceDescriptorProto
v <- IO (Growing Vector RealWorld ServiceDescriptorProto)
-> Parser (Growing Vector RealWorld ServiceDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) ServiceDescriptorProto
-> ServiceDescriptorProto
-> IO (Growing Vector (PrimState IO) ServiceDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld ServiceDescriptorProto
Growing Vector (PrimState IO) ServiceDescriptorProto
mutable'service ServiceDescriptorProto
y)
                                FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                                  FileDescriptorProto
x
                                  Growing Vector RealWorld Text
mutable'dependency
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto
mutable'messageType
                                  Growing Vector RealWorld Int32
mutable'publicDependency
                                  Growing Vector RealWorld ServiceDescriptorProto
v
                                  Growing Vector RealWorld Int32
mutable'weakDependency
                        58
                          -> do !FieldDescriptorProto
y <- Parser FieldDescriptorProto
-> String -> Parser FieldDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser FieldDescriptorProto -> Parser FieldDescriptorProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser FieldDescriptorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "extension"
                                Growing Vector RealWorld FieldDescriptorProto
v <- IO (Growing Vector RealWorld FieldDescriptorProto)
-> Parser (Growing Vector RealWorld FieldDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) FieldDescriptorProto
-> FieldDescriptorProto
-> IO (Growing Vector (PrimState IO) FieldDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld FieldDescriptorProto
Growing Vector (PrimState IO) FieldDescriptorProto
mutable'extension FieldDescriptorProto
y)
                                FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                                  FileDescriptorProto
x
                                  Growing Vector RealWorld Text
mutable'dependency
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
v
                                  Growing Vector RealWorld DescriptorProto
mutable'messageType
                                  Growing Vector RealWorld Int32
mutable'publicDependency
                                  Growing Vector RealWorld ServiceDescriptorProto
mutable'service
                                  Growing Vector RealWorld Int32
mutable'weakDependency
                        66
                          -> do FileOptions
y <- Parser FileOptions -> String -> Parser FileOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser FileOptions -> Parser FileOptions
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser FileOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "options"
                                FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                                  (Setter
  FileDescriptorProto FileDescriptorProto FileOptions FileOptions
-> FileOptions -> FileDescriptorProto -> FileDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"options") FileOptions
y FileDescriptorProto
x)
                                  Growing Vector RealWorld Text
mutable'dependency
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto
mutable'messageType
                                  Growing Vector RealWorld Int32
mutable'publicDependency
                                  Growing Vector RealWorld ServiceDescriptorProto
mutable'service
                                  Growing Vector RealWorld Int32
mutable'weakDependency
                        74
                          -> do SourceCodeInfo
y <- Parser SourceCodeInfo -> String -> Parser SourceCodeInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser SourceCodeInfo -> Parser SourceCodeInfo
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser SourceCodeInfo
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "source_code_info"
                                FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                                  (Setter
  FileDescriptorProto
  FileDescriptorProto
  SourceCodeInfo
  SourceCodeInfo
-> SourceCodeInfo -> FileDescriptorProto -> FileDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "sourceCodeInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sourceCodeInfo") SourceCodeInfo
y FileDescriptorProto
x)
                                  Growing Vector RealWorld Text
mutable'dependency
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto
mutable'messageType
                                  Growing Vector RealWorld Int32
mutable'publicDependency
                                  Growing Vector RealWorld ServiceDescriptorProto
mutable'service
                                  Growing Vector RealWorld Int32
mutable'weakDependency
                        98
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "syntax"
                                FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                                  (Setter FileDescriptorProto FileDescriptorProto Text Text
-> Text -> FileDescriptorProto -> FileDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "syntax" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"syntax") Text
y FileDescriptorProto
x)
                                  Growing Vector RealWorld Text
mutable'dependency
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto
mutable'messageType
                                  Growing Vector RealWorld Int32
mutable'publicDependency
                                  Growing Vector RealWorld ServiceDescriptorProto
mutable'service
                                  Growing Vector RealWorld Int32
mutable'weakDependency
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                                  (Setter FileDescriptorProto FileDescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> FileDescriptorProto
-> FileDescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter FileDescriptorProto FileDescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FileDescriptorProto
x)
                                  Growing Vector RealWorld Text
mutable'dependency
                                  Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                                  Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                                  Growing Vector RealWorld DescriptorProto
mutable'messageType
                                  Growing Vector RealWorld Int32
mutable'publicDependency
                                  Growing Vector RealWorld ServiceDescriptorProto
mutable'service
                                  Growing Vector RealWorld Int32
mutable'weakDependency
      in
        Parser FileDescriptorProto -> String -> Parser FileDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Text
mutable'dependency <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                      IO (Growing Vector RealWorld Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld EnumDescriptorProto
mutable'enumType <- IO (Growing Vector RealWorld EnumDescriptorProto)
-> Parser (Growing Vector RealWorld EnumDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                    IO (Growing Vector RealWorld EnumDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld FieldDescriptorProto
mutable'extension <- IO (Growing Vector RealWorld FieldDescriptorProto)
-> Parser (Growing Vector RealWorld FieldDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                     IO (Growing Vector RealWorld FieldDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld DescriptorProto
mutable'messageType <- IO (Growing Vector RealWorld DescriptorProto)
-> Parser (Growing Vector RealWorld DescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       IO (Growing Vector RealWorld DescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld Int32
mutable'publicDependency <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                            IO (Growing Vector RealWorld Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld ServiceDescriptorProto
mutable'service <- IO (Growing Vector RealWorld ServiceDescriptorProto)
-> Parser (Growing Vector RealWorld ServiceDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld ServiceDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld Int32
mutable'weakDependency <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          IO (Growing Vector RealWorld Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              FileDescriptorProto
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld EnumDescriptorProto
-> Growing Vector RealWorld FieldDescriptorProto
-> Growing Vector RealWorld DescriptorProto
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ServiceDescriptorProto
-> Growing Vector RealWorld Int32
-> Parser FileDescriptorProto
loop
                FileDescriptorProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage
                Growing Vector RealWorld Text
mutable'dependency
                Growing Vector RealWorld EnumDescriptorProto
mutable'enumType
                Growing Vector RealWorld FieldDescriptorProto
mutable'extension
                Growing Vector RealWorld DescriptorProto
mutable'messageType
                Growing Vector RealWorld Int32
mutable'publicDependency
                Growing Vector RealWorld ServiceDescriptorProto
mutable'service
                Growing Vector RealWorld Int32
mutable'weakDependency)
          "FileDescriptorProto"
  buildMessage :: FileDescriptorProto -> Builder
buildMessage
    = \ _x :: FileDescriptorProto
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Text)
  FileDescriptorProto
  FileDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> FileDescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name") FileDescriptorProto
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Text
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Text -> ByteString
Data.Text.Encoding.encodeUtf8
                          Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Text)
  FileDescriptorProto
  FileDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> FileDescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'package" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'package") FileDescriptorProto
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: Text
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             Text -> ByteString
Data.Text.Encoding.encodeUtf8
                             Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ _v :: Text
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                              ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                 (\ bs :: ByteString
bs
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                            (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                         (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                 Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                 Text
_v))
                      (FoldLike
  (Vector Text)
  FileDescriptorProto
  FileDescriptorProto
  (Vector Text)
  (Vector Text)
-> FileDescriptorProto -> Vector Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall s a (f :: * -> *).
(HasField s "vec'dependency" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'dependency") FileDescriptorProto
_x))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      ((Int32 -> Builder) -> Vector Int32 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                         (\ _v :: Int32
_v
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 80)
                                 ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                    Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                    Int32
_v))
                         (FoldLike
  (Vector Int32)
  FileDescriptorProto
  FileDescriptorProto
  (Vector Int32)
  (Vector Int32)
-> FileDescriptorProto -> Vector Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                            (forall s a (f :: * -> *).
(HasField s "vec'publicDependency" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'publicDependency") FileDescriptorProto
_x))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         ((Int32 -> Builder) -> Vector Int32 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                            (\ _v :: Int32
_v
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 88)
                                    ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                       Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                       Int32
_v))
                            (FoldLike
  (Vector Int32)
  FileDescriptorProto
  FileDescriptorProto
  (Vector Int32)
  (Vector Int32)
-> FileDescriptorProto -> Vector Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                               (forall s a (f :: * -> *).
(HasField s "vec'weakDependency" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'weakDependency") FileDescriptorProto
_x))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            ((DescriptorProto -> Builder) -> Vector DescriptorProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                               (\ _v :: DescriptorProto
_v
                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
                                       ((ByteString -> Builder)
-> (DescriptorProto -> ByteString) -> DescriptorProto -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                          (\ bs :: ByteString
bs
                                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                        (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                          DescriptorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                          DescriptorProto
_v))
                               (FoldLike
  (Vector DescriptorProto)
  FileDescriptorProto
  FileDescriptorProto
  (Vector DescriptorProto)
  (Vector DescriptorProto)
-> FileDescriptorProto -> Vector DescriptorProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                  (forall s a (f :: * -> *).
(HasField s "vec'messageType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'messageType") FileDescriptorProto
_x))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               ((EnumDescriptorProto -> Builder)
-> Vector EnumDescriptorProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                  (\ _v :: EnumDescriptorProto
_v
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
                                          ((ByteString -> Builder)
-> (EnumDescriptorProto -> ByteString)
-> EnumDescriptorProto
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                             (\ bs :: ByteString
bs
                                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                           (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                             EnumDescriptorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                             EnumDescriptorProto
_v))
                                  (FoldLike
  (Vector EnumDescriptorProto)
  FileDescriptorProto
  FileDescriptorProto
  (Vector EnumDescriptorProto)
  (Vector EnumDescriptorProto)
-> FileDescriptorProto -> Vector EnumDescriptorProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                     (forall s a (f :: * -> *).
(HasField s "vec'enumType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'enumType") FileDescriptorProto
_x))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  ((ServiceDescriptorProto -> Builder)
-> Vector ServiceDescriptorProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                     (\ _v :: ServiceDescriptorProto
_v
                                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
                                             ((ByteString -> Builder)
-> (ServiceDescriptorProto -> ByteString)
-> ServiceDescriptorProto
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                (\ bs :: ByteString
bs
                                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                              (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                                ServiceDescriptorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                ServiceDescriptorProto
_v))
                                     (FoldLike
  (Vector ServiceDescriptorProto)
  FileDescriptorProto
  FileDescriptorProto
  (Vector ServiceDescriptorProto)
  (Vector ServiceDescriptorProto)
-> FileDescriptorProto -> Vector ServiceDescriptorProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                        (forall s a (f :: * -> *).
(HasField s "vec'service" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'service") FileDescriptorProto
_x))
                                  (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     ((FieldDescriptorProto -> Builder)
-> Vector FieldDescriptorProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                        (\ _v :: FieldDescriptorProto
_v
                                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
                                                ((ByteString -> Builder)
-> (FieldDescriptorProto -> ByteString)
-> FieldDescriptorProto
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                   (\ bs :: ByteString
bs
                                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                 (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                              ByteString
bs))
                                                   FieldDescriptorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                   FieldDescriptorProto
_v))
                                        (FoldLike
  (Vector FieldDescriptorProto)
  FileDescriptorProto
  FileDescriptorProto
  (Vector FieldDescriptorProto)
  (Vector FieldDescriptorProto)
-> FileDescriptorProto -> Vector FieldDescriptorProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                           (forall s a (f :: * -> *).
(HasField s "vec'extension" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'extension") FileDescriptorProto
_x))
                                     (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (case
                                             FoldLike
  (Maybe FileOptions)
  FileDescriptorProto
  FileDescriptorProto
  (Maybe FileOptions)
  (Maybe FileOptions)
-> FileDescriptorProto -> Maybe FileOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                               (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options") FileDescriptorProto
_x
                                         of
                                           Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                           (Prelude.Just _v :: FileOptions
_v)
                                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 66)
                                                  ((ByteString -> Builder)
-> (FileOptions -> ByteString) -> FileOptions -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                     (\ bs :: ByteString
bs
                                                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                   (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                             (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                ByteString
bs))
                                                     FileOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                     FileOptions
_v))
                                        (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (case
                                                FoldLike
  (Maybe SourceCodeInfo)
  FileDescriptorProto
  FileDescriptorProto
  (Maybe SourceCodeInfo)
  (Maybe SourceCodeInfo)
-> FileDescriptorProto -> Maybe SourceCodeInfo
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                  (forall s a (f :: * -> *).
(HasField s "maybe'sourceCodeInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                     @"maybe'sourceCodeInfo")
                                                  FileDescriptorProto
_x
                                            of
                                              Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                              (Prelude.Just _v :: SourceCodeInfo
_v)
                                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 74)
                                                     ((ByteString -> Builder)
-> (SourceCodeInfo -> ByteString) -> SourceCodeInfo -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                        (\ bs :: ByteString
bs
                                                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                      (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                   ByteString
bs))
                                                        SourceCodeInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                        SourceCodeInfo
_v))
                                           (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                              (case
                                                   FoldLike
  (Maybe Text)
  FileDescriptorProto
  FileDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> FileDescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                     (forall s a (f :: * -> *).
(HasField s "maybe'syntax" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'syntax") FileDescriptorProto
_x
                                               of
                                                 Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                 (Prelude.Just _v :: Text
_v)
                                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 98)
                                                        ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                           (\ bs :: ByteString
bs
                                                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                         (ByteString -> Int
Data.ByteString.length
                                                                            ByteString
bs)))
                                                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                      ByteString
bs))
                                                           Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                                           Text
_v))
                                              (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                                 (FoldLike
  FieldSet FileDescriptorProto FileDescriptorProto FieldSet FieldSet
-> FileDescriptorProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                    FoldLike
  FieldSet FileDescriptorProto FileDescriptorProto FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FileDescriptorProto
_x)))))))))))))
instance Control.DeepSeq.NFData FileDescriptorProto where
  rnf :: FileDescriptorProto -> ()
rnf
    = \ x__ :: FileDescriptorProto
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FileDescriptorProto -> FieldSet
_FileDescriptorProto'_unknownFields FileDescriptorProto
x__)
             (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (FileDescriptorProto -> Maybe Text
_FileDescriptorProto'name FileDescriptorProto
x__)
                (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (FileDescriptorProto -> Maybe Text
_FileDescriptorProto'package FileDescriptorProto
x__)
                   (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (FileDescriptorProto -> Vector Text
_FileDescriptorProto'dependency FileDescriptorProto
x__)
                      (Vector Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (FileDescriptorProto -> Vector Int32
_FileDescriptorProto'publicDependency FileDescriptorProto
x__)
                         (Vector Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (FileDescriptorProto -> Vector Int32
_FileDescriptorProto'weakDependency FileDescriptorProto
x__)
                            (Vector DescriptorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (FileDescriptorProto -> Vector DescriptorProto
_FileDescriptorProto'messageType FileDescriptorProto
x__)
                               (Vector EnumDescriptorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (FileDescriptorProto -> Vector EnumDescriptorProto
_FileDescriptorProto'enumType FileDescriptorProto
x__)
                                  (Vector ServiceDescriptorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (FileDescriptorProto -> Vector ServiceDescriptorProto
_FileDescriptorProto'service FileDescriptorProto
x__)
                                     (Vector FieldDescriptorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                        (FileDescriptorProto -> Vector FieldDescriptorProto
_FileDescriptorProto'extension FileDescriptorProto
x__)
                                        (Maybe FileOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                           (FileDescriptorProto -> Maybe FileOptions
_FileDescriptorProto'options FileDescriptorProto
x__)
                                           (Maybe SourceCodeInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                              (FileDescriptorProto -> Maybe SourceCodeInfo
_FileDescriptorProto'sourceCodeInfo FileDescriptorProto
x__)
                                              (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                 (FileDescriptorProto -> Maybe Text
_FileDescriptorProto'syntax FileDescriptorProto
x__) ()))))))))))))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.file' @:: Lens' FileDescriptorSet [FileDescriptorProto]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'file' @:: Lens' FileDescriptorSet (Data.Vector.Vector FileDescriptorProto)@ -}
data FileDescriptorSet
  = FileDescriptorSet'_constructor {FileDescriptorSet -> Vector FileDescriptorProto
_FileDescriptorSet'file :: !(Data.Vector.Vector FileDescriptorProto),
                                    FileDescriptorSet -> FieldSet
_FileDescriptorSet'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (FileDescriptorSet -> FileDescriptorSet -> Bool
(FileDescriptorSet -> FileDescriptorSet -> Bool)
-> (FileDescriptorSet -> FileDescriptorSet -> Bool)
-> Eq FileDescriptorSet
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FileDescriptorSet -> FileDescriptorSet -> Bool
$c/= :: FileDescriptorSet -> FileDescriptorSet -> Bool
== :: FileDescriptorSet -> FileDescriptorSet -> Bool
$c== :: FileDescriptorSet -> FileDescriptorSet -> Bool
Prelude.Eq, Eq FileDescriptorSet
Eq FileDescriptorSet =>
(FileDescriptorSet -> FileDescriptorSet -> Ordering)
-> (FileDescriptorSet -> FileDescriptorSet -> Bool)
-> (FileDescriptorSet -> FileDescriptorSet -> Bool)
-> (FileDescriptorSet -> FileDescriptorSet -> Bool)
-> (FileDescriptorSet -> FileDescriptorSet -> Bool)
-> (FileDescriptorSet -> FileDescriptorSet -> FileDescriptorSet)
-> (FileDescriptorSet -> FileDescriptorSet -> FileDescriptorSet)
-> Ord FileDescriptorSet
FileDescriptorSet -> FileDescriptorSet -> Bool
FileDescriptorSet -> FileDescriptorSet -> Ordering
FileDescriptorSet -> FileDescriptorSet -> FileDescriptorSet
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: FileDescriptorSet -> FileDescriptorSet -> FileDescriptorSet
$cmin :: FileDescriptorSet -> FileDescriptorSet -> FileDescriptorSet
max :: FileDescriptorSet -> FileDescriptorSet -> FileDescriptorSet
$cmax :: FileDescriptorSet -> FileDescriptorSet -> FileDescriptorSet
>= :: FileDescriptorSet -> FileDescriptorSet -> Bool
$c>= :: FileDescriptorSet -> FileDescriptorSet -> Bool
> :: FileDescriptorSet -> FileDescriptorSet -> Bool
$c> :: FileDescriptorSet -> FileDescriptorSet -> Bool
<= :: FileDescriptorSet -> FileDescriptorSet -> Bool
$c<= :: FileDescriptorSet -> FileDescriptorSet -> Bool
< :: FileDescriptorSet -> FileDescriptorSet -> Bool
$c< :: FileDescriptorSet -> FileDescriptorSet -> Bool
compare :: FileDescriptorSet -> FileDescriptorSet -> Ordering
$ccompare :: FileDescriptorSet -> FileDescriptorSet -> Ordering
$cp1Ord :: Eq FileDescriptorSet
Prelude.Ord)
instance Prelude.Show FileDescriptorSet where
  showsPrec :: Int -> FileDescriptorSet -> ShowS
showsPrec _ __x :: FileDescriptorSet
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (FileDescriptorSet -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FileDescriptorSet
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField FileDescriptorSet "file" [FileDescriptorProto] where
  fieldOf :: Proxy# "file"
-> ([FileDescriptorProto] -> f [FileDescriptorProto])
-> FileDescriptorSet
-> f FileDescriptorSet
fieldOf _
    = ((Vector FileDescriptorProto -> f (Vector FileDescriptorProto))
 -> FileDescriptorSet -> f FileDescriptorSet)
-> (([FileDescriptorProto] -> f [FileDescriptorProto])
    -> Vector FileDescriptorProto -> f (Vector FileDescriptorProto))
-> ([FileDescriptorProto] -> f [FileDescriptorProto])
-> FileDescriptorSet
-> f FileDescriptorSet
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorSet -> Vector FileDescriptorProto)
-> (FileDescriptorSet
    -> Vector FileDescriptorProto -> FileDescriptorSet)
-> Lens
     FileDescriptorSet
     FileDescriptorSet
     (Vector FileDescriptorProto)
     (Vector FileDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorSet -> Vector FileDescriptorProto
_FileDescriptorSet'file
           (\ x__ :: FileDescriptorSet
x__ y__ :: Vector FileDescriptorProto
y__ -> FileDescriptorSet
x__ {_FileDescriptorSet'file :: Vector FileDescriptorProto
_FileDescriptorSet'file = Vector FileDescriptorProto
y__}))
        ((Vector FileDescriptorProto -> [FileDescriptorProto])
-> (Vector FileDescriptorProto
    -> [FileDescriptorProto] -> Vector FileDescriptorProto)
-> Lens
     (Vector FileDescriptorProto)
     (Vector FileDescriptorProto)
     [FileDescriptorProto]
     [FileDescriptorProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector FileDescriptorProto -> [FileDescriptorProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [FileDescriptorProto]
y__ -> [FileDescriptorProto] -> Vector FileDescriptorProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [FileDescriptorProto]
y__))
instance Data.ProtoLens.Field.HasField FileDescriptorSet "vec'file" (Data.Vector.Vector FileDescriptorProto) where
  fieldOf :: Proxy# "vec'file"
-> (Vector FileDescriptorProto -> f (Vector FileDescriptorProto))
-> FileDescriptorSet
-> f FileDescriptorSet
fieldOf _
    = ((Vector FileDescriptorProto -> f (Vector FileDescriptorProto))
 -> FileDescriptorSet -> f FileDescriptorSet)
-> ((Vector FileDescriptorProto -> f (Vector FileDescriptorProto))
    -> Vector FileDescriptorProto -> f (Vector FileDescriptorProto))
-> (Vector FileDescriptorProto -> f (Vector FileDescriptorProto))
-> FileDescriptorSet
-> f FileDescriptorSet
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorSet -> Vector FileDescriptorProto)
-> (FileDescriptorSet
    -> Vector FileDescriptorProto -> FileDescriptorSet)
-> Lens
     FileDescriptorSet
     FileDescriptorSet
     (Vector FileDescriptorProto)
     (Vector FileDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorSet -> Vector FileDescriptorProto
_FileDescriptorSet'file
           (\ x__ :: FileDescriptorSet
x__ y__ :: Vector FileDescriptorProto
y__ -> FileDescriptorSet
x__ {_FileDescriptorSet'file :: Vector FileDescriptorProto
_FileDescriptorSet'file = Vector FileDescriptorProto
y__}))
        (Vector FileDescriptorProto -> f (Vector FileDescriptorProto))
-> Vector FileDescriptorProto -> f (Vector FileDescriptorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FileDescriptorSet where
  messageName :: Proxy FileDescriptorSet -> Text
messageName _ = String -> Text
Data.Text.pack "google.protobuf.FileDescriptorSet"
  fieldsByTag :: Map Tag (FieldDescriptor FileDescriptorSet)
fieldsByTag
    = let
        file__field_descriptor :: FieldDescriptor FileDescriptorSet
file__field_descriptor
          = String
-> FieldTypeDescriptor FileDescriptorProto
-> FieldAccessor FileDescriptorSet FileDescriptorProto
-> FieldDescriptor FileDescriptorSet
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "file"
              (MessageOrGroup -> FieldTypeDescriptor FileDescriptorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor FileDescriptorProto)
              (Packing
-> Lens' FileDescriptorSet [FileDescriptorProto]
-> FieldAccessor FileDescriptorSet FileDescriptorProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "file" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"file")) ::
              Data.ProtoLens.FieldDescriptor FileDescriptorSet
      in
        [(Tag, FieldDescriptor FileDescriptorSet)]
-> Map Tag (FieldDescriptor FileDescriptorSet)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FileDescriptorSet
file__field_descriptor)]
  unknownFields :: LensLike' f FileDescriptorSet FieldSet
unknownFields
    = (FileDescriptorSet -> FieldSet)
-> (FileDescriptorSet -> FieldSet -> FileDescriptorSet)
-> Lens' FileDescriptorSet FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FileDescriptorSet -> FieldSet
_FileDescriptorSet'_unknownFields
        (\ x__ :: FileDescriptorSet
x__ y__ :: FieldSet
y__ -> FileDescriptorSet
x__ {_FileDescriptorSet'_unknownFields :: FieldSet
_FileDescriptorSet'_unknownFields = FieldSet
y__})
  defMessage :: FileDescriptorSet
defMessage
    = $WFileDescriptorSet'_constructor :: Vector FileDescriptorProto -> FieldSet -> FileDescriptorSet
FileDescriptorSet'_constructor
        {_FileDescriptorSet'file :: Vector FileDescriptorProto
_FileDescriptorSet'file = Vector FileDescriptorProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FileDescriptorSet'_unknownFields :: FieldSet
_FileDescriptorSet'_unknownFields = []}
  parseMessage :: Parser FileDescriptorSet
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 :: FileDescriptorSet
-> Growing Vector RealWorld FileDescriptorProto
-> Parser FileDescriptorSet
loop x :: FileDescriptorSet
x mutable'file :: Growing Vector RealWorld FileDescriptorProto
mutable'file
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector FileDescriptorProto
frozen'file <- IO (Vector FileDescriptorProto)
-> Parser (Vector FileDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) FileDescriptorProto
-> IO (Vector FileDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld FileDescriptorProto
Growing Vector (PrimState IO) FileDescriptorProto
mutable'file)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      FileDescriptorSet -> Parser FileDescriptorSet
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter FileDescriptorSet FileDescriptorSet FieldSet FieldSet
-> (FieldSet -> FieldSet) -> FileDescriptorSet -> FileDescriptorSet
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter FileDescriptorSet FileDescriptorSet FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  FileDescriptorSet
  FileDescriptorSet
  (Vector FileDescriptorProto)
  (Vector FileDescriptorProto)
-> Vector FileDescriptorProto
-> FileDescriptorSet
-> FileDescriptorSet
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'file" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'file") Vector FileDescriptorProto
frozen'file FileDescriptorSet
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !FileDescriptorProto
y <- Parser FileDescriptorProto -> String -> Parser FileDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser FileDescriptorProto -> Parser FileDescriptorProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser FileDescriptorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "file"
                                Growing Vector RealWorld FileDescriptorProto
v <- IO (Growing Vector RealWorld FileDescriptorProto)
-> Parser (Growing Vector RealWorld FileDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) FileDescriptorProto
-> FileDescriptorProto
-> IO (Growing Vector (PrimState IO) FileDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld FileDescriptorProto
Growing Vector (PrimState IO) FileDescriptorProto
mutable'file FileDescriptorProto
y)
                                FileDescriptorSet
-> Growing Vector RealWorld FileDescriptorProto
-> Parser FileDescriptorSet
loop FileDescriptorSet
x Growing Vector RealWorld FileDescriptorProto
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                FileDescriptorSet
-> Growing Vector RealWorld FileDescriptorProto
-> Parser FileDescriptorSet
loop
                                  (Setter FileDescriptorSet FileDescriptorSet FieldSet FieldSet
-> (FieldSet -> FieldSet) -> FileDescriptorSet -> FileDescriptorSet
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter FileDescriptorSet FileDescriptorSet FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FileDescriptorSet
x)
                                  Growing Vector RealWorld FileDescriptorProto
mutable'file
      in
        Parser FileDescriptorSet -> String -> Parser FileDescriptorSet
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld FileDescriptorProto
mutable'file <- IO (Growing Vector RealWorld FileDescriptorProto)
-> Parser (Growing Vector RealWorld FileDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                IO (Growing Vector RealWorld FileDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              FileDescriptorSet
-> Growing Vector RealWorld FileDescriptorProto
-> Parser FileDescriptorSet
loop FileDescriptorSet
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld FileDescriptorProto
mutable'file)
          "FileDescriptorSet"
  buildMessage :: FileDescriptorSet -> Builder
buildMessage
    = \ _x :: FileDescriptorSet
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((FileDescriptorProto -> Builder)
-> Vector FileDescriptorProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: FileDescriptorProto
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((ByteString -> Builder)
-> (FileDescriptorProto -> ByteString)
-> FileDescriptorProto
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ bs :: ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           FileDescriptorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                           FileDescriptorProto
_v))
                (FoldLike
  (Vector FileDescriptorProto)
  FileDescriptorSet
  FileDescriptorSet
  (Vector FileDescriptorProto)
  (Vector FileDescriptorProto)
-> FileDescriptorSet -> Vector FileDescriptorProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'file" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'file") FileDescriptorSet
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet FileDescriptorSet FileDescriptorSet FieldSet FieldSet
-> FileDescriptorSet -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet FileDescriptorSet FileDescriptorSet FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FileDescriptorSet
_x))
instance Control.DeepSeq.NFData FileDescriptorSet where
  rnf :: FileDescriptorSet -> ()
rnf
    = \ x__ :: FileDescriptorSet
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FileDescriptorSet -> FieldSet
_FileDescriptorSet'_unknownFields FileDescriptorSet
x__)
             (Vector FileDescriptorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (FileDescriptorSet -> Vector FileDescriptorProto
_FileDescriptorSet'file FileDescriptorSet
x__) ())
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.javaPackage' @:: Lens' FileOptions Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaPackage' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.javaOuterClassname' @:: Lens' FileOptions Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaOuterClassname' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.javaMultipleFiles' @:: Lens' FileOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaMultipleFiles' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.javaGenerateEqualsAndHash' @:: Lens' FileOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaGenerateEqualsAndHash' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.javaStringCheckUtf8' @:: Lens' FileOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaStringCheckUtf8' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.optimizeFor' @:: Lens' FileOptions FileOptions'OptimizeMode@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'optimizeFor' @:: Lens' FileOptions (Prelude.Maybe FileOptions'OptimizeMode)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.goPackage' @:: Lens' FileOptions Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'goPackage' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.ccGenericServices' @:: Lens' FileOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'ccGenericServices' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.javaGenericServices' @:: Lens' FileOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'javaGenericServices' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.pyGenericServices' @:: Lens' FileOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'pyGenericServices' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.phpGenericServices' @:: Lens' FileOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'phpGenericServices' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' FileOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.ccEnableArenas' @:: Lens' FileOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'ccEnableArenas' @:: Lens' FileOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.objcClassPrefix' @:: Lens' FileOptions Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'objcClassPrefix' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.csharpNamespace' @:: Lens' FileOptions Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'csharpNamespace' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.swiftPrefix' @:: Lens' FileOptions Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'swiftPrefix' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.phpClassPrefix' @:: Lens' FileOptions Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'phpClassPrefix' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.phpNamespace' @:: Lens' FileOptions Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'phpNamespace' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.phpMetadataNamespace' @:: Lens' FileOptions Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'phpMetadataNamespace' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.rubyPackage' @:: Lens' FileOptions Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'rubyPackage' @:: Lens' FileOptions (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' FileOptions [UninterpretedOption]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' FileOptions (Data.Vector.Vector UninterpretedOption)@ -}
data FileOptions
  = FileOptions'_constructor {FileOptions -> Maybe Text
_FileOptions'javaPackage :: !(Prelude.Maybe Data.Text.Text),
                              FileOptions -> Maybe Text
_FileOptions'javaOuterClassname :: !(Prelude.Maybe Data.Text.Text),
                              FileOptions -> Maybe Bool
_FileOptions'javaMultipleFiles :: !(Prelude.Maybe Prelude.Bool),
                              FileOptions -> Maybe Bool
_FileOptions'javaGenerateEqualsAndHash :: !(Prelude.Maybe Prelude.Bool),
                              FileOptions -> Maybe Bool
_FileOptions'javaStringCheckUtf8 :: !(Prelude.Maybe Prelude.Bool),
                              FileOptions -> Maybe FileOptions'OptimizeMode
_FileOptions'optimizeFor :: !(Prelude.Maybe FileOptions'OptimizeMode),
                              FileOptions -> Maybe Text
_FileOptions'goPackage :: !(Prelude.Maybe Data.Text.Text),
                              FileOptions -> Maybe Bool
_FileOptions'ccGenericServices :: !(Prelude.Maybe Prelude.Bool),
                              FileOptions -> Maybe Bool
_FileOptions'javaGenericServices :: !(Prelude.Maybe Prelude.Bool),
                              FileOptions -> Maybe Bool
_FileOptions'pyGenericServices :: !(Prelude.Maybe Prelude.Bool),
                              FileOptions -> Maybe Bool
_FileOptions'phpGenericServices :: !(Prelude.Maybe Prelude.Bool),
                              FileOptions -> Maybe Bool
_FileOptions'deprecated :: !(Prelude.Maybe Prelude.Bool),
                              FileOptions -> Maybe Bool
_FileOptions'ccEnableArenas :: !(Prelude.Maybe Prelude.Bool),
                              FileOptions -> Maybe Text
_FileOptions'objcClassPrefix :: !(Prelude.Maybe Data.Text.Text),
                              FileOptions -> Maybe Text
_FileOptions'csharpNamespace :: !(Prelude.Maybe Data.Text.Text),
                              FileOptions -> Maybe Text
_FileOptions'swiftPrefix :: !(Prelude.Maybe Data.Text.Text),
                              FileOptions -> Maybe Text
_FileOptions'phpClassPrefix :: !(Prelude.Maybe Data.Text.Text),
                              FileOptions -> Maybe Text
_FileOptions'phpNamespace :: !(Prelude.Maybe Data.Text.Text),
                              FileOptions -> Maybe Text
_FileOptions'phpMetadataNamespace :: !(Prelude.Maybe Data.Text.Text),
                              FileOptions -> Maybe Text
_FileOptions'rubyPackage :: !(Prelude.Maybe Data.Text.Text),
                              FileOptions -> Vector UninterpretedOption
_FileOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption),
                              FileOptions -> FieldSet
_FileOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (FileOptions -> FileOptions -> Bool
(FileOptions -> FileOptions -> Bool)
-> (FileOptions -> FileOptions -> Bool) -> Eq FileOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FileOptions -> FileOptions -> Bool
$c/= :: FileOptions -> FileOptions -> Bool
== :: FileOptions -> FileOptions -> Bool
$c== :: FileOptions -> FileOptions -> Bool
Prelude.Eq, Eq FileOptions
Eq FileOptions =>
(FileOptions -> FileOptions -> Ordering)
-> (FileOptions -> FileOptions -> Bool)
-> (FileOptions -> FileOptions -> Bool)
-> (FileOptions -> FileOptions -> Bool)
-> (FileOptions -> FileOptions -> Bool)
-> (FileOptions -> FileOptions -> FileOptions)
-> (FileOptions -> FileOptions -> FileOptions)
-> Ord FileOptions
FileOptions -> FileOptions -> Bool
FileOptions -> FileOptions -> Ordering
FileOptions -> FileOptions -> FileOptions
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: FileOptions -> FileOptions -> FileOptions
$cmin :: FileOptions -> FileOptions -> FileOptions
max :: FileOptions -> FileOptions -> FileOptions
$cmax :: FileOptions -> FileOptions -> FileOptions
>= :: FileOptions -> FileOptions -> Bool
$c>= :: FileOptions -> FileOptions -> Bool
> :: FileOptions -> FileOptions -> Bool
$c> :: FileOptions -> FileOptions -> Bool
<= :: FileOptions -> FileOptions -> Bool
$c<= :: FileOptions -> FileOptions -> Bool
< :: FileOptions -> FileOptions -> Bool
$c< :: FileOptions -> FileOptions -> Bool
compare :: FileOptions -> FileOptions -> Ordering
$ccompare :: FileOptions -> FileOptions -> Ordering
$cp1Ord :: Eq FileOptions
Prelude.Ord)
instance Prelude.Show FileOptions where
  showsPrec :: Int -> FileOptions -> ShowS
showsPrec _ __x :: FileOptions
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (FileOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FileOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField FileOptions "javaPackage" Data.Text.Text where
  fieldOf :: Proxy# "javaPackage"
-> (Text -> f Text) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'javaPackage
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'javaPackage :: Maybe Text
_FileOptions'javaPackage = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'javaPackage" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'javaPackage"
-> (Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'javaPackage
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'javaPackage :: Maybe Text
_FileOptions'javaPackage = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "javaOuterClassname" Data.Text.Text where
  fieldOf :: Proxy# "javaOuterClassname"
-> (Text -> f Text) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'javaOuterClassname
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'javaOuterClassname :: Maybe Text
_FileOptions'javaOuterClassname = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'javaOuterClassname" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'javaOuterClassname"
-> (Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'javaOuterClassname
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'javaOuterClassname :: Maybe Text
_FileOptions'javaOuterClassname = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "javaMultipleFiles" Prelude.Bool where
  fieldOf :: Proxy# "javaMultipleFiles"
-> (Bool -> f Bool) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'javaMultipleFiles
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'javaMultipleFiles :: Maybe Bool
_FileOptions'javaMultipleFiles = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'javaMultipleFiles" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'javaMultipleFiles"
-> (Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'javaMultipleFiles
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'javaMultipleFiles :: Maybe Bool
_FileOptions'javaMultipleFiles = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "javaGenerateEqualsAndHash" Prelude.Bool where
  fieldOf :: Proxy# "javaGenerateEqualsAndHash"
-> (Bool -> f Bool) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'javaGenerateEqualsAndHash
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'javaGenerateEqualsAndHash :: Maybe Bool
_FileOptions'javaGenerateEqualsAndHash = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'javaGenerateEqualsAndHash" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'javaGenerateEqualsAndHash"
-> (Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'javaGenerateEqualsAndHash
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'javaGenerateEqualsAndHash :: Maybe Bool
_FileOptions'javaGenerateEqualsAndHash = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "javaStringCheckUtf8" Prelude.Bool where
  fieldOf :: Proxy# "javaStringCheckUtf8"
-> (Bool -> f Bool) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'javaStringCheckUtf8
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'javaStringCheckUtf8 :: Maybe Bool
_FileOptions'javaStringCheckUtf8 = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'javaStringCheckUtf8" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'javaStringCheckUtf8"
-> (Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'javaStringCheckUtf8
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'javaStringCheckUtf8 :: Maybe Bool
_FileOptions'javaStringCheckUtf8 = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "optimizeFor" FileOptions'OptimizeMode where
  fieldOf :: Proxy# "optimizeFor"
-> (FileOptions'OptimizeMode -> f FileOptions'OptimizeMode)
-> FileOptions
-> f FileOptions
fieldOf _
    = ((Maybe FileOptions'OptimizeMode
  -> f (Maybe FileOptions'OptimizeMode))
 -> FileOptions -> f FileOptions)
-> ((FileOptions'OptimizeMode -> f FileOptions'OptimizeMode)
    -> Maybe FileOptions'OptimizeMode
    -> f (Maybe FileOptions'OptimizeMode))
-> (FileOptions'OptimizeMode -> f FileOptions'OptimizeMode)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe FileOptions'OptimizeMode)
-> (FileOptions -> Maybe FileOptions'OptimizeMode -> FileOptions)
-> Lens
     FileOptions
     FileOptions
     (Maybe FileOptions'OptimizeMode)
     (Maybe FileOptions'OptimizeMode)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe FileOptions'OptimizeMode
_FileOptions'optimizeFor
           (\ x__ :: FileOptions
x__ y__ :: Maybe FileOptions'OptimizeMode
y__ -> FileOptions
x__ {_FileOptions'optimizeFor :: Maybe FileOptions'OptimizeMode
_FileOptions'optimizeFor = Maybe FileOptions'OptimizeMode
y__}))
        (FileOptions'OptimizeMode
-> Lens' (Maybe FileOptions'OptimizeMode) FileOptions'OptimizeMode
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FileOptions'OptimizeMode
FileOptions'SPEED)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'optimizeFor" (Prelude.Maybe FileOptions'OptimizeMode) where
  fieldOf :: Proxy# "maybe'optimizeFor"
-> (Maybe FileOptions'OptimizeMode
    -> f (Maybe FileOptions'OptimizeMode))
-> FileOptions
-> f FileOptions
fieldOf _
    = ((Maybe FileOptions'OptimizeMode
  -> f (Maybe FileOptions'OptimizeMode))
 -> FileOptions -> f FileOptions)
-> ((Maybe FileOptions'OptimizeMode
     -> f (Maybe FileOptions'OptimizeMode))
    -> Maybe FileOptions'OptimizeMode
    -> f (Maybe FileOptions'OptimizeMode))
-> (Maybe FileOptions'OptimizeMode
    -> f (Maybe FileOptions'OptimizeMode))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe FileOptions'OptimizeMode)
-> (FileOptions -> Maybe FileOptions'OptimizeMode -> FileOptions)
-> Lens
     FileOptions
     FileOptions
     (Maybe FileOptions'OptimizeMode)
     (Maybe FileOptions'OptimizeMode)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe FileOptions'OptimizeMode
_FileOptions'optimizeFor
           (\ x__ :: FileOptions
x__ y__ :: Maybe FileOptions'OptimizeMode
y__ -> FileOptions
x__ {_FileOptions'optimizeFor :: Maybe FileOptions'OptimizeMode
_FileOptions'optimizeFor = Maybe FileOptions'OptimizeMode
y__}))
        (Maybe FileOptions'OptimizeMode
 -> f (Maybe FileOptions'OptimizeMode))
-> Maybe FileOptions'OptimizeMode
-> f (Maybe FileOptions'OptimizeMode)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "goPackage" Data.Text.Text where
  fieldOf :: Proxy# "goPackage"
-> (Text -> f Text) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'goPackage
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'goPackage :: Maybe Text
_FileOptions'goPackage = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'goPackage" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'goPackage"
-> (Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'goPackage
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'goPackage :: Maybe Text
_FileOptions'goPackage = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "ccGenericServices" Prelude.Bool where
  fieldOf :: Proxy# "ccGenericServices"
-> (Bool -> f Bool) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'ccGenericServices
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'ccGenericServices :: Maybe Bool
_FileOptions'ccGenericServices = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'ccGenericServices" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'ccGenericServices"
-> (Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'ccGenericServices
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'ccGenericServices :: Maybe Bool
_FileOptions'ccGenericServices = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "javaGenericServices" Prelude.Bool where
  fieldOf :: Proxy# "javaGenericServices"
-> (Bool -> f Bool) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'javaGenericServices
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'javaGenericServices :: Maybe Bool
_FileOptions'javaGenericServices = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'javaGenericServices" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'javaGenericServices"
-> (Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'javaGenericServices
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'javaGenericServices :: Maybe Bool
_FileOptions'javaGenericServices = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "pyGenericServices" Prelude.Bool where
  fieldOf :: Proxy# "pyGenericServices"
-> (Bool -> f Bool) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'pyGenericServices
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'pyGenericServices :: Maybe Bool
_FileOptions'pyGenericServices = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'pyGenericServices" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'pyGenericServices"
-> (Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'pyGenericServices
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'pyGenericServices :: Maybe Bool
_FileOptions'pyGenericServices = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "phpGenericServices" Prelude.Bool where
  fieldOf :: Proxy# "phpGenericServices"
-> (Bool -> f Bool) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'phpGenericServices
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'phpGenericServices :: Maybe Bool
_FileOptions'phpGenericServices = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'phpGenericServices" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'phpGenericServices"
-> (Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'phpGenericServices
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'phpGenericServices :: Maybe Bool
_FileOptions'phpGenericServices = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "deprecated" Prelude.Bool where
  fieldOf :: Proxy# "deprecated"
-> (Bool -> f Bool) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'deprecated
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'deprecated :: Maybe Bool
_FileOptions'deprecated = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'deprecated" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'deprecated"
-> (Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'deprecated
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'deprecated :: Maybe Bool
_FileOptions'deprecated = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "ccEnableArenas" Prelude.Bool where
  fieldOf :: Proxy# "ccEnableArenas"
-> (Bool -> f Bool) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'ccEnableArenas
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'ccEnableArenas :: Maybe Bool
_FileOptions'ccEnableArenas = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'ccEnableArenas" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'ccEnableArenas"
-> (Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool)) -> FileOptions -> f FileOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Bool)
-> (FileOptions -> Maybe Bool -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Bool
_FileOptions'ccEnableArenas
           (\ x__ :: FileOptions
x__ y__ :: Maybe Bool
y__ -> FileOptions
x__ {_FileOptions'ccEnableArenas :: Maybe Bool
_FileOptions'ccEnableArenas = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "objcClassPrefix" Data.Text.Text where
  fieldOf :: Proxy# "objcClassPrefix"
-> (Text -> f Text) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'objcClassPrefix
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'objcClassPrefix :: Maybe Text
_FileOptions'objcClassPrefix = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'objcClassPrefix" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'objcClassPrefix"
-> (Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'objcClassPrefix
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'objcClassPrefix :: Maybe Text
_FileOptions'objcClassPrefix = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "csharpNamespace" Data.Text.Text where
  fieldOf :: Proxy# "csharpNamespace"
-> (Text -> f Text) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'csharpNamespace
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'csharpNamespace :: Maybe Text
_FileOptions'csharpNamespace = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'csharpNamespace" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'csharpNamespace"
-> (Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'csharpNamespace
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'csharpNamespace :: Maybe Text
_FileOptions'csharpNamespace = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "swiftPrefix" Data.Text.Text where
  fieldOf :: Proxy# "swiftPrefix"
-> (Text -> f Text) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'swiftPrefix
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'swiftPrefix :: Maybe Text
_FileOptions'swiftPrefix = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'swiftPrefix" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'swiftPrefix"
-> (Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'swiftPrefix
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'swiftPrefix :: Maybe Text
_FileOptions'swiftPrefix = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "phpClassPrefix" Data.Text.Text where
  fieldOf :: Proxy# "phpClassPrefix"
-> (Text -> f Text) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'phpClassPrefix
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'phpClassPrefix :: Maybe Text
_FileOptions'phpClassPrefix = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'phpClassPrefix" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'phpClassPrefix"
-> (Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'phpClassPrefix
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'phpClassPrefix :: Maybe Text
_FileOptions'phpClassPrefix = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "phpNamespace" Data.Text.Text where
  fieldOf :: Proxy# "phpNamespace"
-> (Text -> f Text) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'phpNamespace
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'phpNamespace :: Maybe Text
_FileOptions'phpNamespace = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'phpNamespace" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'phpNamespace"
-> (Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'phpNamespace
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'phpNamespace :: Maybe Text
_FileOptions'phpNamespace = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "phpMetadataNamespace" Data.Text.Text where
  fieldOf :: Proxy# "phpMetadataNamespace"
-> (Text -> f Text) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'phpMetadataNamespace
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'phpMetadataNamespace :: Maybe Text
_FileOptions'phpMetadataNamespace = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'phpMetadataNamespace" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'phpMetadataNamespace"
-> (Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'phpMetadataNamespace
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'phpMetadataNamespace :: Maybe Text
_FileOptions'phpMetadataNamespace = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "rubyPackage" Data.Text.Text where
  fieldOf :: Proxy# "rubyPackage"
-> (Text -> f Text) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'rubyPackage
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'rubyPackage :: Maybe Text
_FileOptions'rubyPackage = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField FileOptions "maybe'rubyPackage" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'rubyPackage"
-> (Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions
fieldOf _
    = ((Maybe Text -> f (Maybe Text)) -> FileOptions -> f FileOptions)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Maybe Text)
-> (FileOptions -> Maybe Text -> FileOptions)
-> Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Maybe Text
_FileOptions'rubyPackage
           (\ x__ :: FileOptions
x__ y__ :: Maybe Text
y__ -> FileOptions
x__ {_FileOptions'rubyPackage :: Maybe Text
_FileOptions'rubyPackage = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FileOptions "uninterpretedOption" [UninterpretedOption] where
  fieldOf :: Proxy# "uninterpretedOption"
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> FileOptions
-> f FileOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> FileOptions -> f FileOptions)
-> (([UninterpretedOption] -> f [UninterpretedOption])
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Vector UninterpretedOption)
-> (FileOptions -> Vector UninterpretedOption -> FileOptions)
-> Lens
     FileOptions
     FileOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Vector UninterpretedOption
_FileOptions'uninterpretedOption
           (\ x__ :: FileOptions
x__ y__ :: Vector UninterpretedOption
y__ -> FileOptions
x__ {_FileOptions'uninterpretedOption :: Vector UninterpretedOption
_FileOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        ((Vector UninterpretedOption -> [UninterpretedOption])
-> (Vector UninterpretedOption
    -> [UninterpretedOption] -> Vector UninterpretedOption)
-> Lens
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
     [UninterpretedOption]
     [UninterpretedOption]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector UninterpretedOption -> [UninterpretedOption]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [UninterpretedOption]
y__ -> [UninterpretedOption] -> Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UninterpretedOption]
y__))
instance Data.ProtoLens.Field.HasField FileOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where
  fieldOf :: Proxy# "vec'uninterpretedOption"
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> FileOptions
-> f FileOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> FileOptions -> f FileOptions)
-> ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> FileOptions
-> f FileOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileOptions -> Vector UninterpretedOption)
-> (FileOptions -> Vector UninterpretedOption -> FileOptions)
-> Lens
     FileOptions
     FileOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileOptions -> Vector UninterpretedOption
_FileOptions'uninterpretedOption
           (\ x__ :: FileOptions
x__ y__ :: Vector UninterpretedOption
y__ -> FileOptions
x__ {_FileOptions'uninterpretedOption :: Vector UninterpretedOption
_FileOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> Vector UninterpretedOption -> f (Vector UninterpretedOption)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FileOptions where
  messageName :: Proxy FileOptions -> Text
messageName _ = String -> Text
Data.Text.pack "google.protobuf.FileOptions"
  fieldsByTag :: Map Tag (FieldDescriptor FileOptions)
fieldsByTag
    = let
        javaPackage__field_descriptor :: FieldDescriptor FileOptions
javaPackage__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FileOptions Text
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "java_package"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FieldAccessor FileOptions Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'javaPackage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'javaPackage")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        javaOuterClassname__field_descriptor :: FieldDescriptor FileOptions
javaOuterClassname__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FileOptions Text
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "java_outer_classname"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FieldAccessor FileOptions Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'javaOuterClassname" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'javaOuterClassname")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        javaMultipleFiles__field_descriptor :: FieldDescriptor FileOptions
javaMultipleFiles__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor FileOptions Bool
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "java_multiple_files"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor FileOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'javaMultipleFiles" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'javaMultipleFiles")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        javaGenerateEqualsAndHash__field_descriptor :: FieldDescriptor FileOptions
javaGenerateEqualsAndHash__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor FileOptions Bool
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "java_generate_equals_and_hash"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor FileOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'javaGenerateEqualsAndHash" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'javaGenerateEqualsAndHash")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        javaStringCheckUtf8__field_descriptor :: FieldDescriptor FileOptions
javaStringCheckUtf8__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor FileOptions Bool
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "java_string_check_utf8"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor FileOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'javaStringCheckUtf8" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'javaStringCheckUtf8")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        optimizeFor__field_descriptor :: FieldDescriptor FileOptions
optimizeFor__field_descriptor
          = String
-> FieldTypeDescriptor FileOptions'OptimizeMode
-> FieldAccessor FileOptions FileOptions'OptimizeMode
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "optimize_for"
              (ScalarField FileOptions'OptimizeMode
-> FieldTypeDescriptor FileOptions'OptimizeMode
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField FileOptions'OptimizeMode
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor FileOptions'OptimizeMode)
              (Lens
  FileOptions
  FileOptions
  (Maybe FileOptions'OptimizeMode)
  (Maybe FileOptions'OptimizeMode)
-> FieldAccessor FileOptions FileOptions'OptimizeMode
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'optimizeFor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'optimizeFor")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        goPackage__field_descriptor :: FieldDescriptor FileOptions
goPackage__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FileOptions Text
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "go_package"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FieldAccessor FileOptions Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'goPackage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'goPackage")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        ccGenericServices__field_descriptor :: FieldDescriptor FileOptions
ccGenericServices__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor FileOptions Bool
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "cc_generic_services"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor FileOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'ccGenericServices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ccGenericServices")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        javaGenericServices__field_descriptor :: FieldDescriptor FileOptions
javaGenericServices__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor FileOptions Bool
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "java_generic_services"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor FileOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'javaGenericServices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'javaGenericServices")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        pyGenericServices__field_descriptor :: FieldDescriptor FileOptions
pyGenericServices__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor FileOptions Bool
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "py_generic_services"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor FileOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'pyGenericServices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'pyGenericServices")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        phpGenericServices__field_descriptor :: FieldDescriptor FileOptions
phpGenericServices__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor FileOptions Bool
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "php_generic_services"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor FileOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'phpGenericServices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'phpGenericServices")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        deprecated__field_descriptor :: FieldDescriptor FileOptions
deprecated__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor FileOptions Bool
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "deprecated"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor FileOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'deprecated")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        ccEnableArenas__field_descriptor :: FieldDescriptor FileOptions
ccEnableArenas__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor FileOptions Bool
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "cc_enable_arenas"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor FileOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'ccEnableArenas" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ccEnableArenas")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        objcClassPrefix__field_descriptor :: FieldDescriptor FileOptions
objcClassPrefix__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FileOptions Text
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "objc_class_prefix"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FieldAccessor FileOptions Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'objcClassPrefix" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'objcClassPrefix")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        csharpNamespace__field_descriptor :: FieldDescriptor FileOptions
csharpNamespace__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FileOptions Text
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "csharp_namespace"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FieldAccessor FileOptions Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'csharpNamespace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'csharpNamespace")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        swiftPrefix__field_descriptor :: FieldDescriptor FileOptions
swiftPrefix__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FileOptions Text
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "swift_prefix"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FieldAccessor FileOptions Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'swiftPrefix" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'swiftPrefix")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        phpClassPrefix__field_descriptor :: FieldDescriptor FileOptions
phpClassPrefix__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FileOptions Text
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "php_class_prefix"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FieldAccessor FileOptions Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'phpClassPrefix" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'phpClassPrefix")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        phpNamespace__field_descriptor :: FieldDescriptor FileOptions
phpNamespace__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FileOptions Text
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "php_namespace"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FieldAccessor FileOptions Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'phpNamespace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'phpNamespace")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        phpMetadataNamespace__field_descriptor :: FieldDescriptor FileOptions
phpMetadataNamespace__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FileOptions Text
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "php_metadata_namespace"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FieldAccessor FileOptions Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'phpMetadataNamespace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'phpMetadataNamespace")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        rubyPackage__field_descriptor :: FieldDescriptor FileOptions
rubyPackage__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor FileOptions Text
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "ruby_package"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FieldAccessor FileOptions Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'rubyPackage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'rubyPackage")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
        uninterpretedOption__field_descriptor :: FieldDescriptor FileOptions
uninterpretedOption__field_descriptor
          = String
-> FieldTypeDescriptor UninterpretedOption
-> FieldAccessor FileOptions UninterpretedOption
-> FieldDescriptor FileOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "uninterpreted_option"
              (MessageOrGroup -> FieldTypeDescriptor UninterpretedOption
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)
              (Packing
-> Lens' FileOptions [UninterpretedOption]
-> FieldAccessor FileOptions UninterpretedOption
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uninterpretedOption")) ::
              Data.ProtoLens.FieldDescriptor FileOptions
      in
        [(Tag, FieldDescriptor FileOptions)]
-> Map Tag (FieldDescriptor FileOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FileOptions
javaPackage__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor FileOptions
javaOuterClassname__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 10, FieldDescriptor FileOptions
javaMultipleFiles__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 20, 
            FieldDescriptor FileOptions
javaGenerateEqualsAndHash__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 27, FieldDescriptor FileOptions
javaStringCheckUtf8__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor FileOptions
optimizeFor__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 11, FieldDescriptor FileOptions
goPackage__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 16, FieldDescriptor FileOptions
ccGenericServices__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 17, FieldDescriptor FileOptions
javaGenericServices__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 18, FieldDescriptor FileOptions
pyGenericServices__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 42, FieldDescriptor FileOptions
phpGenericServices__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 23, FieldDescriptor FileOptions
deprecated__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 31, FieldDescriptor FileOptions
ccEnableArenas__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 36, FieldDescriptor FileOptions
objcClassPrefix__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 37, FieldDescriptor FileOptions
csharpNamespace__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 39, FieldDescriptor FileOptions
swiftPrefix__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 40, FieldDescriptor FileOptions
phpClassPrefix__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 41, FieldDescriptor FileOptions
phpNamespace__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 44, FieldDescriptor FileOptions
phpMetadataNamespace__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 45, FieldDescriptor FileOptions
rubyPackage__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 999, FieldDescriptor FileOptions
uninterpretedOption__field_descriptor)]
  unknownFields :: LensLike' f FileOptions FieldSet
unknownFields
    = (FileOptions -> FieldSet)
-> (FileOptions -> FieldSet -> FileOptions)
-> Lens' FileOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FileOptions -> FieldSet
_FileOptions'_unknownFields
        (\ x__ :: FileOptions
x__ y__ :: FieldSet
y__ -> FileOptions
x__ {_FileOptions'_unknownFields :: FieldSet
_FileOptions'_unknownFields = FieldSet
y__})
  defMessage :: FileOptions
defMessage
    = $WFileOptions'_constructor :: Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe FileOptions'OptimizeMode
-> Maybe Text
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Vector UninterpretedOption
-> FieldSet
-> FileOptions
FileOptions'_constructor
        {_FileOptions'javaPackage :: Maybe Text
_FileOptions'javaPackage = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'javaOuterClassname :: Maybe Text
_FileOptions'javaOuterClassname = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'javaMultipleFiles :: Maybe Bool
_FileOptions'javaMultipleFiles = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'javaGenerateEqualsAndHash :: Maybe Bool
_FileOptions'javaGenerateEqualsAndHash = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'javaStringCheckUtf8 :: Maybe Bool
_FileOptions'javaStringCheckUtf8 = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'optimizeFor :: Maybe FileOptions'OptimizeMode
_FileOptions'optimizeFor = Maybe FileOptions'OptimizeMode
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'goPackage :: Maybe Text
_FileOptions'goPackage = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'ccGenericServices :: Maybe Bool
_FileOptions'ccGenericServices = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'javaGenericServices :: Maybe Bool
_FileOptions'javaGenericServices = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'pyGenericServices :: Maybe Bool
_FileOptions'pyGenericServices = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'phpGenericServices :: Maybe Bool
_FileOptions'phpGenericServices = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'deprecated :: Maybe Bool
_FileOptions'deprecated = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'ccEnableArenas :: Maybe Bool
_FileOptions'ccEnableArenas = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'objcClassPrefix :: Maybe Text
_FileOptions'objcClassPrefix = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'csharpNamespace :: Maybe Text
_FileOptions'csharpNamespace = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'swiftPrefix :: Maybe Text
_FileOptions'swiftPrefix = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'phpClassPrefix :: Maybe Text
_FileOptions'phpClassPrefix = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'phpNamespace :: Maybe Text
_FileOptions'phpNamespace = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'phpMetadataNamespace :: Maybe Text
_FileOptions'phpMetadataNamespace = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'rubyPackage :: Maybe Text
_FileOptions'rubyPackage = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _FileOptions'uninterpretedOption :: Vector UninterpretedOption
_FileOptions'uninterpretedOption = Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FileOptions'_unknownFields :: FieldSet
_FileOptions'_unknownFields = []}
  parseMessage :: Parser FileOptions
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 :: FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop x :: FileOptions
x mutable'uninterpretedOption :: Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector UninterpretedOption
frozen'uninterpretedOption <- IO (Vector UninterpretedOption)
-> Parser (Vector UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                      (Growing Vector (PrimState IO) UninterpretedOption
-> IO (Vector UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                         Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      FileOptions -> Parser FileOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter FileOptions FileOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter FileOptions FileOptions FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  FileOptions
  FileOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> Vector UninterpretedOption -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption")
                              Vector UninterpretedOption
frozen'uninterpretedOption
                              FileOptions
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "java_package"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Text Text
-> Text -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "javaPackage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"javaPackage") Text
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        66
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "java_outer_classname"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Text Text
-> Text -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "javaOuterClassname" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"javaOuterClassname") Text
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        80
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "java_multiple_files"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Bool Bool
-> Bool -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "javaMultipleFiles" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"javaMultipleFiles") Bool
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        160
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "java_generate_equals_and_hash"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Bool Bool
-> Bool -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "javaGenerateEqualsAndHash" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"javaGenerateEqualsAndHash") Bool
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        216
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "java_string_check_utf8"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Bool Bool
-> Bool -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "javaStringCheckUtf8" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"javaStringCheckUtf8") Bool
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        72
                          -> do FileOptions'OptimizeMode
y <- Parser FileOptions'OptimizeMode
-> String -> Parser FileOptions'OptimizeMode
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> FileOptions'OptimizeMode)
-> Parser Int -> Parser FileOptions'OptimizeMode
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> FileOptions'OptimizeMode
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       "optimize_for"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter
  FileOptions
  FileOptions
  FileOptions'OptimizeMode
  FileOptions'OptimizeMode
-> FileOptions'OptimizeMode -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "optimizeFor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"optimizeFor") FileOptions'OptimizeMode
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        90
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "go_package"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Text Text
-> Text -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "goPackage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"goPackage") Text
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        128
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "cc_generic_services"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Bool Bool
-> Bool -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "ccGenericServices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ccGenericServices") Bool
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        136
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "java_generic_services"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Bool Bool
-> Bool -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "javaGenericServices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"javaGenericServices") Bool
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        144
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "py_generic_services"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Bool Bool
-> Bool -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "pyGenericServices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"pyGenericServices") Bool
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        336
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "php_generic_services"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Bool Bool
-> Bool -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "phpGenericServices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"phpGenericServices") Bool
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        184
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "deprecated"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Bool Bool
-> Bool -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deprecated") Bool
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        248
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "cc_enable_arenas"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Bool Bool
-> Bool -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "ccEnableArenas" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ccEnableArenas") Bool
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        290
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "objc_class_prefix"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Text Text
-> Text -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "objcClassPrefix" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"objcClassPrefix") Text
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        298
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "csharp_namespace"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Text Text
-> Text -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "csharpNamespace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"csharpNamespace") Text
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        314
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "swift_prefix"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Text Text
-> Text -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "swiftPrefix" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"swiftPrefix") Text
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        322
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "php_class_prefix"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Text Text
-> Text -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "phpClassPrefix" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"phpClassPrefix") Text
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        330
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "php_namespace"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Text Text
-> Text -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "phpNamespace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"phpNamespace") Text
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        354
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "php_metadata_namespace"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Text Text
-> Text -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "phpMetadataNamespace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"phpMetadataNamespace") Text
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        362
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "ruby_package"
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions Text Text
-> Text -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "rubyPackage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rubyPackage") Text
y FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        7994
                          -> do !UninterpretedOption
y <- Parser UninterpretedOption -> String -> Parser UninterpretedOption
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser UninterpretedOption -> Parser UninterpretedOption
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser UninterpretedOption
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "uninterpreted_option"
                                Growing Vector RealWorld UninterpretedOption
v <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) UninterpretedOption
-> UninterpretedOption
-> IO (Growing Vector (PrimState IO) UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption UninterpretedOption
y)
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop FileOptions
x Growing Vector RealWorld UninterpretedOption
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop
                                  (Setter FileOptions FileOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> FileOptions -> FileOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter FileOptions FileOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FileOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
      in
        Parser FileOptions -> String -> Parser FileOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               IO (Growing Vector RealWorld UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              FileOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser FileOptions
loop FileOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption)
          "FileOptions"
  buildMessage :: FileOptions -> Builder
buildMessage
    = \ _x :: FileOptions
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Text) FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FileOptions -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                    (forall s a (f :: * -> *).
(HasField s "maybe'javaPackage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'javaPackage") FileOptions
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Text
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Text -> ByteString
Data.Text.Encoding.encodeUtf8
                          Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Text) FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FileOptions -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall s a (f :: * -> *).
(HasField s "maybe'javaOuterClassname" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'javaOuterClassname") FileOptions
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: Text
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 66)
                          ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             Text -> ByteString
Data.Text.Encoding.encodeUtf8
                             Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe Bool) FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FileOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall s a (f :: * -> *).
(HasField s "maybe'javaMultipleFiles" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'javaMultipleFiles") FileOptions
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: Bool
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 80)
                             ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                Bool
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe Bool) FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FileOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                             (forall s a (f :: * -> *).
(HasField s "maybe'javaGenerateEqualsAndHash" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'javaGenerateEqualsAndHash") FileOptions
_x
                       of
                         Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just _v :: Bool
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 160)
                                ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                   Bool
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (case
                              FoldLike
  (Maybe Bool) FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FileOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                (forall s a (f :: * -> *).
(HasField s "maybe'javaStringCheckUtf8" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'javaStringCheckUtf8") FileOptions
_x
                          of
                            Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            (Prelude.Just _v :: Bool
_v)
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 216)
                                   ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                      Bool
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (case
                                 FoldLike
  (Maybe FileOptions'OptimizeMode)
  FileOptions
  FileOptions
  (Maybe FileOptions'OptimizeMode)
  (Maybe FileOptions'OptimizeMode)
-> FileOptions -> Maybe FileOptions'OptimizeMode
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                   (forall s a (f :: * -> *).
(HasField s "maybe'optimizeFor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'optimizeFor") FileOptions
_x
                             of
                               Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                               (Prelude.Just _v :: FileOptions'OptimizeMode
_v)
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 72)
                                      ((Int -> Builder)
-> (FileOptions'OptimizeMode -> Int)
-> FileOptions'OptimizeMode
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                         ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                            Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                                         FileOptions'OptimizeMode -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
                                         FileOptions'OptimizeMode
_v))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (case
                                    FoldLike
  (Maybe Text) FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FileOptions -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                      (forall s a (f :: * -> *).
(HasField s "maybe'goPackage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'goPackage") FileOptions
_x
                                of
                                  Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                  (Prelude.Just _v :: Text
_v)
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 90)
                                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                            (\ bs :: ByteString
bs
                                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                          (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                            Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                            Text
_v))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (case
                                       FoldLike
  (Maybe Bool) FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FileOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                         (forall s a (f :: * -> *).
(HasField s "maybe'ccGenericServices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'ccGenericServices") FileOptions
_x
                                   of
                                     Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                     (Prelude.Just _v :: Bool
_v)
                                       -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 128)
                                            ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                               Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                               (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                               Bool
_v))
                                  (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (case
                                          FoldLike
  (Maybe Bool) FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FileOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                            (forall s a (f :: * -> *).
(HasField s "maybe'javaGenericServices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                               @"maybe'javaGenericServices")
                                            FileOptions
_x
                                      of
                                        Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                        (Prelude.Just _v :: Bool
_v)
                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 136)
                                               ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                  Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                  (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                                  Bool
_v))
                                     (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (case
                                             FoldLike
  (Maybe Bool) FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FileOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                               (forall s a (f :: * -> *).
(HasField s "maybe'pyGenericServices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                  @"maybe'pyGenericServices")
                                               FileOptions
_x
                                         of
                                           Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                           (Prelude.Just _v :: Bool
_v)
                                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 144)
                                                  ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                     Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                     (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                                     Bool
_v))
                                        (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (case
                                                FoldLike
  (Maybe Bool) FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FileOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                  (forall s a (f :: * -> *).
(HasField s "maybe'phpGenericServices" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                     @"maybe'phpGenericServices")
                                                  FileOptions
_x
                                            of
                                              Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                              (Prelude.Just _v :: Bool
_v)
                                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 336)
                                                     ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                        Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                        (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                                        Bool
_v))
                                           (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                              (case
                                                   FoldLike
  (Maybe Bool) FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FileOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                     (forall s a (f :: * -> *).
(HasField s "maybe'deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                        @"maybe'deprecated")
                                                     FileOptions
_x
                                               of
                                                 Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                 (Prelude.Just _v :: Bool
_v)
                                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                           184)
                                                        ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                           Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                           (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                                           Bool
_v))
                                              (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                 (case
                                                      FoldLike
  (Maybe Bool) FileOptions FileOptions (Maybe Bool) (Maybe Bool)
-> FileOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                        (forall s a (f :: * -> *).
(HasField s "maybe'ccEnableArenas" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                           @"maybe'ccEnableArenas")
                                                        FileOptions
_x
                                                  of
                                                    Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                    (Prelude.Just _v :: Bool
_v)
                                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                              248)
                                                           ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                              Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                              (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                                              Bool
_v))
                                                 (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                    (case
                                                         FoldLike
  (Maybe Text) FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FileOptions -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                           (forall s a (f :: * -> *).
(HasField s "maybe'objcClassPrefix" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                              @"maybe'objcClassPrefix")
                                                           FileOptions
_x
                                                     of
                                                       Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                       (Prelude.Just _v :: Text
_v)
                                                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                 290)
                                                              ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                                 (\ bs :: ByteString
bs
                                                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                            (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                               (ByteString -> Int
Data.ByteString.length
                                                                                  ByteString
bs)))
                                                                         (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                            ByteString
bs))
                                                                 Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                                                 Text
_v))
                                                    (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                       (case
                                                            FoldLike
  (Maybe Text) FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FileOptions -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                              (forall s a (f :: * -> *).
(HasField s "maybe'csharpNamespace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                                 @"maybe'csharpNamespace")
                                                              FileOptions
_x
                                                        of
                                                          Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                          (Prelude.Just _v :: Text
_v)
                                                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                    298)
                                                                 ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                                    (\ bs :: ByteString
bs
                                                                       -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                               (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                                  (ByteString -> Int
Data.ByteString.length
                                                                                     ByteString
bs)))
                                                                            (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                               ByteString
bs))
                                                                    Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                                                    Text
_v))
                                                       (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                          (case
                                                               FoldLike
  (Maybe Text) FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FileOptions -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                                 (forall s a (f :: * -> *).
(HasField s "maybe'swiftPrefix" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                                    @"maybe'swiftPrefix")
                                                                 FileOptions
_x
                                                           of
                                                             Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                             (Prelude.Just _v :: Text
_v)
                                                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                       314)
                                                                    ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                                       (\ bs :: ByteString
bs
                                                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                                     (ByteString -> Int
Data.ByteString.length
                                                                                        ByteString
bs)))
                                                                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                                  ByteString
bs))
                                                                       Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                                                       Text
_v))
                                                          (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                             (case
                                                                  FoldLike
  (Maybe Text) FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FileOptions -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                                    (forall s a (f :: * -> *).
(HasField s "maybe'phpClassPrefix" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                                       @"maybe'phpClassPrefix")
                                                                    FileOptions
_x
                                                              of
                                                                Prelude.Nothing
                                                                  -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                                (Prelude.Just _v :: Text
_v)
                                                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                          322)
                                                                       ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                                          (\ bs :: ByteString
bs
                                                                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                                        (ByteString -> Int
Data.ByteString.length
                                                                                           ByteString
bs)))
                                                                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                                     ByteString
bs))
                                                                          Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                                                          Text
_v))
                                                             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                (case
                                                                     FoldLike
  (Maybe Text) FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FileOptions -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                                       (forall s a (f :: * -> *).
(HasField s "maybe'phpNamespace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                                          @"maybe'phpNamespace")
                                                                       FileOptions
_x
                                                                 of
                                                                   Prelude.Nothing
                                                                     -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                                   (Prelude.Just _v :: Text
_v)
                                                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                             330)
                                                                          ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                                             (\ bs :: ByteString
bs
                                                                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                                           (ByteString -> Int
Data.ByteString.length
                                                                                              ByteString
bs)))
                                                                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                                        ByteString
bs))
                                                                             Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                                                             Text
_v))
                                                                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                   (case
                                                                        FoldLike
  (Maybe Text) FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FileOptions -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                                          (forall s a (f :: * -> *).
(HasField s "maybe'phpMetadataNamespace" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                                             @"maybe'phpMetadataNamespace")
                                                                          FileOptions
_x
                                                                    of
                                                                      Prelude.Nothing
                                                                        -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                                      (Prelude.Just _v :: Text
_v)
                                                                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                354)
                                                                             ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                                                (\ bs :: ByteString
bs
                                                                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                                              (ByteString -> Int
Data.ByteString.length
                                                                                                 ByteString
bs)))
                                                                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                                           ByteString
bs))
                                                                                Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                                                                Text
_v))
                                                                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                      (case
                                                                           FoldLike
  (Maybe Text) FileOptions FileOptions (Maybe Text) (Maybe Text)
-> FileOptions -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                                             (forall s a (f :: * -> *).
(HasField s "maybe'rubyPackage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                                                @"maybe'rubyPackage")
                                                                             FileOptions
_x
                                                                       of
                                                                         Prelude.Nothing
                                                                           -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                                                         (Prelude.Just _v :: Text
_v)
                                                                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                   362)
                                                                                ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                                                   (\ bs :: ByteString
bs
                                                                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                                                 (ByteString -> Int
Data.ByteString.length
                                                                                                    ByteString
bs)))
                                                                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                                              ByteString
bs))
                                                                                   Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                                                                   Text
_v))
                                                                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                         ((UninterpretedOption -> Builder)
-> Vector UninterpretedOption -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                                                            (\ _v :: UninterpretedOption
_v
                                                                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                       7994)
                                                                                    ((ByteString -> Builder)
-> (UninterpretedOption -> ByteString)
-> UninterpretedOption
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                                                       (\ bs :: ByteString
bs
                                                                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                                                     (ByteString -> Int
Data.ByteString.length
                                                                                                        ByteString
bs)))
                                                                                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                                                  ByteString
bs))
                                                                                       UninterpretedOption -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                                                       UninterpretedOption
_v))
                                                                            (FoldLike
  (Vector UninterpretedOption)
  FileOptions
  FileOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> FileOptions -> Vector UninterpretedOption
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                                               (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                                                                                  @"vec'uninterpretedOption")
                                                                               FileOptions
_x))
                                                                         (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                                                            (FoldLike FieldSet FileOptions FileOptions FieldSet FieldSet
-> FileOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                                               FoldLike FieldSet FileOptions FileOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields
                                                                               FileOptions
_x))))))))))))))))))))))
instance Control.DeepSeq.NFData FileOptions where
  rnf :: FileOptions -> ()
rnf
    = \ x__ :: FileOptions
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FileOptions -> FieldSet
_FileOptions'_unknownFields FileOptions
x__)
             (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (FileOptions -> Maybe Text
_FileOptions'javaPackage FileOptions
x__)
                (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (FileOptions -> Maybe Text
_FileOptions'javaOuterClassname FileOptions
x__)
                   (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (FileOptions -> Maybe Bool
_FileOptions'javaMultipleFiles FileOptions
x__)
                      (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (FileOptions -> Maybe Bool
_FileOptions'javaGenerateEqualsAndHash FileOptions
x__)
                         (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (FileOptions -> Maybe Bool
_FileOptions'javaStringCheckUtf8 FileOptions
x__)
                            (Maybe FileOptions'OptimizeMode -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (FileOptions -> Maybe FileOptions'OptimizeMode
_FileOptions'optimizeFor FileOptions
x__)
                               (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (FileOptions -> Maybe Text
_FileOptions'goPackage FileOptions
x__)
                                  (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (FileOptions -> Maybe Bool
_FileOptions'ccGenericServices FileOptions
x__)
                                     (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                        (FileOptions -> Maybe Bool
_FileOptions'javaGenericServices FileOptions
x__)
                                        (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                           (FileOptions -> Maybe Bool
_FileOptions'pyGenericServices FileOptions
x__)
                                           (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                              (FileOptions -> Maybe Bool
_FileOptions'phpGenericServices FileOptions
x__)
                                              (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                 (FileOptions -> Maybe Bool
_FileOptions'deprecated FileOptions
x__)
                                                 (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                    (FileOptions -> Maybe Bool
_FileOptions'ccEnableArenas FileOptions
x__)
                                                    (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                       (FileOptions -> Maybe Text
_FileOptions'objcClassPrefix FileOptions
x__)
                                                       (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                          (FileOptions -> Maybe Text
_FileOptions'csharpNamespace FileOptions
x__)
                                                          (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                             (FileOptions -> Maybe Text
_FileOptions'swiftPrefix FileOptions
x__)
                                                             (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                (FileOptions -> Maybe Text
_FileOptions'phpClassPrefix FileOptions
x__)
                                                                (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                   (FileOptions -> Maybe Text
_FileOptions'phpNamespace FileOptions
x__)
                                                                   (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                      (FileOptions -> Maybe Text
_FileOptions'phpMetadataNamespace
                                                                         FileOptions
x__)
                                                                      (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                         (FileOptions -> Maybe Text
_FileOptions'rubyPackage
                                                                            FileOptions
x__)
                                                                         (Vector UninterpretedOption -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                                            (FileOptions -> Vector UninterpretedOption
_FileOptions'uninterpretedOption
                                                                               FileOptions
x__)
                                                                            ())))))))))))))))))))))
data FileOptions'OptimizeMode
  = FileOptions'SPEED |
    FileOptions'CODE_SIZE |
    FileOptions'LITE_RUNTIME
  deriving (Int -> FileOptions'OptimizeMode -> ShowS
[FileOptions'OptimizeMode] -> ShowS
FileOptions'OptimizeMode -> String
(Int -> FileOptions'OptimizeMode -> ShowS)
-> (FileOptions'OptimizeMode -> String)
-> ([FileOptions'OptimizeMode] -> ShowS)
-> Show FileOptions'OptimizeMode
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FileOptions'OptimizeMode] -> ShowS
$cshowList :: [FileOptions'OptimizeMode] -> ShowS
show :: FileOptions'OptimizeMode -> String
$cshow :: FileOptions'OptimizeMode -> String
showsPrec :: Int -> FileOptions'OptimizeMode -> ShowS
$cshowsPrec :: Int -> FileOptions'OptimizeMode -> ShowS
Prelude.Show, FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool
(FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool)
-> (FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool)
-> Eq FileOptions'OptimizeMode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool
$c/= :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool
== :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool
$c== :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool
Prelude.Eq, Eq FileOptions'OptimizeMode
Eq FileOptions'OptimizeMode =>
(FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Ordering)
-> (FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool)
-> (FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool)
-> (FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool)
-> (FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool)
-> (FileOptions'OptimizeMode
    -> FileOptions'OptimizeMode -> FileOptions'OptimizeMode)
-> (FileOptions'OptimizeMode
    -> FileOptions'OptimizeMode -> FileOptions'OptimizeMode)
-> Ord FileOptions'OptimizeMode
FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool
FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Ordering
FileOptions'OptimizeMode
-> FileOptions'OptimizeMode -> FileOptions'OptimizeMode
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: FileOptions'OptimizeMode
-> FileOptions'OptimizeMode -> FileOptions'OptimizeMode
$cmin :: FileOptions'OptimizeMode
-> FileOptions'OptimizeMode -> FileOptions'OptimizeMode
max :: FileOptions'OptimizeMode
-> FileOptions'OptimizeMode -> FileOptions'OptimizeMode
$cmax :: FileOptions'OptimizeMode
-> FileOptions'OptimizeMode -> FileOptions'OptimizeMode
>= :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool
$c>= :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool
> :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool
$c> :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool
<= :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool
$c<= :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool
< :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool
$c< :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Bool
compare :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Ordering
$ccompare :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode -> Ordering
$cp1Ord :: Eq FileOptions'OptimizeMode
Prelude.Ord)
instance Data.ProtoLens.MessageEnum FileOptions'OptimizeMode where
  maybeToEnum :: Int -> Maybe FileOptions'OptimizeMode
maybeToEnum 1 = FileOptions'OptimizeMode -> Maybe FileOptions'OptimizeMode
forall a. a -> Maybe a
Prelude.Just FileOptions'OptimizeMode
FileOptions'SPEED
  maybeToEnum 2 = FileOptions'OptimizeMode -> Maybe FileOptions'OptimizeMode
forall a. a -> Maybe a
Prelude.Just FileOptions'OptimizeMode
FileOptions'CODE_SIZE
  maybeToEnum 3 = FileOptions'OptimizeMode -> Maybe FileOptions'OptimizeMode
forall a. a -> Maybe a
Prelude.Just FileOptions'OptimizeMode
FileOptions'LITE_RUNTIME
  maybeToEnum _ = Maybe FileOptions'OptimizeMode
forall a. Maybe a
Prelude.Nothing
  showEnum :: FileOptions'OptimizeMode -> String
showEnum FileOptions'SPEED = "SPEED"
  showEnum FileOptions'CODE_SIZE = "CODE_SIZE"
  showEnum FileOptions'LITE_RUNTIME = "LITE_RUNTIME"
  readEnum :: String -> Maybe FileOptions'OptimizeMode
readEnum k :: String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "SPEED" = FileOptions'OptimizeMode -> Maybe FileOptions'OptimizeMode
forall a. a -> Maybe a
Prelude.Just FileOptions'OptimizeMode
FileOptions'SPEED
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "CODE_SIZE" = FileOptions'OptimizeMode -> Maybe FileOptions'OptimizeMode
forall a. a -> Maybe a
Prelude.Just FileOptions'OptimizeMode
FileOptions'CODE_SIZE
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "LITE_RUNTIME"
    = FileOptions'OptimizeMode -> Maybe FileOptions'OptimizeMode
forall a. a -> Maybe a
Prelude.Just FileOptions'OptimizeMode
FileOptions'LITE_RUNTIME
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe FileOptions'OptimizeMode)
-> Maybe FileOptions'OptimizeMode
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe FileOptions'OptimizeMode
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded FileOptions'OptimizeMode where
  minBound :: FileOptions'OptimizeMode
minBound = FileOptions'OptimizeMode
FileOptions'SPEED
  maxBound :: FileOptions'OptimizeMode
maxBound = FileOptions'OptimizeMode
FileOptions'LITE_RUNTIME
instance Prelude.Enum FileOptions'OptimizeMode where
  toEnum :: Int -> FileOptions'OptimizeMode
toEnum k__ :: Int
k__
    = FileOptions'OptimizeMode
-> (FileOptions'OptimizeMode -> FileOptions'OptimizeMode)
-> Maybe FileOptions'OptimizeMode
-> FileOptions'OptimizeMode
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> FileOptions'OptimizeMode
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              "toEnum: unknown value for enum OptimizeMode: "
              (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        FileOptions'OptimizeMode -> FileOptions'OptimizeMode
forall a. a -> a
Prelude.id
        (Int -> Maybe FileOptions'OptimizeMode
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: FileOptions'OptimizeMode -> Int
fromEnum FileOptions'SPEED = 1
  fromEnum FileOptions'CODE_SIZE = 2
  fromEnum FileOptions'LITE_RUNTIME = 3
  succ :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode
succ FileOptions'LITE_RUNTIME
    = String -> FileOptions'OptimizeMode
forall a. HasCallStack => String -> a
Prelude.error
        "FileOptions'OptimizeMode.succ: bad argument FileOptions'LITE_RUNTIME. This value would be out of bounds."
  succ FileOptions'SPEED = FileOptions'OptimizeMode
FileOptions'CODE_SIZE
  succ FileOptions'CODE_SIZE = FileOptions'OptimizeMode
FileOptions'LITE_RUNTIME
  pred :: FileOptions'OptimizeMode -> FileOptions'OptimizeMode
pred FileOptions'SPEED
    = String -> FileOptions'OptimizeMode
forall a. HasCallStack => String -> a
Prelude.error
        "FileOptions'OptimizeMode.pred: bad argument FileOptions'SPEED. This value would be out of bounds."
  pred FileOptions'CODE_SIZE = FileOptions'OptimizeMode
FileOptions'SPEED
  pred FileOptions'LITE_RUNTIME = FileOptions'OptimizeMode
FileOptions'CODE_SIZE
  enumFrom :: FileOptions'OptimizeMode -> [FileOptions'OptimizeMode]
enumFrom = FileOptions'OptimizeMode -> [FileOptions'OptimizeMode]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: FileOptions'OptimizeMode
-> FileOptions'OptimizeMode -> [FileOptions'OptimizeMode]
enumFromTo = FileOptions'OptimizeMode
-> FileOptions'OptimizeMode -> [FileOptions'OptimizeMode]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: FileOptions'OptimizeMode
-> FileOptions'OptimizeMode -> [FileOptions'OptimizeMode]
enumFromThen = FileOptions'OptimizeMode
-> FileOptions'OptimizeMode -> [FileOptions'OptimizeMode]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: FileOptions'OptimizeMode
-> FileOptions'OptimizeMode
-> FileOptions'OptimizeMode
-> [FileOptions'OptimizeMode]
enumFromThenTo = FileOptions'OptimizeMode
-> FileOptions'OptimizeMode
-> FileOptions'OptimizeMode
-> [FileOptions'OptimizeMode]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault FileOptions'OptimizeMode where
  fieldDefault :: FileOptions'OptimizeMode
fieldDefault = FileOptions'OptimizeMode
FileOptions'SPEED
instance Control.DeepSeq.NFData FileOptions'OptimizeMode where
  rnf :: FileOptions'OptimizeMode -> ()
rnf x__ :: FileOptions'OptimizeMode
x__ = FileOptions'OptimizeMode -> () -> ()
forall a b. a -> b -> b
Prelude.seq FileOptions'OptimizeMode
x__ ()
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.annotation' @:: Lens' GeneratedCodeInfo [GeneratedCodeInfo'Annotation]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'annotation' @:: Lens' GeneratedCodeInfo (Data.Vector.Vector GeneratedCodeInfo'Annotation)@ -}
data GeneratedCodeInfo
  = GeneratedCodeInfo'_constructor {GeneratedCodeInfo -> Vector GeneratedCodeInfo'Annotation
_GeneratedCodeInfo'annotation :: !(Data.Vector.Vector GeneratedCodeInfo'Annotation),
                                    GeneratedCodeInfo -> FieldSet
_GeneratedCodeInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (GeneratedCodeInfo -> GeneratedCodeInfo -> Bool
(GeneratedCodeInfo -> GeneratedCodeInfo -> Bool)
-> (GeneratedCodeInfo -> GeneratedCodeInfo -> Bool)
-> Eq GeneratedCodeInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GeneratedCodeInfo -> GeneratedCodeInfo -> Bool
$c/= :: GeneratedCodeInfo -> GeneratedCodeInfo -> Bool
== :: GeneratedCodeInfo -> GeneratedCodeInfo -> Bool
$c== :: GeneratedCodeInfo -> GeneratedCodeInfo -> Bool
Prelude.Eq, Eq GeneratedCodeInfo
Eq GeneratedCodeInfo =>
(GeneratedCodeInfo -> GeneratedCodeInfo -> Ordering)
-> (GeneratedCodeInfo -> GeneratedCodeInfo -> Bool)
-> (GeneratedCodeInfo -> GeneratedCodeInfo -> Bool)
-> (GeneratedCodeInfo -> GeneratedCodeInfo -> Bool)
-> (GeneratedCodeInfo -> GeneratedCodeInfo -> Bool)
-> (GeneratedCodeInfo -> GeneratedCodeInfo -> GeneratedCodeInfo)
-> (GeneratedCodeInfo -> GeneratedCodeInfo -> GeneratedCodeInfo)
-> Ord GeneratedCodeInfo
GeneratedCodeInfo -> GeneratedCodeInfo -> Bool
GeneratedCodeInfo -> GeneratedCodeInfo -> Ordering
GeneratedCodeInfo -> GeneratedCodeInfo -> GeneratedCodeInfo
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: GeneratedCodeInfo -> GeneratedCodeInfo -> GeneratedCodeInfo
$cmin :: GeneratedCodeInfo -> GeneratedCodeInfo -> GeneratedCodeInfo
max :: GeneratedCodeInfo -> GeneratedCodeInfo -> GeneratedCodeInfo
$cmax :: GeneratedCodeInfo -> GeneratedCodeInfo -> GeneratedCodeInfo
>= :: GeneratedCodeInfo -> GeneratedCodeInfo -> Bool
$c>= :: GeneratedCodeInfo -> GeneratedCodeInfo -> Bool
> :: GeneratedCodeInfo -> GeneratedCodeInfo -> Bool
$c> :: GeneratedCodeInfo -> GeneratedCodeInfo -> Bool
<= :: GeneratedCodeInfo -> GeneratedCodeInfo -> Bool
$c<= :: GeneratedCodeInfo -> GeneratedCodeInfo -> Bool
< :: GeneratedCodeInfo -> GeneratedCodeInfo -> Bool
$c< :: GeneratedCodeInfo -> GeneratedCodeInfo -> Bool
compare :: GeneratedCodeInfo -> GeneratedCodeInfo -> Ordering
$ccompare :: GeneratedCodeInfo -> GeneratedCodeInfo -> Ordering
$cp1Ord :: Eq GeneratedCodeInfo
Prelude.Ord)
instance Prelude.Show GeneratedCodeInfo where
  showsPrec :: Int -> GeneratedCodeInfo -> ShowS
showsPrec _ __x :: GeneratedCodeInfo
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (GeneratedCodeInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort GeneratedCodeInfo
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField GeneratedCodeInfo "annotation" [GeneratedCodeInfo'Annotation] where
  fieldOf :: Proxy# "annotation"
-> ([GeneratedCodeInfo'Annotation]
    -> f [GeneratedCodeInfo'Annotation])
-> GeneratedCodeInfo
-> f GeneratedCodeInfo
fieldOf _
    = ((Vector GeneratedCodeInfo'Annotation
  -> f (Vector GeneratedCodeInfo'Annotation))
 -> GeneratedCodeInfo -> f GeneratedCodeInfo)
-> (([GeneratedCodeInfo'Annotation]
     -> f [GeneratedCodeInfo'Annotation])
    -> Vector GeneratedCodeInfo'Annotation
    -> f (Vector GeneratedCodeInfo'Annotation))
-> ([GeneratedCodeInfo'Annotation]
    -> f [GeneratedCodeInfo'Annotation])
-> GeneratedCodeInfo
-> f GeneratedCodeInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GeneratedCodeInfo -> Vector GeneratedCodeInfo'Annotation)
-> (GeneratedCodeInfo
    -> Vector GeneratedCodeInfo'Annotation -> GeneratedCodeInfo)
-> Lens
     GeneratedCodeInfo
     GeneratedCodeInfo
     (Vector GeneratedCodeInfo'Annotation)
     (Vector GeneratedCodeInfo'Annotation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GeneratedCodeInfo -> Vector GeneratedCodeInfo'Annotation
_GeneratedCodeInfo'annotation
           (\ x__ :: GeneratedCodeInfo
x__ y__ :: Vector GeneratedCodeInfo'Annotation
y__ -> GeneratedCodeInfo
x__ {_GeneratedCodeInfo'annotation :: Vector GeneratedCodeInfo'Annotation
_GeneratedCodeInfo'annotation = Vector GeneratedCodeInfo'Annotation
y__}))
        ((Vector GeneratedCodeInfo'Annotation
 -> [GeneratedCodeInfo'Annotation])
-> (Vector GeneratedCodeInfo'Annotation
    -> [GeneratedCodeInfo'Annotation]
    -> Vector GeneratedCodeInfo'Annotation)
-> Lens
     (Vector GeneratedCodeInfo'Annotation)
     (Vector GeneratedCodeInfo'Annotation)
     [GeneratedCodeInfo'Annotation]
     [GeneratedCodeInfo'Annotation]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector GeneratedCodeInfo'Annotation
-> [GeneratedCodeInfo'Annotation]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [GeneratedCodeInfo'Annotation]
y__ -> [GeneratedCodeInfo'Annotation]
-> Vector GeneratedCodeInfo'Annotation
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [GeneratedCodeInfo'Annotation]
y__))
instance Data.ProtoLens.Field.HasField GeneratedCodeInfo "vec'annotation" (Data.Vector.Vector GeneratedCodeInfo'Annotation) where
  fieldOf :: Proxy# "vec'annotation"
-> (Vector GeneratedCodeInfo'Annotation
    -> f (Vector GeneratedCodeInfo'Annotation))
-> GeneratedCodeInfo
-> f GeneratedCodeInfo
fieldOf _
    = ((Vector GeneratedCodeInfo'Annotation
  -> f (Vector GeneratedCodeInfo'Annotation))
 -> GeneratedCodeInfo -> f GeneratedCodeInfo)
-> ((Vector GeneratedCodeInfo'Annotation
     -> f (Vector GeneratedCodeInfo'Annotation))
    -> Vector GeneratedCodeInfo'Annotation
    -> f (Vector GeneratedCodeInfo'Annotation))
-> (Vector GeneratedCodeInfo'Annotation
    -> f (Vector GeneratedCodeInfo'Annotation))
-> GeneratedCodeInfo
-> f GeneratedCodeInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GeneratedCodeInfo -> Vector GeneratedCodeInfo'Annotation)
-> (GeneratedCodeInfo
    -> Vector GeneratedCodeInfo'Annotation -> GeneratedCodeInfo)
-> Lens
     GeneratedCodeInfo
     GeneratedCodeInfo
     (Vector GeneratedCodeInfo'Annotation)
     (Vector GeneratedCodeInfo'Annotation)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GeneratedCodeInfo -> Vector GeneratedCodeInfo'Annotation
_GeneratedCodeInfo'annotation
           (\ x__ :: GeneratedCodeInfo
x__ y__ :: Vector GeneratedCodeInfo'Annotation
y__ -> GeneratedCodeInfo
x__ {_GeneratedCodeInfo'annotation :: Vector GeneratedCodeInfo'Annotation
_GeneratedCodeInfo'annotation = Vector GeneratedCodeInfo'Annotation
y__}))
        (Vector GeneratedCodeInfo'Annotation
 -> f (Vector GeneratedCodeInfo'Annotation))
-> Vector GeneratedCodeInfo'Annotation
-> f (Vector GeneratedCodeInfo'Annotation)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message GeneratedCodeInfo where
  messageName :: Proxy GeneratedCodeInfo -> Text
messageName _ = String -> Text
Data.Text.pack "google.protobuf.GeneratedCodeInfo"
  fieldsByTag :: Map Tag (FieldDescriptor GeneratedCodeInfo)
fieldsByTag
    = let
        annotation__field_descriptor :: FieldDescriptor GeneratedCodeInfo
annotation__field_descriptor
          = String
-> FieldTypeDescriptor GeneratedCodeInfo'Annotation
-> FieldAccessor GeneratedCodeInfo GeneratedCodeInfo'Annotation
-> FieldDescriptor GeneratedCodeInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "annotation"
              (MessageOrGroup -> FieldTypeDescriptor GeneratedCodeInfo'Annotation
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor GeneratedCodeInfo'Annotation)
              (Packing
-> Lens' GeneratedCodeInfo [GeneratedCodeInfo'Annotation]
-> FieldAccessor GeneratedCodeInfo GeneratedCodeInfo'Annotation
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "annotation" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"annotation")) ::
              Data.ProtoLens.FieldDescriptor GeneratedCodeInfo
      in
        [(Tag, FieldDescriptor GeneratedCodeInfo)]
-> Map Tag (FieldDescriptor GeneratedCodeInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor GeneratedCodeInfo
annotation__field_descriptor)]
  unknownFields :: LensLike' f GeneratedCodeInfo FieldSet
unknownFields
    = (GeneratedCodeInfo -> FieldSet)
-> (GeneratedCodeInfo -> FieldSet -> GeneratedCodeInfo)
-> Lens' GeneratedCodeInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        GeneratedCodeInfo -> FieldSet
_GeneratedCodeInfo'_unknownFields
        (\ x__ :: GeneratedCodeInfo
x__ y__ :: FieldSet
y__ -> GeneratedCodeInfo
x__ {_GeneratedCodeInfo'_unknownFields :: FieldSet
_GeneratedCodeInfo'_unknownFields = FieldSet
y__})
  defMessage :: GeneratedCodeInfo
defMessage
    = $WGeneratedCodeInfo'_constructor :: Vector GeneratedCodeInfo'Annotation
-> FieldSet -> GeneratedCodeInfo
GeneratedCodeInfo'_constructor
        {_GeneratedCodeInfo'annotation :: Vector GeneratedCodeInfo'Annotation
_GeneratedCodeInfo'annotation = Vector GeneratedCodeInfo'Annotation
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _GeneratedCodeInfo'_unknownFields :: FieldSet
_GeneratedCodeInfo'_unknownFields = []}
  parseMessage :: Parser GeneratedCodeInfo
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 :: GeneratedCodeInfo
-> Growing Vector RealWorld GeneratedCodeInfo'Annotation
-> Parser GeneratedCodeInfo
loop x :: GeneratedCodeInfo
x mutable'annotation :: Growing Vector RealWorld GeneratedCodeInfo'Annotation
mutable'annotation
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector GeneratedCodeInfo'Annotation
frozen'annotation <- IO (Vector GeneratedCodeInfo'Annotation)
-> Parser (Vector GeneratedCodeInfo'Annotation)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                             (Growing Vector (PrimState IO) GeneratedCodeInfo'Annotation
-> IO (Vector GeneratedCodeInfo'Annotation)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                Growing Vector RealWorld GeneratedCodeInfo'Annotation
Growing Vector (PrimState IO) GeneratedCodeInfo'Annotation
mutable'annotation)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      GeneratedCodeInfo -> Parser GeneratedCodeInfo
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter GeneratedCodeInfo GeneratedCodeInfo FieldSet FieldSet
-> (FieldSet -> FieldSet) -> GeneratedCodeInfo -> GeneratedCodeInfo
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter GeneratedCodeInfo GeneratedCodeInfo FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  GeneratedCodeInfo
  GeneratedCodeInfo
  (Vector GeneratedCodeInfo'Annotation)
  (Vector GeneratedCodeInfo'Annotation)
-> Vector GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo
-> GeneratedCodeInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'annotation" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'annotation")
                              Vector GeneratedCodeInfo'Annotation
frozen'annotation
                              GeneratedCodeInfo
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !GeneratedCodeInfo'Annotation
y <- Parser GeneratedCodeInfo'Annotation
-> String -> Parser GeneratedCodeInfo'Annotation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int
-> Parser GeneratedCodeInfo'Annotation
-> Parser GeneratedCodeInfo'Annotation
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser GeneratedCodeInfo'Annotation
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "annotation"
                                Growing Vector RealWorld GeneratedCodeInfo'Annotation
v <- IO (Growing Vector RealWorld GeneratedCodeInfo'Annotation)
-> Parser (Growing Vector RealWorld GeneratedCodeInfo'Annotation)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation
-> IO (Growing Vector (PrimState IO) GeneratedCodeInfo'Annotation)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld GeneratedCodeInfo'Annotation
Growing Vector (PrimState IO) GeneratedCodeInfo'Annotation
mutable'annotation GeneratedCodeInfo'Annotation
y)
                                GeneratedCodeInfo
-> Growing Vector RealWorld GeneratedCodeInfo'Annotation
-> Parser GeneratedCodeInfo
loop GeneratedCodeInfo
x Growing Vector RealWorld GeneratedCodeInfo'Annotation
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                GeneratedCodeInfo
-> Growing Vector RealWorld GeneratedCodeInfo'Annotation
-> Parser GeneratedCodeInfo
loop
                                  (Setter GeneratedCodeInfo GeneratedCodeInfo FieldSet FieldSet
-> (FieldSet -> FieldSet) -> GeneratedCodeInfo -> GeneratedCodeInfo
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter GeneratedCodeInfo GeneratedCodeInfo FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) GeneratedCodeInfo
x)
                                  Growing Vector RealWorld GeneratedCodeInfo'Annotation
mutable'annotation
      in
        Parser GeneratedCodeInfo -> String -> Parser GeneratedCodeInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld GeneratedCodeInfo'Annotation
mutable'annotation <- IO (Growing Vector RealWorld GeneratedCodeInfo'Annotation)
-> Parser (Growing Vector RealWorld GeneratedCodeInfo'Annotation)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                      IO (Growing Vector RealWorld GeneratedCodeInfo'Annotation)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              GeneratedCodeInfo
-> Growing Vector RealWorld GeneratedCodeInfo'Annotation
-> Parser GeneratedCodeInfo
loop GeneratedCodeInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld GeneratedCodeInfo'Annotation
mutable'annotation)
          "GeneratedCodeInfo"
  buildMessage :: GeneratedCodeInfo -> Builder
buildMessage
    = \ _x :: GeneratedCodeInfo
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((GeneratedCodeInfo'Annotation -> Builder)
-> Vector GeneratedCodeInfo'Annotation -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: GeneratedCodeInfo'Annotation
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((ByteString -> Builder)
-> (GeneratedCodeInfo'Annotation -> ByteString)
-> GeneratedCodeInfo'Annotation
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ bs :: ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           GeneratedCodeInfo'Annotation -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                           GeneratedCodeInfo'Annotation
_v))
                (FoldLike
  (Vector GeneratedCodeInfo'Annotation)
  GeneratedCodeInfo
  GeneratedCodeInfo
  (Vector GeneratedCodeInfo'Annotation)
  (Vector GeneratedCodeInfo'Annotation)
-> GeneratedCodeInfo -> Vector GeneratedCodeInfo'Annotation
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall s a (f :: * -> *).
(HasField s "vec'annotation" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'annotation") GeneratedCodeInfo
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet GeneratedCodeInfo GeneratedCodeInfo FieldSet FieldSet
-> GeneratedCodeInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet GeneratedCodeInfo GeneratedCodeInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields GeneratedCodeInfo
_x))
instance Control.DeepSeq.NFData GeneratedCodeInfo where
  rnf :: GeneratedCodeInfo -> ()
rnf
    = \ x__ :: GeneratedCodeInfo
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (GeneratedCodeInfo -> FieldSet
_GeneratedCodeInfo'_unknownFields GeneratedCodeInfo
x__)
             (Vector GeneratedCodeInfo'Annotation -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (GeneratedCodeInfo -> Vector GeneratedCodeInfo'Annotation
_GeneratedCodeInfo'annotation GeneratedCodeInfo
x__) ())
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.path' @:: Lens' GeneratedCodeInfo'Annotation [Data.Int.Int32]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'path' @:: Lens' GeneratedCodeInfo'Annotation (Data.Vector.Unboxed.Vector Data.Int.Int32)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.sourceFile' @:: Lens' GeneratedCodeInfo'Annotation Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'sourceFile' @:: Lens' GeneratedCodeInfo'Annotation (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.begin' @:: Lens' GeneratedCodeInfo'Annotation Data.Int.Int32@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'begin' @:: Lens' GeneratedCodeInfo'Annotation (Prelude.Maybe Data.Int.Int32)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.end' @:: Lens' GeneratedCodeInfo'Annotation Data.Int.Int32@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'end' @:: Lens' GeneratedCodeInfo'Annotation (Prelude.Maybe Data.Int.Int32)@ -}
data GeneratedCodeInfo'Annotation
  = GeneratedCodeInfo'Annotation'_constructor {GeneratedCodeInfo'Annotation -> Vector Int32
_GeneratedCodeInfo'Annotation'path :: !(Data.Vector.Unboxed.Vector Data.Int.Int32),
                                               GeneratedCodeInfo'Annotation -> Maybe Text
_GeneratedCodeInfo'Annotation'sourceFile :: !(Prelude.Maybe Data.Text.Text),
                                               GeneratedCodeInfo'Annotation -> Maybe Int32
_GeneratedCodeInfo'Annotation'begin :: !(Prelude.Maybe Data.Int.Int32),
                                               GeneratedCodeInfo'Annotation -> Maybe Int32
_GeneratedCodeInfo'Annotation'end :: !(Prelude.Maybe Data.Int.Int32),
                                               GeneratedCodeInfo'Annotation -> FieldSet
_GeneratedCodeInfo'Annotation'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Bool
(GeneratedCodeInfo'Annotation
 -> GeneratedCodeInfo'Annotation -> Bool)
-> (GeneratedCodeInfo'Annotation
    -> GeneratedCodeInfo'Annotation -> Bool)
-> Eq GeneratedCodeInfo'Annotation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Bool
$c/= :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Bool
== :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Bool
$c== :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Bool
Prelude.Eq, Eq GeneratedCodeInfo'Annotation
Eq GeneratedCodeInfo'Annotation =>
(GeneratedCodeInfo'Annotation
 -> GeneratedCodeInfo'Annotation -> Ordering)
-> (GeneratedCodeInfo'Annotation
    -> GeneratedCodeInfo'Annotation -> Bool)
-> (GeneratedCodeInfo'Annotation
    -> GeneratedCodeInfo'Annotation -> Bool)
-> (GeneratedCodeInfo'Annotation
    -> GeneratedCodeInfo'Annotation -> Bool)
-> (GeneratedCodeInfo'Annotation
    -> GeneratedCodeInfo'Annotation -> Bool)
-> (GeneratedCodeInfo'Annotation
    -> GeneratedCodeInfo'Annotation -> GeneratedCodeInfo'Annotation)
-> (GeneratedCodeInfo'Annotation
    -> GeneratedCodeInfo'Annotation -> GeneratedCodeInfo'Annotation)
-> Ord GeneratedCodeInfo'Annotation
GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Bool
GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Ordering
GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> GeneratedCodeInfo'Annotation
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> GeneratedCodeInfo'Annotation
$cmin :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> GeneratedCodeInfo'Annotation
max :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> GeneratedCodeInfo'Annotation
$cmax :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> GeneratedCodeInfo'Annotation
>= :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Bool
$c>= :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Bool
> :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Bool
$c> :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Bool
<= :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Bool
$c<= :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Bool
< :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Bool
$c< :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Bool
compare :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Ordering
$ccompare :: GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation -> Ordering
$cp1Ord :: Eq GeneratedCodeInfo'Annotation
Prelude.Ord)
instance Prelude.Show GeneratedCodeInfo'Annotation where
  showsPrec :: Int -> GeneratedCodeInfo'Annotation -> ShowS
showsPrec _ __x :: GeneratedCodeInfo'Annotation
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (GeneratedCodeInfo'Annotation -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort GeneratedCodeInfo'Annotation
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "path" [Data.Int.Int32] where
  fieldOf :: Proxy# "path"
-> ([Int32] -> f [Int32])
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
fieldOf _
    = ((Vector Int32 -> f (Vector Int32))
 -> GeneratedCodeInfo'Annotation -> f GeneratedCodeInfo'Annotation)
-> (([Int32] -> f [Int32]) -> Vector Int32 -> f (Vector Int32))
-> ([Int32] -> f [Int32])
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GeneratedCodeInfo'Annotation -> Vector Int32)
-> (GeneratedCodeInfo'Annotation
    -> Vector Int32 -> GeneratedCodeInfo'Annotation)
-> Lens
     GeneratedCodeInfo'Annotation
     GeneratedCodeInfo'Annotation
     (Vector Int32)
     (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GeneratedCodeInfo'Annotation -> Vector Int32
_GeneratedCodeInfo'Annotation'path
           (\ x__ :: GeneratedCodeInfo'Annotation
x__ y__ :: Vector Int32
y__ -> GeneratedCodeInfo'Annotation
x__ {_GeneratedCodeInfo'Annotation'path :: Vector Int32
_GeneratedCodeInfo'Annotation'path = Vector Int32
y__}))
        ((Vector Int32 -> [Int32])
-> (Vector Int32 -> [Int32] -> Vector Int32)
-> Lens (Vector Int32) (Vector Int32) [Int32] [Int32]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Int32 -> [Int32]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Int32]
y__ -> [Int32] -> Vector Int32
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int32]
y__))
instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "vec'path" (Data.Vector.Unboxed.Vector Data.Int.Int32) where
  fieldOf :: Proxy# "vec'path"
-> (Vector Int32 -> f (Vector Int32))
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
fieldOf _
    = ((Vector Int32 -> f (Vector Int32))
 -> GeneratedCodeInfo'Annotation -> f GeneratedCodeInfo'Annotation)
-> ((Vector Int32 -> f (Vector Int32))
    -> Vector Int32 -> f (Vector Int32))
-> (Vector Int32 -> f (Vector Int32))
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GeneratedCodeInfo'Annotation -> Vector Int32)
-> (GeneratedCodeInfo'Annotation
    -> Vector Int32 -> GeneratedCodeInfo'Annotation)
-> Lens
     GeneratedCodeInfo'Annotation
     GeneratedCodeInfo'Annotation
     (Vector Int32)
     (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GeneratedCodeInfo'Annotation -> Vector Int32
_GeneratedCodeInfo'Annotation'path
           (\ x__ :: GeneratedCodeInfo'Annotation
x__ y__ :: Vector Int32
y__ -> GeneratedCodeInfo'Annotation
x__ {_GeneratedCodeInfo'Annotation'path :: Vector Int32
_GeneratedCodeInfo'Annotation'path = Vector Int32
y__}))
        (Vector Int32 -> f (Vector Int32))
-> Vector Int32 -> f (Vector Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "sourceFile" Data.Text.Text where
  fieldOf :: Proxy# "sourceFile"
-> (Text -> f Text)
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> GeneratedCodeInfo'Annotation -> f GeneratedCodeInfo'Annotation)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GeneratedCodeInfo'Annotation -> Maybe Text)
-> (GeneratedCodeInfo'Annotation
    -> Maybe Text -> GeneratedCodeInfo'Annotation)
-> Lens
     GeneratedCodeInfo'Annotation
     GeneratedCodeInfo'Annotation
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GeneratedCodeInfo'Annotation -> Maybe Text
_GeneratedCodeInfo'Annotation'sourceFile
           (\ x__ :: GeneratedCodeInfo'Annotation
x__ y__ :: Maybe Text
y__
              -> GeneratedCodeInfo'Annotation
x__ {_GeneratedCodeInfo'Annotation'sourceFile :: Maybe Text
_GeneratedCodeInfo'Annotation'sourceFile = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "maybe'sourceFile" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'sourceFile"
-> (Maybe Text -> f (Maybe Text))
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> GeneratedCodeInfo'Annotation -> f GeneratedCodeInfo'Annotation)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GeneratedCodeInfo'Annotation -> Maybe Text)
-> (GeneratedCodeInfo'Annotation
    -> Maybe Text -> GeneratedCodeInfo'Annotation)
-> Lens
     GeneratedCodeInfo'Annotation
     GeneratedCodeInfo'Annotation
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GeneratedCodeInfo'Annotation -> Maybe Text
_GeneratedCodeInfo'Annotation'sourceFile
           (\ x__ :: GeneratedCodeInfo'Annotation
x__ y__ :: Maybe Text
y__
              -> GeneratedCodeInfo'Annotation
x__ {_GeneratedCodeInfo'Annotation'sourceFile :: Maybe Text
_GeneratedCodeInfo'Annotation'sourceFile = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "begin" Data.Int.Int32 where
  fieldOf :: Proxy# "begin"
-> (Int32 -> f Int32)
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> GeneratedCodeInfo'Annotation -> f GeneratedCodeInfo'Annotation)
-> ((Int32 -> f Int32) -> Maybe Int32 -> f (Maybe Int32))
-> (Int32 -> f Int32)
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GeneratedCodeInfo'Annotation -> Maybe Int32)
-> (GeneratedCodeInfo'Annotation
    -> Maybe Int32 -> GeneratedCodeInfo'Annotation)
-> Lens
     GeneratedCodeInfo'Annotation
     GeneratedCodeInfo'Annotation
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GeneratedCodeInfo'Annotation -> Maybe Int32
_GeneratedCodeInfo'Annotation'begin
           (\ x__ :: GeneratedCodeInfo'Annotation
x__ y__ :: Maybe Int32
y__ -> GeneratedCodeInfo'Annotation
x__ {_GeneratedCodeInfo'Annotation'begin :: Maybe Int32
_GeneratedCodeInfo'Annotation'begin = Maybe Int32
y__}))
        (Int32 -> Lens' (Maybe Int32) Int32
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "maybe'begin" (Prelude.Maybe Data.Int.Int32) where
  fieldOf :: Proxy# "maybe'begin"
-> (Maybe Int32 -> f (Maybe Int32))
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> GeneratedCodeInfo'Annotation -> f GeneratedCodeInfo'Annotation)
-> ((Maybe Int32 -> f (Maybe Int32))
    -> Maybe Int32 -> f (Maybe Int32))
-> (Maybe Int32 -> f (Maybe Int32))
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GeneratedCodeInfo'Annotation -> Maybe Int32)
-> (GeneratedCodeInfo'Annotation
    -> Maybe Int32 -> GeneratedCodeInfo'Annotation)
-> Lens
     GeneratedCodeInfo'Annotation
     GeneratedCodeInfo'Annotation
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GeneratedCodeInfo'Annotation -> Maybe Int32
_GeneratedCodeInfo'Annotation'begin
           (\ x__ :: GeneratedCodeInfo'Annotation
x__ y__ :: Maybe Int32
y__ -> GeneratedCodeInfo'Annotation
x__ {_GeneratedCodeInfo'Annotation'begin :: Maybe Int32
_GeneratedCodeInfo'Annotation'begin = Maybe Int32
y__}))
        (Maybe Int32 -> f (Maybe Int32)) -> Maybe Int32 -> f (Maybe Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "end" Data.Int.Int32 where
  fieldOf :: Proxy# "end"
-> (Int32 -> f Int32)
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> GeneratedCodeInfo'Annotation -> f GeneratedCodeInfo'Annotation)
-> ((Int32 -> f Int32) -> Maybe Int32 -> f (Maybe Int32))
-> (Int32 -> f Int32)
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GeneratedCodeInfo'Annotation -> Maybe Int32)
-> (GeneratedCodeInfo'Annotation
    -> Maybe Int32 -> GeneratedCodeInfo'Annotation)
-> Lens
     GeneratedCodeInfo'Annotation
     GeneratedCodeInfo'Annotation
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GeneratedCodeInfo'Annotation -> Maybe Int32
_GeneratedCodeInfo'Annotation'end
           (\ x__ :: GeneratedCodeInfo'Annotation
x__ y__ :: Maybe Int32
y__ -> GeneratedCodeInfo'Annotation
x__ {_GeneratedCodeInfo'Annotation'end :: Maybe Int32
_GeneratedCodeInfo'Annotation'end = Maybe Int32
y__}))
        (Int32 -> Lens' (Maybe Int32) Int32
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField GeneratedCodeInfo'Annotation "maybe'end" (Prelude.Maybe Data.Int.Int32) where
  fieldOf :: Proxy# "maybe'end"
-> (Maybe Int32 -> f (Maybe Int32))
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
fieldOf _
    = ((Maybe Int32 -> f (Maybe Int32))
 -> GeneratedCodeInfo'Annotation -> f GeneratedCodeInfo'Annotation)
-> ((Maybe Int32 -> f (Maybe Int32))
    -> Maybe Int32 -> f (Maybe Int32))
-> (Maybe Int32 -> f (Maybe Int32))
-> GeneratedCodeInfo'Annotation
-> f GeneratedCodeInfo'Annotation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GeneratedCodeInfo'Annotation -> Maybe Int32)
-> (GeneratedCodeInfo'Annotation
    -> Maybe Int32 -> GeneratedCodeInfo'Annotation)
-> Lens
     GeneratedCodeInfo'Annotation
     GeneratedCodeInfo'Annotation
     (Maybe Int32)
     (Maybe Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GeneratedCodeInfo'Annotation -> Maybe Int32
_GeneratedCodeInfo'Annotation'end
           (\ x__ :: GeneratedCodeInfo'Annotation
x__ y__ :: Maybe Int32
y__ -> GeneratedCodeInfo'Annotation
x__ {_GeneratedCodeInfo'Annotation'end :: Maybe Int32
_GeneratedCodeInfo'Annotation'end = Maybe Int32
y__}))
        (Maybe Int32 -> f (Maybe Int32)) -> Maybe Int32 -> f (Maybe Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message GeneratedCodeInfo'Annotation where
  messageName :: Proxy GeneratedCodeInfo'Annotation -> Text
messageName _
    = String -> Text
Data.Text.pack "google.protobuf.GeneratedCodeInfo.Annotation"
  fieldsByTag :: Map Tag (FieldDescriptor GeneratedCodeInfo'Annotation)
fieldsByTag
    = let
        path__field_descriptor :: FieldDescriptor GeneratedCodeInfo'Annotation
path__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor GeneratedCodeInfo'Annotation Int32
-> FieldDescriptor GeneratedCodeInfo'Annotation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "path"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Packing
-> Lens' GeneratedCodeInfo'Annotation [Int32]
-> FieldAccessor GeneratedCodeInfo'Annotation Int32
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "path" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"path")) ::
              Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation
        sourceFile__field_descriptor :: FieldDescriptor GeneratedCodeInfo'Annotation
sourceFile__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor GeneratedCodeInfo'Annotation Text
-> FieldDescriptor GeneratedCodeInfo'Annotation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "source_file"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  (Maybe Text)
  (Maybe Text)
-> FieldAccessor GeneratedCodeInfo'Annotation Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'sourceFile" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'sourceFile")) ::
              Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation
        begin__field_descriptor :: FieldDescriptor GeneratedCodeInfo'Annotation
begin__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor GeneratedCodeInfo'Annotation Int32
-> FieldDescriptor GeneratedCodeInfo'Annotation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "begin"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Lens
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  (Maybe Int32)
  (Maybe Int32)
-> FieldAccessor GeneratedCodeInfo'Annotation Int32
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'begin" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'begin")) ::
              Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation
        end__field_descriptor :: FieldDescriptor GeneratedCodeInfo'Annotation
end__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor GeneratedCodeInfo'Annotation Int32
-> FieldDescriptor GeneratedCodeInfo'Annotation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "end"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Lens
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  (Maybe Int32)
  (Maybe Int32)
-> FieldAccessor GeneratedCodeInfo'Annotation Int32
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'end" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'end")) ::
              Data.ProtoLens.FieldDescriptor GeneratedCodeInfo'Annotation
      in
        [(Tag, FieldDescriptor GeneratedCodeInfo'Annotation)]
-> Map Tag (FieldDescriptor GeneratedCodeInfo'Annotation)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor GeneratedCodeInfo'Annotation
path__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor GeneratedCodeInfo'Annotation
sourceFile__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor GeneratedCodeInfo'Annotation
begin__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor GeneratedCodeInfo'Annotation
end__field_descriptor)]
  unknownFields :: LensLike' f GeneratedCodeInfo'Annotation FieldSet
unknownFields
    = (GeneratedCodeInfo'Annotation -> FieldSet)
-> (GeneratedCodeInfo'Annotation
    -> FieldSet -> GeneratedCodeInfo'Annotation)
-> Lens' GeneratedCodeInfo'Annotation FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        GeneratedCodeInfo'Annotation -> FieldSet
_GeneratedCodeInfo'Annotation'_unknownFields
        (\ x__ :: GeneratedCodeInfo'Annotation
x__ y__ :: FieldSet
y__
           -> GeneratedCodeInfo'Annotation
x__ {_GeneratedCodeInfo'Annotation'_unknownFields :: FieldSet
_GeneratedCodeInfo'Annotation'_unknownFields = FieldSet
y__})
  defMessage :: GeneratedCodeInfo'Annotation
defMessage
    = $WGeneratedCodeInfo'Annotation'_constructor :: Vector Int32
-> Maybe Text
-> Maybe Int32
-> Maybe Int32
-> FieldSet
-> GeneratedCodeInfo'Annotation
GeneratedCodeInfo'Annotation'_constructor
        {_GeneratedCodeInfo'Annotation'path :: Vector Int32
_GeneratedCodeInfo'Annotation'path = Vector Int32
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _GeneratedCodeInfo'Annotation'sourceFile :: Maybe Text
_GeneratedCodeInfo'Annotation'sourceFile = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _GeneratedCodeInfo'Annotation'begin :: Maybe Int32
_GeneratedCodeInfo'Annotation'begin = Maybe Int32
forall a. Maybe a
Prelude.Nothing,
         _GeneratedCodeInfo'Annotation'end :: Maybe Int32
_GeneratedCodeInfo'Annotation'end = Maybe Int32
forall a. Maybe a
Prelude.Nothing,
         _GeneratedCodeInfo'Annotation'_unknownFields :: FieldSet
_GeneratedCodeInfo'Annotation'_unknownFields = []}
  parseMessage :: Parser GeneratedCodeInfo'Annotation
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 :: GeneratedCodeInfo'Annotation
-> Growing Vector RealWorld Int32
-> Parser GeneratedCodeInfo'Annotation
loop x :: GeneratedCodeInfo'Annotation
x mutable'path :: Growing Vector RealWorld Int32
mutable'path
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Int32
frozen'path <- IO (Vector Int32) -> Parser (Vector Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Int32 -> IO (Vector Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld Int32
Growing Vector (PrimState IO) Int32
mutable'path)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      GeneratedCodeInfo'Annotation -> Parser GeneratedCodeInfo'Annotation
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  (Vector Int32)
  (Vector Int32)
-> Vector Int32
-> GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'path" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'path") Vector Int32
frozen'path GeneratedCodeInfo'Annotation
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do !Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                           Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                           Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                        "path"
                                Growing Vector RealWorld Int32
v <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Int32
-> Int32 -> IO (Growing Vector (PrimState IO) Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Int32
Growing Vector (PrimState IO) Int32
mutable'path Int32
y)
                                GeneratedCodeInfo'Annotation
-> Growing Vector RealWorld Int32
-> Parser GeneratedCodeInfo'Annotation
loop GeneratedCodeInfo'Annotation
x Growing Vector RealWorld Int32
v
                        10
                          -> do Growing Vector RealWorld Int32
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Int
-> Parser (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                          ((let
                                              ploop :: Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop qs :: Growing v RealWorld a
qs
                                                = do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if Bool
packedEnd then
                                                         Growing v RealWorld a -> Parser (Growing v RealWorld a)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld a
qs
                                                     else
                                                         do !a
q <- Parser a -> String -> Parser a
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    ((Word64 -> a) -> Parser Word64 -> Parser a
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                                                       Word64 -> a
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                                                    "path"
                                                            Growing v RealWorld a
qs' <- IO (Growing v RealWorld a) -> Parser (Growing v RealWorld a)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Growing v (PrimState IO) a -> a -> IO (Growing v (PrimState IO) a)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                                                        Growing v RealWorld a
Growing v (PrimState IO) a
qs a
q)
                                                            Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop Growing v RealWorld a
qs'
                                            in forall a (v :: * -> *).
(Num a, Vector v a) =>
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop)
                                             Growing Vector RealWorld Int32
mutable'path)
                                GeneratedCodeInfo'Annotation
-> Growing Vector RealWorld Int32
-> Parser GeneratedCodeInfo'Annotation
loop GeneratedCodeInfo'Annotation
x Growing Vector RealWorld Int32
y
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "source_file"
                                GeneratedCodeInfo'Annotation
-> Growing Vector RealWorld Int32
-> Parser GeneratedCodeInfo'Annotation
loop
                                  (Setter
  GeneratedCodeInfo'Annotation GeneratedCodeInfo'Annotation Text Text
-> Text
-> GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "sourceFile" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sourceFile") Text
y GeneratedCodeInfo'Annotation
x)
                                  Growing Vector RealWorld Int32
mutable'path
                        24
                          -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "begin"
                                GeneratedCodeInfo'Annotation
-> Growing Vector RealWorld Int32
-> Parser GeneratedCodeInfo'Annotation
loop
                                  (Setter
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  Int32
  Int32
-> Int32
-> GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "begin" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"begin") Int32
y GeneratedCodeInfo'Annotation
x)
                                  Growing Vector RealWorld Int32
mutable'path
                        32
                          -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "end"
                                GeneratedCodeInfo'Annotation
-> Growing Vector RealWorld Int32
-> Parser GeneratedCodeInfo'Annotation
loop
                                  (Setter
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  Int32
  Int32
-> Int32
-> GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "end" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"end") Int32
y GeneratedCodeInfo'Annotation
x)
                                  Growing Vector RealWorld Int32
mutable'path
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                GeneratedCodeInfo'Annotation
-> Growing Vector RealWorld Int32
-> Parser GeneratedCodeInfo'Annotation
loop
                                  (Setter
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> GeneratedCodeInfo'Annotation
-> GeneratedCodeInfo'Annotation
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) GeneratedCodeInfo'Annotation
x)
                                  Growing Vector RealWorld Int32
mutable'path
      in
        Parser GeneratedCodeInfo'Annotation
-> String -> Parser GeneratedCodeInfo'Annotation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Int32
mutable'path <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                IO (Growing Vector RealWorld Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              GeneratedCodeInfo'Annotation
-> Growing Vector RealWorld Int32
-> Parser GeneratedCodeInfo'Annotation
loop GeneratedCodeInfo'Annotation
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Int32
mutable'path)
          "Annotation"
  buildMessage :: GeneratedCodeInfo'Annotation -> Builder
buildMessage
    = \ _x :: GeneratedCodeInfo'Annotation
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                p :: Vector Int32
p = FoldLike
  (Vector Int32)
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  (Vector Int32)
  (Vector Int32)
-> GeneratedCodeInfo'Annotation -> Vector Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'path" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'path") GeneratedCodeInfo'Annotation
_x
              in
                if Vector Int32 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Int32
p then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                      ((\ bs :: ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                            ((Int32 -> Builder) -> Vector Int32 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                               ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                               Vector Int32
p))))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Text)
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  (Maybe Text)
  (Maybe Text)
-> GeneratedCodeInfo'Annotation -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall s a (f :: * -> *).
(HasField s "maybe'sourceFile" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'sourceFile") GeneratedCodeInfo'Annotation
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: Text
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             Text -> ByteString
Data.Text.Encoding.encodeUtf8
                             Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe Int32)
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  (Maybe Int32)
  (Maybe Int32)
-> GeneratedCodeInfo'Annotation -> Maybe Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'begin" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'begin") GeneratedCodeInfo'Annotation
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: Int32
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 24)
                             ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe Int32)
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  (Maybe Int32)
  (Maybe Int32)
-> GeneratedCodeInfo'Annotation -> Maybe Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'end" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'end") GeneratedCodeInfo'Annotation
_x
                       of
                         Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just _v :: Int32
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 32)
                                ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike
  FieldSet
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  FieldSet
  FieldSet
-> GeneratedCodeInfo'Annotation -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  GeneratedCodeInfo'Annotation
  GeneratedCodeInfo'Annotation
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields GeneratedCodeInfo'Annotation
_x)))))
instance Control.DeepSeq.NFData GeneratedCodeInfo'Annotation where
  rnf :: GeneratedCodeInfo'Annotation -> ()
rnf
    = \ x__ :: GeneratedCodeInfo'Annotation
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (GeneratedCodeInfo'Annotation -> FieldSet
_GeneratedCodeInfo'Annotation'_unknownFields GeneratedCodeInfo'Annotation
x__)
             (Vector Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (GeneratedCodeInfo'Annotation -> Vector Int32
_GeneratedCodeInfo'Annotation'path GeneratedCodeInfo'Annotation
x__)
                (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (GeneratedCodeInfo'Annotation -> Maybe Text
_GeneratedCodeInfo'Annotation'sourceFile GeneratedCodeInfo'Annotation
x__)
                   (Maybe Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (GeneratedCodeInfo'Annotation -> Maybe Int32
_GeneratedCodeInfo'Annotation'begin GeneratedCodeInfo'Annotation
x__)
                      (Maybe Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (GeneratedCodeInfo'Annotation -> Maybe Int32
_GeneratedCodeInfo'Annotation'end GeneratedCodeInfo'Annotation
x__) ()))))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.messageSetWireFormat' @:: Lens' MessageOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'messageSetWireFormat' @:: Lens' MessageOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.noStandardDescriptorAccessor' @:: Lens' MessageOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'noStandardDescriptorAccessor' @:: Lens' MessageOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' MessageOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' MessageOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.mapEntry' @:: Lens' MessageOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'mapEntry' @:: Lens' MessageOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' MessageOptions [UninterpretedOption]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' MessageOptions (Data.Vector.Vector UninterpretedOption)@ -}
data MessageOptions
  = MessageOptions'_constructor {MessageOptions -> Maybe Bool
_MessageOptions'messageSetWireFormat :: !(Prelude.Maybe Prelude.Bool),
                                 MessageOptions -> Maybe Bool
_MessageOptions'noStandardDescriptorAccessor :: !(Prelude.Maybe Prelude.Bool),
                                 MessageOptions -> Maybe Bool
_MessageOptions'deprecated :: !(Prelude.Maybe Prelude.Bool),
                                 MessageOptions -> Maybe Bool
_MessageOptions'mapEntry :: !(Prelude.Maybe Prelude.Bool),
                                 MessageOptions -> Vector UninterpretedOption
_MessageOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption),
                                 MessageOptions -> FieldSet
_MessageOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (MessageOptions -> MessageOptions -> Bool
(MessageOptions -> MessageOptions -> Bool)
-> (MessageOptions -> MessageOptions -> Bool) -> Eq MessageOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MessageOptions -> MessageOptions -> Bool
$c/= :: MessageOptions -> MessageOptions -> Bool
== :: MessageOptions -> MessageOptions -> Bool
$c== :: MessageOptions -> MessageOptions -> Bool
Prelude.Eq, Eq MessageOptions
Eq MessageOptions =>
(MessageOptions -> MessageOptions -> Ordering)
-> (MessageOptions -> MessageOptions -> Bool)
-> (MessageOptions -> MessageOptions -> Bool)
-> (MessageOptions -> MessageOptions -> Bool)
-> (MessageOptions -> MessageOptions -> Bool)
-> (MessageOptions -> MessageOptions -> MessageOptions)
-> (MessageOptions -> MessageOptions -> MessageOptions)
-> Ord MessageOptions
MessageOptions -> MessageOptions -> Bool
MessageOptions -> MessageOptions -> Ordering
MessageOptions -> MessageOptions -> MessageOptions
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: MessageOptions -> MessageOptions -> MessageOptions
$cmin :: MessageOptions -> MessageOptions -> MessageOptions
max :: MessageOptions -> MessageOptions -> MessageOptions
$cmax :: MessageOptions -> MessageOptions -> MessageOptions
>= :: MessageOptions -> MessageOptions -> Bool
$c>= :: MessageOptions -> MessageOptions -> Bool
> :: MessageOptions -> MessageOptions -> Bool
$c> :: MessageOptions -> MessageOptions -> Bool
<= :: MessageOptions -> MessageOptions -> Bool
$c<= :: MessageOptions -> MessageOptions -> Bool
< :: MessageOptions -> MessageOptions -> Bool
$c< :: MessageOptions -> MessageOptions -> Bool
compare :: MessageOptions -> MessageOptions -> Ordering
$ccompare :: MessageOptions -> MessageOptions -> Ordering
$cp1Ord :: Eq MessageOptions
Prelude.Ord)
instance Prelude.Show MessageOptions where
  showsPrec :: Int -> MessageOptions -> ShowS
showsPrec _ __x :: MessageOptions
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (MessageOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MessageOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MessageOptions "messageSetWireFormat" Prelude.Bool where
  fieldOf :: Proxy# "messageSetWireFormat"
-> (Bool -> f Bool) -> MessageOptions -> f MessageOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> MessageOptions -> f MessageOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> MessageOptions
-> f MessageOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MessageOptions -> Maybe Bool)
-> (MessageOptions -> Maybe Bool -> MessageOptions)
-> Lens MessageOptions MessageOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MessageOptions -> Maybe Bool
_MessageOptions'messageSetWireFormat
           (\ x__ :: MessageOptions
x__ y__ :: Maybe Bool
y__ -> MessageOptions
x__ {_MessageOptions'messageSetWireFormat :: Maybe Bool
_MessageOptions'messageSetWireFormat = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField MessageOptions "maybe'messageSetWireFormat" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'messageSetWireFormat"
-> (Maybe Bool -> f (Maybe Bool))
-> MessageOptions
-> f MessageOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> MessageOptions -> f MessageOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> MessageOptions
-> f MessageOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MessageOptions -> Maybe Bool)
-> (MessageOptions -> Maybe Bool -> MessageOptions)
-> Lens MessageOptions MessageOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MessageOptions -> Maybe Bool
_MessageOptions'messageSetWireFormat
           (\ x__ :: MessageOptions
x__ y__ :: Maybe Bool
y__ -> MessageOptions
x__ {_MessageOptions'messageSetWireFormat :: Maybe Bool
_MessageOptions'messageSetWireFormat = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MessageOptions "noStandardDescriptorAccessor" Prelude.Bool where
  fieldOf :: Proxy# "noStandardDescriptorAccessor"
-> (Bool -> f Bool) -> MessageOptions -> f MessageOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> MessageOptions -> f MessageOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> MessageOptions
-> f MessageOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MessageOptions -> Maybe Bool)
-> (MessageOptions -> Maybe Bool -> MessageOptions)
-> Lens MessageOptions MessageOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MessageOptions -> Maybe Bool
_MessageOptions'noStandardDescriptorAccessor
           (\ x__ :: MessageOptions
x__ y__ :: Maybe Bool
y__
              -> MessageOptions
x__ {_MessageOptions'noStandardDescriptorAccessor :: Maybe Bool
_MessageOptions'noStandardDescriptorAccessor = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField MessageOptions "maybe'noStandardDescriptorAccessor" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'noStandardDescriptorAccessor"
-> (Maybe Bool -> f (Maybe Bool))
-> MessageOptions
-> f MessageOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> MessageOptions -> f MessageOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> MessageOptions
-> f MessageOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MessageOptions -> Maybe Bool)
-> (MessageOptions -> Maybe Bool -> MessageOptions)
-> Lens MessageOptions MessageOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MessageOptions -> Maybe Bool
_MessageOptions'noStandardDescriptorAccessor
           (\ x__ :: MessageOptions
x__ y__ :: Maybe Bool
y__
              -> MessageOptions
x__ {_MessageOptions'noStandardDescriptorAccessor :: Maybe Bool
_MessageOptions'noStandardDescriptorAccessor = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MessageOptions "deprecated" Prelude.Bool where
  fieldOf :: Proxy# "deprecated"
-> (Bool -> f Bool) -> MessageOptions -> f MessageOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> MessageOptions -> f MessageOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> MessageOptions
-> f MessageOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MessageOptions -> Maybe Bool)
-> (MessageOptions -> Maybe Bool -> MessageOptions)
-> Lens MessageOptions MessageOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MessageOptions -> Maybe Bool
_MessageOptions'deprecated
           (\ x__ :: MessageOptions
x__ y__ :: Maybe Bool
y__ -> MessageOptions
x__ {_MessageOptions'deprecated :: Maybe Bool
_MessageOptions'deprecated = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField MessageOptions "maybe'deprecated" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'deprecated"
-> (Maybe Bool -> f (Maybe Bool))
-> MessageOptions
-> f MessageOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> MessageOptions -> f MessageOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> MessageOptions
-> f MessageOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MessageOptions -> Maybe Bool)
-> (MessageOptions -> Maybe Bool -> MessageOptions)
-> Lens MessageOptions MessageOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MessageOptions -> Maybe Bool
_MessageOptions'deprecated
           (\ x__ :: MessageOptions
x__ y__ :: Maybe Bool
y__ -> MessageOptions
x__ {_MessageOptions'deprecated :: Maybe Bool
_MessageOptions'deprecated = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MessageOptions "mapEntry" Prelude.Bool where
  fieldOf :: Proxy# "mapEntry"
-> (Bool -> f Bool) -> MessageOptions -> f MessageOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> MessageOptions -> f MessageOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> MessageOptions
-> f MessageOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MessageOptions -> Maybe Bool)
-> (MessageOptions -> Maybe Bool -> MessageOptions)
-> Lens MessageOptions MessageOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MessageOptions -> Maybe Bool
_MessageOptions'mapEntry
           (\ x__ :: MessageOptions
x__ y__ :: Maybe Bool
y__ -> MessageOptions
x__ {_MessageOptions'mapEntry :: Maybe Bool
_MessageOptions'mapEntry = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField MessageOptions "maybe'mapEntry" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'mapEntry"
-> (Maybe Bool -> f (Maybe Bool))
-> MessageOptions
-> f MessageOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> MessageOptions -> f MessageOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> MessageOptions
-> f MessageOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MessageOptions -> Maybe Bool)
-> (MessageOptions -> Maybe Bool -> MessageOptions)
-> Lens MessageOptions MessageOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MessageOptions -> Maybe Bool
_MessageOptions'mapEntry
           (\ x__ :: MessageOptions
x__ y__ :: Maybe Bool
y__ -> MessageOptions
x__ {_MessageOptions'mapEntry :: Maybe Bool
_MessageOptions'mapEntry = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MessageOptions "uninterpretedOption" [UninterpretedOption] where
  fieldOf :: Proxy# "uninterpretedOption"
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> MessageOptions
-> f MessageOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> MessageOptions -> f MessageOptions)
-> (([UninterpretedOption] -> f [UninterpretedOption])
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> MessageOptions
-> f MessageOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MessageOptions -> Vector UninterpretedOption)
-> (MessageOptions -> Vector UninterpretedOption -> MessageOptions)
-> Lens
     MessageOptions
     MessageOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MessageOptions -> Vector UninterpretedOption
_MessageOptions'uninterpretedOption
           (\ x__ :: MessageOptions
x__ y__ :: Vector UninterpretedOption
y__ -> MessageOptions
x__ {_MessageOptions'uninterpretedOption :: Vector UninterpretedOption
_MessageOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        ((Vector UninterpretedOption -> [UninterpretedOption])
-> (Vector UninterpretedOption
    -> [UninterpretedOption] -> Vector UninterpretedOption)
-> Lens
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
     [UninterpretedOption]
     [UninterpretedOption]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector UninterpretedOption -> [UninterpretedOption]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [UninterpretedOption]
y__ -> [UninterpretedOption] -> Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UninterpretedOption]
y__))
instance Data.ProtoLens.Field.HasField MessageOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where
  fieldOf :: Proxy# "vec'uninterpretedOption"
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> MessageOptions
-> f MessageOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> MessageOptions -> f MessageOptions)
-> ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> MessageOptions
-> f MessageOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MessageOptions -> Vector UninterpretedOption)
-> (MessageOptions -> Vector UninterpretedOption -> MessageOptions)
-> Lens
     MessageOptions
     MessageOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MessageOptions -> Vector UninterpretedOption
_MessageOptions'uninterpretedOption
           (\ x__ :: MessageOptions
x__ y__ :: Vector UninterpretedOption
y__ -> MessageOptions
x__ {_MessageOptions'uninterpretedOption :: Vector UninterpretedOption
_MessageOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> Vector UninterpretedOption -> f (Vector UninterpretedOption)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MessageOptions where
  messageName :: Proxy MessageOptions -> Text
messageName _ = String -> Text
Data.Text.pack "google.protobuf.MessageOptions"
  fieldsByTag :: Map Tag (FieldDescriptor MessageOptions)
fieldsByTag
    = let
        messageSetWireFormat__field_descriptor :: FieldDescriptor MessageOptions
messageSetWireFormat__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor MessageOptions Bool
-> FieldDescriptor MessageOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "message_set_wire_format"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens MessageOptions MessageOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor MessageOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'messageSetWireFormat" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'messageSetWireFormat")) ::
              Data.ProtoLens.FieldDescriptor MessageOptions
        noStandardDescriptorAccessor__field_descriptor :: FieldDescriptor MessageOptions
noStandardDescriptorAccessor__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor MessageOptions Bool
-> FieldDescriptor MessageOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "no_standard_descriptor_accessor"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens MessageOptions MessageOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor MessageOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'noStandardDescriptorAccessor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                    @"maybe'noStandardDescriptorAccessor")) ::
              Data.ProtoLens.FieldDescriptor MessageOptions
        deprecated__field_descriptor :: FieldDescriptor MessageOptions
deprecated__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor MessageOptions Bool
-> FieldDescriptor MessageOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "deprecated"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens MessageOptions MessageOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor MessageOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'deprecated")) ::
              Data.ProtoLens.FieldDescriptor MessageOptions
        mapEntry__field_descriptor :: FieldDescriptor MessageOptions
mapEntry__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor MessageOptions Bool
-> FieldDescriptor MessageOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "map_entry"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens MessageOptions MessageOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor MessageOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'mapEntry" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'mapEntry")) ::
              Data.ProtoLens.FieldDescriptor MessageOptions
        uninterpretedOption__field_descriptor :: FieldDescriptor MessageOptions
uninterpretedOption__field_descriptor
          = String
-> FieldTypeDescriptor UninterpretedOption
-> FieldAccessor MessageOptions UninterpretedOption
-> FieldDescriptor MessageOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "uninterpreted_option"
              (MessageOrGroup -> FieldTypeDescriptor UninterpretedOption
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)
              (Packing
-> Lens' MessageOptions [UninterpretedOption]
-> FieldAccessor MessageOptions UninterpretedOption
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uninterpretedOption")) ::
              Data.ProtoLens.FieldDescriptor MessageOptions
      in
        [(Tag, FieldDescriptor MessageOptions)]
-> Map Tag (FieldDescriptor MessageOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MessageOptions
messageSetWireFormat__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, 
            FieldDescriptor MessageOptions
noStandardDescriptorAccessor__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor MessageOptions
deprecated__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor MessageOptions
mapEntry__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 999, FieldDescriptor MessageOptions
uninterpretedOption__field_descriptor)]
  unknownFields :: LensLike' f MessageOptions FieldSet
unknownFields
    = (MessageOptions -> FieldSet)
-> (MessageOptions -> FieldSet -> MessageOptions)
-> Lens' MessageOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MessageOptions -> FieldSet
_MessageOptions'_unknownFields
        (\ x__ :: MessageOptions
x__ y__ :: FieldSet
y__ -> MessageOptions
x__ {_MessageOptions'_unknownFields :: FieldSet
_MessageOptions'_unknownFields = FieldSet
y__})
  defMessage :: MessageOptions
defMessage
    = $WMessageOptions'_constructor :: Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Maybe Bool
-> Vector UninterpretedOption
-> FieldSet
-> MessageOptions
MessageOptions'_constructor
        {_MessageOptions'messageSetWireFormat :: Maybe Bool
_MessageOptions'messageSetWireFormat = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _MessageOptions'noStandardDescriptorAccessor :: Maybe Bool
_MessageOptions'noStandardDescriptorAccessor = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _MessageOptions'deprecated :: Maybe Bool
_MessageOptions'deprecated = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _MessageOptions'mapEntry :: Maybe Bool
_MessageOptions'mapEntry = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _MessageOptions'uninterpretedOption :: Vector UninterpretedOption
_MessageOptions'uninterpretedOption = Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MessageOptions'_unknownFields :: FieldSet
_MessageOptions'_unknownFields = []}
  parseMessage :: Parser MessageOptions
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 :: MessageOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser MessageOptions
loop x :: MessageOptions
x mutable'uninterpretedOption :: Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector UninterpretedOption
frozen'uninterpretedOption <- IO (Vector UninterpretedOption)
-> Parser (Vector UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                      (Growing Vector (PrimState IO) UninterpretedOption
-> IO (Vector UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                         Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      MessageOptions -> Parser MessageOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter MessageOptions MessageOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MessageOptions -> MessageOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter MessageOptions MessageOptions FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  MessageOptions
  MessageOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> Vector UninterpretedOption -> MessageOptions -> MessageOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption")
                              Vector UninterpretedOption
frozen'uninterpretedOption
                              MessageOptions
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "message_set_wire_format"
                                MessageOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser MessageOptions
loop
                                  (Setter MessageOptions MessageOptions Bool Bool
-> Bool -> MessageOptions -> MessageOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "messageSetWireFormat" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"messageSetWireFormat") Bool
y MessageOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        16
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "no_standard_descriptor_accessor"
                                MessageOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser MessageOptions
loop
                                  (Setter MessageOptions MessageOptions Bool Bool
-> Bool -> MessageOptions -> MessageOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "noStandardDescriptorAccessor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"noStandardDescriptorAccessor")
                                     Bool
y
                                     MessageOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        24
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "deprecated"
                                MessageOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser MessageOptions
loop
                                  (Setter MessageOptions MessageOptions Bool Bool
-> Bool -> MessageOptions -> MessageOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deprecated") Bool
y MessageOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        56
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "map_entry"
                                MessageOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser MessageOptions
loop
                                  (Setter MessageOptions MessageOptions Bool Bool
-> Bool -> MessageOptions -> MessageOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "mapEntry" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"mapEntry") Bool
y MessageOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        7994
                          -> do !UninterpretedOption
y <- Parser UninterpretedOption -> String -> Parser UninterpretedOption
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser UninterpretedOption -> Parser UninterpretedOption
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser UninterpretedOption
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "uninterpreted_option"
                                Growing Vector RealWorld UninterpretedOption
v <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) UninterpretedOption
-> UninterpretedOption
-> IO (Growing Vector (PrimState IO) UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption UninterpretedOption
y)
                                MessageOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser MessageOptions
loop MessageOptions
x Growing Vector RealWorld UninterpretedOption
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                MessageOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser MessageOptions
loop
                                  (Setter MessageOptions MessageOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MessageOptions -> MessageOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter MessageOptions MessageOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MessageOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
      in
        Parser MessageOptions -> String -> Parser MessageOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               IO (Growing Vector RealWorld UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              MessageOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser MessageOptions
loop MessageOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption)
          "MessageOptions"
  buildMessage :: MessageOptions -> Builder
buildMessage
    = \ _x :: MessageOptions
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Bool)
  MessageOptions
  MessageOptions
  (Maybe Bool)
  (Maybe Bool)
-> MessageOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                    (forall s a (f :: * -> *).
(HasField s "maybe'messageSetWireFormat" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'messageSetWireFormat") MessageOptions
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Bool
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 8)
                       ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                          (\ b :: Bool
b -> if Bool
b then 1 else 0)
                          Bool
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Bool)
  MessageOptions
  MessageOptions
  (Maybe Bool)
  (Maybe Bool)
-> MessageOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall s a (f :: * -> *).
(HasField s "maybe'noStandardDescriptorAccessor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'noStandardDescriptorAccessor")
                       MessageOptions
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: Bool
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 16)
                          ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                             (\ b :: Bool
b -> if Bool
b then 1 else 0)
                             Bool
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe Bool)
  MessageOptions
  MessageOptions
  (Maybe Bool)
  (Maybe Bool)
-> MessageOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall s a (f :: * -> *).
(HasField s "maybe'deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'deprecated") MessageOptions
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: Bool
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 24)
                             ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                Bool
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe Bool)
  MessageOptions
  MessageOptions
  (Maybe Bool)
  (Maybe Bool)
-> MessageOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'mapEntry" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'mapEntry") MessageOptions
_x
                       of
                         Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just _v :: Bool
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 56)
                                ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                   (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                   Bool
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         ((UninterpretedOption -> Builder)
-> Vector UninterpretedOption -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                            (\ _v :: UninterpretedOption
_v
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 7994)
                                    ((ByteString -> Builder)
-> (UninterpretedOption -> ByteString)
-> UninterpretedOption
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                       (\ bs :: ByteString
bs
                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                     (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                       UninterpretedOption -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                       UninterpretedOption
_v))
                            (FoldLike
  (Vector UninterpretedOption)
  MessageOptions
  MessageOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> MessageOptions -> Vector UninterpretedOption
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                               (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption") MessageOptions
_x))
                         (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                            (FoldLike FieldSet MessageOptions MessageOptions FieldSet FieldSet
-> MessageOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet MessageOptions MessageOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MessageOptions
_x))))))
instance Control.DeepSeq.NFData MessageOptions where
  rnf :: MessageOptions -> ()
rnf
    = \ x__ :: MessageOptions
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MessageOptions -> FieldSet
_MessageOptions'_unknownFields MessageOptions
x__)
             (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MessageOptions -> Maybe Bool
_MessageOptions'messageSetWireFormat MessageOptions
x__)
                (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (MessageOptions -> Maybe Bool
_MessageOptions'noStandardDescriptorAccessor MessageOptions
x__)
                   (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (MessageOptions -> Maybe Bool
_MessageOptions'deprecated MessageOptions
x__)
                      (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (MessageOptions -> Maybe Bool
_MessageOptions'mapEntry MessageOptions
x__)
                         (Vector UninterpretedOption -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (MessageOptions -> Vector UninterpretedOption
_MessageOptions'uninterpretedOption MessageOptions
x__) ())))))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' MethodDescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' MethodDescriptorProto (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.inputType' @:: Lens' MethodDescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'inputType' @:: Lens' MethodDescriptorProto (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.outputType' @:: Lens' MethodDescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'outputType' @:: Lens' MethodDescriptorProto (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' MethodDescriptorProto MethodOptions@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' MethodDescriptorProto (Prelude.Maybe MethodOptions)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.clientStreaming' @:: Lens' MethodDescriptorProto Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'clientStreaming' @:: Lens' MethodDescriptorProto (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.serverStreaming' @:: Lens' MethodDescriptorProto Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'serverStreaming' @:: Lens' MethodDescriptorProto (Prelude.Maybe Prelude.Bool)@ -}
data MethodDescriptorProto
  = MethodDescriptorProto'_constructor {MethodDescriptorProto -> Maybe Text
_MethodDescriptorProto'name :: !(Prelude.Maybe Data.Text.Text),
                                        MethodDescriptorProto -> Maybe Text
_MethodDescriptorProto'inputType :: !(Prelude.Maybe Data.Text.Text),
                                        MethodDescriptorProto -> Maybe Text
_MethodDescriptorProto'outputType :: !(Prelude.Maybe Data.Text.Text),
                                        MethodDescriptorProto -> Maybe MethodOptions
_MethodDescriptorProto'options :: !(Prelude.Maybe MethodOptions),
                                        MethodDescriptorProto -> Maybe Bool
_MethodDescriptorProto'clientStreaming :: !(Prelude.Maybe Prelude.Bool),
                                        MethodDescriptorProto -> Maybe Bool
_MethodDescriptorProto'serverStreaming :: !(Prelude.Maybe Prelude.Bool),
                                        MethodDescriptorProto -> FieldSet
_MethodDescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (MethodDescriptorProto -> MethodDescriptorProto -> Bool
(MethodDescriptorProto -> MethodDescriptorProto -> Bool)
-> (MethodDescriptorProto -> MethodDescriptorProto -> Bool)
-> Eq MethodDescriptorProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MethodDescriptorProto -> MethodDescriptorProto -> Bool
$c/= :: MethodDescriptorProto -> MethodDescriptorProto -> Bool
== :: MethodDescriptorProto -> MethodDescriptorProto -> Bool
$c== :: MethodDescriptorProto -> MethodDescriptorProto -> Bool
Prelude.Eq, Eq MethodDescriptorProto
Eq MethodDescriptorProto =>
(MethodDescriptorProto -> MethodDescriptorProto -> Ordering)
-> (MethodDescriptorProto -> MethodDescriptorProto -> Bool)
-> (MethodDescriptorProto -> MethodDescriptorProto -> Bool)
-> (MethodDescriptorProto -> MethodDescriptorProto -> Bool)
-> (MethodDescriptorProto -> MethodDescriptorProto -> Bool)
-> (MethodDescriptorProto
    -> MethodDescriptorProto -> MethodDescriptorProto)
-> (MethodDescriptorProto
    -> MethodDescriptorProto -> MethodDescriptorProto)
-> Ord MethodDescriptorProto
MethodDescriptorProto -> MethodDescriptorProto -> Bool
MethodDescriptorProto -> MethodDescriptorProto -> Ordering
MethodDescriptorProto
-> MethodDescriptorProto -> MethodDescriptorProto
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: MethodDescriptorProto
-> MethodDescriptorProto -> MethodDescriptorProto
$cmin :: MethodDescriptorProto
-> MethodDescriptorProto -> MethodDescriptorProto
max :: MethodDescriptorProto
-> MethodDescriptorProto -> MethodDescriptorProto
$cmax :: MethodDescriptorProto
-> MethodDescriptorProto -> MethodDescriptorProto
>= :: MethodDescriptorProto -> MethodDescriptorProto -> Bool
$c>= :: MethodDescriptorProto -> MethodDescriptorProto -> Bool
> :: MethodDescriptorProto -> MethodDescriptorProto -> Bool
$c> :: MethodDescriptorProto -> MethodDescriptorProto -> Bool
<= :: MethodDescriptorProto -> MethodDescriptorProto -> Bool
$c<= :: MethodDescriptorProto -> MethodDescriptorProto -> Bool
< :: MethodDescriptorProto -> MethodDescriptorProto -> Bool
$c< :: MethodDescriptorProto -> MethodDescriptorProto -> Bool
compare :: MethodDescriptorProto -> MethodDescriptorProto -> Ordering
$ccompare :: MethodDescriptorProto -> MethodDescriptorProto -> Ordering
$cp1Ord :: Eq MethodDescriptorProto
Prelude.Ord)
instance Prelude.Show MethodDescriptorProto where
  showsPrec :: Int -> MethodDescriptorProto -> ShowS
showsPrec _ __x :: MethodDescriptorProto
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (MethodDescriptorProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MethodDescriptorProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MethodDescriptorProto "name" Data.Text.Text where
  fieldOf :: Proxy# "name"
-> (Text -> f Text)
-> MethodDescriptorProto
-> f MethodDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> MethodDescriptorProto -> f MethodDescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> MethodDescriptorProto
-> f MethodDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodDescriptorProto -> Maybe Text)
-> (MethodDescriptorProto -> Maybe Text -> MethodDescriptorProto)
-> Lens
     MethodDescriptorProto
     MethodDescriptorProto
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodDescriptorProto -> Maybe Text
_MethodDescriptorProto'name
           (\ x__ :: MethodDescriptorProto
x__ y__ :: Maybe Text
y__ -> MethodDescriptorProto
x__ {_MethodDescriptorProto'name :: Maybe Text
_MethodDescriptorProto'name = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField MethodDescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'name"
-> (Maybe Text -> f (Maybe Text))
-> MethodDescriptorProto
-> f MethodDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> MethodDescriptorProto -> f MethodDescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> MethodDescriptorProto
-> f MethodDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodDescriptorProto -> Maybe Text)
-> (MethodDescriptorProto -> Maybe Text -> MethodDescriptorProto)
-> Lens
     MethodDescriptorProto
     MethodDescriptorProto
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodDescriptorProto -> Maybe Text
_MethodDescriptorProto'name
           (\ x__ :: MethodDescriptorProto
x__ y__ :: Maybe Text
y__ -> MethodDescriptorProto
x__ {_MethodDescriptorProto'name :: Maybe Text
_MethodDescriptorProto'name = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MethodDescriptorProto "inputType" Data.Text.Text where
  fieldOf :: Proxy# "inputType"
-> (Text -> f Text)
-> MethodDescriptorProto
-> f MethodDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> MethodDescriptorProto -> f MethodDescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> MethodDescriptorProto
-> f MethodDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodDescriptorProto -> Maybe Text)
-> (MethodDescriptorProto -> Maybe Text -> MethodDescriptorProto)
-> Lens
     MethodDescriptorProto
     MethodDescriptorProto
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodDescriptorProto -> Maybe Text
_MethodDescriptorProto'inputType
           (\ x__ :: MethodDescriptorProto
x__ y__ :: Maybe Text
y__ -> MethodDescriptorProto
x__ {_MethodDescriptorProto'inputType :: Maybe Text
_MethodDescriptorProto'inputType = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField MethodDescriptorProto "maybe'inputType" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'inputType"
-> (Maybe Text -> f (Maybe Text))
-> MethodDescriptorProto
-> f MethodDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> MethodDescriptorProto -> f MethodDescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> MethodDescriptorProto
-> f MethodDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodDescriptorProto -> Maybe Text)
-> (MethodDescriptorProto -> Maybe Text -> MethodDescriptorProto)
-> Lens
     MethodDescriptorProto
     MethodDescriptorProto
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodDescriptorProto -> Maybe Text
_MethodDescriptorProto'inputType
           (\ x__ :: MethodDescriptorProto
x__ y__ :: Maybe Text
y__ -> MethodDescriptorProto
x__ {_MethodDescriptorProto'inputType :: Maybe Text
_MethodDescriptorProto'inputType = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MethodDescriptorProto "outputType" Data.Text.Text where
  fieldOf :: Proxy# "outputType"
-> (Text -> f Text)
-> MethodDescriptorProto
-> f MethodDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> MethodDescriptorProto -> f MethodDescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> MethodDescriptorProto
-> f MethodDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodDescriptorProto -> Maybe Text)
-> (MethodDescriptorProto -> Maybe Text -> MethodDescriptorProto)
-> Lens
     MethodDescriptorProto
     MethodDescriptorProto
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodDescriptorProto -> Maybe Text
_MethodDescriptorProto'outputType
           (\ x__ :: MethodDescriptorProto
x__ y__ :: Maybe Text
y__ -> MethodDescriptorProto
x__ {_MethodDescriptorProto'outputType :: Maybe Text
_MethodDescriptorProto'outputType = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField MethodDescriptorProto "maybe'outputType" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'outputType"
-> (Maybe Text -> f (Maybe Text))
-> MethodDescriptorProto
-> f MethodDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> MethodDescriptorProto -> f MethodDescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> MethodDescriptorProto
-> f MethodDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodDescriptorProto -> Maybe Text)
-> (MethodDescriptorProto -> Maybe Text -> MethodDescriptorProto)
-> Lens
     MethodDescriptorProto
     MethodDescriptorProto
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodDescriptorProto -> Maybe Text
_MethodDescriptorProto'outputType
           (\ x__ :: MethodDescriptorProto
x__ y__ :: Maybe Text
y__ -> MethodDescriptorProto
x__ {_MethodDescriptorProto'outputType :: Maybe Text
_MethodDescriptorProto'outputType = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MethodDescriptorProto "options" MethodOptions where
  fieldOf :: Proxy# "options"
-> (MethodOptions -> f MethodOptions)
-> MethodDescriptorProto
-> f MethodDescriptorProto
fieldOf _
    = ((Maybe MethodOptions -> f (Maybe MethodOptions))
 -> MethodDescriptorProto -> f MethodDescriptorProto)
-> ((MethodOptions -> f MethodOptions)
    -> Maybe MethodOptions -> f (Maybe MethodOptions))
-> (MethodOptions -> f MethodOptions)
-> MethodDescriptorProto
-> f MethodDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodDescriptorProto -> Maybe MethodOptions)
-> (MethodDescriptorProto
    -> Maybe MethodOptions -> MethodDescriptorProto)
-> Lens
     MethodDescriptorProto
     MethodDescriptorProto
     (Maybe MethodOptions)
     (Maybe MethodOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodDescriptorProto -> Maybe MethodOptions
_MethodDescriptorProto'options
           (\ x__ :: MethodDescriptorProto
x__ y__ :: Maybe MethodOptions
y__ -> MethodDescriptorProto
x__ {_MethodDescriptorProto'options :: Maybe MethodOptions
_MethodDescriptorProto'options = Maybe MethodOptions
y__}))
        (MethodOptions -> Lens' (Maybe MethodOptions) MethodOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens MethodOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MethodDescriptorProto "maybe'options" (Prelude.Maybe MethodOptions) where
  fieldOf :: Proxy# "maybe'options"
-> (Maybe MethodOptions -> f (Maybe MethodOptions))
-> MethodDescriptorProto
-> f MethodDescriptorProto
fieldOf _
    = ((Maybe MethodOptions -> f (Maybe MethodOptions))
 -> MethodDescriptorProto -> f MethodDescriptorProto)
-> ((Maybe MethodOptions -> f (Maybe MethodOptions))
    -> Maybe MethodOptions -> f (Maybe MethodOptions))
-> (Maybe MethodOptions -> f (Maybe MethodOptions))
-> MethodDescriptorProto
-> f MethodDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodDescriptorProto -> Maybe MethodOptions)
-> (MethodDescriptorProto
    -> Maybe MethodOptions -> MethodDescriptorProto)
-> Lens
     MethodDescriptorProto
     MethodDescriptorProto
     (Maybe MethodOptions)
     (Maybe MethodOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodDescriptorProto -> Maybe MethodOptions
_MethodDescriptorProto'options
           (\ x__ :: MethodDescriptorProto
x__ y__ :: Maybe MethodOptions
y__ -> MethodDescriptorProto
x__ {_MethodDescriptorProto'options :: Maybe MethodOptions
_MethodDescriptorProto'options = Maybe MethodOptions
y__}))
        (Maybe MethodOptions -> f (Maybe MethodOptions))
-> Maybe MethodOptions -> f (Maybe MethodOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MethodDescriptorProto "clientStreaming" Prelude.Bool where
  fieldOf :: Proxy# "clientStreaming"
-> (Bool -> f Bool)
-> MethodDescriptorProto
-> f MethodDescriptorProto
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> MethodDescriptorProto -> f MethodDescriptorProto)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> MethodDescriptorProto
-> f MethodDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodDescriptorProto -> Maybe Bool)
-> (MethodDescriptorProto -> Maybe Bool -> MethodDescriptorProto)
-> Lens
     MethodDescriptorProto
     MethodDescriptorProto
     (Maybe Bool)
     (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodDescriptorProto -> Maybe Bool
_MethodDescriptorProto'clientStreaming
           (\ x__ :: MethodDescriptorProto
x__ y__ :: Maybe Bool
y__ -> MethodDescriptorProto
x__ {_MethodDescriptorProto'clientStreaming :: Maybe Bool
_MethodDescriptorProto'clientStreaming = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField MethodDescriptorProto "maybe'clientStreaming" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'clientStreaming"
-> (Maybe Bool -> f (Maybe Bool))
-> MethodDescriptorProto
-> f MethodDescriptorProto
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> MethodDescriptorProto -> f MethodDescriptorProto)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> MethodDescriptorProto
-> f MethodDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodDescriptorProto -> Maybe Bool)
-> (MethodDescriptorProto -> Maybe Bool -> MethodDescriptorProto)
-> Lens
     MethodDescriptorProto
     MethodDescriptorProto
     (Maybe Bool)
     (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodDescriptorProto -> Maybe Bool
_MethodDescriptorProto'clientStreaming
           (\ x__ :: MethodDescriptorProto
x__ y__ :: Maybe Bool
y__ -> MethodDescriptorProto
x__ {_MethodDescriptorProto'clientStreaming :: Maybe Bool
_MethodDescriptorProto'clientStreaming = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MethodDescriptorProto "serverStreaming" Prelude.Bool where
  fieldOf :: Proxy# "serverStreaming"
-> (Bool -> f Bool)
-> MethodDescriptorProto
-> f MethodDescriptorProto
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> MethodDescriptorProto -> f MethodDescriptorProto)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> MethodDescriptorProto
-> f MethodDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodDescriptorProto -> Maybe Bool)
-> (MethodDescriptorProto -> Maybe Bool -> MethodDescriptorProto)
-> Lens
     MethodDescriptorProto
     MethodDescriptorProto
     (Maybe Bool)
     (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodDescriptorProto -> Maybe Bool
_MethodDescriptorProto'serverStreaming
           (\ x__ :: MethodDescriptorProto
x__ y__ :: Maybe Bool
y__ -> MethodDescriptorProto
x__ {_MethodDescriptorProto'serverStreaming :: Maybe Bool
_MethodDescriptorProto'serverStreaming = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField MethodDescriptorProto "maybe'serverStreaming" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'serverStreaming"
-> (Maybe Bool -> f (Maybe Bool))
-> MethodDescriptorProto
-> f MethodDescriptorProto
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> MethodDescriptorProto -> f MethodDescriptorProto)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> MethodDescriptorProto
-> f MethodDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodDescriptorProto -> Maybe Bool)
-> (MethodDescriptorProto -> Maybe Bool -> MethodDescriptorProto)
-> Lens
     MethodDescriptorProto
     MethodDescriptorProto
     (Maybe Bool)
     (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodDescriptorProto -> Maybe Bool
_MethodDescriptorProto'serverStreaming
           (\ x__ :: MethodDescriptorProto
x__ y__ :: Maybe Bool
y__ -> MethodDescriptorProto
x__ {_MethodDescriptorProto'serverStreaming :: Maybe Bool
_MethodDescriptorProto'serverStreaming = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MethodDescriptorProto where
  messageName :: Proxy MethodDescriptorProto -> Text
messageName _
    = String -> Text
Data.Text.pack "google.protobuf.MethodDescriptorProto"
  fieldsByTag :: Map Tag (FieldDescriptor MethodDescriptorProto)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor MethodDescriptorProto
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor MethodDescriptorProto Text
-> FieldDescriptor MethodDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  MethodDescriptorProto
  MethodDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> FieldAccessor MethodDescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name")) ::
              Data.ProtoLens.FieldDescriptor MethodDescriptorProto
        inputType__field_descriptor :: FieldDescriptor MethodDescriptorProto
inputType__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor MethodDescriptorProto Text
-> FieldDescriptor MethodDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "input_type"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  MethodDescriptorProto
  MethodDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> FieldAccessor MethodDescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'inputType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'inputType")) ::
              Data.ProtoLens.FieldDescriptor MethodDescriptorProto
        outputType__field_descriptor :: FieldDescriptor MethodDescriptorProto
outputType__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor MethodDescriptorProto Text
-> FieldDescriptor MethodDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "output_type"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  MethodDescriptorProto
  MethodDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> FieldAccessor MethodDescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'outputType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'outputType")) ::
              Data.ProtoLens.FieldDescriptor MethodDescriptorProto
        options__field_descriptor :: FieldDescriptor MethodDescriptorProto
options__field_descriptor
          = String
-> FieldTypeDescriptor MethodOptions
-> FieldAccessor MethodDescriptorProto MethodOptions
-> FieldDescriptor MethodDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "options"
              (MessageOrGroup -> FieldTypeDescriptor MethodOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor MethodOptions)
              (Lens
  MethodDescriptorProto
  MethodDescriptorProto
  (Maybe MethodOptions)
  (Maybe MethodOptions)
-> FieldAccessor MethodDescriptorProto MethodOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options")) ::
              Data.ProtoLens.FieldDescriptor MethodDescriptorProto
        clientStreaming__field_descriptor :: FieldDescriptor MethodDescriptorProto
clientStreaming__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor MethodDescriptorProto Bool
-> FieldDescriptor MethodDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "client_streaming"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens
  MethodDescriptorProto
  MethodDescriptorProto
  (Maybe Bool)
  (Maybe Bool)
-> FieldAccessor MethodDescriptorProto Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'clientStreaming" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'clientStreaming")) ::
              Data.ProtoLens.FieldDescriptor MethodDescriptorProto
        serverStreaming__field_descriptor :: FieldDescriptor MethodDescriptorProto
serverStreaming__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor MethodDescriptorProto Bool
-> FieldDescriptor MethodDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "server_streaming"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens
  MethodDescriptorProto
  MethodDescriptorProto
  (Maybe Bool)
  (Maybe Bool)
-> FieldAccessor MethodDescriptorProto Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'serverStreaming" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'serverStreaming")) ::
              Data.ProtoLens.FieldDescriptor MethodDescriptorProto
      in
        [(Tag, FieldDescriptor MethodDescriptorProto)]
-> Map Tag (FieldDescriptor MethodDescriptorProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MethodDescriptorProto
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MethodDescriptorProto
inputType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor MethodDescriptorProto
outputType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor MethodDescriptorProto
options__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor MethodDescriptorProto
clientStreaming__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor MethodDescriptorProto
serverStreaming__field_descriptor)]
  unknownFields :: LensLike' f MethodDescriptorProto FieldSet
unknownFields
    = (MethodDescriptorProto -> FieldSet)
-> (MethodDescriptorProto -> FieldSet -> MethodDescriptorProto)
-> Lens' MethodDescriptorProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MethodDescriptorProto -> FieldSet
_MethodDescriptorProto'_unknownFields
        (\ x__ :: MethodDescriptorProto
x__ y__ :: FieldSet
y__ -> MethodDescriptorProto
x__ {_MethodDescriptorProto'_unknownFields :: FieldSet
_MethodDescriptorProto'_unknownFields = FieldSet
y__})
  defMessage :: MethodDescriptorProto
defMessage
    = $WMethodDescriptorProto'_constructor :: Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe MethodOptions
-> Maybe Bool
-> Maybe Bool
-> FieldSet
-> MethodDescriptorProto
MethodDescriptorProto'_constructor
        {_MethodDescriptorProto'name :: Maybe Text
_MethodDescriptorProto'name = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _MethodDescriptorProto'inputType :: Maybe Text
_MethodDescriptorProto'inputType = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _MethodDescriptorProto'outputType :: Maybe Text
_MethodDescriptorProto'outputType = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _MethodDescriptorProto'options :: Maybe MethodOptions
_MethodDescriptorProto'options = Maybe MethodOptions
forall a. Maybe a
Prelude.Nothing,
         _MethodDescriptorProto'clientStreaming :: Maybe Bool
_MethodDescriptorProto'clientStreaming = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _MethodDescriptorProto'serverStreaming :: Maybe Bool
_MethodDescriptorProto'serverStreaming = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _MethodDescriptorProto'_unknownFields :: FieldSet
_MethodDescriptorProto'_unknownFields = []}
  parseMessage :: Parser MethodDescriptorProto
parseMessage
    = let
        loop ::
          MethodDescriptorProto
          -> Data.ProtoLens.Encoding.Bytes.Parser MethodDescriptorProto
        loop :: MethodDescriptorProto -> Parser MethodDescriptorProto
loop x :: MethodDescriptorProto
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      MethodDescriptorProto -> Parser MethodDescriptorProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  MethodDescriptorProto MethodDescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MethodDescriptorProto
-> MethodDescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  MethodDescriptorProto MethodDescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MethodDescriptorProto
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "name"
                                MethodDescriptorProto -> Parser MethodDescriptorProto
loop (Setter MethodDescriptorProto MethodDescriptorProto Text Text
-> Text -> MethodDescriptorProto -> MethodDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y MethodDescriptorProto
x)
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "input_type"
                                MethodDescriptorProto -> Parser MethodDescriptorProto
loop
                                  (Setter MethodDescriptorProto MethodDescriptorProto Text Text
-> Text -> MethodDescriptorProto -> MethodDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "inputType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"inputType") Text
y MethodDescriptorProto
x)
                        26
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "output_type"
                                MethodDescriptorProto -> Parser MethodDescriptorProto
loop
                                  (Setter MethodDescriptorProto MethodDescriptorProto Text Text
-> Text -> MethodDescriptorProto -> MethodDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "outputType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"outputType") Text
y MethodDescriptorProto
x)
                        34
                          -> do MethodOptions
y <- Parser MethodOptions -> String -> Parser MethodOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser MethodOptions -> Parser MethodOptions
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser MethodOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "options"
                                MethodDescriptorProto -> Parser MethodDescriptorProto
loop (Setter
  MethodDescriptorProto
  MethodDescriptorProto
  MethodOptions
  MethodOptions
-> MethodOptions -> MethodDescriptorProto -> MethodDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"options") MethodOptions
y MethodDescriptorProto
x)
                        40
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "client_streaming"
                                MethodDescriptorProto -> Parser MethodDescriptorProto
loop
                                  (Setter MethodDescriptorProto MethodDescriptorProto Bool Bool
-> Bool -> MethodDescriptorProto -> MethodDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "clientStreaming" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"clientStreaming") Bool
y MethodDescriptorProto
x)
                        48
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "server_streaming"
                                MethodDescriptorProto -> Parser MethodDescriptorProto
loop
                                  (Setter MethodDescriptorProto MethodDescriptorProto Bool Bool
-> Bool -> MethodDescriptorProto -> MethodDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "serverStreaming" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"serverStreaming") Bool
y MethodDescriptorProto
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                MethodDescriptorProto -> Parser MethodDescriptorProto
loop
                                  (Setter
  MethodDescriptorProto MethodDescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MethodDescriptorProto
-> MethodDescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  MethodDescriptorProto MethodDescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MethodDescriptorProto
x)
      in
        Parser MethodDescriptorProto
-> String -> Parser MethodDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do MethodDescriptorProto -> Parser MethodDescriptorProto
loop MethodDescriptorProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "MethodDescriptorProto"
  buildMessage :: MethodDescriptorProto -> Builder
buildMessage
    = \ _x :: MethodDescriptorProto
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Text)
  MethodDescriptorProto
  MethodDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> MethodDescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name") MethodDescriptorProto
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Text
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Text -> ByteString
Data.Text.Encoding.encodeUtf8
                          Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Text)
  MethodDescriptorProto
  MethodDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> MethodDescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall s a (f :: * -> *).
(HasField s "maybe'inputType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'inputType") MethodDescriptorProto
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: Text
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             Text -> ByteString
Data.Text.Encoding.encodeUtf8
                             Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe Text)
  MethodDescriptorProto
  MethodDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> MethodDescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall s a (f :: * -> *).
(HasField s "maybe'outputType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'outputType") MethodDescriptorProto
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: Text
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                             ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ bs :: ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                Text
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe MethodOptions)
  MethodDescriptorProto
  MethodDescriptorProto
  (Maybe MethodOptions)
  (Maybe MethodOptions)
-> MethodDescriptorProto -> Maybe MethodOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options") MethodDescriptorProto
_x
                       of
                         Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just _v :: MethodOptions
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
                                ((ByteString -> Builder)
-> (MethodOptions -> ByteString) -> MethodOptions -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   (\ bs :: ByteString
bs
                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                   MethodOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                   MethodOptions
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (case
                              FoldLike
  (Maybe Bool)
  MethodDescriptorProto
  MethodDescriptorProto
  (Maybe Bool)
  (Maybe Bool)
-> MethodDescriptorProto -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                (forall s a (f :: * -> *).
(HasField s "maybe'clientStreaming" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'clientStreaming") MethodDescriptorProto
_x
                          of
                            Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            (Prelude.Just _v :: Bool
_v)
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 40)
                                   ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                      Bool
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (case
                                 FoldLike
  (Maybe Bool)
  MethodDescriptorProto
  MethodDescriptorProto
  (Maybe Bool)
  (Maybe Bool)
-> MethodDescriptorProto -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                   (forall s a (f :: * -> *).
(HasField s "maybe'serverStreaming" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'serverStreaming") MethodDescriptorProto
_x
                             of
                               Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                               (Prelude.Just _v :: Bool
_v)
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 48)
                                      ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (\ b :: Bool
b -> if Bool
b then 1 else 0)
                                         Bool
_v))
                            (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                               (FoldLike
  FieldSet
  MethodDescriptorProto
  MethodDescriptorProto
  FieldSet
  FieldSet
-> MethodDescriptorProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  MethodDescriptorProto
  MethodDescriptorProto
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MethodDescriptorProto
_x)))))))
instance Control.DeepSeq.NFData MethodDescriptorProto where
  rnf :: MethodDescriptorProto -> ()
rnf
    = \ x__ :: MethodDescriptorProto
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MethodDescriptorProto -> FieldSet
_MethodDescriptorProto'_unknownFields MethodDescriptorProto
x__)
             (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MethodDescriptorProto -> Maybe Text
_MethodDescriptorProto'name MethodDescriptorProto
x__)
                (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (MethodDescriptorProto -> Maybe Text
_MethodDescriptorProto'inputType MethodDescriptorProto
x__)
                   (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (MethodDescriptorProto -> Maybe Text
_MethodDescriptorProto'outputType MethodDescriptorProto
x__)
                      (Maybe MethodOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (MethodDescriptorProto -> Maybe MethodOptions
_MethodDescriptorProto'options MethodDescriptorProto
x__)
                         (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (MethodDescriptorProto -> Maybe Bool
_MethodDescriptorProto'clientStreaming MethodDescriptorProto
x__)
                            (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (MethodDescriptorProto -> Maybe Bool
_MethodDescriptorProto'serverStreaming MethodDescriptorProto
x__) ()))))))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' MethodOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' MethodOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.idempotencyLevel' @:: Lens' MethodOptions MethodOptions'IdempotencyLevel@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'idempotencyLevel' @:: Lens' MethodOptions (Prelude.Maybe MethodOptions'IdempotencyLevel)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' MethodOptions [UninterpretedOption]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' MethodOptions (Data.Vector.Vector UninterpretedOption)@ -}
data MethodOptions
  = MethodOptions'_constructor {MethodOptions -> Maybe Bool
_MethodOptions'deprecated :: !(Prelude.Maybe Prelude.Bool),
                                MethodOptions -> Maybe MethodOptions'IdempotencyLevel
_MethodOptions'idempotencyLevel :: !(Prelude.Maybe MethodOptions'IdempotencyLevel),
                                MethodOptions -> Vector UninterpretedOption
_MethodOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption),
                                MethodOptions -> FieldSet
_MethodOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (MethodOptions -> MethodOptions -> Bool
(MethodOptions -> MethodOptions -> Bool)
-> (MethodOptions -> MethodOptions -> Bool) -> Eq MethodOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MethodOptions -> MethodOptions -> Bool
$c/= :: MethodOptions -> MethodOptions -> Bool
== :: MethodOptions -> MethodOptions -> Bool
$c== :: MethodOptions -> MethodOptions -> Bool
Prelude.Eq, Eq MethodOptions
Eq MethodOptions =>
(MethodOptions -> MethodOptions -> Ordering)
-> (MethodOptions -> MethodOptions -> Bool)
-> (MethodOptions -> MethodOptions -> Bool)
-> (MethodOptions -> MethodOptions -> Bool)
-> (MethodOptions -> MethodOptions -> Bool)
-> (MethodOptions -> MethodOptions -> MethodOptions)
-> (MethodOptions -> MethodOptions -> MethodOptions)
-> Ord MethodOptions
MethodOptions -> MethodOptions -> Bool
MethodOptions -> MethodOptions -> Ordering
MethodOptions -> MethodOptions -> MethodOptions
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: MethodOptions -> MethodOptions -> MethodOptions
$cmin :: MethodOptions -> MethodOptions -> MethodOptions
max :: MethodOptions -> MethodOptions -> MethodOptions
$cmax :: MethodOptions -> MethodOptions -> MethodOptions
>= :: MethodOptions -> MethodOptions -> Bool
$c>= :: MethodOptions -> MethodOptions -> Bool
> :: MethodOptions -> MethodOptions -> Bool
$c> :: MethodOptions -> MethodOptions -> Bool
<= :: MethodOptions -> MethodOptions -> Bool
$c<= :: MethodOptions -> MethodOptions -> Bool
< :: MethodOptions -> MethodOptions -> Bool
$c< :: MethodOptions -> MethodOptions -> Bool
compare :: MethodOptions -> MethodOptions -> Ordering
$ccompare :: MethodOptions -> MethodOptions -> Ordering
$cp1Ord :: Eq MethodOptions
Prelude.Ord)
instance Prelude.Show MethodOptions where
  showsPrec :: Int -> MethodOptions -> ShowS
showsPrec _ __x :: MethodOptions
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (MethodOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MethodOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MethodOptions "deprecated" Prelude.Bool where
  fieldOf :: Proxy# "deprecated"
-> (Bool -> f Bool) -> MethodOptions -> f MethodOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> MethodOptions -> f MethodOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> MethodOptions
-> f MethodOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodOptions -> Maybe Bool)
-> (MethodOptions -> Maybe Bool -> MethodOptions)
-> Lens MethodOptions MethodOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodOptions -> Maybe Bool
_MethodOptions'deprecated
           (\ x__ :: MethodOptions
x__ y__ :: Maybe Bool
y__ -> MethodOptions
x__ {_MethodOptions'deprecated :: Maybe Bool
_MethodOptions'deprecated = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField MethodOptions "maybe'deprecated" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'deprecated"
-> (Maybe Bool -> f (Maybe Bool))
-> MethodOptions
-> f MethodOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> MethodOptions -> f MethodOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> MethodOptions
-> f MethodOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodOptions -> Maybe Bool)
-> (MethodOptions -> Maybe Bool -> MethodOptions)
-> Lens MethodOptions MethodOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodOptions -> Maybe Bool
_MethodOptions'deprecated
           (\ x__ :: MethodOptions
x__ y__ :: Maybe Bool
y__ -> MethodOptions
x__ {_MethodOptions'deprecated :: Maybe Bool
_MethodOptions'deprecated = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MethodOptions "idempotencyLevel" MethodOptions'IdempotencyLevel where
  fieldOf :: Proxy# "idempotencyLevel"
-> (MethodOptions'IdempotencyLevel
    -> f MethodOptions'IdempotencyLevel)
-> MethodOptions
-> f MethodOptions
fieldOf _
    = ((Maybe MethodOptions'IdempotencyLevel
  -> f (Maybe MethodOptions'IdempotencyLevel))
 -> MethodOptions -> f MethodOptions)
-> ((MethodOptions'IdempotencyLevel
     -> f MethodOptions'IdempotencyLevel)
    -> Maybe MethodOptions'IdempotencyLevel
    -> f (Maybe MethodOptions'IdempotencyLevel))
-> (MethodOptions'IdempotencyLevel
    -> f MethodOptions'IdempotencyLevel)
-> MethodOptions
-> f MethodOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodOptions -> Maybe MethodOptions'IdempotencyLevel)
-> (MethodOptions
    -> Maybe MethodOptions'IdempotencyLevel -> MethodOptions)
-> Lens
     MethodOptions
     MethodOptions
     (Maybe MethodOptions'IdempotencyLevel)
     (Maybe MethodOptions'IdempotencyLevel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodOptions -> Maybe MethodOptions'IdempotencyLevel
_MethodOptions'idempotencyLevel
           (\ x__ :: MethodOptions
x__ y__ :: Maybe MethodOptions'IdempotencyLevel
y__ -> MethodOptions
x__ {_MethodOptions'idempotencyLevel :: Maybe MethodOptions'IdempotencyLevel
_MethodOptions'idempotencyLevel = Maybe MethodOptions'IdempotencyLevel
y__}))
        (MethodOptions'IdempotencyLevel
-> Lens'
     (Maybe MethodOptions'IdempotencyLevel)
     MethodOptions'IdempotencyLevel
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens MethodOptions'IdempotencyLevel
MethodOptions'IDEMPOTENCY_UNKNOWN)
instance Data.ProtoLens.Field.HasField MethodOptions "maybe'idempotencyLevel" (Prelude.Maybe MethodOptions'IdempotencyLevel) where
  fieldOf :: Proxy# "maybe'idempotencyLevel"
-> (Maybe MethodOptions'IdempotencyLevel
    -> f (Maybe MethodOptions'IdempotencyLevel))
-> MethodOptions
-> f MethodOptions
fieldOf _
    = ((Maybe MethodOptions'IdempotencyLevel
  -> f (Maybe MethodOptions'IdempotencyLevel))
 -> MethodOptions -> f MethodOptions)
-> ((Maybe MethodOptions'IdempotencyLevel
     -> f (Maybe MethodOptions'IdempotencyLevel))
    -> Maybe MethodOptions'IdempotencyLevel
    -> f (Maybe MethodOptions'IdempotencyLevel))
-> (Maybe MethodOptions'IdempotencyLevel
    -> f (Maybe MethodOptions'IdempotencyLevel))
-> MethodOptions
-> f MethodOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodOptions -> Maybe MethodOptions'IdempotencyLevel)
-> (MethodOptions
    -> Maybe MethodOptions'IdempotencyLevel -> MethodOptions)
-> Lens
     MethodOptions
     MethodOptions
     (Maybe MethodOptions'IdempotencyLevel)
     (Maybe MethodOptions'IdempotencyLevel)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodOptions -> Maybe MethodOptions'IdempotencyLevel
_MethodOptions'idempotencyLevel
           (\ x__ :: MethodOptions
x__ y__ :: Maybe MethodOptions'IdempotencyLevel
y__ -> MethodOptions
x__ {_MethodOptions'idempotencyLevel :: Maybe MethodOptions'IdempotencyLevel
_MethodOptions'idempotencyLevel = Maybe MethodOptions'IdempotencyLevel
y__}))
        (Maybe MethodOptions'IdempotencyLevel
 -> f (Maybe MethodOptions'IdempotencyLevel))
-> Maybe MethodOptions'IdempotencyLevel
-> f (Maybe MethodOptions'IdempotencyLevel)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MethodOptions "uninterpretedOption" [UninterpretedOption] where
  fieldOf :: Proxy# "uninterpretedOption"
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> MethodOptions
-> f MethodOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> MethodOptions -> f MethodOptions)
-> (([UninterpretedOption] -> f [UninterpretedOption])
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> MethodOptions
-> f MethodOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodOptions -> Vector UninterpretedOption)
-> (MethodOptions -> Vector UninterpretedOption -> MethodOptions)
-> Lens
     MethodOptions
     MethodOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodOptions -> Vector UninterpretedOption
_MethodOptions'uninterpretedOption
           (\ x__ :: MethodOptions
x__ y__ :: Vector UninterpretedOption
y__ -> MethodOptions
x__ {_MethodOptions'uninterpretedOption :: Vector UninterpretedOption
_MethodOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        ((Vector UninterpretedOption -> [UninterpretedOption])
-> (Vector UninterpretedOption
    -> [UninterpretedOption] -> Vector UninterpretedOption)
-> Lens
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
     [UninterpretedOption]
     [UninterpretedOption]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector UninterpretedOption -> [UninterpretedOption]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [UninterpretedOption]
y__ -> [UninterpretedOption] -> Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UninterpretedOption]
y__))
instance Data.ProtoLens.Field.HasField MethodOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where
  fieldOf :: Proxy# "vec'uninterpretedOption"
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> MethodOptions
-> f MethodOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> MethodOptions -> f MethodOptions)
-> ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> MethodOptions
-> f MethodOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MethodOptions -> Vector UninterpretedOption)
-> (MethodOptions -> Vector UninterpretedOption -> MethodOptions)
-> Lens
     MethodOptions
     MethodOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MethodOptions -> Vector UninterpretedOption
_MethodOptions'uninterpretedOption
           (\ x__ :: MethodOptions
x__ y__ :: Vector UninterpretedOption
y__ -> MethodOptions
x__ {_MethodOptions'uninterpretedOption :: Vector UninterpretedOption
_MethodOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> Vector UninterpretedOption -> f (Vector UninterpretedOption)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MethodOptions where
  messageName :: Proxy MethodOptions -> Text
messageName _ = String -> Text
Data.Text.pack "google.protobuf.MethodOptions"
  fieldsByTag :: Map Tag (FieldDescriptor MethodOptions)
fieldsByTag
    = let
        deprecated__field_descriptor :: FieldDescriptor MethodOptions
deprecated__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor MethodOptions Bool
-> FieldDescriptor MethodOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "deprecated"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens MethodOptions MethodOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor MethodOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'deprecated")) ::
              Data.ProtoLens.FieldDescriptor MethodOptions
        idempotencyLevel__field_descriptor :: FieldDescriptor MethodOptions
idempotencyLevel__field_descriptor
          = String
-> FieldTypeDescriptor MethodOptions'IdempotencyLevel
-> FieldAccessor MethodOptions MethodOptions'IdempotencyLevel
-> FieldDescriptor MethodOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "idempotency_level"
              (ScalarField MethodOptions'IdempotencyLevel
-> FieldTypeDescriptor MethodOptions'IdempotencyLevel
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField MethodOptions'IdempotencyLevel
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor MethodOptions'IdempotencyLevel)
              (Lens
  MethodOptions
  MethodOptions
  (Maybe MethodOptions'IdempotencyLevel)
  (Maybe MethodOptions'IdempotencyLevel)
-> FieldAccessor MethodOptions MethodOptions'IdempotencyLevel
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'idempotencyLevel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'idempotencyLevel")) ::
              Data.ProtoLens.FieldDescriptor MethodOptions
        uninterpretedOption__field_descriptor :: FieldDescriptor MethodOptions
uninterpretedOption__field_descriptor
          = String
-> FieldTypeDescriptor UninterpretedOption
-> FieldAccessor MethodOptions UninterpretedOption
-> FieldDescriptor MethodOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "uninterpreted_option"
              (MessageOrGroup -> FieldTypeDescriptor UninterpretedOption
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)
              (Packing
-> Lens' MethodOptions [UninterpretedOption]
-> FieldAccessor MethodOptions UninterpretedOption
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uninterpretedOption")) ::
              Data.ProtoLens.FieldDescriptor MethodOptions
      in
        [(Tag, FieldDescriptor MethodOptions)]
-> Map Tag (FieldDescriptor MethodOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 33, FieldDescriptor MethodOptions
deprecated__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 34, FieldDescriptor MethodOptions
idempotencyLevel__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 999, FieldDescriptor MethodOptions
uninterpretedOption__field_descriptor)]
  unknownFields :: LensLike' f MethodOptions FieldSet
unknownFields
    = (MethodOptions -> FieldSet)
-> (MethodOptions -> FieldSet -> MethodOptions)
-> Lens' MethodOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MethodOptions -> FieldSet
_MethodOptions'_unknownFields
        (\ x__ :: MethodOptions
x__ y__ :: FieldSet
y__ -> MethodOptions
x__ {_MethodOptions'_unknownFields :: FieldSet
_MethodOptions'_unknownFields = FieldSet
y__})
  defMessage :: MethodOptions
defMessage
    = $WMethodOptions'_constructor :: Maybe Bool
-> Maybe MethodOptions'IdempotencyLevel
-> Vector UninterpretedOption
-> FieldSet
-> MethodOptions
MethodOptions'_constructor
        {_MethodOptions'deprecated :: Maybe Bool
_MethodOptions'deprecated = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _MethodOptions'idempotencyLevel :: Maybe MethodOptions'IdempotencyLevel
_MethodOptions'idempotencyLevel = Maybe MethodOptions'IdempotencyLevel
forall a. Maybe a
Prelude.Nothing,
         _MethodOptions'uninterpretedOption :: Vector UninterpretedOption
_MethodOptions'uninterpretedOption = Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MethodOptions'_unknownFields :: FieldSet
_MethodOptions'_unknownFields = []}
  parseMessage :: Parser MethodOptions
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 :: MethodOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser MethodOptions
loop x :: MethodOptions
x mutable'uninterpretedOption :: Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector UninterpretedOption
frozen'uninterpretedOption <- IO (Vector UninterpretedOption)
-> Parser (Vector UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                      (Growing Vector (PrimState IO) UninterpretedOption
-> IO (Vector UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                         Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      MethodOptions -> Parser MethodOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter MethodOptions MethodOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MethodOptions -> MethodOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter MethodOptions MethodOptions FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  MethodOptions
  MethodOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> Vector UninterpretedOption -> MethodOptions -> MethodOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption")
                              Vector UninterpretedOption
frozen'uninterpretedOption
                              MethodOptions
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        264
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "deprecated"
                                MethodOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser MethodOptions
loop
                                  (Setter MethodOptions MethodOptions Bool Bool
-> Bool -> MethodOptions -> MethodOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deprecated") Bool
y MethodOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        272
                          -> do MethodOptions'IdempotencyLevel
y <- Parser MethodOptions'IdempotencyLevel
-> String -> Parser MethodOptions'IdempotencyLevel
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> MethodOptions'IdempotencyLevel)
-> Parser Int -> Parser MethodOptions'IdempotencyLevel
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> MethodOptions'IdempotencyLevel
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       "idempotency_level"
                                MethodOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser MethodOptions
loop
                                  (Setter
  MethodOptions
  MethodOptions
  MethodOptions'IdempotencyLevel
  MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> MethodOptions -> MethodOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "idempotencyLevel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"idempotencyLevel") MethodOptions'IdempotencyLevel
y MethodOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        7994
                          -> do !UninterpretedOption
y <- Parser UninterpretedOption -> String -> Parser UninterpretedOption
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser UninterpretedOption -> Parser UninterpretedOption
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser UninterpretedOption
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "uninterpreted_option"
                                Growing Vector RealWorld UninterpretedOption
v <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) UninterpretedOption
-> UninterpretedOption
-> IO (Growing Vector (PrimState IO) UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption UninterpretedOption
y)
                                MethodOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser MethodOptions
loop MethodOptions
x Growing Vector RealWorld UninterpretedOption
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                MethodOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser MethodOptions
loop
                                  (Setter MethodOptions MethodOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MethodOptions -> MethodOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter MethodOptions MethodOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MethodOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
      in
        Parser MethodOptions -> String -> Parser MethodOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               IO (Growing Vector RealWorld UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              MethodOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser MethodOptions
loop MethodOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption)
          "MethodOptions"
  buildMessage :: MethodOptions -> Builder
buildMessage
    = \ _x :: MethodOptions
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Bool) MethodOptions MethodOptions (Maybe Bool) (Maybe Bool)
-> MethodOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                    (forall s a (f :: * -> *).
(HasField s "maybe'deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'deprecated") MethodOptions
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Bool
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 264)
                       ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                          (\ b :: Bool
b -> if Bool
b then 1 else 0)
                          Bool
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe MethodOptions'IdempotencyLevel)
  MethodOptions
  MethodOptions
  (Maybe MethodOptions'IdempotencyLevel)
  (Maybe MethodOptions'IdempotencyLevel)
-> MethodOptions -> Maybe MethodOptions'IdempotencyLevel
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall s a (f :: * -> *).
(HasField s "maybe'idempotencyLevel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'idempotencyLevel") MethodOptions
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: MethodOptions'IdempotencyLevel
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 272)
                          ((Int -> Builder)
-> (MethodOptions'IdempotencyLevel -> Int)
-> MethodOptions'IdempotencyLevel
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                             MethodOptions'IdempotencyLevel -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
                             MethodOptions'IdempotencyLevel
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((UninterpretedOption -> Builder)
-> Vector UninterpretedOption -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ _v :: UninterpretedOption
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 7994)
                              ((ByteString -> Builder)
-> (UninterpretedOption -> ByteString)
-> UninterpretedOption
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                 (\ bs :: ByteString
bs
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                            (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                         (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                 UninterpretedOption -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                 UninterpretedOption
_v))
                      (FoldLike
  (Vector UninterpretedOption)
  MethodOptions
  MethodOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> MethodOptions -> Vector UninterpretedOption
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption") MethodOptions
_x))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet MethodOptions MethodOptions FieldSet FieldSet
-> MethodOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet MethodOptions MethodOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MethodOptions
_x))))
instance Control.DeepSeq.NFData MethodOptions where
  rnf :: MethodOptions -> ()
rnf
    = \ x__ :: MethodOptions
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MethodOptions -> FieldSet
_MethodOptions'_unknownFields MethodOptions
x__)
             (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MethodOptions -> Maybe Bool
_MethodOptions'deprecated MethodOptions
x__)
                (Maybe MethodOptions'IdempotencyLevel -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (MethodOptions -> Maybe MethodOptions'IdempotencyLevel
_MethodOptions'idempotencyLevel MethodOptions
x__)
                   (Vector UninterpretedOption -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (MethodOptions -> Vector UninterpretedOption
_MethodOptions'uninterpretedOption MethodOptions
x__) ())))
data MethodOptions'IdempotencyLevel
  = MethodOptions'IDEMPOTENCY_UNKNOWN |
    MethodOptions'NO_SIDE_EFFECTS |
    MethodOptions'IDEMPOTENT
  deriving (Int -> MethodOptions'IdempotencyLevel -> ShowS
[MethodOptions'IdempotencyLevel] -> ShowS
MethodOptions'IdempotencyLevel -> String
(Int -> MethodOptions'IdempotencyLevel -> ShowS)
-> (MethodOptions'IdempotencyLevel -> String)
-> ([MethodOptions'IdempotencyLevel] -> ShowS)
-> Show MethodOptions'IdempotencyLevel
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [MethodOptions'IdempotencyLevel] -> ShowS
$cshowList :: [MethodOptions'IdempotencyLevel] -> ShowS
show :: MethodOptions'IdempotencyLevel -> String
$cshow :: MethodOptions'IdempotencyLevel -> String
showsPrec :: Int -> MethodOptions'IdempotencyLevel -> ShowS
$cshowsPrec :: Int -> MethodOptions'IdempotencyLevel -> ShowS
Prelude.Show, MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Bool
(MethodOptions'IdempotencyLevel
 -> MethodOptions'IdempotencyLevel -> Bool)
-> (MethodOptions'IdempotencyLevel
    -> MethodOptions'IdempotencyLevel -> Bool)
-> Eq MethodOptions'IdempotencyLevel
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Bool
$c/= :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Bool
== :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Bool
$c== :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Bool
Prelude.Eq, Eq MethodOptions'IdempotencyLevel
Eq MethodOptions'IdempotencyLevel =>
(MethodOptions'IdempotencyLevel
 -> MethodOptions'IdempotencyLevel -> Ordering)
-> (MethodOptions'IdempotencyLevel
    -> MethodOptions'IdempotencyLevel -> Bool)
-> (MethodOptions'IdempotencyLevel
    -> MethodOptions'IdempotencyLevel -> Bool)
-> (MethodOptions'IdempotencyLevel
    -> MethodOptions'IdempotencyLevel -> Bool)
-> (MethodOptions'IdempotencyLevel
    -> MethodOptions'IdempotencyLevel -> Bool)
-> (MethodOptions'IdempotencyLevel
    -> MethodOptions'IdempotencyLevel
    -> MethodOptions'IdempotencyLevel)
-> (MethodOptions'IdempotencyLevel
    -> MethodOptions'IdempotencyLevel
    -> MethodOptions'IdempotencyLevel)
-> Ord MethodOptions'IdempotencyLevel
MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Bool
MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Ordering
MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> MethodOptions'IdempotencyLevel
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> MethodOptions'IdempotencyLevel
$cmin :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> MethodOptions'IdempotencyLevel
max :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> MethodOptions'IdempotencyLevel
$cmax :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> MethodOptions'IdempotencyLevel
>= :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Bool
$c>= :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Bool
> :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Bool
$c> :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Bool
<= :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Bool
$c<= :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Bool
< :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Bool
$c< :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Bool
compare :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Ordering
$ccompare :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel -> Ordering
$cp1Ord :: Eq MethodOptions'IdempotencyLevel
Prelude.Ord)
instance Data.ProtoLens.MessageEnum MethodOptions'IdempotencyLevel where
  maybeToEnum :: Int -> Maybe MethodOptions'IdempotencyLevel
maybeToEnum 0 = MethodOptions'IdempotencyLevel
-> Maybe MethodOptions'IdempotencyLevel
forall a. a -> Maybe a
Prelude.Just MethodOptions'IdempotencyLevel
MethodOptions'IDEMPOTENCY_UNKNOWN
  maybeToEnum 1 = MethodOptions'IdempotencyLevel
-> Maybe MethodOptions'IdempotencyLevel
forall a. a -> Maybe a
Prelude.Just MethodOptions'IdempotencyLevel
MethodOptions'NO_SIDE_EFFECTS
  maybeToEnum 2 = MethodOptions'IdempotencyLevel
-> Maybe MethodOptions'IdempotencyLevel
forall a. a -> Maybe a
Prelude.Just MethodOptions'IdempotencyLevel
MethodOptions'IDEMPOTENT
  maybeToEnum _ = Maybe MethodOptions'IdempotencyLevel
forall a. Maybe a
Prelude.Nothing
  showEnum :: MethodOptions'IdempotencyLevel -> String
showEnum MethodOptions'IDEMPOTENCY_UNKNOWN = "IDEMPOTENCY_UNKNOWN"
  showEnum MethodOptions'NO_SIDE_EFFECTS = "NO_SIDE_EFFECTS"
  showEnum MethodOptions'IDEMPOTENT = "IDEMPOTENT"
  readEnum :: String -> Maybe MethodOptions'IdempotencyLevel
readEnum k :: String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "IDEMPOTENCY_UNKNOWN"
    = MethodOptions'IdempotencyLevel
-> Maybe MethodOptions'IdempotencyLevel
forall a. a -> Maybe a
Prelude.Just MethodOptions'IdempotencyLevel
MethodOptions'IDEMPOTENCY_UNKNOWN
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "NO_SIDE_EFFECTS"
    = MethodOptions'IdempotencyLevel
-> Maybe MethodOptions'IdempotencyLevel
forall a. a -> Maybe a
Prelude.Just MethodOptions'IdempotencyLevel
MethodOptions'NO_SIDE_EFFECTS
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "IDEMPOTENT"
    = MethodOptions'IdempotencyLevel
-> Maybe MethodOptions'IdempotencyLevel
forall a. a -> Maybe a
Prelude.Just MethodOptions'IdempotencyLevel
MethodOptions'IDEMPOTENT
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe MethodOptions'IdempotencyLevel)
-> Maybe MethodOptions'IdempotencyLevel
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe MethodOptions'IdempotencyLevel
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded MethodOptions'IdempotencyLevel where
  minBound :: MethodOptions'IdempotencyLevel
minBound = MethodOptions'IdempotencyLevel
MethodOptions'IDEMPOTENCY_UNKNOWN
  maxBound :: MethodOptions'IdempotencyLevel
maxBound = MethodOptions'IdempotencyLevel
MethodOptions'IDEMPOTENT
instance Prelude.Enum MethodOptions'IdempotencyLevel where
  toEnum :: Int -> MethodOptions'IdempotencyLevel
toEnum k__ :: Int
k__
    = MethodOptions'IdempotencyLevel
-> (MethodOptions'IdempotencyLevel
    -> MethodOptions'IdempotencyLevel)
-> Maybe MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> MethodOptions'IdempotencyLevel
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              "toEnum: unknown value for enum IdempotencyLevel: "
              (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        MethodOptions'IdempotencyLevel -> MethodOptions'IdempotencyLevel
forall a. a -> a
Prelude.id
        (Int -> Maybe MethodOptions'IdempotencyLevel
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: MethodOptions'IdempotencyLevel -> Int
fromEnum MethodOptions'IDEMPOTENCY_UNKNOWN = 0
  fromEnum MethodOptions'NO_SIDE_EFFECTS = 1
  fromEnum MethodOptions'IDEMPOTENT = 2
  succ :: MethodOptions'IdempotencyLevel -> MethodOptions'IdempotencyLevel
succ MethodOptions'IDEMPOTENT
    = String -> MethodOptions'IdempotencyLevel
forall a. HasCallStack => String -> a
Prelude.error
        "MethodOptions'IdempotencyLevel.succ: bad argument MethodOptions'IDEMPOTENT. This value would be out of bounds."
  succ MethodOptions'IDEMPOTENCY_UNKNOWN
    = MethodOptions'IdempotencyLevel
MethodOptions'NO_SIDE_EFFECTS
  succ MethodOptions'NO_SIDE_EFFECTS = MethodOptions'IdempotencyLevel
MethodOptions'IDEMPOTENT
  pred :: MethodOptions'IdempotencyLevel -> MethodOptions'IdempotencyLevel
pred MethodOptions'IDEMPOTENCY_UNKNOWN
    = String -> MethodOptions'IdempotencyLevel
forall a. HasCallStack => String -> a
Prelude.error
        "MethodOptions'IdempotencyLevel.pred: bad argument MethodOptions'IDEMPOTENCY_UNKNOWN. This value would be out of bounds."
  pred MethodOptions'NO_SIDE_EFFECTS
    = MethodOptions'IdempotencyLevel
MethodOptions'IDEMPOTENCY_UNKNOWN
  pred MethodOptions'IDEMPOTENT = MethodOptions'IdempotencyLevel
MethodOptions'NO_SIDE_EFFECTS
  enumFrom :: MethodOptions'IdempotencyLevel -> [MethodOptions'IdempotencyLevel]
enumFrom = MethodOptions'IdempotencyLevel -> [MethodOptions'IdempotencyLevel]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel
-> [MethodOptions'IdempotencyLevel]
enumFromTo = MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel
-> [MethodOptions'IdempotencyLevel]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel
-> [MethodOptions'IdempotencyLevel]
enumFromThen = MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel
-> [MethodOptions'IdempotencyLevel]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel
-> [MethodOptions'IdempotencyLevel]
enumFromThenTo = MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel
-> MethodOptions'IdempotencyLevel
-> [MethodOptions'IdempotencyLevel]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault MethodOptions'IdempotencyLevel where
  fieldDefault :: MethodOptions'IdempotencyLevel
fieldDefault = MethodOptions'IdempotencyLevel
MethodOptions'IDEMPOTENCY_UNKNOWN
instance Control.DeepSeq.NFData MethodOptions'IdempotencyLevel where
  rnf :: MethodOptions'IdempotencyLevel -> ()
rnf x__ :: MethodOptions'IdempotencyLevel
x__ = MethodOptions'IdempotencyLevel -> () -> ()
forall a b. a -> b -> b
Prelude.seq MethodOptions'IdempotencyLevel
x__ ()
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' OneofDescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' OneofDescriptorProto (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' OneofDescriptorProto OneofOptions@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' OneofDescriptorProto (Prelude.Maybe OneofOptions)@ -}
data OneofDescriptorProto
  = OneofDescriptorProto'_constructor {OneofDescriptorProto -> Maybe Text
_OneofDescriptorProto'name :: !(Prelude.Maybe Data.Text.Text),
                                       OneofDescriptorProto -> Maybe OneofOptions
_OneofDescriptorProto'options :: !(Prelude.Maybe OneofOptions),
                                       OneofDescriptorProto -> FieldSet
_OneofDescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (OneofDescriptorProto -> OneofDescriptorProto -> Bool
(OneofDescriptorProto -> OneofDescriptorProto -> Bool)
-> (OneofDescriptorProto -> OneofDescriptorProto -> Bool)
-> Eq OneofDescriptorProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OneofDescriptorProto -> OneofDescriptorProto -> Bool
$c/= :: OneofDescriptorProto -> OneofDescriptorProto -> Bool
== :: OneofDescriptorProto -> OneofDescriptorProto -> Bool
$c== :: OneofDescriptorProto -> OneofDescriptorProto -> Bool
Prelude.Eq, Eq OneofDescriptorProto
Eq OneofDescriptorProto =>
(OneofDescriptorProto -> OneofDescriptorProto -> Ordering)
-> (OneofDescriptorProto -> OneofDescriptorProto -> Bool)
-> (OneofDescriptorProto -> OneofDescriptorProto -> Bool)
-> (OneofDescriptorProto -> OneofDescriptorProto -> Bool)
-> (OneofDescriptorProto -> OneofDescriptorProto -> Bool)
-> (OneofDescriptorProto
    -> OneofDescriptorProto -> OneofDescriptorProto)
-> (OneofDescriptorProto
    -> OneofDescriptorProto -> OneofDescriptorProto)
-> Ord OneofDescriptorProto
OneofDescriptorProto -> OneofDescriptorProto -> Bool
OneofDescriptorProto -> OneofDescriptorProto -> Ordering
OneofDescriptorProto
-> OneofDescriptorProto -> OneofDescriptorProto
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: OneofDescriptorProto
-> OneofDescriptorProto -> OneofDescriptorProto
$cmin :: OneofDescriptorProto
-> OneofDescriptorProto -> OneofDescriptorProto
max :: OneofDescriptorProto
-> OneofDescriptorProto -> OneofDescriptorProto
$cmax :: OneofDescriptorProto
-> OneofDescriptorProto -> OneofDescriptorProto
>= :: OneofDescriptorProto -> OneofDescriptorProto -> Bool
$c>= :: OneofDescriptorProto -> OneofDescriptorProto -> Bool
> :: OneofDescriptorProto -> OneofDescriptorProto -> Bool
$c> :: OneofDescriptorProto -> OneofDescriptorProto -> Bool
<= :: OneofDescriptorProto -> OneofDescriptorProto -> Bool
$c<= :: OneofDescriptorProto -> OneofDescriptorProto -> Bool
< :: OneofDescriptorProto -> OneofDescriptorProto -> Bool
$c< :: OneofDescriptorProto -> OneofDescriptorProto -> Bool
compare :: OneofDescriptorProto -> OneofDescriptorProto -> Ordering
$ccompare :: OneofDescriptorProto -> OneofDescriptorProto -> Ordering
$cp1Ord :: Eq OneofDescriptorProto
Prelude.Ord)
instance Prelude.Show OneofDescriptorProto where
  showsPrec :: Int -> OneofDescriptorProto -> ShowS
showsPrec _ __x :: OneofDescriptorProto
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (OneofDescriptorProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort OneofDescriptorProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField OneofDescriptorProto "name" Data.Text.Text where
  fieldOf :: Proxy# "name"
-> (Text -> f Text)
-> OneofDescriptorProto
-> f OneofDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> OneofDescriptorProto -> f OneofDescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> OneofDescriptorProto
-> f OneofDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OneofDescriptorProto -> Maybe Text)
-> (OneofDescriptorProto -> Maybe Text -> OneofDescriptorProto)
-> Lens
     OneofDescriptorProto OneofDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OneofDescriptorProto -> Maybe Text
_OneofDescriptorProto'name
           (\ x__ :: OneofDescriptorProto
x__ y__ :: Maybe Text
y__ -> OneofDescriptorProto
x__ {_OneofDescriptorProto'name :: Maybe Text
_OneofDescriptorProto'name = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField OneofDescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'name"
-> (Maybe Text -> f (Maybe Text))
-> OneofDescriptorProto
-> f OneofDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> OneofDescriptorProto -> f OneofDescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> OneofDescriptorProto
-> f OneofDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OneofDescriptorProto -> Maybe Text)
-> (OneofDescriptorProto -> Maybe Text -> OneofDescriptorProto)
-> Lens
     OneofDescriptorProto OneofDescriptorProto (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OneofDescriptorProto -> Maybe Text
_OneofDescriptorProto'name
           (\ x__ :: OneofDescriptorProto
x__ y__ :: Maybe Text
y__ -> OneofDescriptorProto
x__ {_OneofDescriptorProto'name :: Maybe Text
_OneofDescriptorProto'name = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OneofDescriptorProto "options" OneofOptions where
  fieldOf :: Proxy# "options"
-> (OneofOptions -> f OneofOptions)
-> OneofDescriptorProto
-> f OneofDescriptorProto
fieldOf _
    = ((Maybe OneofOptions -> f (Maybe OneofOptions))
 -> OneofDescriptorProto -> f OneofDescriptorProto)
-> ((OneofOptions -> f OneofOptions)
    -> Maybe OneofOptions -> f (Maybe OneofOptions))
-> (OneofOptions -> f OneofOptions)
-> OneofDescriptorProto
-> f OneofDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OneofDescriptorProto -> Maybe OneofOptions)
-> (OneofDescriptorProto
    -> Maybe OneofOptions -> OneofDescriptorProto)
-> Lens
     OneofDescriptorProto
     OneofDescriptorProto
     (Maybe OneofOptions)
     (Maybe OneofOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OneofDescriptorProto -> Maybe OneofOptions
_OneofDescriptorProto'options
           (\ x__ :: OneofDescriptorProto
x__ y__ :: Maybe OneofOptions
y__ -> OneofDescriptorProto
x__ {_OneofDescriptorProto'options :: Maybe OneofOptions
_OneofDescriptorProto'options = Maybe OneofOptions
y__}))
        (OneofOptions -> Lens' (Maybe OneofOptions) OneofOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens OneofOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField OneofDescriptorProto "maybe'options" (Prelude.Maybe OneofOptions) where
  fieldOf :: Proxy# "maybe'options"
-> (Maybe OneofOptions -> f (Maybe OneofOptions))
-> OneofDescriptorProto
-> f OneofDescriptorProto
fieldOf _
    = ((Maybe OneofOptions -> f (Maybe OneofOptions))
 -> OneofDescriptorProto -> f OneofDescriptorProto)
-> ((Maybe OneofOptions -> f (Maybe OneofOptions))
    -> Maybe OneofOptions -> f (Maybe OneofOptions))
-> (Maybe OneofOptions -> f (Maybe OneofOptions))
-> OneofDescriptorProto
-> f OneofDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OneofDescriptorProto -> Maybe OneofOptions)
-> (OneofDescriptorProto
    -> Maybe OneofOptions -> OneofDescriptorProto)
-> Lens
     OneofDescriptorProto
     OneofDescriptorProto
     (Maybe OneofOptions)
     (Maybe OneofOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OneofDescriptorProto -> Maybe OneofOptions
_OneofDescriptorProto'options
           (\ x__ :: OneofDescriptorProto
x__ y__ :: Maybe OneofOptions
y__ -> OneofDescriptorProto
x__ {_OneofDescriptorProto'options :: Maybe OneofOptions
_OneofDescriptorProto'options = Maybe OneofOptions
y__}))
        (Maybe OneofOptions -> f (Maybe OneofOptions))
-> Maybe OneofOptions -> f (Maybe OneofOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message OneofDescriptorProto where
  messageName :: Proxy OneofDescriptorProto -> Text
messageName _
    = String -> Text
Data.Text.pack "google.protobuf.OneofDescriptorProto"
  fieldsByTag :: Map Tag (FieldDescriptor OneofDescriptorProto)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor OneofDescriptorProto
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor OneofDescriptorProto Text
-> FieldDescriptor OneofDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  OneofDescriptorProto OneofDescriptorProto (Maybe Text) (Maybe Text)
-> FieldAccessor OneofDescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name")) ::
              Data.ProtoLens.FieldDescriptor OneofDescriptorProto
        options__field_descriptor :: FieldDescriptor OneofDescriptorProto
options__field_descriptor
          = String
-> FieldTypeDescriptor OneofOptions
-> FieldAccessor OneofDescriptorProto OneofOptions
-> FieldDescriptor OneofDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "options"
              (MessageOrGroup -> FieldTypeDescriptor OneofOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor OneofOptions)
              (Lens
  OneofDescriptorProto
  OneofDescriptorProto
  (Maybe OneofOptions)
  (Maybe OneofOptions)
-> FieldAccessor OneofDescriptorProto OneofOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options")) ::
              Data.ProtoLens.FieldDescriptor OneofDescriptorProto
      in
        [(Tag, FieldDescriptor OneofDescriptorProto)]
-> Map Tag (FieldDescriptor OneofDescriptorProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor OneofDescriptorProto
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor OneofDescriptorProto
options__field_descriptor)]
  unknownFields :: LensLike' f OneofDescriptorProto FieldSet
unknownFields
    = (OneofDescriptorProto -> FieldSet)
-> (OneofDescriptorProto -> FieldSet -> OneofDescriptorProto)
-> Lens' OneofDescriptorProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        OneofDescriptorProto -> FieldSet
_OneofDescriptorProto'_unknownFields
        (\ x__ :: OneofDescriptorProto
x__ y__ :: FieldSet
y__ -> OneofDescriptorProto
x__ {_OneofDescriptorProto'_unknownFields :: FieldSet
_OneofDescriptorProto'_unknownFields = FieldSet
y__})
  defMessage :: OneofDescriptorProto
defMessage
    = $WOneofDescriptorProto'_constructor :: Maybe Text
-> Maybe OneofOptions -> FieldSet -> OneofDescriptorProto
OneofDescriptorProto'_constructor
        {_OneofDescriptorProto'name :: Maybe Text
_OneofDescriptorProto'name = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _OneofDescriptorProto'options :: Maybe OneofOptions
_OneofDescriptorProto'options = Maybe OneofOptions
forall a. Maybe a
Prelude.Nothing,
         _OneofDescriptorProto'_unknownFields :: FieldSet
_OneofDescriptorProto'_unknownFields = []}
  parseMessage :: Parser OneofDescriptorProto
parseMessage
    = let
        loop ::
          OneofDescriptorProto
          -> Data.ProtoLens.Encoding.Bytes.Parser OneofDescriptorProto
        loop :: OneofDescriptorProto -> Parser OneofDescriptorProto
loop x :: OneofDescriptorProto
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      OneofDescriptorProto -> Parser OneofDescriptorProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter OneofDescriptorProto OneofDescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> OneofDescriptorProto
-> OneofDescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter OneofDescriptorProto OneofDescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) OneofDescriptorProto
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "name"
                                OneofDescriptorProto -> Parser OneofDescriptorProto
loop (Setter OneofDescriptorProto OneofDescriptorProto Text Text
-> Text -> OneofDescriptorProto -> OneofDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y OneofDescriptorProto
x)
                        18
                          -> do OneofOptions
y <- Parser OneofOptions -> String -> Parser OneofOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser OneofOptions -> Parser OneofOptions
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser OneofOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "options"
                                OneofDescriptorProto -> Parser OneofDescriptorProto
loop (Setter
  OneofDescriptorProto OneofDescriptorProto OneofOptions OneofOptions
-> OneofOptions -> OneofDescriptorProto -> OneofDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"options") OneofOptions
y OneofDescriptorProto
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                OneofDescriptorProto -> Parser OneofDescriptorProto
loop
                                  (Setter OneofDescriptorProto OneofDescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> OneofDescriptorProto
-> OneofDescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter OneofDescriptorProto OneofDescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) OneofDescriptorProto
x)
      in
        Parser OneofDescriptorProto
-> String -> Parser OneofDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do OneofDescriptorProto -> Parser OneofDescriptorProto
loop OneofDescriptorProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "OneofDescriptorProto"
  buildMessage :: OneofDescriptorProto -> Builder
buildMessage
    = \ _x :: OneofDescriptorProto
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Text)
  OneofDescriptorProto
  OneofDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> OneofDescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name") OneofDescriptorProto
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Text
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Text -> ByteString
Data.Text.Encoding.encodeUtf8
                          Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe OneofOptions)
  OneofDescriptorProto
  OneofDescriptorProto
  (Maybe OneofOptions)
  (Maybe OneofOptions)
-> OneofDescriptorProto -> Maybe OneofOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options") OneofDescriptorProto
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: OneofOptions
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (OneofOptions -> ByteString) -> OneofOptions -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             OneofOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             OneofOptions
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  OneofDescriptorProto
  OneofDescriptorProto
  FieldSet
  FieldSet
-> OneofDescriptorProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  OneofDescriptorProto
  OneofDescriptorProto
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields OneofDescriptorProto
_x)))
instance Control.DeepSeq.NFData OneofDescriptorProto where
  rnf :: OneofDescriptorProto -> ()
rnf
    = \ x__ :: OneofDescriptorProto
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (OneofDescriptorProto -> FieldSet
_OneofDescriptorProto'_unknownFields OneofDescriptorProto
x__)
             (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (OneofDescriptorProto -> Maybe Text
_OneofDescriptorProto'name OneofDescriptorProto
x__)
                (Maybe OneofOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (OneofDescriptorProto -> Maybe OneofOptions
_OneofDescriptorProto'options OneofDescriptorProto
x__) ()))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' OneofOptions [UninterpretedOption]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' OneofOptions (Data.Vector.Vector UninterpretedOption)@ -}
data OneofOptions
  = OneofOptions'_constructor {OneofOptions -> Vector UninterpretedOption
_OneofOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption),
                               OneofOptions -> FieldSet
_OneofOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (OneofOptions -> OneofOptions -> Bool
(OneofOptions -> OneofOptions -> Bool)
-> (OneofOptions -> OneofOptions -> Bool) -> Eq OneofOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: OneofOptions -> OneofOptions -> Bool
$c/= :: OneofOptions -> OneofOptions -> Bool
== :: OneofOptions -> OneofOptions -> Bool
$c== :: OneofOptions -> OneofOptions -> Bool
Prelude.Eq, Eq OneofOptions
Eq OneofOptions =>
(OneofOptions -> OneofOptions -> Ordering)
-> (OneofOptions -> OneofOptions -> Bool)
-> (OneofOptions -> OneofOptions -> Bool)
-> (OneofOptions -> OneofOptions -> Bool)
-> (OneofOptions -> OneofOptions -> Bool)
-> (OneofOptions -> OneofOptions -> OneofOptions)
-> (OneofOptions -> OneofOptions -> OneofOptions)
-> Ord OneofOptions
OneofOptions -> OneofOptions -> Bool
OneofOptions -> OneofOptions -> Ordering
OneofOptions -> OneofOptions -> OneofOptions
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: OneofOptions -> OneofOptions -> OneofOptions
$cmin :: OneofOptions -> OneofOptions -> OneofOptions
max :: OneofOptions -> OneofOptions -> OneofOptions
$cmax :: OneofOptions -> OneofOptions -> OneofOptions
>= :: OneofOptions -> OneofOptions -> Bool
$c>= :: OneofOptions -> OneofOptions -> Bool
> :: OneofOptions -> OneofOptions -> Bool
$c> :: OneofOptions -> OneofOptions -> Bool
<= :: OneofOptions -> OneofOptions -> Bool
$c<= :: OneofOptions -> OneofOptions -> Bool
< :: OneofOptions -> OneofOptions -> Bool
$c< :: OneofOptions -> OneofOptions -> Bool
compare :: OneofOptions -> OneofOptions -> Ordering
$ccompare :: OneofOptions -> OneofOptions -> Ordering
$cp1Ord :: Eq OneofOptions
Prelude.Ord)
instance Prelude.Show OneofOptions where
  showsPrec :: Int -> OneofOptions -> ShowS
showsPrec _ __x :: OneofOptions
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (OneofOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort OneofOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField OneofOptions "uninterpretedOption" [UninterpretedOption] where
  fieldOf :: Proxy# "uninterpretedOption"
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> OneofOptions
-> f OneofOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> OneofOptions -> f OneofOptions)
-> (([UninterpretedOption] -> f [UninterpretedOption])
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> OneofOptions
-> f OneofOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OneofOptions -> Vector UninterpretedOption)
-> (OneofOptions -> Vector UninterpretedOption -> OneofOptions)
-> Lens
     OneofOptions
     OneofOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OneofOptions -> Vector UninterpretedOption
_OneofOptions'uninterpretedOption
           (\ x__ :: OneofOptions
x__ y__ :: Vector UninterpretedOption
y__ -> OneofOptions
x__ {_OneofOptions'uninterpretedOption :: Vector UninterpretedOption
_OneofOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        ((Vector UninterpretedOption -> [UninterpretedOption])
-> (Vector UninterpretedOption
    -> [UninterpretedOption] -> Vector UninterpretedOption)
-> Lens
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
     [UninterpretedOption]
     [UninterpretedOption]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector UninterpretedOption -> [UninterpretedOption]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [UninterpretedOption]
y__ -> [UninterpretedOption] -> Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UninterpretedOption]
y__))
instance Data.ProtoLens.Field.HasField OneofOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where
  fieldOf :: Proxy# "vec'uninterpretedOption"
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> OneofOptions
-> f OneofOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> OneofOptions -> f OneofOptions)
-> ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> OneofOptions
-> f OneofOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OneofOptions -> Vector UninterpretedOption)
-> (OneofOptions -> Vector UninterpretedOption -> OneofOptions)
-> Lens
     OneofOptions
     OneofOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OneofOptions -> Vector UninterpretedOption
_OneofOptions'uninterpretedOption
           (\ x__ :: OneofOptions
x__ y__ :: Vector UninterpretedOption
y__ -> OneofOptions
x__ {_OneofOptions'uninterpretedOption :: Vector UninterpretedOption
_OneofOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> Vector UninterpretedOption -> f (Vector UninterpretedOption)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message OneofOptions where
  messageName :: Proxy OneofOptions -> Text
messageName _ = String -> Text
Data.Text.pack "google.protobuf.OneofOptions"
  fieldsByTag :: Map Tag (FieldDescriptor OneofOptions)
fieldsByTag
    = let
        uninterpretedOption__field_descriptor :: FieldDescriptor OneofOptions
uninterpretedOption__field_descriptor
          = String
-> FieldTypeDescriptor UninterpretedOption
-> FieldAccessor OneofOptions UninterpretedOption
-> FieldDescriptor OneofOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "uninterpreted_option"
              (MessageOrGroup -> FieldTypeDescriptor UninterpretedOption
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)
              (Packing
-> Lens' OneofOptions [UninterpretedOption]
-> FieldAccessor OneofOptions UninterpretedOption
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uninterpretedOption")) ::
              Data.ProtoLens.FieldDescriptor OneofOptions
      in
        [(Tag, FieldDescriptor OneofOptions)]
-> Map Tag (FieldDescriptor OneofOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 999, FieldDescriptor OneofOptions
uninterpretedOption__field_descriptor)]
  unknownFields :: LensLike' f OneofOptions FieldSet
unknownFields
    = (OneofOptions -> FieldSet)
-> (OneofOptions -> FieldSet -> OneofOptions)
-> Lens' OneofOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        OneofOptions -> FieldSet
_OneofOptions'_unknownFields
        (\ x__ :: OneofOptions
x__ y__ :: FieldSet
y__ -> OneofOptions
x__ {_OneofOptions'_unknownFields :: FieldSet
_OneofOptions'_unknownFields = FieldSet
y__})
  defMessage :: OneofOptions
defMessage
    = $WOneofOptions'_constructor :: Vector UninterpretedOption -> FieldSet -> OneofOptions
OneofOptions'_constructor
        {_OneofOptions'uninterpretedOption :: Vector UninterpretedOption
_OneofOptions'uninterpretedOption = Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _OneofOptions'_unknownFields :: FieldSet
_OneofOptions'_unknownFields = []}
  parseMessage :: Parser OneofOptions
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 :: OneofOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser OneofOptions
loop x :: OneofOptions
x mutable'uninterpretedOption :: Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector UninterpretedOption
frozen'uninterpretedOption <- IO (Vector UninterpretedOption)
-> Parser (Vector UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                      (Growing Vector (PrimState IO) UninterpretedOption
-> IO (Vector UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                         Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      OneofOptions -> Parser OneofOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter OneofOptions OneofOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OneofOptions -> OneofOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter OneofOptions OneofOptions FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  OneofOptions
  OneofOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> Vector UninterpretedOption -> OneofOptions -> OneofOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption")
                              Vector UninterpretedOption
frozen'uninterpretedOption
                              OneofOptions
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        7994
                          -> do !UninterpretedOption
y <- Parser UninterpretedOption -> String -> Parser UninterpretedOption
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser UninterpretedOption -> Parser UninterpretedOption
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser UninterpretedOption
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "uninterpreted_option"
                                Growing Vector RealWorld UninterpretedOption
v <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) UninterpretedOption
-> UninterpretedOption
-> IO (Growing Vector (PrimState IO) UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption UninterpretedOption
y)
                                OneofOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser OneofOptions
loop OneofOptions
x Growing Vector RealWorld UninterpretedOption
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                OneofOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser OneofOptions
loop
                                  (Setter OneofOptions OneofOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> OneofOptions -> OneofOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter OneofOptions OneofOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) OneofOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
      in
        Parser OneofOptions -> String -> Parser OneofOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               IO (Growing Vector RealWorld UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              OneofOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser OneofOptions
loop OneofOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption)
          "OneofOptions"
  buildMessage :: OneofOptions -> Builder
buildMessage
    = \ _x :: OneofOptions
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((UninterpretedOption -> Builder)
-> Vector UninterpretedOption -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: UninterpretedOption
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 7994)
                        ((ByteString -> Builder)
-> (UninterpretedOption -> ByteString)
-> UninterpretedOption
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ bs :: ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           UninterpretedOption -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                           UninterpretedOption
_v))
                (FoldLike
  (Vector UninterpretedOption)
  OneofOptions
  OneofOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> OneofOptions -> Vector UninterpretedOption
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption") OneofOptions
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet OneofOptions OneofOptions FieldSet FieldSet
-> OneofOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet OneofOptions OneofOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields OneofOptions
_x))
instance Control.DeepSeq.NFData OneofOptions where
  rnf :: OneofOptions -> ()
rnf
    = \ x__ :: OneofOptions
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (OneofOptions -> FieldSet
_OneofOptions'_unknownFields OneofOptions
x__)
             (Vector UninterpretedOption -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (OneofOptions -> Vector UninterpretedOption
_OneofOptions'uninterpretedOption OneofOptions
x__) ())
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' ServiceDescriptorProto Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'name' @:: Lens' ServiceDescriptorProto (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.method' @:: Lens' ServiceDescriptorProto [MethodDescriptorProto]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'method' @:: Lens' ServiceDescriptorProto (Data.Vector.Vector MethodDescriptorProto)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.options' @:: Lens' ServiceDescriptorProto ServiceOptions@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'options' @:: Lens' ServiceDescriptorProto (Prelude.Maybe ServiceOptions)@ -}
data ServiceDescriptorProto
  = ServiceDescriptorProto'_constructor {ServiceDescriptorProto -> Maybe Text
_ServiceDescriptorProto'name :: !(Prelude.Maybe Data.Text.Text),
                                         ServiceDescriptorProto -> Vector MethodDescriptorProto
_ServiceDescriptorProto'method :: !(Data.Vector.Vector MethodDescriptorProto),
                                         ServiceDescriptorProto -> Maybe ServiceOptions
_ServiceDescriptorProto'options :: !(Prelude.Maybe ServiceOptions),
                                         ServiceDescriptorProto -> FieldSet
_ServiceDescriptorProto'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (ServiceDescriptorProto -> ServiceDescriptorProto -> Bool
(ServiceDescriptorProto -> ServiceDescriptorProto -> Bool)
-> (ServiceDescriptorProto -> ServiceDescriptorProto -> Bool)
-> Eq ServiceDescriptorProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ServiceDescriptorProto -> ServiceDescriptorProto -> Bool
$c/= :: ServiceDescriptorProto -> ServiceDescriptorProto -> Bool
== :: ServiceDescriptorProto -> ServiceDescriptorProto -> Bool
$c== :: ServiceDescriptorProto -> ServiceDescriptorProto -> Bool
Prelude.Eq, Eq ServiceDescriptorProto
Eq ServiceDescriptorProto =>
(ServiceDescriptorProto -> ServiceDescriptorProto -> Ordering)
-> (ServiceDescriptorProto -> ServiceDescriptorProto -> Bool)
-> (ServiceDescriptorProto -> ServiceDescriptorProto -> Bool)
-> (ServiceDescriptorProto -> ServiceDescriptorProto -> Bool)
-> (ServiceDescriptorProto -> ServiceDescriptorProto -> Bool)
-> (ServiceDescriptorProto
    -> ServiceDescriptorProto -> ServiceDescriptorProto)
-> (ServiceDescriptorProto
    -> ServiceDescriptorProto -> ServiceDescriptorProto)
-> Ord ServiceDescriptorProto
ServiceDescriptorProto -> ServiceDescriptorProto -> Bool
ServiceDescriptorProto -> ServiceDescriptorProto -> Ordering
ServiceDescriptorProto
-> ServiceDescriptorProto -> ServiceDescriptorProto
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: ServiceDescriptorProto
-> ServiceDescriptorProto -> ServiceDescriptorProto
$cmin :: ServiceDescriptorProto
-> ServiceDescriptorProto -> ServiceDescriptorProto
max :: ServiceDescriptorProto
-> ServiceDescriptorProto -> ServiceDescriptorProto
$cmax :: ServiceDescriptorProto
-> ServiceDescriptorProto -> ServiceDescriptorProto
>= :: ServiceDescriptorProto -> ServiceDescriptorProto -> Bool
$c>= :: ServiceDescriptorProto -> ServiceDescriptorProto -> Bool
> :: ServiceDescriptorProto -> ServiceDescriptorProto -> Bool
$c> :: ServiceDescriptorProto -> ServiceDescriptorProto -> Bool
<= :: ServiceDescriptorProto -> ServiceDescriptorProto -> Bool
$c<= :: ServiceDescriptorProto -> ServiceDescriptorProto -> Bool
< :: ServiceDescriptorProto -> ServiceDescriptorProto -> Bool
$c< :: ServiceDescriptorProto -> ServiceDescriptorProto -> Bool
compare :: ServiceDescriptorProto -> ServiceDescriptorProto -> Ordering
$ccompare :: ServiceDescriptorProto -> ServiceDescriptorProto -> Ordering
$cp1Ord :: Eq ServiceDescriptorProto
Prelude.Ord)
instance Prelude.Show ServiceDescriptorProto where
  showsPrec :: Int -> ServiceDescriptorProto -> ShowS
showsPrec _ __x :: ServiceDescriptorProto
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (ServiceDescriptorProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ServiceDescriptorProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField ServiceDescriptorProto "name" Data.Text.Text where
  fieldOf :: Proxy# "name"
-> (Text -> f Text)
-> ServiceDescriptorProto
-> f ServiceDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> ServiceDescriptorProto -> f ServiceDescriptorProto)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> ServiceDescriptorProto
-> f ServiceDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServiceDescriptorProto -> Maybe Text)
-> (ServiceDescriptorProto -> Maybe Text -> ServiceDescriptorProto)
-> Lens
     ServiceDescriptorProto
     ServiceDescriptorProto
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServiceDescriptorProto -> Maybe Text
_ServiceDescriptorProto'name
           (\ x__ :: ServiceDescriptorProto
x__ y__ :: Maybe Text
y__ -> ServiceDescriptorProto
x__ {_ServiceDescriptorProto'name :: Maybe Text
_ServiceDescriptorProto'name = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField ServiceDescriptorProto "maybe'name" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'name"
-> (Maybe Text -> f (Maybe Text))
-> ServiceDescriptorProto
-> f ServiceDescriptorProto
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> ServiceDescriptorProto -> f ServiceDescriptorProto)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> ServiceDescriptorProto
-> f ServiceDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServiceDescriptorProto -> Maybe Text)
-> (ServiceDescriptorProto -> Maybe Text -> ServiceDescriptorProto)
-> Lens
     ServiceDescriptorProto
     ServiceDescriptorProto
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServiceDescriptorProto -> Maybe Text
_ServiceDescriptorProto'name
           (\ x__ :: ServiceDescriptorProto
x__ y__ :: Maybe Text
y__ -> ServiceDescriptorProto
x__ {_ServiceDescriptorProto'name :: Maybe Text
_ServiceDescriptorProto'name = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ServiceDescriptorProto "method" [MethodDescriptorProto] where
  fieldOf :: Proxy# "method"
-> ([MethodDescriptorProto] -> f [MethodDescriptorProto])
-> ServiceDescriptorProto
-> f ServiceDescriptorProto
fieldOf _
    = ((Vector MethodDescriptorProto -> f (Vector MethodDescriptorProto))
 -> ServiceDescriptorProto -> f ServiceDescriptorProto)
-> (([MethodDescriptorProto] -> f [MethodDescriptorProto])
    -> Vector MethodDescriptorProto
    -> f (Vector MethodDescriptorProto))
-> ([MethodDescriptorProto] -> f [MethodDescriptorProto])
-> ServiceDescriptorProto
-> f ServiceDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServiceDescriptorProto -> Vector MethodDescriptorProto)
-> (ServiceDescriptorProto
    -> Vector MethodDescriptorProto -> ServiceDescriptorProto)
-> Lens
     ServiceDescriptorProto
     ServiceDescriptorProto
     (Vector MethodDescriptorProto)
     (Vector MethodDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServiceDescriptorProto -> Vector MethodDescriptorProto
_ServiceDescriptorProto'method
           (\ x__ :: ServiceDescriptorProto
x__ y__ :: Vector MethodDescriptorProto
y__ -> ServiceDescriptorProto
x__ {_ServiceDescriptorProto'method :: Vector MethodDescriptorProto
_ServiceDescriptorProto'method = Vector MethodDescriptorProto
y__}))
        ((Vector MethodDescriptorProto -> [MethodDescriptorProto])
-> (Vector MethodDescriptorProto
    -> [MethodDescriptorProto] -> Vector MethodDescriptorProto)
-> Lens
     (Vector MethodDescriptorProto)
     (Vector MethodDescriptorProto)
     [MethodDescriptorProto]
     [MethodDescriptorProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector MethodDescriptorProto -> [MethodDescriptorProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [MethodDescriptorProto]
y__ -> [MethodDescriptorProto] -> Vector MethodDescriptorProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [MethodDescriptorProto]
y__))
instance Data.ProtoLens.Field.HasField ServiceDescriptorProto "vec'method" (Data.Vector.Vector MethodDescriptorProto) where
  fieldOf :: Proxy# "vec'method"
-> (Vector MethodDescriptorProto
    -> f (Vector MethodDescriptorProto))
-> ServiceDescriptorProto
-> f ServiceDescriptorProto
fieldOf _
    = ((Vector MethodDescriptorProto -> f (Vector MethodDescriptorProto))
 -> ServiceDescriptorProto -> f ServiceDescriptorProto)
-> ((Vector MethodDescriptorProto
     -> f (Vector MethodDescriptorProto))
    -> Vector MethodDescriptorProto
    -> f (Vector MethodDescriptorProto))
-> (Vector MethodDescriptorProto
    -> f (Vector MethodDescriptorProto))
-> ServiceDescriptorProto
-> f ServiceDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServiceDescriptorProto -> Vector MethodDescriptorProto)
-> (ServiceDescriptorProto
    -> Vector MethodDescriptorProto -> ServiceDescriptorProto)
-> Lens
     ServiceDescriptorProto
     ServiceDescriptorProto
     (Vector MethodDescriptorProto)
     (Vector MethodDescriptorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServiceDescriptorProto -> Vector MethodDescriptorProto
_ServiceDescriptorProto'method
           (\ x__ :: ServiceDescriptorProto
x__ y__ :: Vector MethodDescriptorProto
y__ -> ServiceDescriptorProto
x__ {_ServiceDescriptorProto'method :: Vector MethodDescriptorProto
_ServiceDescriptorProto'method = Vector MethodDescriptorProto
y__}))
        (Vector MethodDescriptorProto -> f (Vector MethodDescriptorProto))
-> Vector MethodDescriptorProto -> f (Vector MethodDescriptorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ServiceDescriptorProto "options" ServiceOptions where
  fieldOf :: Proxy# "options"
-> (ServiceOptions -> f ServiceOptions)
-> ServiceDescriptorProto
-> f ServiceDescriptorProto
fieldOf _
    = ((Maybe ServiceOptions -> f (Maybe ServiceOptions))
 -> ServiceDescriptorProto -> f ServiceDescriptorProto)
-> ((ServiceOptions -> f ServiceOptions)
    -> Maybe ServiceOptions -> f (Maybe ServiceOptions))
-> (ServiceOptions -> f ServiceOptions)
-> ServiceDescriptorProto
-> f ServiceDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServiceDescriptorProto -> Maybe ServiceOptions)
-> (ServiceDescriptorProto
    -> Maybe ServiceOptions -> ServiceDescriptorProto)
-> Lens
     ServiceDescriptorProto
     ServiceDescriptorProto
     (Maybe ServiceOptions)
     (Maybe ServiceOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServiceDescriptorProto -> Maybe ServiceOptions
_ServiceDescriptorProto'options
           (\ x__ :: ServiceDescriptorProto
x__ y__ :: Maybe ServiceOptions
y__ -> ServiceDescriptorProto
x__ {_ServiceDescriptorProto'options :: Maybe ServiceOptions
_ServiceDescriptorProto'options = Maybe ServiceOptions
y__}))
        (ServiceOptions -> Lens' (Maybe ServiceOptions) ServiceOptions
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ServiceOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ServiceDescriptorProto "maybe'options" (Prelude.Maybe ServiceOptions) where
  fieldOf :: Proxy# "maybe'options"
-> (Maybe ServiceOptions -> f (Maybe ServiceOptions))
-> ServiceDescriptorProto
-> f ServiceDescriptorProto
fieldOf _
    = ((Maybe ServiceOptions -> f (Maybe ServiceOptions))
 -> ServiceDescriptorProto -> f ServiceDescriptorProto)
-> ((Maybe ServiceOptions -> f (Maybe ServiceOptions))
    -> Maybe ServiceOptions -> f (Maybe ServiceOptions))
-> (Maybe ServiceOptions -> f (Maybe ServiceOptions))
-> ServiceDescriptorProto
-> f ServiceDescriptorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServiceDescriptorProto -> Maybe ServiceOptions)
-> (ServiceDescriptorProto
    -> Maybe ServiceOptions -> ServiceDescriptorProto)
-> Lens
     ServiceDescriptorProto
     ServiceDescriptorProto
     (Maybe ServiceOptions)
     (Maybe ServiceOptions)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServiceDescriptorProto -> Maybe ServiceOptions
_ServiceDescriptorProto'options
           (\ x__ :: ServiceDescriptorProto
x__ y__ :: Maybe ServiceOptions
y__ -> ServiceDescriptorProto
x__ {_ServiceDescriptorProto'options :: Maybe ServiceOptions
_ServiceDescriptorProto'options = Maybe ServiceOptions
y__}))
        (Maybe ServiceOptions -> f (Maybe ServiceOptions))
-> Maybe ServiceOptions -> f (Maybe ServiceOptions)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ServiceDescriptorProto where
  messageName :: Proxy ServiceDescriptorProto -> Text
messageName _
    = String -> Text
Data.Text.pack "google.protobuf.ServiceDescriptorProto"
  fieldsByTag :: Map Tag (FieldDescriptor ServiceDescriptorProto)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor ServiceDescriptorProto
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ServiceDescriptorProto Text
-> FieldDescriptor ServiceDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  ServiceDescriptorProto
  ServiceDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> FieldAccessor ServiceDescriptorProto Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name")) ::
              Data.ProtoLens.FieldDescriptor ServiceDescriptorProto
        method__field_descriptor :: FieldDescriptor ServiceDescriptorProto
method__field_descriptor
          = String
-> FieldTypeDescriptor MethodDescriptorProto
-> FieldAccessor ServiceDescriptorProto MethodDescriptorProto
-> FieldDescriptor ServiceDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "method"
              (MessageOrGroup -> FieldTypeDescriptor MethodDescriptorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor MethodDescriptorProto)
              (Packing
-> Lens' ServiceDescriptorProto [MethodDescriptorProto]
-> FieldAccessor ServiceDescriptorProto MethodDescriptorProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "method" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"method")) ::
              Data.ProtoLens.FieldDescriptor ServiceDescriptorProto
        options__field_descriptor :: FieldDescriptor ServiceDescriptorProto
options__field_descriptor
          = String
-> FieldTypeDescriptor ServiceOptions
-> FieldAccessor ServiceDescriptorProto ServiceOptions
-> FieldDescriptor ServiceDescriptorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "options"
              (MessageOrGroup -> FieldTypeDescriptor ServiceOptions
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ServiceOptions)
              (Lens
  ServiceDescriptorProto
  ServiceDescriptorProto
  (Maybe ServiceOptions)
  (Maybe ServiceOptions)
-> FieldAccessor ServiceDescriptorProto ServiceOptions
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options")) ::
              Data.ProtoLens.FieldDescriptor ServiceDescriptorProto
      in
        [(Tag, FieldDescriptor ServiceDescriptorProto)]
-> Map Tag (FieldDescriptor ServiceDescriptorProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor ServiceDescriptorProto
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor ServiceDescriptorProto
method__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor ServiceDescriptorProto
options__field_descriptor)]
  unknownFields :: LensLike' f ServiceDescriptorProto FieldSet
unknownFields
    = (ServiceDescriptorProto -> FieldSet)
-> (ServiceDescriptorProto -> FieldSet -> ServiceDescriptorProto)
-> Lens' ServiceDescriptorProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ServiceDescriptorProto -> FieldSet
_ServiceDescriptorProto'_unknownFields
        (\ x__ :: ServiceDescriptorProto
x__ y__ :: FieldSet
y__ -> ServiceDescriptorProto
x__ {_ServiceDescriptorProto'_unknownFields :: FieldSet
_ServiceDescriptorProto'_unknownFields = FieldSet
y__})
  defMessage :: ServiceDescriptorProto
defMessage
    = $WServiceDescriptorProto'_constructor :: Maybe Text
-> Vector MethodDescriptorProto
-> Maybe ServiceOptions
-> FieldSet
-> ServiceDescriptorProto
ServiceDescriptorProto'_constructor
        {_ServiceDescriptorProto'name :: Maybe Text
_ServiceDescriptorProto'name = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _ServiceDescriptorProto'method :: Vector MethodDescriptorProto
_ServiceDescriptorProto'method = Vector MethodDescriptorProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ServiceDescriptorProto'options :: Maybe ServiceOptions
_ServiceDescriptorProto'options = Maybe ServiceOptions
forall a. Maybe a
Prelude.Nothing,
         _ServiceDescriptorProto'_unknownFields :: FieldSet
_ServiceDescriptorProto'_unknownFields = []}
  parseMessage :: Parser ServiceDescriptorProto
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 :: ServiceDescriptorProto
-> Growing Vector RealWorld MethodDescriptorProto
-> Parser ServiceDescriptorProto
loop x :: ServiceDescriptorProto
x mutable'method :: Growing Vector RealWorld MethodDescriptorProto
mutable'method
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector MethodDescriptorProto
frozen'method <- IO (Vector MethodDescriptorProto)
-> Parser (Vector MethodDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                         (Growing Vector (PrimState IO) MethodDescriptorProto
-> IO (Vector MethodDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                            Growing Vector RealWorld MethodDescriptorProto
Growing Vector (PrimState IO) MethodDescriptorProto
mutable'method)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ServiceDescriptorProto -> Parser ServiceDescriptorProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  ServiceDescriptorProto ServiceDescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ServiceDescriptorProto
-> ServiceDescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  ServiceDescriptorProto ServiceDescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  ServiceDescriptorProto
  ServiceDescriptorProto
  (Vector MethodDescriptorProto)
  (Vector MethodDescriptorProto)
-> Vector MethodDescriptorProto
-> ServiceDescriptorProto
-> ServiceDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'method" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'method") Vector MethodDescriptorProto
frozen'method ServiceDescriptorProto
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "name"
                                ServiceDescriptorProto
-> Growing Vector RealWorld MethodDescriptorProto
-> Parser ServiceDescriptorProto
loop
                                  (Setter ServiceDescriptorProto ServiceDescriptorProto Text Text
-> Text -> ServiceDescriptorProto -> ServiceDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y ServiceDescriptorProto
x)
                                  Growing Vector RealWorld MethodDescriptorProto
mutable'method
                        18
                          -> do !MethodDescriptorProto
y <- Parser MethodDescriptorProto
-> String -> Parser MethodDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser MethodDescriptorProto -> Parser MethodDescriptorProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser MethodDescriptorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "method"
                                Growing Vector RealWorld MethodDescriptorProto
v <- IO (Growing Vector RealWorld MethodDescriptorProto)
-> Parser (Growing Vector RealWorld MethodDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) MethodDescriptorProto
-> MethodDescriptorProto
-> IO (Growing Vector (PrimState IO) MethodDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld MethodDescriptorProto
Growing Vector (PrimState IO) MethodDescriptorProto
mutable'method MethodDescriptorProto
y)
                                ServiceDescriptorProto
-> Growing Vector RealWorld MethodDescriptorProto
-> Parser ServiceDescriptorProto
loop ServiceDescriptorProto
x Growing Vector RealWorld MethodDescriptorProto
v
                        26
                          -> do ServiceOptions
y <- Parser ServiceOptions -> String -> Parser ServiceOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ServiceOptions -> Parser ServiceOptions
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser ServiceOptions
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "options"
                                ServiceDescriptorProto
-> Growing Vector RealWorld MethodDescriptorProto
-> Parser ServiceDescriptorProto
loop
                                  (Setter
  ServiceDescriptorProto
  ServiceDescriptorProto
  ServiceOptions
  ServiceOptions
-> ServiceOptions
-> ServiceDescriptorProto
-> ServiceDescriptorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"options") ServiceOptions
y ServiceDescriptorProto
x)
                                  Growing Vector RealWorld MethodDescriptorProto
mutable'method
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ServiceDescriptorProto
-> Growing Vector RealWorld MethodDescriptorProto
-> Parser ServiceDescriptorProto
loop
                                  (Setter
  ServiceDescriptorProto ServiceDescriptorProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ServiceDescriptorProto
-> ServiceDescriptorProto
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  ServiceDescriptorProto ServiceDescriptorProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ServiceDescriptorProto
x)
                                  Growing Vector RealWorld MethodDescriptorProto
mutable'method
      in
        Parser ServiceDescriptorProto
-> String -> Parser ServiceDescriptorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld MethodDescriptorProto
mutable'method <- IO (Growing Vector RealWorld MethodDescriptorProto)
-> Parser (Growing Vector RealWorld MethodDescriptorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                  IO (Growing Vector RealWorld MethodDescriptorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              ServiceDescriptorProto
-> Growing Vector RealWorld MethodDescriptorProto
-> Parser ServiceDescriptorProto
loop ServiceDescriptorProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld MethodDescriptorProto
mutable'method)
          "ServiceDescriptorProto"
  buildMessage :: ServiceDescriptorProto -> Builder
buildMessage
    = \ _x :: ServiceDescriptorProto
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Text)
  ServiceDescriptorProto
  ServiceDescriptorProto
  (Maybe Text)
  (Maybe Text)
-> ServiceDescriptorProto -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'name") ServiceDescriptorProto
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Text
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                       ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Text -> ByteString
Data.Text.Encoding.encodeUtf8
                          Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((MethodDescriptorProto -> Builder)
-> Vector MethodDescriptorProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ _v :: MethodDescriptorProto
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                           ((ByteString -> Builder)
-> (MethodDescriptorProto -> ByteString)
-> MethodDescriptorProto
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                              (\ bs :: ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                              MethodDescriptorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                              MethodDescriptorProto
_v))
                   (FoldLike
  (Vector MethodDescriptorProto)
  ServiceDescriptorProto
  ServiceDescriptorProto
  (Vector MethodDescriptorProto)
  (Vector MethodDescriptorProto)
-> ServiceDescriptorProto -> Vector MethodDescriptorProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'method" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'method") ServiceDescriptorProto
_x))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe ServiceOptions)
  ServiceDescriptorProto
  ServiceDescriptorProto
  (Maybe ServiceOptions)
  (Maybe ServiceOptions)
-> ServiceDescriptorProto -> Maybe ServiceOptions
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'options" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'options") ServiceDescriptorProto
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: ServiceOptions
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                             ((ByteString -> Builder)
-> (ServiceOptions -> ByteString) -> ServiceOptions -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ bs :: ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                ServiceOptions -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                ServiceOptions
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  ServiceDescriptorProto
  ServiceDescriptorProto
  FieldSet
  FieldSet
-> ServiceDescriptorProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ServiceDescriptorProto
  ServiceDescriptorProto
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ServiceDescriptorProto
_x))))
instance Control.DeepSeq.NFData ServiceDescriptorProto where
  rnf :: ServiceDescriptorProto -> ()
rnf
    = \ x__ :: ServiceDescriptorProto
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ServiceDescriptorProto -> FieldSet
_ServiceDescriptorProto'_unknownFields ServiceDescriptorProto
x__)
             (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ServiceDescriptorProto -> Maybe Text
_ServiceDescriptorProto'name ServiceDescriptorProto
x__)
                (Vector MethodDescriptorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ServiceDescriptorProto -> Vector MethodDescriptorProto
_ServiceDescriptorProto'method ServiceDescriptorProto
x__)
                   (Maybe ServiceOptions -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (ServiceDescriptorProto -> Maybe ServiceOptions
_ServiceDescriptorProto'options ServiceDescriptorProto
x__) ())))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.deprecated' @:: Lens' ServiceOptions Prelude.Bool@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'deprecated' @:: Lens' ServiceOptions (Prelude.Maybe Prelude.Bool)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.uninterpretedOption' @:: Lens' ServiceOptions [UninterpretedOption]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'uninterpretedOption' @:: Lens' ServiceOptions (Data.Vector.Vector UninterpretedOption)@ -}
data ServiceOptions
  = ServiceOptions'_constructor {ServiceOptions -> Maybe Bool
_ServiceOptions'deprecated :: !(Prelude.Maybe Prelude.Bool),
                                 ServiceOptions -> Vector UninterpretedOption
_ServiceOptions'uninterpretedOption :: !(Data.Vector.Vector UninterpretedOption),
                                 ServiceOptions -> FieldSet
_ServiceOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (ServiceOptions -> ServiceOptions -> Bool
(ServiceOptions -> ServiceOptions -> Bool)
-> (ServiceOptions -> ServiceOptions -> Bool) -> Eq ServiceOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ServiceOptions -> ServiceOptions -> Bool
$c/= :: ServiceOptions -> ServiceOptions -> Bool
== :: ServiceOptions -> ServiceOptions -> Bool
$c== :: ServiceOptions -> ServiceOptions -> Bool
Prelude.Eq, Eq ServiceOptions
Eq ServiceOptions =>
(ServiceOptions -> ServiceOptions -> Ordering)
-> (ServiceOptions -> ServiceOptions -> Bool)
-> (ServiceOptions -> ServiceOptions -> Bool)
-> (ServiceOptions -> ServiceOptions -> Bool)
-> (ServiceOptions -> ServiceOptions -> Bool)
-> (ServiceOptions -> ServiceOptions -> ServiceOptions)
-> (ServiceOptions -> ServiceOptions -> ServiceOptions)
-> Ord ServiceOptions
ServiceOptions -> ServiceOptions -> Bool
ServiceOptions -> ServiceOptions -> Ordering
ServiceOptions -> ServiceOptions -> ServiceOptions
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: ServiceOptions -> ServiceOptions -> ServiceOptions
$cmin :: ServiceOptions -> ServiceOptions -> ServiceOptions
max :: ServiceOptions -> ServiceOptions -> ServiceOptions
$cmax :: ServiceOptions -> ServiceOptions -> ServiceOptions
>= :: ServiceOptions -> ServiceOptions -> Bool
$c>= :: ServiceOptions -> ServiceOptions -> Bool
> :: ServiceOptions -> ServiceOptions -> Bool
$c> :: ServiceOptions -> ServiceOptions -> Bool
<= :: ServiceOptions -> ServiceOptions -> Bool
$c<= :: ServiceOptions -> ServiceOptions -> Bool
< :: ServiceOptions -> ServiceOptions -> Bool
$c< :: ServiceOptions -> ServiceOptions -> Bool
compare :: ServiceOptions -> ServiceOptions -> Ordering
$ccompare :: ServiceOptions -> ServiceOptions -> Ordering
$cp1Ord :: Eq ServiceOptions
Prelude.Ord)
instance Prelude.Show ServiceOptions where
  showsPrec :: Int -> ServiceOptions -> ShowS
showsPrec _ __x :: ServiceOptions
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (ServiceOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ServiceOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField ServiceOptions "deprecated" Prelude.Bool where
  fieldOf :: Proxy# "deprecated"
-> (Bool -> f Bool) -> ServiceOptions -> f ServiceOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> ServiceOptions -> f ServiceOptions)
-> ((Bool -> f Bool) -> Maybe Bool -> f (Maybe Bool))
-> (Bool -> f Bool)
-> ServiceOptions
-> f ServiceOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServiceOptions -> Maybe Bool)
-> (ServiceOptions -> Maybe Bool -> ServiceOptions)
-> Lens ServiceOptions ServiceOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServiceOptions -> Maybe Bool
_ServiceOptions'deprecated
           (\ x__ :: ServiceOptions
x__ y__ :: Maybe Bool
y__ -> ServiceOptions
x__ {_ServiceOptions'deprecated :: Maybe Bool
_ServiceOptions'deprecated = Maybe Bool
y__}))
        (Bool -> Lens' (Maybe Bool) Bool
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Bool
Prelude.False)
instance Data.ProtoLens.Field.HasField ServiceOptions "maybe'deprecated" (Prelude.Maybe Prelude.Bool) where
  fieldOf :: Proxy# "maybe'deprecated"
-> (Maybe Bool -> f (Maybe Bool))
-> ServiceOptions
-> f ServiceOptions
fieldOf _
    = ((Maybe Bool -> f (Maybe Bool))
 -> ServiceOptions -> f ServiceOptions)
-> ((Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool))
-> (Maybe Bool -> f (Maybe Bool))
-> ServiceOptions
-> f ServiceOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServiceOptions -> Maybe Bool)
-> (ServiceOptions -> Maybe Bool -> ServiceOptions)
-> Lens ServiceOptions ServiceOptions (Maybe Bool) (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServiceOptions -> Maybe Bool
_ServiceOptions'deprecated
           (\ x__ :: ServiceOptions
x__ y__ :: Maybe Bool
y__ -> ServiceOptions
x__ {_ServiceOptions'deprecated :: Maybe Bool
_ServiceOptions'deprecated = Maybe Bool
y__}))
        (Maybe Bool -> f (Maybe Bool)) -> Maybe Bool -> f (Maybe Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ServiceOptions "uninterpretedOption" [UninterpretedOption] where
  fieldOf :: Proxy# "uninterpretedOption"
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> ServiceOptions
-> f ServiceOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> ServiceOptions -> f ServiceOptions)
-> (([UninterpretedOption] -> f [UninterpretedOption])
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> ([UninterpretedOption] -> f [UninterpretedOption])
-> ServiceOptions
-> f ServiceOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServiceOptions -> Vector UninterpretedOption)
-> (ServiceOptions -> Vector UninterpretedOption -> ServiceOptions)
-> Lens
     ServiceOptions
     ServiceOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServiceOptions -> Vector UninterpretedOption
_ServiceOptions'uninterpretedOption
           (\ x__ :: ServiceOptions
x__ y__ :: Vector UninterpretedOption
y__ -> ServiceOptions
x__ {_ServiceOptions'uninterpretedOption :: Vector UninterpretedOption
_ServiceOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        ((Vector UninterpretedOption -> [UninterpretedOption])
-> (Vector UninterpretedOption
    -> [UninterpretedOption] -> Vector UninterpretedOption)
-> Lens
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
     [UninterpretedOption]
     [UninterpretedOption]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector UninterpretedOption -> [UninterpretedOption]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [UninterpretedOption]
y__ -> [UninterpretedOption] -> Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UninterpretedOption]
y__))
instance Data.ProtoLens.Field.HasField ServiceOptions "vec'uninterpretedOption" (Data.Vector.Vector UninterpretedOption) where
  fieldOf :: Proxy# "vec'uninterpretedOption"
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> ServiceOptions
-> f ServiceOptions
fieldOf _
    = ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
 -> ServiceOptions -> f ServiceOptions)
-> ((Vector UninterpretedOption -> f (Vector UninterpretedOption))
    -> Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> ServiceOptions
-> f ServiceOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServiceOptions -> Vector UninterpretedOption)
-> (ServiceOptions -> Vector UninterpretedOption -> ServiceOptions)
-> Lens
     ServiceOptions
     ServiceOptions
     (Vector UninterpretedOption)
     (Vector UninterpretedOption)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServiceOptions -> Vector UninterpretedOption
_ServiceOptions'uninterpretedOption
           (\ x__ :: ServiceOptions
x__ y__ :: Vector UninterpretedOption
y__ -> ServiceOptions
x__ {_ServiceOptions'uninterpretedOption :: Vector UninterpretedOption
_ServiceOptions'uninterpretedOption = Vector UninterpretedOption
y__}))
        (Vector UninterpretedOption -> f (Vector UninterpretedOption))
-> Vector UninterpretedOption -> f (Vector UninterpretedOption)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ServiceOptions where
  messageName :: Proxy ServiceOptions -> Text
messageName _ = String -> Text
Data.Text.pack "google.protobuf.ServiceOptions"
  fieldsByTag :: Map Tag (FieldDescriptor ServiceOptions)
fieldsByTag
    = let
        deprecated__field_descriptor :: FieldDescriptor ServiceOptions
deprecated__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor ServiceOptions Bool
-> FieldDescriptor ServiceOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "deprecated"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (Lens ServiceOptions ServiceOptions (Maybe Bool) (Maybe Bool)
-> FieldAccessor ServiceOptions Bool
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'deprecated")) ::
              Data.ProtoLens.FieldDescriptor ServiceOptions
        uninterpretedOption__field_descriptor :: FieldDescriptor ServiceOptions
uninterpretedOption__field_descriptor
          = String
-> FieldTypeDescriptor UninterpretedOption
-> FieldAccessor ServiceOptions UninterpretedOption
-> FieldDescriptor ServiceOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "uninterpreted_option"
              (MessageOrGroup -> FieldTypeDescriptor UninterpretedOption
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UninterpretedOption)
              (Packing
-> Lens' ServiceOptions [UninterpretedOption]
-> FieldAccessor ServiceOptions UninterpretedOption
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uninterpretedOption")) ::
              Data.ProtoLens.FieldDescriptor ServiceOptions
      in
        [(Tag, FieldDescriptor ServiceOptions)]
-> Map Tag (FieldDescriptor ServiceOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 33, FieldDescriptor ServiceOptions
deprecated__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 999, FieldDescriptor ServiceOptions
uninterpretedOption__field_descriptor)]
  unknownFields :: LensLike' f ServiceOptions FieldSet
unknownFields
    = (ServiceOptions -> FieldSet)
-> (ServiceOptions -> FieldSet -> ServiceOptions)
-> Lens' ServiceOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ServiceOptions -> FieldSet
_ServiceOptions'_unknownFields
        (\ x__ :: ServiceOptions
x__ y__ :: FieldSet
y__ -> ServiceOptions
x__ {_ServiceOptions'_unknownFields :: FieldSet
_ServiceOptions'_unknownFields = FieldSet
y__})
  defMessage :: ServiceOptions
defMessage
    = $WServiceOptions'_constructor :: Maybe Bool
-> Vector UninterpretedOption -> FieldSet -> ServiceOptions
ServiceOptions'_constructor
        {_ServiceOptions'deprecated :: Maybe Bool
_ServiceOptions'deprecated = Maybe Bool
forall a. Maybe a
Prelude.Nothing,
         _ServiceOptions'uninterpretedOption :: Vector UninterpretedOption
_ServiceOptions'uninterpretedOption = Vector UninterpretedOption
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ServiceOptions'_unknownFields :: FieldSet
_ServiceOptions'_unknownFields = []}
  parseMessage :: Parser ServiceOptions
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 :: ServiceOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser ServiceOptions
loop x :: ServiceOptions
x mutable'uninterpretedOption :: Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector UninterpretedOption
frozen'uninterpretedOption <- IO (Vector UninterpretedOption)
-> Parser (Vector UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                      (Growing Vector (PrimState IO) UninterpretedOption
-> IO (Vector UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                         Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      ServiceOptions -> Parser ServiceOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter ServiceOptions ServiceOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ServiceOptions -> ServiceOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter ServiceOptions ServiceOptions FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  ServiceOptions
  ServiceOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> Vector UninterpretedOption -> ServiceOptions -> ServiceOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption")
                              Vector UninterpretedOption
frozen'uninterpretedOption
                              ServiceOptions
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        264
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "deprecated"
                                ServiceOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser ServiceOptions
loop
                                  (Setter ServiceOptions ServiceOptions Bool Bool
-> Bool -> ServiceOptions -> ServiceOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deprecated") Bool
y ServiceOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
                        7994
                          -> do !UninterpretedOption
y <- Parser UninterpretedOption -> String -> Parser UninterpretedOption
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser UninterpretedOption -> Parser UninterpretedOption
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser UninterpretedOption
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "uninterpreted_option"
                                Growing Vector RealWorld UninterpretedOption
v <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) UninterpretedOption
-> UninterpretedOption
-> IO (Growing Vector (PrimState IO) UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld UninterpretedOption
Growing Vector (PrimState IO) UninterpretedOption
mutable'uninterpretedOption UninterpretedOption
y)
                                ServiceOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser ServiceOptions
loop ServiceOptions
x Growing Vector RealWorld UninterpretedOption
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ServiceOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser ServiceOptions
loop
                                  (Setter ServiceOptions ServiceOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ServiceOptions -> ServiceOptions
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter ServiceOptions ServiceOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ServiceOptions
x)
                                  Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption
      in
        Parser ServiceOptions -> String -> Parser ServiceOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption <- IO (Growing Vector RealWorld UninterpretedOption)
-> Parser (Growing Vector RealWorld UninterpretedOption)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               IO (Growing Vector RealWorld UninterpretedOption)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              ServiceOptions
-> Growing Vector RealWorld UninterpretedOption
-> Parser ServiceOptions
loop ServiceOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld UninterpretedOption
mutable'uninterpretedOption)
          "ServiceOptions"
  buildMessage :: ServiceOptions -> Builder
buildMessage
    = \ _x :: ServiceOptions
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe Bool)
  ServiceOptions
  ServiceOptions
  (Maybe Bool)
  (Maybe Bool)
-> ServiceOptions -> Maybe Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                    (forall s a (f :: * -> *).
(HasField s "maybe'deprecated" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'deprecated") ServiceOptions
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just _v :: Bool
_v)
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 264)
                       ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                          (\ b :: Bool
b -> if Bool
b then 1 else 0)
                          Bool
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((UninterpretedOption -> Builder)
-> Vector UninterpretedOption -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ _v :: UninterpretedOption
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 7994)
                           ((ByteString -> Builder)
-> (UninterpretedOption -> ByteString)
-> UninterpretedOption
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                              (\ bs :: ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                              UninterpretedOption -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                              UninterpretedOption
_v))
                   (FoldLike
  (Vector UninterpretedOption)
  ServiceOptions
  ServiceOptions
  (Vector UninterpretedOption)
  (Vector UninterpretedOption)
-> ServiceOptions -> Vector UninterpretedOption
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall s a (f :: * -> *).
(HasField s "vec'uninterpretedOption" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'uninterpretedOption") ServiceOptions
_x))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet ServiceOptions ServiceOptions FieldSet FieldSet
-> ServiceOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ServiceOptions ServiceOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ServiceOptions
_x)))
instance Control.DeepSeq.NFData ServiceOptions where
  rnf :: ServiceOptions -> ()
rnf
    = \ x__ :: ServiceOptions
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ServiceOptions -> FieldSet
_ServiceOptions'_unknownFields ServiceOptions
x__)
             (Maybe Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ServiceOptions -> Maybe Bool
_ServiceOptions'deprecated ServiceOptions
x__)
                (Vector UninterpretedOption -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ServiceOptions -> Vector UninterpretedOption
_ServiceOptions'uninterpretedOption ServiceOptions
x__) ()))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.location' @:: Lens' SourceCodeInfo [SourceCodeInfo'Location]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'location' @:: Lens' SourceCodeInfo (Data.Vector.Vector SourceCodeInfo'Location)@ -}
data SourceCodeInfo
  = SourceCodeInfo'_constructor {SourceCodeInfo -> Vector SourceCodeInfo'Location
_SourceCodeInfo'location :: !(Data.Vector.Vector SourceCodeInfo'Location),
                                 SourceCodeInfo -> FieldSet
_SourceCodeInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (SourceCodeInfo -> SourceCodeInfo -> Bool
(SourceCodeInfo -> SourceCodeInfo -> Bool)
-> (SourceCodeInfo -> SourceCodeInfo -> Bool) -> Eq SourceCodeInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SourceCodeInfo -> SourceCodeInfo -> Bool
$c/= :: SourceCodeInfo -> SourceCodeInfo -> Bool
== :: SourceCodeInfo -> SourceCodeInfo -> Bool
$c== :: SourceCodeInfo -> SourceCodeInfo -> Bool
Prelude.Eq, Eq SourceCodeInfo
Eq SourceCodeInfo =>
(SourceCodeInfo -> SourceCodeInfo -> Ordering)
-> (SourceCodeInfo -> SourceCodeInfo -> Bool)
-> (SourceCodeInfo -> SourceCodeInfo -> Bool)
-> (SourceCodeInfo -> SourceCodeInfo -> Bool)
-> (SourceCodeInfo -> SourceCodeInfo -> Bool)
-> (SourceCodeInfo -> SourceCodeInfo -> SourceCodeInfo)
-> (SourceCodeInfo -> SourceCodeInfo -> SourceCodeInfo)
-> Ord SourceCodeInfo
SourceCodeInfo -> SourceCodeInfo -> Bool
SourceCodeInfo -> SourceCodeInfo -> Ordering
SourceCodeInfo -> SourceCodeInfo -> SourceCodeInfo
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: SourceCodeInfo -> SourceCodeInfo -> SourceCodeInfo
$cmin :: SourceCodeInfo -> SourceCodeInfo -> SourceCodeInfo
max :: SourceCodeInfo -> SourceCodeInfo -> SourceCodeInfo
$cmax :: SourceCodeInfo -> SourceCodeInfo -> SourceCodeInfo
>= :: SourceCodeInfo -> SourceCodeInfo -> Bool
$c>= :: SourceCodeInfo -> SourceCodeInfo -> Bool
> :: SourceCodeInfo -> SourceCodeInfo -> Bool
$c> :: SourceCodeInfo -> SourceCodeInfo -> Bool
<= :: SourceCodeInfo -> SourceCodeInfo -> Bool
$c<= :: SourceCodeInfo -> SourceCodeInfo -> Bool
< :: SourceCodeInfo -> SourceCodeInfo -> Bool
$c< :: SourceCodeInfo -> SourceCodeInfo -> Bool
compare :: SourceCodeInfo -> SourceCodeInfo -> Ordering
$ccompare :: SourceCodeInfo -> SourceCodeInfo -> Ordering
$cp1Ord :: Eq SourceCodeInfo
Prelude.Ord)
instance Prelude.Show SourceCodeInfo where
  showsPrec :: Int -> SourceCodeInfo -> ShowS
showsPrec _ __x :: SourceCodeInfo
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (SourceCodeInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SourceCodeInfo
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SourceCodeInfo "location" [SourceCodeInfo'Location] where
  fieldOf :: Proxy# "location"
-> ([SourceCodeInfo'Location] -> f [SourceCodeInfo'Location])
-> SourceCodeInfo
-> f SourceCodeInfo
fieldOf _
    = ((Vector SourceCodeInfo'Location
  -> f (Vector SourceCodeInfo'Location))
 -> SourceCodeInfo -> f SourceCodeInfo)
-> (([SourceCodeInfo'Location] -> f [SourceCodeInfo'Location])
    -> Vector SourceCodeInfo'Location
    -> f (Vector SourceCodeInfo'Location))
-> ([SourceCodeInfo'Location] -> f [SourceCodeInfo'Location])
-> SourceCodeInfo
-> f SourceCodeInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SourceCodeInfo -> Vector SourceCodeInfo'Location)
-> (SourceCodeInfo
    -> Vector SourceCodeInfo'Location -> SourceCodeInfo)
-> Lens
     SourceCodeInfo
     SourceCodeInfo
     (Vector SourceCodeInfo'Location)
     (Vector SourceCodeInfo'Location)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SourceCodeInfo -> Vector SourceCodeInfo'Location
_SourceCodeInfo'location
           (\ x__ :: SourceCodeInfo
x__ y__ :: Vector SourceCodeInfo'Location
y__ -> SourceCodeInfo
x__ {_SourceCodeInfo'location :: Vector SourceCodeInfo'Location
_SourceCodeInfo'location = Vector SourceCodeInfo'Location
y__}))
        ((Vector SourceCodeInfo'Location -> [SourceCodeInfo'Location])
-> (Vector SourceCodeInfo'Location
    -> [SourceCodeInfo'Location] -> Vector SourceCodeInfo'Location)
-> Lens
     (Vector SourceCodeInfo'Location)
     (Vector SourceCodeInfo'Location)
     [SourceCodeInfo'Location]
     [SourceCodeInfo'Location]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector SourceCodeInfo'Location -> [SourceCodeInfo'Location]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [SourceCodeInfo'Location]
y__ -> [SourceCodeInfo'Location] -> Vector SourceCodeInfo'Location
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [SourceCodeInfo'Location]
y__))
instance Data.ProtoLens.Field.HasField SourceCodeInfo "vec'location" (Data.Vector.Vector SourceCodeInfo'Location) where
  fieldOf :: Proxy# "vec'location"
-> (Vector SourceCodeInfo'Location
    -> f (Vector SourceCodeInfo'Location))
-> SourceCodeInfo
-> f SourceCodeInfo
fieldOf _
    = ((Vector SourceCodeInfo'Location
  -> f (Vector SourceCodeInfo'Location))
 -> SourceCodeInfo -> f SourceCodeInfo)
-> ((Vector SourceCodeInfo'Location
     -> f (Vector SourceCodeInfo'Location))
    -> Vector SourceCodeInfo'Location
    -> f (Vector SourceCodeInfo'Location))
-> (Vector SourceCodeInfo'Location
    -> f (Vector SourceCodeInfo'Location))
-> SourceCodeInfo
-> f SourceCodeInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SourceCodeInfo -> Vector SourceCodeInfo'Location)
-> (SourceCodeInfo
    -> Vector SourceCodeInfo'Location -> SourceCodeInfo)
-> Lens
     SourceCodeInfo
     SourceCodeInfo
     (Vector SourceCodeInfo'Location)
     (Vector SourceCodeInfo'Location)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SourceCodeInfo -> Vector SourceCodeInfo'Location
_SourceCodeInfo'location
           (\ x__ :: SourceCodeInfo
x__ y__ :: Vector SourceCodeInfo'Location
y__ -> SourceCodeInfo
x__ {_SourceCodeInfo'location :: Vector SourceCodeInfo'Location
_SourceCodeInfo'location = Vector SourceCodeInfo'Location
y__}))
        (Vector SourceCodeInfo'Location
 -> f (Vector SourceCodeInfo'Location))
-> Vector SourceCodeInfo'Location
-> f (Vector SourceCodeInfo'Location)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SourceCodeInfo where
  messageName :: Proxy SourceCodeInfo -> Text
messageName _ = String -> Text
Data.Text.pack "google.protobuf.SourceCodeInfo"
  fieldsByTag :: Map Tag (FieldDescriptor SourceCodeInfo)
fieldsByTag
    = let
        location__field_descriptor :: FieldDescriptor SourceCodeInfo
location__field_descriptor
          = String
-> FieldTypeDescriptor SourceCodeInfo'Location
-> FieldAccessor SourceCodeInfo SourceCodeInfo'Location
-> FieldDescriptor SourceCodeInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "location"
              (MessageOrGroup -> FieldTypeDescriptor SourceCodeInfo'Location
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor SourceCodeInfo'Location)
              (Packing
-> Lens' SourceCodeInfo [SourceCodeInfo'Location]
-> FieldAccessor SourceCodeInfo SourceCodeInfo'Location
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "location" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"location")) ::
              Data.ProtoLens.FieldDescriptor SourceCodeInfo
      in
        [(Tag, FieldDescriptor SourceCodeInfo)]
-> Map Tag (FieldDescriptor SourceCodeInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SourceCodeInfo
location__field_descriptor)]
  unknownFields :: LensLike' f SourceCodeInfo FieldSet
unknownFields
    = (SourceCodeInfo -> FieldSet)
-> (SourceCodeInfo -> FieldSet -> SourceCodeInfo)
-> Lens' SourceCodeInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        SourceCodeInfo -> FieldSet
_SourceCodeInfo'_unknownFields
        (\ x__ :: SourceCodeInfo
x__ y__ :: FieldSet
y__ -> SourceCodeInfo
x__ {_SourceCodeInfo'_unknownFields :: FieldSet
_SourceCodeInfo'_unknownFields = FieldSet
y__})
  defMessage :: SourceCodeInfo
defMessage
    = $WSourceCodeInfo'_constructor :: Vector SourceCodeInfo'Location -> FieldSet -> SourceCodeInfo
SourceCodeInfo'_constructor
        {_SourceCodeInfo'location :: Vector SourceCodeInfo'Location
_SourceCodeInfo'location = Vector SourceCodeInfo'Location
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _SourceCodeInfo'_unknownFields :: FieldSet
_SourceCodeInfo'_unknownFields = []}
  parseMessage :: Parser SourceCodeInfo
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 :: SourceCodeInfo
-> Growing Vector RealWorld SourceCodeInfo'Location
-> Parser SourceCodeInfo
loop x :: SourceCodeInfo
x mutable'location :: Growing Vector RealWorld SourceCodeInfo'Location
mutable'location
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector SourceCodeInfo'Location
frozen'location <- IO (Vector SourceCodeInfo'Location)
-> Parser (Vector SourceCodeInfo'Location)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                           (Growing Vector (PrimState IO) SourceCodeInfo'Location
-> IO (Vector SourceCodeInfo'Location)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                              Growing Vector RealWorld SourceCodeInfo'Location
Growing Vector (PrimState IO) SourceCodeInfo'Location
mutable'location)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      SourceCodeInfo -> Parser SourceCodeInfo
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter SourceCodeInfo SourceCodeInfo FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SourceCodeInfo -> SourceCodeInfo
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter SourceCodeInfo SourceCodeInfo FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  SourceCodeInfo
  SourceCodeInfo
  (Vector SourceCodeInfo'Location)
  (Vector SourceCodeInfo'Location)
-> Vector SourceCodeInfo'Location
-> SourceCodeInfo
-> SourceCodeInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'location" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'location") Vector SourceCodeInfo'Location
frozen'location SourceCodeInfo
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !SourceCodeInfo'Location
y <- Parser SourceCodeInfo'Location
-> String -> Parser SourceCodeInfo'Location
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int
-> Parser SourceCodeInfo'Location -> Parser SourceCodeInfo'Location
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser SourceCodeInfo'Location
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "location"
                                Growing Vector RealWorld SourceCodeInfo'Location
v <- IO (Growing Vector RealWorld SourceCodeInfo'Location)
-> Parser (Growing Vector RealWorld SourceCodeInfo'Location)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) SourceCodeInfo'Location
-> SourceCodeInfo'Location
-> IO (Growing Vector (PrimState IO) SourceCodeInfo'Location)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld SourceCodeInfo'Location
Growing Vector (PrimState IO) SourceCodeInfo'Location
mutable'location SourceCodeInfo'Location
y)
                                SourceCodeInfo
-> Growing Vector RealWorld SourceCodeInfo'Location
-> Parser SourceCodeInfo
loop SourceCodeInfo
x Growing Vector RealWorld SourceCodeInfo'Location
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                SourceCodeInfo
-> Growing Vector RealWorld SourceCodeInfo'Location
-> Parser SourceCodeInfo
loop
                                  (Setter SourceCodeInfo SourceCodeInfo FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SourceCodeInfo -> SourceCodeInfo
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter SourceCodeInfo SourceCodeInfo FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SourceCodeInfo
x)
                                  Growing Vector RealWorld SourceCodeInfo'Location
mutable'location
      in
        Parser SourceCodeInfo -> String -> Parser SourceCodeInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld SourceCodeInfo'Location
mutable'location <- IO (Growing Vector RealWorld SourceCodeInfo'Location)
-> Parser (Growing Vector RealWorld SourceCodeInfo'Location)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                    IO (Growing Vector RealWorld SourceCodeInfo'Location)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              SourceCodeInfo
-> Growing Vector RealWorld SourceCodeInfo'Location
-> Parser SourceCodeInfo
loop SourceCodeInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld SourceCodeInfo'Location
mutable'location)
          "SourceCodeInfo"
  buildMessage :: SourceCodeInfo -> Builder
buildMessage
    = \ _x :: SourceCodeInfo
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((SourceCodeInfo'Location -> Builder)
-> Vector SourceCodeInfo'Location -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: SourceCodeInfo'Location
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((ByteString -> Builder)
-> (SourceCodeInfo'Location -> ByteString)
-> SourceCodeInfo'Location
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ bs :: ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           SourceCodeInfo'Location -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                           SourceCodeInfo'Location
_v))
                (FoldLike
  (Vector SourceCodeInfo'Location)
  SourceCodeInfo
  SourceCodeInfo
  (Vector SourceCodeInfo'Location)
  (Vector SourceCodeInfo'Location)
-> SourceCodeInfo -> Vector SourceCodeInfo'Location
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall s a (f :: * -> *).
(HasField s "vec'location" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'location") SourceCodeInfo
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet SourceCodeInfo SourceCodeInfo FieldSet FieldSet
-> SourceCodeInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SourceCodeInfo SourceCodeInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SourceCodeInfo
_x))
instance Control.DeepSeq.NFData SourceCodeInfo where
  rnf :: SourceCodeInfo -> ()
rnf
    = \ x__ :: SourceCodeInfo
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (SourceCodeInfo -> FieldSet
_SourceCodeInfo'_unknownFields SourceCodeInfo
x__)
             (Vector SourceCodeInfo'Location -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SourceCodeInfo -> Vector SourceCodeInfo'Location
_SourceCodeInfo'location SourceCodeInfo
x__) ())
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.path' @:: Lens' SourceCodeInfo'Location [Data.Int.Int32]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'path' @:: Lens' SourceCodeInfo'Location (Data.Vector.Unboxed.Vector Data.Int.Int32)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.span' @:: Lens' SourceCodeInfo'Location [Data.Int.Int32]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'span' @:: Lens' SourceCodeInfo'Location (Data.Vector.Unboxed.Vector Data.Int.Int32)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.leadingComments' @:: Lens' SourceCodeInfo'Location Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'leadingComments' @:: Lens' SourceCodeInfo'Location (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.trailingComments' @:: Lens' SourceCodeInfo'Location Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'trailingComments' @:: Lens' SourceCodeInfo'Location (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.leadingDetachedComments' @:: Lens' SourceCodeInfo'Location [Data.Text.Text]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'leadingDetachedComments' @:: Lens' SourceCodeInfo'Location (Data.Vector.Vector Data.Text.Text)@ -}
data SourceCodeInfo'Location
  = SourceCodeInfo'Location'_constructor {SourceCodeInfo'Location -> Vector Int32
_SourceCodeInfo'Location'path :: !(Data.Vector.Unboxed.Vector Data.Int.Int32),
                                          SourceCodeInfo'Location -> Vector Int32
_SourceCodeInfo'Location'span :: !(Data.Vector.Unboxed.Vector Data.Int.Int32),
                                          SourceCodeInfo'Location -> Maybe Text
_SourceCodeInfo'Location'leadingComments :: !(Prelude.Maybe Data.Text.Text),
                                          SourceCodeInfo'Location -> Maybe Text
_SourceCodeInfo'Location'trailingComments :: !(Prelude.Maybe Data.Text.Text),
                                          SourceCodeInfo'Location -> Vector Text
_SourceCodeInfo'Location'leadingDetachedComments :: !(Data.Vector.Vector Data.Text.Text),
                                          SourceCodeInfo'Location -> FieldSet
_SourceCodeInfo'Location'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool
(SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool)
-> (SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool)
-> Eq SourceCodeInfo'Location
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool
$c/= :: SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool
== :: SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool
$c== :: SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool
Prelude.Eq, Eq SourceCodeInfo'Location
Eq SourceCodeInfo'Location =>
(SourceCodeInfo'Location -> SourceCodeInfo'Location -> Ordering)
-> (SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool)
-> (SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool)
-> (SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool)
-> (SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool)
-> (SourceCodeInfo'Location
    -> SourceCodeInfo'Location -> SourceCodeInfo'Location)
-> (SourceCodeInfo'Location
    -> SourceCodeInfo'Location -> SourceCodeInfo'Location)
-> Ord SourceCodeInfo'Location
SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool
SourceCodeInfo'Location -> SourceCodeInfo'Location -> Ordering
SourceCodeInfo'Location
-> SourceCodeInfo'Location -> SourceCodeInfo'Location
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: SourceCodeInfo'Location
-> SourceCodeInfo'Location -> SourceCodeInfo'Location
$cmin :: SourceCodeInfo'Location
-> SourceCodeInfo'Location -> SourceCodeInfo'Location
max :: SourceCodeInfo'Location
-> SourceCodeInfo'Location -> SourceCodeInfo'Location
$cmax :: SourceCodeInfo'Location
-> SourceCodeInfo'Location -> SourceCodeInfo'Location
>= :: SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool
$c>= :: SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool
> :: SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool
$c> :: SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool
<= :: SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool
$c<= :: SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool
< :: SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool
$c< :: SourceCodeInfo'Location -> SourceCodeInfo'Location -> Bool
compare :: SourceCodeInfo'Location -> SourceCodeInfo'Location -> Ordering
$ccompare :: SourceCodeInfo'Location -> SourceCodeInfo'Location -> Ordering
$cp1Ord :: Eq SourceCodeInfo'Location
Prelude.Ord)
instance Prelude.Show SourceCodeInfo'Location where
  showsPrec :: Int -> SourceCodeInfo'Location -> ShowS
showsPrec _ __x :: SourceCodeInfo'Location
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (SourceCodeInfo'Location -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SourceCodeInfo'Location
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "path" [Data.Int.Int32] where
  fieldOf :: Proxy# "path"
-> ([Int32] -> f [Int32])
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
fieldOf _
    = ((Vector Int32 -> f (Vector Int32))
 -> SourceCodeInfo'Location -> f SourceCodeInfo'Location)
-> (([Int32] -> f [Int32]) -> Vector Int32 -> f (Vector Int32))
-> ([Int32] -> f [Int32])
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SourceCodeInfo'Location -> Vector Int32)
-> (SourceCodeInfo'Location
    -> Vector Int32 -> SourceCodeInfo'Location)
-> Lens
     SourceCodeInfo'Location
     SourceCodeInfo'Location
     (Vector Int32)
     (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SourceCodeInfo'Location -> Vector Int32
_SourceCodeInfo'Location'path
           (\ x__ :: SourceCodeInfo'Location
x__ y__ :: Vector Int32
y__ -> SourceCodeInfo'Location
x__ {_SourceCodeInfo'Location'path :: Vector Int32
_SourceCodeInfo'Location'path = Vector Int32
y__}))
        ((Vector Int32 -> [Int32])
-> (Vector Int32 -> [Int32] -> Vector Int32)
-> Lens (Vector Int32) (Vector Int32) [Int32] [Int32]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Int32 -> [Int32]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Int32]
y__ -> [Int32] -> Vector Int32
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int32]
y__))
instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "vec'path" (Data.Vector.Unboxed.Vector Data.Int.Int32) where
  fieldOf :: Proxy# "vec'path"
-> (Vector Int32 -> f (Vector Int32))
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
fieldOf _
    = ((Vector Int32 -> f (Vector Int32))
 -> SourceCodeInfo'Location -> f SourceCodeInfo'Location)
-> ((Vector Int32 -> f (Vector Int32))
    -> Vector Int32 -> f (Vector Int32))
-> (Vector Int32 -> f (Vector Int32))
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SourceCodeInfo'Location -> Vector Int32)
-> (SourceCodeInfo'Location
    -> Vector Int32 -> SourceCodeInfo'Location)
-> Lens
     SourceCodeInfo'Location
     SourceCodeInfo'Location
     (Vector Int32)
     (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SourceCodeInfo'Location -> Vector Int32
_SourceCodeInfo'Location'path
           (\ x__ :: SourceCodeInfo'Location
x__ y__ :: Vector Int32
y__ -> SourceCodeInfo'Location
x__ {_SourceCodeInfo'Location'path :: Vector Int32
_SourceCodeInfo'Location'path = Vector Int32
y__}))
        (Vector Int32 -> f (Vector Int32))
-> Vector Int32 -> f (Vector Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "span" [Data.Int.Int32] where
  fieldOf :: Proxy# "span"
-> ([Int32] -> f [Int32])
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
fieldOf _
    = ((Vector Int32 -> f (Vector Int32))
 -> SourceCodeInfo'Location -> f SourceCodeInfo'Location)
-> (([Int32] -> f [Int32]) -> Vector Int32 -> f (Vector Int32))
-> ([Int32] -> f [Int32])
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SourceCodeInfo'Location -> Vector Int32)
-> (SourceCodeInfo'Location
    -> Vector Int32 -> SourceCodeInfo'Location)
-> Lens
     SourceCodeInfo'Location
     SourceCodeInfo'Location
     (Vector Int32)
     (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SourceCodeInfo'Location -> Vector Int32
_SourceCodeInfo'Location'span
           (\ x__ :: SourceCodeInfo'Location
x__ y__ :: Vector Int32
y__ -> SourceCodeInfo'Location
x__ {_SourceCodeInfo'Location'span :: Vector Int32
_SourceCodeInfo'Location'span = Vector Int32
y__}))
        ((Vector Int32 -> [Int32])
-> (Vector Int32 -> [Int32] -> Vector Int32)
-> Lens (Vector Int32) (Vector Int32) [Int32] [Int32]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Int32 -> [Int32]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Int32]
y__ -> [Int32] -> Vector Int32
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int32]
y__))
instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "vec'span" (Data.Vector.Unboxed.Vector Data.Int.Int32) where
  fieldOf :: Proxy# "vec'span"
-> (Vector Int32 -> f (Vector Int32))
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
fieldOf _
    = ((Vector Int32 -> f (Vector Int32))
 -> SourceCodeInfo'Location -> f SourceCodeInfo'Location)
-> ((Vector Int32 -> f (Vector Int32))
    -> Vector Int32 -> f (Vector Int32))
-> (Vector Int32 -> f (Vector Int32))
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SourceCodeInfo'Location -> Vector Int32)
-> (SourceCodeInfo'Location
    -> Vector Int32 -> SourceCodeInfo'Location)
-> Lens
     SourceCodeInfo'Location
     SourceCodeInfo'Location
     (Vector Int32)
     (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SourceCodeInfo'Location -> Vector Int32
_SourceCodeInfo'Location'span
           (\ x__ :: SourceCodeInfo'Location
x__ y__ :: Vector Int32
y__ -> SourceCodeInfo'Location
x__ {_SourceCodeInfo'Location'span :: Vector Int32
_SourceCodeInfo'Location'span = Vector Int32
y__}))
        (Vector Int32 -> f (Vector Int32))
-> Vector Int32 -> f (Vector Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "leadingComments" Data.Text.Text where
  fieldOf :: Proxy# "leadingComments"
-> (Text -> f Text)
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> SourceCodeInfo'Location -> f SourceCodeInfo'Location)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SourceCodeInfo'Location -> Maybe Text)
-> (SourceCodeInfo'Location
    -> Maybe Text -> SourceCodeInfo'Location)
-> Lens
     SourceCodeInfo'Location
     SourceCodeInfo'Location
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SourceCodeInfo'Location -> Maybe Text
_SourceCodeInfo'Location'leadingComments
           (\ x__ :: SourceCodeInfo'Location
x__ y__ :: Maybe Text
y__
              -> SourceCodeInfo'Location
x__ {_SourceCodeInfo'Location'leadingComments :: Maybe Text
_SourceCodeInfo'Location'leadingComments = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "maybe'leadingComments" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'leadingComments"
-> (Maybe Text -> f (Maybe Text))
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> SourceCodeInfo'Location -> f SourceCodeInfo'Location)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SourceCodeInfo'Location -> Maybe Text)
-> (SourceCodeInfo'Location
    -> Maybe Text -> SourceCodeInfo'Location)
-> Lens
     SourceCodeInfo'Location
     SourceCodeInfo'Location
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SourceCodeInfo'Location -> Maybe Text
_SourceCodeInfo'Location'leadingComments
           (\ x__ :: SourceCodeInfo'Location
x__ y__ :: Maybe Text
y__
              -> SourceCodeInfo'Location
x__ {_SourceCodeInfo'Location'leadingComments :: Maybe Text
_SourceCodeInfo'Location'leadingComments = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "trailingComments" Data.Text.Text where
  fieldOf :: Proxy# "trailingComments"
-> (Text -> f Text)
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> SourceCodeInfo'Location -> f SourceCodeInfo'Location)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SourceCodeInfo'Location -> Maybe Text)
-> (SourceCodeInfo'Location
    -> Maybe Text -> SourceCodeInfo'Location)
-> Lens
     SourceCodeInfo'Location
     SourceCodeInfo'Location
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SourceCodeInfo'Location -> Maybe Text
_SourceCodeInfo'Location'trailingComments
           (\ x__ :: SourceCodeInfo'Location
x__ y__ :: Maybe Text
y__
              -> SourceCodeInfo'Location
x__ {_SourceCodeInfo'Location'trailingComments :: Maybe Text
_SourceCodeInfo'Location'trailingComments = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "maybe'trailingComments" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'trailingComments"
-> (Maybe Text -> f (Maybe Text))
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> SourceCodeInfo'Location -> f SourceCodeInfo'Location)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SourceCodeInfo'Location -> Maybe Text)
-> (SourceCodeInfo'Location
    -> Maybe Text -> SourceCodeInfo'Location)
-> Lens
     SourceCodeInfo'Location
     SourceCodeInfo'Location
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SourceCodeInfo'Location -> Maybe Text
_SourceCodeInfo'Location'trailingComments
           (\ x__ :: SourceCodeInfo'Location
x__ y__ :: Maybe Text
y__
              -> SourceCodeInfo'Location
x__ {_SourceCodeInfo'Location'trailingComments :: Maybe Text
_SourceCodeInfo'Location'trailingComments = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "leadingDetachedComments" [Data.Text.Text] where
  fieldOf :: Proxy# "leadingDetachedComments"
-> ([Text] -> f [Text])
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> SourceCodeInfo'Location -> f SourceCodeInfo'Location)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SourceCodeInfo'Location -> Vector Text)
-> (SourceCodeInfo'Location
    -> Vector Text -> SourceCodeInfo'Location)
-> Lens
     SourceCodeInfo'Location
     SourceCodeInfo'Location
     (Vector Text)
     (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SourceCodeInfo'Location -> Vector Text
_SourceCodeInfo'Location'leadingDetachedComments
           (\ x__ :: SourceCodeInfo'Location
x__ y__ :: Vector Text
y__
              -> SourceCodeInfo'Location
x__ {_SourceCodeInfo'Location'leadingDetachedComments :: Vector Text
_SourceCodeInfo'Location'leadingDetachedComments = Vector Text
y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField SourceCodeInfo'Location "vec'leadingDetachedComments" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: Proxy# "vec'leadingDetachedComments"
-> (Vector Text -> f (Vector Text))
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> SourceCodeInfo'Location -> f SourceCodeInfo'Location)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> SourceCodeInfo'Location
-> f SourceCodeInfo'Location
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((SourceCodeInfo'Location -> Vector Text)
-> (SourceCodeInfo'Location
    -> Vector Text -> SourceCodeInfo'Location)
-> Lens
     SourceCodeInfo'Location
     SourceCodeInfo'Location
     (Vector Text)
     (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           SourceCodeInfo'Location -> Vector Text
_SourceCodeInfo'Location'leadingDetachedComments
           (\ x__ :: SourceCodeInfo'Location
x__ y__ :: Vector Text
y__
              -> SourceCodeInfo'Location
x__ {_SourceCodeInfo'Location'leadingDetachedComments :: Vector Text
_SourceCodeInfo'Location'leadingDetachedComments = Vector Text
y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SourceCodeInfo'Location where
  messageName :: Proxy SourceCodeInfo'Location -> Text
messageName _
    = String -> Text
Data.Text.pack "google.protobuf.SourceCodeInfo.Location"
  fieldsByTag :: Map Tag (FieldDescriptor SourceCodeInfo'Location)
fieldsByTag
    = let
        path__field_descriptor :: FieldDescriptor SourceCodeInfo'Location
path__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor SourceCodeInfo'Location Int32
-> FieldDescriptor SourceCodeInfo'Location
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "path"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Packing
-> Lens' SourceCodeInfo'Location [Int32]
-> FieldAccessor SourceCodeInfo'Location Int32
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "path" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"path")) ::
              Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location
        span__field_descriptor :: FieldDescriptor SourceCodeInfo'Location
span__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor SourceCodeInfo'Location Int32
-> FieldDescriptor SourceCodeInfo'Location
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "span"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (Packing
-> Lens' SourceCodeInfo'Location [Int32]
-> FieldAccessor SourceCodeInfo'Location Int32
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "span" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"span")) ::
              Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location
        leadingComments__field_descriptor :: FieldDescriptor SourceCodeInfo'Location
leadingComments__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor SourceCodeInfo'Location Text
-> FieldDescriptor SourceCodeInfo'Location
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "leading_comments"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  SourceCodeInfo'Location
  SourceCodeInfo'Location
  (Maybe Text)
  (Maybe Text)
-> FieldAccessor SourceCodeInfo'Location Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'leadingComments" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'leadingComments")) ::
              Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location
        trailingComments__field_descriptor :: FieldDescriptor SourceCodeInfo'Location
trailingComments__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor SourceCodeInfo'Location Text
-> FieldDescriptor SourceCodeInfo'Location
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "trailing_comments"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  SourceCodeInfo'Location
  SourceCodeInfo'Location
  (Maybe Text)
  (Maybe Text)
-> FieldAccessor SourceCodeInfo'Location Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'trailingComments" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'trailingComments")) ::
              Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location
        leadingDetachedComments__field_descriptor :: FieldDescriptor SourceCodeInfo'Location
leadingDetachedComments__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor SourceCodeInfo'Location Text
-> FieldDescriptor SourceCodeInfo'Location
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "leading_detached_comments"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing
-> Lens' SourceCodeInfo'Location [Text]
-> FieldAccessor SourceCodeInfo'Location Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "leadingDetachedComments" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"leadingDetachedComments")) ::
              Data.ProtoLens.FieldDescriptor SourceCodeInfo'Location
      in
        [(Tag, FieldDescriptor SourceCodeInfo'Location)]
-> Map Tag (FieldDescriptor SourceCodeInfo'Location)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SourceCodeInfo'Location
path__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SourceCodeInfo'Location
span__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor SourceCodeInfo'Location
leadingComments__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor SourceCodeInfo'Location
trailingComments__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor SourceCodeInfo'Location
leadingDetachedComments__field_descriptor)]
  unknownFields :: LensLike' f SourceCodeInfo'Location FieldSet
unknownFields
    = (SourceCodeInfo'Location -> FieldSet)
-> (SourceCodeInfo'Location -> FieldSet -> SourceCodeInfo'Location)
-> Lens' SourceCodeInfo'Location FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        SourceCodeInfo'Location -> FieldSet
_SourceCodeInfo'Location'_unknownFields
        (\ x__ :: SourceCodeInfo'Location
x__ y__ :: FieldSet
y__ -> SourceCodeInfo'Location
x__ {_SourceCodeInfo'Location'_unknownFields :: FieldSet
_SourceCodeInfo'Location'_unknownFields = FieldSet
y__})
  defMessage :: SourceCodeInfo'Location
defMessage
    = $WSourceCodeInfo'Location'_constructor :: Vector Int32
-> Vector Int32
-> Maybe Text
-> Maybe Text
-> Vector Text
-> FieldSet
-> SourceCodeInfo'Location
SourceCodeInfo'Location'_constructor
        {_SourceCodeInfo'Location'path :: Vector Int32
_SourceCodeInfo'Location'path = Vector Int32
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _SourceCodeInfo'Location'span :: Vector Int32
_SourceCodeInfo'Location'span = Vector Int32
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _SourceCodeInfo'Location'leadingComments :: Maybe Text
_SourceCodeInfo'Location'leadingComments = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _SourceCodeInfo'Location'trailingComments :: Maybe Text
_SourceCodeInfo'Location'trailingComments = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _SourceCodeInfo'Location'leadingDetachedComments :: Vector Text
_SourceCodeInfo'Location'leadingDetachedComments = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _SourceCodeInfo'Location'_unknownFields :: FieldSet
_SourceCodeInfo'Location'_unknownFields = []}
  parseMessage :: Parser SourceCodeInfo'Location
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 :: SourceCodeInfo'Location
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int32
-> Parser SourceCodeInfo'Location
loop x :: SourceCodeInfo'Location
x mutable'leadingDetachedComments :: Growing Vector RealWorld Text
mutable'leadingDetachedComments mutable'path :: Growing Vector RealWorld Int32
mutable'path mutable'span :: Growing Vector RealWorld Int32
mutable'span
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Text
frozen'leadingDetachedComments <- IO (Vector Text) -> Parser (Vector Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                          (Growing Vector (PrimState IO) Text -> IO (Vector Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                             Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'leadingDetachedComments)
                      Vector Int32
frozen'path <- IO (Vector Int32) -> Parser (Vector Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Int32 -> IO (Vector Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld Int32
Growing Vector (PrimState IO) Int32
mutable'path)
                      Vector Int32
frozen'span <- IO (Vector Int32) -> Parser (Vector Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Int32 -> IO (Vector Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld Int32
Growing Vector (PrimState IO) Int32
mutable'span)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      SourceCodeInfo'Location -> Parser SourceCodeInfo'Location
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  SourceCodeInfo'Location SourceCodeInfo'Location FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> SourceCodeInfo'Location
-> SourceCodeInfo'Location
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  SourceCodeInfo'Location SourceCodeInfo'Location FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  SourceCodeInfo'Location
  SourceCodeInfo'Location
  (Vector Text)
  (Vector Text)
-> Vector Text
-> SourceCodeInfo'Location
-> SourceCodeInfo'Location
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'leadingDetachedComments" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'leadingDetachedComments")
                              Vector Text
frozen'leadingDetachedComments
                              (Setter
  SourceCodeInfo'Location
  SourceCodeInfo'Location
  (Vector Int32)
  (Vector Int32)
-> Vector Int32
-> SourceCodeInfo'Location
-> SourceCodeInfo'Location
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                 (forall s a (f :: * -> *).
(HasField s "vec'path" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'path")
                                 Vector Int32
frozen'path
                                 (Setter
  SourceCodeInfo'Location
  SourceCodeInfo'Location
  (Vector Int32)
  (Vector Int32)
-> Vector Int32
-> SourceCodeInfo'Location
-> SourceCodeInfo'Location
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                    (forall s a (f :: * -> *).
(HasField s "vec'span" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'span") Vector Int32
frozen'span SourceCodeInfo'Location
x))))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do !Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                           Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                           Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                        "path"
                                Growing Vector RealWorld Int32
v <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Int32
-> Int32 -> IO (Growing Vector (PrimState IO) Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Int32
Growing Vector (PrimState IO) Int32
mutable'path Int32
y)
                                SourceCodeInfo'Location
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int32
-> Parser SourceCodeInfo'Location
loop SourceCodeInfo'Location
x Growing Vector RealWorld Text
mutable'leadingDetachedComments Growing Vector RealWorld Int32
v Growing Vector RealWorld Int32
mutable'span
                        10
                          -> do Growing Vector RealWorld Int32
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Int
-> Parser (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                          ((let
                                              ploop :: Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop qs :: Growing v RealWorld a
qs
                                                = do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if Bool
packedEnd then
                                                         Growing v RealWorld a -> Parser (Growing v RealWorld a)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld a
qs
                                                     else
                                                         do !a
q <- Parser a -> String -> Parser a
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    ((Word64 -> a) -> Parser Word64 -> Parser a
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                                                       Word64 -> a
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                                                    "path"
                                                            Growing v RealWorld a
qs' <- IO (Growing v RealWorld a) -> Parser (Growing v RealWorld a)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Growing v (PrimState IO) a -> a -> IO (Growing v (PrimState IO) a)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                                                        Growing v RealWorld a
Growing v (PrimState IO) a
qs a
q)
                                                            Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop Growing v RealWorld a
qs'
                                            in forall a (v :: * -> *).
(Num a, Vector v a) =>
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop)
                                             Growing Vector RealWorld Int32
mutable'path)
                                SourceCodeInfo'Location
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int32
-> Parser SourceCodeInfo'Location
loop SourceCodeInfo'Location
x Growing Vector RealWorld Text
mutable'leadingDetachedComments Growing Vector RealWorld Int32
y Growing Vector RealWorld Int32
mutable'span
                        16
                          -> do !Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                           Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                           Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                        "span"
                                Growing Vector RealWorld Int32
v <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Int32
-> Int32 -> IO (Growing Vector (PrimState IO) Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Int32
Growing Vector (PrimState IO) Int32
mutable'span Int32
y)
                                SourceCodeInfo'Location
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int32
-> Parser SourceCodeInfo'Location
loop SourceCodeInfo'Location
x Growing Vector RealWorld Text
mutable'leadingDetachedComments Growing Vector RealWorld Int32
mutable'path Growing Vector RealWorld Int32
v
                        18
                          -> do Growing Vector RealWorld Int32
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Int
-> Parser (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                          ((let
                                              ploop :: Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop qs :: Growing v RealWorld a
qs
                                                = do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if Bool
packedEnd then
                                                         Growing v RealWorld a -> Parser (Growing v RealWorld a)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld a
qs
                                                     else
                                                         do !a
q <- Parser a -> String -> Parser a
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    ((Word64 -> a) -> Parser Word64 -> Parser a
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                                                       Word64 -> a
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                                                    "span"
                                                            Growing v RealWorld a
qs' <- IO (Growing v RealWorld a) -> Parser (Growing v RealWorld a)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Growing v (PrimState IO) a -> a -> IO (Growing v (PrimState IO) a)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                                                        Growing v RealWorld a
Growing v (PrimState IO) a
qs a
q)
                                                            Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop Growing v RealWorld a
qs'
                                            in forall a (v :: * -> *).
(Num a, Vector v a) =>
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop)
                                             Growing Vector RealWorld Int32
mutable'span)
                                SourceCodeInfo'Location
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int32
-> Parser SourceCodeInfo'Location
loop SourceCodeInfo'Location
x Growing Vector RealWorld Text
mutable'leadingDetachedComments Growing Vector RealWorld Int32
mutable'path Growing Vector RealWorld Int32
y
                        26
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "leading_comments"
                                SourceCodeInfo'Location
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int32
-> Parser SourceCodeInfo'Location
loop
                                  (Setter SourceCodeInfo'Location SourceCodeInfo'Location Text Text
-> Text -> SourceCodeInfo'Location -> SourceCodeInfo'Location
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "leadingComments" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"leadingComments") Text
y SourceCodeInfo'Location
x)
                                  Growing Vector RealWorld Text
mutable'leadingDetachedComments
                                  Growing Vector RealWorld Int32
mutable'path
                                  Growing Vector RealWorld Int32
mutable'span
                        34
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "trailing_comments"
                                SourceCodeInfo'Location
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int32
-> Parser SourceCodeInfo'Location
loop
                                  (Setter SourceCodeInfo'Location SourceCodeInfo'Location Text Text
-> Text -> SourceCodeInfo'Location -> SourceCodeInfo'Location
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "trailingComments" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"trailingComments") Text
y SourceCodeInfo'Location
x)
                                  Growing Vector RealWorld Text
mutable'leadingDetachedComments
                                  Growing Vector RealWorld Int32
mutable'path
                                  Growing Vector RealWorld Int32
mutable'span
                        50
                          -> do !Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                        Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                            Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                              (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                 (Prelude.Left err :: UnicodeException
err)
                                                   -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                 (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                        "leading_detached_comments"
                                Growing Vector RealWorld Text
v <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Text
-> Text -> IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'leadingDetachedComments Text
y)
                                SourceCodeInfo'Location
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int32
-> Parser SourceCodeInfo'Location
loop SourceCodeInfo'Location
x Growing Vector RealWorld Text
v Growing Vector RealWorld Int32
mutable'path Growing Vector RealWorld Int32
mutable'span
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                SourceCodeInfo'Location
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int32
-> Parser SourceCodeInfo'Location
loop
                                  (Setter
  SourceCodeInfo'Location SourceCodeInfo'Location FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> SourceCodeInfo'Location
-> SourceCodeInfo'Location
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  SourceCodeInfo'Location SourceCodeInfo'Location FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SourceCodeInfo'Location
x)
                                  Growing Vector RealWorld Text
mutable'leadingDetachedComments
                                  Growing Vector RealWorld Int32
mutable'path
                                  Growing Vector RealWorld Int32
mutable'span
      in
        Parser SourceCodeInfo'Location
-> String -> Parser SourceCodeInfo'Location
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Text
mutable'leadingDetachedComments <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                   IO (Growing Vector RealWorld Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld Int32
mutable'path <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                IO (Growing Vector RealWorld Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld Int32
mutable'span <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                IO (Growing Vector RealWorld Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              SourceCodeInfo'Location
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int32
-> Parser SourceCodeInfo'Location
loop
                SourceCodeInfo'Location
forall msg. Message msg => msg
Data.ProtoLens.defMessage
                Growing Vector RealWorld Text
mutable'leadingDetachedComments
                Growing Vector RealWorld Int32
mutable'path
                Growing Vector RealWorld Int32
mutable'span)
          "Location"
  buildMessage :: SourceCodeInfo'Location -> Builder
buildMessage
    = \ _x :: SourceCodeInfo'Location
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                p :: Vector Int32
p = FoldLike
  (Vector Int32)
  SourceCodeInfo'Location
  SourceCodeInfo'Location
  (Vector Int32)
  (Vector Int32)
-> SourceCodeInfo'Location -> Vector Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'path" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'path") SourceCodeInfo'Location
_x
              in
                if Vector Int32 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Int32
p then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                      ((\ bs :: ByteString
bs
                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                            ((Int32 -> Builder) -> Vector Int32 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                               ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                               Vector Int32
p))))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   p :: Vector Int32
p = FoldLike
  (Vector Int32)
  SourceCodeInfo'Location
  SourceCodeInfo'Location
  (Vector Int32)
  (Vector Int32)
-> SourceCodeInfo'Location -> Vector Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'span" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'span") SourceCodeInfo'Location
_x
                 in
                   if Vector Int32 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Int32
p then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                         ((\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            (Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
                               ((Int32 -> Builder) -> Vector Int32 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                  ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                     Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                                  Vector Int32
p))))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe Text)
  SourceCodeInfo'Location
  SourceCodeInfo'Location
  (Maybe Text)
  (Maybe Text)
-> SourceCodeInfo'Location -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall s a (f :: * -> *).
(HasField s "maybe'leadingComments" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'leadingComments") SourceCodeInfo'Location
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: Text
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                             ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ bs :: ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                Text
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe Text)
  SourceCodeInfo'Location
  SourceCodeInfo'Location
  (Maybe Text)
  (Maybe Text)
-> SourceCodeInfo'Location -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                             (forall s a (f :: * -> *).
(HasField s "maybe'trailingComments" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'trailingComments") SourceCodeInfo'Location
_x
                       of
                         Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just _v :: Text
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
                                ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   (\ bs :: ByteString
bs
                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                   Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                   Text
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                            (\ _v :: Text
_v
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
                                    ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                       (\ bs :: ByteString
bs
                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                     (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                       Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                       Text
_v))
                            (FoldLike
  (Vector Text)
  SourceCodeInfo'Location
  SourceCodeInfo'Location
  (Vector Text)
  (Vector Text)
-> SourceCodeInfo'Location -> Vector Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                               (forall s a (f :: * -> *).
(HasField s "vec'leadingDetachedComments" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'leadingDetachedComments") SourceCodeInfo'Location
_x))
                         (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                            (FoldLike
  FieldSet
  SourceCodeInfo'Location
  SourceCodeInfo'Location
  FieldSet
  FieldSet
-> SourceCodeInfo'Location -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  SourceCodeInfo'Location
  SourceCodeInfo'Location
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SourceCodeInfo'Location
_x))))))
instance Control.DeepSeq.NFData SourceCodeInfo'Location where
  rnf :: SourceCodeInfo'Location -> ()
rnf
    = \ x__ :: SourceCodeInfo'Location
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (SourceCodeInfo'Location -> FieldSet
_SourceCodeInfo'Location'_unknownFields SourceCodeInfo'Location
x__)
             (Vector Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (SourceCodeInfo'Location -> Vector Int32
_SourceCodeInfo'Location'path SourceCodeInfo'Location
x__)
                (Vector Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (SourceCodeInfo'Location -> Vector Int32
_SourceCodeInfo'Location'span SourceCodeInfo'Location
x__)
                   (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (SourceCodeInfo'Location -> Maybe Text
_SourceCodeInfo'Location'leadingComments SourceCodeInfo'Location
x__)
                      (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (SourceCodeInfo'Location -> Maybe Text
_SourceCodeInfo'Location'trailingComments SourceCodeInfo'Location
x__)
                         (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (SourceCodeInfo'Location -> Vector Text
_SourceCodeInfo'Location'leadingDetachedComments SourceCodeInfo'Location
x__) ())))))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.name' @:: Lens' UninterpretedOption [UninterpretedOption'NamePart]@
         * 'Proto.Google.Protobuf.Descriptor_Fields.vec'name' @:: Lens' UninterpretedOption (Data.Vector.Vector UninterpretedOption'NamePart)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.identifierValue' @:: Lens' UninterpretedOption Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'identifierValue' @:: Lens' UninterpretedOption (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.positiveIntValue' @:: Lens' UninterpretedOption Data.Word.Word64@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'positiveIntValue' @:: Lens' UninterpretedOption (Prelude.Maybe Data.Word.Word64)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.negativeIntValue' @:: Lens' UninterpretedOption Data.Int.Int64@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'negativeIntValue' @:: Lens' UninterpretedOption (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.doubleValue' @:: Lens' UninterpretedOption Prelude.Double@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'doubleValue' @:: Lens' UninterpretedOption (Prelude.Maybe Prelude.Double)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.stringValue' @:: Lens' UninterpretedOption Data.ByteString.ByteString@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'stringValue' @:: Lens' UninterpretedOption (Prelude.Maybe Data.ByteString.ByteString)@
         * 'Proto.Google.Protobuf.Descriptor_Fields.aggregateValue' @:: Lens' UninterpretedOption Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.maybe'aggregateValue' @:: Lens' UninterpretedOption (Prelude.Maybe Data.Text.Text)@ -}
data UninterpretedOption
  = UninterpretedOption'_constructor {UninterpretedOption -> Vector UninterpretedOption'NamePart
_UninterpretedOption'name :: !(Data.Vector.Vector UninterpretedOption'NamePart),
                                      UninterpretedOption -> Maybe Text
_UninterpretedOption'identifierValue :: !(Prelude.Maybe Data.Text.Text),
                                      UninterpretedOption -> Maybe Word64
_UninterpretedOption'positiveIntValue :: !(Prelude.Maybe Data.Word.Word64),
                                      UninterpretedOption -> Maybe Int64
_UninterpretedOption'negativeIntValue :: !(Prelude.Maybe Data.Int.Int64),
                                      UninterpretedOption -> Maybe Double
_UninterpretedOption'doubleValue :: !(Prelude.Maybe Prelude.Double),
                                      UninterpretedOption -> Maybe ByteString
_UninterpretedOption'stringValue :: !(Prelude.Maybe Data.ByteString.ByteString),
                                      UninterpretedOption -> Maybe Text
_UninterpretedOption'aggregateValue :: !(Prelude.Maybe Data.Text.Text),
                                      UninterpretedOption -> FieldSet
_UninterpretedOption'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (UninterpretedOption -> UninterpretedOption -> Bool
(UninterpretedOption -> UninterpretedOption -> Bool)
-> (UninterpretedOption -> UninterpretedOption -> Bool)
-> Eq UninterpretedOption
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UninterpretedOption -> UninterpretedOption -> Bool
$c/= :: UninterpretedOption -> UninterpretedOption -> Bool
== :: UninterpretedOption -> UninterpretedOption -> Bool
$c== :: UninterpretedOption -> UninterpretedOption -> Bool
Prelude.Eq, Eq UninterpretedOption
Eq UninterpretedOption =>
(UninterpretedOption -> UninterpretedOption -> Ordering)
-> (UninterpretedOption -> UninterpretedOption -> Bool)
-> (UninterpretedOption -> UninterpretedOption -> Bool)
-> (UninterpretedOption -> UninterpretedOption -> Bool)
-> (UninterpretedOption -> UninterpretedOption -> Bool)
-> (UninterpretedOption
    -> UninterpretedOption -> UninterpretedOption)
-> (UninterpretedOption
    -> UninterpretedOption -> UninterpretedOption)
-> Ord UninterpretedOption
UninterpretedOption -> UninterpretedOption -> Bool
UninterpretedOption -> UninterpretedOption -> Ordering
UninterpretedOption -> UninterpretedOption -> UninterpretedOption
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: UninterpretedOption -> UninterpretedOption -> UninterpretedOption
$cmin :: UninterpretedOption -> UninterpretedOption -> UninterpretedOption
max :: UninterpretedOption -> UninterpretedOption -> UninterpretedOption
$cmax :: UninterpretedOption -> UninterpretedOption -> UninterpretedOption
>= :: UninterpretedOption -> UninterpretedOption -> Bool
$c>= :: UninterpretedOption -> UninterpretedOption -> Bool
> :: UninterpretedOption -> UninterpretedOption -> Bool
$c> :: UninterpretedOption -> UninterpretedOption -> Bool
<= :: UninterpretedOption -> UninterpretedOption -> Bool
$c<= :: UninterpretedOption -> UninterpretedOption -> Bool
< :: UninterpretedOption -> UninterpretedOption -> Bool
$c< :: UninterpretedOption -> UninterpretedOption -> Bool
compare :: UninterpretedOption -> UninterpretedOption -> Ordering
$ccompare :: UninterpretedOption -> UninterpretedOption -> Ordering
$cp1Ord :: Eq UninterpretedOption
Prelude.Ord)
instance Prelude.Show UninterpretedOption where
  showsPrec :: Int -> UninterpretedOption -> ShowS
showsPrec _ __x :: UninterpretedOption
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (UninterpretedOption -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort UninterpretedOption
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField UninterpretedOption "name" [UninterpretedOption'NamePart] where
  fieldOf :: Proxy# "name"
-> ([UninterpretedOption'NamePart]
    -> f [UninterpretedOption'NamePart])
-> UninterpretedOption
-> f UninterpretedOption
fieldOf _
    = ((Vector UninterpretedOption'NamePart
  -> f (Vector UninterpretedOption'NamePart))
 -> UninterpretedOption -> f UninterpretedOption)
-> (([UninterpretedOption'NamePart]
     -> f [UninterpretedOption'NamePart])
    -> Vector UninterpretedOption'NamePart
    -> f (Vector UninterpretedOption'NamePart))
-> ([UninterpretedOption'NamePart]
    -> f [UninterpretedOption'NamePart])
-> UninterpretedOption
-> f UninterpretedOption
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption -> Vector UninterpretedOption'NamePart)
-> (UninterpretedOption
    -> Vector UninterpretedOption'NamePart -> UninterpretedOption)
-> Lens
     UninterpretedOption
     UninterpretedOption
     (Vector UninterpretedOption'NamePart)
     (Vector UninterpretedOption'NamePart)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption -> Vector UninterpretedOption'NamePart
_UninterpretedOption'name
           (\ x__ :: UninterpretedOption
x__ y__ :: Vector UninterpretedOption'NamePart
y__ -> UninterpretedOption
x__ {_UninterpretedOption'name :: Vector UninterpretedOption'NamePart
_UninterpretedOption'name = Vector UninterpretedOption'NamePart
y__}))
        ((Vector UninterpretedOption'NamePart
 -> [UninterpretedOption'NamePart])
-> (Vector UninterpretedOption'NamePart
    -> [UninterpretedOption'NamePart]
    -> Vector UninterpretedOption'NamePart)
-> Lens
     (Vector UninterpretedOption'NamePart)
     (Vector UninterpretedOption'NamePart)
     [UninterpretedOption'NamePart]
     [UninterpretedOption'NamePart]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector UninterpretedOption'NamePart
-> [UninterpretedOption'NamePart]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [UninterpretedOption'NamePart]
y__ -> [UninterpretedOption'NamePart]
-> Vector UninterpretedOption'NamePart
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [UninterpretedOption'NamePart]
y__))
instance Data.ProtoLens.Field.HasField UninterpretedOption "vec'name" (Data.Vector.Vector UninterpretedOption'NamePart) where
  fieldOf :: Proxy# "vec'name"
-> (Vector UninterpretedOption'NamePart
    -> f (Vector UninterpretedOption'NamePart))
-> UninterpretedOption
-> f UninterpretedOption
fieldOf _
    = ((Vector UninterpretedOption'NamePart
  -> f (Vector UninterpretedOption'NamePart))
 -> UninterpretedOption -> f UninterpretedOption)
-> ((Vector UninterpretedOption'NamePart
     -> f (Vector UninterpretedOption'NamePart))
    -> Vector UninterpretedOption'NamePart
    -> f (Vector UninterpretedOption'NamePart))
-> (Vector UninterpretedOption'NamePart
    -> f (Vector UninterpretedOption'NamePart))
-> UninterpretedOption
-> f UninterpretedOption
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption -> Vector UninterpretedOption'NamePart)
-> (UninterpretedOption
    -> Vector UninterpretedOption'NamePart -> UninterpretedOption)
-> Lens
     UninterpretedOption
     UninterpretedOption
     (Vector UninterpretedOption'NamePart)
     (Vector UninterpretedOption'NamePart)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption -> Vector UninterpretedOption'NamePart
_UninterpretedOption'name
           (\ x__ :: UninterpretedOption
x__ y__ :: Vector UninterpretedOption'NamePart
y__ -> UninterpretedOption
x__ {_UninterpretedOption'name :: Vector UninterpretedOption'NamePart
_UninterpretedOption'name = Vector UninterpretedOption'NamePart
y__}))
        (Vector UninterpretedOption'NamePart
 -> f (Vector UninterpretedOption'NamePart))
-> Vector UninterpretedOption'NamePart
-> f (Vector UninterpretedOption'NamePart)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UninterpretedOption "identifierValue" Data.Text.Text where
  fieldOf :: Proxy# "identifierValue"
-> (Text -> f Text) -> UninterpretedOption -> f UninterpretedOption
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> UninterpretedOption -> f UninterpretedOption)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> UninterpretedOption
-> f UninterpretedOption
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption -> Maybe Text)
-> (UninterpretedOption -> Maybe Text -> UninterpretedOption)
-> Lens
     UninterpretedOption UninterpretedOption (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption -> Maybe Text
_UninterpretedOption'identifierValue
           (\ x__ :: UninterpretedOption
x__ y__ :: Maybe Text
y__ -> UninterpretedOption
x__ {_UninterpretedOption'identifierValue :: Maybe Text
_UninterpretedOption'identifierValue = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField UninterpretedOption "maybe'identifierValue" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'identifierValue"
-> (Maybe Text -> f (Maybe Text))
-> UninterpretedOption
-> f UninterpretedOption
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> UninterpretedOption -> f UninterpretedOption)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> UninterpretedOption
-> f UninterpretedOption
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption -> Maybe Text)
-> (UninterpretedOption -> Maybe Text -> UninterpretedOption)
-> Lens
     UninterpretedOption UninterpretedOption (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption -> Maybe Text
_UninterpretedOption'identifierValue
           (\ x__ :: UninterpretedOption
x__ y__ :: Maybe Text
y__ -> UninterpretedOption
x__ {_UninterpretedOption'identifierValue :: Maybe Text
_UninterpretedOption'identifierValue = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UninterpretedOption "positiveIntValue" Data.Word.Word64 where
  fieldOf :: Proxy# "positiveIntValue"
-> (Word64 -> f Word64)
-> UninterpretedOption
-> f UninterpretedOption
fieldOf _
    = ((Maybe Word64 -> f (Maybe Word64))
 -> UninterpretedOption -> f UninterpretedOption)
-> ((Word64 -> f Word64) -> Maybe Word64 -> f (Maybe Word64))
-> (Word64 -> f Word64)
-> UninterpretedOption
-> f UninterpretedOption
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption -> Maybe Word64)
-> (UninterpretedOption -> Maybe Word64 -> UninterpretedOption)
-> Lens
     UninterpretedOption
     UninterpretedOption
     (Maybe Word64)
     (Maybe Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption -> Maybe Word64
_UninterpretedOption'positiveIntValue
           (\ x__ :: UninterpretedOption
x__ y__ :: Maybe Word64
y__ -> UninterpretedOption
x__ {_UninterpretedOption'positiveIntValue :: Maybe Word64
_UninterpretedOption'positiveIntValue = Maybe Word64
y__}))
        (Word64 -> Lens' (Maybe Word64) Word64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField UninterpretedOption "maybe'positiveIntValue" (Prelude.Maybe Data.Word.Word64) where
  fieldOf :: Proxy# "maybe'positiveIntValue"
-> (Maybe Word64 -> f (Maybe Word64))
-> UninterpretedOption
-> f UninterpretedOption
fieldOf _
    = ((Maybe Word64 -> f (Maybe Word64))
 -> UninterpretedOption -> f UninterpretedOption)
-> ((Maybe Word64 -> f (Maybe Word64))
    -> Maybe Word64 -> f (Maybe Word64))
-> (Maybe Word64 -> f (Maybe Word64))
-> UninterpretedOption
-> f UninterpretedOption
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption -> Maybe Word64)
-> (UninterpretedOption -> Maybe Word64 -> UninterpretedOption)
-> Lens
     UninterpretedOption
     UninterpretedOption
     (Maybe Word64)
     (Maybe Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption -> Maybe Word64
_UninterpretedOption'positiveIntValue
           (\ x__ :: UninterpretedOption
x__ y__ :: Maybe Word64
y__ -> UninterpretedOption
x__ {_UninterpretedOption'positiveIntValue :: Maybe Word64
_UninterpretedOption'positiveIntValue = Maybe Word64
y__}))
        (Maybe Word64 -> f (Maybe Word64))
-> Maybe Word64 -> f (Maybe Word64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UninterpretedOption "negativeIntValue" Data.Int.Int64 where
  fieldOf :: Proxy# "negativeIntValue"
-> (Int64 -> f Int64)
-> UninterpretedOption
-> f UninterpretedOption
fieldOf _
    = ((Maybe Int64 -> f (Maybe Int64))
 -> UninterpretedOption -> f UninterpretedOption)
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> UninterpretedOption
-> f UninterpretedOption
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption -> Maybe Int64)
-> (UninterpretedOption -> Maybe Int64 -> UninterpretedOption)
-> Lens
     UninterpretedOption UninterpretedOption (Maybe Int64) (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption -> Maybe Int64
_UninterpretedOption'negativeIntValue
           (\ x__ :: UninterpretedOption
x__ y__ :: Maybe Int64
y__ -> UninterpretedOption
x__ {_UninterpretedOption'negativeIntValue :: Maybe Int64
_UninterpretedOption'negativeIntValue = Maybe Int64
y__}))
        (Int64 -> Lens' (Maybe Int64) Int64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField UninterpretedOption "maybe'negativeIntValue" (Prelude.Maybe Data.Int.Int64) where
  fieldOf :: Proxy# "maybe'negativeIntValue"
-> (Maybe Int64 -> f (Maybe Int64))
-> UninterpretedOption
-> f UninterpretedOption
fieldOf _
    = ((Maybe Int64 -> f (Maybe Int64))
 -> UninterpretedOption -> f UninterpretedOption)
-> ((Maybe Int64 -> f (Maybe Int64))
    -> Maybe Int64 -> f (Maybe Int64))
-> (Maybe Int64 -> f (Maybe Int64))
-> UninterpretedOption
-> f UninterpretedOption
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption -> Maybe Int64)
-> (UninterpretedOption -> Maybe Int64 -> UninterpretedOption)
-> Lens
     UninterpretedOption UninterpretedOption (Maybe Int64) (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption -> Maybe Int64
_UninterpretedOption'negativeIntValue
           (\ x__ :: UninterpretedOption
x__ y__ :: Maybe Int64
y__ -> UninterpretedOption
x__ {_UninterpretedOption'negativeIntValue :: Maybe Int64
_UninterpretedOption'negativeIntValue = Maybe Int64
y__}))
        (Maybe Int64 -> f (Maybe Int64)) -> Maybe Int64 -> f (Maybe Int64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UninterpretedOption "doubleValue" Prelude.Double where
  fieldOf :: Proxy# "doubleValue"
-> (Double -> f Double)
-> UninterpretedOption
-> f UninterpretedOption
fieldOf _
    = ((Maybe Double -> f (Maybe Double))
 -> UninterpretedOption -> f UninterpretedOption)
-> ((Double -> f Double) -> Maybe Double -> f (Maybe Double))
-> (Double -> f Double)
-> UninterpretedOption
-> f UninterpretedOption
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption -> Maybe Double)
-> (UninterpretedOption -> Maybe Double -> UninterpretedOption)
-> Lens
     UninterpretedOption
     UninterpretedOption
     (Maybe Double)
     (Maybe Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption -> Maybe Double
_UninterpretedOption'doubleValue
           (\ x__ :: UninterpretedOption
x__ y__ :: Maybe Double
y__ -> UninterpretedOption
x__ {_UninterpretedOption'doubleValue :: Maybe Double
_UninterpretedOption'doubleValue = Maybe Double
y__}))
        (Double -> Lens' (Maybe Double) Double
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField UninterpretedOption "maybe'doubleValue" (Prelude.Maybe Prelude.Double) where
  fieldOf :: Proxy# "maybe'doubleValue"
-> (Maybe Double -> f (Maybe Double))
-> UninterpretedOption
-> f UninterpretedOption
fieldOf _
    = ((Maybe Double -> f (Maybe Double))
 -> UninterpretedOption -> f UninterpretedOption)
-> ((Maybe Double -> f (Maybe Double))
    -> Maybe Double -> f (Maybe Double))
-> (Maybe Double -> f (Maybe Double))
-> UninterpretedOption
-> f UninterpretedOption
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption -> Maybe Double)
-> (UninterpretedOption -> Maybe Double -> UninterpretedOption)
-> Lens
     UninterpretedOption
     UninterpretedOption
     (Maybe Double)
     (Maybe Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption -> Maybe Double
_UninterpretedOption'doubleValue
           (\ x__ :: UninterpretedOption
x__ y__ :: Maybe Double
y__ -> UninterpretedOption
x__ {_UninterpretedOption'doubleValue :: Maybe Double
_UninterpretedOption'doubleValue = Maybe Double
y__}))
        (Maybe Double -> f (Maybe Double))
-> Maybe Double -> f (Maybe Double)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UninterpretedOption "stringValue" Data.ByteString.ByteString where
  fieldOf :: Proxy# "stringValue"
-> (ByteString -> f ByteString)
-> UninterpretedOption
-> f UninterpretedOption
fieldOf _
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> UninterpretedOption -> f UninterpretedOption)
-> ((ByteString -> f ByteString)
    -> Maybe ByteString -> f (Maybe ByteString))
-> (ByteString -> f ByteString)
-> UninterpretedOption
-> f UninterpretedOption
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption -> Maybe ByteString)
-> (UninterpretedOption -> Maybe ByteString -> UninterpretedOption)
-> Lens
     UninterpretedOption
     UninterpretedOption
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption -> Maybe ByteString
_UninterpretedOption'stringValue
           (\ x__ :: UninterpretedOption
x__ y__ :: Maybe ByteString
y__ -> UninterpretedOption
x__ {_UninterpretedOption'stringValue :: Maybe ByteString
_UninterpretedOption'stringValue = Maybe ByteString
y__}))
        (ByteString -> Lens' (Maybe ByteString) ByteString
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField UninterpretedOption "maybe'stringValue" (Prelude.Maybe Data.ByteString.ByteString) where
  fieldOf :: Proxy# "maybe'stringValue"
-> (Maybe ByteString -> f (Maybe ByteString))
-> UninterpretedOption
-> f UninterpretedOption
fieldOf _
    = ((Maybe ByteString -> f (Maybe ByteString))
 -> UninterpretedOption -> f UninterpretedOption)
-> ((Maybe ByteString -> f (Maybe ByteString))
    -> Maybe ByteString -> f (Maybe ByteString))
-> (Maybe ByteString -> f (Maybe ByteString))
-> UninterpretedOption
-> f UninterpretedOption
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption -> Maybe ByteString)
-> (UninterpretedOption -> Maybe ByteString -> UninterpretedOption)
-> Lens
     UninterpretedOption
     UninterpretedOption
     (Maybe ByteString)
     (Maybe ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption -> Maybe ByteString
_UninterpretedOption'stringValue
           (\ x__ :: UninterpretedOption
x__ y__ :: Maybe ByteString
y__ -> UninterpretedOption
x__ {_UninterpretedOption'stringValue :: Maybe ByteString
_UninterpretedOption'stringValue = Maybe ByteString
y__}))
        (Maybe ByteString -> f (Maybe ByteString))
-> Maybe ByteString -> f (Maybe ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UninterpretedOption "aggregateValue" Data.Text.Text where
  fieldOf :: Proxy# "aggregateValue"
-> (Text -> f Text) -> UninterpretedOption -> f UninterpretedOption
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> UninterpretedOption -> f UninterpretedOption)
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> UninterpretedOption
-> f UninterpretedOption
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption -> Maybe Text)
-> (UninterpretedOption -> Maybe Text -> UninterpretedOption)
-> Lens
     UninterpretedOption UninterpretedOption (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption -> Maybe Text
_UninterpretedOption'aggregateValue
           (\ x__ :: UninterpretedOption
x__ y__ :: Maybe Text
y__ -> UninterpretedOption
x__ {_UninterpretedOption'aggregateValue :: Maybe Text
_UninterpretedOption'aggregateValue = Maybe Text
y__}))
        (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault)
instance Data.ProtoLens.Field.HasField UninterpretedOption "maybe'aggregateValue" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'aggregateValue"
-> (Maybe Text -> f (Maybe Text))
-> UninterpretedOption
-> f UninterpretedOption
fieldOf _
    = ((Maybe Text -> f (Maybe Text))
 -> UninterpretedOption -> f UninterpretedOption)
-> ((Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text))
-> (Maybe Text -> f (Maybe Text))
-> UninterpretedOption
-> f UninterpretedOption
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption -> Maybe Text)
-> (UninterpretedOption -> Maybe Text -> UninterpretedOption)
-> Lens
     UninterpretedOption UninterpretedOption (Maybe Text) (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption -> Maybe Text
_UninterpretedOption'aggregateValue
           (\ x__ :: UninterpretedOption
x__ y__ :: Maybe Text
y__ -> UninterpretedOption
x__ {_UninterpretedOption'aggregateValue :: Maybe Text
_UninterpretedOption'aggregateValue = Maybe Text
y__}))
        (Maybe Text -> f (Maybe Text)) -> Maybe Text -> f (Maybe Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message UninterpretedOption where
  messageName :: Proxy UninterpretedOption -> Text
messageName _
    = String -> Text
Data.Text.pack "google.protobuf.UninterpretedOption"
  fieldsByTag :: Map Tag (FieldDescriptor UninterpretedOption)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor UninterpretedOption
name__field_descriptor
          = String
-> FieldTypeDescriptor UninterpretedOption'NamePart
-> FieldAccessor UninterpretedOption UninterpretedOption'NamePart
-> FieldDescriptor UninterpretedOption
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (MessageOrGroup -> FieldTypeDescriptor UninterpretedOption'NamePart
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor UninterpretedOption'NamePart)
              (Packing
-> Lens' UninterpretedOption [UninterpretedOption'NamePart]
-> FieldAccessor UninterpretedOption UninterpretedOption'NamePart
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
              Data.ProtoLens.FieldDescriptor UninterpretedOption
        identifierValue__field_descriptor :: FieldDescriptor UninterpretedOption
identifierValue__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor UninterpretedOption Text
-> FieldDescriptor UninterpretedOption
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "identifier_value"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  UninterpretedOption UninterpretedOption (Maybe Text) (Maybe Text)
-> FieldAccessor UninterpretedOption Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'identifierValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'identifierValue")) ::
              Data.ProtoLens.FieldDescriptor UninterpretedOption
        positiveIntValue__field_descriptor :: FieldDescriptor UninterpretedOption
positiveIntValue__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor UninterpretedOption Word64
-> FieldDescriptor UninterpretedOption
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "positive_int_value"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (Lens
  UninterpretedOption
  UninterpretedOption
  (Maybe Word64)
  (Maybe Word64)
-> FieldAccessor UninterpretedOption Word64
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'positiveIntValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'positiveIntValue")) ::
              Data.ProtoLens.FieldDescriptor UninterpretedOption
        negativeIntValue__field_descriptor :: FieldDescriptor UninterpretedOption
negativeIntValue__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor UninterpretedOption Int64
-> FieldDescriptor UninterpretedOption
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "negative_int_value"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (Lens
  UninterpretedOption UninterpretedOption (Maybe Int64) (Maybe Int64)
-> FieldAccessor UninterpretedOption Int64
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'negativeIntValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'negativeIntValue")) ::
              Data.ProtoLens.FieldDescriptor UninterpretedOption
        doubleValue__field_descriptor :: FieldDescriptor UninterpretedOption
doubleValue__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor UninterpretedOption Double
-> FieldDescriptor UninterpretedOption
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "double_value"
              (ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
              (Lens
  UninterpretedOption
  UninterpretedOption
  (Maybe Double)
  (Maybe Double)
-> FieldAccessor UninterpretedOption Double
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'doubleValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'doubleValue")) ::
              Data.ProtoLens.FieldDescriptor UninterpretedOption
        stringValue__field_descriptor :: FieldDescriptor UninterpretedOption
stringValue__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor UninterpretedOption ByteString
-> FieldDescriptor UninterpretedOption
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "string_value"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Lens
  UninterpretedOption
  UninterpretedOption
  (Maybe ByteString)
  (Maybe ByteString)
-> FieldAccessor UninterpretedOption ByteString
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'stringValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stringValue")) ::
              Data.ProtoLens.FieldDescriptor UninterpretedOption
        aggregateValue__field_descriptor :: FieldDescriptor UninterpretedOption
aggregateValue__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor UninterpretedOption Text
-> FieldDescriptor UninterpretedOption
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "aggregate_value"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens
  UninterpretedOption UninterpretedOption (Maybe Text) (Maybe Text)
-> FieldAccessor UninterpretedOption Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'aggregateValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'aggregateValue")) ::
              Data.ProtoLens.FieldDescriptor UninterpretedOption
      in
        [(Tag, FieldDescriptor UninterpretedOption)]
-> Map Tag (FieldDescriptor UninterpretedOption)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor UninterpretedOption
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor UninterpretedOption
identifierValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor UninterpretedOption
positiveIntValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor UninterpretedOption
negativeIntValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor UninterpretedOption
doubleValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor UninterpretedOption
stringValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor UninterpretedOption
aggregateValue__field_descriptor)]
  unknownFields :: LensLike' f UninterpretedOption FieldSet
unknownFields
    = (UninterpretedOption -> FieldSet)
-> (UninterpretedOption -> FieldSet -> UninterpretedOption)
-> Lens' UninterpretedOption FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        UninterpretedOption -> FieldSet
_UninterpretedOption'_unknownFields
        (\ x__ :: UninterpretedOption
x__ y__ :: FieldSet
y__ -> UninterpretedOption
x__ {_UninterpretedOption'_unknownFields :: FieldSet
_UninterpretedOption'_unknownFields = FieldSet
y__})
  defMessage :: UninterpretedOption
defMessage
    = $WUninterpretedOption'_constructor :: Vector UninterpretedOption'NamePart
-> Maybe Text
-> Maybe Word64
-> Maybe Int64
-> Maybe Double
-> Maybe ByteString
-> Maybe Text
-> FieldSet
-> UninterpretedOption
UninterpretedOption'_constructor
        {_UninterpretedOption'name :: Vector UninterpretedOption'NamePart
_UninterpretedOption'name = Vector UninterpretedOption'NamePart
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _UninterpretedOption'identifierValue :: Maybe Text
_UninterpretedOption'identifierValue = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _UninterpretedOption'positiveIntValue :: Maybe Word64
_UninterpretedOption'positiveIntValue = Maybe Word64
forall a. Maybe a
Prelude.Nothing,
         _UninterpretedOption'negativeIntValue :: Maybe Int64
_UninterpretedOption'negativeIntValue = Maybe Int64
forall a. Maybe a
Prelude.Nothing,
         _UninterpretedOption'doubleValue :: Maybe Double
_UninterpretedOption'doubleValue = Maybe Double
forall a. Maybe a
Prelude.Nothing,
         _UninterpretedOption'stringValue :: Maybe ByteString
_UninterpretedOption'stringValue = Maybe ByteString
forall a. Maybe a
Prelude.Nothing,
         _UninterpretedOption'aggregateValue :: Maybe Text
_UninterpretedOption'aggregateValue = Maybe Text
forall a. Maybe a
Prelude.Nothing,
         _UninterpretedOption'_unknownFields :: FieldSet
_UninterpretedOption'_unknownFields = []}
  parseMessage :: Parser UninterpretedOption
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 :: UninterpretedOption
-> Growing Vector RealWorld UninterpretedOption'NamePart
-> Parser UninterpretedOption
loop x :: UninterpretedOption
x mutable'name :: Growing Vector RealWorld UninterpretedOption'NamePart
mutable'name
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector UninterpretedOption'NamePart
frozen'name <- IO (Vector UninterpretedOption'NamePart)
-> Parser (Vector UninterpretedOption'NamePart)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) UninterpretedOption'NamePart
-> IO (Vector UninterpretedOption'NamePart)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld UninterpretedOption'NamePart
Growing Vector (PrimState IO) UninterpretedOption'NamePart
mutable'name)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      UninterpretedOption -> Parser UninterpretedOption
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter UninterpretedOption UninterpretedOption FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> UninterpretedOption
-> UninterpretedOption
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter UninterpretedOption UninterpretedOption FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  UninterpretedOption
  UninterpretedOption
  (Vector UninterpretedOption'NamePart)
  (Vector UninterpretedOption'NamePart)
-> Vector UninterpretedOption'NamePart
-> UninterpretedOption
-> UninterpretedOption
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'name") Vector UninterpretedOption'NamePart
frozen'name UninterpretedOption
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        18
                          -> do !UninterpretedOption'NamePart
y <- Parser UninterpretedOption'NamePart
-> String -> Parser UninterpretedOption'NamePart
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int
-> Parser UninterpretedOption'NamePart
-> Parser UninterpretedOption'NamePart
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser UninterpretedOption'NamePart
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "name"
                                Growing Vector RealWorld UninterpretedOption'NamePart
v <- IO (Growing Vector RealWorld UninterpretedOption'NamePart)
-> Parser (Growing Vector RealWorld UninterpretedOption'NamePart)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) UninterpretedOption'NamePart
-> UninterpretedOption'NamePart
-> IO (Growing Vector (PrimState IO) UninterpretedOption'NamePart)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld UninterpretedOption'NamePart
Growing Vector (PrimState IO) UninterpretedOption'NamePart
mutable'name UninterpretedOption'NamePart
y)
                                UninterpretedOption
-> Growing Vector RealWorld UninterpretedOption'NamePart
-> Parser UninterpretedOption
loop UninterpretedOption
x Growing Vector RealWorld UninterpretedOption'NamePart
v
                        26
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "identifier_value"
                                UninterpretedOption
-> Growing Vector RealWorld UninterpretedOption'NamePart
-> Parser UninterpretedOption
loop
                                  (Setter UninterpretedOption UninterpretedOption Text Text
-> Text -> UninterpretedOption -> UninterpretedOption
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "identifierValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"identifierValue") Text
y UninterpretedOption
x)
                                  Growing Vector RealWorld UninterpretedOption'NamePart
mutable'name
                        32
                          -> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt "positive_int_value"
                                UninterpretedOption
-> Growing Vector RealWorld UninterpretedOption'NamePart
-> Parser UninterpretedOption
loop
                                  (Setter UninterpretedOption UninterpretedOption Word64 Word64
-> Word64 -> UninterpretedOption -> UninterpretedOption
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "positiveIntValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"positiveIntValue") Word64
y UninterpretedOption
x)
                                  Growing Vector RealWorld UninterpretedOption'NamePart
mutable'name
                        40
                          -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "negative_int_value"
                                UninterpretedOption
-> Growing Vector RealWorld UninterpretedOption'NamePart
-> Parser UninterpretedOption
loop
                                  (Setter UninterpretedOption UninterpretedOption Int64 Int64
-> Int64 -> UninterpretedOption -> UninterpretedOption
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "negativeIntValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"negativeIntValue") Int64
y UninterpretedOption
x)
                                  Growing Vector RealWorld UninterpretedOption'NamePart
mutable'name
                        49
                          -> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       "double_value"
                                UninterpretedOption
-> Growing Vector RealWorld UninterpretedOption'NamePart
-> Parser UninterpretedOption
loop
                                  (Setter UninterpretedOption UninterpretedOption Double Double
-> Double -> UninterpretedOption -> UninterpretedOption
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "doubleValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"doubleValue") Double
y UninterpretedOption
x)
                                  Growing Vector RealWorld UninterpretedOption'NamePart
mutable'name
                        58
                          -> do ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len))
                                       "string_value"
                                UninterpretedOption
-> Growing Vector RealWorld UninterpretedOption'NamePart
-> Parser UninterpretedOption
loop
                                  (Setter
  UninterpretedOption UninterpretedOption ByteString ByteString
-> ByteString -> UninterpretedOption -> UninterpretedOption
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "stringValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stringValue") ByteString
y UninterpretedOption
x)
                                  Growing Vector RealWorld UninterpretedOption'NamePart
mutable'name
                        66
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "aggregate_value"
                                UninterpretedOption
-> Growing Vector RealWorld UninterpretedOption'NamePart
-> Parser UninterpretedOption
loop
                                  (Setter UninterpretedOption UninterpretedOption Text Text
-> Text -> UninterpretedOption -> UninterpretedOption
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "aggregateValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"aggregateValue") Text
y UninterpretedOption
x)
                                  Growing Vector RealWorld UninterpretedOption'NamePart
mutable'name
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                UninterpretedOption
-> Growing Vector RealWorld UninterpretedOption'NamePart
-> Parser UninterpretedOption
loop
                                  (Setter UninterpretedOption UninterpretedOption FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> UninterpretedOption
-> UninterpretedOption
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter UninterpretedOption UninterpretedOption FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) UninterpretedOption
x)
                                  Growing Vector RealWorld UninterpretedOption'NamePart
mutable'name
      in
        Parser UninterpretedOption -> String -> Parser UninterpretedOption
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld UninterpretedOption'NamePart
mutable'name <- IO (Growing Vector RealWorld UninterpretedOption'NamePart)
-> Parser (Growing Vector RealWorld UninterpretedOption'NamePart)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                IO (Growing Vector RealWorld UninterpretedOption'NamePart)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              UninterpretedOption
-> Growing Vector RealWorld UninterpretedOption'NamePart
-> Parser UninterpretedOption
loop UninterpretedOption
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld UninterpretedOption'NamePart
mutable'name)
          "UninterpretedOption"
  buildMessage :: UninterpretedOption -> Builder
buildMessage
    = \ _x :: UninterpretedOption
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((UninterpretedOption'NamePart -> Builder)
-> Vector UninterpretedOption'NamePart -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: UninterpretedOption'NamePart
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                        ((ByteString -> Builder)
-> (UninterpretedOption'NamePart -> ByteString)
-> UninterpretedOption'NamePart
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ bs :: ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           UninterpretedOption'NamePart -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                           UninterpretedOption'NamePart
_v))
                (FoldLike
  (Vector UninterpretedOption'NamePart)
  UninterpretedOption
  UninterpretedOption
  (Vector UninterpretedOption'NamePart)
  (Vector UninterpretedOption'NamePart)
-> UninterpretedOption -> Vector UninterpretedOption'NamePart
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'name") UninterpretedOption
_x))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe Text)
  UninterpretedOption
  UninterpretedOption
  (Maybe Text)
  (Maybe Text)
-> UninterpretedOption -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall s a (f :: * -> *).
(HasField s "maybe'identifierValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'identifierValue") UninterpretedOption
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: Text
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                          ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             Text -> ByteString
Data.Text.Encoding.encodeUtf8
                             Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe Word64)
  UninterpretedOption
  UninterpretedOption
  (Maybe Word64)
  (Maybe Word64)
-> UninterpretedOption -> Maybe Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall s a (f :: * -> *).
(HasField s "maybe'positiveIntValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'positiveIntValue") UninterpretedOption
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: Word64
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 32)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe Int64)
  UninterpretedOption
  UninterpretedOption
  (Maybe Int64)
  (Maybe Int64)
-> UninterpretedOption -> Maybe Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                             (forall s a (f :: * -> *).
(HasField s "maybe'negativeIntValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'negativeIntValue") UninterpretedOption
_x
                       of
                         Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just _v :: Int64
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 40)
                                ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (case
                              FoldLike
  (Maybe Double)
  UninterpretedOption
  UninterpretedOption
  (Maybe Double)
  (Maybe Double)
-> UninterpretedOption -> Maybe Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                (forall s a (f :: * -> *).
(HasField s "maybe'doubleValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'doubleValue") UninterpretedOption
_x
                          of
                            Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                            (Prelude.Just _v :: Double
_v)
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 49)
                                   ((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                      Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
                                      Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord
                                      Double
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (case
                                 FoldLike
  (Maybe ByteString)
  UninterpretedOption
  UninterpretedOption
  (Maybe ByteString)
  (Maybe ByteString)
-> UninterpretedOption -> Maybe ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                   (forall s a (f :: * -> *).
(HasField s "maybe'stringValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stringValue") UninterpretedOption
_x
                             of
                               Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                               (Prelude.Just _v :: ByteString
_v)
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
                                      ((\ bs :: ByteString
bs
                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                     (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                         ByteString
_v))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (case
                                    FoldLike
  (Maybe Text)
  UninterpretedOption
  UninterpretedOption
  (Maybe Text)
  (Maybe Text)
-> UninterpretedOption -> Maybe Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                      (forall s a (f :: * -> *).
(HasField s "maybe'aggregateValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'aggregateValue") UninterpretedOption
_x
                                of
                                  Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                  (Prelude.Just _v :: Text
_v)
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 66)
                                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                            (\ bs :: ByteString
bs
                                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                          (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                            Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                            Text
_v))
                               (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                  (FoldLike
  FieldSet UninterpretedOption UninterpretedOption FieldSet FieldSet
-> UninterpretedOption -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet UninterpretedOption UninterpretedOption FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields UninterpretedOption
_x))))))))
instance Control.DeepSeq.NFData UninterpretedOption where
  rnf :: UninterpretedOption -> ()
rnf
    = \ x__ :: UninterpretedOption
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (UninterpretedOption -> FieldSet
_UninterpretedOption'_unknownFields UninterpretedOption
x__)
             (Vector UninterpretedOption'NamePart -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (UninterpretedOption -> Vector UninterpretedOption'NamePart
_UninterpretedOption'name UninterpretedOption
x__)
                (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (UninterpretedOption -> Maybe Text
_UninterpretedOption'identifierValue UninterpretedOption
x__)
                   (Maybe Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (UninterpretedOption -> Maybe Word64
_UninterpretedOption'positiveIntValue UninterpretedOption
x__)
                      (Maybe Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (UninterpretedOption -> Maybe Int64
_UninterpretedOption'negativeIntValue UninterpretedOption
x__)
                         (Maybe Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (UninterpretedOption -> Maybe Double
_UninterpretedOption'doubleValue UninterpretedOption
x__)
                            (Maybe ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (UninterpretedOption -> Maybe ByteString
_UninterpretedOption'stringValue UninterpretedOption
x__)
                               (Maybe Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (UninterpretedOption -> Maybe Text
_UninterpretedOption'aggregateValue UninterpretedOption
x__) ())))))))
{- | Fields :
     
         * 'Proto.Google.Protobuf.Descriptor_Fields.namePart' @:: Lens' UninterpretedOption'NamePart Data.Text.Text@
         * 'Proto.Google.Protobuf.Descriptor_Fields.isExtension' @:: Lens' UninterpretedOption'NamePart Prelude.Bool@ -}
data UninterpretedOption'NamePart
  = UninterpretedOption'NamePart'_constructor {UninterpretedOption'NamePart -> Text
_UninterpretedOption'NamePart'namePart :: !Data.Text.Text,
                                               UninterpretedOption'NamePart -> Bool
_UninterpretedOption'NamePart'isExtension :: !Prelude.Bool,
                                               UninterpretedOption'NamePart -> FieldSet
_UninterpretedOption'NamePart'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving (UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Bool
(UninterpretedOption'NamePart
 -> UninterpretedOption'NamePart -> Bool)
-> (UninterpretedOption'NamePart
    -> UninterpretedOption'NamePart -> Bool)
-> Eq UninterpretedOption'NamePart
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Bool
$c/= :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Bool
== :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Bool
$c== :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Bool
Prelude.Eq, Eq UninterpretedOption'NamePart
Eq UninterpretedOption'NamePart =>
(UninterpretedOption'NamePart
 -> UninterpretedOption'NamePart -> Ordering)
-> (UninterpretedOption'NamePart
    -> UninterpretedOption'NamePart -> Bool)
-> (UninterpretedOption'NamePart
    -> UninterpretedOption'NamePart -> Bool)
-> (UninterpretedOption'NamePart
    -> UninterpretedOption'NamePart -> Bool)
-> (UninterpretedOption'NamePart
    -> UninterpretedOption'NamePart -> Bool)
-> (UninterpretedOption'NamePart
    -> UninterpretedOption'NamePart -> UninterpretedOption'NamePart)
-> (UninterpretedOption'NamePart
    -> UninterpretedOption'NamePart -> UninterpretedOption'NamePart)
-> Ord UninterpretedOption'NamePart
UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Bool
UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Ordering
UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> UninterpretedOption'NamePart
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> UninterpretedOption'NamePart
$cmin :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> UninterpretedOption'NamePart
max :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> UninterpretedOption'NamePart
$cmax :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> UninterpretedOption'NamePart
>= :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Bool
$c>= :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Bool
> :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Bool
$c> :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Bool
<= :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Bool
$c<= :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Bool
< :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Bool
$c< :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Bool
compare :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Ordering
$ccompare :: UninterpretedOption'NamePart
-> UninterpretedOption'NamePart -> Ordering
$cp1Ord :: Eq UninterpretedOption'NamePart
Prelude.Ord)
instance Prelude.Show UninterpretedOption'NamePart where
  showsPrec :: Int -> UninterpretedOption'NamePart -> ShowS
showsPrec _ __x :: UninterpretedOption'NamePart
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (UninterpretedOption'NamePart -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort UninterpretedOption'NamePart
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField UninterpretedOption'NamePart "namePart" Data.Text.Text where
  fieldOf :: Proxy# "namePart"
-> (Text -> f Text)
-> UninterpretedOption'NamePart
-> f UninterpretedOption'NamePart
fieldOf _
    = ((Text -> f Text)
 -> UninterpretedOption'NamePart -> f UninterpretedOption'NamePart)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> UninterpretedOption'NamePart
-> f UninterpretedOption'NamePart
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption'NamePart -> Text)
-> (UninterpretedOption'NamePart
    -> Text -> UninterpretedOption'NamePart)
-> Lens
     UninterpretedOption'NamePart UninterpretedOption'NamePart Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption'NamePart -> Text
_UninterpretedOption'NamePart'namePart
           (\ x__ :: UninterpretedOption'NamePart
x__ y__ :: Text
y__ -> UninterpretedOption'NamePart
x__ {_UninterpretedOption'NamePart'namePart :: Text
_UninterpretedOption'NamePart'namePart = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField UninterpretedOption'NamePart "isExtension" Prelude.Bool where
  fieldOf :: Proxy# "isExtension"
-> (Bool -> f Bool)
-> UninterpretedOption'NamePart
-> f UninterpretedOption'NamePart
fieldOf _
    = ((Bool -> f Bool)
 -> UninterpretedOption'NamePart -> f UninterpretedOption'NamePart)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> UninterpretedOption'NamePart
-> f UninterpretedOption'NamePart
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((UninterpretedOption'NamePart -> Bool)
-> (UninterpretedOption'NamePart
    -> Bool -> UninterpretedOption'NamePart)
-> Lens
     UninterpretedOption'NamePart UninterpretedOption'NamePart Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           UninterpretedOption'NamePart -> Bool
_UninterpretedOption'NamePart'isExtension
           (\ x__ :: UninterpretedOption'NamePart
x__ y__ :: Bool
y__
              -> UninterpretedOption'NamePart
x__ {_UninterpretedOption'NamePart'isExtension :: Bool
_UninterpretedOption'NamePart'isExtension = Bool
y__}))
        (Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message UninterpretedOption'NamePart where
  messageName :: Proxy UninterpretedOption'NamePart -> Text
messageName _
    = String -> Text
Data.Text.pack "google.protobuf.UninterpretedOption.NamePart"
  fieldsByTag :: Map Tag (FieldDescriptor UninterpretedOption'NamePart)
fieldsByTag
    = let
        namePart__field_descriptor :: FieldDescriptor UninterpretedOption'NamePart
namePart__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor UninterpretedOption'NamePart Text
-> FieldDescriptor UninterpretedOption'NamePart
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name_part"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens
     UninterpretedOption'NamePart UninterpretedOption'NamePart Text Text
-> FieldAccessor UninterpretedOption'NamePart Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. WireDefault value
Data.ProtoLens.Required
                 (forall s a (f :: * -> *).
(HasField s "namePart" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"namePart")) ::
              Data.ProtoLens.FieldDescriptor UninterpretedOption'NamePart
        isExtension__field_descriptor :: FieldDescriptor UninterpretedOption'NamePart
isExtension__field_descriptor
          = String
-> FieldTypeDescriptor Bool
-> FieldAccessor UninterpretedOption'NamePart Bool
-> FieldDescriptor UninterpretedOption'NamePart
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "is_extension"
              (ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
              (WireDefault Bool
-> Lens
     UninterpretedOption'NamePart UninterpretedOption'NamePart Bool Bool
-> FieldAccessor UninterpretedOption'NamePart Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Bool
forall value. WireDefault value
Data.ProtoLens.Required
                 (forall s a (f :: * -> *).
(HasField s "isExtension" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isExtension")) ::
              Data.ProtoLens.FieldDescriptor UninterpretedOption'NamePart
      in
        [(Tag, FieldDescriptor UninterpretedOption'NamePart)]
-> Map Tag (FieldDescriptor UninterpretedOption'NamePart)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor UninterpretedOption'NamePart
namePart__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor UninterpretedOption'NamePart
isExtension__field_descriptor)]
  unknownFields :: LensLike' f UninterpretedOption'NamePart FieldSet
unknownFields
    = (UninterpretedOption'NamePart -> FieldSet)
-> (UninterpretedOption'NamePart
    -> FieldSet -> UninterpretedOption'NamePart)
-> Lens' UninterpretedOption'NamePart FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        UninterpretedOption'NamePart -> FieldSet
_UninterpretedOption'NamePart'_unknownFields
        (\ x__ :: UninterpretedOption'NamePart
x__ y__ :: FieldSet
y__
           -> UninterpretedOption'NamePart
x__ {_UninterpretedOption'NamePart'_unknownFields :: FieldSet
_UninterpretedOption'NamePart'_unknownFields = FieldSet
y__})
  defMessage :: UninterpretedOption'NamePart
defMessage
    = $WUninterpretedOption'NamePart'_constructor :: Text -> Bool -> FieldSet -> UninterpretedOption'NamePart
UninterpretedOption'NamePart'_constructor
        {_UninterpretedOption'NamePart'namePart :: Text
_UninterpretedOption'NamePart'namePart = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _UninterpretedOption'NamePart'isExtension :: Bool
_UninterpretedOption'NamePart'isExtension = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _UninterpretedOption'NamePart'_unknownFields :: FieldSet
_UninterpretedOption'NamePart'_unknownFields = []}
  parseMessage :: Parser UninterpretedOption'NamePart
parseMessage
    = let
        loop ::
          UninterpretedOption'NamePart
          -> Prelude.Bool
             -> Prelude.Bool
                -> Data.ProtoLens.Encoding.Bytes.Parser UninterpretedOption'NamePart
        loop :: UninterpretedOption'NamePart
-> Bool -> Bool -> Parser UninterpretedOption'NamePart
loop x :: UninterpretedOption'NamePart
x required'isExtension :: Bool
required'isExtension required'namePart :: Bool
required'namePart
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let
                         missing :: [String]
missing
                           = (if Bool
required'isExtension then (:) "is_extension" else [String] -> [String]
forall a. a -> a
Prelude.id)
                               ((if Bool
required'namePart then (:) "name_part" else [String] -> [String]
forall a. a -> a
Prelude.id) [])
                       in
                         if [String] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [String]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
missing :: [Prelude.String]))))
                      UninterpretedOption'NamePart -> Parser UninterpretedOption'NamePart
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  UninterpretedOption'NamePart
  UninterpretedOption'NamePart
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> UninterpretedOption'NamePart
-> UninterpretedOption'NamePart
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  UninterpretedOption'NamePart
  UninterpretedOption'NamePart
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) UninterpretedOption'NamePart
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "name_part"
                                UninterpretedOption'NamePart
-> Bool -> Bool -> Parser UninterpretedOption'NamePart
loop
                                  (Setter
  UninterpretedOption'NamePart UninterpretedOption'NamePart Text Text
-> Text
-> UninterpretedOption'NamePart
-> UninterpretedOption'NamePart
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "namePart" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"namePart") Text
y UninterpretedOption'NamePart
x)
                                  Bool
required'isExtension
                                  Bool
Prelude.False
                        16
                          -> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          (Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "is_extension"
                                UninterpretedOption'NamePart
-> Bool -> Bool -> Parser UninterpretedOption'NamePart
loop
                                  (Setter
  UninterpretedOption'NamePart UninterpretedOption'NamePart Bool Bool
-> Bool
-> UninterpretedOption'NamePart
-> UninterpretedOption'NamePart
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "isExtension" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isExtension") Bool
y UninterpretedOption'NamePart
x)
                                  Bool
Prelude.False
                                  Bool
required'namePart
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                UninterpretedOption'NamePart
-> Bool -> Bool -> Parser UninterpretedOption'NamePart
loop
                                  (Setter
  UninterpretedOption'NamePart
  UninterpretedOption'NamePart
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> UninterpretedOption'NamePart
-> UninterpretedOption'NamePart
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  UninterpretedOption'NamePart
  UninterpretedOption'NamePart
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) UninterpretedOption'NamePart
x)
                                  Bool
required'isExtension
                                  Bool
required'namePart
      in
        Parser UninterpretedOption'NamePart
-> String -> Parser UninterpretedOption'NamePart
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do UninterpretedOption'NamePart
-> Bool -> Bool -> Parser UninterpretedOption'NamePart
loop UninterpretedOption'NamePart
forall msg. Message msg => msg
Data.ProtoLens.defMessage Bool
Prelude.True Bool
Prelude.True)
          "NamePart"
  buildMessage :: UninterpretedOption'NamePart -> Builder
buildMessage
    = \ _x :: UninterpretedOption'NamePart
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                   (\ bs :: ByteString
bs
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                   Text -> ByteString
Data.Text.Encoding.encodeUtf8
                   (FoldLike
  Text
  UninterpretedOption'NamePart
  UninterpretedOption'NamePart
  Text
  Text
-> UninterpretedOption'NamePart -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "namePart" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"namePart") UninterpretedOption'NamePart
_x)))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 16)
                   ((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                      Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                      (\ b :: Bool
b -> if Bool
b then 1 else 0)
                      (FoldLike
  Bool
  UninterpretedOption'NamePart
  UninterpretedOption'NamePart
  Bool
  Bool
-> UninterpretedOption'NamePart -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall s a (f :: * -> *).
(HasField s "isExtension" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"isExtension") UninterpretedOption'NamePart
_x)))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  UninterpretedOption'NamePart
  UninterpretedOption'NamePart
  FieldSet
  FieldSet
-> UninterpretedOption'NamePart -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  UninterpretedOption'NamePart
  UninterpretedOption'NamePart
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields UninterpretedOption'NamePart
_x)))
instance Control.DeepSeq.NFData UninterpretedOption'NamePart where
  rnf :: UninterpretedOption'NamePart -> ()
rnf
    = \ x__ :: UninterpretedOption'NamePart
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (UninterpretedOption'NamePart -> FieldSet
_UninterpretedOption'NamePart'_unknownFields UninterpretedOption'NamePart
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (UninterpretedOption'NamePart -> Text
_UninterpretedOption'NamePart'namePart UninterpretedOption'NamePart
x__)
                (Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (UninterpretedOption'NamePart -> Bool
_UninterpretedOption'NamePart'isExtension UninterpretedOption'NamePart
x__) ()))