diff --git a/cabal.project b/cabal.project index 0db54b93..211a2e09 100644 --- a/cabal.project +++ b/cabal.project @@ -2,4 +2,4 @@ packages: . package grapesy tests: True - flags: +build-demo +build-stress-test + flags: +build-demo +build-stress-test +build-interop diff --git a/cabal.project.ci b/cabal.project.ci index e62380d6..45ccb981 100644 --- a/cabal.project.ci +++ b/cabal.project.ci @@ -2,5 +2,5 @@ packages: . package grapesy tests: True - flags: +build-demo +build-stress-test + flags: +build-demo +build-stress-test +build-interop ghc-options: -Werror diff --git a/demo-server/Demo/Server/Service/Greeter.hs b/demo-server/Demo/Server/Service/Greeter.hs index 43646ff7..7589863b 100644 --- a/demo-server/Demo/Server/Service/Greeter.hs +++ b/demo-server/Demo/Server/Service/Greeter.hs @@ -28,6 +28,7 @@ handlers :: Methods IO (ProtobufMethodsOf Greeter) handlers = Method (mkNonStreaming sayHello) $ RawMethod sayHelloStreamReply + $ UnsupportedMethod -- TODO: sayHelloBidiStream $ NoMoreMethods {------------------------------------------------------------------------------- diff --git a/dev/disable-ipv6.sh b/dev/disable-ipv6.sh new file mode 100755 index 00000000..6efcc72a --- /dev/null +++ b/dev/disable-ipv6.sh @@ -0,0 +1,19 @@ +#!/bin/bash + +## +## Disable IPv6 for Docker +## +## The gRPC interop tests get confused if IPv6 is enabled: they only expect an +## IPv4 port to be listed by `docker port`, and throw a parse error when there +## is also an IPv6 port. Disabling IPv6 in `/etc/docker/daemon.json` instead +## would be cleaner but does not seem to have the desired effect. +## + +# Disable IPv6 on the host +sysctl -w net.ipv6.conf.all.disable_ipv6=1 +sysctl -w net.ipv6.conf.default.disable_ipv6=1 + +# Restart docker +systemctl restart docker + + diff --git a/gencert.sh b/dev/gencert.sh similarity index 100% rename from gencert.sh rename to dev/gencert.sh diff --git a/genproto.sh b/dev/genproto.sh similarity index 58% rename from genproto.sh rename to dev/genproto.sh index e67c6fb5..e6a7d9cd 100755 --- a/genproto.sh +++ b/dev/genproto.sh @@ -14,3 +14,13 @@ do --proto_path=${GRPC_REPO}/examples/protos \ $i.proto done + +for i in test empty messages +do + protoc \ + --plugin=protoc-gen-haskell=`which proto-lens-protoc` \ + --haskell_out=proto \ + --proto_path=${GRPC_REPO} \ + src/proto/grpc/testing/$i.proto +done + diff --git a/dev/grapesy-deps-docker/Dockerfile b/dev/grapesy-deps-docker/Dockerfile new file mode 100644 index 00000000..a1977182 --- /dev/null +++ b/dev/grapesy-deps-docker/Dockerfile @@ -0,0 +1,8 @@ +FROM haskell:9.2.8 +RUN mkdir /var/local/git +RUN git clone https://github.com/well-typed/grapesy.git /var/local/git/grapesy +WORKDIR /var/local/git/grapesy +RUN cabal update -w /opt/ghc/9.2.8/bin/ghc +RUN cabal build -w /opt/ghc/9.2.8/bin/ghc all --only-dependencies +WORKDIR / +RUN rm -rf /var/local/git/grapesy diff --git a/dev/reset-docker.sh b/dev/reset-docker.sh new file mode 100755 index 00000000..5303b5da --- /dev/null +++ b/dev/reset-docker.sh @@ -0,0 +1,15 @@ +#!/bin/bash + +## +## Reset the entire Docker state +## +## Don't use this is you are not sure if you might still need any docker +## images, containers, volumes or networks! +## + +if [ "$(docker ps -q)" ] +then + docker kill $(docker ps -q) +fi + +docker system prune -f --volumes diff --git a/grapesy.cabal b/grapesy.cabal index 6bd0a392..dd4e2650 100644 --- a/grapesy.cabal +++ b/grapesy.cabal @@ -386,6 +386,40 @@ executable test-stress buildable: False +executable grapesy-interop + import: + lang + hs-source-dirs: + interop + proto + main-is: + Main.hs + other-modules: + Interop.Cmdline + Interop.Server + Interop.TestCase.CacheableUnary + Interop.TestCases + + Proto.Src.Proto.Grpc.Testing.Empty + Proto.Src.Proto.Grpc.Testing.Messages + Proto.Src.Proto.Grpc.Testing.Test + + Paths_grapesy + build-depends: + , grapesy + build-depends: + , base + , data-default + , exceptions + , network + , optparse-applicative + , proto-lens + , proto-lens-runtime + + if !flag(build-interop) + buildable: + False + Flag build-demo description: Build the demo default: False @@ -396,7 +430,13 @@ Flag build-stress-test default: False manual: True +Flag build-interop + description: Build the gRPC interop test executable + default: False + manual: True + Flag crypton description: Use the crypton-x509-* package family instead of x509-* default: True manual: False + diff --git a/interop/Interop/Cmdline.hs b/interop/Interop/Cmdline.hs new file mode 100644 index 00000000..408b6d6f --- /dev/null +++ b/interop/Interop/Cmdline.hs @@ -0,0 +1,75 @@ +module Interop.Cmdline ( + getCmdline + -- * Definition + , Cmdline(..) + , Mode(..) + ) where + +import Options.Applicative +import Network.Socket (PortNumber) + +{------------------------------------------------------------------------------- + Definition +-------------------------------------------------------------------------------} + +data Cmdline = Cmdline { + cmdMode :: Mode + , cmdPort :: PortNumber + , cmdUseTLS :: Bool + } + deriving (Show) + +data Mode = Server | Client + deriving (Show) + +{------------------------------------------------------------------------------- + Get command line args +-------------------------------------------------------------------------------} + +getCmdline :: IO Cmdline +getCmdline = execParser opts + where + opts :: ParserInfo Cmdline + opts = + info (parseCmdline <**> helper) $ mconcat [ + fullDesc + , progDesc "Server and client for official gRPC interop tests" + ] + +{------------------------------------------------------------------------------- + Parsers +-------------------------------------------------------------------------------} + +parseCmdline :: Parser Cmdline +parseCmdline = + Cmdline + <$> parseMode + <*> (option auto $ mconcat [ + long "port" + , help "Port number" + ]) + <*> (option readBool $ mconcat [ + long "use_tls" + , help "Enable TLS" + ]) + +parseMode :: Parser Mode +parseMode = asum [ + flag' Server $ mconcat [ + long "server" + , help "Run in server mode" + ] + , flag' Client $ mconcat [ + long "client" + , help "Run in client mode" + ] + ] + +readBool :: ReadM Bool +readBool = str >>= aux + where + aux :: String -> ReadM Bool + aux "true" = return True + aux "false" = return False + aux x = fail $ "Could not parse bool " ++ show x + diff --git a/interop/Interop/Server.hs b/interop/Interop/Server.hs new file mode 100644 index 00000000..dae296af --- /dev/null +++ b/interop/Interop/Server.hs @@ -0,0 +1,78 @@ +module Interop.Server (server) where + +import Control.Monad.Catch (generalBracket, ExitCase(..)) +import Data.Default + +import Network.GRPC.Common +import Network.GRPC.Server.Protobuf +import Network.GRPC.Server.Run +import Network.GRPC.Server.StreamType +import Paths_grapesy + +import Proto.Src.Proto.Grpc.Testing.Test + +import Interop.Cmdline +import Interop.TestCases + +handlers :: Methods IO (ProtobufMethodsOf TestService) +handlers = + Method handleCacheableUnaryCall + $ UnsupportedMethod -- emptyCall + $ UnsupportedMethod -- fullDuplexCall + $ UnsupportedMethod -- halfDuplexCall + $ UnsupportedMethod -- streamingInputCall + $ UnsupportedMethod -- streamingOutputCall + $ UnsupportedMethod -- unaryCall + $ UnsupportedMethod -- unimplementedCall + $ NoMoreMethods + +services :: Services IO (ProtobufServices '[TestService]) +services = Service handlers NoMoreServices + +server :: Cmdline -> IO () +server cmdline = showStartStop $ do + serverConfig <- + if cmdUseTLS cmdline then do + pubCert <- getDataFileName "grpc-demo.cert" + privKey <- getDataFileName "grpc-demo.priv" + + return ServerConfig { + serverInsecure = Nothing + , serverSecure = Just SecureConfig { + secureHost = "localhost" + , securePort = cmdPort cmdline + , securePubCert = pubCert + , secureChainCerts = [] + , securePrivKey = privKey + , secureSslKeyLog = SslKeyLogNone -- TODO: We might want this + } + } + else + return ServerConfig { + serverSecure = Nothing + , serverInsecure = Just InsecureConfig { + insecureHost = Nothing + , insecurePort = show $ cmdPort cmdline + } + } + + runServerWithHandlers + serverConfig + def + (fromServices services) + +showStartStop :: forall a. IO a -> IO a +showStartStop act = fst <$> + generalBracket + start + (\() -> stop) + (\() -> act) + where + start :: IO () + start = putStrLn "grapesy interop server started" + + stop :: ExitCase a -> IO () + stop (ExitCaseSuccess _) = putStrLn $ "server terminated normally" + stop (ExitCaseException e) = putStrLn $ "server exception: " ++ show e + stop ExitCaseAbort = error "impossible in IO" + diff --git a/interop/Interop/TestCase/CacheableUnary.hs b/interop/Interop/TestCase/CacheableUnary.hs new file mode 100644 index 00000000..fd6865b1 --- /dev/null +++ b/interop/Interop/TestCase/CacheableUnary.hs @@ -0,0 +1,20 @@ +module Interop.TestCase.CacheableUnary ( + handleCacheableUnaryCall + ) where + +import Data.ProtoLens + +import Network.GRPC.Common.StreamType +import Network.GRPC.Server + +import Proto.Src.Proto.Grpc.Testing.Test +import Proto.Src.Proto.Grpc.Testing.Messages + +handleCacheableUnaryCall :: + NonStreamingHandler IO (Protobuf TestService "cacheableUnaryCall") +handleCacheableUnaryCall = + mkNonStreaming go + where + go :: SimpleRequest -> IO SimpleResponse + go _ = return defMessage + diff --git a/interop/Interop/TestCases.hs b/interop/Interop/TestCases.hs new file mode 100644 index 00000000..c881e30a --- /dev/null +++ b/interop/Interop/TestCases.hs @@ -0,0 +1,12 @@ +-- | Re-export all testcases +-- +-- The test cases are described in the gRPC documentation at +-- ; +-- the relevant @.proto@ definitions are +-- +-- * @grpc-repo/src/proto/grpc/testing/test.proto@ (main service definition) +-- * @grpc-repo/src/proto/grpc/testing/messages.proto@ (most message types) +-- * @grpc-repo/src/proto/grpc/testing/empty.proto@ +module Interop.TestCases (module X) where + +import Interop.TestCase.CacheableUnary as X \ No newline at end of file diff --git a/interop/Main.hs b/interop/Main.hs new file mode 100644 index 00000000..848e8c86 --- /dev/null +++ b/interop/Main.hs @@ -0,0 +1,15 @@ +module Main where + +import Interop.Cmdline +import Interop.Server (server) + +{------------------------------------------------------------------------------- + Top-level application driver +-------------------------------------------------------------------------------} + +main :: IO () +main = do + cmdline <- getCmdline + case cmdMode cmdline of + Server -> server cmdline + Client -> fail "client not yet implemented" diff --git a/proto/Proto/Helloworld.hs b/proto/Proto/Helloworld.hs index 540ae4ba..3189c74c 100644 --- a/proto/Proto/Helloworld.hs +++ b/proto/Proto/Helloworld.hs @@ -1,9 +1,3 @@ --- proto-lens-0.7.1 introduces 'packedServiceDescriptor' to 'Service'. --- For backwards compatibility with proto-lens-0.7.0, we use proto-lens-protoc --- and disable the warning that these methods are missing (grapesy does not --- depend on them). -{-# OPTIONS_GHC -Wno-missing-methods #-} - {- This file was auto-generated from helloworld.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#-} @@ -109,14 +103,9 @@ instance Data.ProtoLens.Message HelloReply where case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len) - Data.ProtoLens.Encoding.Bytes.runEither - (case Data.Text.Encoding.decodeUtf8' value of - (Prelude.Left err) - -> Prelude.Left (Prelude.show err) - (Prelude.Right r) -> Prelude.Right r)) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) "message" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"message") y x) wire @@ -224,14 +213,9 @@ instance Data.ProtoLens.Message HelloRequest where case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len) - Data.ProtoLens.Encoding.Bytes.runEither - (case Data.Text.Encoding.decodeUtf8' value of - (Prelude.Left err) - -> Prelude.Left (Prelude.show err) - (Prelude.Right r) -> Prelude.Right r)) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) "name" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) wire @@ -272,7 +256,15 @@ data Greeter = Greeter {} instance Data.ProtoLens.Service.Types.Service Greeter where type ServiceName Greeter = "Greeter" type ServicePackage Greeter = "helloworld" - type ServiceMethods Greeter = '["sayHello", "sayHelloStreamReply"] + type ServiceMethods Greeter = '["sayHello", + "sayHelloBidiStream", + "sayHelloStreamReply"] + packedServiceDescriptor _ + = "\n\ + \\aGreeter\DC2>\n\ + \\bSayHello\DC2\CAN.helloworld.HelloRequest\SUB\SYN.helloworld.HelloReply\"\NUL\DC2K\n\ + \\DC3SayHelloStreamReply\DC2\CAN.helloworld.HelloRequest\SUB\SYN.helloworld.HelloReply\"\NUL0\SOH\DC2L\n\ + \\DC2SayHelloBidiStream\DC2\CAN.helloworld.HelloRequest\SUB\SYN.helloworld.HelloReply\"\NUL(\SOH0\SOH" instance Data.ProtoLens.Service.Types.HasMethodImpl Greeter "sayHello" where type MethodName Greeter "sayHello" = "SayHello" type MethodInput Greeter "sayHello" = HelloRequest @@ -283,6 +275,11 @@ instance Data.ProtoLens.Service.Types.HasMethodImpl Greeter "sayHelloStreamReply type MethodInput Greeter "sayHelloStreamReply" = HelloRequest type MethodOutput Greeter "sayHelloStreamReply" = HelloReply type MethodStreamingType Greeter "sayHelloStreamReply" = 'Data.ProtoLens.Service.Types.ServerStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl Greeter "sayHelloBidiStream" where + type MethodName Greeter "sayHelloBidiStream" = "SayHelloBidiStream" + type MethodInput Greeter "sayHelloBidiStream" = HelloRequest + type MethodOutput Greeter "sayHelloBidiStream" = HelloReply + type MethodStreamingType Greeter "sayHelloBidiStream" = 'Data.ProtoLens.Service.Types.BiDiStreaming packedFileDescriptor :: Data.ByteString.ByteString packedFileDescriptor = "\n\ @@ -292,12 +289,13 @@ packedFileDescriptor \\EOTname\CAN\SOH \SOH(\tR\EOTname\"&\n\ \\n\ \HelloReply\DC2\CAN\n\ - \\amessage\CAN\SOH \SOH(\tR\amessage2\150\SOH\n\ + \\amessage\CAN\SOH \SOH(\tR\amessage2\228\SOH\n\ \\aGreeter\DC2>\n\ \\bSayHello\DC2\CAN.helloworld.HelloRequest\SUB\SYN.helloworld.HelloReply\"\NUL\DC2K\n\ - \\DC3SayHelloStreamReply\DC2\CAN.helloworld.HelloRequest\SUB\SYN.helloworld.HelloReply\"\NUL0\SOHB6\n\ - \\ESCio.grpc.examples.helloworldB\SIHelloWorldProtoP\SOH\162\STX\ETXHLWJ\246\b\n\ - \\ACK\DC2\EOT\SO\NUL'\SOH\n\ + \\DC3SayHelloStreamReply\DC2\CAN.helloworld.HelloRequest\SUB\SYN.helloworld.HelloReply\"\NUL0\SOH\DC2L\n\ + \\DC2SayHelloBidiStream\DC2\CAN.helloworld.HelloRequest\SUB\SYN.helloworld.HelloReply\"\NUL(\SOH0\SOHB6\n\ + \\ESCio.grpc.examples.helloworldB\SIHelloWorldProtoP\SOH\162\STX\ETXHLWJ\201\t\n\ + \\ACK\DC2\EOT\SO\NUL)\SOH\n\ \\191\EOT\n\ \\SOH\f\DC2\ETX\SO\NUL\DC22\180\EOT Copyright 2015 gRPC authors.\n\ \\n\ @@ -333,7 +331,7 @@ packedFileDescriptor \\b\n\ \\SOH\STX\DC2\ETX\NAK\NUL\DC3\n\ \.\n\ - \\STX\ACK\NUL\DC2\EOT\CAN\NUL\GS\SOH\SUB\" The greeting service definition.\n\ + \\STX\ACK\NUL\DC2\EOT\CAN\NUL\US\SOH\SUB\" The greeting service definition.\n\ \\n\ \\n\ \\n\ @@ -357,31 +355,43 @@ packedFileDescriptor \\ENQ\ACK\NUL\STX\SOH\ACK\DC2\ETX\FS28\n\ \\f\n\ \\ENQ\ACK\NUL\STX\SOH\ETX\DC2\ETX\FS9C\n\ + \\v\n\ + \\EOT\ACK\NUL\STX\STX\DC2\ETX\RS\STXM\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\SOH\DC2\ETX\RS\ACK\CAN\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\ENQ\DC2\ETX\RS\SUB \n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\STX\DC2\ETX\RS!-\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\ACK\DC2\ETX\RS8>\n\ + \\f\n\ + \\ENQ\ACK\NUL\STX\STX\ETX\DC2\ETX\RS?I\n\ \=\n\ - \\STX\EOT\NUL\DC2\EOT \NUL\"\SOH\SUB1 The request message containing the user's name.\n\ + \\STX\EOT\NUL\DC2\EOT\"\NUL$\SOH\SUB1 The request message containing the user's name.\n\ \\n\ \\n\ \\n\ - \\ETX\EOT\NUL\SOH\DC2\ETX \b\DC4\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\"\b\DC4\n\ \\v\n\ - \\EOT\EOT\NUL\STX\NUL\DC2\ETX!\STX\DC2\n\ + \\EOT\EOT\NUL\STX\NUL\DC2\ETX#\STX\DC2\n\ \\f\n\ - \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX!\STX\b\n\ + \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX#\STX\b\n\ \\f\n\ - \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX!\t\r\n\ + \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX#\t\r\n\ \\f\n\ - \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX!\DLE\DC1\n\ + \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX#\DLE\DC1\n\ \;\n\ - \\STX\EOT\SOH\DC2\EOT%\NUL'\SOH\SUB/ The response message containing the greetings\n\ + \\STX\EOT\SOH\DC2\EOT'\NUL)\SOH\SUB/ The response message containing the greetings\n\ \\n\ \\n\ \\n\ - \\ETX\EOT\SOH\SOH\DC2\ETX%\b\DC2\n\ + \\ETX\EOT\SOH\SOH\DC2\ETX'\b\DC2\n\ \\v\n\ - \\EOT\EOT\SOH\STX\NUL\DC2\ETX&\STX\NAK\n\ + \\EOT\EOT\SOH\STX\NUL\DC2\ETX(\STX\NAK\n\ \\f\n\ - \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX&\STX\b\n\ + \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX(\STX\b\n\ \\f\n\ - \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX&\t\DLE\n\ + \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX(\t\DLE\n\ \\f\n\ - \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX&\DC3\DC4b\ACKproto3" + \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX(\DC3\DC4b\ACKproto3" \ No newline at end of file diff --git a/proto/Proto/RouteGuide.hs b/proto/Proto/RouteGuide.hs index bb4b9d13..7834dd70 100644 --- a/proto/Proto/RouteGuide.hs +++ b/proto/Proto/RouteGuide.hs @@ -1,9 +1,3 @@ --- proto-lens-0.7.1 introduces 'packedServiceDescriptor' to 'Service'. --- For backwards compatibility with proto-lens-0.7.0, we use proto-lens-protoc --- and disable the warning that these methods are missing (grapesy does not --- depend on them). -{-# OPTIONS_GHC -Wno-missing-methods #-} - {- This file was auto-generated from route_guide.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#-} @@ -133,14 +127,9 @@ instance Data.ProtoLens.Message Feature where case tag of 10 -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len) - Data.ProtoLens.Encoding.Bytes.runEither - (case Data.Text.Encoding.decodeUtf8' value of - (Prelude.Left err) - -> Prelude.Left (Prelude.show err) - (Prelude.Right r) -> Prelude.Right r)) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) "name" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"name") y x) 18 @@ -618,14 +607,9 @@ instance Data.ProtoLens.Message RouteNote where (Lens.Family2.set (Data.ProtoLens.Field.field @"location") y x) 18 -> do y <- (Data.ProtoLens.Encoding.Bytes.) - (do value <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt - Data.ProtoLens.Encoding.Bytes.getBytes - (Prelude.fromIntegral len) - Data.ProtoLens.Encoding.Bytes.runEither - (case Data.Text.Encoding.decodeUtf8' value of - (Prelude.Left err) - -> Prelude.Left (Prelude.show err) - (Prelude.Right r) -> Prelude.Right r)) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) "message" loop (Lens.Family2.set (Data.ProtoLens.Field.field @"message") y x) wire @@ -927,6 +911,15 @@ instance Data.ProtoLens.Service.Types.Service RouteGuide where "listFeatures", "recordRoute", "routeChat"] + packedServiceDescriptor _ + = "\n\ + \\n\ + \RouteGuide\DC26\n\ + \\n\ + \GetFeature\DC2\DC1.routeguide.Point\SUB\DC3.routeguide.Feature\"\NUL\DC2>\n\ + \\fListFeatures\DC2\NAK.routeguide.Rectangle\SUB\DC3.routeguide.Feature\"\NUL0\SOH\DC2>\n\ + \\vRecordRoute\DC2\DC1.routeguide.Point\SUB\CAN.routeguide.RouteSummary\"\NUL(\SOH\DC2?\n\ + \\tRouteChat\DC2\NAK.routeguide.RouteNote\SUB\NAK.routeguide.RouteNote\"\NUL(\SOH0\SOH" instance Data.ProtoLens.Service.Types.HasMethodImpl RouteGuide "getFeature" where type MethodName RouteGuide "getFeature" = "GetFeature" type MethodInput RouteGuide "getFeature" = Point @@ -1226,4 +1219,4 @@ packedFileDescriptor \\f\n\ \\ENQ\EOT\EOT\STX\ETX\SOH\DC2\ETXm\b\DC4\n\ \\f\n\ - \\ENQ\EOT\EOT\STX\ETX\ETX\DC2\ETXm\ETB\CANb\ACKproto3" + \\ENQ\EOT\EOT\STX\ETX\ETX\DC2\ETXm\ETB\CANb\ACKproto3" \ No newline at end of file diff --git a/proto/Proto/Src/Proto/Grpc/Testing/Empty.hs b/proto/Proto/Src/Proto/Grpc/Testing/Empty.hs new file mode 100644 index 00000000..75f55a56 --- /dev/null +++ b/proto/Proto/Src/Proto/Grpc/Testing/Empty.hs @@ -0,0 +1,129 @@ +{- This file was auto-generated from src/proto/grpc/testing/empty.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.Src.Proto.Grpc.Testing.Empty ( + Empty() + ) 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 : + -} +data Empty + = Empty'_constructor {_Empty'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Empty where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message Empty where + messageName _ = Data.Text.pack "grpc.testing.Empty" + packedMessageDescriptor _ + = "\n\ + \\ENQEmpty" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _Empty'_unknownFields + (\ x__ y__ -> x__ {_Empty'_unknownFields = y__}) + defMessage = Empty'_constructor {_Empty'_unknownFields = []} + parseMessage + = let + loop :: Empty -> Data.ProtoLens.Encoding.Bytes.Parser Empty + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Empty" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData Empty where + rnf + = \ x__ -> Control.DeepSeq.deepseq (_Empty'_unknownFields x__) () +packedFileDescriptor :: Data.ByteString.ByteString +packedFileDescriptor + = "\n\ + \\"src/proto/grpc/testing/empty.proto\DC2\fgrpc.testing\"\a\n\ + \\ENQEmptyJ\144\a\n\ + \\ACK\DC2\EOT\SI\NUL\ESC\DLE\n\ + \\191\EOT\n\ + \\SOH\f\DC2\ETX\SI\NUL\DC22\180\EOT Copyright 2015 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\ + \\n\ + \\b\n\ + \\SOH\STX\DC2\ETX\DC1\NUL\NAK\n\ + \\173\STX\n\ + \\STX\EOT\NUL\DC2\ETX\ESC\NUL\DLE\SUB\161\STX An empty message that you can re-use to avoid defining duplicated empty\n\ + \ messages in your project. A typical example is to use it as argument or the\n\ + \ return value of a service API. For instance:\n\ + \\n\ + \ service Foo {\n\ + \ rpc Bar (grpc.testing.Empty) returns (grpc.testing.Empty) { };\n\ + \ };\n\ + \\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\ESC\b\rb\ACKproto3" \ No newline at end of file diff --git a/proto/Proto/Src/Proto/Grpc/Testing/Empty_Fields.hs b/proto/Proto/Src/Proto/Grpc/Testing/Empty_Fields.hs new file mode 100644 index 00000000..7a33a6a5 --- /dev/null +++ b/proto/Proto/Src/Proto/Grpc/Testing/Empty_Fields.hs @@ -0,0 +1,29 @@ +{- This file was auto-generated from src/proto/grpc/testing/empty.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.Src.Proto.Grpc.Testing.Empty_Fields where +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 \ No newline at end of file diff --git a/proto/Proto/Src/Proto/Grpc/Testing/Messages.hs b/proto/Proto/Src/Proto/Grpc/Testing/Messages.hs new file mode 100644 index 00000000..611582eb --- /dev/null +++ b/proto/Proto/Src/Proto/Grpc/Testing/Messages.hs @@ -0,0 +1,9346 @@ +{- This file was auto-generated from src/proto/grpc/testing/messages.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.Src.Proto.Grpc.Testing.Messages ( + BoolValue(), ClientConfigureRequest(), + ClientConfigureRequest'Metadata(), + ClientConfigureRequest'RpcType(..), + ClientConfigureRequest'RpcType(), + ClientConfigureRequest'RpcType'UnrecognizedValue, + ClientConfigureResponse(), EchoStatus(), GrpclbRouteType(..), + GrpclbRouteType(), GrpclbRouteType'UnrecognizedValue, + HookRequest(), HookRequest'HookRequestCommand(..), + HookRequest'HookRequestCommand(), + HookRequest'HookRequestCommand'UnrecognizedValue, HookResponse(), + LoadBalancerAccumulatedStatsRequest(), + LoadBalancerAccumulatedStatsResponse(), + LoadBalancerAccumulatedStatsResponse'MethodStats(), + LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry(), + LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry(), + LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry(), + LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry(), + LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry(), + LoadBalancerStatsRequest(), LoadBalancerStatsResponse(), + LoadBalancerStatsResponse'MetadataByPeer(), + LoadBalancerStatsResponse'MetadataEntry(), + LoadBalancerStatsResponse'MetadataType(..), + LoadBalancerStatsResponse'MetadataType(), + LoadBalancerStatsResponse'MetadataType'UnrecognizedValue, + LoadBalancerStatsResponse'MetadatasByPeerEntry(), + LoadBalancerStatsResponse'RpcMetadata(), + LoadBalancerStatsResponse'RpcsByMethodEntry(), + LoadBalancerStatsResponse'RpcsByPeer(), + LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry(), + LoadBalancerStatsResponse'RpcsByPeerEntry(), MemorySize(), + Payload(), PayloadType(..), PayloadType(), + PayloadType'UnrecognizedValue, ReconnectInfo(), ReconnectParams(), + ResponseParameters(), SetReturnStatusRequest(), SimpleRequest(), + SimpleResponse(), StreamingInputCallRequest(), + StreamingInputCallResponse(), StreamingOutputCallRequest(), + StreamingOutputCallResponse(), TestOrcaReport(), + TestOrcaReport'RequestCostEntry(), + TestOrcaReport'UtilizationEntry() + ) 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.Src.Proto.Grpc.Testing.Messages_Fields.value' @:: Lens' BoolValue Prelude.Bool@ -} +data BoolValue + = BoolValue'_constructor {_BoolValue'value :: !Prelude.Bool, + _BoolValue'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show BoolValue where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField BoolValue "value" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _BoolValue'value (\ x__ y__ -> x__ {_BoolValue'value = y__})) + Prelude.id +instance Data.ProtoLens.Message BoolValue where + messageName _ = Data.Text.pack "grpc.testing.BoolValue" + packedMessageDescriptor _ + = "\n\ + \\tBoolValue\DC2\DC4\n\ + \\ENQvalue\CAN\SOH \SOH(\bR\ENQvalue" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor BoolValue + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _BoolValue'_unknownFields + (\ x__ y__ -> x__ {_BoolValue'_unknownFields = y__}) + defMessage + = BoolValue'_constructor + {_BoolValue'value = Data.ProtoLens.fieldDefault, + _BoolValue'_unknownFields = []} + parseMessage + = let + loop :: BoolValue -> Data.ProtoLens.Encoding.Bytes.Parser BoolValue + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "BoolValue" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData BoolValue where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_BoolValue'_unknownFields x__) + (Control.DeepSeq.deepseq (_BoolValue'value x__) ()) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.types' @:: Lens' ClientConfigureRequest [ClientConfigureRequest'RpcType]@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.vec'types' @:: Lens' ClientConfigureRequest (Data.Vector.Vector ClientConfigureRequest'RpcType)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.metadata' @:: Lens' ClientConfigureRequest [ClientConfigureRequest'Metadata]@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.vec'metadata' @:: Lens' ClientConfigureRequest (Data.Vector.Vector ClientConfigureRequest'Metadata)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.timeoutSec' @:: Lens' ClientConfigureRequest Data.Int.Int32@ -} +data ClientConfigureRequest + = ClientConfigureRequest'_constructor {_ClientConfigureRequest'types :: !(Data.Vector.Vector ClientConfigureRequest'RpcType), + _ClientConfigureRequest'metadata :: !(Data.Vector.Vector ClientConfigureRequest'Metadata), + _ClientConfigureRequest'timeoutSec :: !Data.Int.Int32, + _ClientConfigureRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ClientConfigureRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ClientConfigureRequest "types" [ClientConfigureRequest'RpcType] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ClientConfigureRequest'types + (\ x__ y__ -> x__ {_ClientConfigureRequest'types = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField ClientConfigureRequest "vec'types" (Data.Vector.Vector ClientConfigureRequest'RpcType) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ClientConfigureRequest'types + (\ x__ y__ -> x__ {_ClientConfigureRequest'types = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ClientConfigureRequest "metadata" [ClientConfigureRequest'Metadata] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ClientConfigureRequest'metadata + (\ x__ y__ -> x__ {_ClientConfigureRequest'metadata = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField ClientConfigureRequest "vec'metadata" (Data.Vector.Vector ClientConfigureRequest'Metadata) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ClientConfigureRequest'metadata + (\ x__ y__ -> x__ {_ClientConfigureRequest'metadata = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ClientConfigureRequest "timeoutSec" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ClientConfigureRequest'timeoutSec + (\ x__ y__ -> x__ {_ClientConfigureRequest'timeoutSec = y__})) + Prelude.id +instance Data.ProtoLens.Message ClientConfigureRequest where + messageName _ + = Data.Text.pack "grpc.testing.ClientConfigureRequest" + packedMessageDescriptor _ + = "\n\ + \\SYNClientConfigureRequest\DC2B\n\ + \\ENQtypes\CAN\SOH \ETX(\SO2,.grpc.testing.ClientConfigureRequest.RpcTypeR\ENQtypes\DC2I\n\ + \\bmetadata\CAN\STX \ETX(\v2-.grpc.testing.ClientConfigureRequest.MetadataR\bmetadata\DC2\US\n\ + \\vtimeout_sec\CAN\ETX \SOH(\ENQR\n\ + \timeoutSec\SUBt\n\ + \\bMetadata\DC2@\n\ + \\EOTtype\CAN\SOH \SOH(\SO2,.grpc.testing.ClientConfigureRequest.RpcTypeR\EOTtype\DC2\DLE\n\ + \\ETXkey\CAN\STX \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\ETX \SOH(\tR\ENQvalue\")\n\ + \\aRpcType\DC2\SO\n\ + \\n\ + \EMPTY_CALL\DLE\NUL\DC2\SO\n\ + \\n\ + \UNARY_CALL\DLE\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + types__field_descriptor + = Data.ProtoLens.FieldDescriptor + "types" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor ClientConfigureRequest'RpcType) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Packed (Data.ProtoLens.Field.field @"types")) :: + Data.ProtoLens.FieldDescriptor ClientConfigureRequest + metadata__field_descriptor + = Data.ProtoLens.FieldDescriptor + "metadata" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ClientConfigureRequest'Metadata) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"metadata")) :: + Data.ProtoLens.FieldDescriptor ClientConfigureRequest + timeoutSec__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timeout_sec" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"timeoutSec")) :: + Data.ProtoLens.FieldDescriptor ClientConfigureRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, types__field_descriptor), + (Data.ProtoLens.Tag 2, metadata__field_descriptor), + (Data.ProtoLens.Tag 3, timeoutSec__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ClientConfigureRequest'_unknownFields + (\ x__ y__ -> x__ {_ClientConfigureRequest'_unknownFields = y__}) + defMessage + = ClientConfigureRequest'_constructor + {_ClientConfigureRequest'types = Data.Vector.Generic.empty, + _ClientConfigureRequest'metadata = Data.Vector.Generic.empty, + _ClientConfigureRequest'timeoutSec = Data.ProtoLens.fieldDefault, + _ClientConfigureRequest'_unknownFields = []} + parseMessage + = let + loop :: + ClientConfigureRequest + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ClientConfigureRequest'Metadata + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ClientConfigureRequest'RpcType + -> Data.ProtoLens.Encoding.Bytes.Parser ClientConfigureRequest + loop x mutable'metadata mutable'types + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'metadata <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'metadata) + frozen'types <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze mutable'types) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'metadata") frozen'metadata + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'types") frozen'types x))) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "types" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'types y) + loop x mutable'metadata v + 10 + -> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + ((let + ploop qs + = do packedEnd <- Data.ProtoLens.Encoding.Bytes.atEnd + if packedEnd then + Prelude.return qs + else + do !q <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "types" + qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + qs q) + ploop qs' + in ploop) + mutable'types) + loop x mutable'metadata y + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "metadata" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'metadata y) + loop x v mutable'types + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "timeout_sec" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeoutSec") y x) + mutable'metadata mutable'types + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'metadata mutable'types + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'metadata <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + mutable'types <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'metadata mutable'types) + "ClientConfigureRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + p = Lens.Family2.view (Data.ProtoLens.Field.field @"vec'types") _x + in + if Data.Vector.Generic.null p then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Data.ProtoLens.Encoding.Bytes.runBuilder + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum) + p)))) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'metadata") _x)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"timeoutSec") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData ClientConfigureRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ClientConfigureRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ClientConfigureRequest'types x__) + (Control.DeepSeq.deepseq + (_ClientConfigureRequest'metadata x__) + (Control.DeepSeq.deepseq + (_ClientConfigureRequest'timeoutSec x__) ()))) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.type'' @:: Lens' ClientConfigureRequest'Metadata ClientConfigureRequest'RpcType@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.key' @:: Lens' ClientConfigureRequest'Metadata Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.value' @:: Lens' ClientConfigureRequest'Metadata Data.Text.Text@ -} +data ClientConfigureRequest'Metadata + = ClientConfigureRequest'Metadata'_constructor {_ClientConfigureRequest'Metadata'type' :: !ClientConfigureRequest'RpcType, + _ClientConfigureRequest'Metadata'key :: !Data.Text.Text, + _ClientConfigureRequest'Metadata'value :: !Data.Text.Text, + _ClientConfigureRequest'Metadata'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ClientConfigureRequest'Metadata where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ClientConfigureRequest'Metadata "type'" ClientConfigureRequest'RpcType where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ClientConfigureRequest'Metadata'type' + (\ x__ y__ -> x__ {_ClientConfigureRequest'Metadata'type' = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ClientConfigureRequest'Metadata "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ClientConfigureRequest'Metadata'key + (\ x__ y__ -> x__ {_ClientConfigureRequest'Metadata'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ClientConfigureRequest'Metadata "value" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ClientConfigureRequest'Metadata'value + (\ x__ y__ -> x__ {_ClientConfigureRequest'Metadata'value = y__})) + Prelude.id +instance Data.ProtoLens.Message ClientConfigureRequest'Metadata where + messageName _ + = Data.Text.pack "grpc.testing.ClientConfigureRequest.Metadata" + packedMessageDescriptor _ + = "\n\ + \\bMetadata\DC2@\n\ + \\EOTtype\CAN\SOH \SOH(\SO2,.grpc.testing.ClientConfigureRequest.RpcTypeR\EOTtype\DC2\DLE\n\ + \\ETXkey\CAN\STX \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\ETX \SOH(\tR\ENQvalue" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor ClientConfigureRequest'RpcType) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"type'")) :: + Data.ProtoLens.FieldDescriptor ClientConfigureRequest'Metadata + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor ClientConfigureRequest'Metadata + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor ClientConfigureRequest'Metadata + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, type'__field_descriptor), + (Data.ProtoLens.Tag 2, key__field_descriptor), + (Data.ProtoLens.Tag 3, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ClientConfigureRequest'Metadata'_unknownFields + (\ x__ y__ + -> x__ {_ClientConfigureRequest'Metadata'_unknownFields = y__}) + defMessage + = ClientConfigureRequest'Metadata'_constructor + {_ClientConfigureRequest'Metadata'type' = Data.ProtoLens.fieldDefault, + _ClientConfigureRequest'Metadata'key = Data.ProtoLens.fieldDefault, + _ClientConfigureRequest'Metadata'value = Data.ProtoLens.fieldDefault, + _ClientConfigureRequest'Metadata'_unknownFields = []} + parseMessage + = let + loop :: + ClientConfigureRequest'Metadata + -> Data.ProtoLens.Encoding.Bytes.Parser ClientConfigureRequest'Metadata + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "type" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Metadata" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"type'") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData ClientConfigureRequest'Metadata where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ClientConfigureRequest'Metadata'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ClientConfigureRequest'Metadata'type' x__) + (Control.DeepSeq.deepseq + (_ClientConfigureRequest'Metadata'key x__) + (Control.DeepSeq.deepseq + (_ClientConfigureRequest'Metadata'value x__) ()))) +newtype ClientConfigureRequest'RpcType'UnrecognizedValue + = ClientConfigureRequest'RpcType'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data ClientConfigureRequest'RpcType + = ClientConfigureRequest'EMPTY_CALL | + ClientConfigureRequest'UNARY_CALL | + ClientConfigureRequest'RpcType'Unrecognized !ClientConfigureRequest'RpcType'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum ClientConfigureRequest'RpcType where + maybeToEnum 0 = Prelude.Just ClientConfigureRequest'EMPTY_CALL + maybeToEnum 1 = Prelude.Just ClientConfigureRequest'UNARY_CALL + maybeToEnum k + = Prelude.Just + (ClientConfigureRequest'RpcType'Unrecognized + (ClientConfigureRequest'RpcType'UnrecognizedValue + (Prelude.fromIntegral k))) + showEnum ClientConfigureRequest'EMPTY_CALL = "EMPTY_CALL" + showEnum ClientConfigureRequest'UNARY_CALL = "UNARY_CALL" + showEnum + (ClientConfigureRequest'RpcType'Unrecognized (ClientConfigureRequest'RpcType'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "EMPTY_CALL" + = Prelude.Just ClientConfigureRequest'EMPTY_CALL + | (Prelude.==) k "UNARY_CALL" + = Prelude.Just ClientConfigureRequest'UNARY_CALL + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded ClientConfigureRequest'RpcType where + minBound = ClientConfigureRequest'EMPTY_CALL + maxBound = ClientConfigureRequest'UNARY_CALL +instance Prelude.Enum ClientConfigureRequest'RpcType where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum RpcType: " (Prelude.show k__))) + Prelude.id (Data.ProtoLens.maybeToEnum k__) + fromEnum ClientConfigureRequest'EMPTY_CALL = 0 + fromEnum ClientConfigureRequest'UNARY_CALL = 1 + fromEnum + (ClientConfigureRequest'RpcType'Unrecognized (ClientConfigureRequest'RpcType'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ ClientConfigureRequest'UNARY_CALL + = Prelude.error + "ClientConfigureRequest'RpcType.succ: bad argument ClientConfigureRequest'UNARY_CALL. This value would be out of bounds." + succ ClientConfigureRequest'EMPTY_CALL + = ClientConfigureRequest'UNARY_CALL + succ (ClientConfigureRequest'RpcType'Unrecognized _) + = Prelude.error + "ClientConfigureRequest'RpcType.succ: bad argument: unrecognized value" + pred ClientConfigureRequest'EMPTY_CALL + = Prelude.error + "ClientConfigureRequest'RpcType.pred: bad argument ClientConfigureRequest'EMPTY_CALL. This value would be out of bounds." + pred ClientConfigureRequest'UNARY_CALL + = ClientConfigureRequest'EMPTY_CALL + pred (ClientConfigureRequest'RpcType'Unrecognized _) + = Prelude.error + "ClientConfigureRequest'RpcType.pred: bad argument: unrecognized value" + enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom + enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo + enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen + enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo +instance Data.ProtoLens.FieldDefault ClientConfigureRequest'RpcType where + fieldDefault = ClientConfigureRequest'EMPTY_CALL +instance Control.DeepSeq.NFData ClientConfigureRequest'RpcType where + rnf x__ = Prelude.seq x__ () +{- | Fields : + -} +data ClientConfigureResponse + = ClientConfigureResponse'_constructor {_ClientConfigureResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ClientConfigureResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message ClientConfigureResponse where + messageName _ + = Data.Text.pack "grpc.testing.ClientConfigureResponse" + packedMessageDescriptor _ + = "\n\ + \\ETBClientConfigureResponse" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _ClientConfigureResponse'_unknownFields + (\ x__ y__ -> x__ {_ClientConfigureResponse'_unknownFields = y__}) + defMessage + = ClientConfigureResponse'_constructor + {_ClientConfigureResponse'_unknownFields = []} + parseMessage + = let + loop :: + ClientConfigureResponse + -> Data.ProtoLens.Encoding.Bytes.Parser ClientConfigureResponse + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ClientConfigureResponse" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData ClientConfigureResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ClientConfigureResponse'_unknownFields x__) () +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.code' @:: Lens' EchoStatus Data.Int.Int32@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.message' @:: Lens' EchoStatus Data.Text.Text@ -} +data EchoStatus + = EchoStatus'_constructor {_EchoStatus'code :: !Data.Int.Int32, + _EchoStatus'message :: !Data.Text.Text, + _EchoStatus'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show EchoStatus where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField EchoStatus "code" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EchoStatus'code (\ x__ y__ -> x__ {_EchoStatus'code = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField EchoStatus "message" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _EchoStatus'message (\ x__ y__ -> x__ {_EchoStatus'message = y__})) + Prelude.id +instance Data.ProtoLens.Message EchoStatus where + messageName _ = Data.Text.pack "grpc.testing.EchoStatus" + packedMessageDescriptor _ + = "\n\ + \\n\ + \EchoStatus\DC2\DC2\n\ + \\EOTcode\CAN\SOH \SOH(\ENQR\EOTcode\DC2\CAN\n\ + \\amessage\CAN\STX \SOH(\tR\amessage" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + code__field_descriptor + = Data.ProtoLens.FieldDescriptor + "code" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"code")) :: + Data.ProtoLens.FieldDescriptor EchoStatus + message__field_descriptor + = Data.ProtoLens.FieldDescriptor + "message" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"message")) :: + Data.ProtoLens.FieldDescriptor EchoStatus + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, code__field_descriptor), + (Data.ProtoLens.Tag 2, message__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _EchoStatus'_unknownFields + (\ x__ y__ -> x__ {_EchoStatus'_unknownFields = y__}) + defMessage + = EchoStatus'_constructor + {_EchoStatus'code = Data.ProtoLens.fieldDefault, + _EchoStatus'message = Data.ProtoLens.fieldDefault, + _EchoStatus'_unknownFields = []} + parseMessage + = let + loop :: + EchoStatus -> Data.ProtoLens.Encoding.Bytes.Parser EchoStatus + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "code" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"code") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "message" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"message") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "EchoStatus" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"code") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"message") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData EchoStatus where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_EchoStatus'_unknownFields x__) + (Control.DeepSeq.deepseq + (_EchoStatus'code x__) + (Control.DeepSeq.deepseq (_EchoStatus'message x__) ())) +newtype GrpclbRouteType'UnrecognizedValue + = GrpclbRouteType'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data GrpclbRouteType + = GRPCLB_ROUTE_TYPE_UNKNOWN | + GRPCLB_ROUTE_TYPE_FALLBACK | + GRPCLB_ROUTE_TYPE_BACKEND | + GrpclbRouteType'Unrecognized !GrpclbRouteType'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum GrpclbRouteType where + maybeToEnum 0 = Prelude.Just GRPCLB_ROUTE_TYPE_UNKNOWN + maybeToEnum 1 = Prelude.Just GRPCLB_ROUTE_TYPE_FALLBACK + maybeToEnum 2 = Prelude.Just GRPCLB_ROUTE_TYPE_BACKEND + maybeToEnum k + = Prelude.Just + (GrpclbRouteType'Unrecognized + (GrpclbRouteType'UnrecognizedValue (Prelude.fromIntegral k))) + showEnum GRPCLB_ROUTE_TYPE_UNKNOWN = "GRPCLB_ROUTE_TYPE_UNKNOWN" + showEnum GRPCLB_ROUTE_TYPE_FALLBACK = "GRPCLB_ROUTE_TYPE_FALLBACK" + showEnum GRPCLB_ROUTE_TYPE_BACKEND = "GRPCLB_ROUTE_TYPE_BACKEND" + showEnum + (GrpclbRouteType'Unrecognized (GrpclbRouteType'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "GRPCLB_ROUTE_TYPE_UNKNOWN" + = Prelude.Just GRPCLB_ROUTE_TYPE_UNKNOWN + | (Prelude.==) k "GRPCLB_ROUTE_TYPE_FALLBACK" + = Prelude.Just GRPCLB_ROUTE_TYPE_FALLBACK + | (Prelude.==) k "GRPCLB_ROUTE_TYPE_BACKEND" + = Prelude.Just GRPCLB_ROUTE_TYPE_BACKEND + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded GrpclbRouteType where + minBound = GRPCLB_ROUTE_TYPE_UNKNOWN + maxBound = GRPCLB_ROUTE_TYPE_BACKEND +instance Prelude.Enum GrpclbRouteType where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum GrpclbRouteType: " + (Prelude.show k__))) + Prelude.id (Data.ProtoLens.maybeToEnum k__) + fromEnum GRPCLB_ROUTE_TYPE_UNKNOWN = 0 + fromEnum GRPCLB_ROUTE_TYPE_FALLBACK = 1 + fromEnum GRPCLB_ROUTE_TYPE_BACKEND = 2 + fromEnum + (GrpclbRouteType'Unrecognized (GrpclbRouteType'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ GRPCLB_ROUTE_TYPE_BACKEND + = Prelude.error + "GrpclbRouteType.succ: bad argument GRPCLB_ROUTE_TYPE_BACKEND. This value would be out of bounds." + succ GRPCLB_ROUTE_TYPE_UNKNOWN = GRPCLB_ROUTE_TYPE_FALLBACK + succ GRPCLB_ROUTE_TYPE_FALLBACK = GRPCLB_ROUTE_TYPE_BACKEND + succ (GrpclbRouteType'Unrecognized _) + = Prelude.error + "GrpclbRouteType.succ: bad argument: unrecognized value" + pred GRPCLB_ROUTE_TYPE_UNKNOWN + = Prelude.error + "GrpclbRouteType.pred: bad argument GRPCLB_ROUTE_TYPE_UNKNOWN. This value would be out of bounds." + pred GRPCLB_ROUTE_TYPE_FALLBACK = GRPCLB_ROUTE_TYPE_UNKNOWN + pred GRPCLB_ROUTE_TYPE_BACKEND = GRPCLB_ROUTE_TYPE_FALLBACK + pred (GrpclbRouteType'Unrecognized _) + = Prelude.error + "GrpclbRouteType.pred: bad argument: unrecognized value" + enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom + enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo + enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen + enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo +instance Data.ProtoLens.FieldDefault GrpclbRouteType where + fieldDefault = GRPCLB_ROUTE_TYPE_UNKNOWN +instance Control.DeepSeq.NFData GrpclbRouteType where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.command' @:: Lens' HookRequest HookRequest'HookRequestCommand@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.grpcCodeToReturn' @:: Lens' HookRequest Data.Int.Int32@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.grpcStatusDescription' @:: Lens' HookRequest Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.serverPort' @:: Lens' HookRequest Data.Int.Int32@ -} +data HookRequest + = HookRequest'_constructor {_HookRequest'command :: !HookRequest'HookRequestCommand, + _HookRequest'grpcCodeToReturn :: !Data.Int.Int32, + _HookRequest'grpcStatusDescription :: !Data.Text.Text, + _HookRequest'serverPort :: !Data.Int.Int32, + _HookRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show HookRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField HookRequest "command" HookRequest'HookRequestCommand where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _HookRequest'command + (\ x__ y__ -> x__ {_HookRequest'command = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField HookRequest "grpcCodeToReturn" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _HookRequest'grpcCodeToReturn + (\ x__ y__ -> x__ {_HookRequest'grpcCodeToReturn = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField HookRequest "grpcStatusDescription" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _HookRequest'grpcStatusDescription + (\ x__ y__ -> x__ {_HookRequest'grpcStatusDescription = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField HookRequest "serverPort" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _HookRequest'serverPort + (\ x__ y__ -> x__ {_HookRequest'serverPort = y__})) + Prelude.id +instance Data.ProtoLens.Message HookRequest where + messageName _ = Data.Text.pack "grpc.testing.HookRequest" + packedMessageDescriptor _ + = "\n\ + \\vHookRequest\DC2F\n\ + \\acommand\CAN\SOH \SOH(\SO2,.grpc.testing.HookRequest.HookRequestCommandR\acommand\DC2-\n\ + \\DC3grpc_code_to_return\CAN\STX \SOH(\ENQR\DLEgrpcCodeToReturn\DC26\n\ + \\ETBgrpc_status_description\CAN\ETX \SOH(\tR\NAKgrpcStatusDescription\DC2\US\n\ + \\vserver_port\CAN\EOT \SOH(\ENQR\n\ + \serverPort\"F\n\ + \\DC2HookRequestCommand\DC2\SI\n\ + \\vUNSPECIFIED\DLE\NUL\DC2\t\n\ + \\ENQSTART\DLE\SOH\DC2\b\n\ + \\EOTSTOP\DLE\STX\DC2\n\ + \\n\ + \\ACKRETURN\DLE\ETX" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + command__field_descriptor + = Data.ProtoLens.FieldDescriptor + "command" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor HookRequest'HookRequestCommand) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"command")) :: + Data.ProtoLens.FieldDescriptor HookRequest + grpcCodeToReturn__field_descriptor + = Data.ProtoLens.FieldDescriptor + "grpc_code_to_return" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"grpcCodeToReturn")) :: + Data.ProtoLens.FieldDescriptor HookRequest + grpcStatusDescription__field_descriptor + = Data.ProtoLens.FieldDescriptor + "grpc_status_description" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"grpcStatusDescription")) :: + Data.ProtoLens.FieldDescriptor HookRequest + serverPort__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_port" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"serverPort")) :: + Data.ProtoLens.FieldDescriptor HookRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, command__field_descriptor), + (Data.ProtoLens.Tag 2, grpcCodeToReturn__field_descriptor), + (Data.ProtoLens.Tag 3, grpcStatusDescription__field_descriptor), + (Data.ProtoLens.Tag 4, serverPort__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _HookRequest'_unknownFields + (\ x__ y__ -> x__ {_HookRequest'_unknownFields = y__}) + defMessage + = HookRequest'_constructor + {_HookRequest'command = Data.ProtoLens.fieldDefault, + _HookRequest'grpcCodeToReturn = Data.ProtoLens.fieldDefault, + _HookRequest'grpcStatusDescription = Data.ProtoLens.fieldDefault, + _HookRequest'serverPort = Data.ProtoLens.fieldDefault, + _HookRequest'_unknownFields = []} + parseMessage + = let + loop :: + HookRequest -> Data.ProtoLens.Encoding.Bytes.Parser HookRequest + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "command" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"command") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "grpc_code_to_return" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"grpcCodeToReturn") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "grpc_status_description" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"grpcStatusDescription") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "server_port" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverPort") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "HookRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"command") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"grpcCodeToReturn") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"grpcStatusDescription") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"serverPort") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData HookRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_HookRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_HookRequest'command x__) + (Control.DeepSeq.deepseq + (_HookRequest'grpcCodeToReturn x__) + (Control.DeepSeq.deepseq + (_HookRequest'grpcStatusDescription x__) + (Control.DeepSeq.deepseq (_HookRequest'serverPort x__) ())))) +newtype HookRequest'HookRequestCommand'UnrecognizedValue + = HookRequest'HookRequestCommand'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data HookRequest'HookRequestCommand + = HookRequest'UNSPECIFIED | + HookRequest'START | + HookRequest'STOP | + HookRequest'RETURN | + HookRequest'HookRequestCommand'Unrecognized !HookRequest'HookRequestCommand'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum HookRequest'HookRequestCommand where + maybeToEnum 0 = Prelude.Just HookRequest'UNSPECIFIED + maybeToEnum 1 = Prelude.Just HookRequest'START + maybeToEnum 2 = Prelude.Just HookRequest'STOP + maybeToEnum 3 = Prelude.Just HookRequest'RETURN + maybeToEnum k + = Prelude.Just + (HookRequest'HookRequestCommand'Unrecognized + (HookRequest'HookRequestCommand'UnrecognizedValue + (Prelude.fromIntegral k))) + showEnum HookRequest'UNSPECIFIED = "UNSPECIFIED" + showEnum HookRequest'START = "START" + showEnum HookRequest'STOP = "STOP" + showEnum HookRequest'RETURN = "RETURN" + showEnum + (HookRequest'HookRequestCommand'Unrecognized (HookRequest'HookRequestCommand'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "UNSPECIFIED" + = Prelude.Just HookRequest'UNSPECIFIED + | (Prelude.==) k "START" = Prelude.Just HookRequest'START + | (Prelude.==) k "STOP" = Prelude.Just HookRequest'STOP + | (Prelude.==) k "RETURN" = Prelude.Just HookRequest'RETURN + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded HookRequest'HookRequestCommand where + minBound = HookRequest'UNSPECIFIED + maxBound = HookRequest'RETURN +instance Prelude.Enum HookRequest'HookRequestCommand where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum HookRequestCommand: " + (Prelude.show k__))) + Prelude.id (Data.ProtoLens.maybeToEnum k__) + fromEnum HookRequest'UNSPECIFIED = 0 + fromEnum HookRequest'START = 1 + fromEnum HookRequest'STOP = 2 + fromEnum HookRequest'RETURN = 3 + fromEnum + (HookRequest'HookRequestCommand'Unrecognized (HookRequest'HookRequestCommand'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ HookRequest'RETURN + = Prelude.error + "HookRequest'HookRequestCommand.succ: bad argument HookRequest'RETURN. This value would be out of bounds." + succ HookRequest'UNSPECIFIED = HookRequest'START + succ HookRequest'START = HookRequest'STOP + succ HookRequest'STOP = HookRequest'RETURN + succ (HookRequest'HookRequestCommand'Unrecognized _) + = Prelude.error + "HookRequest'HookRequestCommand.succ: bad argument: unrecognized value" + pred HookRequest'UNSPECIFIED + = Prelude.error + "HookRequest'HookRequestCommand.pred: bad argument HookRequest'UNSPECIFIED. This value would be out of bounds." + pred HookRequest'START = HookRequest'UNSPECIFIED + pred HookRequest'STOP = HookRequest'START + pred HookRequest'RETURN = HookRequest'STOP + pred (HookRequest'HookRequestCommand'Unrecognized _) + = Prelude.error + "HookRequest'HookRequestCommand.pred: bad argument: unrecognized value" + enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom + enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo + enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen + enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo +instance Data.ProtoLens.FieldDefault HookRequest'HookRequestCommand where + fieldDefault = HookRequest'UNSPECIFIED +instance Control.DeepSeq.NFData HookRequest'HookRequestCommand where + rnf x__ = Prelude.seq x__ () +{- | Fields : + -} +data HookResponse + = HookResponse'_constructor {_HookResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show HookResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message HookResponse where + messageName _ = Data.Text.pack "grpc.testing.HookResponse" + packedMessageDescriptor _ + = "\n\ + \\fHookResponse" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _HookResponse'_unknownFields + (\ x__ y__ -> x__ {_HookResponse'_unknownFields = y__}) + defMessage + = HookResponse'_constructor {_HookResponse'_unknownFields = []} + parseMessage + = let + loop :: + HookResponse -> Data.ProtoLens.Encoding.Bytes.Parser HookResponse + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "HookResponse" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData HookResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq (_HookResponse'_unknownFields x__) () +{- | Fields : + -} +data LoadBalancerAccumulatedStatsRequest + = LoadBalancerAccumulatedStatsRequest'_constructor {_LoadBalancerAccumulatedStatsRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerAccumulatedStatsRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Message LoadBalancerAccumulatedStatsRequest where + messageName _ + = Data.Text.pack "grpc.testing.LoadBalancerAccumulatedStatsRequest" + packedMessageDescriptor _ + = "\n\ + \#LoadBalancerAccumulatedStatsRequest" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag = let in Data.Map.fromList [] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsRequest'_unknownFields + (\ x__ y__ + -> x__ {_LoadBalancerAccumulatedStatsRequest'_unknownFields = y__}) + defMessage + = LoadBalancerAccumulatedStatsRequest'_constructor + {_LoadBalancerAccumulatedStatsRequest'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerAccumulatedStatsRequest + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerAccumulatedStatsRequest + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "LoadBalancerAccumulatedStatsRequest" + buildMessage + = \ _x + -> Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x) +instance Control.DeepSeq.NFData LoadBalancerAccumulatedStatsRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsRequest'_unknownFields x__) () +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.numRpcsStartedByMethod' @:: Lens' LoadBalancerAccumulatedStatsResponse (Data.Map.Map Data.Text.Text Data.Int.Int32)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.numRpcsSucceededByMethod' @:: Lens' LoadBalancerAccumulatedStatsResponse (Data.Map.Map Data.Text.Text Data.Int.Int32)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.numRpcsFailedByMethod' @:: Lens' LoadBalancerAccumulatedStatsResponse (Data.Map.Map Data.Text.Text Data.Int.Int32)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.statsPerMethod' @:: Lens' LoadBalancerAccumulatedStatsResponse (Data.Map.Map Data.Text.Text LoadBalancerAccumulatedStatsResponse'MethodStats)@ -} +data LoadBalancerAccumulatedStatsResponse + = LoadBalancerAccumulatedStatsResponse'_constructor {_LoadBalancerAccumulatedStatsResponse'numRpcsStartedByMethod :: !(Data.Map.Map Data.Text.Text Data.Int.Int32), + _LoadBalancerAccumulatedStatsResponse'numRpcsSucceededByMethod :: !(Data.Map.Map Data.Text.Text Data.Int.Int32), + _LoadBalancerAccumulatedStatsResponse'numRpcsFailedByMethod :: !(Data.Map.Map Data.Text.Text Data.Int.Int32), + _LoadBalancerAccumulatedStatsResponse'statsPerMethod :: !(Data.Map.Map Data.Text.Text LoadBalancerAccumulatedStatsResponse'MethodStats), + _LoadBalancerAccumulatedStatsResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerAccumulatedStatsResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse "numRpcsStartedByMethod" (Data.Map.Map Data.Text.Text Data.Int.Int32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'numRpcsStartedByMethod + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'numRpcsStartedByMethod = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse "numRpcsSucceededByMethod" (Data.Map.Map Data.Text.Text Data.Int.Int32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'numRpcsSucceededByMethod + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'numRpcsSucceededByMethod = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse "numRpcsFailedByMethod" (Data.Map.Map Data.Text.Text Data.Int.Int32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'numRpcsFailedByMethod + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'numRpcsFailedByMethod = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse "statsPerMethod" (Data.Map.Map Data.Text.Text LoadBalancerAccumulatedStatsResponse'MethodStats) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'statsPerMethod + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'statsPerMethod = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerAccumulatedStatsResponse where + messageName _ + = Data.Text.pack + "grpc.testing.LoadBalancerAccumulatedStatsResponse" + packedMessageDescriptor _ + = "\n\ + \$LoadBalancerAccumulatedStatsResponse\DC2\142\SOH\n\ + \\SUBnum_rpcs_started_by_method\CAN\SOH \ETX(\v2N.grpc.testing.LoadBalancerAccumulatedStatsResponse.NumRpcsStartedByMethodEntryR\SYNnumRpcsStartedByMethodB\STX\CAN\SOH\DC2\148\SOH\n\ + \\FSnum_rpcs_succeeded_by_method\CAN\STX \ETX(\v2P.grpc.testing.LoadBalancerAccumulatedStatsResponse.NumRpcsSucceededByMethodEntryR\CANnumRpcsSucceededByMethodB\STX\CAN\SOH\DC2\139\SOH\n\ + \\EMnum_rpcs_failed_by_method\CAN\ETX \ETX(\v2M.grpc.testing.LoadBalancerAccumulatedStatsResponse.NumRpcsFailedByMethodEntryR\NAKnumRpcsFailedByMethodB\STX\CAN\SOH\DC2p\n\ + \\DLEstats_per_method\CAN\EOT \ETX(\v2F.grpc.testing.LoadBalancerAccumulatedStatsResponse.StatsPerMethodEntryR\SOstatsPerMethod\SUBI\n\ + \\ESCNumRpcsStartedByMethodEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH\SUBK\n\ + \\GSNumRpcsSucceededByMethodEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH\SUBH\n\ + \\SUBNumRpcsFailedByMethodEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH\SUB\207\SOH\n\ + \\vMethodStats\DC2!\n\ + \\frpcs_started\CAN\SOH \SOH(\ENQR\vrpcsStarted\DC2b\n\ + \\ACKresult\CAN\STX \ETX(\v2J.grpc.testing.LoadBalancerAccumulatedStatsResponse.MethodStats.ResultEntryR\ACKresult\SUB9\n\ + \\vResultEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\ENQR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH\SUB\129\SOH\n\ + \\DC3StatsPerMethodEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2T\n\ + \\ENQvalue\CAN\STX \SOH(\v2>.grpc.testing.LoadBalancerAccumulatedStatsResponse.MethodStatsR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + numRpcsStartedByMethod__field_descriptor + = Data.ProtoLens.FieldDescriptor + "num_rpcs_started_by_method" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"numRpcsStartedByMethod")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse + numRpcsSucceededByMethod__field_descriptor + = Data.ProtoLens.FieldDescriptor + "num_rpcs_succeeded_by_method" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"numRpcsSucceededByMethod")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse + numRpcsFailedByMethod__field_descriptor + = Data.ProtoLens.FieldDescriptor + "num_rpcs_failed_by_method" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"numRpcsFailedByMethod")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse + statsPerMethod__field_descriptor + = Data.ProtoLens.FieldDescriptor + "stats_per_method" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"statsPerMethod")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, numRpcsStartedByMethod__field_descriptor), + (Data.ProtoLens.Tag 2, numRpcsSucceededByMethod__field_descriptor), + (Data.ProtoLens.Tag 3, numRpcsFailedByMethod__field_descriptor), + (Data.ProtoLens.Tag 4, statsPerMethod__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'_unknownFields + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'_unknownFields = y__}) + defMessage + = LoadBalancerAccumulatedStatsResponse'_constructor + {_LoadBalancerAccumulatedStatsResponse'numRpcsStartedByMethod = Data.Map.empty, + _LoadBalancerAccumulatedStatsResponse'numRpcsSucceededByMethod = Data.Map.empty, + _LoadBalancerAccumulatedStatsResponse'numRpcsFailedByMethod = Data.Map.empty, + _LoadBalancerAccumulatedStatsResponse'statsPerMethod = Data.Map.empty, + _LoadBalancerAccumulatedStatsResponse'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerAccumulatedStatsResponse + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerAccumulatedStatsResponse + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !(entry :: LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "num_rpcs_started_by_method" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"numRpcsStartedByMethod") + (\ !t -> Data.Map.insert key value t) x)) + 18 + -> do !(entry :: LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "num_rpcs_succeeded_by_method" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"numRpcsSucceededByMethod") + (\ !t -> Data.Map.insert key value t) x)) + 26 + -> do !(entry :: LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "num_rpcs_failed_by_method" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"numRpcsFailedByMethod") + (\ !t -> Data.Map.insert key value t) x)) + 34 + -> do !(entry :: LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "stats_per_method" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"statsPerMethod") + (\ !t -> Data.Map.insert key value t) x)) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) + "LoadBalancerAccumulatedStatsResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"numRpcsStartedByMethod") _x)))) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"numRpcsSucceededByMethod") _x)))) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"numRpcsFailedByMethod") _x)))) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"statsPerMethod") _x)))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData LoadBalancerAccumulatedStatsResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'_unknownFields x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'numRpcsStartedByMethod x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'numRpcsSucceededByMethod + x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'numRpcsFailedByMethod x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'statsPerMethod x__) ())))) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.rpcsStarted' @:: Lens' LoadBalancerAccumulatedStatsResponse'MethodStats Data.Int.Int32@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.result' @:: Lens' LoadBalancerAccumulatedStatsResponse'MethodStats (Data.Map.Map Data.Int.Int32 Data.Int.Int32)@ -} +data LoadBalancerAccumulatedStatsResponse'MethodStats + = LoadBalancerAccumulatedStatsResponse'MethodStats'_constructor {_LoadBalancerAccumulatedStatsResponse'MethodStats'rpcsStarted :: !Data.Int.Int32, + _LoadBalancerAccumulatedStatsResponse'MethodStats'result :: !(Data.Map.Map Data.Int.Int32 Data.Int.Int32), + _LoadBalancerAccumulatedStatsResponse'MethodStats'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerAccumulatedStatsResponse'MethodStats where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse'MethodStats "rpcsStarted" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'MethodStats'rpcsStarted + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'MethodStats'rpcsStarted = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse'MethodStats "result" (Data.Map.Map Data.Int.Int32 Data.Int.Int32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'MethodStats'result + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'MethodStats'result = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerAccumulatedStatsResponse'MethodStats where + messageName _ + = Data.Text.pack + "grpc.testing.LoadBalancerAccumulatedStatsResponse.MethodStats" + packedMessageDescriptor _ + = "\n\ + \\vMethodStats\DC2!\n\ + \\frpcs_started\CAN\SOH \SOH(\ENQR\vrpcsStarted\DC2b\n\ + \\ACKresult\CAN\STX \ETX(\v2J.grpc.testing.LoadBalancerAccumulatedStatsResponse.MethodStats.ResultEntryR\ACKresult\SUB9\n\ + \\vResultEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\ENQR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + rpcsStarted__field_descriptor + = Data.ProtoLens.FieldDescriptor + "rpcs_started" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"rpcsStarted")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse'MethodStats + result__field_descriptor + = Data.ProtoLens.FieldDescriptor + "result" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"result")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse'MethodStats + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, rpcsStarted__field_descriptor), + (Data.ProtoLens.Tag 2, result__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'MethodStats'_unknownFields + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'MethodStats'_unknownFields = y__}) + defMessage + = LoadBalancerAccumulatedStatsResponse'MethodStats'_constructor + {_LoadBalancerAccumulatedStatsResponse'MethodStats'rpcsStarted = Data.ProtoLens.fieldDefault, + _LoadBalancerAccumulatedStatsResponse'MethodStats'result = Data.Map.empty, + _LoadBalancerAccumulatedStatsResponse'MethodStats'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerAccumulatedStatsResponse'MethodStats + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerAccumulatedStatsResponse'MethodStats + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "rpcs_started" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"rpcsStarted") y x) + 18 + -> do !(entry :: LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "result" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"result") + (\ !t -> Data.Map.insert key value t) x)) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "MethodStats" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"rpcsStarted") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry))))) + (Data.Map.toList + (Lens.Family2.view (Data.ProtoLens.Field.field @"result") _x)))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData LoadBalancerAccumulatedStatsResponse'MethodStats where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'MethodStats'_unknownFields + x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'MethodStats'rpcsStarted x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'MethodStats'result x__) ())) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.key' @:: Lens' LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry Data.Int.Int32@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.value' @:: Lens' LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry Data.Int.Int32@ -} +data LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry + = LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'_constructor {_LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'key :: !Data.Int.Int32, + _LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'value :: !Data.Int.Int32, + _LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry "key" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'key + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry "value" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'value + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry where + messageName _ + = Data.Text.pack + "grpc.testing.LoadBalancerAccumulatedStatsResponse.MethodStats.ResultEntry" + packedMessageDescriptor _ + = "\n\ + \\vResultEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\ENQR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'_unknownFields + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'_unknownFields = y__}) + defMessage + = LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'_constructor + {_LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'key = Data.ProtoLens.fieldDefault, + _LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'value = Data.ProtoLens.fieldDefault, + _LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ResultEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'_unknownFields + x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'key + x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'MethodStats'ResultEntry'value + x__) + ())) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.key' @:: Lens' LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.value' @:: Lens' LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry Data.Int.Int32@ -} +data LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry + = LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'_constructor {_LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'key :: !Data.Text.Text, + _LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'value :: !Data.Int.Int32, + _LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'key + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry "value" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'value + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry where + messageName _ + = Data.Text.pack + "grpc.testing.LoadBalancerAccumulatedStatsResponse.NumRpcsFailedByMethodEntry" + packedMessageDescriptor _ + = "\n\ + \\SUBNumRpcsFailedByMethodEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'_unknownFields + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'_unknownFields = y__}) + defMessage + = LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'_constructor + {_LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'key = Data.ProtoLens.fieldDefault, + _LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'value = Data.ProtoLens.fieldDefault, + _LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "NumRpcsFailedByMethodEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'_unknownFields + x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'key + x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'NumRpcsFailedByMethodEntry'value + x__) + ())) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.key' @:: Lens' LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.value' @:: Lens' LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry Data.Int.Int32@ -} +data LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry + = LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'_constructor {_LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'key :: !Data.Text.Text, + _LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'value :: !Data.Int.Int32, + _LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'key + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry "value" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'value + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry where + messageName _ + = Data.Text.pack + "grpc.testing.LoadBalancerAccumulatedStatsResponse.NumRpcsStartedByMethodEntry" + packedMessageDescriptor _ + = "\n\ + \\ESCNumRpcsStartedByMethodEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'_unknownFields + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'_unknownFields = y__}) + defMessage + = LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'_constructor + {_LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'key = Data.ProtoLens.fieldDefault, + _LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'value = Data.ProtoLens.fieldDefault, + _LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "NumRpcsStartedByMethodEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'_unknownFields + x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'key + x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'NumRpcsStartedByMethodEntry'value + x__) + ())) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.key' @:: Lens' LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.value' @:: Lens' LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry Data.Int.Int32@ -} +data LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry + = LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'_constructor {_LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'key :: !Data.Text.Text, + _LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'value :: !Data.Int.Int32, + _LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'key + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry "value" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'value + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry where + messageName _ + = Data.Text.pack + "grpc.testing.LoadBalancerAccumulatedStatsResponse.NumRpcsSucceededByMethodEntry" + packedMessageDescriptor _ + = "\n\ + \\GSNumRpcsSucceededByMethodEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'_unknownFields + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'_unknownFields = y__}) + defMessage + = LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'_constructor + {_LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'key = Data.ProtoLens.fieldDefault, + _LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'value = Data.ProtoLens.fieldDefault, + _LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "NumRpcsSucceededByMethodEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'_unknownFields + x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'key + x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'NumRpcsSucceededByMethodEntry'value + x__) + ())) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.key' @:: Lens' LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.value' @:: Lens' LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry LoadBalancerAccumulatedStatsResponse'MethodStats@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'value' @:: Lens' LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry (Prelude.Maybe LoadBalancerAccumulatedStatsResponse'MethodStats)@ -} +data LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry + = LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'_constructor {_LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'key :: !Data.Text.Text, + _LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'value :: !(Prelude.Maybe LoadBalancerAccumulatedStatsResponse'MethodStats), + _LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'key + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry "value" LoadBalancerAccumulatedStatsResponse'MethodStats where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'value + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'value = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry "maybe'value" (Prelude.Maybe LoadBalancerAccumulatedStatsResponse'MethodStats) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'value + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry where + messageName _ + = Data.Text.pack + "grpc.testing.LoadBalancerAccumulatedStatsResponse.StatsPerMethodEntry" + packedMessageDescriptor _ + = "\n\ + \\DC3StatsPerMethodEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2T\n\ + \\ENQvalue\CAN\STX \SOH(\v2>.grpc.testing.LoadBalancerAccumulatedStatsResponse.MethodStatsR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor LoadBalancerAccumulatedStatsResponse'MethodStats) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'value")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'_unknownFields + (\ x__ y__ + -> x__ + {_LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'_unknownFields = y__}) + defMessage + = LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'_constructor + {_LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'key = Data.ProtoLens.fieldDefault, + _LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'value = Prelude.Nothing, + _LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StatsPerMethodEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'_unknownFields + x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'key x__) + (Control.DeepSeq.deepseq + (_LoadBalancerAccumulatedStatsResponse'StatsPerMethodEntry'value + x__) + ())) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.numRpcs' @:: Lens' LoadBalancerStatsRequest Data.Int.Int32@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.timeoutSec' @:: Lens' LoadBalancerStatsRequest Data.Int.Int32@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.metadataKeys' @:: Lens' LoadBalancerStatsRequest [Data.Text.Text]@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.vec'metadataKeys' @:: Lens' LoadBalancerStatsRequest (Data.Vector.Vector Data.Text.Text)@ -} +data LoadBalancerStatsRequest + = LoadBalancerStatsRequest'_constructor {_LoadBalancerStatsRequest'numRpcs :: !Data.Int.Int32, + _LoadBalancerStatsRequest'timeoutSec :: !Data.Int.Int32, + _LoadBalancerStatsRequest'metadataKeys :: !(Data.Vector.Vector Data.Text.Text), + _LoadBalancerStatsRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerStatsRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerStatsRequest "numRpcs" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsRequest'numRpcs + (\ x__ y__ -> x__ {_LoadBalancerStatsRequest'numRpcs = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerStatsRequest "timeoutSec" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsRequest'timeoutSec + (\ x__ y__ -> x__ {_LoadBalancerStatsRequest'timeoutSec = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerStatsRequest "metadataKeys" [Data.Text.Text] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsRequest'metadataKeys + (\ x__ y__ -> x__ {_LoadBalancerStatsRequest'metadataKeys = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField LoadBalancerStatsRequest "vec'metadataKeys" (Data.Vector.Vector Data.Text.Text) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsRequest'metadataKeys + (\ x__ y__ -> x__ {_LoadBalancerStatsRequest'metadataKeys = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerStatsRequest where + messageName _ + = Data.Text.pack "grpc.testing.LoadBalancerStatsRequest" + packedMessageDescriptor _ + = "\n\ + \\CANLoadBalancerStatsRequest\DC2\EM\n\ + \\bnum_rpcs\CAN\SOH \SOH(\ENQR\anumRpcs\DC2\US\n\ + \\vtimeout_sec\CAN\STX \SOH(\ENQR\n\ + \timeoutSec\DC2#\n\ + \\rmetadata_keys\CAN\ETX \ETX(\tR\fmetadataKeys" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + numRpcs__field_descriptor + = Data.ProtoLens.FieldDescriptor + "num_rpcs" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"numRpcs")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsRequest + timeoutSec__field_descriptor + = Data.ProtoLens.FieldDescriptor + "timeout_sec" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"timeoutSec")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsRequest + metadataKeys__field_descriptor + = Data.ProtoLens.FieldDescriptor + "metadata_keys" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"metadataKeys")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, numRpcs__field_descriptor), + (Data.ProtoLens.Tag 2, timeoutSec__field_descriptor), + (Data.ProtoLens.Tag 3, metadataKeys__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerStatsRequest'_unknownFields + (\ x__ y__ -> x__ {_LoadBalancerStatsRequest'_unknownFields = y__}) + defMessage + = LoadBalancerStatsRequest'_constructor + {_LoadBalancerStatsRequest'numRpcs = Data.ProtoLens.fieldDefault, + _LoadBalancerStatsRequest'timeoutSec = Data.ProtoLens.fieldDefault, + _LoadBalancerStatsRequest'metadataKeys = Data.Vector.Generic.empty, + _LoadBalancerStatsRequest'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerStatsRequest + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerStatsRequest + loop x mutable'metadataKeys + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'metadataKeys <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'metadataKeys) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'metadataKeys") + frozen'metadataKeys x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "num_rpcs" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"numRpcs") y x) + mutable'metadataKeys + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "timeout_sec" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"timeoutSec") y x) + mutable'metadataKeys + 26 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "metadata_keys" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + mutable'metadataKeys y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'metadataKeys + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'metadataKeys <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'metadataKeys) + "LoadBalancerStatsRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"numRpcs") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"timeoutSec") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'metadataKeys") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData LoadBalancerStatsRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerStatsRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsRequest'numRpcs x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsRequest'timeoutSec x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsRequest'metadataKeys x__) ()))) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.rpcsByPeer' @:: Lens' LoadBalancerStatsResponse (Data.Map.Map Data.Text.Text Data.Int.Int32)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.numFailures' @:: Lens' LoadBalancerStatsResponse Data.Int.Int32@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.rpcsByMethod' @:: Lens' LoadBalancerStatsResponse (Data.Map.Map Data.Text.Text LoadBalancerStatsResponse'RpcsByPeer)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.metadatasByPeer' @:: Lens' LoadBalancerStatsResponse (Data.Map.Map Data.Text.Text LoadBalancerStatsResponse'MetadataByPeer)@ -} +data LoadBalancerStatsResponse + = LoadBalancerStatsResponse'_constructor {_LoadBalancerStatsResponse'rpcsByPeer :: !(Data.Map.Map Data.Text.Text Data.Int.Int32), + _LoadBalancerStatsResponse'numFailures :: !Data.Int.Int32, + _LoadBalancerStatsResponse'rpcsByMethod :: !(Data.Map.Map Data.Text.Text LoadBalancerStatsResponse'RpcsByPeer), + _LoadBalancerStatsResponse'metadatasByPeer :: !(Data.Map.Map Data.Text.Text LoadBalancerStatsResponse'MetadataByPeer), + _LoadBalancerStatsResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerStatsResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse "rpcsByPeer" (Data.Map.Map Data.Text.Text Data.Int.Int32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'rpcsByPeer + (\ x__ y__ -> x__ {_LoadBalancerStatsResponse'rpcsByPeer = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse "numFailures" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'numFailures + (\ x__ y__ -> x__ {_LoadBalancerStatsResponse'numFailures = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse "rpcsByMethod" (Data.Map.Map Data.Text.Text LoadBalancerStatsResponse'RpcsByPeer) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'rpcsByMethod + (\ x__ y__ -> x__ {_LoadBalancerStatsResponse'rpcsByMethod = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse "metadatasByPeer" (Data.Map.Map Data.Text.Text LoadBalancerStatsResponse'MetadataByPeer) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'metadatasByPeer + (\ x__ y__ + -> x__ {_LoadBalancerStatsResponse'metadatasByPeer = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerStatsResponse where + messageName _ + = Data.Text.pack "grpc.testing.LoadBalancerStatsResponse" + packedMessageDescriptor _ + = "\n\ + \\EMLoadBalancerStatsResponse\DC2Y\n\ + \\frpcs_by_peer\CAN\SOH \ETX(\v27.grpc.testing.LoadBalancerStatsResponse.RpcsByPeerEntryR\n\ + \rpcsByPeer\DC2!\n\ + \\fnum_failures\CAN\STX \SOH(\ENQR\vnumFailures\DC2_\n\ + \\SOrpcs_by_method\CAN\ETX \ETX(\v29.grpc.testing.LoadBalancerStatsResponse.RpcsByMethodEntryR\frpcsByMethod\DC2h\n\ + \\DC1metadatas_by_peer\CAN\EOT \ETX(\v2<.grpc.testing.LoadBalancerStatsResponse.MetadatasByPeerEntryR\SImetadatasByPeer\SUB\129\SOH\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue\DC2H\n\ + \\EOTtype\CAN\ETX \SOH(\SO24.grpc.testing.LoadBalancerStatsResponse.MetadataTypeR\EOTtype\SUB`\n\ + \\vRpcMetadata\DC2Q\n\ + \\bmetadata\CAN\SOH \ETX(\v25.grpc.testing.LoadBalancerStatsResponse.MetadataEntryR\bmetadata\SUBh\n\ + \\SOMetadataByPeer\DC2V\n\ + \\frpc_metadata\CAN\SOH \ETX(\v23.grpc.testing.LoadBalancerStatsResponse.RpcMetadataR\vrpcMetadata\SUB\177\SOH\n\ + \\n\ + \RpcsByPeer\DC2d\n\ + \\frpcs_by_peer\CAN\SOH \ETX(\v2B.grpc.testing.LoadBalancerStatsResponse.RpcsByPeer.RpcsByPeerEntryR\n\ + \rpcsByPeer\SUB=\n\ + \\SIRpcsByPeerEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH\SUB=\n\ + \\SIRpcsByPeerEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH\SUBs\n\ + \\DC1RpcsByMethodEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2H\n\ + \\ENQvalue\CAN\STX \SOH(\v22.grpc.testing.LoadBalancerStatsResponse.RpcsByPeerR\ENQvalue:\STX8\SOH\SUBz\n\ + \\DC4MetadatasByPeerEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2L\n\ + \\ENQvalue\CAN\STX \SOH(\v26.grpc.testing.LoadBalancerStatsResponse.MetadataByPeerR\ENQvalue:\STX8\SOH\"6\n\ + \\fMetadataType\DC2\v\n\ + \\aUNKNOWN\DLE\NUL\DC2\v\n\ + \\aINITIAL\DLE\SOH\DC2\f\n\ + \\bTRAILING\DLE\STX" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + rpcsByPeer__field_descriptor + = Data.ProtoLens.FieldDescriptor + "rpcs_by_peer" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor LoadBalancerStatsResponse'RpcsByPeerEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"rpcsByPeer")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse + numFailures__field_descriptor + = Data.ProtoLens.FieldDescriptor + "num_failures" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"numFailures")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse + rpcsByMethod__field_descriptor + = Data.ProtoLens.FieldDescriptor + "rpcs_by_method" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor LoadBalancerStatsResponse'RpcsByMethodEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"rpcsByMethod")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse + metadatasByPeer__field_descriptor + = Data.ProtoLens.FieldDescriptor + "metadatas_by_peer" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor LoadBalancerStatsResponse'MetadatasByPeerEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"metadatasByPeer")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, rpcsByPeer__field_descriptor), + (Data.ProtoLens.Tag 2, numFailures__field_descriptor), + (Data.ProtoLens.Tag 3, rpcsByMethod__field_descriptor), + (Data.ProtoLens.Tag 4, metadatasByPeer__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'_unknownFields + (\ x__ y__ + -> x__ {_LoadBalancerStatsResponse'_unknownFields = y__}) + defMessage + = LoadBalancerStatsResponse'_constructor + {_LoadBalancerStatsResponse'rpcsByPeer = Data.Map.empty, + _LoadBalancerStatsResponse'numFailures = Data.ProtoLens.fieldDefault, + _LoadBalancerStatsResponse'rpcsByMethod = Data.Map.empty, + _LoadBalancerStatsResponse'metadatasByPeer = Data.Map.empty, + _LoadBalancerStatsResponse'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerStatsResponse + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerStatsResponse + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !(entry :: LoadBalancerStatsResponse'RpcsByPeerEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "rpcs_by_peer" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"rpcsByPeer") + (\ !t -> Data.Map.insert key value t) x)) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "num_failures" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"numFailures") y x) + 26 + -> do !(entry :: LoadBalancerStatsResponse'RpcsByMethodEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "rpcs_by_method" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"rpcsByMethod") + (\ !t -> Data.Map.insert key value t) x)) + 34 + -> do !(entry :: LoadBalancerStatsResponse'MetadatasByPeerEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "metadatas_by_peer" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"metadatasByPeer") + (\ !t -> Data.Map.insert key value t) x)) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "LoadBalancerStatsResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + LoadBalancerStatsResponse'RpcsByPeerEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"rpcsByPeer") _x)))) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"numFailures") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + LoadBalancerStatsResponse'RpcsByMethodEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"rpcsByMethod") _x)))) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + LoadBalancerStatsResponse'MetadatasByPeerEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"metadatasByPeer") _x)))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData LoadBalancerStatsResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'_unknownFields x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'rpcsByPeer x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'numFailures x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'rpcsByMethod x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'metadatasByPeer x__) ())))) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.rpcMetadata' @:: Lens' LoadBalancerStatsResponse'MetadataByPeer [LoadBalancerStatsResponse'RpcMetadata]@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.vec'rpcMetadata' @:: Lens' LoadBalancerStatsResponse'MetadataByPeer (Data.Vector.Vector LoadBalancerStatsResponse'RpcMetadata)@ -} +data LoadBalancerStatsResponse'MetadataByPeer + = LoadBalancerStatsResponse'MetadataByPeer'_constructor {_LoadBalancerStatsResponse'MetadataByPeer'rpcMetadata :: !(Data.Vector.Vector LoadBalancerStatsResponse'RpcMetadata), + _LoadBalancerStatsResponse'MetadataByPeer'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerStatsResponse'MetadataByPeer where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'MetadataByPeer "rpcMetadata" [LoadBalancerStatsResponse'RpcMetadata] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'MetadataByPeer'rpcMetadata + (\ x__ y__ + -> x__ + {_LoadBalancerStatsResponse'MetadataByPeer'rpcMetadata = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'MetadataByPeer "vec'rpcMetadata" (Data.Vector.Vector LoadBalancerStatsResponse'RpcMetadata) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'MetadataByPeer'rpcMetadata + (\ x__ y__ + -> x__ + {_LoadBalancerStatsResponse'MetadataByPeer'rpcMetadata = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerStatsResponse'MetadataByPeer where + messageName _ + = Data.Text.pack + "grpc.testing.LoadBalancerStatsResponse.MetadataByPeer" + packedMessageDescriptor _ + = "\n\ + \\SOMetadataByPeer\DC2V\n\ + \\frpc_metadata\CAN\SOH \ETX(\v23.grpc.testing.LoadBalancerStatsResponse.RpcMetadataR\vrpcMetadata" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + rpcMetadata__field_descriptor + = Data.ProtoLens.FieldDescriptor + "rpc_metadata" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor LoadBalancerStatsResponse'RpcMetadata) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"rpcMetadata")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse'MetadataByPeer + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, rpcMetadata__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'MetadataByPeer'_unknownFields + (\ x__ y__ + -> x__ + {_LoadBalancerStatsResponse'MetadataByPeer'_unknownFields = y__}) + defMessage + = LoadBalancerStatsResponse'MetadataByPeer'_constructor + {_LoadBalancerStatsResponse'MetadataByPeer'rpcMetadata = Data.Vector.Generic.empty, + _LoadBalancerStatsResponse'MetadataByPeer'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerStatsResponse'MetadataByPeer + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld LoadBalancerStatsResponse'RpcMetadata + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerStatsResponse'MetadataByPeer + loop x mutable'rpcMetadata + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'rpcMetadata <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'rpcMetadata) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'rpcMetadata") frozen'rpcMetadata + x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "rpc_metadata" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + mutable'rpcMetadata y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'rpcMetadata + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'rpcMetadata <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'rpcMetadata) + "MetadataByPeer" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'rpcMetadata") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData LoadBalancerStatsResponse'MetadataByPeer where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'MetadataByPeer'_unknownFields x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'MetadataByPeer'rpcMetadata x__) ()) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.key' @:: Lens' LoadBalancerStatsResponse'MetadataEntry Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.value' @:: Lens' LoadBalancerStatsResponse'MetadataEntry Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.type'' @:: Lens' LoadBalancerStatsResponse'MetadataEntry LoadBalancerStatsResponse'MetadataType@ -} +data LoadBalancerStatsResponse'MetadataEntry + = LoadBalancerStatsResponse'MetadataEntry'_constructor {_LoadBalancerStatsResponse'MetadataEntry'key :: !Data.Text.Text, + _LoadBalancerStatsResponse'MetadataEntry'value :: !Data.Text.Text, + _LoadBalancerStatsResponse'MetadataEntry'type' :: !LoadBalancerStatsResponse'MetadataType, + _LoadBalancerStatsResponse'MetadataEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerStatsResponse'MetadataEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'MetadataEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'MetadataEntry'key + (\ x__ y__ + -> x__ {_LoadBalancerStatsResponse'MetadataEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'MetadataEntry "value" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'MetadataEntry'value + (\ x__ y__ + -> x__ {_LoadBalancerStatsResponse'MetadataEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'MetadataEntry "type'" LoadBalancerStatsResponse'MetadataType where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'MetadataEntry'type' + (\ x__ y__ + -> x__ {_LoadBalancerStatsResponse'MetadataEntry'type' = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerStatsResponse'MetadataEntry where + messageName _ + = Data.Text.pack + "grpc.testing.LoadBalancerStatsResponse.MetadataEntry" + packedMessageDescriptor _ + = "\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue\DC2H\n\ + \\EOTtype\CAN\ETX \SOH(\SO24.grpc.testing.LoadBalancerStatsResponse.MetadataTypeR\EOTtype" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse'MetadataEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse'MetadataEntry + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor LoadBalancerStatsResponse'MetadataType) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"type'")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse'MetadataEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor), + (Data.ProtoLens.Tag 3, type'__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'MetadataEntry'_unknownFields + (\ x__ y__ + -> x__ + {_LoadBalancerStatsResponse'MetadataEntry'_unknownFields = y__}) + defMessage + = LoadBalancerStatsResponse'MetadataEntry'_constructor + {_LoadBalancerStatsResponse'MetadataEntry'key = Data.ProtoLens.fieldDefault, + _LoadBalancerStatsResponse'MetadataEntry'value = Data.ProtoLens.fieldDefault, + _LoadBalancerStatsResponse'MetadataEntry'type' = Data.ProtoLens.fieldDefault, + _LoadBalancerStatsResponse'MetadataEntry'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerStatsResponse'MetadataEntry + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerStatsResponse'MetadataEntry + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + 24 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "type" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "MetadataEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"type'") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 24) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData LoadBalancerStatsResponse'MetadataEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'MetadataEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'MetadataEntry'key x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'MetadataEntry'value x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'MetadataEntry'type' x__) ()))) +newtype LoadBalancerStatsResponse'MetadataType'UnrecognizedValue + = LoadBalancerStatsResponse'MetadataType'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data LoadBalancerStatsResponse'MetadataType + = LoadBalancerStatsResponse'UNKNOWN | + LoadBalancerStatsResponse'INITIAL | + LoadBalancerStatsResponse'TRAILING | + LoadBalancerStatsResponse'MetadataType'Unrecognized !LoadBalancerStatsResponse'MetadataType'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum LoadBalancerStatsResponse'MetadataType where + maybeToEnum 0 = Prelude.Just LoadBalancerStatsResponse'UNKNOWN + maybeToEnum 1 = Prelude.Just LoadBalancerStatsResponse'INITIAL + maybeToEnum 2 = Prelude.Just LoadBalancerStatsResponse'TRAILING + maybeToEnum k + = Prelude.Just + (LoadBalancerStatsResponse'MetadataType'Unrecognized + (LoadBalancerStatsResponse'MetadataType'UnrecognizedValue + (Prelude.fromIntegral k))) + showEnum LoadBalancerStatsResponse'UNKNOWN = "UNKNOWN" + showEnum LoadBalancerStatsResponse'INITIAL = "INITIAL" + showEnum LoadBalancerStatsResponse'TRAILING = "TRAILING" + showEnum + (LoadBalancerStatsResponse'MetadataType'Unrecognized (LoadBalancerStatsResponse'MetadataType'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "UNKNOWN" + = Prelude.Just LoadBalancerStatsResponse'UNKNOWN + | (Prelude.==) k "INITIAL" + = Prelude.Just LoadBalancerStatsResponse'INITIAL + | (Prelude.==) k "TRAILING" + = Prelude.Just LoadBalancerStatsResponse'TRAILING + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded LoadBalancerStatsResponse'MetadataType where + minBound = LoadBalancerStatsResponse'UNKNOWN + maxBound = LoadBalancerStatsResponse'TRAILING +instance Prelude.Enum LoadBalancerStatsResponse'MetadataType where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum MetadataType: " + (Prelude.show k__))) + Prelude.id (Data.ProtoLens.maybeToEnum k__) + fromEnum LoadBalancerStatsResponse'UNKNOWN = 0 + fromEnum LoadBalancerStatsResponse'INITIAL = 1 + fromEnum LoadBalancerStatsResponse'TRAILING = 2 + fromEnum + (LoadBalancerStatsResponse'MetadataType'Unrecognized (LoadBalancerStatsResponse'MetadataType'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ LoadBalancerStatsResponse'TRAILING + = Prelude.error + "LoadBalancerStatsResponse'MetadataType.succ: bad argument LoadBalancerStatsResponse'TRAILING. This value would be out of bounds." + succ LoadBalancerStatsResponse'UNKNOWN + = LoadBalancerStatsResponse'INITIAL + succ LoadBalancerStatsResponse'INITIAL + = LoadBalancerStatsResponse'TRAILING + succ (LoadBalancerStatsResponse'MetadataType'Unrecognized _) + = Prelude.error + "LoadBalancerStatsResponse'MetadataType.succ: bad argument: unrecognized value" + pred LoadBalancerStatsResponse'UNKNOWN + = Prelude.error + "LoadBalancerStatsResponse'MetadataType.pred: bad argument LoadBalancerStatsResponse'UNKNOWN. This value would be out of bounds." + pred LoadBalancerStatsResponse'INITIAL + = LoadBalancerStatsResponse'UNKNOWN + pred LoadBalancerStatsResponse'TRAILING + = LoadBalancerStatsResponse'INITIAL + pred (LoadBalancerStatsResponse'MetadataType'Unrecognized _) + = Prelude.error + "LoadBalancerStatsResponse'MetadataType.pred: bad argument: unrecognized value" + enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom + enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo + enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen + enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo +instance Data.ProtoLens.FieldDefault LoadBalancerStatsResponse'MetadataType where + fieldDefault = LoadBalancerStatsResponse'UNKNOWN +instance Control.DeepSeq.NFData LoadBalancerStatsResponse'MetadataType where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.key' @:: Lens' LoadBalancerStatsResponse'MetadatasByPeerEntry Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.value' @:: Lens' LoadBalancerStatsResponse'MetadatasByPeerEntry LoadBalancerStatsResponse'MetadataByPeer@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'value' @:: Lens' LoadBalancerStatsResponse'MetadatasByPeerEntry (Prelude.Maybe LoadBalancerStatsResponse'MetadataByPeer)@ -} +data LoadBalancerStatsResponse'MetadatasByPeerEntry + = LoadBalancerStatsResponse'MetadatasByPeerEntry'_constructor {_LoadBalancerStatsResponse'MetadatasByPeerEntry'key :: !Data.Text.Text, + _LoadBalancerStatsResponse'MetadatasByPeerEntry'value :: !(Prelude.Maybe LoadBalancerStatsResponse'MetadataByPeer), + _LoadBalancerStatsResponse'MetadatasByPeerEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerStatsResponse'MetadatasByPeerEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'MetadatasByPeerEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'MetadatasByPeerEntry'key + (\ x__ y__ + -> x__ + {_LoadBalancerStatsResponse'MetadatasByPeerEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'MetadatasByPeerEntry "value" LoadBalancerStatsResponse'MetadataByPeer where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'MetadatasByPeerEntry'value + (\ x__ y__ + -> x__ + {_LoadBalancerStatsResponse'MetadatasByPeerEntry'value = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'MetadatasByPeerEntry "maybe'value" (Prelude.Maybe LoadBalancerStatsResponse'MetadataByPeer) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'MetadatasByPeerEntry'value + (\ x__ y__ + -> x__ + {_LoadBalancerStatsResponse'MetadatasByPeerEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerStatsResponse'MetadatasByPeerEntry where + messageName _ + = Data.Text.pack + "grpc.testing.LoadBalancerStatsResponse.MetadatasByPeerEntry" + packedMessageDescriptor _ + = "\n\ + \\DC4MetadatasByPeerEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2L\n\ + \\ENQvalue\CAN\STX \SOH(\v26.grpc.testing.LoadBalancerStatsResponse.MetadataByPeerR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse'MetadatasByPeerEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor LoadBalancerStatsResponse'MetadataByPeer) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'value")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse'MetadatasByPeerEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'MetadatasByPeerEntry'_unknownFields + (\ x__ y__ + -> x__ + {_LoadBalancerStatsResponse'MetadatasByPeerEntry'_unknownFields = y__}) + defMessage + = LoadBalancerStatsResponse'MetadatasByPeerEntry'_constructor + {_LoadBalancerStatsResponse'MetadatasByPeerEntry'key = Data.ProtoLens.fieldDefault, + _LoadBalancerStatsResponse'MetadatasByPeerEntry'value = Prelude.Nothing, + _LoadBalancerStatsResponse'MetadatasByPeerEntry'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerStatsResponse'MetadatasByPeerEntry + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerStatsResponse'MetadatasByPeerEntry + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "MetadatasByPeerEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData LoadBalancerStatsResponse'MetadatasByPeerEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'MetadatasByPeerEntry'_unknownFields + x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'MetadatasByPeerEntry'key x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'MetadatasByPeerEntry'value x__) ())) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.metadata' @:: Lens' LoadBalancerStatsResponse'RpcMetadata [LoadBalancerStatsResponse'MetadataEntry]@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.vec'metadata' @:: Lens' LoadBalancerStatsResponse'RpcMetadata (Data.Vector.Vector LoadBalancerStatsResponse'MetadataEntry)@ -} +data LoadBalancerStatsResponse'RpcMetadata + = LoadBalancerStatsResponse'RpcMetadata'_constructor {_LoadBalancerStatsResponse'RpcMetadata'metadata :: !(Data.Vector.Vector LoadBalancerStatsResponse'MetadataEntry), + _LoadBalancerStatsResponse'RpcMetadata'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerStatsResponse'RpcMetadata where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'RpcMetadata "metadata" [LoadBalancerStatsResponse'MetadataEntry] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'RpcMetadata'metadata + (\ x__ y__ + -> x__ {_LoadBalancerStatsResponse'RpcMetadata'metadata = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'RpcMetadata "vec'metadata" (Data.Vector.Vector LoadBalancerStatsResponse'MetadataEntry) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'RpcMetadata'metadata + (\ x__ y__ + -> x__ {_LoadBalancerStatsResponse'RpcMetadata'metadata = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerStatsResponse'RpcMetadata where + messageName _ + = Data.Text.pack + "grpc.testing.LoadBalancerStatsResponse.RpcMetadata" + packedMessageDescriptor _ + = "\n\ + \\vRpcMetadata\DC2Q\n\ + \\bmetadata\CAN\SOH \ETX(\v25.grpc.testing.LoadBalancerStatsResponse.MetadataEntryR\bmetadata" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + metadata__field_descriptor + = Data.ProtoLens.FieldDescriptor + "metadata" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor LoadBalancerStatsResponse'MetadataEntry) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"metadata")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse'RpcMetadata + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, metadata__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'RpcMetadata'_unknownFields + (\ x__ y__ + -> x__ + {_LoadBalancerStatsResponse'RpcMetadata'_unknownFields = y__}) + defMessage + = LoadBalancerStatsResponse'RpcMetadata'_constructor + {_LoadBalancerStatsResponse'RpcMetadata'metadata = Data.Vector.Generic.empty, + _LoadBalancerStatsResponse'RpcMetadata'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerStatsResponse'RpcMetadata + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld LoadBalancerStatsResponse'MetadataEntry + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerStatsResponse'RpcMetadata + loop x mutable'metadata + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'metadata <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'metadata) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'metadata") frozen'metadata x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "metadata" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'metadata y) + loop x v + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'metadata + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'metadata <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'metadata) + "RpcMetadata" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'metadata") _x)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData LoadBalancerStatsResponse'RpcMetadata where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'RpcMetadata'_unknownFields x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'RpcMetadata'metadata x__) ()) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.key' @:: Lens' LoadBalancerStatsResponse'RpcsByMethodEntry Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.value' @:: Lens' LoadBalancerStatsResponse'RpcsByMethodEntry LoadBalancerStatsResponse'RpcsByPeer@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'value' @:: Lens' LoadBalancerStatsResponse'RpcsByMethodEntry (Prelude.Maybe LoadBalancerStatsResponse'RpcsByPeer)@ -} +data LoadBalancerStatsResponse'RpcsByMethodEntry + = LoadBalancerStatsResponse'RpcsByMethodEntry'_constructor {_LoadBalancerStatsResponse'RpcsByMethodEntry'key :: !Data.Text.Text, + _LoadBalancerStatsResponse'RpcsByMethodEntry'value :: !(Prelude.Maybe LoadBalancerStatsResponse'RpcsByPeer), + _LoadBalancerStatsResponse'RpcsByMethodEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerStatsResponse'RpcsByMethodEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'RpcsByMethodEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'RpcsByMethodEntry'key + (\ x__ y__ + -> x__ {_LoadBalancerStatsResponse'RpcsByMethodEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'RpcsByMethodEntry "value" LoadBalancerStatsResponse'RpcsByPeer where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'RpcsByMethodEntry'value + (\ x__ y__ + -> x__ {_LoadBalancerStatsResponse'RpcsByMethodEntry'value = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'RpcsByMethodEntry "maybe'value" (Prelude.Maybe LoadBalancerStatsResponse'RpcsByPeer) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'RpcsByMethodEntry'value + (\ x__ y__ + -> x__ {_LoadBalancerStatsResponse'RpcsByMethodEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerStatsResponse'RpcsByMethodEntry where + messageName _ + = Data.Text.pack + "grpc.testing.LoadBalancerStatsResponse.RpcsByMethodEntry" + packedMessageDescriptor _ + = "\n\ + \\DC1RpcsByMethodEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2H\n\ + \\ENQvalue\CAN\STX \SOH(\v22.grpc.testing.LoadBalancerStatsResponse.RpcsByPeerR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse'RpcsByMethodEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor LoadBalancerStatsResponse'RpcsByPeer) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'value")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse'RpcsByMethodEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'RpcsByMethodEntry'_unknownFields + (\ x__ y__ + -> x__ + {_LoadBalancerStatsResponse'RpcsByMethodEntry'_unknownFields = y__}) + defMessage + = LoadBalancerStatsResponse'RpcsByMethodEntry'_constructor + {_LoadBalancerStatsResponse'RpcsByMethodEntry'key = Data.ProtoLens.fieldDefault, + _LoadBalancerStatsResponse'RpcsByMethodEntry'value = Prelude.Nothing, + _LoadBalancerStatsResponse'RpcsByMethodEntry'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerStatsResponse'RpcsByMethodEntry + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerStatsResponse'RpcsByMethodEntry + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpcsByMethodEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'value") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData LoadBalancerStatsResponse'RpcsByMethodEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'RpcsByMethodEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'RpcsByMethodEntry'key x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'RpcsByMethodEntry'value x__) ())) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.rpcsByPeer' @:: Lens' LoadBalancerStatsResponse'RpcsByPeer (Data.Map.Map Data.Text.Text Data.Int.Int32)@ -} +data LoadBalancerStatsResponse'RpcsByPeer + = LoadBalancerStatsResponse'RpcsByPeer'_constructor {_LoadBalancerStatsResponse'RpcsByPeer'rpcsByPeer :: !(Data.Map.Map Data.Text.Text Data.Int.Int32), + _LoadBalancerStatsResponse'RpcsByPeer'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerStatsResponse'RpcsByPeer where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'RpcsByPeer "rpcsByPeer" (Data.Map.Map Data.Text.Text Data.Int.Int32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'RpcsByPeer'rpcsByPeer + (\ x__ y__ + -> x__ {_LoadBalancerStatsResponse'RpcsByPeer'rpcsByPeer = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerStatsResponse'RpcsByPeer where + messageName _ + = Data.Text.pack + "grpc.testing.LoadBalancerStatsResponse.RpcsByPeer" + packedMessageDescriptor _ + = "\n\ + \\n\ + \RpcsByPeer\DC2d\n\ + \\frpcs_by_peer\CAN\SOH \ETX(\v2B.grpc.testing.LoadBalancerStatsResponse.RpcsByPeer.RpcsByPeerEntryR\n\ + \rpcsByPeer\SUB=\n\ + \\SIRpcsByPeerEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + rpcsByPeer__field_descriptor + = Data.ProtoLens.FieldDescriptor + "rpcs_by_peer" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"rpcsByPeer")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse'RpcsByPeer + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, rpcsByPeer__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'RpcsByPeer'_unknownFields + (\ x__ y__ + -> x__ + {_LoadBalancerStatsResponse'RpcsByPeer'_unknownFields = y__}) + defMessage + = LoadBalancerStatsResponse'RpcsByPeer'_constructor + {_LoadBalancerStatsResponse'RpcsByPeer'rpcsByPeer = Data.Map.empty, + _LoadBalancerStatsResponse'RpcsByPeer'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerStatsResponse'RpcsByPeer + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerStatsResponse'RpcsByPeer + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do !(entry :: LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "rpcs_by_peer" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"rpcsByPeer") + (\ !t -> Data.Map.insert key value t) x)) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpcsByPeer" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"rpcsByPeer") _x)))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData LoadBalancerStatsResponse'RpcsByPeer where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'RpcsByPeer'_unknownFields x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'RpcsByPeer'rpcsByPeer x__) ()) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.key' @:: Lens' LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.value' @:: Lens' LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry Data.Int.Int32@ -} +data LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry + = LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'_constructor {_LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'key :: !Data.Text.Text, + _LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'value :: !Data.Int.Int32, + _LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'key + (\ x__ y__ + -> x__ + {_LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry "value" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'value + (\ x__ y__ + -> x__ + {_LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry where + messageName _ + = Data.Text.pack + "grpc.testing.LoadBalancerStatsResponse.RpcsByPeer.RpcsByPeerEntry" + packedMessageDescriptor _ + = "\n\ + \\SIRpcsByPeerEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'_unknownFields + (\ x__ y__ + -> x__ + {_LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'_unknownFields = y__}) + defMessage + = LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'_constructor + {_LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'key = Data.ProtoLens.fieldDefault, + _LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'value = Data.ProtoLens.fieldDefault, + _LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpcsByPeerEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'_unknownFields + x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'key x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'RpcsByPeer'RpcsByPeerEntry'value x__) + ())) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.key' @:: Lens' LoadBalancerStatsResponse'RpcsByPeerEntry Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.value' @:: Lens' LoadBalancerStatsResponse'RpcsByPeerEntry Data.Int.Int32@ -} +data LoadBalancerStatsResponse'RpcsByPeerEntry + = LoadBalancerStatsResponse'RpcsByPeerEntry'_constructor {_LoadBalancerStatsResponse'RpcsByPeerEntry'key :: !Data.Text.Text, + _LoadBalancerStatsResponse'RpcsByPeerEntry'value :: !Data.Int.Int32, + _LoadBalancerStatsResponse'RpcsByPeerEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show LoadBalancerStatsResponse'RpcsByPeerEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'RpcsByPeerEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'RpcsByPeerEntry'key + (\ x__ y__ + -> x__ {_LoadBalancerStatsResponse'RpcsByPeerEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField LoadBalancerStatsResponse'RpcsByPeerEntry "value" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'RpcsByPeerEntry'value + (\ x__ y__ + -> x__ {_LoadBalancerStatsResponse'RpcsByPeerEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message LoadBalancerStatsResponse'RpcsByPeerEntry where + messageName _ + = Data.Text.pack + "grpc.testing.LoadBalancerStatsResponse.RpcsByPeerEntry" + packedMessageDescriptor _ + = "\n\ + \\SIRpcsByPeerEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse'RpcsByPeerEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor LoadBalancerStatsResponse'RpcsByPeerEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _LoadBalancerStatsResponse'RpcsByPeerEntry'_unknownFields + (\ x__ y__ + -> x__ + {_LoadBalancerStatsResponse'RpcsByPeerEntry'_unknownFields = y__}) + defMessage + = LoadBalancerStatsResponse'RpcsByPeerEntry'_constructor + {_LoadBalancerStatsResponse'RpcsByPeerEntry'key = Data.ProtoLens.fieldDefault, + _LoadBalancerStatsResponse'RpcsByPeerEntry'value = Data.ProtoLens.fieldDefault, + _LoadBalancerStatsResponse'RpcsByPeerEntry'_unknownFields = []} + parseMessage + = let + loop :: + LoadBalancerStatsResponse'RpcsByPeerEntry + -> Data.ProtoLens.Encoding.Bytes.Parser LoadBalancerStatsResponse'RpcsByPeerEntry + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RpcsByPeerEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData LoadBalancerStatsResponse'RpcsByPeerEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'RpcsByPeerEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'RpcsByPeerEntry'key x__) + (Control.DeepSeq.deepseq + (_LoadBalancerStatsResponse'RpcsByPeerEntry'value x__) ())) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.rss' @:: Lens' MemorySize Data.Int.Int64@ -} +data MemorySize + = MemorySize'_constructor {_MemorySize'rss :: !Data.Int.Int64, + _MemorySize'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show MemorySize where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField MemorySize "rss" Data.Int.Int64 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _MemorySize'rss (\ x__ y__ -> x__ {_MemorySize'rss = y__})) + Prelude.id +instance Data.ProtoLens.Message MemorySize where + messageName _ = Data.Text.pack "grpc.testing.MemorySize" + packedMessageDescriptor _ + = "\n\ + \\n\ + \MemorySize\DC2\DLE\n\ + \\ETXrss\CAN\SOH \SOH(\ETXR\ETXrss" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + rss__field_descriptor + = Data.ProtoLens.FieldDescriptor + "rss" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int64Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"rss")) :: + Data.ProtoLens.FieldDescriptor MemorySize + in + Data.Map.fromList [(Data.ProtoLens.Tag 1, rss__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _MemorySize'_unknownFields + (\ x__ y__ -> x__ {_MemorySize'_unknownFields = y__}) + defMessage + = MemorySize'_constructor + {_MemorySize'rss = Data.ProtoLens.fieldDefault, + _MemorySize'_unknownFields = []} + parseMessage + = let + loop :: + MemorySize -> Data.ProtoLens.Encoding.Bytes.Parser MemorySize + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "rss" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"rss") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "MemorySize" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"rss") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData MemorySize where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_MemorySize'_unknownFields x__) + (Control.DeepSeq.deepseq (_MemorySize'rss x__) ()) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.type'' @:: Lens' Payload PayloadType@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.body' @:: Lens' Payload Data.ByteString.ByteString@ -} +data Payload + = Payload'_constructor {_Payload'type' :: !PayloadType, + _Payload'body :: !Data.ByteString.ByteString, + _Payload'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show Payload where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField Payload "type'" PayloadType where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Payload'type' (\ x__ y__ -> x__ {_Payload'type' = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField Payload "body" Data.ByteString.ByteString where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _Payload'body (\ x__ y__ -> x__ {_Payload'body = y__})) + Prelude.id +instance Data.ProtoLens.Message Payload where + messageName _ = Data.Text.pack "grpc.testing.Payload" + packedMessageDescriptor _ + = "\n\ + \\aPayload\DC2-\n\ + \\EOTtype\CAN\SOH \SOH(\SO2\EM.grpc.testing.PayloadTypeR\EOTtype\DC2\DC2\n\ + \\EOTbody\CAN\STX \SOH(\fR\EOTbody" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + type'__field_descriptor + = Data.ProtoLens.FieldDescriptor + "type" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor PayloadType) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"type'")) :: + Data.ProtoLens.FieldDescriptor Payload + body__field_descriptor + = Data.ProtoLens.FieldDescriptor + "body" + (Data.ProtoLens.ScalarField Data.ProtoLens.BytesField :: + Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"body")) :: + Data.ProtoLens.FieldDescriptor Payload + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, type'__field_descriptor), + (Data.ProtoLens.Tag 2, body__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _Payload'_unknownFields + (\ x__ y__ -> x__ {_Payload'_unknownFields = y__}) + defMessage + = Payload'_constructor + {_Payload'type' = Data.ProtoLens.fieldDefault, + _Payload'body = Data.ProtoLens.fieldDefault, + _Payload'_unknownFields = []} + parseMessage + = let + loop :: Payload -> Data.ProtoLens.Encoding.Bytes.Parser Payload + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "type" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"type'") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getBytes + (Prelude.fromIntegral len)) + "body" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"body") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "Payload" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"type'") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum _v)) + ((Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"body") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData Payload where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_Payload'_unknownFields x__) + (Control.DeepSeq.deepseq + (_Payload'type' x__) + (Control.DeepSeq.deepseq (_Payload'body x__) ())) +newtype PayloadType'UnrecognizedValue + = PayloadType'UnrecognizedValue Data.Int.Int32 + deriving stock (Prelude.Eq, Prelude.Ord, Prelude.Show) +data PayloadType + = COMPRESSABLE | + PayloadType'Unrecognized !PayloadType'UnrecognizedValue + deriving stock (Prelude.Show, Prelude.Eq, Prelude.Ord) +instance Data.ProtoLens.MessageEnum PayloadType where + maybeToEnum 0 = Prelude.Just COMPRESSABLE + maybeToEnum k + = Prelude.Just + (PayloadType'Unrecognized + (PayloadType'UnrecognizedValue (Prelude.fromIntegral k))) + showEnum COMPRESSABLE = "COMPRESSABLE" + showEnum + (PayloadType'Unrecognized (PayloadType'UnrecognizedValue k)) + = Prelude.show k + readEnum k + | (Prelude.==) k "COMPRESSABLE" = Prelude.Just COMPRESSABLE + | Prelude.otherwise + = (Prelude.>>=) (Text.Read.readMaybe k) Data.ProtoLens.maybeToEnum +instance Prelude.Bounded PayloadType where + minBound = COMPRESSABLE + maxBound = COMPRESSABLE +instance Prelude.Enum PayloadType where + toEnum k__ + = Prelude.maybe + (Prelude.error + ((Prelude.++) + "toEnum: unknown value for enum PayloadType: " (Prelude.show k__))) + Prelude.id (Data.ProtoLens.maybeToEnum k__) + fromEnum COMPRESSABLE = 0 + fromEnum + (PayloadType'Unrecognized (PayloadType'UnrecognizedValue k)) + = Prelude.fromIntegral k + succ COMPRESSABLE + = Prelude.error + "PayloadType.succ: bad argument COMPRESSABLE. This value would be out of bounds." + succ (PayloadType'Unrecognized _) + = Prelude.error + "PayloadType.succ: bad argument: unrecognized value" + pred COMPRESSABLE + = Prelude.error + "PayloadType.pred: bad argument COMPRESSABLE. This value would be out of bounds." + pred (PayloadType'Unrecognized _) + = Prelude.error + "PayloadType.pred: bad argument: unrecognized value" + enumFrom = Data.ProtoLens.Message.Enum.messageEnumFrom + enumFromTo = Data.ProtoLens.Message.Enum.messageEnumFromTo + enumFromThen = Data.ProtoLens.Message.Enum.messageEnumFromThen + enumFromThenTo = Data.ProtoLens.Message.Enum.messageEnumFromThenTo +instance Data.ProtoLens.FieldDefault PayloadType where + fieldDefault = COMPRESSABLE +instance Control.DeepSeq.NFData PayloadType where + rnf x__ = Prelude.seq x__ () +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.passed' @:: Lens' ReconnectInfo Prelude.Bool@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.backoffMs' @:: Lens' ReconnectInfo [Data.Int.Int32]@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.vec'backoffMs' @:: Lens' ReconnectInfo (Data.Vector.Unboxed.Vector Data.Int.Int32)@ -} +data ReconnectInfo + = ReconnectInfo'_constructor {_ReconnectInfo'passed :: !Prelude.Bool, + _ReconnectInfo'backoffMs :: !(Data.Vector.Unboxed.Vector Data.Int.Int32), + _ReconnectInfo'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReconnectInfo where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReconnectInfo "passed" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReconnectInfo'passed + (\ x__ y__ -> x__ {_ReconnectInfo'passed = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ReconnectInfo "backoffMs" [Data.Int.Int32] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReconnectInfo'backoffMs + (\ x__ y__ -> x__ {_ReconnectInfo'backoffMs = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField ReconnectInfo "vec'backoffMs" (Data.Vector.Unboxed.Vector Data.Int.Int32) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReconnectInfo'backoffMs + (\ x__ y__ -> x__ {_ReconnectInfo'backoffMs = y__})) + Prelude.id +instance Data.ProtoLens.Message ReconnectInfo where + messageName _ = Data.Text.pack "grpc.testing.ReconnectInfo" + packedMessageDescriptor _ + = "\n\ + \\rReconnectInfo\DC2\SYN\n\ + \\ACKpassed\CAN\SOH \SOH(\bR\ACKpassed\DC2\GS\n\ + \\n\ + \backoff_ms\CAN\STX \ETX(\ENQR\tbackoffMs" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + passed__field_descriptor + = Data.ProtoLens.FieldDescriptor + "passed" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"passed")) :: + Data.ProtoLens.FieldDescriptor ReconnectInfo + backoffMs__field_descriptor + = Data.ProtoLens.FieldDescriptor + "backoff_ms" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Packed (Data.ProtoLens.Field.field @"backoffMs")) :: + Data.ProtoLens.FieldDescriptor ReconnectInfo + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, passed__field_descriptor), + (Data.ProtoLens.Tag 2, backoffMs__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReconnectInfo'_unknownFields + (\ x__ y__ -> x__ {_ReconnectInfo'_unknownFields = y__}) + defMessage + = ReconnectInfo'_constructor + {_ReconnectInfo'passed = Data.ProtoLens.fieldDefault, + _ReconnectInfo'backoffMs = Data.Vector.Generic.empty, + _ReconnectInfo'_unknownFields = []} + parseMessage + = let + loop :: + ReconnectInfo + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int32 + -> Data.ProtoLens.Encoding.Bytes.Parser ReconnectInfo + loop x mutable'backoffMs + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'backoffMs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'backoffMs) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'backoffMs") frozen'backoffMs x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "passed" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"passed") y x) + mutable'backoffMs + 16 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "backoff_ms" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append mutable'backoffMs y) + loop x v + 18 + -> do y <- do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + ((let + ploop qs + = do packedEnd <- Data.ProtoLens.Encoding.Bytes.atEnd + if packedEnd then + Prelude.return qs + else + do !q <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "backoff_ms" + qs' <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + qs q) + ploop qs' + in ploop) + mutable'backoffMs) + loop x y + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'backoffMs + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'backoffMs <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'backoffMs) + "ReconnectInfo" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"passed") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt (\ b -> if b then 1 else 0) + _v)) + ((Data.Monoid.<>) + (let + p = Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'backoffMs") _x + in + if Data.Vector.Generic.null p then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + (Data.ProtoLens.Encoding.Bytes.runBuilder + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + p)))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData ReconnectInfo where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReconnectInfo'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReconnectInfo'passed x__) + (Control.DeepSeq.deepseq (_ReconnectInfo'backoffMs x__) ())) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maxReconnectBackoffMs' @:: Lens' ReconnectParams Data.Int.Int32@ -} +data ReconnectParams + = ReconnectParams'_constructor {_ReconnectParams'maxReconnectBackoffMs :: !Data.Int.Int32, + _ReconnectParams'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ReconnectParams where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ReconnectParams "maxReconnectBackoffMs" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ReconnectParams'maxReconnectBackoffMs + (\ x__ y__ -> x__ {_ReconnectParams'maxReconnectBackoffMs = y__})) + Prelude.id +instance Data.ProtoLens.Message ReconnectParams where + messageName _ = Data.Text.pack "grpc.testing.ReconnectParams" + packedMessageDescriptor _ + = "\n\ + \\SIReconnectParams\DC27\n\ + \\CANmax_reconnect_backoff_ms\CAN\SOH \SOH(\ENQR\NAKmaxReconnectBackoffMs" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + maxReconnectBackoffMs__field_descriptor + = Data.ProtoLens.FieldDescriptor + "max_reconnect_backoff_ms" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"maxReconnectBackoffMs")) :: + Data.ProtoLens.FieldDescriptor ReconnectParams + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, maxReconnectBackoffMs__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ReconnectParams'_unknownFields + (\ x__ y__ -> x__ {_ReconnectParams'_unknownFields = y__}) + defMessage + = ReconnectParams'_constructor + {_ReconnectParams'maxReconnectBackoffMs = Data.ProtoLens.fieldDefault, + _ReconnectParams'_unknownFields = []} + parseMessage + = let + loop :: + ReconnectParams + -> Data.ProtoLens.Encoding.Bytes.Parser ReconnectParams + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "max_reconnect_backoff_ms" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"maxReconnectBackoffMs") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ReconnectParams" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"maxReconnectBackoffMs") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData ReconnectParams where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ReconnectParams'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ReconnectParams'maxReconnectBackoffMs x__) ()) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.size' @:: Lens' ResponseParameters Data.Int.Int32@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.intervalUs' @:: Lens' ResponseParameters Data.Int.Int32@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.compressed' @:: Lens' ResponseParameters BoolValue@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'compressed' @:: Lens' ResponseParameters (Prelude.Maybe BoolValue)@ -} +data ResponseParameters + = ResponseParameters'_constructor {_ResponseParameters'size :: !Data.Int.Int32, + _ResponseParameters'intervalUs :: !Data.Int.Int32, + _ResponseParameters'compressed :: !(Prelude.Maybe BoolValue), + _ResponseParameters'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show ResponseParameters where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField ResponseParameters "size" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResponseParameters'size + (\ x__ y__ -> x__ {_ResponseParameters'size = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ResponseParameters "intervalUs" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResponseParameters'intervalUs + (\ x__ y__ -> x__ {_ResponseParameters'intervalUs = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField ResponseParameters "compressed" BoolValue where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResponseParameters'compressed + (\ x__ y__ -> x__ {_ResponseParameters'compressed = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField ResponseParameters "maybe'compressed" (Prelude.Maybe BoolValue) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _ResponseParameters'compressed + (\ x__ y__ -> x__ {_ResponseParameters'compressed = y__})) + Prelude.id +instance Data.ProtoLens.Message ResponseParameters where + messageName _ = Data.Text.pack "grpc.testing.ResponseParameters" + packedMessageDescriptor _ + = "\n\ + \\DC2ResponseParameters\DC2\DC2\n\ + \\EOTsize\CAN\SOH \SOH(\ENQR\EOTsize\DC2\US\n\ + \\vinterval_us\CAN\STX \SOH(\ENQR\n\ + \intervalUs\DC27\n\ + \\n\ + \compressed\CAN\ETX \SOH(\v2\ETB.grpc.testing.BoolValueR\n\ + \compressed" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + size__field_descriptor + = Data.ProtoLens.FieldDescriptor + "size" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"size")) :: + Data.ProtoLens.FieldDescriptor ResponseParameters + intervalUs__field_descriptor + = Data.ProtoLens.FieldDescriptor + "interval_us" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"intervalUs")) :: + Data.ProtoLens.FieldDescriptor ResponseParameters + compressed__field_descriptor + = Data.ProtoLens.FieldDescriptor + "compressed" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BoolValue) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'compressed")) :: + Data.ProtoLens.FieldDescriptor ResponseParameters + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, size__field_descriptor), + (Data.ProtoLens.Tag 2, intervalUs__field_descriptor), + (Data.ProtoLens.Tag 3, compressed__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _ResponseParameters'_unknownFields + (\ x__ y__ -> x__ {_ResponseParameters'_unknownFields = y__}) + defMessage + = ResponseParameters'_constructor + {_ResponseParameters'size = Data.ProtoLens.fieldDefault, + _ResponseParameters'intervalUs = Data.ProtoLens.fieldDefault, + _ResponseParameters'compressed = Prelude.Nothing, + _ResponseParameters'_unknownFields = []} + parseMessage + = let + loop :: + ResponseParameters + -> Data.ProtoLens.Encoding.Bytes.Parser ResponseParameters + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "size" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"size") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "interval_us" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"intervalUs") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "compressed" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"compressed") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "ResponseParameters" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"size") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"intervalUs") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'compressed") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))) +instance Control.DeepSeq.NFData ResponseParameters where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_ResponseParameters'_unknownFields x__) + (Control.DeepSeq.deepseq + (_ResponseParameters'size x__) + (Control.DeepSeq.deepseq + (_ResponseParameters'intervalUs x__) + (Control.DeepSeq.deepseq (_ResponseParameters'compressed x__) ()))) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.grpcCodeToReturn' @:: Lens' SetReturnStatusRequest Data.Int.Int32@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.grpcStatusDescription' @:: Lens' SetReturnStatusRequest Data.Text.Text@ -} +data SetReturnStatusRequest + = SetReturnStatusRequest'_constructor {_SetReturnStatusRequest'grpcCodeToReturn :: !Data.Int.Int32, + _SetReturnStatusRequest'grpcStatusDescription :: !Data.Text.Text, + _SetReturnStatusRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show SetReturnStatusRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField SetReturnStatusRequest "grpcCodeToReturn" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SetReturnStatusRequest'grpcCodeToReturn + (\ x__ y__ + -> x__ {_SetReturnStatusRequest'grpcCodeToReturn = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SetReturnStatusRequest "grpcStatusDescription" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SetReturnStatusRequest'grpcStatusDescription + (\ x__ y__ + -> x__ {_SetReturnStatusRequest'grpcStatusDescription = y__})) + Prelude.id +instance Data.ProtoLens.Message SetReturnStatusRequest where + messageName _ + = Data.Text.pack "grpc.testing.SetReturnStatusRequest" + packedMessageDescriptor _ + = "\n\ + \\SYNSetReturnStatusRequest\DC2-\n\ + \\DC3grpc_code_to_return\CAN\SOH \SOH(\ENQR\DLEgrpcCodeToReturn\DC26\n\ + \\ETBgrpc_status_description\CAN\STX \SOH(\tR\NAKgrpcStatusDescription" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + grpcCodeToReturn__field_descriptor + = Data.ProtoLens.FieldDescriptor + "grpc_code_to_return" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"grpcCodeToReturn")) :: + Data.ProtoLens.FieldDescriptor SetReturnStatusRequest + grpcStatusDescription__field_descriptor + = Data.ProtoLens.FieldDescriptor + "grpc_status_description" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"grpcStatusDescription")) :: + Data.ProtoLens.FieldDescriptor SetReturnStatusRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, grpcCodeToReturn__field_descriptor), + (Data.ProtoLens.Tag 2, grpcStatusDescription__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _SetReturnStatusRequest'_unknownFields + (\ x__ y__ -> x__ {_SetReturnStatusRequest'_unknownFields = y__}) + defMessage + = SetReturnStatusRequest'_constructor + {_SetReturnStatusRequest'grpcCodeToReturn = Data.ProtoLens.fieldDefault, + _SetReturnStatusRequest'grpcStatusDescription = Data.ProtoLens.fieldDefault, + _SetReturnStatusRequest'_unknownFields = []} + parseMessage + = let + loop :: + SetReturnStatusRequest + -> Data.ProtoLens.Encoding.Bytes.Parser SetReturnStatusRequest + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "grpc_code_to_return" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"grpcCodeToReturn") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "grpc_status_description" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"grpcStatusDescription") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "SetReturnStatusRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"grpcCodeToReturn") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"grpcStatusDescription") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData SetReturnStatusRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_SetReturnStatusRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_SetReturnStatusRequest'grpcCodeToReturn x__) + (Control.DeepSeq.deepseq + (_SetReturnStatusRequest'grpcStatusDescription x__) ())) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.responseType' @:: Lens' SimpleRequest PayloadType@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.responseSize' @:: Lens' SimpleRequest Data.Int.Int32@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.payload' @:: Lens' SimpleRequest Payload@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'payload' @:: Lens' SimpleRequest (Prelude.Maybe Payload)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.fillUsername' @:: Lens' SimpleRequest Prelude.Bool@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.fillOauthScope' @:: Lens' SimpleRequest Prelude.Bool@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.responseCompressed' @:: Lens' SimpleRequest BoolValue@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'responseCompressed' @:: Lens' SimpleRequest (Prelude.Maybe BoolValue)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.responseStatus' @:: Lens' SimpleRequest EchoStatus@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'responseStatus' @:: Lens' SimpleRequest (Prelude.Maybe EchoStatus)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.expectCompressed' @:: Lens' SimpleRequest BoolValue@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'expectCompressed' @:: Lens' SimpleRequest (Prelude.Maybe BoolValue)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.fillServerId' @:: Lens' SimpleRequest Prelude.Bool@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.fillGrpclbRouteType' @:: Lens' SimpleRequest Prelude.Bool@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.orcaPerQueryReport' @:: Lens' SimpleRequest TestOrcaReport@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'orcaPerQueryReport' @:: Lens' SimpleRequest (Prelude.Maybe TestOrcaReport)@ -} +data SimpleRequest + = SimpleRequest'_constructor {_SimpleRequest'responseType :: !PayloadType, + _SimpleRequest'responseSize :: !Data.Int.Int32, + _SimpleRequest'payload :: !(Prelude.Maybe Payload), + _SimpleRequest'fillUsername :: !Prelude.Bool, + _SimpleRequest'fillOauthScope :: !Prelude.Bool, + _SimpleRequest'responseCompressed :: !(Prelude.Maybe BoolValue), + _SimpleRequest'responseStatus :: !(Prelude.Maybe EchoStatus), + _SimpleRequest'expectCompressed :: !(Prelude.Maybe BoolValue), + _SimpleRequest'fillServerId :: !Prelude.Bool, + _SimpleRequest'fillGrpclbRouteType :: !Prelude.Bool, + _SimpleRequest'orcaPerQueryReport :: !(Prelude.Maybe TestOrcaReport), + _SimpleRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show SimpleRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField SimpleRequest "responseType" PayloadType where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'responseType + (\ x__ y__ -> x__ {_SimpleRequest'responseType = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SimpleRequest "responseSize" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'responseSize + (\ x__ y__ -> x__ {_SimpleRequest'responseSize = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SimpleRequest "payload" Payload where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'payload + (\ x__ y__ -> x__ {_SimpleRequest'payload = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField SimpleRequest "maybe'payload" (Prelude.Maybe Payload) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'payload + (\ x__ y__ -> x__ {_SimpleRequest'payload = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SimpleRequest "fillUsername" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'fillUsername + (\ x__ y__ -> x__ {_SimpleRequest'fillUsername = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SimpleRequest "fillOauthScope" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'fillOauthScope + (\ x__ y__ -> x__ {_SimpleRequest'fillOauthScope = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SimpleRequest "responseCompressed" BoolValue where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'responseCompressed + (\ x__ y__ -> x__ {_SimpleRequest'responseCompressed = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField SimpleRequest "maybe'responseCompressed" (Prelude.Maybe BoolValue) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'responseCompressed + (\ x__ y__ -> x__ {_SimpleRequest'responseCompressed = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SimpleRequest "responseStatus" EchoStatus where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'responseStatus + (\ x__ y__ -> x__ {_SimpleRequest'responseStatus = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField SimpleRequest "maybe'responseStatus" (Prelude.Maybe EchoStatus) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'responseStatus + (\ x__ y__ -> x__ {_SimpleRequest'responseStatus = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SimpleRequest "expectCompressed" BoolValue where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'expectCompressed + (\ x__ y__ -> x__ {_SimpleRequest'expectCompressed = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField SimpleRequest "maybe'expectCompressed" (Prelude.Maybe BoolValue) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'expectCompressed + (\ x__ y__ -> x__ {_SimpleRequest'expectCompressed = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SimpleRequest "fillServerId" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'fillServerId + (\ x__ y__ -> x__ {_SimpleRequest'fillServerId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SimpleRequest "fillGrpclbRouteType" Prelude.Bool where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'fillGrpclbRouteType + (\ x__ y__ -> x__ {_SimpleRequest'fillGrpclbRouteType = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SimpleRequest "orcaPerQueryReport" TestOrcaReport where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'orcaPerQueryReport + (\ x__ y__ -> x__ {_SimpleRequest'orcaPerQueryReport = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField SimpleRequest "maybe'orcaPerQueryReport" (Prelude.Maybe TestOrcaReport) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleRequest'orcaPerQueryReport + (\ x__ y__ -> x__ {_SimpleRequest'orcaPerQueryReport = y__})) + Prelude.id +instance Data.ProtoLens.Message SimpleRequest where + messageName _ = Data.Text.pack "grpc.testing.SimpleRequest" + packedMessageDescriptor _ + = "\n\ + \\rSimpleRequest\DC2>\n\ + \\rresponse_type\CAN\SOH \SOH(\SO2\EM.grpc.testing.PayloadTypeR\fresponseType\DC2#\n\ + \\rresponse_size\CAN\STX \SOH(\ENQR\fresponseSize\DC2/\n\ + \\apayload\CAN\ETX \SOH(\v2\NAK.grpc.testing.PayloadR\apayload\DC2#\n\ + \\rfill_username\CAN\EOT \SOH(\bR\ffillUsername\DC2(\n\ + \\DLEfill_oauth_scope\CAN\ENQ \SOH(\bR\SOfillOauthScope\DC2H\n\ + \\DC3response_compressed\CAN\ACK \SOH(\v2\ETB.grpc.testing.BoolValueR\DC2responseCompressed\DC2A\n\ + \\SIresponse_status\CAN\a \SOH(\v2\CAN.grpc.testing.EchoStatusR\SOresponseStatus\DC2D\n\ + \\DC1expect_compressed\CAN\b \SOH(\v2\ETB.grpc.testing.BoolValueR\DLEexpectCompressed\DC2$\n\ + \\SOfill_server_id\CAN\t \SOH(\bR\ffillServerId\DC23\n\ + \\SYNfill_grpclb_route_type\CAN\n\ + \ \SOH(\bR\DC3fillGrpclbRouteType\DC2O\n\ + \\NAKorca_per_query_report\CAN\v \SOH(\v2\FS.grpc.testing.TestOrcaReportR\DC2orcaPerQueryReport" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + responseType__field_descriptor + = Data.ProtoLens.FieldDescriptor + "response_type" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor PayloadType) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"responseType")) :: + Data.ProtoLens.FieldDescriptor SimpleRequest + responseSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "response_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"responseSize")) :: + Data.ProtoLens.FieldDescriptor SimpleRequest + payload__field_descriptor + = Data.ProtoLens.FieldDescriptor + "payload" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Payload) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'payload")) :: + Data.ProtoLens.FieldDescriptor SimpleRequest + fillUsername__field_descriptor + = Data.ProtoLens.FieldDescriptor + "fill_username" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"fillUsername")) :: + Data.ProtoLens.FieldDescriptor SimpleRequest + fillOauthScope__field_descriptor + = Data.ProtoLens.FieldDescriptor + "fill_oauth_scope" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"fillOauthScope")) :: + Data.ProtoLens.FieldDescriptor SimpleRequest + responseCompressed__field_descriptor + = Data.ProtoLens.FieldDescriptor + "response_compressed" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BoolValue) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'responseCompressed")) :: + Data.ProtoLens.FieldDescriptor SimpleRequest + responseStatus__field_descriptor + = Data.ProtoLens.FieldDescriptor + "response_status" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EchoStatus) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'responseStatus")) :: + Data.ProtoLens.FieldDescriptor SimpleRequest + expectCompressed__field_descriptor + = Data.ProtoLens.FieldDescriptor + "expect_compressed" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BoolValue) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'expectCompressed")) :: + Data.ProtoLens.FieldDescriptor SimpleRequest + fillServerId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "fill_server_id" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"fillServerId")) :: + Data.ProtoLens.FieldDescriptor SimpleRequest + fillGrpclbRouteType__field_descriptor + = Data.ProtoLens.FieldDescriptor + "fill_grpclb_route_type" + (Data.ProtoLens.ScalarField Data.ProtoLens.BoolField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Bool) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"fillGrpclbRouteType")) :: + Data.ProtoLens.FieldDescriptor SimpleRequest + orcaPerQueryReport__field_descriptor + = Data.ProtoLens.FieldDescriptor + "orca_per_query_report" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TestOrcaReport) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'orcaPerQueryReport")) :: + Data.ProtoLens.FieldDescriptor SimpleRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, responseType__field_descriptor), + (Data.ProtoLens.Tag 2, responseSize__field_descriptor), + (Data.ProtoLens.Tag 3, payload__field_descriptor), + (Data.ProtoLens.Tag 4, fillUsername__field_descriptor), + (Data.ProtoLens.Tag 5, fillOauthScope__field_descriptor), + (Data.ProtoLens.Tag 6, responseCompressed__field_descriptor), + (Data.ProtoLens.Tag 7, responseStatus__field_descriptor), + (Data.ProtoLens.Tag 8, expectCompressed__field_descriptor), + (Data.ProtoLens.Tag 9, fillServerId__field_descriptor), + (Data.ProtoLens.Tag 10, fillGrpclbRouteType__field_descriptor), + (Data.ProtoLens.Tag 11, orcaPerQueryReport__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _SimpleRequest'_unknownFields + (\ x__ y__ -> x__ {_SimpleRequest'_unknownFields = y__}) + defMessage + = SimpleRequest'_constructor + {_SimpleRequest'responseType = Data.ProtoLens.fieldDefault, + _SimpleRequest'responseSize = Data.ProtoLens.fieldDefault, + _SimpleRequest'payload = Prelude.Nothing, + _SimpleRequest'fillUsername = Data.ProtoLens.fieldDefault, + _SimpleRequest'fillOauthScope = Data.ProtoLens.fieldDefault, + _SimpleRequest'responseCompressed = Prelude.Nothing, + _SimpleRequest'responseStatus = Prelude.Nothing, + _SimpleRequest'expectCompressed = Prelude.Nothing, + _SimpleRequest'fillServerId = Data.ProtoLens.fieldDefault, + _SimpleRequest'fillGrpclbRouteType = Data.ProtoLens.fieldDefault, + _SimpleRequest'orcaPerQueryReport = Prelude.Nothing, + _SimpleRequest'_unknownFields = []} + parseMessage + = let + loop :: + SimpleRequest -> Data.ProtoLens.Encoding.Bytes.Parser SimpleRequest + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "response_type" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"responseType") y x) + 16 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "response_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"responseSize") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "payload" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"payload") y x) + 32 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "fill_username" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"fillUsername") y x) + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "fill_oauth_scope" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"fillOauthScope") y x) + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "response_compressed" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"responseCompressed") y x) + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "response_status" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"responseStatus") y x) + 66 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "expect_compressed" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"expectCompressed") y x) + 72 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "fill_server_id" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"fillServerId") y x) + 80 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + ((Prelude./=) 0) Data.ProtoLens.Encoding.Bytes.getVarInt) + "fill_grpclb_route_type" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"fillGrpclbRouteType") y x) + 90 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "orca_per_query_report" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"orcaPerQueryReport") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "SimpleRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"responseType") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"responseSize") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 16) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'payload") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"fillUsername") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 32) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"fillOauthScope") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'responseCompressed") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'responseStatus") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'expectCompressed") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"fillServerId") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 72) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"fillGrpclbRouteType") + _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 80) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + (\ b -> if b then 1 else 0) _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field + @"maybe'orcaPerQueryReport") + _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 90) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes + bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view + Data.ProtoLens.unknownFields _x)))))))))))) +instance Control.DeepSeq.NFData SimpleRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_SimpleRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_SimpleRequest'responseType x__) + (Control.DeepSeq.deepseq + (_SimpleRequest'responseSize x__) + (Control.DeepSeq.deepseq + (_SimpleRequest'payload x__) + (Control.DeepSeq.deepseq + (_SimpleRequest'fillUsername x__) + (Control.DeepSeq.deepseq + (_SimpleRequest'fillOauthScope x__) + (Control.DeepSeq.deepseq + (_SimpleRequest'responseCompressed x__) + (Control.DeepSeq.deepseq + (_SimpleRequest'responseStatus x__) + (Control.DeepSeq.deepseq + (_SimpleRequest'expectCompressed x__) + (Control.DeepSeq.deepseq + (_SimpleRequest'fillServerId x__) + (Control.DeepSeq.deepseq + (_SimpleRequest'fillGrpclbRouteType x__) + (Control.DeepSeq.deepseq + (_SimpleRequest'orcaPerQueryReport x__) ()))))))))))) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.payload' @:: Lens' SimpleResponse Payload@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'payload' @:: Lens' SimpleResponse (Prelude.Maybe Payload)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.username' @:: Lens' SimpleResponse Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.oauthScope' @:: Lens' SimpleResponse Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.serverId' @:: Lens' SimpleResponse Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.grpclbRouteType' @:: Lens' SimpleResponse GrpclbRouteType@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.hostname' @:: Lens' SimpleResponse Data.Text.Text@ -} +data SimpleResponse + = SimpleResponse'_constructor {_SimpleResponse'payload :: !(Prelude.Maybe Payload), + _SimpleResponse'username :: !Data.Text.Text, + _SimpleResponse'oauthScope :: !Data.Text.Text, + _SimpleResponse'serverId :: !Data.Text.Text, + _SimpleResponse'grpclbRouteType :: !GrpclbRouteType, + _SimpleResponse'hostname :: !Data.Text.Text, + _SimpleResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show SimpleResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField SimpleResponse "payload" Payload where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleResponse'payload + (\ x__ y__ -> x__ {_SimpleResponse'payload = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField SimpleResponse "maybe'payload" (Prelude.Maybe Payload) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleResponse'payload + (\ x__ y__ -> x__ {_SimpleResponse'payload = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SimpleResponse "username" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleResponse'username + (\ x__ y__ -> x__ {_SimpleResponse'username = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SimpleResponse "oauthScope" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleResponse'oauthScope + (\ x__ y__ -> x__ {_SimpleResponse'oauthScope = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SimpleResponse "serverId" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleResponse'serverId + (\ x__ y__ -> x__ {_SimpleResponse'serverId = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SimpleResponse "grpclbRouteType" GrpclbRouteType where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleResponse'grpclbRouteType + (\ x__ y__ -> x__ {_SimpleResponse'grpclbRouteType = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField SimpleResponse "hostname" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _SimpleResponse'hostname + (\ x__ y__ -> x__ {_SimpleResponse'hostname = y__})) + Prelude.id +instance Data.ProtoLens.Message SimpleResponse where + messageName _ = Data.Text.pack "grpc.testing.SimpleResponse" + packedMessageDescriptor _ + = "\n\ + \\SOSimpleResponse\DC2/\n\ + \\apayload\CAN\SOH \SOH(\v2\NAK.grpc.testing.PayloadR\apayload\DC2\SUB\n\ + \\busername\CAN\STX \SOH(\tR\busername\DC2\US\n\ + \\voauth_scope\CAN\ETX \SOH(\tR\n\ + \oauthScope\DC2\ESC\n\ + \\tserver_id\CAN\EOT \SOH(\tR\bserverId\DC2I\n\ + \\DC1grpclb_route_type\CAN\ENQ \SOH(\SO2\GS.grpc.testing.GrpclbRouteTypeR\SIgrpclbRouteType\DC2\SUB\n\ + \\bhostname\CAN\ACK \SOH(\tR\bhostname" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + payload__field_descriptor + = Data.ProtoLens.FieldDescriptor + "payload" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Payload) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'payload")) :: + Data.ProtoLens.FieldDescriptor SimpleResponse + username__field_descriptor + = Data.ProtoLens.FieldDescriptor + "username" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"username")) :: + Data.ProtoLens.FieldDescriptor SimpleResponse + oauthScope__field_descriptor + = Data.ProtoLens.FieldDescriptor + "oauth_scope" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"oauthScope")) :: + Data.ProtoLens.FieldDescriptor SimpleResponse + serverId__field_descriptor + = Data.ProtoLens.FieldDescriptor + "server_id" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"serverId")) :: + Data.ProtoLens.FieldDescriptor SimpleResponse + grpclbRouteType__field_descriptor + = Data.ProtoLens.FieldDescriptor + "grpclb_route_type" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor GrpclbRouteType) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"grpclbRouteType")) :: + Data.ProtoLens.FieldDescriptor SimpleResponse + hostname__field_descriptor + = Data.ProtoLens.FieldDescriptor + "hostname" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"hostname")) :: + Data.ProtoLens.FieldDescriptor SimpleResponse + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, payload__field_descriptor), + (Data.ProtoLens.Tag 2, username__field_descriptor), + (Data.ProtoLens.Tag 3, oauthScope__field_descriptor), + (Data.ProtoLens.Tag 4, serverId__field_descriptor), + (Data.ProtoLens.Tag 5, grpclbRouteType__field_descriptor), + (Data.ProtoLens.Tag 6, hostname__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _SimpleResponse'_unknownFields + (\ x__ y__ -> x__ {_SimpleResponse'_unknownFields = y__}) + defMessage + = SimpleResponse'_constructor + {_SimpleResponse'payload = Prelude.Nothing, + _SimpleResponse'username = Data.ProtoLens.fieldDefault, + _SimpleResponse'oauthScope = Data.ProtoLens.fieldDefault, + _SimpleResponse'serverId = Data.ProtoLens.fieldDefault, + _SimpleResponse'grpclbRouteType = Data.ProtoLens.fieldDefault, + _SimpleResponse'hostname = Data.ProtoLens.fieldDefault, + _SimpleResponse'_unknownFields = []} + parseMessage + = let + loop :: + SimpleResponse + -> Data.ProtoLens.Encoding.Bytes.Parser SimpleResponse + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "payload" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"payload") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "username" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"username") y x) + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "oauth_scope" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"oauthScope") y x) + 34 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "server_id" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"serverId") y x) + 40 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "grpclb_route_type" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"grpclbRouteType") y x) + 50 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "hostname" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"hostname") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "SimpleResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'payload") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"username") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"oauthScope") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"serverId") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"grpclbRouteType") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 40) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt + Prelude.fromIntegral) + Prelude.fromEnum _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"hostname") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 50) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))))) +instance Control.DeepSeq.NFData SimpleResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_SimpleResponse'_unknownFields x__) + (Control.DeepSeq.deepseq + (_SimpleResponse'payload x__) + (Control.DeepSeq.deepseq + (_SimpleResponse'username x__) + (Control.DeepSeq.deepseq + (_SimpleResponse'oauthScope x__) + (Control.DeepSeq.deepseq + (_SimpleResponse'serverId x__) + (Control.DeepSeq.deepseq + (_SimpleResponse'grpclbRouteType x__) + (Control.DeepSeq.deepseq (_SimpleResponse'hostname x__) ())))))) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.payload' @:: Lens' StreamingInputCallRequest Payload@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'payload' @:: Lens' StreamingInputCallRequest (Prelude.Maybe Payload)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.expectCompressed' @:: Lens' StreamingInputCallRequest BoolValue@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'expectCompressed' @:: Lens' StreamingInputCallRequest (Prelude.Maybe BoolValue)@ -} +data StreamingInputCallRequest + = StreamingInputCallRequest'_constructor {_StreamingInputCallRequest'payload :: !(Prelude.Maybe Payload), + _StreamingInputCallRequest'expectCompressed :: !(Prelude.Maybe BoolValue), + _StreamingInputCallRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StreamingInputCallRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StreamingInputCallRequest "payload" Payload where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingInputCallRequest'payload + (\ x__ y__ -> x__ {_StreamingInputCallRequest'payload = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StreamingInputCallRequest "maybe'payload" (Prelude.Maybe Payload) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingInputCallRequest'payload + (\ x__ y__ -> x__ {_StreamingInputCallRequest'payload = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StreamingInputCallRequest "expectCompressed" BoolValue where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingInputCallRequest'expectCompressed + (\ x__ y__ + -> x__ {_StreamingInputCallRequest'expectCompressed = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StreamingInputCallRequest "maybe'expectCompressed" (Prelude.Maybe BoolValue) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingInputCallRequest'expectCompressed + (\ x__ y__ + -> x__ {_StreamingInputCallRequest'expectCompressed = y__})) + Prelude.id +instance Data.ProtoLens.Message StreamingInputCallRequest where + messageName _ + = Data.Text.pack "grpc.testing.StreamingInputCallRequest" + packedMessageDescriptor _ + = "\n\ + \\EMStreamingInputCallRequest\DC2/\n\ + \\apayload\CAN\SOH \SOH(\v2\NAK.grpc.testing.PayloadR\apayload\DC2D\n\ + \\DC1expect_compressed\CAN\STX \SOH(\v2\ETB.grpc.testing.BoolValueR\DLEexpectCompressed" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + payload__field_descriptor + = Data.ProtoLens.FieldDescriptor + "payload" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Payload) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'payload")) :: + Data.ProtoLens.FieldDescriptor StreamingInputCallRequest + expectCompressed__field_descriptor + = Data.ProtoLens.FieldDescriptor + "expect_compressed" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor BoolValue) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'expectCompressed")) :: + Data.ProtoLens.FieldDescriptor StreamingInputCallRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, payload__field_descriptor), + (Data.ProtoLens.Tag 2, expectCompressed__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StreamingInputCallRequest'_unknownFields + (\ x__ y__ + -> x__ {_StreamingInputCallRequest'_unknownFields = y__}) + defMessage + = StreamingInputCallRequest'_constructor + {_StreamingInputCallRequest'payload = Prelude.Nothing, + _StreamingInputCallRequest'expectCompressed = Prelude.Nothing, + _StreamingInputCallRequest'_unknownFields = []} + parseMessage + = let + loop :: + StreamingInputCallRequest + -> Data.ProtoLens.Encoding.Bytes.Parser StreamingInputCallRequest + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "payload" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"payload") y x) + 18 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "expect_compressed" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"expectCompressed") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StreamingInputCallRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'payload") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'expectCompressed") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData StreamingInputCallRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StreamingInputCallRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_StreamingInputCallRequest'payload x__) + (Control.DeepSeq.deepseq + (_StreamingInputCallRequest'expectCompressed x__) ())) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.aggregatedPayloadSize' @:: Lens' StreamingInputCallResponse Data.Int.Int32@ -} +data StreamingInputCallResponse + = StreamingInputCallResponse'_constructor {_StreamingInputCallResponse'aggregatedPayloadSize :: !Data.Int.Int32, + _StreamingInputCallResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StreamingInputCallResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StreamingInputCallResponse "aggregatedPayloadSize" Data.Int.Int32 where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingInputCallResponse'aggregatedPayloadSize + (\ x__ y__ + -> x__ {_StreamingInputCallResponse'aggregatedPayloadSize = y__})) + Prelude.id +instance Data.ProtoLens.Message StreamingInputCallResponse where + messageName _ + = Data.Text.pack "grpc.testing.StreamingInputCallResponse" + packedMessageDescriptor _ + = "\n\ + \\SUBStreamingInputCallResponse\DC26\n\ + \\ETBaggregated_payload_size\CAN\SOH \SOH(\ENQR\NAKaggregatedPayloadSize" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + aggregatedPayloadSize__field_descriptor + = Data.ProtoLens.FieldDescriptor + "aggregated_payload_size" + (Data.ProtoLens.ScalarField Data.ProtoLens.Int32Field :: + Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"aggregatedPayloadSize")) :: + Data.ProtoLens.FieldDescriptor StreamingInputCallResponse + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, aggregatedPayloadSize__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StreamingInputCallResponse'_unknownFields + (\ x__ y__ + -> x__ {_StreamingInputCallResponse'_unknownFields = y__}) + defMessage + = StreamingInputCallResponse'_constructor + {_StreamingInputCallResponse'aggregatedPayloadSize = Data.ProtoLens.fieldDefault, + _StreamingInputCallResponse'_unknownFields = []} + parseMessage + = let + loop :: + StreamingInputCallResponse + -> Data.ProtoLens.Encoding.Bytes.Parser StreamingInputCallResponse + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt) + "aggregated_payload_size" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"aggregatedPayloadSize") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StreamingInputCallResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"aggregatedPayloadSize") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData StreamingInputCallResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StreamingInputCallResponse'_unknownFields x__) + (Control.DeepSeq.deepseq + (_StreamingInputCallResponse'aggregatedPayloadSize x__) ()) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.responseType' @:: Lens' StreamingOutputCallRequest PayloadType@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.responseParameters' @:: Lens' StreamingOutputCallRequest [ResponseParameters]@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.vec'responseParameters' @:: Lens' StreamingOutputCallRequest (Data.Vector.Vector ResponseParameters)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.payload' @:: Lens' StreamingOutputCallRequest Payload@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'payload' @:: Lens' StreamingOutputCallRequest (Prelude.Maybe Payload)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.responseStatus' @:: Lens' StreamingOutputCallRequest EchoStatus@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'responseStatus' @:: Lens' StreamingOutputCallRequest (Prelude.Maybe EchoStatus)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.orcaOobReport' @:: Lens' StreamingOutputCallRequest TestOrcaReport@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'orcaOobReport' @:: Lens' StreamingOutputCallRequest (Prelude.Maybe TestOrcaReport)@ -} +data StreamingOutputCallRequest + = StreamingOutputCallRequest'_constructor {_StreamingOutputCallRequest'responseType :: !PayloadType, + _StreamingOutputCallRequest'responseParameters :: !(Data.Vector.Vector ResponseParameters), + _StreamingOutputCallRequest'payload :: !(Prelude.Maybe Payload), + _StreamingOutputCallRequest'responseStatus :: !(Prelude.Maybe EchoStatus), + _StreamingOutputCallRequest'orcaOobReport :: !(Prelude.Maybe TestOrcaReport), + _StreamingOutputCallRequest'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StreamingOutputCallRequest where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StreamingOutputCallRequest "responseType" PayloadType where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingOutputCallRequest'responseType + (\ x__ y__ + -> x__ {_StreamingOutputCallRequest'responseType = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StreamingOutputCallRequest "responseParameters" [ResponseParameters] where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingOutputCallRequest'responseParameters + (\ x__ y__ + -> x__ {_StreamingOutputCallRequest'responseParameters = y__})) + (Lens.Family2.Unchecked.lens + Data.Vector.Generic.toList + (\ _ y__ -> Data.Vector.Generic.fromList y__)) +instance Data.ProtoLens.Field.HasField StreamingOutputCallRequest "vec'responseParameters" (Data.Vector.Vector ResponseParameters) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingOutputCallRequest'responseParameters + (\ x__ y__ + -> x__ {_StreamingOutputCallRequest'responseParameters = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StreamingOutputCallRequest "payload" Payload where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingOutputCallRequest'payload + (\ x__ y__ -> x__ {_StreamingOutputCallRequest'payload = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StreamingOutputCallRequest "maybe'payload" (Prelude.Maybe Payload) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingOutputCallRequest'payload + (\ x__ y__ -> x__ {_StreamingOutputCallRequest'payload = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StreamingOutputCallRequest "responseStatus" EchoStatus where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingOutputCallRequest'responseStatus + (\ x__ y__ + -> x__ {_StreamingOutputCallRequest'responseStatus = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StreamingOutputCallRequest "maybe'responseStatus" (Prelude.Maybe EchoStatus) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingOutputCallRequest'responseStatus + (\ x__ y__ + -> x__ {_StreamingOutputCallRequest'responseStatus = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField StreamingOutputCallRequest "orcaOobReport" TestOrcaReport where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingOutputCallRequest'orcaOobReport + (\ x__ y__ + -> x__ {_StreamingOutputCallRequest'orcaOobReport = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StreamingOutputCallRequest "maybe'orcaOobReport" (Prelude.Maybe TestOrcaReport) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingOutputCallRequest'orcaOobReport + (\ x__ y__ + -> x__ {_StreamingOutputCallRequest'orcaOobReport = y__})) + Prelude.id +instance Data.ProtoLens.Message StreamingOutputCallRequest where + messageName _ + = Data.Text.pack "grpc.testing.StreamingOutputCallRequest" + packedMessageDescriptor _ + = "\n\ + \\SUBStreamingOutputCallRequest\DC2>\n\ + \\rresponse_type\CAN\SOH \SOH(\SO2\EM.grpc.testing.PayloadTypeR\fresponseType\DC2Q\n\ + \\DC3response_parameters\CAN\STX \ETX(\v2 .grpc.testing.ResponseParametersR\DC2responseParameters\DC2/\n\ + \\apayload\CAN\ETX \SOH(\v2\NAK.grpc.testing.PayloadR\apayload\DC2A\n\ + \\SIresponse_status\CAN\a \SOH(\v2\CAN.grpc.testing.EchoStatusR\SOresponseStatus\DC2D\n\ + \\SIorca_oob_report\CAN\b \SOH(\v2\FS.grpc.testing.TestOrcaReportR\rorcaOobReport" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + responseType__field_descriptor + = Data.ProtoLens.FieldDescriptor + "response_type" + (Data.ProtoLens.ScalarField Data.ProtoLens.EnumField :: + Data.ProtoLens.FieldTypeDescriptor PayloadType) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"responseType")) :: + Data.ProtoLens.FieldDescriptor StreamingOutputCallRequest + responseParameters__field_descriptor + = Data.ProtoLens.FieldDescriptor + "response_parameters" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor ResponseParameters) + (Data.ProtoLens.RepeatedField + Data.ProtoLens.Unpacked + (Data.ProtoLens.Field.field @"responseParameters")) :: + Data.ProtoLens.FieldDescriptor StreamingOutputCallRequest + payload__field_descriptor + = Data.ProtoLens.FieldDescriptor + "payload" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Payload) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'payload")) :: + Data.ProtoLens.FieldDescriptor StreamingOutputCallRequest + responseStatus__field_descriptor + = Data.ProtoLens.FieldDescriptor + "response_status" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor EchoStatus) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'responseStatus")) :: + Data.ProtoLens.FieldDescriptor StreamingOutputCallRequest + orcaOobReport__field_descriptor + = Data.ProtoLens.FieldDescriptor + "orca_oob_report" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TestOrcaReport) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'orcaOobReport")) :: + Data.ProtoLens.FieldDescriptor StreamingOutputCallRequest + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, responseType__field_descriptor), + (Data.ProtoLens.Tag 2, responseParameters__field_descriptor), + (Data.ProtoLens.Tag 3, payload__field_descriptor), + (Data.ProtoLens.Tag 7, responseStatus__field_descriptor), + (Data.ProtoLens.Tag 8, orcaOobReport__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StreamingOutputCallRequest'_unknownFields + (\ x__ y__ + -> x__ {_StreamingOutputCallRequest'_unknownFields = y__}) + defMessage + = StreamingOutputCallRequest'_constructor + {_StreamingOutputCallRequest'responseType = Data.ProtoLens.fieldDefault, + _StreamingOutputCallRequest'responseParameters = Data.Vector.Generic.empty, + _StreamingOutputCallRequest'payload = Prelude.Nothing, + _StreamingOutputCallRequest'responseStatus = Prelude.Nothing, + _StreamingOutputCallRequest'orcaOobReport = Prelude.Nothing, + _StreamingOutputCallRequest'_unknownFields = []} + parseMessage + = let + loop :: + StreamingOutputCallRequest + -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld ResponseParameters + -> Data.ProtoLens.Encoding.Bytes.Parser StreamingOutputCallRequest + loop x mutable'responseParameters + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do frozen'responseParameters <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.unsafeFreeze + mutable'responseParameters) + (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"vec'responseParameters") + frozen'responseParameters x)) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 8 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Prelude.toEnum + (Prelude.fmap + Prelude.fromIntegral + Data.ProtoLens.Encoding.Bytes.getVarInt)) + "response_type" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"responseType") y x) + mutable'responseParameters + 18 + -> do !y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) + Data.ProtoLens.parseMessage) + "response_parameters" + v <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + (Data.ProtoLens.Encoding.Growing.append + mutable'responseParameters y) + loop x v + 26 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "payload" + loop + (Lens.Family2.set (Data.ProtoLens.Field.field @"payload") y x) + mutable'responseParameters + 58 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "response_status" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"responseStatus") y x) + mutable'responseParameters + 66 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "orca_oob_report" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"orcaOobReport") y x) + mutable'responseParameters + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + mutable'responseParameters + in + (Data.ProtoLens.Encoding.Bytes.) + (do mutable'responseParameters <- Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO + Data.ProtoLens.Encoding.Growing.new + loop Data.ProtoLens.defMessage mutable'responseParameters) + "StreamingOutputCallRequest" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view (Data.ProtoLens.Field.field @"responseType") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 8) + ((Prelude..) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putVarInt Prelude.fromIntegral) + Prelude.fromEnum _v)) + ((Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.foldMapBuilder + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 18) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Lens.Family2.view + (Data.ProtoLens.Field.field @"vec'responseParameters") _x)) + ((Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'payload") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'responseStatus") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 58) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + ((Data.Monoid.<>) + (case + Lens.Family2.view + (Data.ProtoLens.Field.field @"maybe'orcaOobReport") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 66) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)))))) +instance Control.DeepSeq.NFData StreamingOutputCallRequest where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StreamingOutputCallRequest'_unknownFields x__) + (Control.DeepSeq.deepseq + (_StreamingOutputCallRequest'responseType x__) + (Control.DeepSeq.deepseq + (_StreamingOutputCallRequest'responseParameters x__) + (Control.DeepSeq.deepseq + (_StreamingOutputCallRequest'payload x__) + (Control.DeepSeq.deepseq + (_StreamingOutputCallRequest'responseStatus x__) + (Control.DeepSeq.deepseq + (_StreamingOutputCallRequest'orcaOobReport x__) ()))))) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.payload' @:: Lens' StreamingOutputCallResponse Payload@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.maybe'payload' @:: Lens' StreamingOutputCallResponse (Prelude.Maybe Payload)@ -} +data StreamingOutputCallResponse + = StreamingOutputCallResponse'_constructor {_StreamingOutputCallResponse'payload :: !(Prelude.Maybe Payload), + _StreamingOutputCallResponse'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show StreamingOutputCallResponse where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField StreamingOutputCallResponse "payload" Payload where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingOutputCallResponse'payload + (\ x__ y__ -> x__ {_StreamingOutputCallResponse'payload = y__})) + (Data.ProtoLens.maybeLens Data.ProtoLens.defMessage) +instance Data.ProtoLens.Field.HasField StreamingOutputCallResponse "maybe'payload" (Prelude.Maybe Payload) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _StreamingOutputCallResponse'payload + (\ x__ y__ -> x__ {_StreamingOutputCallResponse'payload = y__})) + Prelude.id +instance Data.ProtoLens.Message StreamingOutputCallResponse where + messageName _ + = Data.Text.pack "grpc.testing.StreamingOutputCallResponse" + packedMessageDescriptor _ + = "\n\ + \\ESCStreamingOutputCallResponse\DC2/\n\ + \\apayload\CAN\SOH \SOH(\v2\NAK.grpc.testing.PayloadR\apayload" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + payload__field_descriptor + = Data.ProtoLens.FieldDescriptor + "payload" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor Payload) + (Data.ProtoLens.OptionalField + (Data.ProtoLens.Field.field @"maybe'payload")) :: + Data.ProtoLens.FieldDescriptor StreamingOutputCallResponse + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, payload__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _StreamingOutputCallResponse'_unknownFields + (\ x__ y__ + -> x__ {_StreamingOutputCallResponse'_unknownFields = y__}) + defMessage + = StreamingOutputCallResponse'_constructor + {_StreamingOutputCallResponse'payload = Prelude.Nothing, + _StreamingOutputCallResponse'_unknownFields = []} + parseMessage + = let + loop :: + StreamingOutputCallResponse + -> Data.ProtoLens.Encoding.Bytes.Parser StreamingOutputCallResponse + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral len) Data.ProtoLens.parseMessage) + "payload" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"payload") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "StreamingOutputCallResponse" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (case + Lens.Family2.view (Data.ProtoLens.Field.field @"maybe'payload") _x + of + Prelude.Nothing -> Data.Monoid.mempty + (Prelude.Just _v) + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x)) +instance Control.DeepSeq.NFData StreamingOutputCallResponse where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_StreamingOutputCallResponse'_unknownFields x__) + (Control.DeepSeq.deepseq + (_StreamingOutputCallResponse'payload x__) ()) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.cpuUtilization' @:: Lens' TestOrcaReport Prelude.Double@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.memoryUtilization' @:: Lens' TestOrcaReport Prelude.Double@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.requestCost' @:: Lens' TestOrcaReport (Data.Map.Map Data.Text.Text Prelude.Double)@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.utilization' @:: Lens' TestOrcaReport (Data.Map.Map Data.Text.Text Prelude.Double)@ -} +data TestOrcaReport + = TestOrcaReport'_constructor {_TestOrcaReport'cpuUtilization :: !Prelude.Double, + _TestOrcaReport'memoryUtilization :: !Prelude.Double, + _TestOrcaReport'requestCost :: !(Data.Map.Map Data.Text.Text Prelude.Double), + _TestOrcaReport'utilization :: !(Data.Map.Map Data.Text.Text Prelude.Double), + _TestOrcaReport'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TestOrcaReport where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TestOrcaReport "cpuUtilization" Prelude.Double where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TestOrcaReport'cpuUtilization + (\ x__ y__ -> x__ {_TestOrcaReport'cpuUtilization = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TestOrcaReport "memoryUtilization" Prelude.Double where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TestOrcaReport'memoryUtilization + (\ x__ y__ -> x__ {_TestOrcaReport'memoryUtilization = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TestOrcaReport "requestCost" (Data.Map.Map Data.Text.Text Prelude.Double) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TestOrcaReport'requestCost + (\ x__ y__ -> x__ {_TestOrcaReport'requestCost = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TestOrcaReport "utilization" (Data.Map.Map Data.Text.Text Prelude.Double) where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TestOrcaReport'utilization + (\ x__ y__ -> x__ {_TestOrcaReport'utilization = y__})) + Prelude.id +instance Data.ProtoLens.Message TestOrcaReport where + messageName _ = Data.Text.pack "grpc.testing.TestOrcaReport" + packedMessageDescriptor _ + = "\n\ + \\SOTestOrcaReport\DC2'\n\ + \\SIcpu_utilization\CAN\SOH \SOH(\SOHR\SOcpuUtilization\DC2-\n\ + \\DC2memory_utilization\CAN\STX \SOH(\SOHR\DC1memoryUtilization\DC2P\n\ + \\frequest_cost\CAN\ETX \ETX(\v2-.grpc.testing.TestOrcaReport.RequestCostEntryR\vrequestCost\DC2O\n\ + \\vutilization\CAN\EOT \ETX(\v2-.grpc.testing.TestOrcaReport.UtilizationEntryR\vutilization\SUB>\n\ + \\DLERequestCostEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue:\STX8\SOH\SUB>\n\ + \\DLEUtilizationEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + cpuUtilization__field_descriptor + = Data.ProtoLens.FieldDescriptor + "cpu_utilization" + (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Double) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"cpuUtilization")) :: + Data.ProtoLens.FieldDescriptor TestOrcaReport + memoryUtilization__field_descriptor + = Data.ProtoLens.FieldDescriptor + "memory_utilization" + (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Double) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional + (Data.ProtoLens.Field.field @"memoryUtilization")) :: + Data.ProtoLens.FieldDescriptor TestOrcaReport + requestCost__field_descriptor + = Data.ProtoLens.FieldDescriptor + "request_cost" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TestOrcaReport'RequestCostEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"requestCost")) :: + Data.ProtoLens.FieldDescriptor TestOrcaReport + utilization__field_descriptor + = Data.ProtoLens.FieldDescriptor + "utilization" + (Data.ProtoLens.MessageField Data.ProtoLens.MessageType :: + Data.ProtoLens.FieldTypeDescriptor TestOrcaReport'UtilizationEntry) + (Data.ProtoLens.MapField + (Data.ProtoLens.Field.field @"key") + (Data.ProtoLens.Field.field @"value") + (Data.ProtoLens.Field.field @"utilization")) :: + Data.ProtoLens.FieldDescriptor TestOrcaReport + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, cpuUtilization__field_descriptor), + (Data.ProtoLens.Tag 2, memoryUtilization__field_descriptor), + (Data.ProtoLens.Tag 3, requestCost__field_descriptor), + (Data.ProtoLens.Tag 4, utilization__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TestOrcaReport'_unknownFields + (\ x__ y__ -> x__ {_TestOrcaReport'_unknownFields = y__}) + defMessage + = TestOrcaReport'_constructor + {_TestOrcaReport'cpuUtilization = Data.ProtoLens.fieldDefault, + _TestOrcaReport'memoryUtilization = Data.ProtoLens.fieldDefault, + _TestOrcaReport'requestCost = Data.Map.empty, + _TestOrcaReport'utilization = Data.Map.empty, + _TestOrcaReport'_unknownFields = []} + parseMessage + = let + loop :: + TestOrcaReport + -> Data.ProtoLens.Encoding.Bytes.Parser TestOrcaReport + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 9 -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToDouble + Data.ProtoLens.Encoding.Bytes.getFixed64) + "cpu_utilization" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"cpuUtilization") y x) + 17 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToDouble + Data.ProtoLens.Encoding.Bytes.getFixed64) + "memory_utilization" + loop + (Lens.Family2.set + (Data.ProtoLens.Field.field @"memoryUtilization") y x) + 26 + -> do !(entry :: TestOrcaReport'RequestCostEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "request_cost" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"requestCost") + (\ !t -> Data.Map.insert key value t) x)) + 34 + -> do !(entry :: TestOrcaReport'UtilizationEntry) <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.isolate + (Prelude.fromIntegral + len) + Data.ProtoLens.parseMessage) + "utilization" + (let + key = Lens.Family2.view (Data.ProtoLens.Field.field @"key") entry + value + = Lens.Family2.view (Data.ProtoLens.Field.field @"value") entry + in + loop + (Lens.Family2.over + (Data.ProtoLens.Field.field @"utilization") + (\ !t -> Data.Map.insert key value t) x)) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "TestOrcaReport" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"cpuUtilization") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 9) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Data.ProtoLens.Encoding.Bytes.doubleToWord _v)) + ((Data.Monoid.<>) + (let + _v + = Lens.Family2.view + (Data.ProtoLens.Field.field @"memoryUtilization") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 17) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Data.ProtoLens.Encoding.Bytes.doubleToWord _v)) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 26) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + TestOrcaReport'RequestCostEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"requestCost") _x)))) + ((Data.Monoid.<>) + (Data.Monoid.mconcat + (Prelude.map + (\ _v + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 34) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral + (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.ProtoLens.encodeMessage + (Lens.Family2.set + (Data.ProtoLens.Field.field @"key") (Prelude.fst _v) + (Lens.Family2.set + (Data.ProtoLens.Field.field @"value") (Prelude.snd _v) + (Data.ProtoLens.defMessage :: + TestOrcaReport'UtilizationEntry))))) + (Data.Map.toList + (Lens.Family2.view + (Data.ProtoLens.Field.field @"utilization") _x)))) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))))) +instance Control.DeepSeq.NFData TestOrcaReport where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TestOrcaReport'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TestOrcaReport'cpuUtilization x__) + (Control.DeepSeq.deepseq + (_TestOrcaReport'memoryUtilization x__) + (Control.DeepSeq.deepseq + (_TestOrcaReport'requestCost x__) + (Control.DeepSeq.deepseq (_TestOrcaReport'utilization x__) ())))) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.key' @:: Lens' TestOrcaReport'RequestCostEntry Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.value' @:: Lens' TestOrcaReport'RequestCostEntry Prelude.Double@ -} +data TestOrcaReport'RequestCostEntry + = TestOrcaReport'RequestCostEntry'_constructor {_TestOrcaReport'RequestCostEntry'key :: !Data.Text.Text, + _TestOrcaReport'RequestCostEntry'value :: !Prelude.Double, + _TestOrcaReport'RequestCostEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TestOrcaReport'RequestCostEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TestOrcaReport'RequestCostEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TestOrcaReport'RequestCostEntry'key + (\ x__ y__ -> x__ {_TestOrcaReport'RequestCostEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TestOrcaReport'RequestCostEntry "value" Prelude.Double where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TestOrcaReport'RequestCostEntry'value + (\ x__ y__ -> x__ {_TestOrcaReport'RequestCostEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message TestOrcaReport'RequestCostEntry where + messageName _ + = Data.Text.pack "grpc.testing.TestOrcaReport.RequestCostEntry" + packedMessageDescriptor _ + = "\n\ + \\DLERequestCostEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor TestOrcaReport'RequestCostEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Double) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor TestOrcaReport'RequestCostEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TestOrcaReport'RequestCostEntry'_unknownFields + (\ x__ y__ + -> x__ {_TestOrcaReport'RequestCostEntry'_unknownFields = y__}) + defMessage + = TestOrcaReport'RequestCostEntry'_constructor + {_TestOrcaReport'RequestCostEntry'key = Data.ProtoLens.fieldDefault, + _TestOrcaReport'RequestCostEntry'value = Data.ProtoLens.fieldDefault, + _TestOrcaReport'RequestCostEntry'_unknownFields = []} + parseMessage + = let + loop :: + TestOrcaReport'RequestCostEntry + -> Data.ProtoLens.Encoding.Bytes.Parser TestOrcaReport'RequestCostEntry + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 17 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToDouble + Data.ProtoLens.Encoding.Bytes.getFixed64) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "RequestCostEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 17) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Data.ProtoLens.Encoding.Bytes.doubleToWord _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData TestOrcaReport'RequestCostEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TestOrcaReport'RequestCostEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TestOrcaReport'RequestCostEntry'key x__) + (Control.DeepSeq.deepseq + (_TestOrcaReport'RequestCostEntry'value x__) ())) +{- | Fields : + + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.key' @:: Lens' TestOrcaReport'UtilizationEntry Data.Text.Text@ + * 'Proto.Src.Proto.Grpc.Testing.Messages_Fields.value' @:: Lens' TestOrcaReport'UtilizationEntry Prelude.Double@ -} +data TestOrcaReport'UtilizationEntry + = TestOrcaReport'UtilizationEntry'_constructor {_TestOrcaReport'UtilizationEntry'key :: !Data.Text.Text, + _TestOrcaReport'UtilizationEntry'value :: !Prelude.Double, + _TestOrcaReport'UtilizationEntry'_unknownFields :: !Data.ProtoLens.FieldSet} + deriving stock (Prelude.Eq, Prelude.Ord) +instance Prelude.Show TestOrcaReport'UtilizationEntry where + showsPrec _ __x __s + = Prelude.showChar + '{' + (Prelude.showString + (Data.ProtoLens.showMessageShort __x) (Prelude.showChar '}' __s)) +instance Data.ProtoLens.Field.HasField TestOrcaReport'UtilizationEntry "key" Data.Text.Text where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TestOrcaReport'UtilizationEntry'key + (\ x__ y__ -> x__ {_TestOrcaReport'UtilizationEntry'key = y__})) + Prelude.id +instance Data.ProtoLens.Field.HasField TestOrcaReport'UtilizationEntry "value" Prelude.Double where + fieldOf _ + = (Prelude..) + (Lens.Family2.Unchecked.lens + _TestOrcaReport'UtilizationEntry'value + (\ x__ y__ -> x__ {_TestOrcaReport'UtilizationEntry'value = y__})) + Prelude.id +instance Data.ProtoLens.Message TestOrcaReport'UtilizationEntry where + messageName _ + = Data.Text.pack "grpc.testing.TestOrcaReport.UtilizationEntry" + packedMessageDescriptor _ + = "\n\ + \\DLEUtilizationEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue:\STX8\SOH" + packedFileDescriptor _ = packedFileDescriptor + fieldsByTag + = let + key__field_descriptor + = Data.ProtoLens.FieldDescriptor + "key" + (Data.ProtoLens.ScalarField Data.ProtoLens.StringField :: + Data.ProtoLens.FieldTypeDescriptor Data.Text.Text) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"key")) :: + Data.ProtoLens.FieldDescriptor TestOrcaReport'UtilizationEntry + value__field_descriptor + = Data.ProtoLens.FieldDescriptor + "value" + (Data.ProtoLens.ScalarField Data.ProtoLens.DoubleField :: + Data.ProtoLens.FieldTypeDescriptor Prelude.Double) + (Data.ProtoLens.PlainField + Data.ProtoLens.Optional (Data.ProtoLens.Field.field @"value")) :: + Data.ProtoLens.FieldDescriptor TestOrcaReport'UtilizationEntry + in + Data.Map.fromList + [(Data.ProtoLens.Tag 1, key__field_descriptor), + (Data.ProtoLens.Tag 2, value__field_descriptor)] + unknownFields + = Lens.Family2.Unchecked.lens + _TestOrcaReport'UtilizationEntry'_unknownFields + (\ x__ y__ + -> x__ {_TestOrcaReport'UtilizationEntry'_unknownFields = y__}) + defMessage + = TestOrcaReport'UtilizationEntry'_constructor + {_TestOrcaReport'UtilizationEntry'key = Data.ProtoLens.fieldDefault, + _TestOrcaReport'UtilizationEntry'value = Data.ProtoLens.fieldDefault, + _TestOrcaReport'UtilizationEntry'_unknownFields = []} + parseMessage + = let + loop :: + TestOrcaReport'UtilizationEntry + -> Data.ProtoLens.Encoding.Bytes.Parser TestOrcaReport'UtilizationEntry + loop x + = do end <- Data.ProtoLens.Encoding.Bytes.atEnd + if end then + do (let missing = [] + in + if Prelude.null missing then + Prelude.return () + else + Prelude.fail + ((Prelude.++) + "Missing required fields: " + (Prelude.show (missing :: [Prelude.String])))) + Prelude.return + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> Prelude.reverse t) x) + else + do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt + case tag of + 10 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (do len <- Data.ProtoLens.Encoding.Bytes.getVarInt + Data.ProtoLens.Encoding.Bytes.getText + (Prelude.fromIntegral len)) + "key" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x) + 17 + -> do y <- (Data.ProtoLens.Encoding.Bytes.) + (Prelude.fmap + Data.ProtoLens.Encoding.Bytes.wordToDouble + Data.ProtoLens.Encoding.Bytes.getFixed64) + "value" + loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x) + wire + -> do !y <- Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire + wire + loop + (Lens.Family2.over + Data.ProtoLens.unknownFields (\ !t -> (:) y t) x) + in + (Data.ProtoLens.Encoding.Bytes.) + (do loop Data.ProtoLens.defMessage) "UtilizationEntry" + buildMessage + = \ _x + -> (Data.Monoid.<>) + (let _v = Lens.Family2.view (Data.ProtoLens.Field.field @"key") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 10) + ((Prelude..) + (\ bs + -> (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt + (Prelude.fromIntegral (Data.ByteString.length bs))) + (Data.ProtoLens.Encoding.Bytes.putBytes bs)) + Data.Text.Encoding.encodeUtf8 _v)) + ((Data.Monoid.<>) + (let + _v = Lens.Family2.view (Data.ProtoLens.Field.field @"value") _x + in + if (Prelude.==) _v Data.ProtoLens.fieldDefault then + Data.Monoid.mempty + else + (Data.Monoid.<>) + (Data.ProtoLens.Encoding.Bytes.putVarInt 17) + ((Prelude..) + Data.ProtoLens.Encoding.Bytes.putFixed64 + Data.ProtoLens.Encoding.Bytes.doubleToWord _v)) + (Data.ProtoLens.Encoding.Wire.buildFieldSet + (Lens.Family2.view Data.ProtoLens.unknownFields _x))) +instance Control.DeepSeq.NFData TestOrcaReport'UtilizationEntry where + rnf + = \ x__ + -> Control.DeepSeq.deepseq + (_TestOrcaReport'UtilizationEntry'_unknownFields x__) + (Control.DeepSeq.deepseq + (_TestOrcaReport'UtilizationEntry'key x__) + (Control.DeepSeq.deepseq + (_TestOrcaReport'UtilizationEntry'value x__) ())) +packedFileDescriptor :: Data.ByteString.ByteString +packedFileDescriptor + = "\n\ + \%src/proto/grpc/testing/messages.proto\DC2\fgrpc.testing\"!\n\ + \\tBoolValue\DC2\DC4\n\ + \\ENQvalue\CAN\SOH \SOH(\bR\ENQvalue\"L\n\ + \\aPayload\DC2-\n\ + \\EOTtype\CAN\SOH \SOH(\SO2\EM.grpc.testing.PayloadTypeR\EOTtype\DC2\DC2\n\ + \\EOTbody\CAN\STX \SOH(\fR\EOTbody\":\n\ + \\n\ + \EchoStatus\DC2\DC2\n\ + \\EOTcode\CAN\SOH \SOH(\ENQR\EOTcode\DC2\CAN\n\ + \\amessage\CAN\STX \SOH(\tR\amessage\"\243\EOT\n\ + \\rSimpleRequest\DC2>\n\ + \\rresponse_type\CAN\SOH \SOH(\SO2\EM.grpc.testing.PayloadTypeR\fresponseType\DC2#\n\ + \\rresponse_size\CAN\STX \SOH(\ENQR\fresponseSize\DC2/\n\ + \\apayload\CAN\ETX \SOH(\v2\NAK.grpc.testing.PayloadR\apayload\DC2#\n\ + \\rfill_username\CAN\EOT \SOH(\bR\ffillUsername\DC2(\n\ + \\DLEfill_oauth_scope\CAN\ENQ \SOH(\bR\SOfillOauthScope\DC2H\n\ + \\DC3response_compressed\CAN\ACK \SOH(\v2\ETB.grpc.testing.BoolValueR\DC2responseCompressed\DC2A\n\ + \\SIresponse_status\CAN\a \SOH(\v2\CAN.grpc.testing.EchoStatusR\SOresponseStatus\DC2D\n\ + \\DC1expect_compressed\CAN\b \SOH(\v2\ETB.grpc.testing.BoolValueR\DLEexpectCompressed\DC2$\n\ + \\SOfill_server_id\CAN\t \SOH(\bR\ffillServerId\DC23\n\ + \\SYNfill_grpclb_route_type\CAN\n\ + \ \SOH(\bR\DC3fillGrpclbRouteType\DC2O\n\ + \\NAKorca_per_query_report\CAN\v \SOH(\v2\FS.grpc.testing.TestOrcaReportR\DC2orcaPerQueryReport\"\130\STX\n\ + \\SOSimpleResponse\DC2/\n\ + \\apayload\CAN\SOH \SOH(\v2\NAK.grpc.testing.PayloadR\apayload\DC2\SUB\n\ + \\busername\CAN\STX \SOH(\tR\busername\DC2\US\n\ + \\voauth_scope\CAN\ETX \SOH(\tR\n\ + \oauthScope\DC2\ESC\n\ + \\tserver_id\CAN\EOT \SOH(\tR\bserverId\DC2I\n\ + \\DC1grpclb_route_type\CAN\ENQ \SOH(\SO2\GS.grpc.testing.GrpclbRouteTypeR\SIgrpclbRouteType\DC2\SUB\n\ + \\bhostname\CAN\ACK \SOH(\tR\bhostname\"\146\SOH\n\ + \\EMStreamingInputCallRequest\DC2/\n\ + \\apayload\CAN\SOH \SOH(\v2\NAK.grpc.testing.PayloadR\apayload\DC2D\n\ + \\DC1expect_compressed\CAN\STX \SOH(\v2\ETB.grpc.testing.BoolValueR\DLEexpectCompressed\"T\n\ + \\SUBStreamingInputCallResponse\DC26\n\ + \\ETBaggregated_payload_size\CAN\SOH \SOH(\ENQR\NAKaggregatedPayloadSize\"\130\SOH\n\ + \\DC2ResponseParameters\DC2\DC2\n\ + \\EOTsize\CAN\SOH \SOH(\ENQR\EOTsize\DC2\US\n\ + \\vinterval_us\CAN\STX \SOH(\ENQR\n\ + \intervalUs\DC27\n\ + \\n\ + \compressed\CAN\ETX \SOH(\v2\ETB.grpc.testing.BoolValueR\n\ + \compressed\"\233\STX\n\ + \\SUBStreamingOutputCallRequest\DC2>\n\ + \\rresponse_type\CAN\SOH \SOH(\SO2\EM.grpc.testing.PayloadTypeR\fresponseType\DC2Q\n\ + \\DC3response_parameters\CAN\STX \ETX(\v2 .grpc.testing.ResponseParametersR\DC2responseParameters\DC2/\n\ + \\apayload\CAN\ETX \SOH(\v2\NAK.grpc.testing.PayloadR\apayload\DC2A\n\ + \\SIresponse_status\CAN\a \SOH(\v2\CAN.grpc.testing.EchoStatusR\SOresponseStatus\DC2D\n\ + \\SIorca_oob_report\CAN\b \SOH(\v2\FS.grpc.testing.TestOrcaReportR\rorcaOobReport\"N\n\ + \\ESCStreamingOutputCallResponse\DC2/\n\ + \\apayload\CAN\SOH \SOH(\v2\NAK.grpc.testing.PayloadR\apayload\"J\n\ + \\SIReconnectParams\DC27\n\ + \\CANmax_reconnect_backoff_ms\CAN\SOH \SOH(\ENQR\NAKmaxReconnectBackoffMs\"F\n\ + \\rReconnectInfo\DC2\SYN\n\ + \\ACKpassed\CAN\SOH \SOH(\bR\ACKpassed\DC2\GS\n\ + \\n\ + \backoff_ms\CAN\STX \ETX(\ENQR\tbackoffMs\"{\n\ + \\CANLoadBalancerStatsRequest\DC2\EM\n\ + \\bnum_rpcs\CAN\SOH \SOH(\ENQR\anumRpcs\DC2\US\n\ + \\vtimeout_sec\CAN\STX \SOH(\ENQR\n\ + \timeoutSec\DC2#\n\ + \\rmetadata_keys\CAN\ETX \ETX(\tR\fmetadataKeys\"\208\t\n\ + \\EMLoadBalancerStatsResponse\DC2Y\n\ + \\frpcs_by_peer\CAN\SOH \ETX(\v27.grpc.testing.LoadBalancerStatsResponse.RpcsByPeerEntryR\n\ + \rpcsByPeer\DC2!\n\ + \\fnum_failures\CAN\STX \SOH(\ENQR\vnumFailures\DC2_\n\ + \\SOrpcs_by_method\CAN\ETX \ETX(\v29.grpc.testing.LoadBalancerStatsResponse.RpcsByMethodEntryR\frpcsByMethod\DC2h\n\ + \\DC1metadatas_by_peer\CAN\EOT \ETX(\v2<.grpc.testing.LoadBalancerStatsResponse.MetadatasByPeerEntryR\SImetadatasByPeer\SUB\129\SOH\n\ + \\rMetadataEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue\DC2H\n\ + \\EOTtype\CAN\ETX \SOH(\SO24.grpc.testing.LoadBalancerStatsResponse.MetadataTypeR\EOTtype\SUB`\n\ + \\vRpcMetadata\DC2Q\n\ + \\bmetadata\CAN\SOH \ETX(\v25.grpc.testing.LoadBalancerStatsResponse.MetadataEntryR\bmetadata\SUBh\n\ + \\SOMetadataByPeer\DC2V\n\ + \\frpc_metadata\CAN\SOH \ETX(\v23.grpc.testing.LoadBalancerStatsResponse.RpcMetadataR\vrpcMetadata\SUB\177\SOH\n\ + \\n\ + \RpcsByPeer\DC2d\n\ + \\frpcs_by_peer\CAN\SOH \ETX(\v2B.grpc.testing.LoadBalancerStatsResponse.RpcsByPeer.RpcsByPeerEntryR\n\ + \rpcsByPeer\SUB=\n\ + \\SIRpcsByPeerEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH\SUB=\n\ + \\SIRpcsByPeerEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH\SUBs\n\ + \\DC1RpcsByMethodEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2H\n\ + \\ENQvalue\CAN\STX \SOH(\v22.grpc.testing.LoadBalancerStatsResponse.RpcsByPeerR\ENQvalue:\STX8\SOH\SUBz\n\ + \\DC4MetadatasByPeerEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2L\n\ + \\ENQvalue\CAN\STX \SOH(\v26.grpc.testing.LoadBalancerStatsResponse.MetadataByPeerR\ENQvalue:\STX8\SOH\"6\n\ + \\fMetadataType\DC2\v\n\ + \\aUNKNOWN\DLE\NUL\DC2\v\n\ + \\aINITIAL\DLE\SOH\DC2\f\n\ + \\bTRAILING\DLE\STX\"%\n\ + \#LoadBalancerAccumulatedStatsRequest\"\134\t\n\ + \$LoadBalancerAccumulatedStatsResponse\DC2\142\SOH\n\ + \\SUBnum_rpcs_started_by_method\CAN\SOH \ETX(\v2N.grpc.testing.LoadBalancerAccumulatedStatsResponse.NumRpcsStartedByMethodEntryR\SYNnumRpcsStartedByMethodB\STX\CAN\SOH\DC2\148\SOH\n\ + \\FSnum_rpcs_succeeded_by_method\CAN\STX \ETX(\v2P.grpc.testing.LoadBalancerAccumulatedStatsResponse.NumRpcsSucceededByMethodEntryR\CANnumRpcsSucceededByMethodB\STX\CAN\SOH\DC2\139\SOH\n\ + \\EMnum_rpcs_failed_by_method\CAN\ETX \ETX(\v2M.grpc.testing.LoadBalancerAccumulatedStatsResponse.NumRpcsFailedByMethodEntryR\NAKnumRpcsFailedByMethodB\STX\CAN\SOH\DC2p\n\ + \\DLEstats_per_method\CAN\EOT \ETX(\v2F.grpc.testing.LoadBalancerAccumulatedStatsResponse.StatsPerMethodEntryR\SOstatsPerMethod\SUBI\n\ + \\ESCNumRpcsStartedByMethodEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH\SUBK\n\ + \\GSNumRpcsSucceededByMethodEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH\SUBH\n\ + \\SUBNumRpcsFailedByMethodEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH\SUB\207\SOH\n\ + \\vMethodStats\DC2!\n\ + \\frpcs_started\CAN\SOH \SOH(\ENQR\vrpcsStarted\DC2b\n\ + \\ACKresult\CAN\STX \ETX(\v2J.grpc.testing.LoadBalancerAccumulatedStatsResponse.MethodStats.ResultEntryR\ACKresult\SUB9\n\ + \\vResultEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\ENQR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\ENQR\ENQvalue:\STX8\SOH\SUB\129\SOH\n\ + \\DC3StatsPerMethodEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2T\n\ + \\ENQvalue\CAN\STX \SOH(\v2>.grpc.testing.LoadBalancerAccumulatedStatsResponse.MethodStatsR\ENQvalue:\STX8\SOH\"\233\STX\n\ + \\SYNClientConfigureRequest\DC2B\n\ + \\ENQtypes\CAN\SOH \ETX(\SO2,.grpc.testing.ClientConfigureRequest.RpcTypeR\ENQtypes\DC2I\n\ + \\bmetadata\CAN\STX \ETX(\v2-.grpc.testing.ClientConfigureRequest.MetadataR\bmetadata\DC2\US\n\ + \\vtimeout_sec\CAN\ETX \SOH(\ENQR\n\ + \timeoutSec\SUBt\n\ + \\bMetadata\DC2@\n\ + \\EOTtype\CAN\SOH \SOH(\SO2,.grpc.testing.ClientConfigureRequest.RpcTypeR\EOTtype\DC2\DLE\n\ + \\ETXkey\CAN\STX \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\ETX \SOH(\tR\ENQvalue\")\n\ + \\aRpcType\DC2\SO\n\ + \\n\ + \EMPTY_CALL\DLE\NUL\DC2\SO\n\ + \\n\ + \UNARY_CALL\DLE\SOH\"\EM\n\ + \\ETBClientConfigureResponse\"\RS\n\ + \\n\ + \MemorySize\DC2\DLE\n\ + \\ETXrss\CAN\SOH \SOH(\ETXR\ETXrss\"\139\ETX\n\ + \\SOTestOrcaReport\DC2'\n\ + \\SIcpu_utilization\CAN\SOH \SOH(\SOHR\SOcpuUtilization\DC2-\n\ + \\DC2memory_utilization\CAN\STX \SOH(\SOHR\DC1memoryUtilization\DC2P\n\ + \\frequest_cost\CAN\ETX \ETX(\v2-.grpc.testing.TestOrcaReport.RequestCostEntryR\vrequestCost\DC2O\n\ + \\vutilization\CAN\EOT \ETX(\v2-.grpc.testing.TestOrcaReport.UtilizationEntryR\vutilization\SUB>\n\ + \\DLERequestCostEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue:\STX8\SOH\SUB>\n\ + \\DLEUtilizationEntry\DC2\DLE\n\ + \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\ + \\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue:\STX8\SOH\"\DEL\n\ + \\SYNSetReturnStatusRequest\DC2-\n\ + \\DC3grpc_code_to_return\CAN\SOH \SOH(\ENQR\DLEgrpcCodeToReturn\DC26\n\ + \\ETBgrpc_status_description\CAN\STX \SOH(\tR\NAKgrpcStatusDescription\"\165\STX\n\ + \\vHookRequest\DC2F\n\ + \\acommand\CAN\SOH \SOH(\SO2,.grpc.testing.HookRequest.HookRequestCommandR\acommand\DC2-\n\ + \\DC3grpc_code_to_return\CAN\STX \SOH(\ENQR\DLEgrpcCodeToReturn\DC26\n\ + \\ETBgrpc_status_description\CAN\ETX \SOH(\tR\NAKgrpcStatusDescription\DC2\US\n\ + \\vserver_port\CAN\EOT \SOH(\ENQR\n\ + \serverPort\"F\n\ + \\DC2HookRequestCommand\DC2\SI\n\ + \\vUNSPECIFIED\DLE\NUL\DC2\t\n\ + \\ENQSTART\DLE\SOH\DC2\b\n\ + \\EOTSTOP\DLE\STX\DC2\n\ + \\n\ + \\ACKRETURN\DLE\ETX\"\SO\n\ + \\fHookResponse*\US\n\ + \\vPayloadType\DC2\DLE\n\ + \\fCOMPRESSABLE\DLE\NUL*o\n\ + \\SIGrpclbRouteType\DC2\GS\n\ + \\EMGRPCLB_ROUTE_TYPE_UNKNOWN\DLE\NUL\DC2\RS\n\ + \\SUBGRPCLB_ROUTE_TYPE_FALLBACK\DLE\SOH\DC2\GS\n\ + \\EMGRPCLB_ROUTE_TYPE_BACKEND\DLE\STXB\GS\n\ + \\ESCio.grpc.testing.integrationJ\171i\n\ + \\a\DC2\ENQ\DLE\NUL\218\STX\SOH\n\ + \\143\ENQ\n\ + \\SOH\f\DC2\ETX\DLE\NUL\DC22\185\EOT Copyright 2015-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\ + \2I Message definitions to be used by integration test service definitions.\n\ + \\n\ + \\b\n\ + \\SOH\STX\DC2\ETX\DC2\NUL\NAK\n\ + \\b\n\ + \\SOH\b\DC2\ETX\DC4\NUL4\n\ + \\t\n\ + \\STX\b\SOH\DC2\ETX\DC4\NUL4\n\ + \\164\SOH\n\ + \\STX\EOT\NUL\DC2\EOT\EM\NUL\FS\SOH\SUB\151\SOH TODO(dgq): Go back to using well-known types once\n\ + \ https://github.com/grpc/grpc/issues/6980 has been fixed.\n\ + \ import \"google/protobuf/wrappers.proto\";\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\NUL\SOH\DC2\ETX\EM\b\DC1\n\ + \\RS\n\ + \\EOT\EOT\NUL\STX\NUL\DC2\ETX\ESC\STX\DC1\SUB\DC1 The bool value.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\ESC\STX\ACK\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\ESC\a\f\n\ + \\f\n\ + \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\ESC\SI\DLE\n\ + \:\n\ + \\STX\ENQ\NUL\DC2\EOT\US\NUL\"\SOH\SUB. The type of payload that should be returned.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\ENQ\NUL\SOH\DC2\ETX\US\ENQ\DLE\n\ + \(\n\ + \\EOT\ENQ\NUL\STX\NUL\DC2\ETX!\STX\DC3\SUB\ESC Compressable text format.\n\ + \\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\NUL\SOH\DC2\ETX!\STX\SO\n\ + \\f\n\ + \\ENQ\ENQ\NUL\STX\NUL\STX\DC2\ETX!\DC1\DC2\n\ + \D\n\ + \\STX\EOT\SOH\DC2\EOT%\NUL*\SOH\SUB8 A block of data, to simply increase gRPC message size.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\SOH\SOH\DC2\ETX%\b\SI\n\ + \(\n\ + \\EOT\EOT\SOH\STX\NUL\DC2\ETX'\STX\ETB\SUB\ESC The type of data in body.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX'\STX\r\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX'\SO\DC2\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX'\NAK\SYN\n\ + \+\n\ + \\EOT\EOT\SOH\STX\SOH\DC2\ETX)\STX\DC1\SUB\RS Primary contents of payload.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX)\STX\a\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX)\b\f\n\ + \\f\n\ + \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX)\SI\DLE\n\ + \\149\SOH\n\ + \\STX\EOT\STX\DC2\EOT.\NUL1\SOH\SUB\136\SOH A protobuf representation for grpc status. This is used by test\n\ + \ clients to specify a status that the server should attempt to return.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\STX\SOH\DC2\ETX.\b\DC2\n\ + \\v\n\ + \\EOT\EOT\STX\STX\NUL\DC2\ETX/\STX\DC1\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX/\STX\a\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX/\b\f\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX/\SI\DLE\n\ + \\v\n\ + \\EOT\EOT\STX\STX\SOH\DC2\ETX0\STX\NAK\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX0\STX\b\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX0\t\DLE\n\ + \\f\n\ + \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX0\DC3\DC4\n\ + \\184\ETX\n\ + \\STX\ENQ\SOH\DC2\EOT9\NUL@\SOH\SUB\171\ETX The type of route that a client took to reach a server w.r.t. gRPCLB.\n\ + \ The server must fill in \"fallback\" if it detects that the RPC reached\n\ + \ the server via the \"gRPCLB fallback\" path, and \"backend\" if it detects\n\ + \ that the RPC reached the server via \"gRPCLB backend\" path (i.e. if it got\n\ + \ the address of this server from the gRPCLB server BalanceLoad RPC). Exactly\n\ + \ how this detection is done is context and server dependent.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\ENQ\SOH\SOH\DC2\ETX9\ENQ\DC4\n\ + \M\n\ + \\EOT\ENQ\SOH\STX\NUL\DC2\ETX;\STX \SUB@ Server didn't detect the route that a client took to reach it.\n\ + \\n\ + \\f\n\ + \\ENQ\ENQ\SOH\STX\NUL\SOH\DC2\ETX;\STX\ESC\n\ + \\f\n\ + \\ENQ\ENQ\SOH\STX\NUL\STX\DC2\ETX;\RS\US\n\ + \L\n\ + \\EOT\ENQ\SOH\STX\SOH\DC2\ETX=\STX!\SUB? Indicates that a client reached a server via gRPCLB fallback.\n\ + \\n\ + \\f\n\ + \\ENQ\ENQ\SOH\STX\SOH\SOH\DC2\ETX=\STX\FS\n\ + \\f\n\ + \\ENQ\ENQ\SOH\STX\SOH\STX\DC2\ETX=\US \n\ + \R\n\ + \\EOT\ENQ\SOH\STX\STX\DC2\ETX?\STX \SUBE Indicates that a client reached a server as a gRPCLB-given backend.\n\ + \\n\ + \\f\n\ + \\ENQ\ENQ\SOH\STX\STX\SOH\DC2\ETX?\STX\ESC\n\ + \\f\n\ + \\ENQ\ENQ\SOH\STX\STX\STX\DC2\ETX?\RS\US\n\ + \\FS\n\ + \\STX\EOT\ETX\DC2\EOTC\NULh\SOH\SUB\DLE Unary request.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\ETX\SOH\DC2\ETXC\b\NAK\n\ + \\146\SOH\n\ + \\EOT\EOT\ETX\STX\NUL\DC2\ETXF\STX \SUB\132\SOH Desired payload type in the response from the server.\n\ + \ If response_type is RANDOM, server randomly chooses one from other formats.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETXF\STX\r\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETXF\SO\ESC\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETXF\RS\US\n\ + \D\n\ + \\EOT\EOT\ETX\STX\SOH\DC2\ETXI\STX\SUB\SUB7 Desired payload size in the response from the server.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETXI\STX\a\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETXI\b\NAK\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETXI\CAN\EM\n\ + \B\n\ + \\EOT\EOT\ETX\STX\STX\DC2\ETXL\STX\SYN\SUB5 Optional input payload sent along with the request.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\STX\ACK\DC2\ETXL\STX\t\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETXL\n\ + \\DC1\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETXL\DC4\NAK\n\ + \>\n\ + \\EOT\EOT\ETX\STX\ETX\DC2\ETXO\STX\EM\SUB1 Whether SimpleResponse should include username.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\ETX\ENQ\DC2\ETXO\STX\ACK\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\ETX\SOH\DC2\ETXO\a\DC4\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\ETX\ETX\DC2\ETXO\ETB\CAN\n\ + \A\n\ + \\EOT\EOT\ETX\STX\EOT\DC2\ETXR\STX\FS\SUB4 Whether SimpleResponse should include OAuth scope.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\EOT\ENQ\DC2\ETXR\STX\ACK\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\EOT\SOH\DC2\ETXR\a\ETB\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\EOT\ETX\DC2\ETXR\SUB\ESC\n\ + \\140\STX\n\ + \\EOT\EOT\ETX\STX\ENQ\DC2\ETXX\STX$\SUB\254\SOH Whether to request the server to compress the response. This field is\n\ + \ \"nullable\" in order to interoperate seamlessly with clients not able to\n\ + \ implement the full compression tests by introspecting the call to verify\n\ + \ the response's compression status.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\ENQ\ACK\DC2\ETXX\STX\v\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\ENQ\SOH\DC2\ETXX\f\US\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\ENQ\ETX\DC2\ETXX\"#\n\ + \:\n\ + \\EOT\EOT\ETX\STX\ACK\DC2\ETX[\STX!\SUB- Whether server should return a given status\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\ACK\ACK\DC2\ETX[\STX\f\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\ACK\SOH\DC2\ETX[\r\FS\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\ACK\ETX\DC2\ETX[\US \n\ + \N\n\ + \\EOT\EOT\ETX\STX\a\DC2\ETX^\STX\"\SUBA Whether the server should expect this request to be compressed.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\a\ACK\DC2\ETX^\STX\v\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\a\SOH\DC2\ETX^\f\GS\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\a\ETX\DC2\ETX^ !\n\ + \?\n\ + \\EOT\EOT\ETX\STX\b\DC2\ETXa\STX\SUB\SUB2 Whether SimpleResponse should include server_id.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\b\ENQ\DC2\ETXa\STX\ACK\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\b\SOH\DC2\ETXa\a\NAK\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\b\ETX\DC2\ETXa\CAN\EM\n\ + \G\n\ + \\EOT\EOT\ETX\STX\t\DC2\ETXd\STX#\SUB: Whether SimpleResponse should include grpclb_route_type.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\t\ENQ\DC2\ETXd\STX\ACK\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\t\SOH\DC2\ETXd\a\GS\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\t\ETX\DC2\ETXd \"\n\ + \\\\n\ + \\EOT\EOT\ETX\STX\n\ + \\DC2\ETXg\STX,\SUBO If set the server should record this metrics report data for the current RPC.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\n\ + \\ACK\DC2\ETXg\STX\DLE\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\n\ + \\SOH\DC2\ETXg\DC1&\n\ + \\f\n\ + \\ENQ\EOT\ETX\STX\n\ + \\ETX\DC2\ETXg)+\n\ + \;\n\ + \\STX\EOT\EOT\DC2\EOTk\NUL|\SOH\SUB/ Unary response, as configured by the request.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\EOT\SOH\DC2\ETXk\b\SYN\n\ + \0\n\ + \\EOT\EOT\EOT\STX\NUL\DC2\ETXm\STX\SYN\SUB# Payload to increase message size.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ACK\DC2\ETXm\STX\t\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETXm\n\ + \\DC1\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETXm\DC4\NAK\n\ + \x\n\ + \\EOT\EOT\EOT\STX\SOH\DC2\ETXp\STX\SYN\SUBk The user the request came from, for verifying authentication was\n\ + \ successful when the client expected it.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\ETXp\STX\b\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETXp\t\DC1\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETXp\DC4\NAK\n\ + \\ESC\n\ + \\EOT\EOT\EOT\STX\STX\DC2\ETXr\STX\EM\SUB\SO OAuth scope.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\STX\ENQ\DC2\ETXr\STX\b\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\STX\SOH\DC2\ETXr\t\DC4\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\STX\ETX\DC2\ETXr\ETB\CAN\n\ + \\149\SOH\n\ + \\EOT\EOT\EOT\STX\ETX\DC2\ETXv\STX\ETB\SUB\135\SOH Server ID. This must be unique among different server instances,\n\ + \ but the same across all RPC's made to a particular server instance.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\ETX\ENQ\DC2\ETXv\STX\b\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\ETX\SOH\DC2\ETXv\t\DC2\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\ETX\ETX\DC2\ETXv\NAK\SYN\n\ + \\ESC\n\ + \\EOT\EOT\EOT\STX\EOT\DC2\ETXx\STX(\SUB\SO gRPCLB Path.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\EOT\ACK\DC2\ETXx\STX\DC1\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\EOT\SOH\DC2\ETXx\DC2#\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\EOT\ETX\DC2\ETXx&'\n\ + \\US\n\ + \\EOT\EOT\EOT\STX\ENQ\DC2\ETX{\STX\SYN\SUB\DC2 Server hostname.\n\ + \\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\ENQ\ENQ\DC2\ETX{\STX\b\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\ENQ\SOH\DC2\ETX{\t\DC1\n\ + \\f\n\ + \\ENQ\EOT\EOT\STX\ENQ\ETX\DC2\ETX{\DC4\NAK\n\ + \(\n\ + \\STX\EOT\ENQ\DC2\ENQ\DEL\NUL\138\SOH\SOH\SUB\ESC Client-streaming request.\n\ + \\n\ + \\n\ + \\n\ + \\ETX\EOT\ENQ\SOH\DC2\ETX\DEL\b!\n\ + \C\n\ + \\EOT\EOT\ENQ\STX\NUL\DC2\EOT\129\SOH\STX\SYN\SUB5 Optional input payload sent along with the request.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\ENQ\STX\NUL\ACK\DC2\EOT\129\SOH\STX\t\n\ + \\r\n\ + \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\EOT\129\SOH\n\ + \\DC1\n\ + \\r\n\ + \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\EOT\129\SOH\DC4\NAK\n\ + \\148\STX\n\ + \\EOT\EOT\ENQ\STX\SOH\DC2\EOT\135\SOH\STX\"\SUB\133\STX Whether the server should expect this request to be compressed. This field\n\ + \ is \"nullable\" in order to interoperate seamlessly with servers not able to\n\ + \ implement the full compression tests by introspecting the call to verify\n\ + \ the request's compression status.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\EOT\135\SOH\STX\v\n\ + \\r\n\ + \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\EOT\135\SOH\f\GS\n\ + \\r\n\ + \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\EOT\135\SOH !\n\ + \*\n\ + \\STX\EOT\ACK\DC2\ACK\141\SOH\NUL\144\SOH\SOH\SUB\FS Client-streaming response.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\ACK\SOH\DC2\EOT\141\SOH\b\"\n\ + \E\n\ + \\EOT\EOT\ACK\STX\NUL\DC2\EOT\143\SOH\STX$\SUB7 Aggregated size of payloads received from the client.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\EOT\143\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\EOT\143\SOH\b\US\n\ + \\r\n\ + \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\EOT\143\SOH\"#\n\ + \8\n\ + \\STX\EOT\a\DC2\ACK\147\SOH\NUL\160\SOH\SOH\SUB* Configuration for a particular response.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\a\SOH\DC2\EOT\147\SOH\b\SUB\n\ + \C\n\ + \\EOT\EOT\a\STX\NUL\DC2\EOT\149\SOH\STX\DC1\SUB5 Desired payload sizes in responses from the server.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\a\STX\NUL\ENQ\DC2\EOT\149\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\a\STX\NUL\SOH\DC2\EOT\149\SOH\b\f\n\ + \\r\n\ + \\ENQ\EOT\a\STX\NUL\ETX\DC2\EOT\149\SOH\SI\DLE\n\ + \g\n\ + \\EOT\EOT\a\STX\SOH\DC2\EOT\153\SOH\STX\CAN\SUBY Desired interval between consecutive responses in the response stream in\n\ + \ microseconds.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\a\STX\SOH\ENQ\DC2\EOT\153\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\a\STX\SOH\SOH\DC2\EOT\153\SOH\b\DC3\n\ + \\r\n\ + \\ENQ\EOT\a\STX\SOH\ETX\DC2\EOT\153\SOH\SYN\ETB\n\ + \\141\STX\n\ + \\EOT\EOT\a\STX\STX\DC2\EOT\159\SOH\STX\ESC\SUB\254\SOH Whether to request the server to compress the response. This field is\n\ + \ \"nullable\" in order to interoperate seamlessly with clients not able to\n\ + \ implement the full compression tests by introspecting the call to verify\n\ + \ the response's compression status.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\a\STX\STX\ACK\DC2\EOT\159\SOH\STX\v\n\ + \\r\n\ + \\ENQ\EOT\a\STX\STX\SOH\DC2\EOT\159\SOH\f\SYN\n\ + \\r\n\ + \\ENQ\EOT\a\STX\STX\ETX\DC2\EOT\159\SOH\EM\SUB\n\ + \)\n\ + \\STX\EOT\b\DC2\ACK\163\SOH\NUL\181\SOH\SOH\SUB\ESC Server-streaming request.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\b\SOH\DC2\EOT\163\SOH\b\"\n\ + \\227\SOH\n\ + \\EOT\EOT\b\STX\NUL\DC2\EOT\168\SOH\STX \SUB\212\SOH Desired payload type in the response from the server.\n\ + \ If response_type is RANDOM, the payload from each response in the stream\n\ + \ might be of different types. This is to simulate a mixed type of payload\n\ + \ stream.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\b\STX\NUL\ACK\DC2\EOT\168\SOH\STX\r\n\ + \\r\n\ + \\ENQ\EOT\b\STX\NUL\SOH\DC2\EOT\168\SOH\SO\ESC\n\ + \\r\n\ + \\ENQ\EOT\b\STX\NUL\ETX\DC2\EOT\168\SOH\RS\US\n\ + \A\n\ + \\EOT\EOT\b\STX\SOH\DC2\EOT\171\SOH\STX6\SUB3 Configuration for each expected response message.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\b\STX\SOH\EOT\DC2\EOT\171\SOH\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\b\STX\SOH\ACK\DC2\EOT\171\SOH\v\GS\n\ + \\r\n\ + \\ENQ\EOT\b\STX\SOH\SOH\DC2\EOT\171\SOH\RS1\n\ + \\r\n\ + \\ENQ\EOT\b\STX\SOH\ETX\DC2\EOT\171\SOH45\n\ + \C\n\ + \\EOT\EOT\b\STX\STX\DC2\EOT\174\SOH\STX\SYN\SUB5 Optional input payload sent along with the request.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\b\STX\STX\ACK\DC2\EOT\174\SOH\STX\t\n\ + \\r\n\ + \\ENQ\EOT\b\STX\STX\SOH\DC2\EOT\174\SOH\n\ + \\DC1\n\ + \\r\n\ + \\ENQ\EOT\b\STX\STX\ETX\DC2\EOT\174\SOH\DC4\NAK\n\ + \;\n\ + \\EOT\EOT\b\STX\ETX\DC2\EOT\177\SOH\STX!\SUB- Whether server should return a given status\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\b\STX\ETX\ACK\DC2\EOT\177\SOH\STX\f\n\ + \\r\n\ + \\ENQ\EOT\b\STX\ETX\SOH\DC2\EOT\177\SOH\r\FS\n\ + \\r\n\ + \\ENQ\EOT\b\STX\ETX\ETX\DC2\EOT\177\SOH\US \n\ + \[\n\ + \\EOT\EOT\b\STX\EOT\DC2\EOT\180\SOH\STX%\SUBM If set the server should update this metrics report data at the OOB server.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\b\STX\EOT\ACK\DC2\EOT\180\SOH\STX\DLE\n\ + \\r\n\ + \\ENQ\EOT\b\STX\EOT\SOH\DC2\EOT\180\SOH\DC1 \n\ + \\r\n\ + \\ENQ\EOT\b\STX\EOT\ETX\DC2\EOT\180\SOH#$\n\ + \W\n\ + \\STX\EOT\t\DC2\ACK\184\SOH\NUL\187\SOH\SOH\SUBI Server-streaming response, as configured by the request and parameters.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\t\SOH\DC2\EOT\184\SOH\b#\n\ + \2\n\ + \\EOT\EOT\t\STX\NUL\DC2\EOT\186\SOH\STX\SYN\SUB$ Payload to increase response size.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\t\STX\NUL\ACK\DC2\EOT\186\SOH\STX\t\n\ + \\r\n\ + \\ENQ\EOT\t\STX\NUL\SOH\DC2\EOT\186\SOH\n\ + \\DC1\n\ + \\r\n\ + \\ENQ\EOT\t\STX\NUL\ETX\DC2\EOT\186\SOH\DC4\NAK\n\ + \k\n\ + \\STX\EOT\n\ + \\DC2\ACK\191\SOH\NUL\193\SOH\SOH\SUB] For reconnect interop test only.\n\ + \ Client tells server what reconnection parameters it used.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\n\ + \\SOH\DC2\EOT\191\SOH\b\ETB\n\ + \\f\n\ + \\EOT\EOT\n\ + \\STX\NUL\DC2\EOT\192\SOH\STX%\n\ + \\r\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ENQ\DC2\EOT\192\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\n\ + \\STX\NUL\SOH\DC2\EOT\192\SOH\b \n\ + \\r\n\ + \\ENQ\EOT\n\ + \\STX\NUL\ETX\DC2\EOT\192\SOH#$\n\ + \\152\SOH\n\ + \\STX\EOT\v\DC2\ACK\198\SOH\NUL\201\SOH\SOH\SUB\137\SOH For reconnect interop test only.\n\ + \ Server tells client whether its reconnects are following the spec and the\n\ + \ reconnect backoffs it saw.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\v\SOH\DC2\EOT\198\SOH\b\NAK\n\ + \\f\n\ + \\EOT\EOT\v\STX\NUL\DC2\EOT\199\SOH\STX\DC2\n\ + \\r\n\ + \\ENQ\EOT\v\STX\NUL\ENQ\DC2\EOT\199\SOH\STX\ACK\n\ + \\r\n\ + \\ENQ\EOT\v\STX\NUL\SOH\DC2\EOT\199\SOH\a\r\n\ + \\r\n\ + \\ENQ\EOT\v\STX\NUL\ETX\DC2\EOT\199\SOH\DLE\DC1\n\ + \\f\n\ + \\EOT\EOT\v\STX\SOH\DC2\EOT\200\SOH\STX \n\ + \\r\n\ + \\ENQ\EOT\v\STX\SOH\EOT\DC2\EOT\200\SOH\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\v\STX\SOH\ENQ\DC2\EOT\200\SOH\v\DLE\n\ + \\r\n\ + \\ENQ\EOT\v\STX\SOH\SOH\DC2\EOT\200\SOH\DC1\ESC\n\ + \\r\n\ + \\ENQ\EOT\v\STX\SOH\ETX\DC2\EOT\200\SOH\RS\US\n\ + \\f\n\ + \\STX\EOT\f\DC2\ACK\203\SOH\NUL\212\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\f\SOH\DC2\EOT\203\SOH\b \n\ + \C\n\ + \\EOT\EOT\f\STX\NUL\DC2\EOT\205\SOH\STX\NAK\SUB5 Request stats for the next num_rpcs sent by client.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\f\STX\NUL\ENQ\DC2\EOT\205\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\f\STX\NUL\SOH\DC2\EOT\205\SOH\b\DLE\n\ + \\r\n\ + \\ENQ\EOT\f\STX\NUL\ETX\DC2\EOT\205\SOH\DC3\DC4\n\ + \Z\n\ + \\EOT\EOT\f\STX\SOH\DC2\EOT\207\SOH\STX\CAN\SUBL If num_rpcs have not completed within timeout_sec, return partial results.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\f\STX\SOH\ENQ\DC2\EOT\207\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\f\STX\SOH\SOH\DC2\EOT\207\SOH\b\DC3\n\ + \\r\n\ + \\ENQ\EOT\f\STX\SOH\ETX\DC2\EOT\207\SOH\SYN\ETB\n\ + \\224\SOH\n\ + \\EOT\EOT\f\STX\STX\DC2\EOT\211\SOH\STX$\SUB\209\SOH Response header + trailer metadata entries we want the values of.\n\ + \ Matching of the keys is case-insensitive as per rfc7540#section-8.1.2\n\ + \ * (asterisk) is a special value that will return all metadata entries\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\f\STX\STX\EOT\DC2\EOT\211\SOH\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\f\STX\STX\ENQ\DC2\EOT\211\SOH\v\DC1\n\ + \\r\n\ + \\ENQ\EOT\f\STX\STX\SOH\DC2\EOT\211\SOH\DC2\US\n\ + \\r\n\ + \\ENQ\EOT\f\STX\STX\ETX\DC2\EOT\211\SOH\"#\n\ + \\f\n\ + \\STX\EOT\r\DC2\ACK\214\SOH\NUL\249\SOH\SOH\n\ + \\v\n\ + \\ETX\EOT\r\SOH\DC2\EOT\214\SOH\b!\n\ + \\SO\n\ + \\EOT\EOT\r\EOT\NUL\DC2\ACK\215\SOH\STX\219\SOH\ETX\n\ + \\r\n\ + \\ENQ\EOT\r\EOT\NUL\SOH\DC2\EOT\215\SOH\a\DC3\n\ + \\SO\n\ + \\ACK\EOT\r\EOT\NUL\STX\NUL\DC2\EOT\216\SOH\EOT\DLE\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\NUL\SOH\DC2\EOT\216\SOH\EOT\v\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\NUL\STX\DC2\EOT\216\SOH\SO\SI\n\ + \\SO\n\ + \\ACK\EOT\r\EOT\NUL\STX\SOH\DC2\EOT\217\SOH\EOT\DLE\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\SOH\SOH\DC2\EOT\217\SOH\EOT\v\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\SOH\STX\DC2\EOT\217\SOH\SO\SI\n\ + \\SO\n\ + \\ACK\EOT\r\EOT\NUL\STX\STX\DC2\EOT\218\SOH\EOT\DC1\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\STX\SOH\DC2\EOT\218\SOH\EOT\f\n\ + \\SI\n\ + \\a\EOT\r\EOT\NUL\STX\STX\STX\DC2\EOT\218\SOH\SI\DLE\n\ + \\SO\n\ + \\EOT\EOT\r\ETX\NUL\DC2\ACK\220\SOH\STX\228\SOH\ETX\n\ + \\r\n\ + \\ENQ\EOT\r\ETX\NUL\SOH\DC2\EOT\220\SOH\n\ + \\ETB\n\ + \\139\SOH\n\ + \\ACK\EOT\r\ETX\NUL\STX\NUL\DC2\EOT\223\SOH\EOT\DC3\SUB{ Key, exactly as received from the server. Case may be different from what\n\ + \ was requested in the LoadBalancerStatsRequest)\n\ + \\n\ + \\SI\n\ + \\a\EOT\r\ETX\NUL\STX\NUL\ENQ\DC2\EOT\223\SOH\EOT\n\ + \\n\ + \\SI\n\ + \\a\EOT\r\ETX\NUL\STX\NUL\SOH\DC2\EOT\223\SOH\v\SO\n\ + \\SI\n\ + \\a\EOT\r\ETX\NUL\STX\NUL\ETX\DC2\EOT\223\SOH\DC1\DC2\n\ + \=\n\ + \\ACK\EOT\r\ETX\NUL\STX\SOH\DC2\EOT\225\SOH\EOT\NAK\SUB- Value, exactly as received from the server.\n\ + \\n\ + \\SI\n\ + \\a\EOT\r\ETX\NUL\STX\SOH\ENQ\DC2\EOT\225\SOH\EOT\n\ + \\n\ + \\SI\n\ + \\a\EOT\r\ETX\NUL\STX\SOH\SOH\DC2\EOT\225\SOH\v\DLE\n\ + \\SI\n\ + \\a\EOT\r\ETX\NUL\STX\SOH\ETX\DC2\EOT\225\SOH\DC3\DC4\n\ + \\US\n\ + \\ACK\EOT\r\ETX\NUL\STX\STX\DC2\EOT\227\SOH\EOT\SUB\SUB\SI Metadata type\n\ + \\n\ + \\SI\n\ + \\a\EOT\r\ETX\NUL\STX\STX\ACK\DC2\EOT\227\SOH\EOT\DLE\n\ + \\SI\n\ + \\a\EOT\r\ETX\NUL\STX\STX\SOH\DC2\EOT\227\SOH\DC1\NAK\n\ + \\SI\n\ + \\a\EOT\r\ETX\NUL\STX\STX\ETX\DC2\EOT\227\SOH\CAN\EM\n\ + \\SO\n\ + \\EOT\EOT\r\ETX\SOH\DC2\ACK\229\SOH\STX\233\SOH\ETX\n\ + \\r\n\ + \\ENQ\EOT\r\ETX\SOH\SOH\DC2\EOT\229\SOH\n\ + \\NAK\n\ + \q\n\ + \\ACK\EOT\r\ETX\SOH\STX\NUL\DC2\EOT\232\SOH\EOT(\SUBa metadata values for each rpc for the keys specified in\n\ + \ LoadBalancerStatsRequest.metadata_keys.\n\ + \\n\ + \\SI\n\ + \\a\EOT\r\ETX\SOH\STX\NUL\EOT\DC2\EOT\232\SOH\EOT\f\n\ + \\SI\n\ + \\a\EOT\r\ETX\SOH\STX\NUL\ACK\DC2\EOT\232\SOH\r\SUB\n\ + \\SI\n\ + \\a\EOT\r\ETX\SOH\STX\NUL\SOH\DC2\EOT\232\SOH\ESC#\n\ + \\SI\n\ + \\a\EOT\r\ETX\SOH\STX\NUL\ETX\DC2\EOT\232\SOH&'\n\ + \\SO\n\ + \\EOT\EOT\r\ETX\STX\DC2\ACK\234\SOH\STX\237\SOH\ETX\n\ + \\r\n\ + \\ENQ\EOT\r\ETX\STX\SOH\DC2\EOT\234\SOH\n\ + \\CAN\n\ + \G\n\ + \\ACK\EOT\r\ETX\STX\STX\NUL\DC2\EOT\236\SOH\EOT*\SUB7 List of RpcMetadata in for each RPC with a given peer\n\ + \\n\ + \\SI\n\ + \\a\EOT\r\ETX\STX\STX\NUL\EOT\DC2\EOT\236\SOH\EOT\f\n\ + \\SI\n\ + \\a\EOT\r\ETX\STX\STX\NUL\ACK\DC2\EOT\236\SOH\r\CAN\n\ + \\SI\n\ + \\a\EOT\r\ETX\STX\STX\NUL\SOH\DC2\EOT\236\SOH\EM%\n\ + \\SI\n\ + \\a\EOT\r\ETX\STX\STX\NUL\ETX\DC2\EOT\236\SOH()\n\ + \\SO\n\ + \\EOT\EOT\r\ETX\ETX\DC2\ACK\238\SOH\STX\241\SOH\ETX\n\ + \\r\n\ + \\ENQ\EOT\r\ETX\ETX\SOH\DC2\EOT\238\SOH\n\ + \\DC4\n\ + \=\n\ + \\ACK\EOT\r\ETX\ETX\STX\NUL\DC2\EOT\240\SOH\EOT(\SUB- The number of completed RPCs for each peer.\n\ + \\n\ + \\SI\n\ + \\a\EOT\r\ETX\ETX\STX\NUL\ACK\DC2\EOT\240\SOH\EOT\SYN\n\ + \\SI\n\ + \\a\EOT\r\ETX\ETX\STX\NUL\SOH\DC2\EOT\240\SOH\ETB#\n\ + \\SI\n\ + \\a\EOT\r\ETX\ETX\STX\NUL\ETX\DC2\EOT\240\SOH&'\n\ + \;\n\ + \\EOT\EOT\r\STX\NUL\DC2\EOT\243\SOH\STX&\SUB- The number of completed RPCs for each peer.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\r\STX\NUL\ACK\DC2\EOT\243\SOH\STX\DC4\n\ + \\r\n\ + \\ENQ\EOT\r\STX\NUL\SOH\DC2\EOT\243\SOH\NAK!\n\ + \\r\n\ + \\ENQ\EOT\r\STX\NUL\ETX\DC2\EOT\243\SOH$%\n\ + \G\n\ + \\EOT\EOT\r\STX\SOH\DC2\EOT\245\SOH\STX\EM\SUB9 The number of RPCs that failed to record a remote peer.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\r\STX\SOH\ENQ\DC2\EOT\245\SOH\STX\a\n\ + \\r\n\ + \\ENQ\EOT\r\STX\SOH\SOH\DC2\EOT\245\SOH\b\DC4\n\ + \\r\n\ + \\ENQ\EOT\r\STX\SOH\ETX\DC2\EOT\245\SOH\ETB\CAN\n\ + \\f\n\ + \\EOT\EOT\r\STX\STX\DC2\EOT\246\SOH\STX-\n\ + \\r\n\ + \\ENQ\EOT\r\STX\STX\ACK\DC2\EOT\246\SOH\STX\EM\n\ + \\r\n\ + \\ENQ\EOT\r\STX\STX\SOH\DC2\EOT\246\SOH\SUB(\n\ + \\r\n\ + \\ENQ\EOT\r\STX\STX\ETX\DC2\EOT\246\SOH+,\n\ + \;\n\ + \\EOT\EOT\r\STX\ETX\DC2\EOT\248\SOH\STX4\SUB- All the metadata of all RPCs for each peer.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\r\STX\ETX\ACK\DC2\EOT\248\SOH\STX\GS\n\ + \\r\n\ + \\ENQ\EOT\r\STX\ETX\SOH\DC2\EOT\248\SOH\RS/\n\ + \\r\n\ + \\ENQ\EOT\r\STX\ETX\ETX\DC2\EOT\248\SOH23\n\ + \G\n\ + \\STX\EOT\SO\DC2\EOT\252\SOH\NUL.\SUB; Request for retrieving a test client's accumulated stats.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\SO\SOH\DC2\EOT\252\SOH\b+\n\ + \A\n\ + \\STX\EOT\SI\DC2\ACK\255\SOH\NUL\150\STX\SOH\SUB3 Accumulated stats for RPCs sent by a test client.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\SI\SOH\DC2\EOT\255\SOH\b,\n\ + \\128\SOH\n\ + \\EOT\EOT\SI\STX\NUL\DC2\EOT\130\STX\STXH\SUBr The total number of RPCs have ever issued for each type.\n\ + \ Deprecated: use stats_per_method.rpcs_started instead.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\NUL\ACK\DC2\EOT\130\STX\STX\DC4\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\NUL\SOH\DC2\EOT\130\STX\NAK/\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\NUL\ETX\DC2\EOT\130\STX23\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\NUL\b\DC2\EOT\130\STX4G\n\ + \\SO\n\ + \\ACK\EOT\SI\STX\NUL\b\ETX\DC2\EOT\130\STX5F\n\ + \\138\SOH\n\ + \\EOT\EOT\SI\STX\SOH\DC2\EOT\133\STX\STXJ\SUB| The total number of RPCs have ever completed successfully for each type.\n\ + \ Deprecated: use stats_per_method.result instead.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\SOH\ACK\DC2\EOT\133\STX\STX\DC4\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\SOH\SOH\DC2\EOT\133\STX\NAK1\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\SOH\ETX\DC2\EOT\133\STX45\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\SOH\b\DC2\EOT\133\STX6I\n\ + \\SO\n\ + \\ACK\EOT\SI\STX\SOH\b\ETX\DC2\EOT\133\STX7H\n\ + \z\n\ + \\EOT\EOT\SI\STX\STX\DC2\EOT\136\STX\STXG\SUBl The total number of RPCs have ever failed for each type.\n\ + \ Deprecated: use stats_per_method.result instead.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\STX\ACK\DC2\EOT\136\STX\STX\DC4\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\STX\SOH\DC2\EOT\136\STX\NAK.\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\STX\ETX\DC2\EOT\136\STX12\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\STX\b\DC2\EOT\136\STX3F\n\ + \\SO\n\ + \\ACK\EOT\SI\STX\STX\b\ETX\DC2\EOT\136\STX4E\n\ + \\SO\n\ + \\EOT\EOT\SI\ETX\ETX\DC2\ACK\138\STX\STX\145\STX\ETX\n\ + \\r\n\ + \\ENQ\EOT\SI\ETX\ETX\SOH\DC2\EOT\138\STX\n\ + \\NAK\n\ + \G\n\ + \\ACK\EOT\SI\ETX\ETX\STX\NUL\DC2\EOT\140\STX\EOT\ESC\SUB7 The number of RPCs that were started for this method.\n\ + \\n\ + \\SI\n\ + \\a\EOT\SI\ETX\ETX\STX\NUL\ENQ\DC2\EOT\140\STX\EOT\t\n\ + \\SI\n\ + \\a\EOT\SI\ETX\ETX\STX\NUL\SOH\DC2\EOT\140\STX\n\ + \\SYN\n\ + \\SI\n\ + \\a\EOT\SI\ETX\ETX\STX\NUL\ETX\DC2\EOT\140\STX\EM\SUB\n\ + \\164\SOH\n\ + \\ACK\EOT\SI\ETX\ETX\STX\SOH\DC2\EOT\144\STX\EOT!\SUB\147\SOH The number of RPCs that completed with each status for this method. The\n\ + \ key is the integral value of a google.rpc.Code; the value is the count.\n\ + \\n\ + \\SI\n\ + \\a\EOT\SI\ETX\ETX\STX\SOH\ACK\DC2\EOT\144\STX\EOT\NAK\n\ + \\SI\n\ + \\a\EOT\SI\ETX\ETX\STX\SOH\SOH\DC2\EOT\144\STX\SYN\FS\n\ + \\SI\n\ + \\a\EOT\SI\ETX\ETX\STX\SOH\ETX\DC2\EOT\144\STX\US \n\ + \u\n\ + \\EOT\EOT\SI\STX\ETX\DC2\EOT\149\STX\STX0\SUBg Per-method RPC statistics. The key is the RpcType in string form; e.g.\n\ + \ 'EMPTY_CALL' or 'UNARY_CALL'\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\ETX\ACK\DC2\EOT\149\STX\STX\SUB\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\ETX\SOH\DC2\EOT\149\STX\ESC+\n\ + \\r\n\ + \\ENQ\EOT\SI\STX\ETX\ETX\DC2\EOT\149\STX./\n\ + \1\n\ + \\STX\EOT\DLE\DC2\ACK\153\STX\NUL\174\STX\SOH\SUB# Configurations for a test client.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\DLE\SOH\DC2\EOT\153\STX\b\RS\n\ + \'\n\ + \\EOT\EOT\DLE\EOT\NUL\DC2\ACK\155\STX\STX\158\STX\ETX\SUB\ETB Type of RPCs to send.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DLE\EOT\NUL\SOH\DC2\EOT\155\STX\a\SO\n\ + \\SO\n\ + \\ACK\EOT\DLE\EOT\NUL\STX\NUL\DC2\EOT\156\STX\EOT\DC3\n\ + \\SI\n\ + \\a\EOT\DLE\EOT\NUL\STX\NUL\SOH\DC2\EOT\156\STX\EOT\SO\n\ + \\SI\n\ + \\a\EOT\DLE\EOT\NUL\STX\NUL\STX\DC2\EOT\156\STX\DC1\DC2\n\ + \\SO\n\ + \\ACK\EOT\DLE\EOT\NUL\STX\SOH\DC2\EOT\157\STX\EOT\DC3\n\ + \\SI\n\ + \\a\EOT\DLE\EOT\NUL\STX\SOH\SOH\DC2\EOT\157\STX\EOT\SO\n\ + \\SI\n\ + \\a\EOT\DLE\EOT\NUL\STX\SOH\STX\DC2\EOT\157\STX\DC1\DC2\n\ + \E\n\ + \\EOT\EOT\DLE\ETX\NUL\DC2\ACK\161\STX\STX\165\STX\ETX\SUB5 Metadata to be attached for the given type of RPCs.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DLE\ETX\NUL\SOH\DC2\EOT\161\STX\n\ + \\DC2\n\ + \\SO\n\ + \\ACK\EOT\DLE\ETX\NUL\STX\NUL\DC2\EOT\162\STX\EOT\NAK\n\ + \\SI\n\ + \\a\EOT\DLE\ETX\NUL\STX\NUL\ACK\DC2\EOT\162\STX\EOT\v\n\ + \\SI\n\ + \\a\EOT\DLE\ETX\NUL\STX\NUL\SOH\DC2\EOT\162\STX\f\DLE\n\ + \\SI\n\ + \\a\EOT\DLE\ETX\NUL\STX\NUL\ETX\DC2\EOT\162\STX\DC3\DC4\n\ + \\SO\n\ + \\ACK\EOT\DLE\ETX\NUL\STX\SOH\DC2\EOT\163\STX\EOT\DC3\n\ + \\SI\n\ + \\a\EOT\DLE\ETX\NUL\STX\SOH\ENQ\DC2\EOT\163\STX\EOT\n\ + \\n\ + \\SI\n\ + \\a\EOT\DLE\ETX\NUL\STX\SOH\SOH\DC2\EOT\163\STX\v\SO\n\ + \\SI\n\ + \\a\EOT\DLE\ETX\NUL\STX\SOH\ETX\DC2\EOT\163\STX\DC1\DC2\n\ + \\SO\n\ + \\ACK\EOT\DLE\ETX\NUL\STX\STX\DC2\EOT\164\STX\EOT\NAK\n\ + \\SI\n\ + \\a\EOT\DLE\ETX\NUL\STX\STX\ENQ\DC2\EOT\164\STX\EOT\n\ + \\n\ + \\SI\n\ + \\a\EOT\DLE\ETX\NUL\STX\STX\SOH\DC2\EOT\164\STX\v\DLE\n\ + \\SI\n\ + \\a\EOT\DLE\ETX\NUL\STX\STX\ETX\DC2\EOT\164\STX\DC3\DC4\n\ + \3\n\ + \\EOT\EOT\DLE\STX\NUL\DC2\EOT\168\STX\STX\GS\SUB% The types of RPCs the client sends.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\NUL\EOT\DC2\EOT\168\STX\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\NUL\ACK\DC2\EOT\168\STX\v\DC2\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\NUL\SOH\DC2\EOT\168\STX\DC3\CAN\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\NUL\ETX\DC2\EOT\168\STX\ESC\FS\n\ + \\\\n\ + \\EOT\EOT\DLE\STX\SOH\DC2\EOT\170\STX\STX!\SUBN The collection of custom metadata to be attached to RPCs sent by the client.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\SOH\EOT\DC2\EOT\170\STX\STX\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\SOH\ACK\DC2\EOT\170\STX\v\DC3\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\SOH\SOH\DC2\EOT\170\STX\DC4\FS\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\SOH\ETX\DC2\EOT\170\STX\US \n\ + \\137\SOH\n\ + \\EOT\EOT\DLE\STX\STX\DC2\EOT\173\STX\STX\CAN\SUB{ The deadline to use, in seconds, for all RPCs. If unset or zero, the\n\ + \ client will use the default from the command-line.\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\STX\ENQ\DC2\EOT\173\STX\STX\a\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\STX\SOH\DC2\EOT\173\STX\b\DC3\n\ + \\r\n\ + \\ENQ\EOT\DLE\STX\STX\ETX\DC2\EOT\173\STX\SYN\ETB\n\ + \B\n\ + \\STX\EOT\DC1\DC2\EOT\177\STX\NUL\"\SUB6 Response for updating a test client's configuration.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\DC1\SOH\DC2\EOT\177\STX\b\US\n\ + \\f\n\ + \\STX\EOT\DC2\DC2\ACK\179\STX\NUL\181\STX\SOH\n\ + \\v\n\ + \\ETX\EOT\DC2\SOH\DC2\EOT\179\STX\b\DC2\n\ + \\f\n\ + \\EOT\EOT\DC2\STX\NUL\DC2\EOT\180\STX\STX\DLE\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\NUL\ENQ\DC2\EOT\180\STX\STX\a\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\NUL\SOH\DC2\EOT\180\STX\b\v\n\ + \\r\n\ + \\ENQ\EOT\DC2\STX\NUL\ETX\DC2\EOT\180\STX\SO\SI\n\ + \\181\STX\n\ + \\STX\EOT\DC3\DC2\ACK\186\STX\NUL\191\STX\SOH\SUB\166\STX Metrics data the server will update and send to the client. It mirrors orca load report\n\ + \ https://github.com/cncf/xds/blob/eded343319d09f30032952beda9840bbd3dcf7ac/xds/data/orca/v3/orca_load_report.proto#L15,\n\ + \ but avoids orca dependency. Used by both per-query and out-of-band reporting tests.\n\ + \\n\ + \\v\n\ + \\ETX\EOT\DC3\SOH\DC2\EOT\186\STX\b\SYN\n\ + \\f\n\ + \\EOT\EOT\DC3\STX\NUL\DC2\EOT\187\STX\STX\GS\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\NUL\ENQ\DC2\EOT\187\STX\STX\b\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\NUL\SOH\DC2\EOT\187\STX\t\CAN\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\NUL\ETX\DC2\EOT\187\STX\ESC\FS\n\ + \\f\n\ + \\EOT\EOT\DC3\STX\SOH\DC2\EOT\188\STX\STX \n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\SOH\ENQ\DC2\EOT\188\STX\STX\b\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\SOH\SOH\DC2\EOT\188\STX\t\ESC\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\SOH\ETX\DC2\EOT\188\STX\RS\US\n\ + \\f\n\ + \\EOT\EOT\DC3\STX\STX\DC2\EOT\189\STX\STX'\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\STX\ACK\DC2\EOT\189\STX\STX\NAK\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\STX\SOH\DC2\EOT\189\STX\SYN\"\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\STX\ETX\DC2\EOT\189\STX%&\n\ + \\f\n\ + \\EOT\EOT\DC3\STX\ETX\DC2\EOT\190\STX\STX&\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\ETX\ACK\DC2\EOT\190\STX\STX\NAK\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\ETX\SOH\DC2\EOT\190\STX\SYN!\n\ + \\r\n\ + \\ENQ\EOT\DC3\STX\ETX\ETX\DC2\EOT\190\STX$%\n\ + \H\n\ + \\STX\EOT\DC4\DC2\ACK\194\STX\NUL\197\STX\SOH\SUB: Status that will be return to callers of the Hook method\n\ + \\n\ + \\v\n\ + \\ETX\EOT\DC4\SOH\DC2\EOT\194\STX\b\RS\n\ + \\f\n\ + \\EOT\EOT\DC4\STX\NUL\DC2\EOT\195\STX\STX \n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\NUL\ENQ\DC2\EOT\195\STX\STX\a\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\NUL\SOH\DC2\EOT\195\STX\b\ESC\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\NUL\ETX\DC2\EOT\195\STX\RS\US\n\ + \\f\n\ + \\EOT\EOT\DC4\STX\SOH\DC2\EOT\196\STX\STX%\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\SOH\ENQ\DC2\EOT\196\STX\STX\b\n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\SOH\SOH\DC2\EOT\196\STX\t \n\ + \\r\n\ + \\ENQ\EOT\DC4\STX\SOH\ETX\DC2\EOT\196\STX#$\n\ + \\f\n\ + \\STX\EOT\NAK\DC2\ACK\199\STX\NUL\215\STX\SOH\n\ + \\v\n\ + \\ETX\EOT\NAK\SOH\DC2\EOT\199\STX\b\DC3\n\ + \\SO\n\ + \\EOT\EOT\NAK\EOT\NUL\DC2\ACK\200\STX\STX\209\STX\ETX\n\ + \\r\n\ + \\ENQ\EOT\NAK\EOT\NUL\SOH\DC2\EOT\200\STX\a\EM\n\ + \\US\n\ + \\ACK\EOT\NAK\EOT\NUL\STX\NUL\DC2\EOT\202\STX\EOT\DC4\SUB\SI Default value\n\ + \\n\ + \\SI\n\ + \\a\EOT\NAK\EOT\NUL\STX\NUL\SOH\DC2\EOT\202\STX\EOT\SI\n\ + \\SI\n\ + \\a\EOT\NAK\EOT\NUL\STX\NUL\STX\DC2\EOT\202\STX\DC2\DC3\n\ + \)\n\ + \\ACK\EOT\NAK\EOT\NUL\STX\SOH\DC2\EOT\204\STX\EOT\SO\SUB\EM Start the HTTP endpoint\n\ + \\n\ + \\SI\n\ + \\a\EOT\NAK\EOT\NUL\STX\SOH\SOH\DC2\EOT\204\STX\EOT\t\n\ + \\SI\n\ + \\a\EOT\NAK\EOT\NUL\STX\SOH\STX\DC2\EOT\204\STX\f\r\n\ + \\SYN\n\ + \\ACK\EOT\NAK\EOT\NUL\STX\STX\DC2\EOT\206\STX\EOT\r\SUB\ACK Stop\n\ + \\n\ + \\SI\n\ + \\a\EOT\NAK\EOT\NUL\STX\STX\SOH\DC2\EOT\206\STX\EOT\b\n\ + \\SI\n\ + \\a\EOT\NAK\EOT\NUL\STX\STX\STX\DC2\EOT\206\STX\v\f\n\ + \+\n\ + \\ACK\EOT\NAK\EOT\NUL\STX\ETX\DC2\EOT\208\STX\EOT\SI\SUB\ESC Return from HTTP GET/POST\n\ + \\n\ + \\SI\n\ + \\a\EOT\NAK\EOT\NUL\STX\ETX\SOH\DC2\EOT\208\STX\EOT\n\ + \\n\ + \\SI\n\ + \\a\EOT\NAK\EOT\NUL\STX\ETX\STX\DC2\EOT\208\STX\r\SO\n\ + \\f\n\ + \\EOT\EOT\NAK\STX\NUL\DC2\EOT\210\STX\STX!\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\NUL\ACK\DC2\EOT\210\STX\STX\DC4\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\NUL\SOH\DC2\EOT\210\STX\NAK\FS\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\NUL\ETX\DC2\EOT\210\STX\US \n\ + \\f\n\ + \\EOT\EOT\NAK\STX\SOH\DC2\EOT\211\STX\STX \n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\SOH\ENQ\DC2\EOT\211\STX\STX\a\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\SOH\SOH\DC2\EOT\211\STX\b\ESC\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\SOH\ETX\DC2\EOT\211\STX\RS\US\n\ + \\f\n\ + \\EOT\EOT\NAK\STX\STX\DC2\EOT\212\STX\STX%\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\STX\ENQ\DC2\EOT\212\STX\STX\b\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\STX\SOH\DC2\EOT\212\STX\t \n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\STX\ETX\DC2\EOT\212\STX#$\n\ + \(\n\ + \\EOT\EOT\NAK\STX\ETX\DC2\EOT\214\STX\STX\CAN\SUB\SUB Server port to listen to\n\ + \\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\ETX\ENQ\DC2\EOT\214\STX\STX\a\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\ETX\SOH\DC2\EOT\214\STX\b\DC3\n\ + \\r\n\ + \\ENQ\EOT\NAK\STX\ETX\ETX\DC2\EOT\214\STX\SYN\ETB\n\ + \\f\n\ + \\STX\EOT\SYN\DC2\ACK\217\STX\NUL\218\STX\SOH\n\ + \\v\n\ + \\ETX\EOT\SYN\SOH\DC2\EOT\217\STX\b\DC4b\ACKproto3" \ No newline at end of file diff --git a/proto/Proto/Src/Proto/Grpc/Testing/Messages_Fields.hs b/proto/Proto/Src/Proto/Grpc/Testing/Messages_Fields.hs new file mode 100644 index 00000000..3a76993f --- /dev/null +++ b/proto/Proto/Src/Proto/Grpc/Testing/Messages_Fields.hs @@ -0,0 +1,451 @@ +{- This file was auto-generated from src/proto/grpc/testing/messages.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.Src.Proto.Grpc.Testing.Messages_Fields where +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 +aggregatedPayloadSize :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "aggregatedPayloadSize" a) => + Lens.Family2.LensLike' f s a +aggregatedPayloadSize + = Data.ProtoLens.Field.field @"aggregatedPayloadSize" +backoffMs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "backoffMs" a) => + Lens.Family2.LensLike' f s a +backoffMs = Data.ProtoLens.Field.field @"backoffMs" +body :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "body" a) => + Lens.Family2.LensLike' f s a +body = Data.ProtoLens.Field.field @"body" +code :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "code" a) => + Lens.Family2.LensLike' f s a +code = Data.ProtoLens.Field.field @"code" +command :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "command" a) => + Lens.Family2.LensLike' f s a +command = Data.ProtoLens.Field.field @"command" +compressed :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "compressed" a) => + Lens.Family2.LensLike' f s a +compressed = Data.ProtoLens.Field.field @"compressed" +cpuUtilization :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "cpuUtilization" a) => + Lens.Family2.LensLike' f s a +cpuUtilization = Data.ProtoLens.Field.field @"cpuUtilization" +expectCompressed :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "expectCompressed" a) => + Lens.Family2.LensLike' f s a +expectCompressed = Data.ProtoLens.Field.field @"expectCompressed" +fillGrpclbRouteType :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "fillGrpclbRouteType" a) => + Lens.Family2.LensLike' f s a +fillGrpclbRouteType + = Data.ProtoLens.Field.field @"fillGrpclbRouteType" +fillOauthScope :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "fillOauthScope" a) => + Lens.Family2.LensLike' f s a +fillOauthScope = Data.ProtoLens.Field.field @"fillOauthScope" +fillServerId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "fillServerId" a) => + Lens.Family2.LensLike' f s a +fillServerId = Data.ProtoLens.Field.field @"fillServerId" +fillUsername :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "fillUsername" a) => + Lens.Family2.LensLike' f s a +fillUsername = Data.ProtoLens.Field.field @"fillUsername" +grpcCodeToReturn :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "grpcCodeToReturn" a) => + Lens.Family2.LensLike' f s a +grpcCodeToReturn = Data.ProtoLens.Field.field @"grpcCodeToReturn" +grpcStatusDescription :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "grpcStatusDescription" a) => + Lens.Family2.LensLike' f s a +grpcStatusDescription + = Data.ProtoLens.Field.field @"grpcStatusDescription" +grpclbRouteType :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "grpclbRouteType" a) => + Lens.Family2.LensLike' f s a +grpclbRouteType = Data.ProtoLens.Field.field @"grpclbRouteType" +hostname :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "hostname" a) => + Lens.Family2.LensLike' f s a +hostname = Data.ProtoLens.Field.field @"hostname" +intervalUs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "intervalUs" a) => + Lens.Family2.LensLike' f s a +intervalUs = Data.ProtoLens.Field.field @"intervalUs" +key :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "key" a) => + Lens.Family2.LensLike' f s a +key = Data.ProtoLens.Field.field @"key" +maxReconnectBackoffMs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maxReconnectBackoffMs" a) => + Lens.Family2.LensLike' f s a +maxReconnectBackoffMs + = Data.ProtoLens.Field.field @"maxReconnectBackoffMs" +maybe'compressed :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'compressed" a) => + Lens.Family2.LensLike' f s a +maybe'compressed = Data.ProtoLens.Field.field @"maybe'compressed" +maybe'expectCompressed :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'expectCompressed" a) => + Lens.Family2.LensLike' f s a +maybe'expectCompressed + = Data.ProtoLens.Field.field @"maybe'expectCompressed" +maybe'orcaOobReport :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'orcaOobReport" a) => + Lens.Family2.LensLike' f s a +maybe'orcaOobReport + = Data.ProtoLens.Field.field @"maybe'orcaOobReport" +maybe'orcaPerQueryReport :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'orcaPerQueryReport" a) => + Lens.Family2.LensLike' f s a +maybe'orcaPerQueryReport + = Data.ProtoLens.Field.field @"maybe'orcaPerQueryReport" +maybe'payload :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'payload" a) => + Lens.Family2.LensLike' f s a +maybe'payload = Data.ProtoLens.Field.field @"maybe'payload" +maybe'responseCompressed :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'responseCompressed" a) => + Lens.Family2.LensLike' f s a +maybe'responseCompressed + = Data.ProtoLens.Field.field @"maybe'responseCompressed" +maybe'responseStatus :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'responseStatus" a) => + Lens.Family2.LensLike' f s a +maybe'responseStatus + = Data.ProtoLens.Field.field @"maybe'responseStatus" +maybe'value :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "maybe'value" a) => + Lens.Family2.LensLike' f s a +maybe'value = Data.ProtoLens.Field.field @"maybe'value" +memoryUtilization :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "memoryUtilization" a) => + Lens.Family2.LensLike' f s a +memoryUtilization = Data.ProtoLens.Field.field @"memoryUtilization" +message :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "message" a) => + Lens.Family2.LensLike' f s a +message = Data.ProtoLens.Field.field @"message" +metadata :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "metadata" a) => + Lens.Family2.LensLike' f s a +metadata = Data.ProtoLens.Field.field @"metadata" +metadataKeys :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "metadataKeys" a) => + Lens.Family2.LensLike' f s a +metadataKeys = Data.ProtoLens.Field.field @"metadataKeys" +metadatasByPeer :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "metadatasByPeer" a) => + Lens.Family2.LensLike' f s a +metadatasByPeer = Data.ProtoLens.Field.field @"metadatasByPeer" +numFailures :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "numFailures" a) => + Lens.Family2.LensLike' f s a +numFailures = Data.ProtoLens.Field.field @"numFailures" +numRpcs :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "numRpcs" a) => + Lens.Family2.LensLike' f s a +numRpcs = Data.ProtoLens.Field.field @"numRpcs" +numRpcsFailedByMethod :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "numRpcsFailedByMethod" a) => + Lens.Family2.LensLike' f s a +numRpcsFailedByMethod + = Data.ProtoLens.Field.field @"numRpcsFailedByMethod" +numRpcsStartedByMethod :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "numRpcsStartedByMethod" a) => + Lens.Family2.LensLike' f s a +numRpcsStartedByMethod + = Data.ProtoLens.Field.field @"numRpcsStartedByMethod" +numRpcsSucceededByMethod :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "numRpcsSucceededByMethod" a) => + Lens.Family2.LensLike' f s a +numRpcsSucceededByMethod + = Data.ProtoLens.Field.field @"numRpcsSucceededByMethod" +oauthScope :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "oauthScope" a) => + Lens.Family2.LensLike' f s a +oauthScope = Data.ProtoLens.Field.field @"oauthScope" +orcaOobReport :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "orcaOobReport" a) => + Lens.Family2.LensLike' f s a +orcaOobReport = Data.ProtoLens.Field.field @"orcaOobReport" +orcaPerQueryReport :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "orcaPerQueryReport" a) => + Lens.Family2.LensLike' f s a +orcaPerQueryReport + = Data.ProtoLens.Field.field @"orcaPerQueryReport" +passed :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "passed" a) => + Lens.Family2.LensLike' f s a +passed = Data.ProtoLens.Field.field @"passed" +payload :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "payload" a) => + Lens.Family2.LensLike' f s a +payload = Data.ProtoLens.Field.field @"payload" +requestCost :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "requestCost" a) => + Lens.Family2.LensLike' f s a +requestCost = Data.ProtoLens.Field.field @"requestCost" +responseCompressed :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "responseCompressed" a) => + Lens.Family2.LensLike' f s a +responseCompressed + = Data.ProtoLens.Field.field @"responseCompressed" +responseParameters :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "responseParameters" a) => + Lens.Family2.LensLike' f s a +responseParameters + = Data.ProtoLens.Field.field @"responseParameters" +responseSize :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "responseSize" a) => + Lens.Family2.LensLike' f s a +responseSize = Data.ProtoLens.Field.field @"responseSize" +responseStatus :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "responseStatus" a) => + Lens.Family2.LensLike' f s a +responseStatus = Data.ProtoLens.Field.field @"responseStatus" +responseType :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "responseType" a) => + Lens.Family2.LensLike' f s a +responseType = Data.ProtoLens.Field.field @"responseType" +result :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "result" a) => + Lens.Family2.LensLike' f s a +result = Data.ProtoLens.Field.field @"result" +rpcMetadata :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "rpcMetadata" a) => + Lens.Family2.LensLike' f s a +rpcMetadata = Data.ProtoLens.Field.field @"rpcMetadata" +rpcsByMethod :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "rpcsByMethod" a) => + Lens.Family2.LensLike' f s a +rpcsByMethod = Data.ProtoLens.Field.field @"rpcsByMethod" +rpcsByPeer :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "rpcsByPeer" a) => + Lens.Family2.LensLike' f s a +rpcsByPeer = Data.ProtoLens.Field.field @"rpcsByPeer" +rpcsStarted :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "rpcsStarted" a) => + Lens.Family2.LensLike' f s a +rpcsStarted = Data.ProtoLens.Field.field @"rpcsStarted" +rss :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "rss" a) => + Lens.Family2.LensLike' f s a +rss = Data.ProtoLens.Field.field @"rss" +serverId :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "serverId" a) => + Lens.Family2.LensLike' f s a +serverId = Data.ProtoLens.Field.field @"serverId" +serverPort :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "serverPort" a) => + Lens.Family2.LensLike' f s a +serverPort = Data.ProtoLens.Field.field @"serverPort" +size :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "size" a) => + Lens.Family2.LensLike' f s a +size = Data.ProtoLens.Field.field @"size" +statsPerMethod :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "statsPerMethod" a) => + Lens.Family2.LensLike' f s a +statsPerMethod = Data.ProtoLens.Field.field @"statsPerMethod" +timeoutSec :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "timeoutSec" a) => + Lens.Family2.LensLike' f s a +timeoutSec = Data.ProtoLens.Field.field @"timeoutSec" +type' :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "type'" a) => + Lens.Family2.LensLike' f s a +type' = Data.ProtoLens.Field.field @"type'" +types :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "types" a) => + Lens.Family2.LensLike' f s a +types = Data.ProtoLens.Field.field @"types" +username :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "username" a) => + Lens.Family2.LensLike' f s a +username = Data.ProtoLens.Field.field @"username" +utilization :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "utilization" a) => + Lens.Family2.LensLike' f s a +utilization = Data.ProtoLens.Field.field @"utilization" +value :: + forall f s a. + (Prelude.Functor f, Data.ProtoLens.Field.HasField s "value" a) => + Lens.Family2.LensLike' f s a +value = Data.ProtoLens.Field.field @"value" +vec'backoffMs :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'backoffMs" a) => + Lens.Family2.LensLike' f s a +vec'backoffMs = Data.ProtoLens.Field.field @"vec'backoffMs" +vec'metadata :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'metadata" a) => + Lens.Family2.LensLike' f s a +vec'metadata = Data.ProtoLens.Field.field @"vec'metadata" +vec'metadataKeys :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'metadataKeys" a) => + Lens.Family2.LensLike' f s a +vec'metadataKeys = Data.ProtoLens.Field.field @"vec'metadataKeys" +vec'responseParameters :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'responseParameters" a) => + Lens.Family2.LensLike' f s a +vec'responseParameters + = Data.ProtoLens.Field.field @"vec'responseParameters" +vec'rpcMetadata :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'rpcMetadata" a) => + Lens.Family2.LensLike' f s a +vec'rpcMetadata = Data.ProtoLens.Field.field @"vec'rpcMetadata" +vec'types :: + forall f s a. + (Prelude.Functor f, + Data.ProtoLens.Field.HasField s "vec'types" a) => + Lens.Family2.LensLike' f s a +vec'types = Data.ProtoLens.Field.field @"vec'types" \ No newline at end of file diff --git a/proto/Proto/Src/Proto/Grpc/Testing/Test.hs b/proto/Proto/Src/Proto/Grpc/Testing/Test.hs new file mode 100644 index 00000000..e60fa94b --- /dev/null +++ b/proto/Proto/Src/Proto/Grpc/Testing/Test.hs @@ -0,0 +1,227 @@ +{- This file was auto-generated from src/proto/grpc/testing/test.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.Src.Proto.Grpc.Testing.Test ( + TestService(..), UnimplementedService(..), ReconnectService(..), + LoadBalancerStatsService(..), HookService(..), + XdsUpdateHealthService(..), XdsUpdateClientConfigureService(..) + ) 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 +import qualified Proto.Src.Proto.Grpc.Testing.Empty +import qualified Proto.Src.Proto.Grpc.Testing.Messages +data TestService = TestService {} +instance Data.ProtoLens.Service.Types.Service TestService where + type ServiceName TestService = "TestService" + type ServicePackage TestService = "grpc.testing" + type ServiceMethods TestService = '["cacheableUnaryCall", + "emptyCall", + "fullDuplexCall", + "halfDuplexCall", + "streamingInputCall", + "streamingOutputCall", + "unaryCall", + "unimplementedCall"] + packedServiceDescriptor _ + = "\n\ + \\vTestService\DC25\n\ + \\tEmptyCall\DC2\DC3.grpc.testing.Empty\SUB\DC3.grpc.testing.Empty\DC2F\n\ + \\tUnaryCall\DC2\ESC.grpc.testing.SimpleRequest\SUB\FS.grpc.testing.SimpleResponse\DC2O\n\ + \\DC2CacheableUnaryCall\DC2\ESC.grpc.testing.SimpleRequest\SUB\FS.grpc.testing.SimpleResponse\DC2l\n\ + \\DC3StreamingOutputCall\DC2(.grpc.testing.StreamingOutputCallRequest\SUB).grpc.testing.StreamingOutputCallResponse0\SOH\DC2i\n\ + \\DC2StreamingInputCall\DC2'.grpc.testing.StreamingInputCallRequest\SUB(.grpc.testing.StreamingInputCallResponse(\SOH\DC2i\n\ + \\SOFullDuplexCall\DC2(.grpc.testing.StreamingOutputCallRequest\SUB).grpc.testing.StreamingOutputCallResponse(\SOH0\SOH\DC2i\n\ + \\SO\&HalfDuplexCall\DC2(.grpc.testing.StreamingOutputCallRequest\SUB).grpc.testing.StreamingOutputCallResponse(\SOH0\SOH\DC2=\n\ + \\DC1UnimplementedCall\DC2\DC3.grpc.testing.Empty\SUB\DC3.grpc.testing.Empty" +instance Data.ProtoLens.Service.Types.HasMethodImpl TestService "emptyCall" where + type MethodName TestService "emptyCall" = "EmptyCall" + type MethodInput TestService "emptyCall" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodOutput TestService "emptyCall" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodStreamingType TestService "emptyCall" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl TestService "unaryCall" where + type MethodName TestService "unaryCall" = "UnaryCall" + type MethodInput TestService "unaryCall" = Proto.Src.Proto.Grpc.Testing.Messages.SimpleRequest + type MethodOutput TestService "unaryCall" = Proto.Src.Proto.Grpc.Testing.Messages.SimpleResponse + type MethodStreamingType TestService "unaryCall" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl TestService "cacheableUnaryCall" where + type MethodName TestService "cacheableUnaryCall" = "CacheableUnaryCall" + type MethodInput TestService "cacheableUnaryCall" = Proto.Src.Proto.Grpc.Testing.Messages.SimpleRequest + type MethodOutput TestService "cacheableUnaryCall" = Proto.Src.Proto.Grpc.Testing.Messages.SimpleResponse + type MethodStreamingType TestService "cacheableUnaryCall" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl TestService "streamingOutputCall" where + type MethodName TestService "streamingOutputCall" = "StreamingOutputCall" + type MethodInput TestService "streamingOutputCall" = Proto.Src.Proto.Grpc.Testing.Messages.StreamingOutputCallRequest + type MethodOutput TestService "streamingOutputCall" = Proto.Src.Proto.Grpc.Testing.Messages.StreamingOutputCallResponse + type MethodStreamingType TestService "streamingOutputCall" = 'Data.ProtoLens.Service.Types.ServerStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl TestService "streamingInputCall" where + type MethodName TestService "streamingInputCall" = "StreamingInputCall" + type MethodInput TestService "streamingInputCall" = Proto.Src.Proto.Grpc.Testing.Messages.StreamingInputCallRequest + type MethodOutput TestService "streamingInputCall" = Proto.Src.Proto.Grpc.Testing.Messages.StreamingInputCallResponse + type MethodStreamingType TestService "streamingInputCall" = 'Data.ProtoLens.Service.Types.ClientStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl TestService "fullDuplexCall" where + type MethodName TestService "fullDuplexCall" = "FullDuplexCall" + type MethodInput TestService "fullDuplexCall" = Proto.Src.Proto.Grpc.Testing.Messages.StreamingOutputCallRequest + type MethodOutput TestService "fullDuplexCall" = Proto.Src.Proto.Grpc.Testing.Messages.StreamingOutputCallResponse + type MethodStreamingType TestService "fullDuplexCall" = 'Data.ProtoLens.Service.Types.BiDiStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl TestService "halfDuplexCall" where + type MethodName TestService "halfDuplexCall" = "HalfDuplexCall" + type MethodInput TestService "halfDuplexCall" = Proto.Src.Proto.Grpc.Testing.Messages.StreamingOutputCallRequest + type MethodOutput TestService "halfDuplexCall" = Proto.Src.Proto.Grpc.Testing.Messages.StreamingOutputCallResponse + type MethodStreamingType TestService "halfDuplexCall" = 'Data.ProtoLens.Service.Types.BiDiStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl TestService "unimplementedCall" where + type MethodName TestService "unimplementedCall" = "UnimplementedCall" + type MethodInput TestService "unimplementedCall" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodOutput TestService "unimplementedCall" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodStreamingType TestService "unimplementedCall" = 'Data.ProtoLens.Service.Types.NonStreaming +data UnimplementedService = UnimplementedService {} +instance Data.ProtoLens.Service.Types.Service UnimplementedService where + type ServiceName UnimplementedService = "UnimplementedService" + type ServicePackage UnimplementedService = "grpc.testing" + type ServiceMethods UnimplementedService = '["unimplementedCall"] + packedServiceDescriptor _ + = "\n\ + \\DC4UnimplementedService\DC2=\n\ + \\DC1UnimplementedCall\DC2\DC3.grpc.testing.Empty\SUB\DC3.grpc.testing.Empty" +instance Data.ProtoLens.Service.Types.HasMethodImpl UnimplementedService "unimplementedCall" where + type MethodName UnimplementedService "unimplementedCall" = "UnimplementedCall" + type MethodInput UnimplementedService "unimplementedCall" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodOutput UnimplementedService "unimplementedCall" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodStreamingType UnimplementedService "unimplementedCall" = 'Data.ProtoLens.Service.Types.NonStreaming +data ReconnectService = ReconnectService {} +instance Data.ProtoLens.Service.Types.Service ReconnectService where + type ServiceName ReconnectService = "ReconnectService" + type ServicePackage ReconnectService = "grpc.testing" + type ServiceMethods ReconnectService = '["start", "stop"] + packedServiceDescriptor _ + = "\n\ + \\DLEReconnectService\DC2;\n\ + \\ENQStart\DC2\GS.grpc.testing.ReconnectParams\SUB\DC3.grpc.testing.Empty\DC28\n\ + \\EOTStop\DC2\DC3.grpc.testing.Empty\SUB\ESC.grpc.testing.ReconnectInfo" +instance Data.ProtoLens.Service.Types.HasMethodImpl ReconnectService "start" where + type MethodName ReconnectService "start" = "Start" + type MethodInput ReconnectService "start" = Proto.Src.Proto.Grpc.Testing.Messages.ReconnectParams + type MethodOutput ReconnectService "start" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodStreamingType ReconnectService "start" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl ReconnectService "stop" where + type MethodName ReconnectService "stop" = "Stop" + type MethodInput ReconnectService "stop" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodOutput ReconnectService "stop" = Proto.Src.Proto.Grpc.Testing.Messages.ReconnectInfo + type MethodStreamingType ReconnectService "stop" = 'Data.ProtoLens.Service.Types.NonStreaming +data LoadBalancerStatsService = LoadBalancerStatsService {} +instance Data.ProtoLens.Service.Types.Service LoadBalancerStatsService where + type ServiceName LoadBalancerStatsService = "LoadBalancerStatsService" + type ServicePackage LoadBalancerStatsService = "grpc.testing" + type ServiceMethods LoadBalancerStatsService = '["getClientAccumulatedStats", + "getClientStats"] + packedServiceDescriptor _ + = "\n\ + \\CANLoadBalancerStatsService\DC2c\n\ + \\SOGetClientStats\DC2&.grpc.testing.LoadBalancerStatsRequest\SUB'.grpc.testing.LoadBalancerStatsResponse\"\NUL\DC2\132\SOH\n\ + \\EMGetClientAccumulatedStats\DC21.grpc.testing.LoadBalancerAccumulatedStatsRequest\SUB2.grpc.testing.LoadBalancerAccumulatedStatsResponse\"\NUL" +instance Data.ProtoLens.Service.Types.HasMethodImpl LoadBalancerStatsService "getClientStats" where + type MethodName LoadBalancerStatsService "getClientStats" = "GetClientStats" + type MethodInput LoadBalancerStatsService "getClientStats" = Proto.Src.Proto.Grpc.Testing.Messages.LoadBalancerStatsRequest + type MethodOutput LoadBalancerStatsService "getClientStats" = Proto.Src.Proto.Grpc.Testing.Messages.LoadBalancerStatsResponse + type MethodStreamingType LoadBalancerStatsService "getClientStats" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl LoadBalancerStatsService "getClientAccumulatedStats" where + type MethodName LoadBalancerStatsService "getClientAccumulatedStats" = "GetClientAccumulatedStats" + type MethodInput LoadBalancerStatsService "getClientAccumulatedStats" = Proto.Src.Proto.Grpc.Testing.Messages.LoadBalancerAccumulatedStatsRequest + type MethodOutput LoadBalancerStatsService "getClientAccumulatedStats" = Proto.Src.Proto.Grpc.Testing.Messages.LoadBalancerAccumulatedStatsResponse + type MethodStreamingType LoadBalancerStatsService "getClientAccumulatedStats" = 'Data.ProtoLens.Service.Types.NonStreaming +data HookService = HookService {} +instance Data.ProtoLens.Service.Types.Service HookService where + type ServiceName HookService = "HookService" + type ServicePackage HookService = "grpc.testing" + type ServiceMethods HookService = '["clearReturnStatus", + "hook", + "setReturnStatus"] + packedServiceDescriptor _ + = "\n\ + \\vHookService\DC20\n\ + \\EOTHook\DC2\DC3.grpc.testing.Empty\SUB\DC3.grpc.testing.Empty\DC2L\n\ + \\SISetReturnStatus\DC2$.grpc.testing.SetReturnStatusRequest\SUB\DC3.grpc.testing.Empty\DC2=\n\ + \\DC1ClearReturnStatus\DC2\DC3.grpc.testing.Empty\SUB\DC3.grpc.testing.Empty" +instance Data.ProtoLens.Service.Types.HasMethodImpl HookService "hook" where + type MethodName HookService "hook" = "Hook" + type MethodInput HookService "hook" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodOutput HookService "hook" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodStreamingType HookService "hook" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl HookService "setReturnStatus" where + type MethodName HookService "setReturnStatus" = "SetReturnStatus" + type MethodInput HookService "setReturnStatus" = Proto.Src.Proto.Grpc.Testing.Messages.SetReturnStatusRequest + type MethodOutput HookService "setReturnStatus" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodStreamingType HookService "setReturnStatus" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl HookService "clearReturnStatus" where + type MethodName HookService "clearReturnStatus" = "ClearReturnStatus" + type MethodInput HookService "clearReturnStatus" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodOutput HookService "clearReturnStatus" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodStreamingType HookService "clearReturnStatus" = 'Data.ProtoLens.Service.Types.NonStreaming +data XdsUpdateHealthService = XdsUpdateHealthService {} +instance Data.ProtoLens.Service.Types.Service XdsUpdateHealthService where + type ServiceName XdsUpdateHealthService = "XdsUpdateHealthService" + type ServicePackage XdsUpdateHealthService = "grpc.testing" + type ServiceMethods XdsUpdateHealthService = '["sendHookRequest", + "setNotServing", + "setServing"] + packedServiceDescriptor _ + = "\n\ + \\SYNXdsUpdateHealthService\DC26\n\ + \\n\ + \SetServing\DC2\DC3.grpc.testing.Empty\SUB\DC3.grpc.testing.Empty\DC29\n\ + \\rSetNotServing\DC2\DC3.grpc.testing.Empty\SUB\DC3.grpc.testing.Empty\DC2H\n\ + \\SISendHookRequest\DC2\EM.grpc.testing.HookRequest\SUB\SUB.grpc.testing.HookResponse" +instance Data.ProtoLens.Service.Types.HasMethodImpl XdsUpdateHealthService "setServing" where + type MethodName XdsUpdateHealthService "setServing" = "SetServing" + type MethodInput XdsUpdateHealthService "setServing" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodOutput XdsUpdateHealthService "setServing" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodStreamingType XdsUpdateHealthService "setServing" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl XdsUpdateHealthService "setNotServing" where + type MethodName XdsUpdateHealthService "setNotServing" = "SetNotServing" + type MethodInput XdsUpdateHealthService "setNotServing" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodOutput XdsUpdateHealthService "setNotServing" = Proto.Src.Proto.Grpc.Testing.Empty.Empty + type MethodStreamingType XdsUpdateHealthService "setNotServing" = 'Data.ProtoLens.Service.Types.NonStreaming +instance Data.ProtoLens.Service.Types.HasMethodImpl XdsUpdateHealthService "sendHookRequest" where + type MethodName XdsUpdateHealthService "sendHookRequest" = "SendHookRequest" + type MethodInput XdsUpdateHealthService "sendHookRequest" = Proto.Src.Proto.Grpc.Testing.Messages.HookRequest + type MethodOutput XdsUpdateHealthService "sendHookRequest" = Proto.Src.Proto.Grpc.Testing.Messages.HookResponse + type MethodStreamingType XdsUpdateHealthService "sendHookRequest" = 'Data.ProtoLens.Service.Types.NonStreaming +data XdsUpdateClientConfigureService + = XdsUpdateClientConfigureService {} +instance Data.ProtoLens.Service.Types.Service XdsUpdateClientConfigureService where + type ServiceName XdsUpdateClientConfigureService = "XdsUpdateClientConfigureService" + type ServicePackage XdsUpdateClientConfigureService = "grpc.testing" + type ServiceMethods XdsUpdateClientConfigureService = '["configure"] + packedServiceDescriptor _ + = "\n\ + \\USXdsUpdateClientConfigureService\DC2X\n\ + \\tConfigure\DC2$.grpc.testing.ClientConfigureRequest\SUB%.grpc.testing.ClientConfigureResponse" +instance Data.ProtoLens.Service.Types.HasMethodImpl XdsUpdateClientConfigureService "configure" where + type MethodName XdsUpdateClientConfigureService "configure" = "Configure" + type MethodInput XdsUpdateClientConfigureService "configure" = Proto.Src.Proto.Grpc.Testing.Messages.ClientConfigureRequest + type MethodOutput XdsUpdateClientConfigureService "configure" = Proto.Src.Proto.Grpc.Testing.Messages.ClientConfigureResponse + type MethodStreamingType XdsUpdateClientConfigureService "configure" = 'Data.ProtoLens.Service.Types.NonStreaming \ No newline at end of file diff --git a/proto/Proto/Src/Proto/Grpc/Testing/Test_Fields.hs b/proto/Proto/Src/Proto/Grpc/Testing/Test_Fields.hs new file mode 100644 index 00000000..fb6dd5cc --- /dev/null +++ b/proto/Proto/Src/Proto/Grpc/Testing/Test_Fields.hs @@ -0,0 +1,31 @@ +{- This file was auto-generated from src/proto/grpc/testing/test.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.Src.Proto.Grpc.Testing.Test_Fields where +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 +import qualified Proto.Src.Proto.Grpc.Testing.Empty +import qualified Proto.Src.Proto.Grpc.Testing.Messages \ No newline at end of file diff --git a/proto/README.md b/proto/README.md new file mode 100644 index 00000000..607d7815 --- /dev/null +++ b/proto/README.md @@ -0,0 +1,3 @@ +# Generated Haskell code from `.proto` files + +See `dev/genproto.sh` diff --git a/src/Network/GRPC/Server/Run.hs b/src/Network/GRPC/Server/Run.hs index 88433541..2df4f794 100644 --- a/src/Network/GRPC/Server/Run.hs +++ b/src/Network/GRPC/Server/Run.hs @@ -72,6 +72,9 @@ instance Default InsecureConfig where -- | Offer secure connection (over TLS) data SecureConfig = SecureConfig { -- | Hostname + -- + -- Unlike in 'InsecureConfig', the 'HostName' is required here, because it + -- must match the certificate. secureHost :: HostName -- | Port number diff --git a/src/Network/GRPC/Server/StreamType.hs b/src/Network/GRPC/Server/StreamType.hs index e2719096..820f77f0 100644 --- a/src/Network/GRPC/Server/StreamType.hs +++ b/src/Network/GRPC/Server/StreamType.hs @@ -149,6 +149,10 @@ data Methods (m :: Type -> Type) (rpcs :: [Type]) where -> Methods m rpcs -> Methods m (rpc ': rpcs) + UnsupportedMethod :: + Methods m rpcs + -> Methods m (rpc ': rpcs) + -- | Declare handlers for a set of services -- -- See also 'fromServices'. @@ -174,9 +178,10 @@ fromMethods :: forall m rpcs. fromMethods = go where go :: Methods m rpcs' -> [RpcHandler m] - go NoMoreMethods = [] - go (Method h ms) = streamingRpcHandler' h : go ms - go (RawMethod m ms) = m : go ms + go NoMoreMethods = [] + go (Method h ms) = streamingRpcHandler' h : go ms + go (RawMethod m ms) = m : go ms + go (UnsupportedMethod ms) = go ms fromServices :: forall m servs. MonadIO m