{- This file was auto-generated from grpc/reflection/v1alpha/reflection.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Grpc.Reflection.V1alpha.Reflection (
        ServerReflection(..), ErrorResponse(), ExtensionNumberResponse(),
        ExtensionRequest(), FileDescriptorResponse(),
        ListServiceResponse(), ServerReflectionRequest(),
        ServerReflectionRequest'MessageRequest(..),
        _ServerReflectionRequest'FileByFilename,
        _ServerReflectionRequest'FileContainingSymbol,
        _ServerReflectionRequest'FileContainingExtension,
        _ServerReflectionRequest'AllExtensionNumbersOfType,
        _ServerReflectionRequest'ListServices, ServerReflectionResponse(),
        ServerReflectionResponse'MessageResponse(..),
        _ServerReflectionResponse'FileDescriptorResponse,
        _ServerReflectionResponse'AllExtensionNumbersResponse,
        _ServerReflectionResponse'ListServicesResponse,
        _ServerReflectionResponse'ErrorResponse, ServiceResponse()
    ) 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.Grpc.Reflection.V1alpha.Reflection_Fields.errorCode' @:: Lens' ErrorResponse Data.Int.Int32@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.errorMessage' @:: Lens' ErrorResponse Data.Text.Text@ -}
data ErrorResponse
  = ErrorResponse'_constructor {ErrorResponse -> Int32
_ErrorResponse'errorCode :: !Data.Int.Int32,
                                ErrorResponse -> Text
_ErrorResponse'errorMessage :: !Data.Text.Text,
                                ErrorResponse -> FieldSet
_ErrorResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ErrorResponse -> ErrorResponse -> Bool
(ErrorResponse -> ErrorResponse -> Bool)
-> (ErrorResponse -> ErrorResponse -> Bool) -> Eq ErrorResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ErrorResponse -> ErrorResponse -> Bool
== :: ErrorResponse -> ErrorResponse -> Bool
$c/= :: ErrorResponse -> ErrorResponse -> Bool
/= :: ErrorResponse -> ErrorResponse -> Bool
Prelude.Eq, Eq ErrorResponse
Eq ErrorResponse =>
(ErrorResponse -> ErrorResponse -> Ordering)
-> (ErrorResponse -> ErrorResponse -> Bool)
-> (ErrorResponse -> ErrorResponse -> Bool)
-> (ErrorResponse -> ErrorResponse -> Bool)
-> (ErrorResponse -> ErrorResponse -> Bool)
-> (ErrorResponse -> ErrorResponse -> ErrorResponse)
-> (ErrorResponse -> ErrorResponse -> ErrorResponse)
-> Ord ErrorResponse
ErrorResponse -> ErrorResponse -> Bool
ErrorResponse -> ErrorResponse -> Ordering
ErrorResponse -> ErrorResponse -> ErrorResponse
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
$ccompare :: ErrorResponse -> ErrorResponse -> Ordering
compare :: ErrorResponse -> ErrorResponse -> Ordering
$c< :: ErrorResponse -> ErrorResponse -> Bool
< :: ErrorResponse -> ErrorResponse -> Bool
$c<= :: ErrorResponse -> ErrorResponse -> Bool
<= :: ErrorResponse -> ErrorResponse -> Bool
$c> :: ErrorResponse -> ErrorResponse -> Bool
> :: ErrorResponse -> ErrorResponse -> Bool
$c>= :: ErrorResponse -> ErrorResponse -> Bool
>= :: ErrorResponse -> ErrorResponse -> Bool
$cmax :: ErrorResponse -> ErrorResponse -> ErrorResponse
max :: ErrorResponse -> ErrorResponse -> ErrorResponse
$cmin :: ErrorResponse -> ErrorResponse -> ErrorResponse
min :: ErrorResponse -> ErrorResponse -> ErrorResponse
Prelude.Ord)
instance Prelude.Show ErrorResponse where
  showsPrec :: Int -> ErrorResponse -> ShowS
showsPrec Int
_ ErrorResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ErrorResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ErrorResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ErrorResponse "errorCode" Data.Int.Int32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "errorCode"
-> (Int32 -> f Int32) -> ErrorResponse -> f ErrorResponse
fieldOf Proxy# "errorCode"
_
    = ((Int32 -> f Int32) -> ErrorResponse -> f ErrorResponse)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> ErrorResponse
-> f ErrorResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ErrorResponse -> Int32)
-> (ErrorResponse -> Int32 -> ErrorResponse)
-> Lens ErrorResponse ErrorResponse Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ErrorResponse -> Int32
_ErrorResponse'errorCode
           (\ ErrorResponse
x__ Int32
y__ -> ErrorResponse
x__ {_ErrorResponse'errorCode = y__}))
        (Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ErrorResponse "errorMessage" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "errorMessage"
-> (Text -> f Text) -> ErrorResponse -> f ErrorResponse
fieldOf Proxy# "errorMessage"
_
    = ((Text -> f Text) -> ErrorResponse -> f ErrorResponse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ErrorResponse
-> f ErrorResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ErrorResponse -> Text)
-> (ErrorResponse -> Text -> ErrorResponse)
-> Lens ErrorResponse ErrorResponse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ErrorResponse -> Text
_ErrorResponse'errorMessage
           (\ ErrorResponse
x__ Text
y__ -> ErrorResponse
x__ {_ErrorResponse'errorMessage = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ErrorResponse where
  messageName :: Proxy ErrorResponse -> Text
messageName Proxy ErrorResponse
_
    = String -> Text
Data.Text.pack String
"grpc.reflection.v1alpha.ErrorResponse"
  packedMessageDescriptor :: Proxy ErrorResponse -> ByteString
packedMessageDescriptor Proxy ErrorResponse
_
    = ByteString
"\n\
      \\rErrorResponse\DC2\GS\n\
      \\n\
      \error_code\CAN\SOH \SOH(\ENQR\terrorCode\DC2#\n\
      \\rerror_message\CAN\STX \SOH(\tR\ferrorMessage"
  packedFileDescriptor :: Proxy ErrorResponse -> ByteString
packedFileDescriptor Proxy ErrorResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ErrorResponse)
fieldsByTag
    = let
        errorCode__field_descriptor :: FieldDescriptor ErrorResponse
errorCode__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor ErrorResponse Int32
-> FieldDescriptor ErrorResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"error_code"
              (ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
              (WireDefault Int32
-> Lens ErrorResponse ErrorResponse Int32 Int32
-> FieldAccessor ErrorResponse Int32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"errorCode")) ::
              Data.ProtoLens.FieldDescriptor ErrorResponse
        errorMessage__field_descriptor :: FieldDescriptor ErrorResponse
errorMessage__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ErrorResponse Text
-> FieldDescriptor ErrorResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"error_message"
              (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 ErrorResponse ErrorResponse Text Text
-> FieldAccessor ErrorResponse Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"errorMessage")) ::
              Data.ProtoLens.FieldDescriptor ErrorResponse
      in
        [(Tag, FieldDescriptor ErrorResponse)]
-> Map Tag (FieldDescriptor ErrorResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ErrorResponse
errorCode__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ErrorResponse
errorMessage__field_descriptor)]
  unknownFields :: Lens' ErrorResponse FieldSet
unknownFields
    = (ErrorResponse -> FieldSet)
-> (ErrorResponse -> FieldSet -> ErrorResponse)
-> Lens' ErrorResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ErrorResponse -> FieldSet
_ErrorResponse'_unknownFields
        (\ ErrorResponse
x__ FieldSet
y__ -> ErrorResponse
x__ {_ErrorResponse'_unknownFields = y__})
  defMessage :: ErrorResponse
defMessage
    = ErrorResponse'_constructor
        {_ErrorResponse'errorCode :: Int32
_ErrorResponse'errorCode = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ErrorResponse'errorMessage :: Text
_ErrorResponse'errorMessage = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ErrorResponse'_unknownFields :: FieldSet
_ErrorResponse'_unknownFields = []}
  parseMessage :: Parser ErrorResponse
parseMessage
    = let
        loop ::
          ErrorResponse -> Data.ProtoLens.Encoding.Bytes.Parser ErrorResponse
        loop :: ErrorResponse -> Parser ErrorResponse
loop ErrorResponse
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
8 -> do y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall a b. (a -> b) -> Parser a -> Parser b
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)
                                       String
"error_code"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"errorCode") y x)
                        Word64
18
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"error_message"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"errorMessage") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser ErrorResponse -> String -> Parser ErrorResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ErrorResponse -> Parser ErrorResponse
loop ErrorResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ErrorResponse"
  buildMessage :: ErrorResponse -> Builder
buildMessage
    = \ ErrorResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int32
_v = FoldLike Int32 ErrorResponse ErrorResponse Int32 Int32
-> ErrorResponse -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"errorCode") ErrorResponse
_x
              in
                if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault 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 Word64
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.<>)
                (let
                   _v :: Text
_v
                     = FoldLike Text ErrorResponse ErrorResponse Text Text
-> ErrorResponse -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"errorMessage") ErrorResponse
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault 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 Word64
18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ 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 ErrorResponse ErrorResponse FieldSet FieldSet
-> ErrorResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ErrorResponse ErrorResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ErrorResponse FieldSet
Data.ProtoLens.unknownFields ErrorResponse
_x)))
instance Control.DeepSeq.NFData ErrorResponse where
  rnf :: ErrorResponse -> ()
rnf
    = \ ErrorResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ErrorResponse -> FieldSet
_ErrorResponse'_unknownFields ErrorResponse
x__)
             (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ErrorResponse -> Int32
_ErrorResponse'errorCode ErrorResponse
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ErrorResponse -> Text
_ErrorResponse'errorMessage ErrorResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.baseTypeName' @:: Lens' ExtensionNumberResponse Data.Text.Text@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.extensionNumber' @:: Lens' ExtensionNumberResponse [Data.Int.Int32]@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.vec'extensionNumber' @:: Lens' ExtensionNumberResponse (Data.Vector.Unboxed.Vector Data.Int.Int32)@ -}
data ExtensionNumberResponse
  = ExtensionNumberResponse'_constructor {ExtensionNumberResponse -> Text
_ExtensionNumberResponse'baseTypeName :: !Data.Text.Text,
                                          ExtensionNumberResponse -> Vector Int32
_ExtensionNumberResponse'extensionNumber :: !(Data.Vector.Unboxed.Vector Data.Int.Int32),
                                          ExtensionNumberResponse -> FieldSet
_ExtensionNumberResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ExtensionNumberResponse -> ExtensionNumberResponse -> Bool
(ExtensionNumberResponse -> ExtensionNumberResponse -> Bool)
-> (ExtensionNumberResponse -> ExtensionNumberResponse -> Bool)
-> Eq ExtensionNumberResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ExtensionNumberResponse -> ExtensionNumberResponse -> Bool
== :: ExtensionNumberResponse -> ExtensionNumberResponse -> Bool
$c/= :: ExtensionNumberResponse -> ExtensionNumberResponse -> Bool
/= :: ExtensionNumberResponse -> ExtensionNumberResponse -> Bool
Prelude.Eq, Eq ExtensionNumberResponse
Eq ExtensionNumberResponse =>
(ExtensionNumberResponse -> ExtensionNumberResponse -> Ordering)
-> (ExtensionNumberResponse -> ExtensionNumberResponse -> Bool)
-> (ExtensionNumberResponse -> ExtensionNumberResponse -> Bool)
-> (ExtensionNumberResponse -> ExtensionNumberResponse -> Bool)
-> (ExtensionNumberResponse -> ExtensionNumberResponse -> Bool)
-> (ExtensionNumberResponse
    -> ExtensionNumberResponse -> ExtensionNumberResponse)
-> (ExtensionNumberResponse
    -> ExtensionNumberResponse -> ExtensionNumberResponse)
-> Ord ExtensionNumberResponse
ExtensionNumberResponse -> ExtensionNumberResponse -> Bool
ExtensionNumberResponse -> ExtensionNumberResponse -> Ordering
ExtensionNumberResponse
-> ExtensionNumberResponse -> ExtensionNumberResponse
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
$ccompare :: ExtensionNumberResponse -> ExtensionNumberResponse -> Ordering
compare :: ExtensionNumberResponse -> ExtensionNumberResponse -> Ordering
$c< :: ExtensionNumberResponse -> ExtensionNumberResponse -> Bool
< :: ExtensionNumberResponse -> ExtensionNumberResponse -> Bool
$c<= :: ExtensionNumberResponse -> ExtensionNumberResponse -> Bool
<= :: ExtensionNumberResponse -> ExtensionNumberResponse -> Bool
$c> :: ExtensionNumberResponse -> ExtensionNumberResponse -> Bool
> :: ExtensionNumberResponse -> ExtensionNumberResponse -> Bool
$c>= :: ExtensionNumberResponse -> ExtensionNumberResponse -> Bool
>= :: ExtensionNumberResponse -> ExtensionNumberResponse -> Bool
$cmax :: ExtensionNumberResponse
-> ExtensionNumberResponse -> ExtensionNumberResponse
max :: ExtensionNumberResponse
-> ExtensionNumberResponse -> ExtensionNumberResponse
$cmin :: ExtensionNumberResponse
-> ExtensionNumberResponse -> ExtensionNumberResponse
min :: ExtensionNumberResponse
-> ExtensionNumberResponse -> ExtensionNumberResponse
Prelude.Ord)
instance Prelude.Show ExtensionNumberResponse where
  showsPrec :: Int -> ExtensionNumberResponse -> ShowS
showsPrec Int
_ ExtensionNumberResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ExtensionNumberResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExtensionNumberResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ExtensionNumberResponse "baseTypeName" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "baseTypeName"
-> (Text -> f Text)
-> ExtensionNumberResponse
-> f ExtensionNumberResponse
fieldOf Proxy# "baseTypeName"
_
    = ((Text -> f Text)
 -> ExtensionNumberResponse -> f ExtensionNumberResponse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ExtensionNumberResponse
-> f ExtensionNumberResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExtensionNumberResponse -> Text)
-> (ExtensionNumberResponse -> Text -> ExtensionNumberResponse)
-> Lens ExtensionNumberResponse ExtensionNumberResponse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExtensionNumberResponse -> Text
_ExtensionNumberResponse'baseTypeName
           (\ ExtensionNumberResponse
x__ Text
y__ -> ExtensionNumberResponse
x__ {_ExtensionNumberResponse'baseTypeName = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExtensionNumberResponse "extensionNumber" [Data.Int.Int32] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "extensionNumber"
-> ([Int32] -> f [Int32])
-> ExtensionNumberResponse
-> f ExtensionNumberResponse
fieldOf Proxy# "extensionNumber"
_
    = ((Vector Int32 -> f (Vector Int32))
 -> ExtensionNumberResponse -> f ExtensionNumberResponse)
-> (([Int32] -> f [Int32]) -> Vector Int32 -> f (Vector Int32))
-> ([Int32] -> f [Int32])
-> ExtensionNumberResponse
-> f ExtensionNumberResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExtensionNumberResponse -> Vector Int32)
-> (ExtensionNumberResponse
    -> Vector Int32 -> ExtensionNumberResponse)
-> Lens
     ExtensionNumberResponse
     ExtensionNumberResponse
     (Vector Int32)
     (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExtensionNumberResponse -> Vector Int32
_ExtensionNumberResponse'extensionNumber
           (\ ExtensionNumberResponse
x__ Vector Int32
y__
              -> ExtensionNumberResponse
x__ {_ExtensionNumberResponse'extensionNumber = 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
           (\ Vector Int32
_ [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 ExtensionNumberResponse "vec'extensionNumber" (Data.Vector.Unboxed.Vector Data.Int.Int32) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'extensionNumber"
-> (Vector Int32 -> f (Vector Int32))
-> ExtensionNumberResponse
-> f ExtensionNumberResponse
fieldOf Proxy# "vec'extensionNumber"
_
    = ((Vector Int32 -> f (Vector Int32))
 -> ExtensionNumberResponse -> f ExtensionNumberResponse)
-> ((Vector Int32 -> f (Vector Int32))
    -> Vector Int32 -> f (Vector Int32))
-> (Vector Int32 -> f (Vector Int32))
-> ExtensionNumberResponse
-> f ExtensionNumberResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExtensionNumberResponse -> Vector Int32)
-> (ExtensionNumberResponse
    -> Vector Int32 -> ExtensionNumberResponse)
-> Lens
     ExtensionNumberResponse
     ExtensionNumberResponse
     (Vector Int32)
     (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExtensionNumberResponse -> Vector Int32
_ExtensionNumberResponse'extensionNumber
           (\ ExtensionNumberResponse
x__ Vector Int32
y__
              -> ExtensionNumberResponse
x__ {_ExtensionNumberResponse'extensionNumber = y__}))
        (Vector Int32 -> f (Vector Int32))
-> Vector Int32 -> f (Vector Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExtensionNumberResponse where
  messageName :: Proxy ExtensionNumberResponse -> Text
messageName Proxy ExtensionNumberResponse
_
    = String -> Text
Data.Text.pack String
"grpc.reflection.v1alpha.ExtensionNumberResponse"
  packedMessageDescriptor :: Proxy ExtensionNumberResponse -> ByteString
packedMessageDescriptor Proxy ExtensionNumberResponse
_
    = ByteString
"\n\
      \\ETBExtensionNumberResponse\DC2$\n\
      \\SObase_type_name\CAN\SOH \SOH(\tR\fbaseTypeName\DC2)\n\
      \\DLEextension_number\CAN\STX \ETX(\ENQR\SIextensionNumber"
  packedFileDescriptor :: Proxy ExtensionNumberResponse -> ByteString
packedFileDescriptor Proxy ExtensionNumberResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ExtensionNumberResponse)
fieldsByTag
    = let
        baseTypeName__field_descriptor :: FieldDescriptor ExtensionNumberResponse
baseTypeName__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ExtensionNumberResponse Text
-> FieldDescriptor ExtensionNumberResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"base_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)
              (WireDefault Text
-> Lens ExtensionNumberResponse ExtensionNumberResponse Text Text
-> FieldAccessor ExtensionNumberResponse Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"baseTypeName")) ::
              Data.ProtoLens.FieldDescriptor ExtensionNumberResponse
        extensionNumber__field_descriptor :: FieldDescriptor ExtensionNumberResponse
extensionNumber__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor ExtensionNumberResponse Int32
-> FieldDescriptor ExtensionNumberResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"extension_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)
              (Packing
-> Lens' ExtensionNumberResponse [Int32]
-> FieldAccessor ExtensionNumberResponse Int32
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Packed
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"extensionNumber")) ::
              Data.ProtoLens.FieldDescriptor ExtensionNumberResponse
      in
        [(Tag, FieldDescriptor ExtensionNumberResponse)]
-> Map Tag (FieldDescriptor ExtensionNumberResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ExtensionNumberResponse
baseTypeName__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ExtensionNumberResponse
extensionNumber__field_descriptor)]
  unknownFields :: Lens' ExtensionNumberResponse FieldSet
unknownFields
    = (ExtensionNumberResponse -> FieldSet)
-> (ExtensionNumberResponse -> FieldSet -> ExtensionNumberResponse)
-> Lens' ExtensionNumberResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ExtensionNumberResponse -> FieldSet
_ExtensionNumberResponse'_unknownFields
        (\ ExtensionNumberResponse
x__ FieldSet
y__ -> ExtensionNumberResponse
x__ {_ExtensionNumberResponse'_unknownFields = y__})
  defMessage :: ExtensionNumberResponse
defMessage
    = ExtensionNumberResponse'_constructor
        {_ExtensionNumberResponse'baseTypeName :: Text
_ExtensionNumberResponse'baseTypeName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ExtensionNumberResponse'extensionNumber :: Vector Int32
_ExtensionNumberResponse'extensionNumber = Vector Int32
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ExtensionNumberResponse'_unknownFields :: FieldSet
_ExtensionNumberResponse'_unknownFields = []}
  parseMessage :: Parser ExtensionNumberResponse
parseMessage
    = let
        loop ::
          ExtensionNumberResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int32
             -> Data.ProtoLens.Encoding.Bytes.Parser ExtensionNumberResponse
        loop :: ExtensionNumberResponse
-> Growing Vector RealWorld Int32 -> Parser ExtensionNumberResponse
loop ExtensionNumberResponse
x Growing Vector RealWorld Int32
mutable'extensionNumber
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'extensionNumber <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                  (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                     mutable'extensionNumber)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'extensionNumber")
                              frozen'extensionNumber x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"base_type_name"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"baseTypeName") y x)
                                  mutable'extensionNumber
                        Word64
16
                          -> do !y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall a b. (a -> b) -> Parser a -> Parser b
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)
                                        String
"extension_number"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append
                                          mutable'extensionNumber y)
                                loop x v
                        Word64
18
                          -> do y <- do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                        Data.ProtoLens.Encoding.Bytes.isolate
                                          (Prelude.fromIntegral len)
                                          ((let
                                              ploop Growing v RealWorld a
qs
                                                = do packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
                                                     if packedEnd then
                                                         Prelude.return qs
                                                     else
                                                         do !q <- (Data.ProtoLens.Encoding.Bytes.<?>)
                                                                    (Prelude.fmap
                                                                       Prelude.fromIntegral
                                                                       Data.ProtoLens.Encoding.Bytes.getVarInt)
                                                                    "extension_number"
                                                            qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                                     (Data.ProtoLens.Encoding.Growing.append
                                                                        qs q)
                                                            ploop qs'
                                            in ploop)
                                             mutable'extensionNumber)
                                loop x y
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'extensionNumber
      in
        Parser ExtensionNumberResponse
-> String -> Parser ExtensionNumberResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'extensionNumber <- 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)
IO (Growing Vector (PrimState IO) Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'extensionNumber)
          String
"ExtensionNumberResponse"
  buildMessage :: ExtensionNumberResponse -> Builder
buildMessage
    = \ ExtensionNumberResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike
  Text ExtensionNumberResponse ExtensionNumberResponse Text Text
-> ExtensionNumberResponse -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"baseTypeName") ExtensionNumberResponse
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault 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 Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ 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.<>)
                (let
                   p :: Vector Int32
p = FoldLike
  (Vector Int32)
  ExtensionNumberResponse
  ExtensionNumberResponse
  (Vector Int32)
  (Vector Int32)
-> ExtensionNumberResponse -> Vector Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'extensionNumber") ExtensionNumberResponse
_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 Word64
18)
                         ((\ 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))))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  ExtensionNumberResponse
  ExtensionNumberResponse
  FieldSet
  FieldSet
-> ExtensionNumberResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ExtensionNumberResponse
  ExtensionNumberResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExtensionNumberResponse FieldSet
Data.ProtoLens.unknownFields ExtensionNumberResponse
_x)))
instance Control.DeepSeq.NFData ExtensionNumberResponse where
  rnf :: ExtensionNumberResponse -> ()
rnf
    = \ ExtensionNumberResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ExtensionNumberResponse -> FieldSet
_ExtensionNumberResponse'_unknownFields ExtensionNumberResponse
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ExtensionNumberResponse -> Text
_ExtensionNumberResponse'baseTypeName ExtensionNumberResponse
x__)
                (Vector Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ExtensionNumberResponse -> Vector Int32
_ExtensionNumberResponse'extensionNumber ExtensionNumberResponse
x__) ()))
{- | Fields :
     
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.containingType' @:: Lens' ExtensionRequest Data.Text.Text@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.extensionNumber' @:: Lens' ExtensionRequest Data.Int.Int32@ -}
data ExtensionRequest
  = ExtensionRequest'_constructor {ExtensionRequest -> Text
_ExtensionRequest'containingType :: !Data.Text.Text,
                                   ExtensionRequest -> Int32
_ExtensionRequest'extensionNumber :: !Data.Int.Int32,
                                   ExtensionRequest -> FieldSet
_ExtensionRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ExtensionRequest -> ExtensionRequest -> Bool
(ExtensionRequest -> ExtensionRequest -> Bool)
-> (ExtensionRequest -> ExtensionRequest -> Bool)
-> Eq ExtensionRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ExtensionRequest -> ExtensionRequest -> Bool
== :: ExtensionRequest -> ExtensionRequest -> Bool
$c/= :: ExtensionRequest -> ExtensionRequest -> Bool
/= :: ExtensionRequest -> ExtensionRequest -> Bool
Prelude.Eq, Eq ExtensionRequest
Eq ExtensionRequest =>
(ExtensionRequest -> ExtensionRequest -> Ordering)
-> (ExtensionRequest -> ExtensionRequest -> Bool)
-> (ExtensionRequest -> ExtensionRequest -> Bool)
-> (ExtensionRequest -> ExtensionRequest -> Bool)
-> (ExtensionRequest -> ExtensionRequest -> Bool)
-> (ExtensionRequest -> ExtensionRequest -> ExtensionRequest)
-> (ExtensionRequest -> ExtensionRequest -> ExtensionRequest)
-> Ord ExtensionRequest
ExtensionRequest -> ExtensionRequest -> Bool
ExtensionRequest -> ExtensionRequest -> Ordering
ExtensionRequest -> ExtensionRequest -> ExtensionRequest
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
$ccompare :: ExtensionRequest -> ExtensionRequest -> Ordering
compare :: ExtensionRequest -> ExtensionRequest -> Ordering
$c< :: ExtensionRequest -> ExtensionRequest -> Bool
< :: ExtensionRequest -> ExtensionRequest -> Bool
$c<= :: ExtensionRequest -> ExtensionRequest -> Bool
<= :: ExtensionRequest -> ExtensionRequest -> Bool
$c> :: ExtensionRequest -> ExtensionRequest -> Bool
> :: ExtensionRequest -> ExtensionRequest -> Bool
$c>= :: ExtensionRequest -> ExtensionRequest -> Bool
>= :: ExtensionRequest -> ExtensionRequest -> Bool
$cmax :: ExtensionRequest -> ExtensionRequest -> ExtensionRequest
max :: ExtensionRequest -> ExtensionRequest -> ExtensionRequest
$cmin :: ExtensionRequest -> ExtensionRequest -> ExtensionRequest
min :: ExtensionRequest -> ExtensionRequest -> ExtensionRequest
Prelude.Ord)
instance Prelude.Show ExtensionRequest where
  showsPrec :: Int -> ExtensionRequest -> ShowS
showsPrec Int
_ ExtensionRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ExtensionRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExtensionRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ExtensionRequest "containingType" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "containingType"
-> (Text -> f Text) -> ExtensionRequest -> f ExtensionRequest
fieldOf Proxy# "containingType"
_
    = ((Text -> f Text) -> ExtensionRequest -> f ExtensionRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ExtensionRequest
-> f ExtensionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExtensionRequest -> Text)
-> (ExtensionRequest -> Text -> ExtensionRequest)
-> Lens ExtensionRequest ExtensionRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExtensionRequest -> Text
_ExtensionRequest'containingType
           (\ ExtensionRequest
x__ Text
y__ -> ExtensionRequest
x__ {_ExtensionRequest'containingType = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExtensionRequest "extensionNumber" Data.Int.Int32 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "extensionNumber"
-> (Int32 -> f Int32) -> ExtensionRequest -> f ExtensionRequest
fieldOf Proxy# "extensionNumber"
_
    = ((Int32 -> f Int32) -> ExtensionRequest -> f ExtensionRequest)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> ExtensionRequest
-> f ExtensionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ExtensionRequest -> Int32)
-> (ExtensionRequest -> Int32 -> ExtensionRequest)
-> Lens ExtensionRequest ExtensionRequest Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ExtensionRequest -> Int32
_ExtensionRequest'extensionNumber
           (\ ExtensionRequest
x__ Int32
y__ -> ExtensionRequest
x__ {_ExtensionRequest'extensionNumber = y__}))
        (Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExtensionRequest where
  messageName :: Proxy ExtensionRequest -> Text
messageName Proxy ExtensionRequest
_
    = String -> Text
Data.Text.pack String
"grpc.reflection.v1alpha.ExtensionRequest"
  packedMessageDescriptor :: Proxy ExtensionRequest -> ByteString
packedMessageDescriptor Proxy ExtensionRequest
_
    = ByteString
"\n\
      \\DLEExtensionRequest\DC2'\n\
      \\SIcontaining_type\CAN\SOH \SOH(\tR\SOcontainingType\DC2)\n\
      \\DLEextension_number\CAN\STX \SOH(\ENQR\SIextensionNumber"
  packedFileDescriptor :: Proxy ExtensionRequest -> ByteString
packedFileDescriptor Proxy ExtensionRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ExtensionRequest)
fieldsByTag
    = let
        containingType__field_descriptor :: FieldDescriptor ExtensionRequest
containingType__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ExtensionRequest Text
-> FieldDescriptor ExtensionRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"containing_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)
              (WireDefault Text
-> Lens ExtensionRequest ExtensionRequest Text Text
-> FieldAccessor ExtensionRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"containingType")) ::
              Data.ProtoLens.FieldDescriptor ExtensionRequest
        extensionNumber__field_descriptor :: FieldDescriptor ExtensionRequest
extensionNumber__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor ExtensionRequest Int32
-> FieldDescriptor ExtensionRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"extension_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)
              (WireDefault Int32
-> Lens ExtensionRequest ExtensionRequest Int32 Int32
-> FieldAccessor ExtensionRequest Int32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"extensionNumber")) ::
              Data.ProtoLens.FieldDescriptor ExtensionRequest
      in
        [(Tag, FieldDescriptor ExtensionRequest)]
-> Map Tag (FieldDescriptor ExtensionRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ExtensionRequest
containingType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ExtensionRequest
extensionNumber__field_descriptor)]
  unknownFields :: Lens' ExtensionRequest FieldSet
unknownFields
    = (ExtensionRequest -> FieldSet)
-> (ExtensionRequest -> FieldSet -> ExtensionRequest)
-> Lens' ExtensionRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ExtensionRequest -> FieldSet
_ExtensionRequest'_unknownFields
        (\ ExtensionRequest
x__ FieldSet
y__ -> ExtensionRequest
x__ {_ExtensionRequest'_unknownFields = y__})
  defMessage :: ExtensionRequest
defMessage
    = ExtensionRequest'_constructor
        {_ExtensionRequest'containingType :: Text
_ExtensionRequest'containingType = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ExtensionRequest'extensionNumber :: Int32
_ExtensionRequest'extensionNumber = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ExtensionRequest'_unknownFields :: FieldSet
_ExtensionRequest'_unknownFields = []}
  parseMessage :: Parser ExtensionRequest
parseMessage
    = let
        loop ::
          ExtensionRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser ExtensionRequest
        loop :: ExtensionRequest -> Parser ExtensionRequest
loop ExtensionRequest
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"containing_type"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"containingType") y x)
                        Word64
16
                          -> do y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall a b. (a -> b) -> Parser a -> Parser b
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)
                                       String
"extension_number"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"extensionNumber") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser ExtensionRequest -> String -> Parser ExtensionRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ExtensionRequest -> Parser ExtensionRequest
loop ExtensionRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ExtensionRequest"
  buildMessage :: ExtensionRequest -> Builder
buildMessage
    = \ ExtensionRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v
                  = FoldLike Text ExtensionRequest ExtensionRequest Text Text
-> ExtensionRequest -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"containingType") ExtensionRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault 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 Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ 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.<>)
                (let
                   _v :: Int32
_v
                     = FoldLike Int32 ExtensionRequest ExtensionRequest Int32 Int32
-> ExtensionRequest -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"extensionNumber") ExtensionRequest
_x
                 in
                   if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault 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 Word64
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 ExtensionRequest ExtensionRequest FieldSet FieldSet
-> ExtensionRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet ExtensionRequest ExtensionRequest FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ExtensionRequest FieldSet
Data.ProtoLens.unknownFields ExtensionRequest
_x)))
instance Control.DeepSeq.NFData ExtensionRequest where
  rnf :: ExtensionRequest -> ()
rnf
    = \ ExtensionRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ExtensionRequest -> FieldSet
_ExtensionRequest'_unknownFields ExtensionRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ExtensionRequest -> Text
_ExtensionRequest'containingType ExtensionRequest
x__)
                (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ExtensionRequest -> Int32
_ExtensionRequest'extensionNumber ExtensionRequest
x__) ()))
{- | Fields :
     
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.fileDescriptorProto' @:: Lens' FileDescriptorResponse [Data.ByteString.ByteString]@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.vec'fileDescriptorProto' @:: Lens' FileDescriptorResponse (Data.Vector.Vector Data.ByteString.ByteString)@ -}
data FileDescriptorResponse
  = FileDescriptorResponse'_constructor {FileDescriptorResponse -> Vector ByteString
_FileDescriptorResponse'fileDescriptorProto :: !(Data.Vector.Vector Data.ByteString.ByteString),
                                         FileDescriptorResponse -> FieldSet
_FileDescriptorResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (FileDescriptorResponse -> FileDescriptorResponse -> Bool
(FileDescriptorResponse -> FileDescriptorResponse -> Bool)
-> (FileDescriptorResponse -> FileDescriptorResponse -> Bool)
-> Eq FileDescriptorResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: FileDescriptorResponse -> FileDescriptorResponse -> Bool
== :: FileDescriptorResponse -> FileDescriptorResponse -> Bool
$c/= :: FileDescriptorResponse -> FileDescriptorResponse -> Bool
/= :: FileDescriptorResponse -> FileDescriptorResponse -> Bool
Prelude.Eq, Eq FileDescriptorResponse
Eq FileDescriptorResponse =>
(FileDescriptorResponse -> FileDescriptorResponse -> Ordering)
-> (FileDescriptorResponse -> FileDescriptorResponse -> Bool)
-> (FileDescriptorResponse -> FileDescriptorResponse -> Bool)
-> (FileDescriptorResponse -> FileDescriptorResponse -> Bool)
-> (FileDescriptorResponse -> FileDescriptorResponse -> Bool)
-> (FileDescriptorResponse
    -> FileDescriptorResponse -> FileDescriptorResponse)
-> (FileDescriptorResponse
    -> FileDescriptorResponse -> FileDescriptorResponse)
-> Ord FileDescriptorResponse
FileDescriptorResponse -> FileDescriptorResponse -> Bool
FileDescriptorResponse -> FileDescriptorResponse -> Ordering
FileDescriptorResponse
-> FileDescriptorResponse -> FileDescriptorResponse
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
$ccompare :: FileDescriptorResponse -> FileDescriptorResponse -> Ordering
compare :: FileDescriptorResponse -> FileDescriptorResponse -> Ordering
$c< :: FileDescriptorResponse -> FileDescriptorResponse -> Bool
< :: FileDescriptorResponse -> FileDescriptorResponse -> Bool
$c<= :: FileDescriptorResponse -> FileDescriptorResponse -> Bool
<= :: FileDescriptorResponse -> FileDescriptorResponse -> Bool
$c> :: FileDescriptorResponse -> FileDescriptorResponse -> Bool
> :: FileDescriptorResponse -> FileDescriptorResponse -> Bool
$c>= :: FileDescriptorResponse -> FileDescriptorResponse -> Bool
>= :: FileDescriptorResponse -> FileDescriptorResponse -> Bool
$cmax :: FileDescriptorResponse
-> FileDescriptorResponse -> FileDescriptorResponse
max :: FileDescriptorResponse
-> FileDescriptorResponse -> FileDescriptorResponse
$cmin :: FileDescriptorResponse
-> FileDescriptorResponse -> FileDescriptorResponse
min :: FileDescriptorResponse
-> FileDescriptorResponse -> FileDescriptorResponse
Prelude.Ord)
instance Prelude.Show FileDescriptorResponse where
  showsPrec :: Int -> FileDescriptorResponse -> ShowS
showsPrec Int
_ FileDescriptorResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (FileDescriptorResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FileDescriptorResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField FileDescriptorResponse "fileDescriptorProto" [Data.ByteString.ByteString] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fileDescriptorProto"
-> ([ByteString] -> f [ByteString])
-> FileDescriptorResponse
-> f FileDescriptorResponse
fieldOf Proxy# "fileDescriptorProto"
_
    = ((Vector ByteString -> f (Vector ByteString))
 -> FileDescriptorResponse -> f FileDescriptorResponse)
-> (([ByteString] -> f [ByteString])
    -> Vector ByteString -> f (Vector ByteString))
-> ([ByteString] -> f [ByteString])
-> FileDescriptorResponse
-> f FileDescriptorResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorResponse -> Vector ByteString)
-> (FileDescriptorResponse
    -> Vector ByteString -> FileDescriptorResponse)
-> Lens
     FileDescriptorResponse
     FileDescriptorResponse
     (Vector ByteString)
     (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorResponse -> Vector ByteString
_FileDescriptorResponse'fileDescriptorProto
           (\ FileDescriptorResponse
x__ Vector ByteString
y__
              -> FileDescriptorResponse
x__ {_FileDescriptorResponse'fileDescriptorProto = y__}))
        ((Vector ByteString -> [ByteString])
-> (Vector ByteString -> [ByteString] -> Vector ByteString)
-> Lens
     (Vector ByteString) (Vector ByteString) [ByteString] [ByteString]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector ByteString -> [ByteString]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector ByteString
_ [ByteString]
y__ -> [ByteString] -> Vector ByteString
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ByteString]
y__))
instance Data.ProtoLens.Field.HasField FileDescriptorResponse "vec'fileDescriptorProto" (Data.Vector.Vector Data.ByteString.ByteString) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'fileDescriptorProto"
-> (Vector ByteString -> f (Vector ByteString))
-> FileDescriptorResponse
-> f FileDescriptorResponse
fieldOf Proxy# "vec'fileDescriptorProto"
_
    = ((Vector ByteString -> f (Vector ByteString))
 -> FileDescriptorResponse -> f FileDescriptorResponse)
-> ((Vector ByteString -> f (Vector ByteString))
    -> Vector ByteString -> f (Vector ByteString))
-> (Vector ByteString -> f (Vector ByteString))
-> FileDescriptorResponse
-> f FileDescriptorResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((FileDescriptorResponse -> Vector ByteString)
-> (FileDescriptorResponse
    -> Vector ByteString -> FileDescriptorResponse)
-> Lens
     FileDescriptorResponse
     FileDescriptorResponse
     (Vector ByteString)
     (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           FileDescriptorResponse -> Vector ByteString
_FileDescriptorResponse'fileDescriptorProto
           (\ FileDescriptorResponse
x__ Vector ByteString
y__
              -> FileDescriptorResponse
x__ {_FileDescriptorResponse'fileDescriptorProto = y__}))
        (Vector ByteString -> f (Vector ByteString))
-> Vector ByteString -> f (Vector ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FileDescriptorResponse where
  messageName :: Proxy FileDescriptorResponse -> Text
messageName Proxy FileDescriptorResponse
_
    = String -> Text
Data.Text.pack String
"grpc.reflection.v1alpha.FileDescriptorResponse"
  packedMessageDescriptor :: Proxy FileDescriptorResponse -> ByteString
packedMessageDescriptor Proxy FileDescriptorResponse
_
    = ByteString
"\n\
      \\SYNFileDescriptorResponse\DC22\n\
      \\NAKfile_descriptor_proto\CAN\SOH \ETX(\fR\DC3fileDescriptorProto"
  packedFileDescriptor :: Proxy FileDescriptorResponse -> ByteString
packedFileDescriptor Proxy FileDescriptorResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor FileDescriptorResponse)
fieldsByTag
    = let
        fileDescriptorProto__field_descriptor :: FieldDescriptor FileDescriptorResponse
fileDescriptorProto__field_descriptor
          = String
-> FieldTypeDescriptor ByteString
-> FieldAccessor FileDescriptorResponse ByteString
-> FieldDescriptor FileDescriptorResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"file_descriptor_proto"
              (ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
              (Packing
-> Lens' FileDescriptorResponse [ByteString]
-> FieldAccessor FileDescriptorResponse ByteString
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fileDescriptorProto")) ::
              Data.ProtoLens.FieldDescriptor FileDescriptorResponse
      in
        [(Tag, FieldDescriptor FileDescriptorResponse)]
-> Map Tag (FieldDescriptor FileDescriptorResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor FileDescriptorResponse
fileDescriptorProto__field_descriptor)]
  unknownFields :: Lens' FileDescriptorResponse FieldSet
unknownFields
    = (FileDescriptorResponse -> FieldSet)
-> (FileDescriptorResponse -> FieldSet -> FileDescriptorResponse)
-> Lens' FileDescriptorResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        FileDescriptorResponse -> FieldSet
_FileDescriptorResponse'_unknownFields
        (\ FileDescriptorResponse
x__ FieldSet
y__ -> FileDescriptorResponse
x__ {_FileDescriptorResponse'_unknownFields = y__})
  defMessage :: FileDescriptorResponse
defMessage
    = FileDescriptorResponse'_constructor
        {_FileDescriptorResponse'fileDescriptorProto :: Vector ByteString
_FileDescriptorResponse'fileDescriptorProto = Vector ByteString
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _FileDescriptorResponse'_unknownFields :: FieldSet
_FileDescriptorResponse'_unknownFields = []}
  parseMessage :: Parser FileDescriptorResponse
parseMessage
    = let
        loop ::
          FileDescriptorResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString
             -> Data.ProtoLens.Encoding.Bytes.Parser FileDescriptorResponse
        loop :: FileDescriptorResponse
-> Growing Vector RealWorld ByteString
-> Parser FileDescriptorResponse
loop FileDescriptorResponse
x Growing Vector RealWorld ByteString
mutable'fileDescriptorProto
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'fileDescriptorProto <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                      (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                         mutable'fileDescriptorProto)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'fileDescriptorProto")
                              frozen'fileDescriptorProto x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.getBytes
                                              (Prelude.fromIntegral len))
                                        String
"file_descriptor_proto"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append
                                          mutable'fileDescriptorProto y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'fileDescriptorProto
      in
        Parser FileDescriptorResponse
-> String -> Parser FileDescriptorResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'fileDescriptorProto <- IO (Growing Vector RealWorld ByteString)
-> Parser (Growing Vector RealWorld ByteString)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               IO (Growing Vector RealWorld ByteString)
IO (Growing Vector (PrimState IO) ByteString)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'fileDescriptorProto)
          String
"FileDescriptorResponse"
  buildMessage :: FileDescriptorResponse -> Builder
buildMessage
    = \ FileDescriptorResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((ByteString -> Builder) -> Vector ByteString -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ ByteString
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((\ 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))
                (FoldLike
  (Vector ByteString)
  FileDescriptorResponse
  FileDescriptorResponse
  (Vector ByteString)
  (Vector ByteString)
-> FileDescriptorResponse -> Vector ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'fileDescriptorProto") FileDescriptorResponse
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  FileDescriptorResponse
  FileDescriptorResponse
  FieldSet
  FieldSet
-> FileDescriptorResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  FileDescriptorResponse
  FileDescriptorResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' FileDescriptorResponse FieldSet
Data.ProtoLens.unknownFields FileDescriptorResponse
_x))
instance Control.DeepSeq.NFData FileDescriptorResponse where
  rnf :: FileDescriptorResponse -> ()
rnf
    = \ FileDescriptorResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (FileDescriptorResponse -> FieldSet
_FileDescriptorResponse'_unknownFields FileDescriptorResponse
x__)
             (Vector ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (FileDescriptorResponse -> Vector ByteString
_FileDescriptorResponse'fileDescriptorProto FileDescriptorResponse
x__) ())
{- | Fields :
     
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.service' @:: Lens' ListServiceResponse [ServiceResponse]@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.vec'service' @:: Lens' ListServiceResponse (Data.Vector.Vector ServiceResponse)@ -}
data ListServiceResponse
  = ListServiceResponse'_constructor {ListServiceResponse -> Vector ServiceResponse
_ListServiceResponse'service :: !(Data.Vector.Vector ServiceResponse),
                                      ListServiceResponse -> FieldSet
_ListServiceResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ListServiceResponse -> ListServiceResponse -> Bool
(ListServiceResponse -> ListServiceResponse -> Bool)
-> (ListServiceResponse -> ListServiceResponse -> Bool)
-> Eq ListServiceResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ListServiceResponse -> ListServiceResponse -> Bool
== :: ListServiceResponse -> ListServiceResponse -> Bool
$c/= :: ListServiceResponse -> ListServiceResponse -> Bool
/= :: ListServiceResponse -> ListServiceResponse -> Bool
Prelude.Eq, Eq ListServiceResponse
Eq ListServiceResponse =>
(ListServiceResponse -> ListServiceResponse -> Ordering)
-> (ListServiceResponse -> ListServiceResponse -> Bool)
-> (ListServiceResponse -> ListServiceResponse -> Bool)
-> (ListServiceResponse -> ListServiceResponse -> Bool)
-> (ListServiceResponse -> ListServiceResponse -> Bool)
-> (ListServiceResponse
    -> ListServiceResponse -> ListServiceResponse)
-> (ListServiceResponse
    -> ListServiceResponse -> ListServiceResponse)
-> Ord ListServiceResponse
ListServiceResponse -> ListServiceResponse -> Bool
ListServiceResponse -> ListServiceResponse -> Ordering
ListServiceResponse -> ListServiceResponse -> ListServiceResponse
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
$ccompare :: ListServiceResponse -> ListServiceResponse -> Ordering
compare :: ListServiceResponse -> ListServiceResponse -> Ordering
$c< :: ListServiceResponse -> ListServiceResponse -> Bool
< :: ListServiceResponse -> ListServiceResponse -> Bool
$c<= :: ListServiceResponse -> ListServiceResponse -> Bool
<= :: ListServiceResponse -> ListServiceResponse -> Bool
$c> :: ListServiceResponse -> ListServiceResponse -> Bool
> :: ListServiceResponse -> ListServiceResponse -> Bool
$c>= :: ListServiceResponse -> ListServiceResponse -> Bool
>= :: ListServiceResponse -> ListServiceResponse -> Bool
$cmax :: ListServiceResponse -> ListServiceResponse -> ListServiceResponse
max :: ListServiceResponse -> ListServiceResponse -> ListServiceResponse
$cmin :: ListServiceResponse -> ListServiceResponse -> ListServiceResponse
min :: ListServiceResponse -> ListServiceResponse -> ListServiceResponse
Prelude.Ord)
instance Prelude.Show ListServiceResponse where
  showsPrec :: Int -> ListServiceResponse -> ShowS
showsPrec Int
_ ListServiceResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ListServiceResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ListServiceResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ListServiceResponse "service" [ServiceResponse] where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "service"
-> ([ServiceResponse] -> f [ServiceResponse])
-> ListServiceResponse
-> f ListServiceResponse
fieldOf Proxy# "service"
_
    = ((Vector ServiceResponse -> f (Vector ServiceResponse))
 -> ListServiceResponse -> f ListServiceResponse)
-> (([ServiceResponse] -> f [ServiceResponse])
    -> Vector ServiceResponse -> f (Vector ServiceResponse))
-> ([ServiceResponse] -> f [ServiceResponse])
-> ListServiceResponse
-> f ListServiceResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListServiceResponse -> Vector ServiceResponse)
-> (ListServiceResponse
    -> Vector ServiceResponse -> ListServiceResponse)
-> Lens
     ListServiceResponse
     ListServiceResponse
     (Vector ServiceResponse)
     (Vector ServiceResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListServiceResponse -> Vector ServiceResponse
_ListServiceResponse'service
           (\ ListServiceResponse
x__ Vector ServiceResponse
y__ -> ListServiceResponse
x__ {_ListServiceResponse'service = y__}))
        ((Vector ServiceResponse -> [ServiceResponse])
-> (Vector ServiceResponse
    -> [ServiceResponse] -> Vector ServiceResponse)
-> Lens
     (Vector ServiceResponse)
     (Vector ServiceResponse)
     [ServiceResponse]
     [ServiceResponse]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector ServiceResponse -> [ServiceResponse]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ Vector ServiceResponse
_ [ServiceResponse]
y__ -> [ServiceResponse] -> Vector ServiceResponse
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ServiceResponse]
y__))
instance Data.ProtoLens.Field.HasField ListServiceResponse "vec'service" (Data.Vector.Vector ServiceResponse) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "vec'service"
-> (Vector ServiceResponse -> f (Vector ServiceResponse))
-> ListServiceResponse
-> f ListServiceResponse
fieldOf Proxy# "vec'service"
_
    = ((Vector ServiceResponse -> f (Vector ServiceResponse))
 -> ListServiceResponse -> f ListServiceResponse)
-> ((Vector ServiceResponse -> f (Vector ServiceResponse))
    -> Vector ServiceResponse -> f (Vector ServiceResponse))
-> (Vector ServiceResponse -> f (Vector ServiceResponse))
-> ListServiceResponse
-> f ListServiceResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ListServiceResponse -> Vector ServiceResponse)
-> (ListServiceResponse
    -> Vector ServiceResponse -> ListServiceResponse)
-> Lens
     ListServiceResponse
     ListServiceResponse
     (Vector ServiceResponse)
     (Vector ServiceResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ListServiceResponse -> Vector ServiceResponse
_ListServiceResponse'service
           (\ ListServiceResponse
x__ Vector ServiceResponse
y__ -> ListServiceResponse
x__ {_ListServiceResponse'service = y__}))
        (Vector ServiceResponse -> f (Vector ServiceResponse))
-> Vector ServiceResponse -> f (Vector ServiceResponse)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ListServiceResponse where
  messageName :: Proxy ListServiceResponse -> Text
messageName Proxy ListServiceResponse
_
    = String -> Text
Data.Text.pack String
"grpc.reflection.v1alpha.ListServiceResponse"
  packedMessageDescriptor :: Proxy ListServiceResponse -> ByteString
packedMessageDescriptor Proxy ListServiceResponse
_
    = ByteString
"\n\
      \\DC3ListServiceResponse\DC2B\n\
      \\aservice\CAN\SOH \ETX(\v2(.grpc.reflection.v1alpha.ServiceResponseR\aservice"
  packedFileDescriptor :: Proxy ListServiceResponse -> ByteString
packedFileDescriptor Proxy ListServiceResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ListServiceResponse)
fieldsByTag
    = let
        service__field_descriptor :: FieldDescriptor ListServiceResponse
service__field_descriptor
          = String
-> FieldTypeDescriptor ServiceResponse
-> FieldAccessor ListServiceResponse ServiceResponse
-> FieldDescriptor ListServiceResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"service"
              (MessageOrGroup -> FieldTypeDescriptor ServiceResponse
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ServiceResponse)
              (Packing
-> Lens' ListServiceResponse [ServiceResponse]
-> FieldAccessor ListServiceResponse ServiceResponse
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (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 ListServiceResponse
      in
        [(Tag, FieldDescriptor ListServiceResponse)]
-> Map Tag (FieldDescriptor ListServiceResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ListServiceResponse
service__field_descriptor)]
  unknownFields :: Lens' ListServiceResponse FieldSet
unknownFields
    = (ListServiceResponse -> FieldSet)
-> (ListServiceResponse -> FieldSet -> ListServiceResponse)
-> Lens' ListServiceResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ListServiceResponse -> FieldSet
_ListServiceResponse'_unknownFields
        (\ ListServiceResponse
x__ FieldSet
y__ -> ListServiceResponse
x__ {_ListServiceResponse'_unknownFields = y__})
  defMessage :: ListServiceResponse
defMessage
    = ListServiceResponse'_constructor
        {_ListServiceResponse'service :: Vector ServiceResponse
_ListServiceResponse'service = Vector ServiceResponse
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ListServiceResponse'_unknownFields :: FieldSet
_ListServiceResponse'_unknownFields = []}
  parseMessage :: Parser ListServiceResponse
parseMessage
    = let
        loop ::
          ListServiceResponse
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ServiceResponse
             -> Data.ProtoLens.Encoding.Bytes.Parser ListServiceResponse
        loop :: ListServiceResponse
-> Growing Vector RealWorld ServiceResponse
-> Parser ListServiceResponse
loop ListServiceResponse
x Growing Vector RealWorld ServiceResponse
mutable'service
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do frozen'service <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             mutable'service)
                      (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Lens.Family2.set
                              (Data.ProtoLens.Field.field @"vec'service") frozen'service x))
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do !y <- Parser ServiceResponse -> String -> Parser ServiceResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Data.ProtoLens.Encoding.Bytes.isolate
                                              (Prelude.fromIntegral len)
                                              Data.ProtoLens.parseMessage)
                                        String
"service"
                                v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Data.ProtoLens.Encoding.Growing.append mutable'service y)
                                loop x v
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
                                  mutable'service
      in
        Parser ListServiceResponse -> String -> Parser ListServiceResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do mutable'service <- IO (Growing Vector RealWorld ServiceResponse)
-> Parser (Growing Vector RealWorld ServiceResponse)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld ServiceResponse)
IO (Growing Vector (PrimState IO) ServiceResponse)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              loop Data.ProtoLens.defMessage mutable'service)
          String
"ListServiceResponse"
  buildMessage :: ListServiceResponse -> Builder
buildMessage
    = \ ListServiceResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((ServiceResponse -> Builder) -> Vector ServiceResponse -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ ServiceResponse
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                        ((ByteString -> Builder)
-> (ServiceResponse -> ByteString) -> ServiceResponse -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ 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))
                           ServiceResponse -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ServiceResponse
_v))
                (FoldLike
  (Vector ServiceResponse)
  ListServiceResponse
  ListServiceResponse
  (Vector ServiceResponse)
  (Vector ServiceResponse)
-> ListServiceResponse -> Vector ServiceResponse
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'service") ListServiceResponse
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet ListServiceResponse ListServiceResponse FieldSet FieldSet
-> ListServiceResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet ListServiceResponse ListServiceResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ListServiceResponse FieldSet
Data.ProtoLens.unknownFields ListServiceResponse
_x))
instance Control.DeepSeq.NFData ListServiceResponse where
  rnf :: ListServiceResponse -> ()
rnf
    = \ ListServiceResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ListServiceResponse -> FieldSet
_ListServiceResponse'_unknownFields ListServiceResponse
x__)
             (Vector ServiceResponse -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ListServiceResponse -> Vector ServiceResponse
_ListServiceResponse'service ListServiceResponse
x__) ())
{- | Fields :
     
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.host' @:: Lens' ServerReflectionRequest Data.Text.Text@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.maybe'messageRequest' @:: Lens' ServerReflectionRequest (Prelude.Maybe ServerReflectionRequest'MessageRequest)@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.maybe'fileByFilename' @:: Lens' ServerReflectionRequest (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.fileByFilename' @:: Lens' ServerReflectionRequest Data.Text.Text@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.maybe'fileContainingSymbol' @:: Lens' ServerReflectionRequest (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.fileContainingSymbol' @:: Lens' ServerReflectionRequest Data.Text.Text@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.maybe'fileContainingExtension' @:: Lens' ServerReflectionRequest (Prelude.Maybe ExtensionRequest)@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.fileContainingExtension' @:: Lens' ServerReflectionRequest ExtensionRequest@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.maybe'allExtensionNumbersOfType' @:: Lens' ServerReflectionRequest (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.allExtensionNumbersOfType' @:: Lens' ServerReflectionRequest Data.Text.Text@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.maybe'listServices' @:: Lens' ServerReflectionRequest (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.listServices' @:: Lens' ServerReflectionRequest Data.Text.Text@ -}
data ServerReflectionRequest
  = ServerReflectionRequest'_constructor {ServerReflectionRequest -> Text
_ServerReflectionRequest'host :: !Data.Text.Text,
                                          ServerReflectionRequest
-> Maybe ServerReflectionRequest'MessageRequest
_ServerReflectionRequest'messageRequest :: !(Prelude.Maybe ServerReflectionRequest'MessageRequest),
                                          ServerReflectionRequest -> FieldSet
_ServerReflectionRequest'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ServerReflectionRequest -> ServerReflectionRequest -> Bool
(ServerReflectionRequest -> ServerReflectionRequest -> Bool)
-> (ServerReflectionRequest -> ServerReflectionRequest -> Bool)
-> Eq ServerReflectionRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ServerReflectionRequest -> ServerReflectionRequest -> Bool
== :: ServerReflectionRequest -> ServerReflectionRequest -> Bool
$c/= :: ServerReflectionRequest -> ServerReflectionRequest -> Bool
/= :: ServerReflectionRequest -> ServerReflectionRequest -> Bool
Prelude.Eq, Eq ServerReflectionRequest
Eq ServerReflectionRequest =>
(ServerReflectionRequest -> ServerReflectionRequest -> Ordering)
-> (ServerReflectionRequest -> ServerReflectionRequest -> Bool)
-> (ServerReflectionRequest -> ServerReflectionRequest -> Bool)
-> (ServerReflectionRequest -> ServerReflectionRequest -> Bool)
-> (ServerReflectionRequest -> ServerReflectionRequest -> Bool)
-> (ServerReflectionRequest
    -> ServerReflectionRequest -> ServerReflectionRequest)
-> (ServerReflectionRequest
    -> ServerReflectionRequest -> ServerReflectionRequest)
-> Ord ServerReflectionRequest
ServerReflectionRequest -> ServerReflectionRequest -> Bool
ServerReflectionRequest -> ServerReflectionRequest -> Ordering
ServerReflectionRequest
-> ServerReflectionRequest -> ServerReflectionRequest
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
$ccompare :: ServerReflectionRequest -> ServerReflectionRequest -> Ordering
compare :: ServerReflectionRequest -> ServerReflectionRequest -> Ordering
$c< :: ServerReflectionRequest -> ServerReflectionRequest -> Bool
< :: ServerReflectionRequest -> ServerReflectionRequest -> Bool
$c<= :: ServerReflectionRequest -> ServerReflectionRequest -> Bool
<= :: ServerReflectionRequest -> ServerReflectionRequest -> Bool
$c> :: ServerReflectionRequest -> ServerReflectionRequest -> Bool
> :: ServerReflectionRequest -> ServerReflectionRequest -> Bool
$c>= :: ServerReflectionRequest -> ServerReflectionRequest -> Bool
>= :: ServerReflectionRequest -> ServerReflectionRequest -> Bool
$cmax :: ServerReflectionRequest
-> ServerReflectionRequest -> ServerReflectionRequest
max :: ServerReflectionRequest
-> ServerReflectionRequest -> ServerReflectionRequest
$cmin :: ServerReflectionRequest
-> ServerReflectionRequest -> ServerReflectionRequest
min :: ServerReflectionRequest
-> ServerReflectionRequest -> ServerReflectionRequest
Prelude.Ord)
instance Prelude.Show ServerReflectionRequest where
  showsPrec :: Int -> ServerReflectionRequest -> ShowS
showsPrec Int
_ ServerReflectionRequest
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ServerReflectionRequest -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ServerReflectionRequest
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data ServerReflectionRequest'MessageRequest
  = ServerReflectionRequest'FileByFilename !Data.Text.Text |
    ServerReflectionRequest'FileContainingSymbol !Data.Text.Text |
    ServerReflectionRequest'FileContainingExtension !ExtensionRequest |
    ServerReflectionRequest'AllExtensionNumbersOfType !Data.Text.Text |
    ServerReflectionRequest'ListServices !Data.Text.Text
  deriving stock (Int -> ServerReflectionRequest'MessageRequest -> ShowS
[ServerReflectionRequest'MessageRequest] -> ShowS
ServerReflectionRequest'MessageRequest -> String
(Int -> ServerReflectionRequest'MessageRequest -> ShowS)
-> (ServerReflectionRequest'MessageRequest -> String)
-> ([ServerReflectionRequest'MessageRequest] -> ShowS)
-> Show ServerReflectionRequest'MessageRequest
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ServerReflectionRequest'MessageRequest -> ShowS
showsPrec :: Int -> ServerReflectionRequest'MessageRequest -> ShowS
$cshow :: ServerReflectionRequest'MessageRequest -> String
show :: ServerReflectionRequest'MessageRequest -> String
$cshowList :: [ServerReflectionRequest'MessageRequest] -> ShowS
showList :: [ServerReflectionRequest'MessageRequest] -> ShowS
Prelude.Show, ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Bool
(ServerReflectionRequest'MessageRequest
 -> ServerReflectionRequest'MessageRequest -> Bool)
-> (ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest'MessageRequest -> Bool)
-> Eq ServerReflectionRequest'MessageRequest
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Bool
== :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Bool
$c/= :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Bool
/= :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Bool
Prelude.Eq, Eq ServerReflectionRequest'MessageRequest
Eq ServerReflectionRequest'MessageRequest =>
(ServerReflectionRequest'MessageRequest
 -> ServerReflectionRequest'MessageRequest -> Ordering)
-> (ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest'MessageRequest -> Bool)
-> (ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest'MessageRequest -> Bool)
-> (ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest'MessageRequest -> Bool)
-> (ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest'MessageRequest -> Bool)
-> (ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest'MessageRequest)
-> Ord ServerReflectionRequest'MessageRequest
ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Bool
ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Ordering
ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest
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
$ccompare :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Ordering
compare :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Ordering
$c< :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Bool
< :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Bool
$c<= :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Bool
<= :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Bool
$c> :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Bool
> :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Bool
$c>= :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Bool
>= :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest -> Bool
$cmax :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest
max :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest
$cmin :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest
min :: ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest
-> ServerReflectionRequest'MessageRequest
Prelude.Ord)
instance Data.ProtoLens.Field.HasField ServerReflectionRequest "host" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "host"
-> (Text -> f Text)
-> ServerReflectionRequest
-> f ServerReflectionRequest
fieldOf Proxy# "host"
_
    = ((Text -> f Text)
 -> ServerReflectionRequest -> f ServerReflectionRequest)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ServerReflectionRequest
-> f ServerReflectionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionRequest -> Text)
-> (ServerReflectionRequest -> Text -> ServerReflectionRequest)
-> Lens ServerReflectionRequest ServerReflectionRequest Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionRequest -> Text
_ServerReflectionRequest'host
           (\ ServerReflectionRequest
x__ Text
y__ -> ServerReflectionRequest
x__ {_ServerReflectionRequest'host = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ServerReflectionRequest "maybe'messageRequest" (Prelude.Maybe ServerReflectionRequest'MessageRequest) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'messageRequest"
-> (Maybe ServerReflectionRequest'MessageRequest
    -> f (Maybe ServerReflectionRequest'MessageRequest))
-> ServerReflectionRequest
-> f ServerReflectionRequest
fieldOf Proxy# "maybe'messageRequest"
_
    = ((Maybe ServerReflectionRequest'MessageRequest
  -> f (Maybe ServerReflectionRequest'MessageRequest))
 -> ServerReflectionRequest -> f ServerReflectionRequest)
-> ((Maybe ServerReflectionRequest'MessageRequest
     -> f (Maybe ServerReflectionRequest'MessageRequest))
    -> Maybe ServerReflectionRequest'MessageRequest
    -> f (Maybe ServerReflectionRequest'MessageRequest))
-> (Maybe ServerReflectionRequest'MessageRequest
    -> f (Maybe ServerReflectionRequest'MessageRequest))
-> ServerReflectionRequest
-> f ServerReflectionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionRequest
 -> Maybe ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest
    -> Maybe ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest)
-> Lens
     ServerReflectionRequest
     ServerReflectionRequest
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionRequest
-> Maybe ServerReflectionRequest'MessageRequest
_ServerReflectionRequest'messageRequest
           (\ ServerReflectionRequest
x__ Maybe ServerReflectionRequest'MessageRequest
y__ -> ServerReflectionRequest
x__ {_ServerReflectionRequest'messageRequest = y__}))
        (Maybe ServerReflectionRequest'MessageRequest
 -> f (Maybe ServerReflectionRequest'MessageRequest))
-> Maybe ServerReflectionRequest'MessageRequest
-> f (Maybe ServerReflectionRequest'MessageRequest)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ServerReflectionRequest "maybe'fileByFilename" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'fileByFilename"
-> (Maybe Text -> f (Maybe Text))
-> ServerReflectionRequest
-> f ServerReflectionRequest
fieldOf Proxy# "maybe'fileByFilename"
_
    = ((Maybe ServerReflectionRequest'MessageRequest
  -> f (Maybe ServerReflectionRequest'MessageRequest))
 -> ServerReflectionRequest -> f ServerReflectionRequest)
-> ((Maybe Text -> f (Maybe Text))
    -> Maybe ServerReflectionRequest'MessageRequest
    -> f (Maybe ServerReflectionRequest'MessageRequest))
-> (Maybe Text -> f (Maybe Text))
-> ServerReflectionRequest
-> f ServerReflectionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionRequest
 -> Maybe ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest
    -> Maybe ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest)
-> Lens
     ServerReflectionRequest
     ServerReflectionRequest
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionRequest
-> Maybe ServerReflectionRequest'MessageRequest
_ServerReflectionRequest'messageRequest
           (\ ServerReflectionRequest
x__ Maybe ServerReflectionRequest'MessageRequest
y__ -> ServerReflectionRequest
x__ {_ServerReflectionRequest'messageRequest = y__}))
        ((Maybe ServerReflectionRequest'MessageRequest -> Maybe Text)
-> (Maybe ServerReflectionRequest'MessageRequest
    -> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest)
-> Lens
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ServerReflectionRequest'MessageRequest
x__
              -> case Maybe ServerReflectionRequest'MessageRequest
x__ of
                   (Prelude.Just (ServerReflectionRequest'FileByFilename Text
x__val))
                     -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                   Maybe ServerReflectionRequest'MessageRequest
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ServerReflectionRequest'MessageRequest
_ Maybe Text
y__
              -> (Text -> ServerReflectionRequest'MessageRequest)
-> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> ServerReflectionRequest'MessageRequest
ServerReflectionRequest'FileByFilename Maybe Text
y__))
instance Data.ProtoLens.Field.HasField ServerReflectionRequest "fileByFilename" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fileByFilename"
-> (Text -> f Text)
-> ServerReflectionRequest
-> f ServerReflectionRequest
fieldOf Proxy# "fileByFilename"
_
    = ((Maybe ServerReflectionRequest'MessageRequest
  -> f (Maybe ServerReflectionRequest'MessageRequest))
 -> ServerReflectionRequest -> f ServerReflectionRequest)
-> ((Text -> f Text)
    -> Maybe ServerReflectionRequest'MessageRequest
    -> f (Maybe ServerReflectionRequest'MessageRequest))
-> (Text -> f Text)
-> ServerReflectionRequest
-> f ServerReflectionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionRequest
 -> Maybe ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest
    -> Maybe ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest)
-> Lens
     ServerReflectionRequest
     ServerReflectionRequest
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionRequest
-> Maybe ServerReflectionRequest'MessageRequest
_ServerReflectionRequest'messageRequest
           (\ ServerReflectionRequest
x__ Maybe ServerReflectionRequest'MessageRequest
y__ -> ServerReflectionRequest
x__ {_ServerReflectionRequest'messageRequest = y__}))
        (((Maybe Text -> f (Maybe Text))
 -> Maybe ServerReflectionRequest'MessageRequest
 -> f (Maybe ServerReflectionRequest'MessageRequest))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe ServerReflectionRequest'MessageRequest
-> f (Maybe ServerReflectionRequest'MessageRequest)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ServerReflectionRequest'MessageRequest -> Maybe Text)
-> (Maybe ServerReflectionRequest'MessageRequest
    -> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest)
-> Lens
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ServerReflectionRequest'MessageRequest
x__
                 -> case Maybe ServerReflectionRequest'MessageRequest
x__ of
                      (Prelude.Just (ServerReflectionRequest'FileByFilename Text
x__val))
                        -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                      Maybe ServerReflectionRequest'MessageRequest
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ServerReflectionRequest'MessageRequest
_ Maybe Text
y__
                 -> (Text -> ServerReflectionRequest'MessageRequest)
-> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> ServerReflectionRequest'MessageRequest
ServerReflectionRequest'FileByFilename 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 ServerReflectionRequest "maybe'fileContainingSymbol" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'fileContainingSymbol"
-> (Maybe Text -> f (Maybe Text))
-> ServerReflectionRequest
-> f ServerReflectionRequest
fieldOf Proxy# "maybe'fileContainingSymbol"
_
    = ((Maybe ServerReflectionRequest'MessageRequest
  -> f (Maybe ServerReflectionRequest'MessageRequest))
 -> ServerReflectionRequest -> f ServerReflectionRequest)
-> ((Maybe Text -> f (Maybe Text))
    -> Maybe ServerReflectionRequest'MessageRequest
    -> f (Maybe ServerReflectionRequest'MessageRequest))
-> (Maybe Text -> f (Maybe Text))
-> ServerReflectionRequest
-> f ServerReflectionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionRequest
 -> Maybe ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest
    -> Maybe ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest)
-> Lens
     ServerReflectionRequest
     ServerReflectionRequest
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionRequest
-> Maybe ServerReflectionRequest'MessageRequest
_ServerReflectionRequest'messageRequest
           (\ ServerReflectionRequest
x__ Maybe ServerReflectionRequest'MessageRequest
y__ -> ServerReflectionRequest
x__ {_ServerReflectionRequest'messageRequest = y__}))
        ((Maybe ServerReflectionRequest'MessageRequest -> Maybe Text)
-> (Maybe ServerReflectionRequest'MessageRequest
    -> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest)
-> Lens
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ServerReflectionRequest'MessageRequest
x__
              -> case Maybe ServerReflectionRequest'MessageRequest
x__ of
                   (Prelude.Just (ServerReflectionRequest'FileContainingSymbol Text
x__val))
                     -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                   Maybe ServerReflectionRequest'MessageRequest
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ServerReflectionRequest'MessageRequest
_ Maybe Text
y__
              -> (Text -> ServerReflectionRequest'MessageRequest)
-> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> ServerReflectionRequest'MessageRequest
ServerReflectionRequest'FileContainingSymbol Maybe Text
y__))
instance Data.ProtoLens.Field.HasField ServerReflectionRequest "fileContainingSymbol" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fileContainingSymbol"
-> (Text -> f Text)
-> ServerReflectionRequest
-> f ServerReflectionRequest
fieldOf Proxy# "fileContainingSymbol"
_
    = ((Maybe ServerReflectionRequest'MessageRequest
  -> f (Maybe ServerReflectionRequest'MessageRequest))
 -> ServerReflectionRequest -> f ServerReflectionRequest)
-> ((Text -> f Text)
    -> Maybe ServerReflectionRequest'MessageRequest
    -> f (Maybe ServerReflectionRequest'MessageRequest))
-> (Text -> f Text)
-> ServerReflectionRequest
-> f ServerReflectionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionRequest
 -> Maybe ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest
    -> Maybe ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest)
-> Lens
     ServerReflectionRequest
     ServerReflectionRequest
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionRequest
-> Maybe ServerReflectionRequest'MessageRequest
_ServerReflectionRequest'messageRequest
           (\ ServerReflectionRequest
x__ Maybe ServerReflectionRequest'MessageRequest
y__ -> ServerReflectionRequest
x__ {_ServerReflectionRequest'messageRequest = y__}))
        (((Maybe Text -> f (Maybe Text))
 -> Maybe ServerReflectionRequest'MessageRequest
 -> f (Maybe ServerReflectionRequest'MessageRequest))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe ServerReflectionRequest'MessageRequest
-> f (Maybe ServerReflectionRequest'MessageRequest)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ServerReflectionRequest'MessageRequest -> Maybe Text)
-> (Maybe ServerReflectionRequest'MessageRequest
    -> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest)
-> Lens
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ServerReflectionRequest'MessageRequest
x__
                 -> case Maybe ServerReflectionRequest'MessageRequest
x__ of
                      (Prelude.Just (ServerReflectionRequest'FileContainingSymbol Text
x__val))
                        -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                      Maybe ServerReflectionRequest'MessageRequest
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ServerReflectionRequest'MessageRequest
_ Maybe Text
y__
                 -> (Text -> ServerReflectionRequest'MessageRequest)
-> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> ServerReflectionRequest'MessageRequest
ServerReflectionRequest'FileContainingSymbol 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 ServerReflectionRequest "maybe'fileContainingExtension" (Prelude.Maybe ExtensionRequest) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'fileContainingExtension"
-> (Maybe ExtensionRequest -> f (Maybe ExtensionRequest))
-> ServerReflectionRequest
-> f ServerReflectionRequest
fieldOf Proxy# "maybe'fileContainingExtension"
_
    = ((Maybe ServerReflectionRequest'MessageRequest
  -> f (Maybe ServerReflectionRequest'MessageRequest))
 -> ServerReflectionRequest -> f ServerReflectionRequest)
-> ((Maybe ExtensionRequest -> f (Maybe ExtensionRequest))
    -> Maybe ServerReflectionRequest'MessageRequest
    -> f (Maybe ServerReflectionRequest'MessageRequest))
-> (Maybe ExtensionRequest -> f (Maybe ExtensionRequest))
-> ServerReflectionRequest
-> f ServerReflectionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionRequest
 -> Maybe ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest
    -> Maybe ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest)
-> Lens
     ServerReflectionRequest
     ServerReflectionRequest
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionRequest
-> Maybe ServerReflectionRequest'MessageRequest
_ServerReflectionRequest'messageRequest
           (\ ServerReflectionRequest
x__ Maybe ServerReflectionRequest'MessageRequest
y__ -> ServerReflectionRequest
x__ {_ServerReflectionRequest'messageRequest = y__}))
        ((Maybe ServerReflectionRequest'MessageRequest
 -> Maybe ExtensionRequest)
-> (Maybe ServerReflectionRequest'MessageRequest
    -> Maybe ExtensionRequest
    -> Maybe ServerReflectionRequest'MessageRequest)
-> Lens
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ExtensionRequest)
     (Maybe ExtensionRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ServerReflectionRequest'MessageRequest
x__
              -> case Maybe ServerReflectionRequest'MessageRequest
x__ of
                   (Prelude.Just (ServerReflectionRequest'FileContainingExtension ExtensionRequest
x__val))
                     -> ExtensionRequest -> Maybe ExtensionRequest
forall a. a -> Maybe a
Prelude.Just ExtensionRequest
x__val
                   Maybe ServerReflectionRequest'MessageRequest
_otherwise -> Maybe ExtensionRequest
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ServerReflectionRequest'MessageRequest
_ Maybe ExtensionRequest
y__
              -> (ExtensionRequest -> ServerReflectionRequest'MessageRequest)
-> Maybe ExtensionRequest
-> Maybe ServerReflectionRequest'MessageRequest
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                   ExtensionRequest -> ServerReflectionRequest'MessageRequest
ServerReflectionRequest'FileContainingExtension Maybe ExtensionRequest
y__))
instance Data.ProtoLens.Field.HasField ServerReflectionRequest "fileContainingExtension" ExtensionRequest where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fileContainingExtension"
-> (ExtensionRequest -> f ExtensionRequest)
-> ServerReflectionRequest
-> f ServerReflectionRequest
fieldOf Proxy# "fileContainingExtension"
_
    = ((Maybe ServerReflectionRequest'MessageRequest
  -> f (Maybe ServerReflectionRequest'MessageRequest))
 -> ServerReflectionRequest -> f ServerReflectionRequest)
-> ((ExtensionRequest -> f ExtensionRequest)
    -> Maybe ServerReflectionRequest'MessageRequest
    -> f (Maybe ServerReflectionRequest'MessageRequest))
-> (ExtensionRequest -> f ExtensionRequest)
-> ServerReflectionRequest
-> f ServerReflectionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionRequest
 -> Maybe ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest
    -> Maybe ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest)
-> Lens
     ServerReflectionRequest
     ServerReflectionRequest
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionRequest
-> Maybe ServerReflectionRequest'MessageRequest
_ServerReflectionRequest'messageRequest
           (\ ServerReflectionRequest
x__ Maybe ServerReflectionRequest'MessageRequest
y__ -> ServerReflectionRequest
x__ {_ServerReflectionRequest'messageRequest = y__}))
        (((Maybe ExtensionRequest -> f (Maybe ExtensionRequest))
 -> Maybe ServerReflectionRequest'MessageRequest
 -> f (Maybe ServerReflectionRequest'MessageRequest))
-> ((ExtensionRequest -> f ExtensionRequest)
    -> Maybe ExtensionRequest -> f (Maybe ExtensionRequest))
-> (ExtensionRequest -> f ExtensionRequest)
-> Maybe ServerReflectionRequest'MessageRequest
-> f (Maybe ServerReflectionRequest'MessageRequest)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ServerReflectionRequest'MessageRequest
 -> Maybe ExtensionRequest)
-> (Maybe ServerReflectionRequest'MessageRequest
    -> Maybe ExtensionRequest
    -> Maybe ServerReflectionRequest'MessageRequest)
-> Lens
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ExtensionRequest)
     (Maybe ExtensionRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ServerReflectionRequest'MessageRequest
x__
                 -> case Maybe ServerReflectionRequest'MessageRequest
x__ of
                      (Prelude.Just (ServerReflectionRequest'FileContainingExtension ExtensionRequest
x__val))
                        -> ExtensionRequest -> Maybe ExtensionRequest
forall a. a -> Maybe a
Prelude.Just ExtensionRequest
x__val
                      Maybe ServerReflectionRequest'MessageRequest
_otherwise -> Maybe ExtensionRequest
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ServerReflectionRequest'MessageRequest
_ Maybe ExtensionRequest
y__
                 -> (ExtensionRequest -> ServerReflectionRequest'MessageRequest)
-> Maybe ExtensionRequest
-> Maybe ServerReflectionRequest'MessageRequest
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                      ExtensionRequest -> ServerReflectionRequest'MessageRequest
ServerReflectionRequest'FileContainingExtension Maybe ExtensionRequest
y__))
           (ExtensionRequest -> Lens' (Maybe ExtensionRequest) ExtensionRequest
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ExtensionRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ServerReflectionRequest "maybe'allExtensionNumbersOfType" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'allExtensionNumbersOfType"
-> (Maybe Text -> f (Maybe Text))
-> ServerReflectionRequest
-> f ServerReflectionRequest
fieldOf Proxy# "maybe'allExtensionNumbersOfType"
_
    = ((Maybe ServerReflectionRequest'MessageRequest
  -> f (Maybe ServerReflectionRequest'MessageRequest))
 -> ServerReflectionRequest -> f ServerReflectionRequest)
-> ((Maybe Text -> f (Maybe Text))
    -> Maybe ServerReflectionRequest'MessageRequest
    -> f (Maybe ServerReflectionRequest'MessageRequest))
-> (Maybe Text -> f (Maybe Text))
-> ServerReflectionRequest
-> f ServerReflectionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionRequest
 -> Maybe ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest
    -> Maybe ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest)
-> Lens
     ServerReflectionRequest
     ServerReflectionRequest
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionRequest
-> Maybe ServerReflectionRequest'MessageRequest
_ServerReflectionRequest'messageRequest
           (\ ServerReflectionRequest
x__ Maybe ServerReflectionRequest'MessageRequest
y__ -> ServerReflectionRequest
x__ {_ServerReflectionRequest'messageRequest = y__}))
        ((Maybe ServerReflectionRequest'MessageRequest -> Maybe Text)
-> (Maybe ServerReflectionRequest'MessageRequest
    -> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest)
-> Lens
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ServerReflectionRequest'MessageRequest
x__
              -> case Maybe ServerReflectionRequest'MessageRequest
x__ of
                   (Prelude.Just (ServerReflectionRequest'AllExtensionNumbersOfType Text
x__val))
                     -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                   Maybe ServerReflectionRequest'MessageRequest
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ServerReflectionRequest'MessageRequest
_ Maybe Text
y__
              -> (Text -> ServerReflectionRequest'MessageRequest)
-> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                   Text -> ServerReflectionRequest'MessageRequest
ServerReflectionRequest'AllExtensionNumbersOfType Maybe Text
y__))
instance Data.ProtoLens.Field.HasField ServerReflectionRequest "allExtensionNumbersOfType" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "allExtensionNumbersOfType"
-> (Text -> f Text)
-> ServerReflectionRequest
-> f ServerReflectionRequest
fieldOf Proxy# "allExtensionNumbersOfType"
_
    = ((Maybe ServerReflectionRequest'MessageRequest
  -> f (Maybe ServerReflectionRequest'MessageRequest))
 -> ServerReflectionRequest -> f ServerReflectionRequest)
-> ((Text -> f Text)
    -> Maybe ServerReflectionRequest'MessageRequest
    -> f (Maybe ServerReflectionRequest'MessageRequest))
-> (Text -> f Text)
-> ServerReflectionRequest
-> f ServerReflectionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionRequest
 -> Maybe ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest
    -> Maybe ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest)
-> Lens
     ServerReflectionRequest
     ServerReflectionRequest
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionRequest
-> Maybe ServerReflectionRequest'MessageRequest
_ServerReflectionRequest'messageRequest
           (\ ServerReflectionRequest
x__ Maybe ServerReflectionRequest'MessageRequest
y__ -> ServerReflectionRequest
x__ {_ServerReflectionRequest'messageRequest = y__}))
        (((Maybe Text -> f (Maybe Text))
 -> Maybe ServerReflectionRequest'MessageRequest
 -> f (Maybe ServerReflectionRequest'MessageRequest))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe ServerReflectionRequest'MessageRequest
-> f (Maybe ServerReflectionRequest'MessageRequest)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ServerReflectionRequest'MessageRequest -> Maybe Text)
-> (Maybe ServerReflectionRequest'MessageRequest
    -> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest)
-> Lens
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ServerReflectionRequest'MessageRequest
x__
                 -> case Maybe ServerReflectionRequest'MessageRequest
x__ of
                      (Prelude.Just (ServerReflectionRequest'AllExtensionNumbersOfType Text
x__val))
                        -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                      Maybe ServerReflectionRequest'MessageRequest
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ServerReflectionRequest'MessageRequest
_ Maybe Text
y__
                 -> (Text -> ServerReflectionRequest'MessageRequest)
-> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                      Text -> ServerReflectionRequest'MessageRequest
ServerReflectionRequest'AllExtensionNumbersOfType 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 ServerReflectionRequest "maybe'listServices" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'listServices"
-> (Maybe Text -> f (Maybe Text))
-> ServerReflectionRequest
-> f ServerReflectionRequest
fieldOf Proxy# "maybe'listServices"
_
    = ((Maybe ServerReflectionRequest'MessageRequest
  -> f (Maybe ServerReflectionRequest'MessageRequest))
 -> ServerReflectionRequest -> f ServerReflectionRequest)
-> ((Maybe Text -> f (Maybe Text))
    -> Maybe ServerReflectionRequest'MessageRequest
    -> f (Maybe ServerReflectionRequest'MessageRequest))
-> (Maybe Text -> f (Maybe Text))
-> ServerReflectionRequest
-> f ServerReflectionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionRequest
 -> Maybe ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest
    -> Maybe ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest)
-> Lens
     ServerReflectionRequest
     ServerReflectionRequest
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionRequest
-> Maybe ServerReflectionRequest'MessageRequest
_ServerReflectionRequest'messageRequest
           (\ ServerReflectionRequest
x__ Maybe ServerReflectionRequest'MessageRequest
y__ -> ServerReflectionRequest
x__ {_ServerReflectionRequest'messageRequest = y__}))
        ((Maybe ServerReflectionRequest'MessageRequest -> Maybe Text)
-> (Maybe ServerReflectionRequest'MessageRequest
    -> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest)
-> Lens
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ServerReflectionRequest'MessageRequest
x__
              -> case Maybe ServerReflectionRequest'MessageRequest
x__ of
                   (Prelude.Just (ServerReflectionRequest'ListServices Text
x__val))
                     -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                   Maybe ServerReflectionRequest'MessageRequest
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ServerReflectionRequest'MessageRequest
_ Maybe Text
y__ -> (Text -> ServerReflectionRequest'MessageRequest)
-> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> ServerReflectionRequest'MessageRequest
ServerReflectionRequest'ListServices Maybe Text
y__))
instance Data.ProtoLens.Field.HasField ServerReflectionRequest "listServices" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "listServices"
-> (Text -> f Text)
-> ServerReflectionRequest
-> f ServerReflectionRequest
fieldOf Proxy# "listServices"
_
    = ((Maybe ServerReflectionRequest'MessageRequest
  -> f (Maybe ServerReflectionRequest'MessageRequest))
 -> ServerReflectionRequest -> f ServerReflectionRequest)
-> ((Text -> f Text)
    -> Maybe ServerReflectionRequest'MessageRequest
    -> f (Maybe ServerReflectionRequest'MessageRequest))
-> (Text -> f Text)
-> ServerReflectionRequest
-> f ServerReflectionRequest
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionRequest
 -> Maybe ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest
    -> Maybe ServerReflectionRequest'MessageRequest
    -> ServerReflectionRequest)
-> Lens
     ServerReflectionRequest
     ServerReflectionRequest
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionRequest
-> Maybe ServerReflectionRequest'MessageRequest
_ServerReflectionRequest'messageRequest
           (\ ServerReflectionRequest
x__ Maybe ServerReflectionRequest'MessageRequest
y__ -> ServerReflectionRequest
x__ {_ServerReflectionRequest'messageRequest = y__}))
        (((Maybe Text -> f (Maybe Text))
 -> Maybe ServerReflectionRequest'MessageRequest
 -> f (Maybe ServerReflectionRequest'MessageRequest))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe ServerReflectionRequest'MessageRequest
-> f (Maybe ServerReflectionRequest'MessageRequest)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ServerReflectionRequest'MessageRequest -> Maybe Text)
-> (Maybe ServerReflectionRequest'MessageRequest
    -> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest)
-> Lens
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe ServerReflectionRequest'MessageRequest)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ServerReflectionRequest'MessageRequest
x__
                 -> case Maybe ServerReflectionRequest'MessageRequest
x__ of
                      (Prelude.Just (ServerReflectionRequest'ListServices Text
x__val))
                        -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                      Maybe ServerReflectionRequest'MessageRequest
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ServerReflectionRequest'MessageRequest
_ Maybe Text
y__ -> (Text -> ServerReflectionRequest'MessageRequest)
-> Maybe Text -> Maybe ServerReflectionRequest'MessageRequest
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> ServerReflectionRequest'MessageRequest
ServerReflectionRequest'ListServices 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.Message ServerReflectionRequest where
  messageName :: Proxy ServerReflectionRequest -> Text
messageName Proxy ServerReflectionRequest
_
    = String -> Text
Data.Text.pack String
"grpc.reflection.v1alpha.ServerReflectionRequest"
  packedMessageDescriptor :: Proxy ServerReflectionRequest -> ByteString
packedMessageDescriptor Proxy ServerReflectionRequest
_
    = ByteString
"\n\
      \\ETBServerReflectionRequest\DC2\DC2\n\
      \\EOThost\CAN\SOH \SOH(\tR\EOThost\DC2*\n\
      \\DLEfile_by_filename\CAN\ETX \SOH(\tH\NULR\SOfileByFilename\DC26\n\
      \\SYNfile_containing_symbol\CAN\EOT \SOH(\tH\NULR\DC4fileContainingSymbol\DC2g\n\
      \\EMfile_containing_extension\CAN\ENQ \SOH(\v2).grpc.reflection.v1alpha.ExtensionRequestH\NULR\ETBfileContainingExtension\DC2B\n\
      \\GSall_extension_numbers_of_type\CAN\ACK \SOH(\tH\NULR\EMallExtensionNumbersOfType\DC2%\n\
      \\rlist_services\CAN\a \SOH(\tH\NULR\flistServicesB\DC1\n\
      \\SImessage_request"
  packedFileDescriptor :: Proxy ServerReflectionRequest -> ByteString
packedFileDescriptor Proxy ServerReflectionRequest
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ServerReflectionRequest)
fieldsByTag
    = let
        host__field_descriptor :: FieldDescriptor ServerReflectionRequest
host__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ServerReflectionRequest Text
-> FieldDescriptor ServerReflectionRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"host"
              (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 ServerReflectionRequest ServerReflectionRequest Text Text
-> FieldAccessor ServerReflectionRequest Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"host")) ::
              Data.ProtoLens.FieldDescriptor ServerReflectionRequest
        fileByFilename__field_descriptor :: FieldDescriptor ServerReflectionRequest
fileByFilename__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ServerReflectionRequest Text
-> FieldDescriptor ServerReflectionRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"file_by_filename"
              (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' ServerReflectionRequest (Maybe Text)
-> FieldAccessor ServerReflectionRequest Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'fileByFilename")) ::
              Data.ProtoLens.FieldDescriptor ServerReflectionRequest
        fileContainingSymbol__field_descriptor :: FieldDescriptor ServerReflectionRequest
fileContainingSymbol__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ServerReflectionRequest Text
-> FieldDescriptor ServerReflectionRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"file_containing_symbol"
              (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' ServerReflectionRequest (Maybe Text)
-> FieldAccessor ServerReflectionRequest Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'fileContainingSymbol")) ::
              Data.ProtoLens.FieldDescriptor ServerReflectionRequest
        fileContainingExtension__field_descriptor :: FieldDescriptor ServerReflectionRequest
fileContainingExtension__field_descriptor
          = String
-> FieldTypeDescriptor ExtensionRequest
-> FieldAccessor ServerReflectionRequest ExtensionRequest
-> FieldDescriptor ServerReflectionRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"file_containing_extension"
              (MessageOrGroup -> FieldTypeDescriptor ExtensionRequest
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ExtensionRequest)
              (Lens' ServerReflectionRequest (Maybe ExtensionRequest)
-> FieldAccessor ServerReflectionRequest ExtensionRequest
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'fileContainingExtension")) ::
              Data.ProtoLens.FieldDescriptor ServerReflectionRequest
        allExtensionNumbersOfType__field_descriptor :: FieldDescriptor ServerReflectionRequest
allExtensionNumbersOfType__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ServerReflectionRequest Text
-> FieldDescriptor ServerReflectionRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"all_extension_numbers_of_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' ServerReflectionRequest (Maybe Text)
-> FieldAccessor ServerReflectionRequest Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'allExtensionNumbersOfType")) ::
              Data.ProtoLens.FieldDescriptor ServerReflectionRequest
        listServices__field_descriptor :: FieldDescriptor ServerReflectionRequest
listServices__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ServerReflectionRequest Text
-> FieldDescriptor ServerReflectionRequest
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"list_services"
              (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' ServerReflectionRequest (Maybe Text)
-> FieldAccessor ServerReflectionRequest Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'listServices")) ::
              Data.ProtoLens.FieldDescriptor ServerReflectionRequest
      in
        [(Tag, FieldDescriptor ServerReflectionRequest)]
-> Map Tag (FieldDescriptor ServerReflectionRequest)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ServerReflectionRequest
host__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor ServerReflectionRequest
fileByFilename__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ServerReflectionRequest
fileContainingSymbol__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor ServerReflectionRequest
fileContainingExtension__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, 
            FieldDescriptor ServerReflectionRequest
allExtensionNumbersOfType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor ServerReflectionRequest
listServices__field_descriptor)]
  unknownFields :: Lens' ServerReflectionRequest FieldSet
unknownFields
    = (ServerReflectionRequest -> FieldSet)
-> (ServerReflectionRequest -> FieldSet -> ServerReflectionRequest)
-> Lens' ServerReflectionRequest FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ServerReflectionRequest -> FieldSet
_ServerReflectionRequest'_unknownFields
        (\ ServerReflectionRequest
x__ FieldSet
y__ -> ServerReflectionRequest
x__ {_ServerReflectionRequest'_unknownFields = y__})
  defMessage :: ServerReflectionRequest
defMessage
    = ServerReflectionRequest'_constructor
        {_ServerReflectionRequest'host :: Text
_ServerReflectionRequest'host = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ServerReflectionRequest'messageRequest :: Maybe ServerReflectionRequest'MessageRequest
_ServerReflectionRequest'messageRequest = Maybe ServerReflectionRequest'MessageRequest
forall a. Maybe a
Prelude.Nothing,
         _ServerReflectionRequest'_unknownFields :: FieldSet
_ServerReflectionRequest'_unknownFields = []}
  parseMessage :: Parser ServerReflectionRequest
parseMessage
    = let
        loop ::
          ServerReflectionRequest
          -> Data.ProtoLens.Encoding.Bytes.Parser ServerReflectionRequest
        loop :: ServerReflectionRequest -> Parser ServerReflectionRequest
loop ServerReflectionRequest
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"host"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"host") y x)
                        Word64
26
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"file_by_filename"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"fileByFilename") y x)
                        Word64
34
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"file_containing_symbol"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"fileContainingSymbol") y x)
                        Word64
42
                          -> do y <- Parser ExtensionRequest -> String -> Parser ExtensionRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"file_containing_extension"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"fileContainingExtension") y x)
                        Word64
50
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"all_extension_numbers_of_type"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"allExtensionNumbersOfType") y x)
                        Word64
58
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"list_services"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"listServices") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser ServerReflectionRequest
-> String -> Parser ServerReflectionRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ServerReflectionRequest -> Parser ServerReflectionRequest
loop ServerReflectionRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ServerReflectionRequest"
  buildMessage :: ServerReflectionRequest -> Builder
buildMessage
    = \ ServerReflectionRequest
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text ServerReflectionRequest ServerReflectionRequest Text Text
-> ServerReflectionRequest -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"host") ServerReflectionRequest
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault 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 Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ 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 ServerReflectionRequest'MessageRequest)
  ServerReflectionRequest
  ServerReflectionRequest
  (Maybe ServerReflectionRequest'MessageRequest)
  (Maybe ServerReflectionRequest'MessageRequest)
-> ServerReflectionRequest
-> Maybe ServerReflectionRequest'MessageRequest
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'messageRequest") ServerReflectionRequest
_x
                 of
                   Maybe ServerReflectionRequest'MessageRequest
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just (ServerReflectionRequest'FileByFilename Text
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
26)
                          ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ 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)
                   (Prelude.Just (ServerReflectionRequest'FileContainingSymbol Text
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                          ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ 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)
                   (Prelude.Just (ServerReflectionRequest'FileContainingExtension ExtensionRequest
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
                          ((ByteString -> Builder)
-> (ExtensionRequest -> ByteString) -> ExtensionRequest -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ 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))
                             ExtensionRequest -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ExtensionRequest
v)
                   (Prelude.Just (ServerReflectionRequest'AllExtensionNumbersOfType Text
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
                          ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ 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)
                   (Prelude.Just (ServerReflectionRequest'ListServices Text
v))
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
                          ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ 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
  ServerReflectionRequest
  ServerReflectionRequest
  FieldSet
  FieldSet
-> ServerReflectionRequest -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ServerReflectionRequest
  ServerReflectionRequest
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ServerReflectionRequest FieldSet
Data.ProtoLens.unknownFields ServerReflectionRequest
_x)))
instance Control.DeepSeq.NFData ServerReflectionRequest where
  rnf :: ServerReflectionRequest -> ()
rnf
    = \ ServerReflectionRequest
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ServerReflectionRequest -> FieldSet
_ServerReflectionRequest'_unknownFields ServerReflectionRequest
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ServerReflectionRequest -> Text
_ServerReflectionRequest'host ServerReflectionRequest
x__)
                (Maybe ServerReflectionRequest'MessageRequest -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ServerReflectionRequest
-> Maybe ServerReflectionRequest'MessageRequest
_ServerReflectionRequest'messageRequest ServerReflectionRequest
x__) ()))
instance Control.DeepSeq.NFData ServerReflectionRequest'MessageRequest where
  rnf :: ServerReflectionRequest'MessageRequest -> ()
rnf (ServerReflectionRequest'FileByFilename Text
x__)
    = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
  rnf (ServerReflectionRequest'FileContainingSymbol Text
x__)
    = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
  rnf (ServerReflectionRequest'FileContainingExtension ExtensionRequest
x__)
    = ExtensionRequest -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ExtensionRequest
x__
  rnf (ServerReflectionRequest'AllExtensionNumbersOfType Text
x__)
    = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
  rnf (ServerReflectionRequest'ListServices Text
x__)
    = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
_ServerReflectionRequest'FileByFilename ::
  Data.ProtoLens.Prism.Prism' ServerReflectionRequest'MessageRequest Data.Text.Text
_ServerReflectionRequest'FileByFilename :: Prism' ServerReflectionRequest'MessageRequest Text
_ServerReflectionRequest'FileByFilename
  = (Text -> ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest'MessageRequest -> Maybe Text)
-> Prism' ServerReflectionRequest'MessageRequest Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Text -> ServerReflectionRequest'MessageRequest
ServerReflectionRequest'FileByFilename
      (\ ServerReflectionRequest'MessageRequest
p__
         -> case ServerReflectionRequest'MessageRequest
p__ of
              (ServerReflectionRequest'FileByFilename Text
p__val)
                -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
              ServerReflectionRequest'MessageRequest
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_ServerReflectionRequest'FileContainingSymbol ::
  Data.ProtoLens.Prism.Prism' ServerReflectionRequest'MessageRequest Data.Text.Text
_ServerReflectionRequest'FileContainingSymbol :: Prism' ServerReflectionRequest'MessageRequest Text
_ServerReflectionRequest'FileContainingSymbol
  = (Text -> ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest'MessageRequest -> Maybe Text)
-> Prism' ServerReflectionRequest'MessageRequest Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Text -> ServerReflectionRequest'MessageRequest
ServerReflectionRequest'FileContainingSymbol
      (\ ServerReflectionRequest'MessageRequest
p__
         -> case ServerReflectionRequest'MessageRequest
p__ of
              (ServerReflectionRequest'FileContainingSymbol Text
p__val)
                -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
              ServerReflectionRequest'MessageRequest
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_ServerReflectionRequest'FileContainingExtension ::
  Data.ProtoLens.Prism.Prism' ServerReflectionRequest'MessageRequest ExtensionRequest
_ServerReflectionRequest'FileContainingExtension :: Prism' ServerReflectionRequest'MessageRequest ExtensionRequest
_ServerReflectionRequest'FileContainingExtension
  = (ExtensionRequest -> ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest'MessageRequest
    -> Maybe ExtensionRequest)
-> Prism' ServerReflectionRequest'MessageRequest ExtensionRequest
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ExtensionRequest -> ServerReflectionRequest'MessageRequest
ServerReflectionRequest'FileContainingExtension
      (\ ServerReflectionRequest'MessageRequest
p__
         -> case ServerReflectionRequest'MessageRequest
p__ of
              (ServerReflectionRequest'FileContainingExtension ExtensionRequest
p__val)
                -> ExtensionRequest -> Maybe ExtensionRequest
forall a. a -> Maybe a
Prelude.Just ExtensionRequest
p__val
              ServerReflectionRequest'MessageRequest
_otherwise -> Maybe ExtensionRequest
forall a. Maybe a
Prelude.Nothing)
_ServerReflectionRequest'AllExtensionNumbersOfType ::
  Data.ProtoLens.Prism.Prism' ServerReflectionRequest'MessageRequest Data.Text.Text
_ServerReflectionRequest'AllExtensionNumbersOfType :: Prism' ServerReflectionRequest'MessageRequest Text
_ServerReflectionRequest'AllExtensionNumbersOfType
  = (Text -> ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest'MessageRequest -> Maybe Text)
-> Prism' ServerReflectionRequest'MessageRequest Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Text -> ServerReflectionRequest'MessageRequest
ServerReflectionRequest'AllExtensionNumbersOfType
      (\ ServerReflectionRequest'MessageRequest
p__
         -> case ServerReflectionRequest'MessageRequest
p__ of
              (ServerReflectionRequest'AllExtensionNumbersOfType Text
p__val)
                -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
              ServerReflectionRequest'MessageRequest
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_ServerReflectionRequest'ListServices ::
  Data.ProtoLens.Prism.Prism' ServerReflectionRequest'MessageRequest Data.Text.Text
_ServerReflectionRequest'ListServices :: Prism' ServerReflectionRequest'MessageRequest Text
_ServerReflectionRequest'ListServices
  = (Text -> ServerReflectionRequest'MessageRequest)
-> (ServerReflectionRequest'MessageRequest -> Maybe Text)
-> Prism' ServerReflectionRequest'MessageRequest Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Text -> ServerReflectionRequest'MessageRequest
ServerReflectionRequest'ListServices
      (\ ServerReflectionRequest'MessageRequest
p__
         -> case ServerReflectionRequest'MessageRequest
p__ of
              (ServerReflectionRequest'ListServices Text
p__val)
                -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
              ServerReflectionRequest'MessageRequest
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.validHost' @:: Lens' ServerReflectionResponse Data.Text.Text@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.originalRequest' @:: Lens' ServerReflectionResponse ServerReflectionRequest@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.maybe'originalRequest' @:: Lens' ServerReflectionResponse (Prelude.Maybe ServerReflectionRequest)@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.maybe'messageResponse' @:: Lens' ServerReflectionResponse (Prelude.Maybe ServerReflectionResponse'MessageResponse)@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.maybe'fileDescriptorResponse' @:: Lens' ServerReflectionResponse (Prelude.Maybe FileDescriptorResponse)@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.fileDescriptorResponse' @:: Lens' ServerReflectionResponse FileDescriptorResponse@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.maybe'allExtensionNumbersResponse' @:: Lens' ServerReflectionResponse (Prelude.Maybe ExtensionNumberResponse)@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.allExtensionNumbersResponse' @:: Lens' ServerReflectionResponse ExtensionNumberResponse@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.maybe'listServicesResponse' @:: Lens' ServerReflectionResponse (Prelude.Maybe ListServiceResponse)@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.listServicesResponse' @:: Lens' ServerReflectionResponse ListServiceResponse@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.maybe'errorResponse' @:: Lens' ServerReflectionResponse (Prelude.Maybe ErrorResponse)@
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.errorResponse' @:: Lens' ServerReflectionResponse ErrorResponse@ -}
data ServerReflectionResponse
  = ServerReflectionResponse'_constructor {ServerReflectionResponse -> Text
_ServerReflectionResponse'validHost :: !Data.Text.Text,
                                           ServerReflectionResponse -> Maybe ServerReflectionRequest
_ServerReflectionResponse'originalRequest :: !(Prelude.Maybe ServerReflectionRequest),
                                           ServerReflectionResponse
-> Maybe ServerReflectionResponse'MessageResponse
_ServerReflectionResponse'messageResponse :: !(Prelude.Maybe ServerReflectionResponse'MessageResponse),
                                           ServerReflectionResponse -> FieldSet
_ServerReflectionResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ServerReflectionResponse -> ServerReflectionResponse -> Bool
(ServerReflectionResponse -> ServerReflectionResponse -> Bool)
-> (ServerReflectionResponse -> ServerReflectionResponse -> Bool)
-> Eq ServerReflectionResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ServerReflectionResponse -> ServerReflectionResponse -> Bool
== :: ServerReflectionResponse -> ServerReflectionResponse -> Bool
$c/= :: ServerReflectionResponse -> ServerReflectionResponse -> Bool
/= :: ServerReflectionResponse -> ServerReflectionResponse -> Bool
Prelude.Eq, Eq ServerReflectionResponse
Eq ServerReflectionResponse =>
(ServerReflectionResponse -> ServerReflectionResponse -> Ordering)
-> (ServerReflectionResponse -> ServerReflectionResponse -> Bool)
-> (ServerReflectionResponse -> ServerReflectionResponse -> Bool)
-> (ServerReflectionResponse -> ServerReflectionResponse -> Bool)
-> (ServerReflectionResponse -> ServerReflectionResponse -> Bool)
-> (ServerReflectionResponse
    -> ServerReflectionResponse -> ServerReflectionResponse)
-> (ServerReflectionResponse
    -> ServerReflectionResponse -> ServerReflectionResponse)
-> Ord ServerReflectionResponse
ServerReflectionResponse -> ServerReflectionResponse -> Bool
ServerReflectionResponse -> ServerReflectionResponse -> Ordering
ServerReflectionResponse
-> ServerReflectionResponse -> ServerReflectionResponse
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
$ccompare :: ServerReflectionResponse -> ServerReflectionResponse -> Ordering
compare :: ServerReflectionResponse -> ServerReflectionResponse -> Ordering
$c< :: ServerReflectionResponse -> ServerReflectionResponse -> Bool
< :: ServerReflectionResponse -> ServerReflectionResponse -> Bool
$c<= :: ServerReflectionResponse -> ServerReflectionResponse -> Bool
<= :: ServerReflectionResponse -> ServerReflectionResponse -> Bool
$c> :: ServerReflectionResponse -> ServerReflectionResponse -> Bool
> :: ServerReflectionResponse -> ServerReflectionResponse -> Bool
$c>= :: ServerReflectionResponse -> ServerReflectionResponse -> Bool
>= :: ServerReflectionResponse -> ServerReflectionResponse -> Bool
$cmax :: ServerReflectionResponse
-> ServerReflectionResponse -> ServerReflectionResponse
max :: ServerReflectionResponse
-> ServerReflectionResponse -> ServerReflectionResponse
$cmin :: ServerReflectionResponse
-> ServerReflectionResponse -> ServerReflectionResponse
min :: ServerReflectionResponse
-> ServerReflectionResponse -> ServerReflectionResponse
Prelude.Ord)
instance Prelude.Show ServerReflectionResponse where
  showsPrec :: Int -> ServerReflectionResponse -> ShowS
showsPrec Int
_ ServerReflectionResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ServerReflectionResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ServerReflectionResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
data ServerReflectionResponse'MessageResponse
  = ServerReflectionResponse'FileDescriptorResponse !FileDescriptorResponse |
    ServerReflectionResponse'AllExtensionNumbersResponse !ExtensionNumberResponse |
    ServerReflectionResponse'ListServicesResponse !ListServiceResponse |
    ServerReflectionResponse'ErrorResponse !ErrorResponse
  deriving stock (Int -> ServerReflectionResponse'MessageResponse -> ShowS
[ServerReflectionResponse'MessageResponse] -> ShowS
ServerReflectionResponse'MessageResponse -> String
(Int -> ServerReflectionResponse'MessageResponse -> ShowS)
-> (ServerReflectionResponse'MessageResponse -> String)
-> ([ServerReflectionResponse'MessageResponse] -> ShowS)
-> Show ServerReflectionResponse'MessageResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ServerReflectionResponse'MessageResponse -> ShowS
showsPrec :: Int -> ServerReflectionResponse'MessageResponse -> ShowS
$cshow :: ServerReflectionResponse'MessageResponse -> String
show :: ServerReflectionResponse'MessageResponse -> String
$cshowList :: [ServerReflectionResponse'MessageResponse] -> ShowS
showList :: [ServerReflectionResponse'MessageResponse] -> ShowS
Prelude.Show, ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Bool
(ServerReflectionResponse'MessageResponse
 -> ServerReflectionResponse'MessageResponse -> Bool)
-> (ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse'MessageResponse -> Bool)
-> Eq ServerReflectionResponse'MessageResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Bool
== :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Bool
$c/= :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Bool
/= :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Bool
Prelude.Eq, Eq ServerReflectionResponse'MessageResponse
Eq ServerReflectionResponse'MessageResponse =>
(ServerReflectionResponse'MessageResponse
 -> ServerReflectionResponse'MessageResponse -> Ordering)
-> (ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse'MessageResponse -> Bool)
-> (ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse'MessageResponse -> Bool)
-> (ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse'MessageResponse -> Bool)
-> (ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse'MessageResponse -> Bool)
-> (ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse'MessageResponse)
-> (ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse'MessageResponse)
-> Ord ServerReflectionResponse'MessageResponse
ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Bool
ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Ordering
ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse
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
$ccompare :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Ordering
compare :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Ordering
$c< :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Bool
< :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Bool
$c<= :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Bool
<= :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Bool
$c> :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Bool
> :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Bool
$c>= :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Bool
>= :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse -> Bool
$cmax :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse
max :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse
$cmin :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse
min :: ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse
-> ServerReflectionResponse'MessageResponse
Prelude.Ord)
instance Data.ProtoLens.Field.HasField ServerReflectionResponse "validHost" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "validHost"
-> (Text -> f Text)
-> ServerReflectionResponse
-> f ServerReflectionResponse
fieldOf Proxy# "validHost"
_
    = ((Text -> f Text)
 -> ServerReflectionResponse -> f ServerReflectionResponse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ServerReflectionResponse
-> f ServerReflectionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionResponse -> Text)
-> (ServerReflectionResponse -> Text -> ServerReflectionResponse)
-> Lens ServerReflectionResponse ServerReflectionResponse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionResponse -> Text
_ServerReflectionResponse'validHost
           (\ ServerReflectionResponse
x__ Text
y__ -> ServerReflectionResponse
x__ {_ServerReflectionResponse'validHost = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ServerReflectionResponse "originalRequest" ServerReflectionRequest where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "originalRequest"
-> (ServerReflectionRequest -> f ServerReflectionRequest)
-> ServerReflectionResponse
-> f ServerReflectionResponse
fieldOf Proxy# "originalRequest"
_
    = ((Maybe ServerReflectionRequest
  -> f (Maybe ServerReflectionRequest))
 -> ServerReflectionResponse -> f ServerReflectionResponse)
-> ((ServerReflectionRequest -> f ServerReflectionRequest)
    -> Maybe ServerReflectionRequest
    -> f (Maybe ServerReflectionRequest))
-> (ServerReflectionRequest -> f ServerReflectionRequest)
-> ServerReflectionResponse
-> f ServerReflectionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionResponse -> Maybe ServerReflectionRequest)
-> (ServerReflectionResponse
    -> Maybe ServerReflectionRequest -> ServerReflectionResponse)
-> Lens
     ServerReflectionResponse
     ServerReflectionResponse
     (Maybe ServerReflectionRequest)
     (Maybe ServerReflectionRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionResponse -> Maybe ServerReflectionRequest
_ServerReflectionResponse'originalRequest
           (\ ServerReflectionResponse
x__ Maybe ServerReflectionRequest
y__
              -> ServerReflectionResponse
x__ {_ServerReflectionResponse'originalRequest = y__}))
        (ServerReflectionRequest
-> Lens' (Maybe ServerReflectionRequest) ServerReflectionRequest
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ServerReflectionRequest
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ServerReflectionResponse "maybe'originalRequest" (Prelude.Maybe ServerReflectionRequest) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'originalRequest"
-> (Maybe ServerReflectionRequest
    -> f (Maybe ServerReflectionRequest))
-> ServerReflectionResponse
-> f ServerReflectionResponse
fieldOf Proxy# "maybe'originalRequest"
_
    = ((Maybe ServerReflectionRequest
  -> f (Maybe ServerReflectionRequest))
 -> ServerReflectionResponse -> f ServerReflectionResponse)
-> ((Maybe ServerReflectionRequest
     -> f (Maybe ServerReflectionRequest))
    -> Maybe ServerReflectionRequest
    -> f (Maybe ServerReflectionRequest))
-> (Maybe ServerReflectionRequest
    -> f (Maybe ServerReflectionRequest))
-> ServerReflectionResponse
-> f ServerReflectionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionResponse -> Maybe ServerReflectionRequest)
-> (ServerReflectionResponse
    -> Maybe ServerReflectionRequest -> ServerReflectionResponse)
-> Lens
     ServerReflectionResponse
     ServerReflectionResponse
     (Maybe ServerReflectionRequest)
     (Maybe ServerReflectionRequest)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionResponse -> Maybe ServerReflectionRequest
_ServerReflectionResponse'originalRequest
           (\ ServerReflectionResponse
x__ Maybe ServerReflectionRequest
y__
              -> ServerReflectionResponse
x__ {_ServerReflectionResponse'originalRequest = y__}))
        (Maybe ServerReflectionRequest
 -> f (Maybe ServerReflectionRequest))
-> Maybe ServerReflectionRequest
-> f (Maybe ServerReflectionRequest)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ServerReflectionResponse "maybe'messageResponse" (Prelude.Maybe ServerReflectionResponse'MessageResponse) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'messageResponse"
-> (Maybe ServerReflectionResponse'MessageResponse
    -> f (Maybe ServerReflectionResponse'MessageResponse))
-> ServerReflectionResponse
-> f ServerReflectionResponse
fieldOf Proxy# "maybe'messageResponse"
_
    = ((Maybe ServerReflectionResponse'MessageResponse
  -> f (Maybe ServerReflectionResponse'MessageResponse))
 -> ServerReflectionResponse -> f ServerReflectionResponse)
-> ((Maybe ServerReflectionResponse'MessageResponse
     -> f (Maybe ServerReflectionResponse'MessageResponse))
    -> Maybe ServerReflectionResponse'MessageResponse
    -> f (Maybe ServerReflectionResponse'MessageResponse))
-> (Maybe ServerReflectionResponse'MessageResponse
    -> f (Maybe ServerReflectionResponse'MessageResponse))
-> ServerReflectionResponse
-> f ServerReflectionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionResponse
 -> Maybe ServerReflectionResponse'MessageResponse)
-> (ServerReflectionResponse
    -> Maybe ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse)
-> Lens
     ServerReflectionResponse
     ServerReflectionResponse
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionResponse
-> Maybe ServerReflectionResponse'MessageResponse
_ServerReflectionResponse'messageResponse
           (\ ServerReflectionResponse
x__ Maybe ServerReflectionResponse'MessageResponse
y__
              -> ServerReflectionResponse
x__ {_ServerReflectionResponse'messageResponse = y__}))
        (Maybe ServerReflectionResponse'MessageResponse
 -> f (Maybe ServerReflectionResponse'MessageResponse))
-> Maybe ServerReflectionResponse'MessageResponse
-> f (Maybe ServerReflectionResponse'MessageResponse)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ServerReflectionResponse "maybe'fileDescriptorResponse" (Prelude.Maybe FileDescriptorResponse) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'fileDescriptorResponse"
-> (Maybe FileDescriptorResponse
    -> f (Maybe FileDescriptorResponse))
-> ServerReflectionResponse
-> f ServerReflectionResponse
fieldOf Proxy# "maybe'fileDescriptorResponse"
_
    = ((Maybe ServerReflectionResponse'MessageResponse
  -> f (Maybe ServerReflectionResponse'MessageResponse))
 -> ServerReflectionResponse -> f ServerReflectionResponse)
-> ((Maybe FileDescriptorResponse
     -> f (Maybe FileDescriptorResponse))
    -> Maybe ServerReflectionResponse'MessageResponse
    -> f (Maybe ServerReflectionResponse'MessageResponse))
-> (Maybe FileDescriptorResponse
    -> f (Maybe FileDescriptorResponse))
-> ServerReflectionResponse
-> f ServerReflectionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionResponse
 -> Maybe ServerReflectionResponse'MessageResponse)
-> (ServerReflectionResponse
    -> Maybe ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse)
-> Lens
     ServerReflectionResponse
     ServerReflectionResponse
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionResponse
-> Maybe ServerReflectionResponse'MessageResponse
_ServerReflectionResponse'messageResponse
           (\ ServerReflectionResponse
x__ Maybe ServerReflectionResponse'MessageResponse
y__
              -> ServerReflectionResponse
x__ {_ServerReflectionResponse'messageResponse = y__}))
        ((Maybe ServerReflectionResponse'MessageResponse
 -> Maybe FileDescriptorResponse)
-> (Maybe ServerReflectionResponse'MessageResponse
    -> Maybe FileDescriptorResponse
    -> Maybe ServerReflectionResponse'MessageResponse)
-> Lens
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe FileDescriptorResponse)
     (Maybe FileDescriptorResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ServerReflectionResponse'MessageResponse
x__
              -> case Maybe ServerReflectionResponse'MessageResponse
x__ of
                   (Prelude.Just (ServerReflectionResponse'FileDescriptorResponse FileDescriptorResponse
x__val))
                     -> FileDescriptorResponse -> Maybe FileDescriptorResponse
forall a. a -> Maybe a
Prelude.Just FileDescriptorResponse
x__val
                   Maybe ServerReflectionResponse'MessageResponse
_otherwise -> Maybe FileDescriptorResponse
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ServerReflectionResponse'MessageResponse
_ Maybe FileDescriptorResponse
y__
              -> (FileDescriptorResponse
 -> ServerReflectionResponse'MessageResponse)
-> Maybe FileDescriptorResponse
-> Maybe ServerReflectionResponse'MessageResponse
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                   FileDescriptorResponse -> ServerReflectionResponse'MessageResponse
ServerReflectionResponse'FileDescriptorResponse Maybe FileDescriptorResponse
y__))
instance Data.ProtoLens.Field.HasField ServerReflectionResponse "fileDescriptorResponse" FileDescriptorResponse where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "fileDescriptorResponse"
-> (FileDescriptorResponse -> f FileDescriptorResponse)
-> ServerReflectionResponse
-> f ServerReflectionResponse
fieldOf Proxy# "fileDescriptorResponse"
_
    = ((Maybe ServerReflectionResponse'MessageResponse
  -> f (Maybe ServerReflectionResponse'MessageResponse))
 -> ServerReflectionResponse -> f ServerReflectionResponse)
-> ((FileDescriptorResponse -> f FileDescriptorResponse)
    -> Maybe ServerReflectionResponse'MessageResponse
    -> f (Maybe ServerReflectionResponse'MessageResponse))
-> (FileDescriptorResponse -> f FileDescriptorResponse)
-> ServerReflectionResponse
-> f ServerReflectionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionResponse
 -> Maybe ServerReflectionResponse'MessageResponse)
-> (ServerReflectionResponse
    -> Maybe ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse)
-> Lens
     ServerReflectionResponse
     ServerReflectionResponse
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionResponse
-> Maybe ServerReflectionResponse'MessageResponse
_ServerReflectionResponse'messageResponse
           (\ ServerReflectionResponse
x__ Maybe ServerReflectionResponse'MessageResponse
y__
              -> ServerReflectionResponse
x__ {_ServerReflectionResponse'messageResponse = y__}))
        (((Maybe FileDescriptorResponse -> f (Maybe FileDescriptorResponse))
 -> Maybe ServerReflectionResponse'MessageResponse
 -> f (Maybe ServerReflectionResponse'MessageResponse))
-> ((FileDescriptorResponse -> f FileDescriptorResponse)
    -> Maybe FileDescriptorResponse
    -> f (Maybe FileDescriptorResponse))
-> (FileDescriptorResponse -> f FileDescriptorResponse)
-> Maybe ServerReflectionResponse'MessageResponse
-> f (Maybe ServerReflectionResponse'MessageResponse)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ServerReflectionResponse'MessageResponse
 -> Maybe FileDescriptorResponse)
-> (Maybe ServerReflectionResponse'MessageResponse
    -> Maybe FileDescriptorResponse
    -> Maybe ServerReflectionResponse'MessageResponse)
-> Lens
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe FileDescriptorResponse)
     (Maybe FileDescriptorResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ServerReflectionResponse'MessageResponse
x__
                 -> case Maybe ServerReflectionResponse'MessageResponse
x__ of
                      (Prelude.Just (ServerReflectionResponse'FileDescriptorResponse FileDescriptorResponse
x__val))
                        -> FileDescriptorResponse -> Maybe FileDescriptorResponse
forall a. a -> Maybe a
Prelude.Just FileDescriptorResponse
x__val
                      Maybe ServerReflectionResponse'MessageResponse
_otherwise -> Maybe FileDescriptorResponse
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ServerReflectionResponse'MessageResponse
_ Maybe FileDescriptorResponse
y__
                 -> (FileDescriptorResponse
 -> ServerReflectionResponse'MessageResponse)
-> Maybe FileDescriptorResponse
-> Maybe ServerReflectionResponse'MessageResponse
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                      FileDescriptorResponse -> ServerReflectionResponse'MessageResponse
ServerReflectionResponse'FileDescriptorResponse Maybe FileDescriptorResponse
y__))
           (FileDescriptorResponse
-> Lens' (Maybe FileDescriptorResponse) FileDescriptorResponse
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FileDescriptorResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ServerReflectionResponse "maybe'allExtensionNumbersResponse" (Prelude.Maybe ExtensionNumberResponse) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'allExtensionNumbersResponse"
-> (Maybe ExtensionNumberResponse
    -> f (Maybe ExtensionNumberResponse))
-> ServerReflectionResponse
-> f ServerReflectionResponse
fieldOf Proxy# "maybe'allExtensionNumbersResponse"
_
    = ((Maybe ServerReflectionResponse'MessageResponse
  -> f (Maybe ServerReflectionResponse'MessageResponse))
 -> ServerReflectionResponse -> f ServerReflectionResponse)
-> ((Maybe ExtensionNumberResponse
     -> f (Maybe ExtensionNumberResponse))
    -> Maybe ServerReflectionResponse'MessageResponse
    -> f (Maybe ServerReflectionResponse'MessageResponse))
-> (Maybe ExtensionNumberResponse
    -> f (Maybe ExtensionNumberResponse))
-> ServerReflectionResponse
-> f ServerReflectionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionResponse
 -> Maybe ServerReflectionResponse'MessageResponse)
-> (ServerReflectionResponse
    -> Maybe ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse)
-> Lens
     ServerReflectionResponse
     ServerReflectionResponse
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionResponse
-> Maybe ServerReflectionResponse'MessageResponse
_ServerReflectionResponse'messageResponse
           (\ ServerReflectionResponse
x__ Maybe ServerReflectionResponse'MessageResponse
y__
              -> ServerReflectionResponse
x__ {_ServerReflectionResponse'messageResponse = y__}))
        ((Maybe ServerReflectionResponse'MessageResponse
 -> Maybe ExtensionNumberResponse)
-> (Maybe ServerReflectionResponse'MessageResponse
    -> Maybe ExtensionNumberResponse
    -> Maybe ServerReflectionResponse'MessageResponse)
-> Lens
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ExtensionNumberResponse)
     (Maybe ExtensionNumberResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ServerReflectionResponse'MessageResponse
x__
              -> case Maybe ServerReflectionResponse'MessageResponse
x__ of
                   (Prelude.Just (ServerReflectionResponse'AllExtensionNumbersResponse ExtensionNumberResponse
x__val))
                     -> ExtensionNumberResponse -> Maybe ExtensionNumberResponse
forall a. a -> Maybe a
Prelude.Just ExtensionNumberResponse
x__val
                   Maybe ServerReflectionResponse'MessageResponse
_otherwise -> Maybe ExtensionNumberResponse
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ServerReflectionResponse'MessageResponse
_ Maybe ExtensionNumberResponse
y__
              -> (ExtensionNumberResponse
 -> ServerReflectionResponse'MessageResponse)
-> Maybe ExtensionNumberResponse
-> Maybe ServerReflectionResponse'MessageResponse
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                   ExtensionNumberResponse -> ServerReflectionResponse'MessageResponse
ServerReflectionResponse'AllExtensionNumbersResponse Maybe ExtensionNumberResponse
y__))
instance Data.ProtoLens.Field.HasField ServerReflectionResponse "allExtensionNumbersResponse" ExtensionNumberResponse where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "allExtensionNumbersResponse"
-> (ExtensionNumberResponse -> f ExtensionNumberResponse)
-> ServerReflectionResponse
-> f ServerReflectionResponse
fieldOf Proxy# "allExtensionNumbersResponse"
_
    = ((Maybe ServerReflectionResponse'MessageResponse
  -> f (Maybe ServerReflectionResponse'MessageResponse))
 -> ServerReflectionResponse -> f ServerReflectionResponse)
-> ((ExtensionNumberResponse -> f ExtensionNumberResponse)
    -> Maybe ServerReflectionResponse'MessageResponse
    -> f (Maybe ServerReflectionResponse'MessageResponse))
-> (ExtensionNumberResponse -> f ExtensionNumberResponse)
-> ServerReflectionResponse
-> f ServerReflectionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionResponse
 -> Maybe ServerReflectionResponse'MessageResponse)
-> (ServerReflectionResponse
    -> Maybe ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse)
-> Lens
     ServerReflectionResponse
     ServerReflectionResponse
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionResponse
-> Maybe ServerReflectionResponse'MessageResponse
_ServerReflectionResponse'messageResponse
           (\ ServerReflectionResponse
x__ Maybe ServerReflectionResponse'MessageResponse
y__
              -> ServerReflectionResponse
x__ {_ServerReflectionResponse'messageResponse = y__}))
        (((Maybe ExtensionNumberResponse
  -> f (Maybe ExtensionNumberResponse))
 -> Maybe ServerReflectionResponse'MessageResponse
 -> f (Maybe ServerReflectionResponse'MessageResponse))
-> ((ExtensionNumberResponse -> f ExtensionNumberResponse)
    -> Maybe ExtensionNumberResponse
    -> f (Maybe ExtensionNumberResponse))
-> (ExtensionNumberResponse -> f ExtensionNumberResponse)
-> Maybe ServerReflectionResponse'MessageResponse
-> f (Maybe ServerReflectionResponse'MessageResponse)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ServerReflectionResponse'MessageResponse
 -> Maybe ExtensionNumberResponse)
-> (Maybe ServerReflectionResponse'MessageResponse
    -> Maybe ExtensionNumberResponse
    -> Maybe ServerReflectionResponse'MessageResponse)
-> Lens
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ExtensionNumberResponse)
     (Maybe ExtensionNumberResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ServerReflectionResponse'MessageResponse
x__
                 -> case Maybe ServerReflectionResponse'MessageResponse
x__ of
                      (Prelude.Just (ServerReflectionResponse'AllExtensionNumbersResponse ExtensionNumberResponse
x__val))
                        -> ExtensionNumberResponse -> Maybe ExtensionNumberResponse
forall a. a -> Maybe a
Prelude.Just ExtensionNumberResponse
x__val
                      Maybe ServerReflectionResponse'MessageResponse
_otherwise -> Maybe ExtensionNumberResponse
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ServerReflectionResponse'MessageResponse
_ Maybe ExtensionNumberResponse
y__
                 -> (ExtensionNumberResponse
 -> ServerReflectionResponse'MessageResponse)
-> Maybe ExtensionNumberResponse
-> Maybe ServerReflectionResponse'MessageResponse
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                      ExtensionNumberResponse -> ServerReflectionResponse'MessageResponse
ServerReflectionResponse'AllExtensionNumbersResponse Maybe ExtensionNumberResponse
y__))
           (ExtensionNumberResponse
-> Lens' (Maybe ExtensionNumberResponse) ExtensionNumberResponse
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ExtensionNumberResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ServerReflectionResponse "maybe'listServicesResponse" (Prelude.Maybe ListServiceResponse) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'listServicesResponse"
-> (Maybe ListServiceResponse -> f (Maybe ListServiceResponse))
-> ServerReflectionResponse
-> f ServerReflectionResponse
fieldOf Proxy# "maybe'listServicesResponse"
_
    = ((Maybe ServerReflectionResponse'MessageResponse
  -> f (Maybe ServerReflectionResponse'MessageResponse))
 -> ServerReflectionResponse -> f ServerReflectionResponse)
-> ((Maybe ListServiceResponse -> f (Maybe ListServiceResponse))
    -> Maybe ServerReflectionResponse'MessageResponse
    -> f (Maybe ServerReflectionResponse'MessageResponse))
-> (Maybe ListServiceResponse -> f (Maybe ListServiceResponse))
-> ServerReflectionResponse
-> f ServerReflectionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionResponse
 -> Maybe ServerReflectionResponse'MessageResponse)
-> (ServerReflectionResponse
    -> Maybe ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse)
-> Lens
     ServerReflectionResponse
     ServerReflectionResponse
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionResponse
-> Maybe ServerReflectionResponse'MessageResponse
_ServerReflectionResponse'messageResponse
           (\ ServerReflectionResponse
x__ Maybe ServerReflectionResponse'MessageResponse
y__
              -> ServerReflectionResponse
x__ {_ServerReflectionResponse'messageResponse = y__}))
        ((Maybe ServerReflectionResponse'MessageResponse
 -> Maybe ListServiceResponse)
-> (Maybe ServerReflectionResponse'MessageResponse
    -> Maybe ListServiceResponse
    -> Maybe ServerReflectionResponse'MessageResponse)
-> Lens
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ListServiceResponse)
     (Maybe ListServiceResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ServerReflectionResponse'MessageResponse
x__
              -> case Maybe ServerReflectionResponse'MessageResponse
x__ of
                   (Prelude.Just (ServerReflectionResponse'ListServicesResponse ListServiceResponse
x__val))
                     -> ListServiceResponse -> Maybe ListServiceResponse
forall a. a -> Maybe a
Prelude.Just ListServiceResponse
x__val
                   Maybe ServerReflectionResponse'MessageResponse
_otherwise -> Maybe ListServiceResponse
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ServerReflectionResponse'MessageResponse
_ Maybe ListServiceResponse
y__
              -> (ListServiceResponse -> ServerReflectionResponse'MessageResponse)
-> Maybe ListServiceResponse
-> Maybe ServerReflectionResponse'MessageResponse
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ListServiceResponse -> ServerReflectionResponse'MessageResponse
ServerReflectionResponse'ListServicesResponse Maybe ListServiceResponse
y__))
instance Data.ProtoLens.Field.HasField ServerReflectionResponse "listServicesResponse" ListServiceResponse where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "listServicesResponse"
-> (ListServiceResponse -> f ListServiceResponse)
-> ServerReflectionResponse
-> f ServerReflectionResponse
fieldOf Proxy# "listServicesResponse"
_
    = ((Maybe ServerReflectionResponse'MessageResponse
  -> f (Maybe ServerReflectionResponse'MessageResponse))
 -> ServerReflectionResponse -> f ServerReflectionResponse)
-> ((ListServiceResponse -> f ListServiceResponse)
    -> Maybe ServerReflectionResponse'MessageResponse
    -> f (Maybe ServerReflectionResponse'MessageResponse))
-> (ListServiceResponse -> f ListServiceResponse)
-> ServerReflectionResponse
-> f ServerReflectionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionResponse
 -> Maybe ServerReflectionResponse'MessageResponse)
-> (ServerReflectionResponse
    -> Maybe ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse)
-> Lens
     ServerReflectionResponse
     ServerReflectionResponse
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionResponse
-> Maybe ServerReflectionResponse'MessageResponse
_ServerReflectionResponse'messageResponse
           (\ ServerReflectionResponse
x__ Maybe ServerReflectionResponse'MessageResponse
y__
              -> ServerReflectionResponse
x__ {_ServerReflectionResponse'messageResponse = y__}))
        (((Maybe ListServiceResponse -> f (Maybe ListServiceResponse))
 -> Maybe ServerReflectionResponse'MessageResponse
 -> f (Maybe ServerReflectionResponse'MessageResponse))
-> ((ListServiceResponse -> f ListServiceResponse)
    -> Maybe ListServiceResponse -> f (Maybe ListServiceResponse))
-> (ListServiceResponse -> f ListServiceResponse)
-> Maybe ServerReflectionResponse'MessageResponse
-> f (Maybe ServerReflectionResponse'MessageResponse)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ServerReflectionResponse'MessageResponse
 -> Maybe ListServiceResponse)
-> (Maybe ServerReflectionResponse'MessageResponse
    -> Maybe ListServiceResponse
    -> Maybe ServerReflectionResponse'MessageResponse)
-> Lens
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ListServiceResponse)
     (Maybe ListServiceResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ServerReflectionResponse'MessageResponse
x__
                 -> case Maybe ServerReflectionResponse'MessageResponse
x__ of
                      (Prelude.Just (ServerReflectionResponse'ListServicesResponse ListServiceResponse
x__val))
                        -> ListServiceResponse -> Maybe ListServiceResponse
forall a. a -> Maybe a
Prelude.Just ListServiceResponse
x__val
                      Maybe ServerReflectionResponse'MessageResponse
_otherwise -> Maybe ListServiceResponse
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ServerReflectionResponse'MessageResponse
_ Maybe ListServiceResponse
y__
                 -> (ListServiceResponse -> ServerReflectionResponse'MessageResponse)
-> Maybe ListServiceResponse
-> Maybe ServerReflectionResponse'MessageResponse
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ListServiceResponse -> ServerReflectionResponse'MessageResponse
ServerReflectionResponse'ListServicesResponse Maybe ListServiceResponse
y__))
           (ListServiceResponse
-> Lens' (Maybe ListServiceResponse) ListServiceResponse
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ListServiceResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField ServerReflectionResponse "maybe'errorResponse" (Prelude.Maybe ErrorResponse) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "maybe'errorResponse"
-> (Maybe ErrorResponse -> f (Maybe ErrorResponse))
-> ServerReflectionResponse
-> f ServerReflectionResponse
fieldOf Proxy# "maybe'errorResponse"
_
    = ((Maybe ServerReflectionResponse'MessageResponse
  -> f (Maybe ServerReflectionResponse'MessageResponse))
 -> ServerReflectionResponse -> f ServerReflectionResponse)
-> ((Maybe ErrorResponse -> f (Maybe ErrorResponse))
    -> Maybe ServerReflectionResponse'MessageResponse
    -> f (Maybe ServerReflectionResponse'MessageResponse))
-> (Maybe ErrorResponse -> f (Maybe ErrorResponse))
-> ServerReflectionResponse
-> f ServerReflectionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionResponse
 -> Maybe ServerReflectionResponse'MessageResponse)
-> (ServerReflectionResponse
    -> Maybe ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse)
-> Lens
     ServerReflectionResponse
     ServerReflectionResponse
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionResponse
-> Maybe ServerReflectionResponse'MessageResponse
_ServerReflectionResponse'messageResponse
           (\ ServerReflectionResponse
x__ Maybe ServerReflectionResponse'MessageResponse
y__
              -> ServerReflectionResponse
x__ {_ServerReflectionResponse'messageResponse = y__}))
        ((Maybe ServerReflectionResponse'MessageResponse
 -> Maybe ErrorResponse)
-> (Maybe ServerReflectionResponse'MessageResponse
    -> Maybe ErrorResponse
    -> Maybe ServerReflectionResponse'MessageResponse)
-> Lens
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ErrorResponse)
     (Maybe ErrorResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ Maybe ServerReflectionResponse'MessageResponse
x__
              -> case Maybe ServerReflectionResponse'MessageResponse
x__ of
                   (Prelude.Just (ServerReflectionResponse'ErrorResponse ErrorResponse
x__val))
                     -> ErrorResponse -> Maybe ErrorResponse
forall a. a -> Maybe a
Prelude.Just ErrorResponse
x__val
                   Maybe ServerReflectionResponse'MessageResponse
_otherwise -> Maybe ErrorResponse
forall a. Maybe a
Prelude.Nothing)
           (\ Maybe ServerReflectionResponse'MessageResponse
_ Maybe ErrorResponse
y__
              -> (ErrorResponse -> ServerReflectionResponse'MessageResponse)
-> Maybe ErrorResponse
-> Maybe ServerReflectionResponse'MessageResponse
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ErrorResponse -> ServerReflectionResponse'MessageResponse
ServerReflectionResponse'ErrorResponse Maybe ErrorResponse
y__))
instance Data.ProtoLens.Field.HasField ServerReflectionResponse "errorResponse" ErrorResponse where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "errorResponse"
-> (ErrorResponse -> f ErrorResponse)
-> ServerReflectionResponse
-> f ServerReflectionResponse
fieldOf Proxy# "errorResponse"
_
    = ((Maybe ServerReflectionResponse'MessageResponse
  -> f (Maybe ServerReflectionResponse'MessageResponse))
 -> ServerReflectionResponse -> f ServerReflectionResponse)
-> ((ErrorResponse -> f ErrorResponse)
    -> Maybe ServerReflectionResponse'MessageResponse
    -> f (Maybe ServerReflectionResponse'MessageResponse))
-> (ErrorResponse -> f ErrorResponse)
-> ServerReflectionResponse
-> f ServerReflectionResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServerReflectionResponse
 -> Maybe ServerReflectionResponse'MessageResponse)
-> (ServerReflectionResponse
    -> Maybe ServerReflectionResponse'MessageResponse
    -> ServerReflectionResponse)
-> Lens
     ServerReflectionResponse
     ServerReflectionResponse
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServerReflectionResponse
-> Maybe ServerReflectionResponse'MessageResponse
_ServerReflectionResponse'messageResponse
           (\ ServerReflectionResponse
x__ Maybe ServerReflectionResponse'MessageResponse
y__
              -> ServerReflectionResponse
x__ {_ServerReflectionResponse'messageResponse = y__}))
        (((Maybe ErrorResponse -> f (Maybe ErrorResponse))
 -> Maybe ServerReflectionResponse'MessageResponse
 -> f (Maybe ServerReflectionResponse'MessageResponse))
-> ((ErrorResponse -> f ErrorResponse)
    -> Maybe ErrorResponse -> f (Maybe ErrorResponse))
-> (ErrorResponse -> f ErrorResponse)
-> Maybe ServerReflectionResponse'MessageResponse
-> f (Maybe ServerReflectionResponse'MessageResponse)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe ServerReflectionResponse'MessageResponse
 -> Maybe ErrorResponse)
-> (Maybe ServerReflectionResponse'MessageResponse
    -> Maybe ErrorResponse
    -> Maybe ServerReflectionResponse'MessageResponse)
-> Lens
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ServerReflectionResponse'MessageResponse)
     (Maybe ErrorResponse)
     (Maybe ErrorResponse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ Maybe ServerReflectionResponse'MessageResponse
x__
                 -> case Maybe ServerReflectionResponse'MessageResponse
x__ of
                      (Prelude.Just (ServerReflectionResponse'ErrorResponse ErrorResponse
x__val))
                        -> ErrorResponse -> Maybe ErrorResponse
forall a. a -> Maybe a
Prelude.Just ErrorResponse
x__val
                      Maybe ServerReflectionResponse'MessageResponse
_otherwise -> Maybe ErrorResponse
forall a. Maybe a
Prelude.Nothing)
              (\ Maybe ServerReflectionResponse'MessageResponse
_ Maybe ErrorResponse
y__
                 -> (ErrorResponse -> ServerReflectionResponse'MessageResponse)
-> Maybe ErrorResponse
-> Maybe ServerReflectionResponse'MessageResponse
forall a b. (a -> b) -> Maybe a -> Maybe b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap ErrorResponse -> ServerReflectionResponse'MessageResponse
ServerReflectionResponse'ErrorResponse Maybe ErrorResponse
y__))
           (ErrorResponse -> Lens' (Maybe ErrorResponse) ErrorResponse
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens ErrorResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message ServerReflectionResponse where
  messageName :: Proxy ServerReflectionResponse -> Text
messageName Proxy ServerReflectionResponse
_
    = String -> Text
Data.Text.pack String
"grpc.reflection.v1alpha.ServerReflectionResponse"
  packedMessageDescriptor :: Proxy ServerReflectionResponse -> ByteString
packedMessageDescriptor Proxy ServerReflectionResponse
_
    = ByteString
"\n\
      \\CANServerReflectionResponse\DC2\GS\n\
      \\n\
      \valid_host\CAN\SOH \SOH(\tR\tvalidHost\DC2[\n\
      \\DLEoriginal_request\CAN\STX \SOH(\v20.grpc.reflection.v1alpha.ServerReflectionRequestR\SIoriginalRequest\DC2k\n\
      \\CANfile_descriptor_response\CAN\EOT \SOH(\v2/.grpc.reflection.v1alpha.FileDescriptorResponseH\NULR\SYNfileDescriptorResponse\DC2w\n\
      \\RSall_extension_numbers_response\CAN\ENQ \SOH(\v20.grpc.reflection.v1alpha.ExtensionNumberResponseH\NULR\ESCallExtensionNumbersResponse\DC2d\n\
      \\SYNlist_services_response\CAN\ACK \SOH(\v2,.grpc.reflection.v1alpha.ListServiceResponseH\NULR\DC4listServicesResponse\DC2O\n\
      \\SOerror_response\CAN\a \SOH(\v2&.grpc.reflection.v1alpha.ErrorResponseH\NULR\rerrorResponseB\DC2\n\
      \\DLEmessage_response"
  packedFileDescriptor :: Proxy ServerReflectionResponse -> ByteString
packedFileDescriptor Proxy ServerReflectionResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ServerReflectionResponse)
fieldsByTag
    = let
        validHost__field_descriptor :: FieldDescriptor ServerReflectionResponse
validHost__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ServerReflectionResponse Text
-> FieldDescriptor ServerReflectionResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"valid_host"
              (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 ServerReflectionResponse ServerReflectionResponse Text Text
-> FieldAccessor ServerReflectionResponse Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"validHost")) ::
              Data.ProtoLens.FieldDescriptor ServerReflectionResponse
        originalRequest__field_descriptor :: FieldDescriptor ServerReflectionResponse
originalRequest__field_descriptor
          = String
-> FieldTypeDescriptor ServerReflectionRequest
-> FieldAccessor ServerReflectionResponse ServerReflectionRequest
-> FieldDescriptor ServerReflectionResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"original_request"
              (MessageOrGroup -> FieldTypeDescriptor ServerReflectionRequest
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ServerReflectionRequest)
              (Lens
  ServerReflectionResponse
  ServerReflectionResponse
  (Maybe ServerReflectionRequest)
  (Maybe ServerReflectionRequest)
-> FieldAccessor ServerReflectionResponse ServerReflectionRequest
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'originalRequest")) ::
              Data.ProtoLens.FieldDescriptor ServerReflectionResponse
        fileDescriptorResponse__field_descriptor :: FieldDescriptor ServerReflectionResponse
fileDescriptorResponse__field_descriptor
          = String
-> FieldTypeDescriptor FileDescriptorResponse
-> FieldAccessor ServerReflectionResponse FileDescriptorResponse
-> FieldDescriptor ServerReflectionResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"file_descriptor_response"
              (MessageOrGroup -> FieldTypeDescriptor FileDescriptorResponse
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor FileDescriptorResponse)
              (Lens' ServerReflectionResponse (Maybe FileDescriptorResponse)
-> FieldAccessor ServerReflectionResponse FileDescriptorResponse
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'fileDescriptorResponse")) ::
              Data.ProtoLens.FieldDescriptor ServerReflectionResponse
        allExtensionNumbersResponse__field_descriptor :: FieldDescriptor ServerReflectionResponse
allExtensionNumbersResponse__field_descriptor
          = String
-> FieldTypeDescriptor ExtensionNumberResponse
-> FieldAccessor ServerReflectionResponse ExtensionNumberResponse
-> FieldDescriptor ServerReflectionResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"all_extension_numbers_response"
              (MessageOrGroup -> FieldTypeDescriptor ExtensionNumberResponse
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ExtensionNumberResponse)
              (Lens' ServerReflectionResponse (Maybe ExtensionNumberResponse)
-> FieldAccessor ServerReflectionResponse ExtensionNumberResponse
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
                    @"maybe'allExtensionNumbersResponse")) ::
              Data.ProtoLens.FieldDescriptor ServerReflectionResponse
        listServicesResponse__field_descriptor :: FieldDescriptor ServerReflectionResponse
listServicesResponse__field_descriptor
          = String
-> FieldTypeDescriptor ListServiceResponse
-> FieldAccessor ServerReflectionResponse ListServiceResponse
-> FieldDescriptor ServerReflectionResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"list_services_response"
              (MessageOrGroup -> FieldTypeDescriptor ListServiceResponse
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ListServiceResponse)
              (Lens' ServerReflectionResponse (Maybe ListServiceResponse)
-> FieldAccessor ServerReflectionResponse ListServiceResponse
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'listServicesResponse")) ::
              Data.ProtoLens.FieldDescriptor ServerReflectionResponse
        errorResponse__field_descriptor :: FieldDescriptor ServerReflectionResponse
errorResponse__field_descriptor
          = String
-> FieldTypeDescriptor ErrorResponse
-> FieldAccessor ServerReflectionResponse ErrorResponse
-> FieldDescriptor ServerReflectionResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"error_response"
              (MessageOrGroup -> FieldTypeDescriptor ErrorResponse
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor ErrorResponse)
              (Lens' ServerReflectionResponse (Maybe ErrorResponse)
-> FieldAccessor ServerReflectionResponse ErrorResponse
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'errorResponse")) ::
              Data.ProtoLens.FieldDescriptor ServerReflectionResponse
      in
        [(Tag, FieldDescriptor ServerReflectionResponse)]
-> Map Tag (FieldDescriptor ServerReflectionResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ServerReflectionResponse
validHost__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor ServerReflectionResponse
originalRequest__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor ServerReflectionResponse
fileDescriptorResponse__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, 
            FieldDescriptor ServerReflectionResponse
allExtensionNumbersResponse__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor ServerReflectionResponse
listServicesResponse__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor ServerReflectionResponse
errorResponse__field_descriptor)]
  unknownFields :: Lens' ServerReflectionResponse FieldSet
unknownFields
    = (ServerReflectionResponse -> FieldSet)
-> (ServerReflectionResponse
    -> FieldSet -> ServerReflectionResponse)
-> Lens' ServerReflectionResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ServerReflectionResponse -> FieldSet
_ServerReflectionResponse'_unknownFields
        (\ ServerReflectionResponse
x__ FieldSet
y__ -> ServerReflectionResponse
x__ {_ServerReflectionResponse'_unknownFields = y__})
  defMessage :: ServerReflectionResponse
defMessage
    = ServerReflectionResponse'_constructor
        {_ServerReflectionResponse'validHost :: Text
_ServerReflectionResponse'validHost = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ServerReflectionResponse'originalRequest :: Maybe ServerReflectionRequest
_ServerReflectionResponse'originalRequest = Maybe ServerReflectionRequest
forall a. Maybe a
Prelude.Nothing,
         _ServerReflectionResponse'messageResponse :: Maybe ServerReflectionResponse'MessageResponse
_ServerReflectionResponse'messageResponse = Maybe ServerReflectionResponse'MessageResponse
forall a. Maybe a
Prelude.Nothing,
         _ServerReflectionResponse'_unknownFields :: FieldSet
_ServerReflectionResponse'_unknownFields = []}
  parseMessage :: Parser ServerReflectionResponse
parseMessage
    = let
        loop ::
          ServerReflectionResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser ServerReflectionResponse
        loop :: ServerReflectionResponse -> Parser ServerReflectionResponse
loop ServerReflectionResponse
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"valid_host"
                                loop
                                  (Lens.Family2.set (Data.ProtoLens.Field.field @"validHost") y x)
                        Word64
18
                          -> do y <- Parser ServerReflectionRequest
-> String -> Parser ServerReflectionRequest
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"original_request"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"originalRequest") y x)
                        Word64
34
                          -> do y <- Parser FileDescriptorResponse
-> String -> Parser FileDescriptorResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"file_descriptor_response"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"fileDescriptorResponse") y x)
                        Word64
42
                          -> do y <- Parser ExtensionNumberResponse
-> String -> Parser ExtensionNumberResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"all_extension_numbers_response"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"allExtensionNumbersResponse") y
                                     x)
                        Word64
50
                          -> do y <- Parser ListServiceResponse -> String -> Parser ListServiceResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"list_services_response"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"listServicesResponse") y x)
                        Word64
58
                          -> do y <- Parser ErrorResponse -> String -> Parser ErrorResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.isolate
                                             (Prelude.fromIntegral len) Data.ProtoLens.parseMessage)
                                       String
"error_response"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"errorResponse") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser ServerReflectionResponse
-> String -> Parser ServerReflectionResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ServerReflectionResponse -> Parser ServerReflectionResponse
loop ServerReflectionResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ServerReflectionResponse"
  buildMessage :: ServerReflectionResponse -> Builder
buildMessage
    = \ ServerReflectionResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike
  Text ServerReflectionResponse ServerReflectionResponse Text Text
-> ServerReflectionResponse -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"validHost") ServerReflectionResponse
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault 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 Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ 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 ServerReflectionRequest)
  ServerReflectionResponse
  ServerReflectionResponse
  (Maybe ServerReflectionRequest)
  (Maybe ServerReflectionRequest)
-> ServerReflectionResponse -> Maybe ServerReflectionRequest
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                       (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'originalRequest") ServerReflectionResponse
_x
                 of
                   Maybe ServerReflectionRequest
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just ServerReflectionRequest
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
18)
                          ((ByteString -> Builder)
-> (ServerReflectionRequest -> ByteString)
-> ServerReflectionRequest
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ 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))
                             ServerReflectionRequest -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ServerReflectionRequest
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe ServerReflectionResponse'MessageResponse)
  ServerReflectionResponse
  ServerReflectionResponse
  (Maybe ServerReflectionResponse'MessageResponse)
  (Maybe ServerReflectionResponse'MessageResponse)
-> ServerReflectionResponse
-> Maybe ServerReflectionResponse'MessageResponse
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'messageResponse") ServerReflectionResponse
_x
                    of
                      Maybe ServerReflectionResponse'MessageResponse
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just (ServerReflectionResponse'FileDescriptorResponse FileDescriptorResponse
v))
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                             ((ByteString -> Builder)
-> (FileDescriptorResponse -> ByteString)
-> FileDescriptorResponse
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ 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))
                                FileDescriptorResponse -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage FileDescriptorResponse
v)
                      (Prelude.Just (ServerReflectionResponse'AllExtensionNumbersResponse ExtensionNumberResponse
v))
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
                             ((ByteString -> Builder)
-> (ExtensionNumberResponse -> ByteString)
-> ExtensionNumberResponse
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ 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))
                                ExtensionNumberResponse -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ExtensionNumberResponse
v)
                      (Prelude.Just (ServerReflectionResponse'ListServicesResponse ListServiceResponse
v))
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
50)
                             ((ByteString -> Builder)
-> (ListServiceResponse -> ByteString)
-> ListServiceResponse
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ 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))
                                ListServiceResponse -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ListServiceResponse
v)
                      (Prelude.Just (ServerReflectionResponse'ErrorResponse ErrorResponse
v))
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
58)
                             ((ByteString -> Builder)
-> (ErrorResponse -> ByteString) -> ErrorResponse -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ 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))
                                ErrorResponse -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage ErrorResponse
v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet
  ServerReflectionResponse
  ServerReflectionResponse
  FieldSet
  FieldSet
-> ServerReflectionResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ServerReflectionResponse
  ServerReflectionResponse
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ServerReflectionResponse FieldSet
Data.ProtoLens.unknownFields ServerReflectionResponse
_x))))
instance Control.DeepSeq.NFData ServerReflectionResponse where
  rnf :: ServerReflectionResponse -> ()
rnf
    = \ ServerReflectionResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ServerReflectionResponse -> FieldSet
_ServerReflectionResponse'_unknownFields ServerReflectionResponse
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (ServerReflectionResponse -> Text
_ServerReflectionResponse'validHost ServerReflectionResponse
x__)
                (Maybe ServerReflectionRequest -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (ServerReflectionResponse -> Maybe ServerReflectionRequest
_ServerReflectionResponse'originalRequest ServerReflectionResponse
x__)
                   (Maybe ServerReflectionResponse'MessageResponse -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (ServerReflectionResponse
-> Maybe ServerReflectionResponse'MessageResponse
_ServerReflectionResponse'messageResponse ServerReflectionResponse
x__) ())))
instance Control.DeepSeq.NFData ServerReflectionResponse'MessageResponse where
  rnf :: ServerReflectionResponse'MessageResponse -> ()
rnf (ServerReflectionResponse'FileDescriptorResponse FileDescriptorResponse
x__)
    = FileDescriptorResponse -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf FileDescriptorResponse
x__
  rnf (ServerReflectionResponse'AllExtensionNumbersResponse ExtensionNumberResponse
x__)
    = ExtensionNumberResponse -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ExtensionNumberResponse
x__
  rnf (ServerReflectionResponse'ListServicesResponse ListServiceResponse
x__)
    = ListServiceResponse -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ListServiceResponse
x__
  rnf (ServerReflectionResponse'ErrorResponse ErrorResponse
x__)
    = ErrorResponse -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf ErrorResponse
x__
_ServerReflectionResponse'FileDescriptorResponse ::
  Data.ProtoLens.Prism.Prism' ServerReflectionResponse'MessageResponse FileDescriptorResponse
_ServerReflectionResponse'FileDescriptorResponse :: Prism'
  ServerReflectionResponse'MessageResponse FileDescriptorResponse
_ServerReflectionResponse'FileDescriptorResponse
  = (FileDescriptorResponse
 -> ServerReflectionResponse'MessageResponse)
-> (ServerReflectionResponse'MessageResponse
    -> Maybe FileDescriptorResponse)
-> Prism'
     ServerReflectionResponse'MessageResponse FileDescriptorResponse
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      FileDescriptorResponse -> ServerReflectionResponse'MessageResponse
ServerReflectionResponse'FileDescriptorResponse
      (\ ServerReflectionResponse'MessageResponse
p__
         -> case ServerReflectionResponse'MessageResponse
p__ of
              (ServerReflectionResponse'FileDescriptorResponse FileDescriptorResponse
p__val)
                -> FileDescriptorResponse -> Maybe FileDescriptorResponse
forall a. a -> Maybe a
Prelude.Just FileDescriptorResponse
p__val
              ServerReflectionResponse'MessageResponse
_otherwise -> Maybe FileDescriptorResponse
forall a. Maybe a
Prelude.Nothing)
_ServerReflectionResponse'AllExtensionNumbersResponse ::
  Data.ProtoLens.Prism.Prism' ServerReflectionResponse'MessageResponse ExtensionNumberResponse
_ServerReflectionResponse'AllExtensionNumbersResponse :: Prism'
  ServerReflectionResponse'MessageResponse ExtensionNumberResponse
_ServerReflectionResponse'AllExtensionNumbersResponse
  = (ExtensionNumberResponse
 -> ServerReflectionResponse'MessageResponse)
-> (ServerReflectionResponse'MessageResponse
    -> Maybe ExtensionNumberResponse)
-> Prism'
     ServerReflectionResponse'MessageResponse ExtensionNumberResponse
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ExtensionNumberResponse -> ServerReflectionResponse'MessageResponse
ServerReflectionResponse'AllExtensionNumbersResponse
      (\ ServerReflectionResponse'MessageResponse
p__
         -> case ServerReflectionResponse'MessageResponse
p__ of
              (ServerReflectionResponse'AllExtensionNumbersResponse ExtensionNumberResponse
p__val)
                -> ExtensionNumberResponse -> Maybe ExtensionNumberResponse
forall a. a -> Maybe a
Prelude.Just ExtensionNumberResponse
p__val
              ServerReflectionResponse'MessageResponse
_otherwise -> Maybe ExtensionNumberResponse
forall a. Maybe a
Prelude.Nothing)
_ServerReflectionResponse'ListServicesResponse ::
  Data.ProtoLens.Prism.Prism' ServerReflectionResponse'MessageResponse ListServiceResponse
_ServerReflectionResponse'ListServicesResponse :: Prism' ServerReflectionResponse'MessageResponse ListServiceResponse
_ServerReflectionResponse'ListServicesResponse
  = (ListServiceResponse -> ServerReflectionResponse'MessageResponse)
-> (ServerReflectionResponse'MessageResponse
    -> Maybe ListServiceResponse)
-> Prism'
     ServerReflectionResponse'MessageResponse ListServiceResponse
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ListServiceResponse -> ServerReflectionResponse'MessageResponse
ServerReflectionResponse'ListServicesResponse
      (\ ServerReflectionResponse'MessageResponse
p__
         -> case ServerReflectionResponse'MessageResponse
p__ of
              (ServerReflectionResponse'ListServicesResponse ListServiceResponse
p__val)
                -> ListServiceResponse -> Maybe ListServiceResponse
forall a. a -> Maybe a
Prelude.Just ListServiceResponse
p__val
              ServerReflectionResponse'MessageResponse
_otherwise -> Maybe ListServiceResponse
forall a. Maybe a
Prelude.Nothing)
_ServerReflectionResponse'ErrorResponse ::
  Data.ProtoLens.Prism.Prism' ServerReflectionResponse'MessageResponse ErrorResponse
_ServerReflectionResponse'ErrorResponse :: Prism' ServerReflectionResponse'MessageResponse ErrorResponse
_ServerReflectionResponse'ErrorResponse
  = (ErrorResponse -> ServerReflectionResponse'MessageResponse)
-> (ServerReflectionResponse'MessageResponse
    -> Maybe ErrorResponse)
-> Prism' ServerReflectionResponse'MessageResponse ErrorResponse
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      ErrorResponse -> ServerReflectionResponse'MessageResponse
ServerReflectionResponse'ErrorResponse
      (\ ServerReflectionResponse'MessageResponse
p__
         -> case ServerReflectionResponse'MessageResponse
p__ of
              (ServerReflectionResponse'ErrorResponse ErrorResponse
p__val)
                -> ErrorResponse -> Maybe ErrorResponse
forall a. a -> Maybe a
Prelude.Just ErrorResponse
p__val
              ServerReflectionResponse'MessageResponse
_otherwise -> Maybe ErrorResponse
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Grpc.Reflection.V1alpha.Reflection_Fields.name' @:: Lens' ServiceResponse Data.Text.Text@ -}
data ServiceResponse
  = ServiceResponse'_constructor {ServiceResponse -> Text
_ServiceResponse'name :: !Data.Text.Text,
                                  ServiceResponse -> FieldSet
_ServiceResponse'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ServiceResponse -> ServiceResponse -> Bool
(ServiceResponse -> ServiceResponse -> Bool)
-> (ServiceResponse -> ServiceResponse -> Bool)
-> Eq ServiceResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ServiceResponse -> ServiceResponse -> Bool
== :: ServiceResponse -> ServiceResponse -> Bool
$c/= :: ServiceResponse -> ServiceResponse -> Bool
/= :: ServiceResponse -> ServiceResponse -> Bool
Prelude.Eq, Eq ServiceResponse
Eq ServiceResponse =>
(ServiceResponse -> ServiceResponse -> Ordering)
-> (ServiceResponse -> ServiceResponse -> Bool)
-> (ServiceResponse -> ServiceResponse -> Bool)
-> (ServiceResponse -> ServiceResponse -> Bool)
-> (ServiceResponse -> ServiceResponse -> Bool)
-> (ServiceResponse -> ServiceResponse -> ServiceResponse)
-> (ServiceResponse -> ServiceResponse -> ServiceResponse)
-> Ord ServiceResponse
ServiceResponse -> ServiceResponse -> Bool
ServiceResponse -> ServiceResponse -> Ordering
ServiceResponse -> ServiceResponse -> ServiceResponse
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
$ccompare :: ServiceResponse -> ServiceResponse -> Ordering
compare :: ServiceResponse -> ServiceResponse -> Ordering
$c< :: ServiceResponse -> ServiceResponse -> Bool
< :: ServiceResponse -> ServiceResponse -> Bool
$c<= :: ServiceResponse -> ServiceResponse -> Bool
<= :: ServiceResponse -> ServiceResponse -> Bool
$c> :: ServiceResponse -> ServiceResponse -> Bool
> :: ServiceResponse -> ServiceResponse -> Bool
$c>= :: ServiceResponse -> ServiceResponse -> Bool
>= :: ServiceResponse -> ServiceResponse -> Bool
$cmax :: ServiceResponse -> ServiceResponse -> ServiceResponse
max :: ServiceResponse -> ServiceResponse -> ServiceResponse
$cmin :: ServiceResponse -> ServiceResponse -> ServiceResponse
min :: ServiceResponse -> ServiceResponse -> ServiceResponse
Prelude.Ord)
instance Prelude.Show ServiceResponse where
  showsPrec :: Int -> ServiceResponse -> ShowS
showsPrec Int
_ ServiceResponse
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (ServiceResponse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ServiceResponse
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField ServiceResponse "name" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "name"
-> (Text -> f Text) -> ServiceResponse -> f ServiceResponse
fieldOf Proxy# "name"
_
    = ((Text -> f Text) -> ServiceResponse -> f ServiceResponse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ServiceResponse
-> f ServiceResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ServiceResponse -> Text)
-> (ServiceResponse -> Text -> ServiceResponse)
-> Lens ServiceResponse ServiceResponse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ServiceResponse -> Text
_ServiceResponse'name
           (\ ServiceResponse
x__ Text
y__ -> ServiceResponse
x__ {_ServiceResponse'name = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ServiceResponse where
  messageName :: Proxy ServiceResponse -> Text
messageName Proxy ServiceResponse
_
    = String -> Text
Data.Text.pack String
"grpc.reflection.v1alpha.ServiceResponse"
  packedMessageDescriptor :: Proxy ServiceResponse -> ByteString
packedMessageDescriptor Proxy ServiceResponse
_
    = ByteString
"\n\
      \\SIServiceResponse\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname"
  packedFileDescriptor :: Proxy ServiceResponse -> ByteString
packedFileDescriptor Proxy ServiceResponse
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ServiceResponse)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor ServiceResponse
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor ServiceResponse Text
-> FieldDescriptor ServiceResponse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"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)
              (WireDefault Text
-> Lens ServiceResponse ServiceResponse Text Text
-> FieldAccessor ServiceResponse Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (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 ServiceResponse
      in
        [(Tag, FieldDescriptor ServiceResponse)]
-> Map Tag (FieldDescriptor ServiceResponse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor ServiceResponse
name__field_descriptor)]
  unknownFields :: Lens' ServiceResponse FieldSet
unknownFields
    = (ServiceResponse -> FieldSet)
-> (ServiceResponse -> FieldSet -> ServiceResponse)
-> Lens' ServiceResponse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ServiceResponse -> FieldSet
_ServiceResponse'_unknownFields
        (\ ServiceResponse
x__ FieldSet
y__ -> ServiceResponse
x__ {_ServiceResponse'_unknownFields = y__})
  defMessage :: ServiceResponse
defMessage
    = ServiceResponse'_constructor
        {_ServiceResponse'name :: Text
_ServiceResponse'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _ServiceResponse'_unknownFields :: FieldSet
_ServiceResponse'_unknownFields = []}
  parseMessage :: Parser ServiceResponse
parseMessage
    = let
        loop ::
          ServiceResponse
          -> Data.ProtoLens.Encoding.Bytes.Parser ServiceResponse
        loop :: ServiceResponse -> Parser ServiceResponse
loop ServiceResponse
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"name"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser ServiceResponse -> String -> Parser ServiceResponse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do ServiceResponse -> Parser ServiceResponse
loop ServiceResponse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"ServiceResponse"
  buildMessage :: ServiceResponse -> Builder
buildMessage
    = \ ServiceResponse
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text ServiceResponse ServiceResponse Text Text
-> ServiceResponse -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") ServiceResponse
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault 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 Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ 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 ServiceResponse ServiceResponse FieldSet FieldSet
-> ServiceResponse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ServiceResponse ServiceResponse FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' ServiceResponse FieldSet
Data.ProtoLens.unknownFields ServiceResponse
_x))
instance Control.DeepSeq.NFData ServiceResponse where
  rnf :: ServiceResponse -> ()
rnf
    = \ ServiceResponse
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ServiceResponse -> FieldSet
_ServiceResponse'_unknownFields ServiceResponse
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ServiceResponse -> Text
_ServiceResponse'name ServiceResponse
x__) ())
data ServerReflection = ServerReflection {}
instance Data.ProtoLens.Service.Types.Service ServerReflection where
  type ServiceName ServerReflection = "ServerReflection"
  type ServicePackage ServerReflection = "grpc.reflection.v1alpha"
  type ServiceMethods ServerReflection = '["serverReflectionInfo"]
  packedServiceDescriptor :: Proxy ServerReflection -> ByteString
packedServiceDescriptor Proxy ServerReflection
_
    = ByteString
"\n\
      \\DLEServerReflection\DC2\DEL\n\
      \\DC4ServerReflectionInfo\DC20.grpc.reflection.v1alpha.ServerReflectionRequest\SUB1.grpc.reflection.v1alpha.ServerReflectionResponse(\SOH0\SOH"
instance Data.ProtoLens.Service.Types.HasMethodImpl ServerReflection "serverReflectionInfo" where
  type MethodName ServerReflection "serverReflectionInfo" = "ServerReflectionInfo"
  type MethodInput ServerReflection "serverReflectionInfo" = ServerReflectionRequest
  type MethodOutput ServerReflection "serverReflectionInfo" = ServerReflectionResponse
  type MethodStreamingType ServerReflection "serverReflectionInfo" = 'Data.ProtoLens.Service.Types.BiDiStreaming
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \(grpc/reflection/v1alpha/reflection.proto\DC2\ETBgrpc.reflection.v1alpha\"\248\STX\n\
    \\ETBServerReflectionRequest\DC2\DC2\n\
    \\EOThost\CAN\SOH \SOH(\tR\EOThost\DC2*\n\
    \\DLEfile_by_filename\CAN\ETX \SOH(\tH\NULR\SOfileByFilename\DC26\n\
    \\SYNfile_containing_symbol\CAN\EOT \SOH(\tH\NULR\DC4fileContainingSymbol\DC2g\n\
    \\EMfile_containing_extension\CAN\ENQ \SOH(\v2).grpc.reflection.v1alpha.ExtensionRequestH\NULR\ETBfileContainingExtension\DC2B\n\
    \\GSall_extension_numbers_of_type\CAN\ACK \SOH(\tH\NULR\EMallExtensionNumbersOfType\DC2%\n\
    \\rlist_services\CAN\a \SOH(\tH\NULR\flistServicesB\DC1\n\
    \\SImessage_request\"f\n\
    \\DLEExtensionRequest\DC2'\n\
    \\SIcontaining_type\CAN\SOH \SOH(\tR\SOcontainingType\DC2)\n\
    \\DLEextension_number\CAN\STX \SOH(\ENQR\SIextensionNumber\"\199\EOT\n\
    \\CANServerReflectionResponse\DC2\GS\n\
    \\n\
    \valid_host\CAN\SOH \SOH(\tR\tvalidHost\DC2[\n\
    \\DLEoriginal_request\CAN\STX \SOH(\v20.grpc.reflection.v1alpha.ServerReflectionRequestR\SIoriginalRequest\DC2k\n\
    \\CANfile_descriptor_response\CAN\EOT \SOH(\v2/.grpc.reflection.v1alpha.FileDescriptorResponseH\NULR\SYNfileDescriptorResponse\DC2w\n\
    \\RSall_extension_numbers_response\CAN\ENQ \SOH(\v20.grpc.reflection.v1alpha.ExtensionNumberResponseH\NULR\ESCallExtensionNumbersResponse\DC2d\n\
    \\SYNlist_services_response\CAN\ACK \SOH(\v2,.grpc.reflection.v1alpha.ListServiceResponseH\NULR\DC4listServicesResponse\DC2O\n\
    \\SOerror_response\CAN\a \SOH(\v2&.grpc.reflection.v1alpha.ErrorResponseH\NULR\rerrorResponseB\DC2\n\
    \\DLEmessage_response\"L\n\
    \\SYNFileDescriptorResponse\DC22\n\
    \\NAKfile_descriptor_proto\CAN\SOH \ETX(\fR\DC3fileDescriptorProto\"j\n\
    \\ETBExtensionNumberResponse\DC2$\n\
    \\SObase_type_name\CAN\SOH \SOH(\tR\fbaseTypeName\DC2)\n\
    \\DLEextension_number\CAN\STX \ETX(\ENQR\SIextensionNumber\"Y\n\
    \\DC3ListServiceResponse\DC2B\n\
    \\aservice\CAN\SOH \ETX(\v2(.grpc.reflection.v1alpha.ServiceResponseR\aservice\"%\n\
    \\SIServiceResponse\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\"S\n\
    \\rErrorResponse\DC2\GS\n\
    \\n\
    \error_code\CAN\SOH \SOH(\ENQR\terrorCode\DC2#\n\
    \\rerror_message\CAN\STX \SOH(\tR\ferrorMessage2\147\SOH\n\
    \\DLEServerReflection\DC2\DEL\n\
    \\DC4ServerReflectionInfo\DC20.grpc.reflection.v1alpha.ServerReflectionRequest\SUB1.grpc.reflection.v1alpha.ServerReflectionResponse(\SOH0\SOHB\172\SOH\n\
    \\ESCcom.grpc.reflection.v1alphaB\SIReflectionProtoP\SOH\162\STX\ETXGRX\170\STX\ETBGrpc.Reflection.V1alpha\202\STX\ETBGrpc\\Reflection\\V1alpha\226\STX#Grpc\\Reflection\\V1alpha\\GPBMetadata\234\STX\EMGrpc::Reflection::V1alphaJ\142+\n\
    \\a\DC2\ENQ\DLE\NUL\135\SOH\SOH\n\
    \\232\EOT\n\
    \\SOH\f\DC2\ETX\DLE\NUL\DC22\180\EOT Copyright 2016 gRPC authors.\n\
    \\n\
    \ Licensed under the Apache License, Version 2.0 (the \"License\");\n\
    \ you may not use this file except in compliance with the License.\n\
    \ You may obtain a copy of the License at\n\
    \\n\
    \     http://www.apache.org/licenses/LICENSE-2.0\n\
    \\n\
    \ Unless required by applicable law or agreed to in writing, software\n\
    \ distributed under the License is distributed on an \"AS IS\" BASIS,\n\
    \ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\n\
    \ See the License for the specific language governing permissions and\n\
    \ limitations under the License.\n\
    \2' Service exported by server reflection\n\
    \\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\DC2\NUL \n\
    \\n\
    \\n\
    \\STX\ACK\NUL\DC2\EOT\DC4\NUL\EM\SOH\n\
    \\n\
    \\n\
    \\ETX\ACK\NUL\SOH\DC2\ETX\DC4\b\CAN\n\
    \\133\SOH\n\
    \\EOT\ACK\NUL\STX\NUL\DC2\EOT\ETB\STX\CAN0\SUBw The reflection service is structured as a bidirectional stream, ensuring\n\
    \ all related requests go to a single server.\n\
    \\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\SOH\DC2\ETX\ETB\ACK\SUB\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\ENQ\DC2\ETX\ETB\ESC!\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\STX\DC2\ETX\ETB\"9\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\ACK\DC2\ETX\CAN\SI\NAK\n\
    \\f\n\
    \\ENQ\ACK\NUL\STX\NUL\ETX\DC2\ETX\CAN\SYN.\n\
    \V\n\
    \\STX\EOT\NUL\DC2\EOT\FS\NUL<\SOH\SUBJ The message sent by the client when calling ServerReflectionInfo method.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\FS\b\US\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\GS\STX\DC2\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\GS\STX\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\GS\t\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\GS\DLE\DC1\n\
    \\223\SOH\n\
    \\EOT\EOT\NUL\b\NUL\DC2\EOT!\STX;\ETX\SUB\208\SOH To use reflection service, the client should set one of the following\n\
    \ fields in message_request. The server distinguishes requests by their\n\
    \ defined field and then handles them using corresponding methods.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX!\b\ETB\n\
    \2\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX#\EOT \SUB% Find a proto file by the file name.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX#\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX#\v\ESC\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX#\RS\US\n\
    \\200\SOH\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX(\EOT&\SUB\186\SOH Find the proto file that declares the given fully-qualified symbol name.\n\
    \ This field should be a fully-qualified symbol name\n\
    \ (e.g. <package>.<service>[.<method>] or <package>.<type>).\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX(\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX(\v!\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX($%\n\
    \|\n\
    \\EOT\EOT\NUL\STX\ETX\DC2\ETX,\EOT3\SUBo Find the proto file which defines an extension extending the given\n\
    \ message type with the given field number.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ACK\DC2\ETX,\EOT\DC4\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX,\NAK.\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX,12\n\
    \\238\ETX\n\
    \\EOT\EOT\NUL\STX\EOT\DC2\ETX6\EOT-\SUB\224\ETX Finds the tag numbers used by all known extensions of the given message\n\
    \ type, and appends them to ExtensionNumberResponse in an undefined order.\n\
    \ Its corresponding method is best-effort: it's not guaranteed that the\n\
    \ reflection service will implement this method, and it's not guaranteed\n\
    \ that this method will provide all extensions. Returns\n\
    \ StatusCode::UNIMPLEMENTED if it's not implemented.\n\
    \ This field should be a fully-qualified type name. The format is\n\
    \ <package>.<type>\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ENQ\DC2\ETX6\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX6\v(\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX6+,\n\
    \\\\n\
    \\EOT\EOT\NUL\STX\ENQ\DC2\ETX:\EOT\GS\SUBO List the full names of registered services. The content will not be\n\
    \ checked.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\ENQ\DC2\ETX:\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\SOH\DC2\ETX:\v\CAN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\ETX\DC2\ETX:\ESC\FS\n\
    \o\n\
    \\STX\EOT\SOH\DC2\EOT@\NULD\SOH\SUBc The type name and extension number sent by the client when requesting\n\
    \ file_containing_extension.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX@\b\CAN\n\
    \O\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETXB\STX\GS\SUBB Fully-qualified type name. The format should be <package>.<type>\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETXB\STX\b\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETXB\t\CAN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETXB\ESC\FS\n\
    \\v\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETXC\STX\GS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETXC\STX\a\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETXC\b\CAN\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETXC\ESC\FS\n\
    \S\n\
    \\STX\EOT\STX\DC2\EOTG\NUL^\SOH\SUBG The message sent by the server to answer ServerReflectionInfo method.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETXG\b \n\
    \\v\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETXH\STX\CAN\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETXH\STX\b\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETXH\t\DC3\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETXH\SYN\ETB\n\
    \\v\n\
    \\EOT\EOT\STX\STX\SOH\DC2\ETXI\STX/\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETXI\STX\EM\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETXI\SUB*\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETXI-.\n\
    \l\n\
    \\EOT\EOT\STX\b\NUL\DC2\EOTL\STX]\ETX\SUB^ The server set one of the following fields accroding to the message_request\n\
    \ in the request.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\b\NUL\SOH\DC2\ETXL\b\CAN\n\
    \\177\ETX\n\
    \\EOT\EOT\STX\STX\STX\DC2\ETXS\EOT8\SUB\163\ETX This message is used to answer file_by_filename, file_containing_symbol,\n\
    \ file_containing_extension requests with transitive dependencies. As\n\
    \ the repeated label is not allowed in oneof fields, we use a\n\
    \ FileDescriptorResponse message to encapsulate the repeated fields.\n\
    \ The reflection service is allowed to avoid sending FileDescriptorProtos\n\
    \ that were previously sent in response to earlier requests in the stream.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\ACK\DC2\ETXS\EOT\SUB\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\SOH\DC2\ETXS\ESC3\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\ETX\DC2\ETXS67\n\
    \S\n\
    \\EOT\EOT\STX\STX\ETX\DC2\ETXV\EOT?\SUBF This message is used to answer all_extension_numbers_of_type requst.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ETX\ACK\DC2\ETXV\EOT\ESC\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ETX\SOH\DC2\ETXV\FS:\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ETX\ETX\DC2\ETXV=>\n\
    \D\n\
    \\EOT\EOT\STX\STX\EOT\DC2\ETXY\EOT3\SUB7 This message is used to answer list_services request.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\EOT\ACK\DC2\ETXY\EOT\ETB\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\EOT\SOH\DC2\ETXY\CAN.\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\EOT\ETX\DC2\ETXY12\n\
    \9\n\
    \\EOT\EOT\STX\STX\ENQ\DC2\ETX\\\EOT%\SUB, This message is used when an error occurs.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ENQ\ACK\DC2\ETX\\\EOT\DC1\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ENQ\SOH\DC2\ETX\\\DC2 \n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ENQ\ETX\DC2\ETX\\#$\n\
    \\167\SOH\n\
    \\STX\EOT\ETX\DC2\EOTc\NULh\SOH\SUB\154\SOH Serialized FileDescriptorProto messages sent by the server answering\n\
    \ a file_by_filename, file_containing_symbol, or file_containing_extension\n\
    \ request.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETXc\b\RS\n\
    \\178\SOH\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETXg\STX+\SUB\164\SOH Serialized FileDescriptorProto messages. We avoid taking a dependency on\n\
    \ descriptor.proto, which uses proto2 only features, by making them opaque\n\
    \ bytes instead.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\EOT\DC2\ETXg\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETXg\v\DLE\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETXg\DC1&\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETXg)*\n\
    \n\n\
    \\STX\EOT\EOT\DC2\EOTl\NULq\SOH\SUBb A list of extension numbers sent by the server answering\n\
    \ all_extension_numbers_of_type request.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\EOT\SOH\DC2\ETXl\b\US\n\
    \f\n\
    \\EOT\EOT\EOT\STX\NUL\DC2\ETXo\STX\FS\SUBY Full name of the base type, including the package name. The format\n\
    \ is <package>.<type>\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETXo\STX\b\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETXo\t\ETB\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETXo\SUB\ESC\n\
    \\v\n\
    \\EOT\EOT\EOT\STX\SOH\DC2\ETXp\STX&\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\EOT\DC2\ETXp\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\ETXp\v\DLE\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETXp\DC1!\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETXp$%\n\
    \[\n\
    \\STX\EOT\ENQ\DC2\EOTt\NULx\SOH\SUBO A list of ServiceResponse sent by the server answering list_services request.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ENQ\SOH\DC2\ETXt\b\ESC\n\
    \\131\SOH\n\
    \\EOT\EOT\ENQ\STX\NUL\DC2\ETXw\STX'\SUBv The information of each service may be expanded in the future, so we use\n\
    \ ServiceResponse message to encapsulate it.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\EOT\DC2\ETXw\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\ETXw\v\SUB\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETXw\ESC\"\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETXw%&\n\
    \p\n\
    \\STX\EOT\ACK\DC2\ENQ|\NUL\128\SOH\SOH\SUBc The information of a single service used by ListServiceResponse to answer\n\
    \ list_services request.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\ACK\SOH\DC2\ETX|\b\ETB\n\
    \p\n\
    \\EOT\EOT\ACK\STX\NUL\DC2\ETX\DEL\STX\DC2\SUBc Full name of a registered service, including its package name. The format\n\
    \ is <package>.<service>\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETX\DEL\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETX\DEL\t\r\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETX\DEL\DLE\DC1\n\
    \Y\n\
    \\STX\EOT\a\DC2\ACK\131\SOH\NUL\135\SOH\SOH\SUBK The error code and error message sent by the server when an error occurs.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\a\SOH\DC2\EOT\131\SOH\b\NAK\n\
    \L\n\
    \\EOT\EOT\a\STX\NUL\DC2\EOT\133\SOH\STX\ETB\SUB> This field uses the error codes defined in grpc::StatusCode.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\a\STX\NUL\ENQ\DC2\EOT\133\SOH\STX\a\n\
    \\r\n\
    \\ENQ\EOT\a\STX\NUL\SOH\DC2\EOT\133\SOH\b\DC2\n\
    \\r\n\
    \\ENQ\EOT\a\STX\NUL\ETX\DC2\EOT\133\SOH\NAK\SYN\n\
    \\f\n\
    \\EOT\EOT\a\STX\SOH\DC2\EOT\134\SOH\STX\ESC\n\
    \\r\n\
    \\ENQ\EOT\a\STX\SOH\ENQ\DC2\EOT\134\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\a\STX\SOH\SOH\DC2\EOT\134\SOH\t\SYN\n\
    \\r\n\
    \\ENQ\EOT\a\STX\SOH\ETX\DC2\EOT\134\SOH\EM\SUBb\ACKproto3"