{-# OPTIONS_GHC -Wno-prepositive-qualified-module -Wno-identities #-}
{- This file was auto-generated from orca_load_report.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.OrcaLoadReport (
        OrcaLoadReport(), OrcaLoadReport'NamedMetricsEntry(),
        OrcaLoadReport'RequestCostEntry(),
        OrcaLoadReport'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.OrcaLoadReport_Fields.cpuUtilization' @:: Lens' OrcaLoadReport Prelude.Double@
         * 'Proto.OrcaLoadReport_Fields.memUtilization' @:: Lens' OrcaLoadReport Prelude.Double@
         * 'Proto.OrcaLoadReport_Fields.rps' @:: Lens' OrcaLoadReport Data.Word.Word64@
         * 'Proto.OrcaLoadReport_Fields.requestCost' @:: Lens' OrcaLoadReport (Data.Map.Map Data.Text.Text Prelude.Double)@
         * 'Proto.OrcaLoadReport_Fields.utilization' @:: Lens' OrcaLoadReport (Data.Map.Map Data.Text.Text Prelude.Double)@
         * 'Proto.OrcaLoadReport_Fields.rpsFractional' @:: Lens' OrcaLoadReport Prelude.Double@
         * 'Proto.OrcaLoadReport_Fields.eps' @:: Lens' OrcaLoadReport Prelude.Double@
         * 'Proto.OrcaLoadReport_Fields.namedMetrics' @:: Lens' OrcaLoadReport (Data.Map.Map Data.Text.Text Prelude.Double)@
         * 'Proto.OrcaLoadReport_Fields.applicationUtilization' @:: Lens' OrcaLoadReport Prelude.Double@ -}
data OrcaLoadReport
  = OrcaLoadReport'_constructor {OrcaLoadReport -> Double
_OrcaLoadReport'cpuUtilization :: !Prelude.Double,
                                 OrcaLoadReport -> Double
_OrcaLoadReport'memUtilization :: !Prelude.Double,
                                 OrcaLoadReport -> Word64
_OrcaLoadReport'rps :: !Data.Word.Word64,
                                 OrcaLoadReport -> Map Text Double
_OrcaLoadReport'requestCost :: !(Data.Map.Map Data.Text.Text Prelude.Double),
                                 OrcaLoadReport -> Map Text Double
_OrcaLoadReport'utilization :: !(Data.Map.Map Data.Text.Text Prelude.Double),
                                 OrcaLoadReport -> Double
_OrcaLoadReport'rpsFractional :: !Prelude.Double,
                                 OrcaLoadReport -> Double
_OrcaLoadReport'eps :: !Prelude.Double,
                                 OrcaLoadReport -> Map Text Double
_OrcaLoadReport'namedMetrics :: !(Data.Map.Map Data.Text.Text Prelude.Double),
                                 OrcaLoadReport -> Double
_OrcaLoadReport'applicationUtilization :: !Prelude.Double,
                                 OrcaLoadReport -> FieldSet
_OrcaLoadReport'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (OrcaLoadReport -> OrcaLoadReport -> Bool
(OrcaLoadReport -> OrcaLoadReport -> Bool)
-> (OrcaLoadReport -> OrcaLoadReport -> Bool) -> Eq OrcaLoadReport
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: OrcaLoadReport -> OrcaLoadReport -> Bool
== :: OrcaLoadReport -> OrcaLoadReport -> Bool
$c/= :: OrcaLoadReport -> OrcaLoadReport -> Bool
/= :: OrcaLoadReport -> OrcaLoadReport -> Bool
Prelude.Eq, Eq OrcaLoadReport
Eq OrcaLoadReport =>
(OrcaLoadReport -> OrcaLoadReport -> Ordering)
-> (OrcaLoadReport -> OrcaLoadReport -> Bool)
-> (OrcaLoadReport -> OrcaLoadReport -> Bool)
-> (OrcaLoadReport -> OrcaLoadReport -> Bool)
-> (OrcaLoadReport -> OrcaLoadReport -> Bool)
-> (OrcaLoadReport -> OrcaLoadReport -> OrcaLoadReport)
-> (OrcaLoadReport -> OrcaLoadReport -> OrcaLoadReport)
-> Ord OrcaLoadReport
OrcaLoadReport -> OrcaLoadReport -> Bool
OrcaLoadReport -> OrcaLoadReport -> Ordering
OrcaLoadReport -> OrcaLoadReport -> OrcaLoadReport
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: OrcaLoadReport -> OrcaLoadReport -> Ordering
compare :: OrcaLoadReport -> OrcaLoadReport -> Ordering
$c< :: OrcaLoadReport -> OrcaLoadReport -> Bool
< :: OrcaLoadReport -> OrcaLoadReport -> Bool
$c<= :: OrcaLoadReport -> OrcaLoadReport -> Bool
<= :: OrcaLoadReport -> OrcaLoadReport -> Bool
$c> :: OrcaLoadReport -> OrcaLoadReport -> Bool
> :: OrcaLoadReport -> OrcaLoadReport -> Bool
$c>= :: OrcaLoadReport -> OrcaLoadReport -> Bool
>= :: OrcaLoadReport -> OrcaLoadReport -> Bool
$cmax :: OrcaLoadReport -> OrcaLoadReport -> OrcaLoadReport
max :: OrcaLoadReport -> OrcaLoadReport -> OrcaLoadReport
$cmin :: OrcaLoadReport -> OrcaLoadReport -> OrcaLoadReport
min :: OrcaLoadReport -> OrcaLoadReport -> OrcaLoadReport
Prelude.Ord)
instance Prelude.Show OrcaLoadReport where
  showsPrec :: Int -> OrcaLoadReport -> ShowS
showsPrec Int
_ OrcaLoadReport
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (OrcaLoadReport -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort OrcaLoadReport
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField OrcaLoadReport "cpuUtilization" Prelude.Double where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "cpuUtilization"
-> (Double -> f Double) -> OrcaLoadReport -> f OrcaLoadReport
fieldOf Proxy# "cpuUtilization"
_
    = ((Double -> f Double) -> OrcaLoadReport -> f OrcaLoadReport)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> OrcaLoadReport
-> f OrcaLoadReport
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OrcaLoadReport -> Double)
-> (OrcaLoadReport -> Double -> OrcaLoadReport)
-> Lens OrcaLoadReport OrcaLoadReport Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OrcaLoadReport -> Double
_OrcaLoadReport'cpuUtilization
           (\ OrcaLoadReport
x__ Double
y__ -> OrcaLoadReport
x__ {_OrcaLoadReport'cpuUtilization = y__}))
        (Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OrcaLoadReport "memUtilization" Prelude.Double where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "memUtilization"
-> (Double -> f Double) -> OrcaLoadReport -> f OrcaLoadReport
fieldOf Proxy# "memUtilization"
_
    = ((Double -> f Double) -> OrcaLoadReport -> f OrcaLoadReport)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> OrcaLoadReport
-> f OrcaLoadReport
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OrcaLoadReport -> Double)
-> (OrcaLoadReport -> Double -> OrcaLoadReport)
-> Lens OrcaLoadReport OrcaLoadReport Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OrcaLoadReport -> Double
_OrcaLoadReport'memUtilization
           (\ OrcaLoadReport
x__ Double
y__ -> OrcaLoadReport
x__ {_OrcaLoadReport'memUtilization = y__}))
        (Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OrcaLoadReport "rps" Data.Word.Word64 where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rps"
-> (Word64 -> f Word64) -> OrcaLoadReport -> f OrcaLoadReport
fieldOf Proxy# "rps"
_
    = ((Word64 -> f Word64) -> OrcaLoadReport -> f OrcaLoadReport)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> OrcaLoadReport
-> f OrcaLoadReport
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OrcaLoadReport -> Word64)
-> (OrcaLoadReport -> Word64 -> OrcaLoadReport)
-> Lens OrcaLoadReport OrcaLoadReport Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OrcaLoadReport -> Word64
_OrcaLoadReport'rps (\ OrcaLoadReport
x__ Word64
y__ -> OrcaLoadReport
x__ {_OrcaLoadReport'rps = y__}))
        (Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OrcaLoadReport "requestCost" (Data.Map.Map Data.Text.Text Prelude.Double) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "requestCost"
-> (Map Text Double -> f (Map Text Double))
-> OrcaLoadReport
-> f OrcaLoadReport
fieldOf Proxy# "requestCost"
_
    = ((Map Text Double -> f (Map Text Double))
 -> OrcaLoadReport -> f OrcaLoadReport)
-> ((Map Text Double -> f (Map Text Double))
    -> Map Text Double -> f (Map Text Double))
-> (Map Text Double -> f (Map Text Double))
-> OrcaLoadReport
-> f OrcaLoadReport
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OrcaLoadReport -> Map Text Double)
-> (OrcaLoadReport -> Map Text Double -> OrcaLoadReport)
-> Lens
     OrcaLoadReport OrcaLoadReport (Map Text Double) (Map Text Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OrcaLoadReport -> Map Text Double
_OrcaLoadReport'requestCost
           (\ OrcaLoadReport
x__ Map Text Double
y__ -> OrcaLoadReport
x__ {_OrcaLoadReport'requestCost = y__}))
        (Map Text Double -> f (Map Text Double))
-> Map Text Double -> f (Map Text Double)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OrcaLoadReport "utilization" (Data.Map.Map Data.Text.Text Prelude.Double) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "utilization"
-> (Map Text Double -> f (Map Text Double))
-> OrcaLoadReport
-> f OrcaLoadReport
fieldOf Proxy# "utilization"
_
    = ((Map Text Double -> f (Map Text Double))
 -> OrcaLoadReport -> f OrcaLoadReport)
-> ((Map Text Double -> f (Map Text Double))
    -> Map Text Double -> f (Map Text Double))
-> (Map Text Double -> f (Map Text Double))
-> OrcaLoadReport
-> f OrcaLoadReport
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OrcaLoadReport -> Map Text Double)
-> (OrcaLoadReport -> Map Text Double -> OrcaLoadReport)
-> Lens
     OrcaLoadReport OrcaLoadReport (Map Text Double) (Map Text Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OrcaLoadReport -> Map Text Double
_OrcaLoadReport'utilization
           (\ OrcaLoadReport
x__ Map Text Double
y__ -> OrcaLoadReport
x__ {_OrcaLoadReport'utilization = y__}))
        (Map Text Double -> f (Map Text Double))
-> Map Text Double -> f (Map Text Double)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OrcaLoadReport "rpsFractional" Prelude.Double where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "rpsFractional"
-> (Double -> f Double) -> OrcaLoadReport -> f OrcaLoadReport
fieldOf Proxy# "rpsFractional"
_
    = ((Double -> f Double) -> OrcaLoadReport -> f OrcaLoadReport)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> OrcaLoadReport
-> f OrcaLoadReport
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OrcaLoadReport -> Double)
-> (OrcaLoadReport -> Double -> OrcaLoadReport)
-> Lens OrcaLoadReport OrcaLoadReport Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OrcaLoadReport -> Double
_OrcaLoadReport'rpsFractional
           (\ OrcaLoadReport
x__ Double
y__ -> OrcaLoadReport
x__ {_OrcaLoadReport'rpsFractional = y__}))
        (Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OrcaLoadReport "eps" Prelude.Double where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "eps"
-> (Double -> f Double) -> OrcaLoadReport -> f OrcaLoadReport
fieldOf Proxy# "eps"
_
    = ((Double -> f Double) -> OrcaLoadReport -> f OrcaLoadReport)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> OrcaLoadReport
-> f OrcaLoadReport
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OrcaLoadReport -> Double)
-> (OrcaLoadReport -> Double -> OrcaLoadReport)
-> Lens OrcaLoadReport OrcaLoadReport Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OrcaLoadReport -> Double
_OrcaLoadReport'eps (\ OrcaLoadReport
x__ Double
y__ -> OrcaLoadReport
x__ {_OrcaLoadReport'eps = y__}))
        (Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OrcaLoadReport "namedMetrics" (Data.Map.Map Data.Text.Text Prelude.Double) where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "namedMetrics"
-> (Map Text Double -> f (Map Text Double))
-> OrcaLoadReport
-> f OrcaLoadReport
fieldOf Proxy# "namedMetrics"
_
    = ((Map Text Double -> f (Map Text Double))
 -> OrcaLoadReport -> f OrcaLoadReport)
-> ((Map Text Double -> f (Map Text Double))
    -> Map Text Double -> f (Map Text Double))
-> (Map Text Double -> f (Map Text Double))
-> OrcaLoadReport
-> f OrcaLoadReport
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OrcaLoadReport -> Map Text Double)
-> (OrcaLoadReport -> Map Text Double -> OrcaLoadReport)
-> Lens
     OrcaLoadReport OrcaLoadReport (Map Text Double) (Map Text Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OrcaLoadReport -> Map Text Double
_OrcaLoadReport'namedMetrics
           (\ OrcaLoadReport
x__ Map Text Double
y__ -> OrcaLoadReport
x__ {_OrcaLoadReport'namedMetrics = y__}))
        (Map Text Double -> f (Map Text Double))
-> Map Text Double -> f (Map Text Double)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OrcaLoadReport "applicationUtilization" Prelude.Double where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "applicationUtilization"
-> (Double -> f Double) -> OrcaLoadReport -> f OrcaLoadReport
fieldOf Proxy# "applicationUtilization"
_
    = ((Double -> f Double) -> OrcaLoadReport -> f OrcaLoadReport)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> OrcaLoadReport
-> f OrcaLoadReport
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OrcaLoadReport -> Double)
-> (OrcaLoadReport -> Double -> OrcaLoadReport)
-> Lens OrcaLoadReport OrcaLoadReport Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OrcaLoadReport -> Double
_OrcaLoadReport'applicationUtilization
           (\ OrcaLoadReport
x__ Double
y__ -> OrcaLoadReport
x__ {_OrcaLoadReport'applicationUtilization = y__}))
        (Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message OrcaLoadReport where
  messageName :: Proxy OrcaLoadReport -> Text
messageName Proxy OrcaLoadReport
_ = String -> Text
Data.Text.pack String
"xds.data.orca.v3.OrcaLoadReport"
  packedMessageDescriptor :: Proxy OrcaLoadReport -> ByteString
packedMessageDescriptor Proxy OrcaLoadReport
_
    = ByteString
"\n\
      \\SOOrcaLoadReport\DC2'\n\
      \\SIcpu_utilization\CAN\SOH \SOH(\SOHR\SOcpuUtilization\DC2'\n\
      \\SImem_utilization\CAN\STX \SOH(\SOHR\SOmemUtilization\DC2\DC4\n\
      \\ETXrps\CAN\ETX \SOH(\EOTR\ETXrpsB\STX\CAN\SOH\DC2T\n\
      \\frequest_cost\CAN\EOT \ETX(\v21.xds.data.orca.v3.OrcaLoadReport.RequestCostEntryR\vrequestCost\DC2S\n\
      \\vutilization\CAN\ENQ \ETX(\v21.xds.data.orca.v3.OrcaLoadReport.UtilizationEntryR\vutilization\DC2%\n\
      \\SOrps_fractional\CAN\ACK \SOH(\SOHR\rrpsFractional\DC2\DLE\n\
      \\ETXeps\CAN\a \SOH(\SOHR\ETXeps\DC2W\n\
      \\rnamed_metrics\CAN\b \ETX(\v22.xds.data.orca.v3.OrcaLoadReport.NamedMetricsEntryR\fnamedMetrics\DC27\n\
      \\ETBapplication_utilization\CAN\t \SOH(\SOHR\SYNapplicationUtilization\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\SUB?\n\
      \\DC1NamedMetricsEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy OrcaLoadReport -> ByteString
packedFileDescriptor Proxy OrcaLoadReport
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor OrcaLoadReport)
fieldsByTag
    = let
        cpuUtilization__field_descriptor :: FieldDescriptor OrcaLoadReport
cpuUtilization__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor OrcaLoadReport Double
-> FieldDescriptor OrcaLoadReport
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"cpu_utilization"
              (ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
              (WireDefault Double
-> Lens OrcaLoadReport OrcaLoadReport Double Double
-> FieldAccessor OrcaLoadReport Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cpuUtilization")) ::
              Data.ProtoLens.FieldDescriptor OrcaLoadReport
        memUtilization__field_descriptor :: FieldDescriptor OrcaLoadReport
memUtilization__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor OrcaLoadReport Double
-> FieldDescriptor OrcaLoadReport
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"mem_utilization"
              (ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
              (WireDefault Double
-> Lens OrcaLoadReport OrcaLoadReport Double Double
-> FieldAccessor OrcaLoadReport Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"memUtilization")) ::
              Data.ProtoLens.FieldDescriptor OrcaLoadReport
        rps__field_descriptor :: FieldDescriptor OrcaLoadReport
rps__field_descriptor
          = String
-> FieldTypeDescriptor Word64
-> FieldAccessor OrcaLoadReport Word64
-> FieldDescriptor OrcaLoadReport
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"rps"
              (ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
              (WireDefault Word64
-> Lens OrcaLoadReport OrcaLoadReport Word64 Word64
-> FieldAccessor OrcaLoadReport Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rps")) ::
              Data.ProtoLens.FieldDescriptor OrcaLoadReport
        requestCost__field_descriptor :: FieldDescriptor OrcaLoadReport
requestCost__field_descriptor
          = String
-> FieldTypeDescriptor OrcaLoadReport'RequestCostEntry
-> FieldAccessor OrcaLoadReport OrcaLoadReport'RequestCostEntry
-> FieldDescriptor OrcaLoadReport
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"request_cost"
              (MessageOrGroup
-> FieldTypeDescriptor OrcaLoadReport'RequestCostEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor OrcaLoadReport'RequestCostEntry)
              (Lens' OrcaLoadReport'RequestCostEntry Text
-> Lens' OrcaLoadReport'RequestCostEntry Double
-> Lens
     OrcaLoadReport OrcaLoadReport (Map Text Double) (Map Text Double)
-> FieldAccessor OrcaLoadReport OrcaLoadReport'RequestCostEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"requestCost")) ::
              Data.ProtoLens.FieldDescriptor OrcaLoadReport
        utilization__field_descriptor :: FieldDescriptor OrcaLoadReport
utilization__field_descriptor
          = String
-> FieldTypeDescriptor OrcaLoadReport'UtilizationEntry
-> FieldAccessor OrcaLoadReport OrcaLoadReport'UtilizationEntry
-> FieldDescriptor OrcaLoadReport
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"utilization"
              (MessageOrGroup
-> FieldTypeDescriptor OrcaLoadReport'UtilizationEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor OrcaLoadReport'UtilizationEntry)
              (Lens' OrcaLoadReport'UtilizationEntry Text
-> Lens' OrcaLoadReport'UtilizationEntry Double
-> Lens
     OrcaLoadReport OrcaLoadReport (Map Text Double) (Map Text Double)
-> FieldAccessor OrcaLoadReport OrcaLoadReport'UtilizationEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"utilization")) ::
              Data.ProtoLens.FieldDescriptor OrcaLoadReport
        rpsFractional__field_descriptor :: FieldDescriptor OrcaLoadReport
rpsFractional__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor OrcaLoadReport Double
-> FieldDescriptor OrcaLoadReport
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"rps_fractional"
              (ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
              (WireDefault Double
-> Lens OrcaLoadReport OrcaLoadReport Double Double
-> FieldAccessor OrcaLoadReport Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rpsFractional")) ::
              Data.ProtoLens.FieldDescriptor OrcaLoadReport
        eps__field_descriptor :: FieldDescriptor OrcaLoadReport
eps__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor OrcaLoadReport Double
-> FieldDescriptor OrcaLoadReport
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"eps"
              (ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
              (WireDefault Double
-> Lens OrcaLoadReport OrcaLoadReport Double Double
-> FieldAccessor OrcaLoadReport Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"eps")) ::
              Data.ProtoLens.FieldDescriptor OrcaLoadReport
        namedMetrics__field_descriptor :: FieldDescriptor OrcaLoadReport
namedMetrics__field_descriptor
          = String
-> FieldTypeDescriptor OrcaLoadReport'NamedMetricsEntry
-> FieldAccessor OrcaLoadReport OrcaLoadReport'NamedMetricsEntry
-> FieldDescriptor OrcaLoadReport
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"named_metrics"
              (MessageOrGroup
-> FieldTypeDescriptor OrcaLoadReport'NamedMetricsEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor OrcaLoadReport'NamedMetricsEntry)
              (Lens' OrcaLoadReport'NamedMetricsEntry Text
-> Lens' OrcaLoadReport'NamedMetricsEntry Double
-> Lens
     OrcaLoadReport OrcaLoadReport (Map Text Double) (Map Text Double)
-> FieldAccessor OrcaLoadReport OrcaLoadReport'NamedMetricsEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"namedMetrics")) ::
              Data.ProtoLens.FieldDescriptor OrcaLoadReport
        applicationUtilization__field_descriptor :: FieldDescriptor OrcaLoadReport
applicationUtilization__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor OrcaLoadReport Double
-> FieldDescriptor OrcaLoadReport
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"application_utilization"
              (ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
              (WireDefault Double
-> Lens OrcaLoadReport OrcaLoadReport Double Double
-> FieldAccessor OrcaLoadReport Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"applicationUtilization")) ::
              Data.ProtoLens.FieldDescriptor OrcaLoadReport
      in
        [(Tag, FieldDescriptor OrcaLoadReport)]
-> Map Tag (FieldDescriptor OrcaLoadReport)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor OrcaLoadReport
cpuUtilization__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor OrcaLoadReport
memUtilization__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
3, FieldDescriptor OrcaLoadReport
rps__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
4, FieldDescriptor OrcaLoadReport
requestCost__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
5, FieldDescriptor OrcaLoadReport
utilization__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
6, FieldDescriptor OrcaLoadReport
rpsFractional__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
7, FieldDescriptor OrcaLoadReport
eps__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
8, FieldDescriptor OrcaLoadReport
namedMetrics__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
9, FieldDescriptor OrcaLoadReport
applicationUtilization__field_descriptor)]
  unknownFields :: Lens' OrcaLoadReport FieldSet
unknownFields
    = (OrcaLoadReport -> FieldSet)
-> (OrcaLoadReport -> FieldSet -> OrcaLoadReport)
-> Lens' OrcaLoadReport FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        OrcaLoadReport -> FieldSet
_OrcaLoadReport'_unknownFields
        (\ OrcaLoadReport
x__ FieldSet
y__ -> OrcaLoadReport
x__ {_OrcaLoadReport'_unknownFields = y__})
  defMessage :: OrcaLoadReport
defMessage
    = OrcaLoadReport'_constructor
        {_OrcaLoadReport'cpuUtilization :: Double
_OrcaLoadReport'cpuUtilization = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _OrcaLoadReport'memUtilization :: Double
_OrcaLoadReport'memUtilization = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _OrcaLoadReport'rps :: Word64
_OrcaLoadReport'rps = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _OrcaLoadReport'requestCost :: Map Text Double
_OrcaLoadReport'requestCost = Map Text Double
forall k a. Map k a
Data.Map.empty,
         _OrcaLoadReport'utilization :: Map Text Double
_OrcaLoadReport'utilization = Map Text Double
forall k a. Map k a
Data.Map.empty,
         _OrcaLoadReport'rpsFractional :: Double
_OrcaLoadReport'rpsFractional = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _OrcaLoadReport'eps :: Double
_OrcaLoadReport'eps = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _OrcaLoadReport'namedMetrics :: Map Text Double
_OrcaLoadReport'namedMetrics = Map Text Double
forall k a. Map k a
Data.Map.empty,
         _OrcaLoadReport'applicationUtilization :: Double
_OrcaLoadReport'applicationUtilization = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _OrcaLoadReport'_unknownFields :: FieldSet
_OrcaLoadReport'_unknownFields = []}
  parseMessage :: Parser OrcaLoadReport
parseMessage
    = let
        loop ::
          OrcaLoadReport
          -> Data.ProtoLens.Encoding.Bytes.Parser OrcaLoadReport
        loop :: OrcaLoadReport -> Parser OrcaLoadReport
loop OrcaLoadReport
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
9 -> do y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       String
"cpu_utilization"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"cpuUtilization") y x)
                        Word64
17
                          -> do y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       String
"mem_utilization"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"memUtilization") y x)
                        Word64
24
                          -> do y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt String
"rps"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"rps") y x)
                        Word64
34
                          -> do !(entry :: OrcaLoadReport'RequestCostEntry) <- Parser OrcaLoadReport'RequestCostEntry
-> String -> Parser OrcaLoadReport'RequestCostEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                                 (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                                                     Data.ProtoLens.Encoding.Bytes.isolate
                                                                                       (Prelude.fromIntegral
                                                                                          len)
                                                                                       Data.ProtoLens.parseMessage)
                                                                                 String
"request_cost"
                                (let
                                   key = FoldLike
  Text
  OrcaLoadReport'RequestCostEntry
  OrcaLoadReport'RequestCostEntry
  Text
  Text
-> OrcaLoadReport'RequestCostEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") OrcaLoadReport'RequestCostEntry
entry
                                   value
                                     = FoldLike
  Double
  OrcaLoadReport'RequestCostEntry
  OrcaLoadReport'RequestCostEntry
  Double
  Double
-> OrcaLoadReport'RequestCostEntry -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") OrcaLoadReport'RequestCostEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"requestCost")
                                        (\ !Map Text Double
t -> Text -> Double -> Map Text Double -> Map Text Double
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Double
value Map Text Double
t) x))
                        Word64
42
                          -> do !(entry :: OrcaLoadReport'UtilizationEntry) <- Parser OrcaLoadReport'UtilizationEntry
-> String -> Parser OrcaLoadReport'UtilizationEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                                 (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                                                     Data.ProtoLens.Encoding.Bytes.isolate
                                                                                       (Prelude.fromIntegral
                                                                                          len)
                                                                                       Data.ProtoLens.parseMessage)
                                                                                 String
"utilization"
                                (let
                                   key = FoldLike
  Text
  OrcaLoadReport'UtilizationEntry
  OrcaLoadReport'UtilizationEntry
  Text
  Text
-> OrcaLoadReport'UtilizationEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") OrcaLoadReport'UtilizationEntry
entry
                                   value
                                     = FoldLike
  Double
  OrcaLoadReport'UtilizationEntry
  OrcaLoadReport'UtilizationEntry
  Double
  Double
-> OrcaLoadReport'UtilizationEntry -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") OrcaLoadReport'UtilizationEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"utilization")
                                        (\ !Map Text Double
t -> Text -> Double -> Map Text Double -> Map Text Double
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Double
value Map Text Double
t) x))
                        Word64
49
                          -> do y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       String
"rps_fractional"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"rpsFractional") y x)
                        Word64
57
                          -> do y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       String
"eps"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"eps") y x)
                        Word64
66
                          -> do !(entry :: OrcaLoadReport'NamedMetricsEntry) <- Parser OrcaLoadReport'NamedMetricsEntry
-> String -> Parser OrcaLoadReport'NamedMetricsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                                  (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                                                      Data.ProtoLens.Encoding.Bytes.isolate
                                                                                        (Prelude.fromIntegral
                                                                                           len)
                                                                                        Data.ProtoLens.parseMessage)
                                                                                  String
"named_metrics"
                                (let
                                   key = FoldLike
  Text
  OrcaLoadReport'NamedMetricsEntry
  OrcaLoadReport'NamedMetricsEntry
  Text
  Text
-> OrcaLoadReport'NamedMetricsEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") OrcaLoadReport'NamedMetricsEntry
entry
                                   value
                                     = FoldLike
  Double
  OrcaLoadReport'NamedMetricsEntry
  OrcaLoadReport'NamedMetricsEntry
  Double
  Double
-> OrcaLoadReport'NamedMetricsEntry -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") OrcaLoadReport'NamedMetricsEntry
entry
                                 in
                                   loop
                                     (Lens.Family2.over
                                        (Data.ProtoLens.Field.field @"namedMetrics")
                                        (\ !Map Text Double
t -> Text -> Double -> Map Text Double -> Map Text Double
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Double
value Map Text Double
t) x))
                        Word64
73
                          -> do y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       String
"application_utilization"
                                loop
                                  (Lens.Family2.set
                                     (Data.ProtoLens.Field.field @"applicationUtilization") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser OrcaLoadReport -> String -> Parser OrcaLoadReport
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do OrcaLoadReport -> Parser OrcaLoadReport
loop OrcaLoadReport
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"OrcaLoadReport"
  buildMessage :: OrcaLoadReport -> Builder
buildMessage
    = \ OrcaLoadReport
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Double
_v
                  = FoldLike Double OrcaLoadReport OrcaLoadReport Double Double
-> OrcaLoadReport -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                      (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cpuUtilization") OrcaLoadReport
_x
              in
                if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
9)
                      ((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
                         Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Double
_v
                     = FoldLike Double OrcaLoadReport OrcaLoadReport Double Double
-> OrcaLoadReport -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"memUtilization") OrcaLoadReport
_x
                 in
                   if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
17)
                         ((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
                            Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let _v :: Word64
_v = FoldLike Word64 OrcaLoadReport OrcaLoadReport Word64 Word64
-> OrcaLoadReport -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rps") OrcaLoadReport
_x
                    in
                      if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                          Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      else
                          Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
24)
                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                         (((Text, Double) -> Builder) -> [(Text, Double)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                            (\ (Text, Double)
_v
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
34)
                                    ((ByteString -> Builder)
-> (OrcaLoadReport'RequestCostEntry -> ByteString)
-> OrcaLoadReport'RequestCostEntry
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                       (\ ByteString
bs
                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                     (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                       OrcaLoadReport'RequestCostEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                       (Setter
  OrcaLoadReport'RequestCostEntry
  OrcaLoadReport'RequestCostEntry
  Text
  Text
-> Text
-> OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                          (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, Double) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Double)
_v)
                                          (Setter
  OrcaLoadReport'RequestCostEntry
  OrcaLoadReport'RequestCostEntry
  Double
  Double
-> Double
-> OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                             (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ((Text, Double) -> Double
forall a b. (a, b) -> b
Prelude.snd (Text, Double)
_v)
                                             (OrcaLoadReport'RequestCostEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                                OrcaLoadReport'RequestCostEntry)))))
                            (Map Text Double -> [(Text, Double)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                               (FoldLike
  (Map Text Double)
  OrcaLoadReport
  OrcaLoadReport
  (Map Text Double)
  (Map Text Double)
-> OrcaLoadReport -> Map Text Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                  (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"requestCost") OrcaLoadReport
_x))))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                            (((Text, Double) -> Builder) -> [(Text, Double)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                               (\ (Text, Double)
_v
                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
42)
                                       ((ByteString -> Builder)
-> (OrcaLoadReport'UtilizationEntry -> ByteString)
-> OrcaLoadReport'UtilizationEntry
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                          (\ ByteString
bs
                                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                        (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                          OrcaLoadReport'UtilizationEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                          (Setter
  OrcaLoadReport'UtilizationEntry
  OrcaLoadReport'UtilizationEntry
  Text
  Text
-> Text
-> OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                             (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ((Text, Double) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Double)
_v)
                                             (Setter
  OrcaLoadReport'UtilizationEntry
  OrcaLoadReport'UtilizationEntry
  Double
  Double
-> Double
-> OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                                                ((Text, Double) -> Double
forall a b. (a, b) -> b
Prelude.snd (Text, Double)
_v)
                                                (OrcaLoadReport'UtilizationEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                                   OrcaLoadReport'UtilizationEntry)))))
                               (Map Text Double -> [(Text, Double)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                                  (FoldLike
  (Map Text Double)
  OrcaLoadReport
  OrcaLoadReport
  (Map Text Double)
  (Map Text Double)
-> OrcaLoadReport -> Map Text Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                     (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"utilization") OrcaLoadReport
_x))))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (let
                               _v :: Double
_v
                                 = FoldLike Double OrcaLoadReport OrcaLoadReport Double Double
-> OrcaLoadReport -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                     (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"rpsFractional") OrcaLoadReport
_x
                             in
                               if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                   Builder
forall a. Monoid a => a
Data.Monoid.mempty
                               else
                                   Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
49)
                                     ((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                        Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
                                        Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (let _v :: Double
_v = FoldLike Double OrcaLoadReport OrcaLoadReport Double Double
-> OrcaLoadReport -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"eps") OrcaLoadReport
_x
                                in
                                  if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                      Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                  else
                                      Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
57)
                                        ((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                           Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
                                           Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                                     (((Text, Double) -> Builder) -> [(Text, Double)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                                        (\ (Text, Double)
_v
                                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
66)
                                                ((ByteString -> Builder)
-> (OrcaLoadReport'NamedMetricsEntry -> ByteString)
-> OrcaLoadReport'NamedMetricsEntry
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                   (\ ByteString
bs
                                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                 (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                              ByteString
bs))
                                                   OrcaLoadReport'NamedMetricsEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                                   (Setter
  OrcaLoadReport'NamedMetricsEntry
  OrcaLoadReport'NamedMetricsEntry
  Text
  Text
-> Text
-> OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                      (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                                                      ((Text, Double) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Double)
_v)
                                                      (Setter
  OrcaLoadReport'NamedMetricsEntry
  OrcaLoadReport'NamedMetricsEntry
  Double
  Double
-> Double
-> OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                         (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                                                         ((Text, Double) -> Double
forall a b. (a, b) -> b
Prelude.snd (Text, Double)
_v)
                                                         (OrcaLoadReport'NamedMetricsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                                            OrcaLoadReport'NamedMetricsEntry)))))
                                        (Map Text Double -> [(Text, Double)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                                           (FoldLike
  (Map Text Double)
  OrcaLoadReport
  OrcaLoadReport
  (Map Text Double)
  (Map Text Double)
-> OrcaLoadReport -> Map Text Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                              (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"namedMetrics") OrcaLoadReport
_x))))
                                  (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (let
                                        _v :: Double
_v
                                          = FoldLike Double OrcaLoadReport OrcaLoadReport Double Double
-> OrcaLoadReport -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                              (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"applicationUtilization")
                                              OrcaLoadReport
_x
                                      in
                                        if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                                            Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                        else
                                            Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
73)
                                              ((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                 Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
                                                 Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
                                     (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                        (FoldLike FieldSet OrcaLoadReport OrcaLoadReport FieldSet FieldSet
-> OrcaLoadReport -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet OrcaLoadReport OrcaLoadReport FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' OrcaLoadReport FieldSet
Data.ProtoLens.unknownFields OrcaLoadReport
_x))))))))))
instance Control.DeepSeq.NFData OrcaLoadReport where
  rnf :: OrcaLoadReport -> ()
rnf
    = \ OrcaLoadReport
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (OrcaLoadReport -> FieldSet
_OrcaLoadReport'_unknownFields OrcaLoadReport
x__)
             (Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (OrcaLoadReport -> Double
_OrcaLoadReport'cpuUtilization OrcaLoadReport
x__)
                (Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (OrcaLoadReport -> Double
_OrcaLoadReport'memUtilization OrcaLoadReport
x__)
                   (Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (OrcaLoadReport -> Word64
_OrcaLoadReport'rps OrcaLoadReport
x__)
                      (Map Text Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (OrcaLoadReport -> Map Text Double
_OrcaLoadReport'requestCost OrcaLoadReport
x__)
                         (Map Text Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (OrcaLoadReport -> Map Text Double
_OrcaLoadReport'utilization OrcaLoadReport
x__)
                            (Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (OrcaLoadReport -> Double
_OrcaLoadReport'rpsFractional OrcaLoadReport
x__)
                               (Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (OrcaLoadReport -> Double
_OrcaLoadReport'eps OrcaLoadReport
x__)
                                  (Map Text Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (OrcaLoadReport -> Map Text Double
_OrcaLoadReport'namedMetrics OrcaLoadReport
x__)
                                     (Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                        (OrcaLoadReport -> Double
_OrcaLoadReport'applicationUtilization OrcaLoadReport
x__) ())))))))))
{- | Fields :
     
         * 'Proto.OrcaLoadReport_Fields.key' @:: Lens' OrcaLoadReport'NamedMetricsEntry Data.Text.Text@
         * 'Proto.OrcaLoadReport_Fields.value' @:: Lens' OrcaLoadReport'NamedMetricsEntry Prelude.Double@ -}
data OrcaLoadReport'NamedMetricsEntry
  = OrcaLoadReport'NamedMetricsEntry'_constructor {OrcaLoadReport'NamedMetricsEntry -> Text
_OrcaLoadReport'NamedMetricsEntry'key :: !Data.Text.Text,
                                                   OrcaLoadReport'NamedMetricsEntry -> Double
_OrcaLoadReport'NamedMetricsEntry'value :: !Prelude.Double,
                                                   OrcaLoadReport'NamedMetricsEntry -> FieldSet
_OrcaLoadReport'NamedMetricsEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Bool
(OrcaLoadReport'NamedMetricsEntry
 -> OrcaLoadReport'NamedMetricsEntry -> Bool)
-> (OrcaLoadReport'NamedMetricsEntry
    -> OrcaLoadReport'NamedMetricsEntry -> Bool)
-> Eq OrcaLoadReport'NamedMetricsEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Bool
== :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Bool
$c/= :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Bool
/= :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Bool
Prelude.Eq, Eq OrcaLoadReport'NamedMetricsEntry
Eq OrcaLoadReport'NamedMetricsEntry =>
(OrcaLoadReport'NamedMetricsEntry
 -> OrcaLoadReport'NamedMetricsEntry -> Ordering)
-> (OrcaLoadReport'NamedMetricsEntry
    -> OrcaLoadReport'NamedMetricsEntry -> Bool)
-> (OrcaLoadReport'NamedMetricsEntry
    -> OrcaLoadReport'NamedMetricsEntry -> Bool)
-> (OrcaLoadReport'NamedMetricsEntry
    -> OrcaLoadReport'NamedMetricsEntry -> Bool)
-> (OrcaLoadReport'NamedMetricsEntry
    -> OrcaLoadReport'NamedMetricsEntry -> Bool)
-> (OrcaLoadReport'NamedMetricsEntry
    -> OrcaLoadReport'NamedMetricsEntry
    -> OrcaLoadReport'NamedMetricsEntry)
-> (OrcaLoadReport'NamedMetricsEntry
    -> OrcaLoadReport'NamedMetricsEntry
    -> OrcaLoadReport'NamedMetricsEntry)
-> Ord OrcaLoadReport'NamedMetricsEntry
OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Bool
OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Ordering
OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Ordering
compare :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Ordering
$c< :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Bool
< :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Bool
$c<= :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Bool
<= :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Bool
$c> :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Bool
> :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Bool
$c>= :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Bool
>= :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry -> Bool
$cmax :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry
max :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry
$cmin :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry
min :: OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry
-> OrcaLoadReport'NamedMetricsEntry
Prelude.Ord)
instance Prelude.Show OrcaLoadReport'NamedMetricsEntry where
  showsPrec :: Int -> OrcaLoadReport'NamedMetricsEntry -> ShowS
showsPrec Int
_ OrcaLoadReport'NamedMetricsEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (OrcaLoadReport'NamedMetricsEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort OrcaLoadReport'NamedMetricsEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField OrcaLoadReport'NamedMetricsEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> OrcaLoadReport'NamedMetricsEntry
-> f OrcaLoadReport'NamedMetricsEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text)
 -> OrcaLoadReport'NamedMetricsEntry
 -> f OrcaLoadReport'NamedMetricsEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> OrcaLoadReport'NamedMetricsEntry
-> f OrcaLoadReport'NamedMetricsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OrcaLoadReport'NamedMetricsEntry -> Text)
-> (OrcaLoadReport'NamedMetricsEntry
    -> Text -> OrcaLoadReport'NamedMetricsEntry)
-> Lens' OrcaLoadReport'NamedMetricsEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OrcaLoadReport'NamedMetricsEntry -> Text
_OrcaLoadReport'NamedMetricsEntry'key
           (\ OrcaLoadReport'NamedMetricsEntry
x__ Text
y__ -> OrcaLoadReport'NamedMetricsEntry
x__ {_OrcaLoadReport'NamedMetricsEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OrcaLoadReport'NamedMetricsEntry "value" Prelude.Double where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Double -> f Double)
-> OrcaLoadReport'NamedMetricsEntry
-> f OrcaLoadReport'NamedMetricsEntry
fieldOf Proxy# "value"
_
    = ((Double -> f Double)
 -> OrcaLoadReport'NamedMetricsEntry
 -> f OrcaLoadReport'NamedMetricsEntry)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> OrcaLoadReport'NamedMetricsEntry
-> f OrcaLoadReport'NamedMetricsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OrcaLoadReport'NamedMetricsEntry -> Double)
-> (OrcaLoadReport'NamedMetricsEntry
    -> Double -> OrcaLoadReport'NamedMetricsEntry)
-> Lens' OrcaLoadReport'NamedMetricsEntry Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OrcaLoadReport'NamedMetricsEntry -> Double
_OrcaLoadReport'NamedMetricsEntry'value
           (\ OrcaLoadReport'NamedMetricsEntry
x__ Double
y__ -> OrcaLoadReport'NamedMetricsEntry
x__ {_OrcaLoadReport'NamedMetricsEntry'value = y__}))
        (Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message OrcaLoadReport'NamedMetricsEntry where
  messageName :: Proxy OrcaLoadReport'NamedMetricsEntry -> Text
messageName Proxy OrcaLoadReport'NamedMetricsEntry
_
    = String -> Text
Data.Text.pack
        String
"xds.data.orca.v3.OrcaLoadReport.NamedMetricsEntry"
  packedMessageDescriptor :: Proxy OrcaLoadReport'NamedMetricsEntry -> ByteString
packedMessageDescriptor Proxy OrcaLoadReport'NamedMetricsEntry
_
    = ByteString
"\n\
      \\DC1NamedMetricsEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy OrcaLoadReport'NamedMetricsEntry -> ByteString
packedFileDescriptor Proxy OrcaLoadReport'NamedMetricsEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor OrcaLoadReport'NamedMetricsEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor OrcaLoadReport'NamedMetricsEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor OrcaLoadReport'NamedMetricsEntry Text
-> FieldDescriptor OrcaLoadReport'NamedMetricsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"key"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens' OrcaLoadReport'NamedMetricsEntry Text
-> FieldAccessor OrcaLoadReport'NamedMetricsEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
              Data.ProtoLens.FieldDescriptor OrcaLoadReport'NamedMetricsEntry
        value__field_descriptor :: FieldDescriptor OrcaLoadReport'NamedMetricsEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor OrcaLoadReport'NamedMetricsEntry Double
-> FieldDescriptor OrcaLoadReport'NamedMetricsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
              (WireDefault Double
-> Lens' OrcaLoadReport'NamedMetricsEntry Double
-> FieldAccessor OrcaLoadReport'NamedMetricsEntry Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor OrcaLoadReport'NamedMetricsEntry
      in
        [(Tag, FieldDescriptor OrcaLoadReport'NamedMetricsEntry)]
-> Map Tag (FieldDescriptor OrcaLoadReport'NamedMetricsEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor OrcaLoadReport'NamedMetricsEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor OrcaLoadReport'NamedMetricsEntry
value__field_descriptor)]
  unknownFields :: Lens' OrcaLoadReport'NamedMetricsEntry FieldSet
unknownFields
    = (OrcaLoadReport'NamedMetricsEntry -> FieldSet)
-> (OrcaLoadReport'NamedMetricsEntry
    -> FieldSet -> OrcaLoadReport'NamedMetricsEntry)
-> Lens' OrcaLoadReport'NamedMetricsEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        OrcaLoadReport'NamedMetricsEntry -> FieldSet
_OrcaLoadReport'NamedMetricsEntry'_unknownFields
        (\ OrcaLoadReport'NamedMetricsEntry
x__ FieldSet
y__
           -> OrcaLoadReport'NamedMetricsEntry
x__ {_OrcaLoadReport'NamedMetricsEntry'_unknownFields = y__})
  defMessage :: OrcaLoadReport'NamedMetricsEntry
defMessage
    = OrcaLoadReport'NamedMetricsEntry'_constructor
        {_OrcaLoadReport'NamedMetricsEntry'key :: Text
_OrcaLoadReport'NamedMetricsEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _OrcaLoadReport'NamedMetricsEntry'value :: Double
_OrcaLoadReport'NamedMetricsEntry'value = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _OrcaLoadReport'NamedMetricsEntry'_unknownFields :: FieldSet
_OrcaLoadReport'NamedMetricsEntry'_unknownFields = []}
  parseMessage :: Parser OrcaLoadReport'NamedMetricsEntry
parseMessage
    = let
        loop ::
          OrcaLoadReport'NamedMetricsEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser OrcaLoadReport'NamedMetricsEntry
        loop :: OrcaLoadReport'NamedMetricsEntry
-> Parser OrcaLoadReport'NamedMetricsEntry
loop OrcaLoadReport'NamedMetricsEntry
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"key"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
                        Word64
17
                          -> do y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       String
"value"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser OrcaLoadReport'NamedMetricsEntry
-> String -> Parser OrcaLoadReport'NamedMetricsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do OrcaLoadReport'NamedMetricsEntry
-> Parser OrcaLoadReport'NamedMetricsEntry
loop OrcaLoadReport'NamedMetricsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"NamedMetricsEntry"
  buildMessage :: OrcaLoadReport'NamedMetricsEntry -> Builder
buildMessage
    = \ OrcaLoadReport'NamedMetricsEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  OrcaLoadReport'NamedMetricsEntry
  OrcaLoadReport'NamedMetricsEntry
  Text
  Text
-> OrcaLoadReport'NamedMetricsEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") OrcaLoadReport'NamedMetricsEntry
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Double
_v = FoldLike
  Double
  OrcaLoadReport'NamedMetricsEntry
  OrcaLoadReport'NamedMetricsEntry
  Double
  Double
-> OrcaLoadReport'NamedMetricsEntry -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") OrcaLoadReport'NamedMetricsEntry
_x
                 in
                   if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
17)
                         ((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
                            Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  OrcaLoadReport'NamedMetricsEntry
  OrcaLoadReport'NamedMetricsEntry
  FieldSet
  FieldSet
-> OrcaLoadReport'NamedMetricsEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  OrcaLoadReport'NamedMetricsEntry
  OrcaLoadReport'NamedMetricsEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' OrcaLoadReport'NamedMetricsEntry FieldSet
Data.ProtoLens.unknownFields OrcaLoadReport'NamedMetricsEntry
_x)))
instance Control.DeepSeq.NFData OrcaLoadReport'NamedMetricsEntry where
  rnf :: OrcaLoadReport'NamedMetricsEntry -> ()
rnf
    = \ OrcaLoadReport'NamedMetricsEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (OrcaLoadReport'NamedMetricsEntry -> FieldSet
_OrcaLoadReport'NamedMetricsEntry'_unknownFields OrcaLoadReport'NamedMetricsEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (OrcaLoadReport'NamedMetricsEntry -> Text
_OrcaLoadReport'NamedMetricsEntry'key OrcaLoadReport'NamedMetricsEntry
x__)
                (Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (OrcaLoadReport'NamedMetricsEntry -> Double
_OrcaLoadReport'NamedMetricsEntry'value OrcaLoadReport'NamedMetricsEntry
x__) ()))
{- | Fields :
     
         * 'Proto.OrcaLoadReport_Fields.key' @:: Lens' OrcaLoadReport'RequestCostEntry Data.Text.Text@
         * 'Proto.OrcaLoadReport_Fields.value' @:: Lens' OrcaLoadReport'RequestCostEntry Prelude.Double@ -}
data OrcaLoadReport'RequestCostEntry
  = OrcaLoadReport'RequestCostEntry'_constructor {OrcaLoadReport'RequestCostEntry -> Text
_OrcaLoadReport'RequestCostEntry'key :: !Data.Text.Text,
                                                  OrcaLoadReport'RequestCostEntry -> Double
_OrcaLoadReport'RequestCostEntry'value :: !Prelude.Double,
                                                  OrcaLoadReport'RequestCostEntry -> FieldSet
_OrcaLoadReport'RequestCostEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Bool
(OrcaLoadReport'RequestCostEntry
 -> OrcaLoadReport'RequestCostEntry -> Bool)
-> (OrcaLoadReport'RequestCostEntry
    -> OrcaLoadReport'RequestCostEntry -> Bool)
-> Eq OrcaLoadReport'RequestCostEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Bool
== :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Bool
$c/= :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Bool
/= :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Bool
Prelude.Eq, Eq OrcaLoadReport'RequestCostEntry
Eq OrcaLoadReport'RequestCostEntry =>
(OrcaLoadReport'RequestCostEntry
 -> OrcaLoadReport'RequestCostEntry -> Ordering)
-> (OrcaLoadReport'RequestCostEntry
    -> OrcaLoadReport'RequestCostEntry -> Bool)
-> (OrcaLoadReport'RequestCostEntry
    -> OrcaLoadReport'RequestCostEntry -> Bool)
-> (OrcaLoadReport'RequestCostEntry
    -> OrcaLoadReport'RequestCostEntry -> Bool)
-> (OrcaLoadReport'RequestCostEntry
    -> OrcaLoadReport'RequestCostEntry -> Bool)
-> (OrcaLoadReport'RequestCostEntry
    -> OrcaLoadReport'RequestCostEntry
    -> OrcaLoadReport'RequestCostEntry)
-> (OrcaLoadReport'RequestCostEntry
    -> OrcaLoadReport'RequestCostEntry
    -> OrcaLoadReport'RequestCostEntry)
-> Ord OrcaLoadReport'RequestCostEntry
OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Bool
OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Ordering
OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Ordering
compare :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Ordering
$c< :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Bool
< :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Bool
$c<= :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Bool
<= :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Bool
$c> :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Bool
> :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Bool
$c>= :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Bool
>= :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry -> Bool
$cmax :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry
max :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry
$cmin :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry
min :: OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry
-> OrcaLoadReport'RequestCostEntry
Prelude.Ord)
instance Prelude.Show OrcaLoadReport'RequestCostEntry where
  showsPrec :: Int -> OrcaLoadReport'RequestCostEntry -> ShowS
showsPrec Int
_ OrcaLoadReport'RequestCostEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (OrcaLoadReport'RequestCostEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort OrcaLoadReport'RequestCostEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField OrcaLoadReport'RequestCostEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> OrcaLoadReport'RequestCostEntry
-> f OrcaLoadReport'RequestCostEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text)
 -> OrcaLoadReport'RequestCostEntry
 -> f OrcaLoadReport'RequestCostEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> OrcaLoadReport'RequestCostEntry
-> f OrcaLoadReport'RequestCostEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OrcaLoadReport'RequestCostEntry -> Text)
-> (OrcaLoadReport'RequestCostEntry
    -> Text -> OrcaLoadReport'RequestCostEntry)
-> Lens' OrcaLoadReport'RequestCostEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OrcaLoadReport'RequestCostEntry -> Text
_OrcaLoadReport'RequestCostEntry'key
           (\ OrcaLoadReport'RequestCostEntry
x__ Text
y__ -> OrcaLoadReport'RequestCostEntry
x__ {_OrcaLoadReport'RequestCostEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OrcaLoadReport'RequestCostEntry "value" Prelude.Double where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Double -> f Double)
-> OrcaLoadReport'RequestCostEntry
-> f OrcaLoadReport'RequestCostEntry
fieldOf Proxy# "value"
_
    = ((Double -> f Double)
 -> OrcaLoadReport'RequestCostEntry
 -> f OrcaLoadReport'RequestCostEntry)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> OrcaLoadReport'RequestCostEntry
-> f OrcaLoadReport'RequestCostEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OrcaLoadReport'RequestCostEntry -> Double)
-> (OrcaLoadReport'RequestCostEntry
    -> Double -> OrcaLoadReport'RequestCostEntry)
-> Lens' OrcaLoadReport'RequestCostEntry Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OrcaLoadReport'RequestCostEntry -> Double
_OrcaLoadReport'RequestCostEntry'value
           (\ OrcaLoadReport'RequestCostEntry
x__ Double
y__ -> OrcaLoadReport'RequestCostEntry
x__ {_OrcaLoadReport'RequestCostEntry'value = y__}))
        (Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message OrcaLoadReport'RequestCostEntry where
  messageName :: Proxy OrcaLoadReport'RequestCostEntry -> Text
messageName Proxy OrcaLoadReport'RequestCostEntry
_
    = String -> Text
Data.Text.pack String
"xds.data.orca.v3.OrcaLoadReport.RequestCostEntry"
  packedMessageDescriptor :: Proxy OrcaLoadReport'RequestCostEntry -> ByteString
packedMessageDescriptor Proxy OrcaLoadReport'RequestCostEntry
_
    = ByteString
"\n\
      \\DLERequestCostEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy OrcaLoadReport'RequestCostEntry -> ByteString
packedFileDescriptor Proxy OrcaLoadReport'RequestCostEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor OrcaLoadReport'RequestCostEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor OrcaLoadReport'RequestCostEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor OrcaLoadReport'RequestCostEntry Text
-> FieldDescriptor OrcaLoadReport'RequestCostEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"key"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens' OrcaLoadReport'RequestCostEntry Text
-> FieldAccessor OrcaLoadReport'RequestCostEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
              Data.ProtoLens.FieldDescriptor OrcaLoadReport'RequestCostEntry
        value__field_descriptor :: FieldDescriptor OrcaLoadReport'RequestCostEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor OrcaLoadReport'RequestCostEntry Double
-> FieldDescriptor OrcaLoadReport'RequestCostEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
              (WireDefault Double
-> Lens' OrcaLoadReport'RequestCostEntry Double
-> FieldAccessor OrcaLoadReport'RequestCostEntry Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor OrcaLoadReport'RequestCostEntry
      in
        [(Tag, FieldDescriptor OrcaLoadReport'RequestCostEntry)]
-> Map Tag (FieldDescriptor OrcaLoadReport'RequestCostEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor OrcaLoadReport'RequestCostEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor OrcaLoadReport'RequestCostEntry
value__field_descriptor)]
  unknownFields :: Lens' OrcaLoadReport'RequestCostEntry FieldSet
unknownFields
    = (OrcaLoadReport'RequestCostEntry -> FieldSet)
-> (OrcaLoadReport'RequestCostEntry
    -> FieldSet -> OrcaLoadReport'RequestCostEntry)
-> Lens' OrcaLoadReport'RequestCostEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        OrcaLoadReport'RequestCostEntry -> FieldSet
_OrcaLoadReport'RequestCostEntry'_unknownFields
        (\ OrcaLoadReport'RequestCostEntry
x__ FieldSet
y__
           -> OrcaLoadReport'RequestCostEntry
x__ {_OrcaLoadReport'RequestCostEntry'_unknownFields = y__})
  defMessage :: OrcaLoadReport'RequestCostEntry
defMessage
    = OrcaLoadReport'RequestCostEntry'_constructor
        {_OrcaLoadReport'RequestCostEntry'key :: Text
_OrcaLoadReport'RequestCostEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _OrcaLoadReport'RequestCostEntry'value :: Double
_OrcaLoadReport'RequestCostEntry'value = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _OrcaLoadReport'RequestCostEntry'_unknownFields :: FieldSet
_OrcaLoadReport'RequestCostEntry'_unknownFields = []}
  parseMessage :: Parser OrcaLoadReport'RequestCostEntry
parseMessage
    = let
        loop ::
          OrcaLoadReport'RequestCostEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser OrcaLoadReport'RequestCostEntry
        loop :: OrcaLoadReport'RequestCostEntry
-> Parser OrcaLoadReport'RequestCostEntry
loop OrcaLoadReport'RequestCostEntry
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"key"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
                        Word64
17
                          -> do y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       String
"value"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser OrcaLoadReport'RequestCostEntry
-> String -> Parser OrcaLoadReport'RequestCostEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do OrcaLoadReport'RequestCostEntry
-> Parser OrcaLoadReport'RequestCostEntry
loop OrcaLoadReport'RequestCostEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"RequestCostEntry"
  buildMessage :: OrcaLoadReport'RequestCostEntry -> Builder
buildMessage
    = \ OrcaLoadReport'RequestCostEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  OrcaLoadReport'RequestCostEntry
  OrcaLoadReport'RequestCostEntry
  Text
  Text
-> OrcaLoadReport'RequestCostEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") OrcaLoadReport'RequestCostEntry
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Double
_v = FoldLike
  Double
  OrcaLoadReport'RequestCostEntry
  OrcaLoadReport'RequestCostEntry
  Double
  Double
-> OrcaLoadReport'RequestCostEntry -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") OrcaLoadReport'RequestCostEntry
_x
                 in
                   if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
17)
                         ((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
                            Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  OrcaLoadReport'RequestCostEntry
  OrcaLoadReport'RequestCostEntry
  FieldSet
  FieldSet
-> OrcaLoadReport'RequestCostEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  OrcaLoadReport'RequestCostEntry
  OrcaLoadReport'RequestCostEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' OrcaLoadReport'RequestCostEntry FieldSet
Data.ProtoLens.unknownFields OrcaLoadReport'RequestCostEntry
_x)))
instance Control.DeepSeq.NFData OrcaLoadReport'RequestCostEntry where
  rnf :: OrcaLoadReport'RequestCostEntry -> ()
rnf
    = \ OrcaLoadReport'RequestCostEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (OrcaLoadReport'RequestCostEntry -> FieldSet
_OrcaLoadReport'RequestCostEntry'_unknownFields OrcaLoadReport'RequestCostEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (OrcaLoadReport'RequestCostEntry -> Text
_OrcaLoadReport'RequestCostEntry'key OrcaLoadReport'RequestCostEntry
x__)
                (Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (OrcaLoadReport'RequestCostEntry -> Double
_OrcaLoadReport'RequestCostEntry'value OrcaLoadReport'RequestCostEntry
x__) ()))
{- | Fields :
     
         * 'Proto.OrcaLoadReport_Fields.key' @:: Lens' OrcaLoadReport'UtilizationEntry Data.Text.Text@
         * 'Proto.OrcaLoadReport_Fields.value' @:: Lens' OrcaLoadReport'UtilizationEntry Prelude.Double@ -}
data OrcaLoadReport'UtilizationEntry
  = OrcaLoadReport'UtilizationEntry'_constructor {OrcaLoadReport'UtilizationEntry -> Text
_OrcaLoadReport'UtilizationEntry'key :: !Data.Text.Text,
                                                  OrcaLoadReport'UtilizationEntry -> Double
_OrcaLoadReport'UtilizationEntry'value :: !Prelude.Double,
                                                  OrcaLoadReport'UtilizationEntry -> FieldSet
_OrcaLoadReport'UtilizationEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Bool
(OrcaLoadReport'UtilizationEntry
 -> OrcaLoadReport'UtilizationEntry -> Bool)
-> (OrcaLoadReport'UtilizationEntry
    -> OrcaLoadReport'UtilizationEntry -> Bool)
-> Eq OrcaLoadReport'UtilizationEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Bool
== :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Bool
$c/= :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Bool
/= :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Bool
Prelude.Eq, Eq OrcaLoadReport'UtilizationEntry
Eq OrcaLoadReport'UtilizationEntry =>
(OrcaLoadReport'UtilizationEntry
 -> OrcaLoadReport'UtilizationEntry -> Ordering)
-> (OrcaLoadReport'UtilizationEntry
    -> OrcaLoadReport'UtilizationEntry -> Bool)
-> (OrcaLoadReport'UtilizationEntry
    -> OrcaLoadReport'UtilizationEntry -> Bool)
-> (OrcaLoadReport'UtilizationEntry
    -> OrcaLoadReport'UtilizationEntry -> Bool)
-> (OrcaLoadReport'UtilizationEntry
    -> OrcaLoadReport'UtilizationEntry -> Bool)
-> (OrcaLoadReport'UtilizationEntry
    -> OrcaLoadReport'UtilizationEntry
    -> OrcaLoadReport'UtilizationEntry)
-> (OrcaLoadReport'UtilizationEntry
    -> OrcaLoadReport'UtilizationEntry
    -> OrcaLoadReport'UtilizationEntry)
-> Ord OrcaLoadReport'UtilizationEntry
OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Bool
OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Ordering
OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
$ccompare :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Ordering
compare :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Ordering
$c< :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Bool
< :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Bool
$c<= :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Bool
<= :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Bool
$c> :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Bool
> :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Bool
$c>= :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Bool
>= :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry -> Bool
$cmax :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry
max :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry
$cmin :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry
min :: OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry
-> OrcaLoadReport'UtilizationEntry
Prelude.Ord)
instance Prelude.Show OrcaLoadReport'UtilizationEntry where
  showsPrec :: Int -> OrcaLoadReport'UtilizationEntry -> ShowS
showsPrec Int
_ OrcaLoadReport'UtilizationEntry
__x String
__s
    = Char -> ShowS
Prelude.showChar
        Char
'{'
        (String -> ShowS
Prelude.showString
           (OrcaLoadReport'UtilizationEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort OrcaLoadReport'UtilizationEntry
__x) (Char -> ShowS
Prelude.showChar Char
'}' String
__s))
instance Data.ProtoLens.Field.HasField OrcaLoadReport'UtilizationEntry "key" Data.Text.Text where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "key"
-> (Text -> f Text)
-> OrcaLoadReport'UtilizationEntry
-> f OrcaLoadReport'UtilizationEntry
fieldOf Proxy# "key"
_
    = ((Text -> f Text)
 -> OrcaLoadReport'UtilizationEntry
 -> f OrcaLoadReport'UtilizationEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> OrcaLoadReport'UtilizationEntry
-> f OrcaLoadReport'UtilizationEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OrcaLoadReport'UtilizationEntry -> Text)
-> (OrcaLoadReport'UtilizationEntry
    -> Text -> OrcaLoadReport'UtilizationEntry)
-> Lens' OrcaLoadReport'UtilizationEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OrcaLoadReport'UtilizationEntry -> Text
_OrcaLoadReport'UtilizationEntry'key
           (\ OrcaLoadReport'UtilizationEntry
x__ Text
y__ -> OrcaLoadReport'UtilizationEntry
x__ {_OrcaLoadReport'UtilizationEntry'key = y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField OrcaLoadReport'UtilizationEntry "value" Prelude.Double where
  fieldOf :: forall (f :: * -> *).
Functor f =>
Proxy# "value"
-> (Double -> f Double)
-> OrcaLoadReport'UtilizationEntry
-> f OrcaLoadReport'UtilizationEntry
fieldOf Proxy# "value"
_
    = ((Double -> f Double)
 -> OrcaLoadReport'UtilizationEntry
 -> f OrcaLoadReport'UtilizationEntry)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> OrcaLoadReport'UtilizationEntry
-> f OrcaLoadReport'UtilizationEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((OrcaLoadReport'UtilizationEntry -> Double)
-> (OrcaLoadReport'UtilizationEntry
    -> Double -> OrcaLoadReport'UtilizationEntry)
-> Lens' OrcaLoadReport'UtilizationEntry Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           OrcaLoadReport'UtilizationEntry -> Double
_OrcaLoadReport'UtilizationEntry'value
           (\ OrcaLoadReport'UtilizationEntry
x__ Double
y__ -> OrcaLoadReport'UtilizationEntry
x__ {_OrcaLoadReport'UtilizationEntry'value = y__}))
        (Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message OrcaLoadReport'UtilizationEntry where
  messageName :: Proxy OrcaLoadReport'UtilizationEntry -> Text
messageName Proxy OrcaLoadReport'UtilizationEntry
_
    = String -> Text
Data.Text.pack String
"xds.data.orca.v3.OrcaLoadReport.UtilizationEntry"
  packedMessageDescriptor :: Proxy OrcaLoadReport'UtilizationEntry -> ByteString
packedMessageDescriptor Proxy OrcaLoadReport'UtilizationEntry
_
    = ByteString
"\n\
      \\DLEUtilizationEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy OrcaLoadReport'UtilizationEntry -> ByteString
packedFileDescriptor Proxy OrcaLoadReport'UtilizationEntry
_ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor OrcaLoadReport'UtilizationEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor OrcaLoadReport'UtilizationEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor OrcaLoadReport'UtilizationEntry Text
-> FieldDescriptor OrcaLoadReport'UtilizationEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"key"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens' OrcaLoadReport'UtilizationEntry Text
-> FieldAccessor OrcaLoadReport'UtilizationEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
              Data.ProtoLens.FieldDescriptor OrcaLoadReport'UtilizationEntry
        value__field_descriptor :: FieldDescriptor OrcaLoadReport'UtilizationEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor OrcaLoadReport'UtilizationEntry Double
-> FieldDescriptor OrcaLoadReport'UtilizationEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              String
"value"
              (ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
              (WireDefault Double
-> Lens' OrcaLoadReport'UtilizationEntry Double
-> FieldAccessor OrcaLoadReport'UtilizationEntry Double
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Double
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor OrcaLoadReport'UtilizationEntry
      in
        [(Tag, FieldDescriptor OrcaLoadReport'UtilizationEntry)]
-> Map Tag (FieldDescriptor OrcaLoadReport'UtilizationEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag Int
1, FieldDescriptor OrcaLoadReport'UtilizationEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag Int
2, FieldDescriptor OrcaLoadReport'UtilizationEntry
value__field_descriptor)]
  unknownFields :: Lens' OrcaLoadReport'UtilizationEntry FieldSet
unknownFields
    = (OrcaLoadReport'UtilizationEntry -> FieldSet)
-> (OrcaLoadReport'UtilizationEntry
    -> FieldSet -> OrcaLoadReport'UtilizationEntry)
-> Lens' OrcaLoadReport'UtilizationEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        OrcaLoadReport'UtilizationEntry -> FieldSet
_OrcaLoadReport'UtilizationEntry'_unknownFields
        (\ OrcaLoadReport'UtilizationEntry
x__ FieldSet
y__
           -> OrcaLoadReport'UtilizationEntry
x__ {_OrcaLoadReport'UtilizationEntry'_unknownFields = y__})
  defMessage :: OrcaLoadReport'UtilizationEntry
defMessage
    = OrcaLoadReport'UtilizationEntry'_constructor
        {_OrcaLoadReport'UtilizationEntry'key :: Text
_OrcaLoadReport'UtilizationEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _OrcaLoadReport'UtilizationEntry'value :: Double
_OrcaLoadReport'UtilizationEntry'value = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _OrcaLoadReport'UtilizationEntry'_unknownFields :: FieldSet
_OrcaLoadReport'UtilizationEntry'_unknownFields = []}
  parseMessage :: Parser OrcaLoadReport'UtilizationEntry
parseMessage
    = let
        loop ::
          OrcaLoadReport'UtilizationEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser OrcaLoadReport'UtilizationEntry
        loop :: OrcaLoadReport'UtilizationEntry
-> Parser OrcaLoadReport'UtilizationEntry
loop OrcaLoadReport'UtilizationEntry
x
          = do end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if end then
                   do (let missing = []
                       in
                         if Prelude.null missing then
                             Prelude.return ()
                         else
                             Prelude.fail
                               ((Prelude.++)
                                  "Missing required fields: "
                                  (Prelude.show (missing :: [Prelude.String]))))
                      Prelude.return
                        (Lens.Family2.over
                           Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) x)
               else
                   do tag <- Data.ProtoLens.Encoding.Bytes.getVarInt
                      case tag of
                        Word64
10
                          -> do y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Data.ProtoLens.Encoding.Bytes.getText
                                             (Prelude.fromIntegral len))
                                       String
"key"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"key") y x)
                        Word64
17
                          -> do y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall a b. (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       String
"value"
                                loop (Lens.Family2.set (Data.ProtoLens.Field.field @"value") y x)
                        Word64
wire
                          -> do !y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                loop
                                  (Lens.Family2.over
                                     Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) x)
      in
        Parser OrcaLoadReport'UtilizationEntry
-> String -> Parser OrcaLoadReport'UtilizationEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do OrcaLoadReport'UtilizationEntry
-> Parser OrcaLoadReport'UtilizationEntry
loop OrcaLoadReport'UtilizationEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) String
"UtilizationEntry"
  buildMessage :: OrcaLoadReport'UtilizationEntry -> Builder
buildMessage
    = \ OrcaLoadReport'UtilizationEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  OrcaLoadReport'UtilizationEntry
  OrcaLoadReport'UtilizationEntry
  Text
  Text
-> OrcaLoadReport'UtilizationEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") OrcaLoadReport'UtilizationEntry
_x
              in
                if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8 Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Double
_v = FoldLike
  Double
  OrcaLoadReport'UtilizationEntry
  OrcaLoadReport'UtilizationEntry
  Double
  Double
-> OrcaLoadReport'UtilizationEntry -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") OrcaLoadReport'UtilizationEntry
_x
                 in
                   if Double -> Double -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Double
_v Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
17)
                         ((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
                            Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord Double
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  OrcaLoadReport'UtilizationEntry
  OrcaLoadReport'UtilizationEntry
  FieldSet
  FieldSet
-> OrcaLoadReport'UtilizationEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  OrcaLoadReport'UtilizationEntry
  OrcaLoadReport'UtilizationEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Lens' OrcaLoadReport'UtilizationEntry FieldSet
Data.ProtoLens.unknownFields OrcaLoadReport'UtilizationEntry
_x)))
instance Control.DeepSeq.NFData OrcaLoadReport'UtilizationEntry where
  rnf :: OrcaLoadReport'UtilizationEntry -> ()
rnf
    = \ OrcaLoadReport'UtilizationEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (OrcaLoadReport'UtilizationEntry -> FieldSet
_OrcaLoadReport'UtilizationEntry'_unknownFields OrcaLoadReport'UtilizationEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (OrcaLoadReport'UtilizationEntry -> Text
_OrcaLoadReport'UtilizationEntry'key OrcaLoadReport'UtilizationEntry
x__)
                (Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (OrcaLoadReport'UtilizationEntry -> Double
_OrcaLoadReport'UtilizationEntry'value OrcaLoadReport'UtilizationEntry
x__) ()))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = ByteString
"\n\
    \\SYNorca_load_report.proto\DC2\DLExds.data.orca.v3\"\175\ENQ\n\
    \\SOOrcaLoadReport\DC2'\n\
    \\SIcpu_utilization\CAN\SOH \SOH(\SOHR\SOcpuUtilization\DC2'\n\
    \\SImem_utilization\CAN\STX \SOH(\SOHR\SOmemUtilization\DC2\DC4\n\
    \\ETXrps\CAN\ETX \SOH(\EOTR\ETXrpsB\STX\CAN\SOH\DC2T\n\
    \\frequest_cost\CAN\EOT \ETX(\v21.xds.data.orca.v3.OrcaLoadReport.RequestCostEntryR\vrequestCost\DC2S\n\
    \\vutilization\CAN\ENQ \ETX(\v21.xds.data.orca.v3.OrcaLoadReport.UtilizationEntryR\vutilization\DC2%\n\
    \\SOrps_fractional\CAN\ACK \SOH(\SOHR\rrpsFractional\DC2\DLE\n\
    \\ETXeps\CAN\a \SOH(\SOHR\ETXeps\DC2W\n\
    \\rnamed_metrics\CAN\b \ETX(\v22.xds.data.orca.v3.OrcaLoadReport.NamedMetricsEntryR\fnamedMetrics\DC27\n\
    \\ETBapplication_utilization\CAN\t \SOH(\SOHR\SYNapplicationUtilization\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\SUB?\n\
    \\DC1NamedMetricsEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
    \\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue:\STX8\SOHJ\156\DC1\n\
    \\ACK\DC2\EOT\NUL\NUL1\SOH\n\
    \\b\n\
    \\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\STX\NUL\EM\n\
    \\134\SOH\n\
    \\STX\EOT\NUL\DC2\EOT\a\NUL1\SOH2z See section `ORCA load report format` of the design document in\n\
    \ :ref:`https://github.com/envoyproxy/envoy/issues/6614`.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\a\b\SYN\n\
    \\250\SOH\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\f\STX\GS\SUB\236\SOH CPU utilization expressed as a fraction of available CPU resources. This\n\
    \ should be derived from the latest sample or measurement. The value may be\n\
    \ larger than 1.0 when the usage exceeds the reporter dependent notion of\n\
    \ soft limits.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\f\STX\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\f\t\CAN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\f\ESC\FS\n\
    \\152\SOH\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX\DLE\STX\GS\SUB\138\SOH Memory utilization expressed as a fraction of available memory\n\
    \ resources. This should be derived from the latest sample or measurement.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\DLE\STX\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\DLE\t\CAN\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\DLE\ESC\FS\n\
    \\176\SOH\n\
    \\EOT\EOT\NUL\STX\STX\DC2\ETX\NAK\STX%\SUB\162\SOH Total RPS being served by an endpoint. This should cover all services that an endpoint is\n\
    \ responsible for.\n\
    \ Deprecated -- use ``rps_fractional`` field instead.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\NAK\STX\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\NAK\t\f\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\NAK\SI\DLE\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\STX\b\DC2\ETX\NAK\DC1$\n\
    \\r\n\
    \\ACK\EOT\NUL\STX\STX\b\ETX\DC2\ETX\NAK\DC2#\n\
    \\142\SOH\n\
    \\EOT\EOT\NUL\STX\ETX\DC2\ETX\EM\STX'\SUB\128\SOH Application specific requests costs. Each value is an absolute cost (e.g. 3487 bytes of\n\
    \ storage) associated with the request.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ACK\DC2\ETX\EM\STX\NAK\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX\EM\SYN\"\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX\EM%&\n\
    \\160\SOH\n\
    \\EOT\EOT\NUL\STX\EOT\DC2\ETX\GS\STX&\SUB\146\SOH Resource utilization values. Each value is expressed as a fraction of total resources\n\
    \ available, derived from the latest sample or measurement.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ACK\DC2\ETX\GS\STX\NAK\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX\GS\SYN!\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX\GS$%\n\
    \z\n\
    \\EOT\EOT\NUL\STX\ENQ\DC2\ETX!\STX\FS\SUBm Total RPS being served by an endpoint. This should cover all services that an endpoint is\n\
    \ responsible for.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\ENQ\DC2\ETX!\STX\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\SOH\DC2\ETX!\t\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ENQ\ETX\DC2\ETX!\SUB\ESC\n\
    \\138\SOH\n\
    \\EOT\EOT\NUL\STX\ACK\DC2\ETX%\STX\DC1\SUB} Total EPS (errors/second) being served by an endpoint. This should cover\n\
    \ all services that an endpoint is responsible for.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ACK\ENQ\DC2\ETX%\STX\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ACK\SOH\DC2\ETX%\t\f\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\ACK\ETX\DC2\ETX%\SI\DLE\n\
    \3\n\
    \\EOT\EOT\NUL\STX\a\DC2\ETX(\STX(\SUB& Application specific opaque metrics.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\a\ACK\DC2\ETX(\STX\NAK\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\a\SOH\DC2\ETX(\SYN#\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\a\ETX\DC2\ETX(&'\n\
    \\148\ETX\n\
    \\EOT\EOT\NUL\STX\b\DC2\ETX0\STX%\SUB\134\ETX Application specific utilization expressed as a fraction of available\n\
    \ resources. For example, an application may report the max of CPU and memory\n\
    \ utilization for better load balancing if it is both CPU and memory bound.\n\
    \ This should be derived from the latest sample or measurement.\n\
    \ The value may be larger than 1.0 when the usage exceeds the reporter\n\
    \ dependent notion of soft limits.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\b\ENQ\DC2\ETX0\STX\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\b\SOH\DC2\ETX0\t \n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\b\ETX\DC2\ETX0#$b\ACKproto3"