{- This file was auto-generated from tensorflow/core/util/test_log.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.Tensorflow.Core.Util.TestLog (
        AvailableDeviceInfo(), BenchmarkEntries(), BenchmarkEntry(),
        BenchmarkEntry'ExtrasEntry(), BuildConfiguration(), CPUInfo(),
        CPUInfo'CacheSizeEntry(), CommitId(), CommitId'Kind(..),
        _CommitId'Changelist, _CommitId'Hash, EntryValue(),
        EntryValue'Kind(..), _EntryValue'DoubleValue,
        _EntryValue'StringValue, GPUInfo(), MachineConfiguration(),
        MemoryInfo(), MetricEntry(), PlatformInfo(), RunConfiguration(),
        RunConfiguration'EnvVarsEntry(), TestResults(),
        TestResults'BenchmarkType(..), TestResults'BenchmarkType(),
        TestResults'BenchmarkType'UnrecognizedValue
    ) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Google.Protobuf.Any
import qualified Proto.Google.Protobuf.Wrappers
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.name' @:: Lens' AvailableDeviceInfo Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.type'' @:: Lens' AvailableDeviceInfo Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.memoryLimit' @:: Lens' AvailableDeviceInfo Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.physicalDescription' @:: Lens' AvailableDeviceInfo Data.Text.Text@ -}
data AvailableDeviceInfo
  = AvailableDeviceInfo'_constructor {AvailableDeviceInfo -> Text
_AvailableDeviceInfo'name :: !Data.Text.Text,
                                      AvailableDeviceInfo -> Text
_AvailableDeviceInfo'type' :: !Data.Text.Text,
                                      AvailableDeviceInfo -> Int64
_AvailableDeviceInfo'memoryLimit :: !Data.Int.Int64,
                                      AvailableDeviceInfo -> Text
_AvailableDeviceInfo'physicalDescription :: !Data.Text.Text,
                                      AvailableDeviceInfo -> FieldSet
_AvailableDeviceInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (AvailableDeviceInfo -> AvailableDeviceInfo -> Bool
(AvailableDeviceInfo -> AvailableDeviceInfo -> Bool)
-> (AvailableDeviceInfo -> AvailableDeviceInfo -> Bool)
-> Eq AvailableDeviceInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AvailableDeviceInfo -> AvailableDeviceInfo -> Bool
$c/= :: AvailableDeviceInfo -> AvailableDeviceInfo -> Bool
== :: AvailableDeviceInfo -> AvailableDeviceInfo -> Bool
$c== :: AvailableDeviceInfo -> AvailableDeviceInfo -> Bool
Prelude.Eq, Eq AvailableDeviceInfo
Eq AvailableDeviceInfo =>
(AvailableDeviceInfo -> AvailableDeviceInfo -> Ordering)
-> (AvailableDeviceInfo -> AvailableDeviceInfo -> Bool)
-> (AvailableDeviceInfo -> AvailableDeviceInfo -> Bool)
-> (AvailableDeviceInfo -> AvailableDeviceInfo -> Bool)
-> (AvailableDeviceInfo -> AvailableDeviceInfo -> Bool)
-> (AvailableDeviceInfo
    -> AvailableDeviceInfo -> AvailableDeviceInfo)
-> (AvailableDeviceInfo
    -> AvailableDeviceInfo -> AvailableDeviceInfo)
-> Ord AvailableDeviceInfo
AvailableDeviceInfo -> AvailableDeviceInfo -> Bool
AvailableDeviceInfo -> AvailableDeviceInfo -> Ordering
AvailableDeviceInfo -> AvailableDeviceInfo -> AvailableDeviceInfo
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: AvailableDeviceInfo -> AvailableDeviceInfo -> AvailableDeviceInfo
$cmin :: AvailableDeviceInfo -> AvailableDeviceInfo -> AvailableDeviceInfo
max :: AvailableDeviceInfo -> AvailableDeviceInfo -> AvailableDeviceInfo
$cmax :: AvailableDeviceInfo -> AvailableDeviceInfo -> AvailableDeviceInfo
>= :: AvailableDeviceInfo -> AvailableDeviceInfo -> Bool
$c>= :: AvailableDeviceInfo -> AvailableDeviceInfo -> Bool
> :: AvailableDeviceInfo -> AvailableDeviceInfo -> Bool
$c> :: AvailableDeviceInfo -> AvailableDeviceInfo -> Bool
<= :: AvailableDeviceInfo -> AvailableDeviceInfo -> Bool
$c<= :: AvailableDeviceInfo -> AvailableDeviceInfo -> Bool
< :: AvailableDeviceInfo -> AvailableDeviceInfo -> Bool
$c< :: AvailableDeviceInfo -> AvailableDeviceInfo -> Bool
compare :: AvailableDeviceInfo -> AvailableDeviceInfo -> Ordering
$ccompare :: AvailableDeviceInfo -> AvailableDeviceInfo -> Ordering
$cp1Ord :: Eq AvailableDeviceInfo
Prelude.Ord)
instance Prelude.Show AvailableDeviceInfo where
  showsPrec :: Int -> AvailableDeviceInfo -> ShowS
showsPrec _ __x :: AvailableDeviceInfo
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (AvailableDeviceInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AvailableDeviceInfo
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField AvailableDeviceInfo "name" Data.Text.Text where
  fieldOf :: Proxy# "name"
-> (Text -> f Text) -> AvailableDeviceInfo -> f AvailableDeviceInfo
fieldOf _
    = ((Text -> f Text) -> AvailableDeviceInfo -> f AvailableDeviceInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AvailableDeviceInfo
-> f AvailableDeviceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AvailableDeviceInfo -> Text)
-> (AvailableDeviceInfo -> Text -> AvailableDeviceInfo)
-> Lens AvailableDeviceInfo AvailableDeviceInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AvailableDeviceInfo -> Text
_AvailableDeviceInfo'name
           (\ x__ :: AvailableDeviceInfo
x__ y__ :: Text
y__ -> AvailableDeviceInfo
x__ {_AvailableDeviceInfo'name :: Text
_AvailableDeviceInfo'name = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AvailableDeviceInfo "type'" Data.Text.Text where
  fieldOf :: Proxy# "type'"
-> (Text -> f Text) -> AvailableDeviceInfo -> f AvailableDeviceInfo
fieldOf _
    = ((Text -> f Text) -> AvailableDeviceInfo -> f AvailableDeviceInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AvailableDeviceInfo
-> f AvailableDeviceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AvailableDeviceInfo -> Text)
-> (AvailableDeviceInfo -> Text -> AvailableDeviceInfo)
-> Lens AvailableDeviceInfo AvailableDeviceInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AvailableDeviceInfo -> Text
_AvailableDeviceInfo'type'
           (\ x__ :: AvailableDeviceInfo
x__ y__ :: Text
y__ -> AvailableDeviceInfo
x__ {_AvailableDeviceInfo'type' :: Text
_AvailableDeviceInfo'type' = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AvailableDeviceInfo "memoryLimit" Data.Int.Int64 where
  fieldOf :: Proxy# "memoryLimit"
-> (Int64 -> f Int64)
-> AvailableDeviceInfo
-> f AvailableDeviceInfo
fieldOf _
    = ((Int64 -> f Int64)
 -> AvailableDeviceInfo -> f AvailableDeviceInfo)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> AvailableDeviceInfo
-> f AvailableDeviceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AvailableDeviceInfo -> Int64)
-> (AvailableDeviceInfo -> Int64 -> AvailableDeviceInfo)
-> Lens AvailableDeviceInfo AvailableDeviceInfo Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AvailableDeviceInfo -> Int64
_AvailableDeviceInfo'memoryLimit
           (\ x__ :: AvailableDeviceInfo
x__ y__ :: Int64
y__ -> AvailableDeviceInfo
x__ {_AvailableDeviceInfo'memoryLimit :: Int64
_AvailableDeviceInfo'memoryLimit = Int64
y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AvailableDeviceInfo "physicalDescription" Data.Text.Text where
  fieldOf :: Proxy# "physicalDescription"
-> (Text -> f Text) -> AvailableDeviceInfo -> f AvailableDeviceInfo
fieldOf _
    = ((Text -> f Text) -> AvailableDeviceInfo -> f AvailableDeviceInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AvailableDeviceInfo
-> f AvailableDeviceInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((AvailableDeviceInfo -> Text)
-> (AvailableDeviceInfo -> Text -> AvailableDeviceInfo)
-> Lens AvailableDeviceInfo AvailableDeviceInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           AvailableDeviceInfo -> Text
_AvailableDeviceInfo'physicalDescription
           (\ x__ :: AvailableDeviceInfo
x__ y__ :: Text
y__
              -> AvailableDeviceInfo
x__ {_AvailableDeviceInfo'physicalDescription :: Text
_AvailableDeviceInfo'physicalDescription = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AvailableDeviceInfo where
  messageName :: Proxy AvailableDeviceInfo -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.AvailableDeviceInfo"
  packedMessageDescriptor :: Proxy AvailableDeviceInfo -> ByteString
packedMessageDescriptor _
    = "\n\
      \\DC3AvailableDeviceInfo\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\DC2\n\
      \\EOTtype\CAN\STX \SOH(\tR\EOTtype\DC2!\n\
      \\fmemory_limit\CAN\ETX \SOH(\ETXR\vmemoryLimit\DC21\n\
      \\DC4physical_description\CAN\EOT \SOH(\tR\DC3physicalDescription"
  packedFileDescriptor :: Proxy AvailableDeviceInfo -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor AvailableDeviceInfo)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor AvailableDeviceInfo
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AvailableDeviceInfo Text
-> FieldDescriptor AvailableDeviceInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AvailableDeviceInfo AvailableDeviceInfo Text Text
-> FieldAccessor AvailableDeviceInfo 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 s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
              Data.ProtoLens.FieldDescriptor AvailableDeviceInfo
        type'__field_descriptor :: FieldDescriptor AvailableDeviceInfo
type'__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AvailableDeviceInfo Text
-> FieldDescriptor AvailableDeviceInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "type"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens AvailableDeviceInfo AvailableDeviceInfo Text Text
-> FieldAccessor AvailableDeviceInfo 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 s a (f :: * -> *).
(HasField s "type'" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"type'")) ::
              Data.ProtoLens.FieldDescriptor AvailableDeviceInfo
        memoryLimit__field_descriptor :: FieldDescriptor AvailableDeviceInfo
memoryLimit__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor AvailableDeviceInfo Int64
-> FieldDescriptor AvailableDeviceInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "memory_limit"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens AvailableDeviceInfo AvailableDeviceInfo Int64 Int64
-> FieldAccessor AvailableDeviceInfo Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "memoryLimit" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"memoryLimit")) ::
              Data.ProtoLens.FieldDescriptor AvailableDeviceInfo
        physicalDescription__field_descriptor :: FieldDescriptor AvailableDeviceInfo
physicalDescription__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor AvailableDeviceInfo Text
-> FieldDescriptor AvailableDeviceInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "physical_description"
              (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 AvailableDeviceInfo AvailableDeviceInfo Text Text
-> FieldAccessor AvailableDeviceInfo 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 s a (f :: * -> *).
(HasField s "physicalDescription" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"physicalDescription")) ::
              Data.ProtoLens.FieldDescriptor AvailableDeviceInfo
      in
        [(Tag, FieldDescriptor AvailableDeviceInfo)]
-> Map Tag (FieldDescriptor AvailableDeviceInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor AvailableDeviceInfo
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor AvailableDeviceInfo
type'__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor AvailableDeviceInfo
memoryLimit__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor AvailableDeviceInfo
physicalDescription__field_descriptor)]
  unknownFields :: LensLike' f AvailableDeviceInfo FieldSet
unknownFields
    = (AvailableDeviceInfo -> FieldSet)
-> (AvailableDeviceInfo -> FieldSet -> AvailableDeviceInfo)
-> Lens' AvailableDeviceInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        AvailableDeviceInfo -> FieldSet
_AvailableDeviceInfo'_unknownFields
        (\ x__ :: AvailableDeviceInfo
x__ y__ :: FieldSet
y__ -> AvailableDeviceInfo
x__ {_AvailableDeviceInfo'_unknownFields :: FieldSet
_AvailableDeviceInfo'_unknownFields = FieldSet
y__})
  defMessage :: AvailableDeviceInfo
defMessage
    = $WAvailableDeviceInfo'_constructor :: Text -> Text -> Int64 -> Text -> FieldSet -> AvailableDeviceInfo
AvailableDeviceInfo'_constructor
        {_AvailableDeviceInfo'name :: Text
_AvailableDeviceInfo'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AvailableDeviceInfo'type' :: Text
_AvailableDeviceInfo'type' = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AvailableDeviceInfo'memoryLimit :: Int64
_AvailableDeviceInfo'memoryLimit = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AvailableDeviceInfo'physicalDescription :: Text
_AvailableDeviceInfo'physicalDescription = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _AvailableDeviceInfo'_unknownFields :: FieldSet
_AvailableDeviceInfo'_unknownFields = []}
  parseMessage :: Parser AvailableDeviceInfo
parseMessage
    = let
        loop ::
          AvailableDeviceInfo
          -> Data.ProtoLens.Encoding.Bytes.Parser AvailableDeviceInfo
        loop :: AvailableDeviceInfo -> Parser AvailableDeviceInfo
loop x :: AvailableDeviceInfo
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      AvailableDeviceInfo -> Parser AvailableDeviceInfo
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter AvailableDeviceInfo AvailableDeviceInfo FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> AvailableDeviceInfo
-> AvailableDeviceInfo
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter AvailableDeviceInfo AvailableDeviceInfo FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) AvailableDeviceInfo
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "name"
                                AvailableDeviceInfo -> Parser AvailableDeviceInfo
loop (Setter AvailableDeviceInfo AvailableDeviceInfo Text Text
-> Text -> AvailableDeviceInfo -> AvailableDeviceInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y AvailableDeviceInfo
x)
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "type"
                                AvailableDeviceInfo -> Parser AvailableDeviceInfo
loop (Setter AvailableDeviceInfo AvailableDeviceInfo Text Text
-> Text -> AvailableDeviceInfo -> AvailableDeviceInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "type'" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"type'") Text
y AvailableDeviceInfo
x)
                        24
                          -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "memory_limit"
                                AvailableDeviceInfo -> Parser AvailableDeviceInfo
loop
                                  (Setter AvailableDeviceInfo AvailableDeviceInfo Int64 Int64
-> Int64 -> AvailableDeviceInfo -> AvailableDeviceInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "memoryLimit" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"memoryLimit") Int64
y AvailableDeviceInfo
x)
                        34
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "physical_description"
                                AvailableDeviceInfo -> Parser AvailableDeviceInfo
loop
                                  (Setter AvailableDeviceInfo AvailableDeviceInfo Text Text
-> Text -> AvailableDeviceInfo -> AvailableDeviceInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "physicalDescription" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"physicalDescription") Text
y AvailableDeviceInfo
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                AvailableDeviceInfo -> Parser AvailableDeviceInfo
loop
                                  (Setter AvailableDeviceInfo AvailableDeviceInfo FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> AvailableDeviceInfo
-> AvailableDeviceInfo
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter AvailableDeviceInfo AvailableDeviceInfo FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AvailableDeviceInfo
x)
      in
        Parser AvailableDeviceInfo -> String -> Parser AvailableDeviceInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do AvailableDeviceInfo -> Parser AvailableDeviceInfo
loop AvailableDeviceInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "AvailableDeviceInfo"
  buildMessage :: AvailableDeviceInfo -> Builder
buildMessage
    = \ _x :: AvailableDeviceInfo
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text AvailableDeviceInfo AvailableDeviceInfo Text Text
-> AvailableDeviceInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") AvailableDeviceInfo
_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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike Text AvailableDeviceInfo AvailableDeviceInfo Text Text
-> AvailableDeviceInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "type'" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"type'") AvailableDeviceInfo
_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 18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ bs :: ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8
                            Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Int64
_v
                        = FoldLike Int64 AvailableDeviceInfo AvailableDeviceInfo Int64 Int64
-> AvailableDeviceInfo -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "memoryLimit" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"memoryLimit") AvailableDeviceInfo
_x
                    in
                      if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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 24)
                            ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (let
                         _v :: Text
_v
                           = FoldLike Text AvailableDeviceInfo AvailableDeviceInfo Text Text
-> AvailableDeviceInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                               (forall s a (f :: * -> *).
(HasField s "physicalDescription" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"physicalDescription") AvailableDeviceInfo
_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 34)
                               ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  (\ bs :: ByteString
bs
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                             (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                          (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                  Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                  Text
_v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike
  FieldSet AvailableDeviceInfo AvailableDeviceInfo FieldSet FieldSet
-> AvailableDeviceInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet AvailableDeviceInfo AvailableDeviceInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields AvailableDeviceInfo
_x)))))
instance Control.DeepSeq.NFData AvailableDeviceInfo where
  rnf :: AvailableDeviceInfo -> ()
rnf
    = \ x__ :: AvailableDeviceInfo
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (AvailableDeviceInfo -> FieldSet
_AvailableDeviceInfo'_unknownFields AvailableDeviceInfo
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (AvailableDeviceInfo -> Text
_AvailableDeviceInfo'name AvailableDeviceInfo
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (AvailableDeviceInfo -> Text
_AvailableDeviceInfo'type' AvailableDeviceInfo
x__)
                   (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (AvailableDeviceInfo -> Int64
_AvailableDeviceInfo'memoryLimit AvailableDeviceInfo
x__)
                      (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (AvailableDeviceInfo -> Text
_AvailableDeviceInfo'physicalDescription AvailableDeviceInfo
x__) ()))))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.entry' @:: Lens' BenchmarkEntries [BenchmarkEntry]@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.vec'entry' @:: Lens' BenchmarkEntries (Data.Vector.Vector BenchmarkEntry)@ -}
data BenchmarkEntries
  = BenchmarkEntries'_constructor {BenchmarkEntries -> Vector BenchmarkEntry
_BenchmarkEntries'entry :: !(Data.Vector.Vector BenchmarkEntry),
                                   BenchmarkEntries -> FieldSet
_BenchmarkEntries'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (BenchmarkEntries -> BenchmarkEntries -> Bool
(BenchmarkEntries -> BenchmarkEntries -> Bool)
-> (BenchmarkEntries -> BenchmarkEntries -> Bool)
-> Eq BenchmarkEntries
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BenchmarkEntries -> BenchmarkEntries -> Bool
$c/= :: BenchmarkEntries -> BenchmarkEntries -> Bool
== :: BenchmarkEntries -> BenchmarkEntries -> Bool
$c== :: BenchmarkEntries -> BenchmarkEntries -> Bool
Prelude.Eq, Eq BenchmarkEntries
Eq BenchmarkEntries =>
(BenchmarkEntries -> BenchmarkEntries -> Ordering)
-> (BenchmarkEntries -> BenchmarkEntries -> Bool)
-> (BenchmarkEntries -> BenchmarkEntries -> Bool)
-> (BenchmarkEntries -> BenchmarkEntries -> Bool)
-> (BenchmarkEntries -> BenchmarkEntries -> Bool)
-> (BenchmarkEntries -> BenchmarkEntries -> BenchmarkEntries)
-> (BenchmarkEntries -> BenchmarkEntries -> BenchmarkEntries)
-> Ord BenchmarkEntries
BenchmarkEntries -> BenchmarkEntries -> Bool
BenchmarkEntries -> BenchmarkEntries -> Ordering
BenchmarkEntries -> BenchmarkEntries -> BenchmarkEntries
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: BenchmarkEntries -> BenchmarkEntries -> BenchmarkEntries
$cmin :: BenchmarkEntries -> BenchmarkEntries -> BenchmarkEntries
max :: BenchmarkEntries -> BenchmarkEntries -> BenchmarkEntries
$cmax :: BenchmarkEntries -> BenchmarkEntries -> BenchmarkEntries
>= :: BenchmarkEntries -> BenchmarkEntries -> Bool
$c>= :: BenchmarkEntries -> BenchmarkEntries -> Bool
> :: BenchmarkEntries -> BenchmarkEntries -> Bool
$c> :: BenchmarkEntries -> BenchmarkEntries -> Bool
<= :: BenchmarkEntries -> BenchmarkEntries -> Bool
$c<= :: BenchmarkEntries -> BenchmarkEntries -> Bool
< :: BenchmarkEntries -> BenchmarkEntries -> Bool
$c< :: BenchmarkEntries -> BenchmarkEntries -> Bool
compare :: BenchmarkEntries -> BenchmarkEntries -> Ordering
$ccompare :: BenchmarkEntries -> BenchmarkEntries -> Ordering
$cp1Ord :: Eq BenchmarkEntries
Prelude.Ord)
instance Prelude.Show BenchmarkEntries where
  showsPrec :: Int -> BenchmarkEntries -> ShowS
showsPrec _ __x :: BenchmarkEntries
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (BenchmarkEntries -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BenchmarkEntries
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField BenchmarkEntries "entry" [BenchmarkEntry] where
  fieldOf :: Proxy# "entry"
-> ([BenchmarkEntry] -> f [BenchmarkEntry])
-> BenchmarkEntries
-> f BenchmarkEntries
fieldOf _
    = ((Vector BenchmarkEntry -> f (Vector BenchmarkEntry))
 -> BenchmarkEntries -> f BenchmarkEntries)
-> (([BenchmarkEntry] -> f [BenchmarkEntry])
    -> Vector BenchmarkEntry -> f (Vector BenchmarkEntry))
-> ([BenchmarkEntry] -> f [BenchmarkEntry])
-> BenchmarkEntries
-> f BenchmarkEntries
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BenchmarkEntries -> Vector BenchmarkEntry)
-> (BenchmarkEntries -> Vector BenchmarkEntry -> BenchmarkEntries)
-> Lens
     BenchmarkEntries
     BenchmarkEntries
     (Vector BenchmarkEntry)
     (Vector BenchmarkEntry)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BenchmarkEntries -> Vector BenchmarkEntry
_BenchmarkEntries'entry
           (\ x__ :: BenchmarkEntries
x__ y__ :: Vector BenchmarkEntry
y__ -> BenchmarkEntries
x__ {_BenchmarkEntries'entry :: Vector BenchmarkEntry
_BenchmarkEntries'entry = Vector BenchmarkEntry
y__}))
        ((Vector BenchmarkEntry -> [BenchmarkEntry])
-> (Vector BenchmarkEntry
    -> [BenchmarkEntry] -> Vector BenchmarkEntry)
-> Lens
     (Vector BenchmarkEntry)
     (Vector BenchmarkEntry)
     [BenchmarkEntry]
     [BenchmarkEntry]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector BenchmarkEntry -> [BenchmarkEntry]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [BenchmarkEntry]
y__ -> [BenchmarkEntry] -> Vector BenchmarkEntry
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [BenchmarkEntry]
y__))
instance Data.ProtoLens.Field.HasField BenchmarkEntries "vec'entry" (Data.Vector.Vector BenchmarkEntry) where
  fieldOf :: Proxy# "vec'entry"
-> (Vector BenchmarkEntry -> f (Vector BenchmarkEntry))
-> BenchmarkEntries
-> f BenchmarkEntries
fieldOf _
    = ((Vector BenchmarkEntry -> f (Vector BenchmarkEntry))
 -> BenchmarkEntries -> f BenchmarkEntries)
-> ((Vector BenchmarkEntry -> f (Vector BenchmarkEntry))
    -> Vector BenchmarkEntry -> f (Vector BenchmarkEntry))
-> (Vector BenchmarkEntry -> f (Vector BenchmarkEntry))
-> BenchmarkEntries
-> f BenchmarkEntries
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BenchmarkEntries -> Vector BenchmarkEntry)
-> (BenchmarkEntries -> Vector BenchmarkEntry -> BenchmarkEntries)
-> Lens
     BenchmarkEntries
     BenchmarkEntries
     (Vector BenchmarkEntry)
     (Vector BenchmarkEntry)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BenchmarkEntries -> Vector BenchmarkEntry
_BenchmarkEntries'entry
           (\ x__ :: BenchmarkEntries
x__ y__ :: Vector BenchmarkEntry
y__ -> BenchmarkEntries
x__ {_BenchmarkEntries'entry :: Vector BenchmarkEntry
_BenchmarkEntries'entry = Vector BenchmarkEntry
y__}))
        (Vector BenchmarkEntry -> f (Vector BenchmarkEntry))
-> Vector BenchmarkEntry -> f (Vector BenchmarkEntry)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message BenchmarkEntries where
  messageName :: Proxy BenchmarkEntries -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.BenchmarkEntries"
  packedMessageDescriptor :: Proxy BenchmarkEntries -> ByteString
packedMessageDescriptor _
    = "\n\
      \\DLEBenchmarkEntries\DC20\n\
      \\ENQentry\CAN\SOH \ETX(\v2\SUB.tensorflow.BenchmarkEntryR\ENQentry"
  packedFileDescriptor :: Proxy BenchmarkEntries -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor BenchmarkEntries)
fieldsByTag
    = let
        entry__field_descriptor :: FieldDescriptor BenchmarkEntries
entry__field_descriptor
          = String
-> FieldTypeDescriptor BenchmarkEntry
-> FieldAccessor BenchmarkEntries BenchmarkEntry
-> FieldDescriptor BenchmarkEntries
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "entry"
              (MessageOrGroup -> FieldTypeDescriptor BenchmarkEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor BenchmarkEntry)
              (Packing
-> Lens' BenchmarkEntries [BenchmarkEntry]
-> FieldAccessor BenchmarkEntries BenchmarkEntry
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "entry" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"entry")) ::
              Data.ProtoLens.FieldDescriptor BenchmarkEntries
      in
        [(Tag, FieldDescriptor BenchmarkEntries)]
-> Map Tag (FieldDescriptor BenchmarkEntries)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor BenchmarkEntries
entry__field_descriptor)]
  unknownFields :: LensLike' f BenchmarkEntries FieldSet
unknownFields
    = (BenchmarkEntries -> FieldSet)
-> (BenchmarkEntries -> FieldSet -> BenchmarkEntries)
-> Lens' BenchmarkEntries FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        BenchmarkEntries -> FieldSet
_BenchmarkEntries'_unknownFields
        (\ x__ :: BenchmarkEntries
x__ y__ :: FieldSet
y__ -> BenchmarkEntries
x__ {_BenchmarkEntries'_unknownFields :: FieldSet
_BenchmarkEntries'_unknownFields = FieldSet
y__})
  defMessage :: BenchmarkEntries
defMessage
    = $WBenchmarkEntries'_constructor :: Vector BenchmarkEntry -> FieldSet -> BenchmarkEntries
BenchmarkEntries'_constructor
        {_BenchmarkEntries'entry :: Vector BenchmarkEntry
_BenchmarkEntries'entry = Vector BenchmarkEntry
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _BenchmarkEntries'_unknownFields :: FieldSet
_BenchmarkEntries'_unknownFields = []}
  parseMessage :: Parser BenchmarkEntries
parseMessage
    = let
        loop ::
          BenchmarkEntries
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld BenchmarkEntry
             -> Data.ProtoLens.Encoding.Bytes.Parser BenchmarkEntries
        loop :: BenchmarkEntries
-> Growing Vector RealWorld BenchmarkEntry
-> Parser BenchmarkEntries
loop x :: BenchmarkEntries
x mutable'entry :: Growing Vector RealWorld BenchmarkEntry
mutable'entry
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector BenchmarkEntry
frozen'entry <- IO (Vector BenchmarkEntry) -> Parser (Vector BenchmarkEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                        (Growing Vector (PrimState IO) BenchmarkEntry
-> IO (Vector BenchmarkEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld BenchmarkEntry
Growing Vector (PrimState IO) BenchmarkEntry
mutable'entry)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      BenchmarkEntries -> Parser BenchmarkEntries
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter BenchmarkEntries BenchmarkEntries FieldSet FieldSet
-> (FieldSet -> FieldSet) -> BenchmarkEntries -> BenchmarkEntries
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter BenchmarkEntries BenchmarkEntries FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  BenchmarkEntries
  BenchmarkEntries
  (Vector BenchmarkEntry)
  (Vector BenchmarkEntry)
-> Vector BenchmarkEntry -> BenchmarkEntries -> BenchmarkEntries
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'entry" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'entry") Vector BenchmarkEntry
frozen'entry BenchmarkEntries
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !BenchmarkEntry
y <- Parser BenchmarkEntry -> String -> Parser BenchmarkEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser BenchmarkEntry -> Parser BenchmarkEntry
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser BenchmarkEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "entry"
                                Growing Vector RealWorld BenchmarkEntry
v <- IO (Growing Vector RealWorld BenchmarkEntry)
-> Parser (Growing Vector RealWorld BenchmarkEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) BenchmarkEntry
-> BenchmarkEntry
-> IO (Growing Vector (PrimState IO) BenchmarkEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld BenchmarkEntry
Growing Vector (PrimState IO) BenchmarkEntry
mutable'entry BenchmarkEntry
y)
                                BenchmarkEntries
-> Growing Vector RealWorld BenchmarkEntry
-> Parser BenchmarkEntries
loop BenchmarkEntries
x Growing Vector RealWorld BenchmarkEntry
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                BenchmarkEntries
-> Growing Vector RealWorld BenchmarkEntry
-> Parser BenchmarkEntries
loop
                                  (Setter BenchmarkEntries BenchmarkEntries FieldSet FieldSet
-> (FieldSet -> FieldSet) -> BenchmarkEntries -> BenchmarkEntries
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter BenchmarkEntries BenchmarkEntries FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) BenchmarkEntries
x)
                                  Growing Vector RealWorld BenchmarkEntry
mutable'entry
      in
        Parser BenchmarkEntries -> String -> Parser BenchmarkEntries
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld BenchmarkEntry
mutable'entry <- IO (Growing Vector RealWorld BenchmarkEntry)
-> Parser (Growing Vector RealWorld BenchmarkEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                 IO (Growing Vector RealWorld BenchmarkEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              BenchmarkEntries
-> Growing Vector RealWorld BenchmarkEntry
-> Parser BenchmarkEntries
loop BenchmarkEntries
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld BenchmarkEntry
mutable'entry)
          "BenchmarkEntries"
  buildMessage :: BenchmarkEntries -> Builder
buildMessage
    = \ _x :: BenchmarkEntries
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((BenchmarkEntry -> Builder) -> Vector BenchmarkEntry -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: BenchmarkEntry
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((ByteString -> Builder)
-> (BenchmarkEntry -> ByteString) -> BenchmarkEntry -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ bs :: ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           BenchmarkEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                           BenchmarkEntry
_v))
                (FoldLike
  (Vector BenchmarkEntry)
  BenchmarkEntries
  BenchmarkEntries
  (Vector BenchmarkEntry)
  (Vector BenchmarkEntry)
-> BenchmarkEntries -> Vector BenchmarkEntry
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'entry" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'entry") BenchmarkEntries
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet BenchmarkEntries BenchmarkEntries FieldSet FieldSet
-> BenchmarkEntries -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet BenchmarkEntries BenchmarkEntries FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields BenchmarkEntries
_x))
instance Control.DeepSeq.NFData BenchmarkEntries where
  rnf :: BenchmarkEntries -> ()
rnf
    = \ x__ :: BenchmarkEntries
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (BenchmarkEntries -> FieldSet
_BenchmarkEntries'_unknownFields BenchmarkEntries
x__)
             (Vector BenchmarkEntry -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (BenchmarkEntries -> Vector BenchmarkEntry
_BenchmarkEntries'entry BenchmarkEntries
x__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.name' @:: Lens' BenchmarkEntry Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.iters' @:: Lens' BenchmarkEntry Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.cpuTime' @:: Lens' BenchmarkEntry Prelude.Double@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.wallTime' @:: Lens' BenchmarkEntry Prelude.Double@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.throughput' @:: Lens' BenchmarkEntry Prelude.Double@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.extras' @:: Lens' BenchmarkEntry (Data.Map.Map Data.Text.Text EntryValue)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.metrics' @:: Lens' BenchmarkEntry [MetricEntry]@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.vec'metrics' @:: Lens' BenchmarkEntry (Data.Vector.Vector MetricEntry)@ -}
data BenchmarkEntry
  = BenchmarkEntry'_constructor {BenchmarkEntry -> Text
_BenchmarkEntry'name :: !Data.Text.Text,
                                 BenchmarkEntry -> Int64
_BenchmarkEntry'iters :: !Data.Int.Int64,
                                 BenchmarkEntry -> Double
_BenchmarkEntry'cpuTime :: !Prelude.Double,
                                 BenchmarkEntry -> Double
_BenchmarkEntry'wallTime :: !Prelude.Double,
                                 BenchmarkEntry -> Double
_BenchmarkEntry'throughput :: !Prelude.Double,
                                 BenchmarkEntry -> Map Text EntryValue
_BenchmarkEntry'extras :: !(Data.Map.Map Data.Text.Text EntryValue),
                                 BenchmarkEntry -> Vector MetricEntry
_BenchmarkEntry'metrics :: !(Data.Vector.Vector MetricEntry),
                                 BenchmarkEntry -> FieldSet
_BenchmarkEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (BenchmarkEntry -> BenchmarkEntry -> Bool
(BenchmarkEntry -> BenchmarkEntry -> Bool)
-> (BenchmarkEntry -> BenchmarkEntry -> Bool) -> Eq BenchmarkEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BenchmarkEntry -> BenchmarkEntry -> Bool
$c/= :: BenchmarkEntry -> BenchmarkEntry -> Bool
== :: BenchmarkEntry -> BenchmarkEntry -> Bool
$c== :: BenchmarkEntry -> BenchmarkEntry -> Bool
Prelude.Eq, Eq BenchmarkEntry
Eq BenchmarkEntry =>
(BenchmarkEntry -> BenchmarkEntry -> Ordering)
-> (BenchmarkEntry -> BenchmarkEntry -> Bool)
-> (BenchmarkEntry -> BenchmarkEntry -> Bool)
-> (BenchmarkEntry -> BenchmarkEntry -> Bool)
-> (BenchmarkEntry -> BenchmarkEntry -> Bool)
-> (BenchmarkEntry -> BenchmarkEntry -> BenchmarkEntry)
-> (BenchmarkEntry -> BenchmarkEntry -> BenchmarkEntry)
-> Ord BenchmarkEntry
BenchmarkEntry -> BenchmarkEntry -> Bool
BenchmarkEntry -> BenchmarkEntry -> Ordering
BenchmarkEntry -> BenchmarkEntry -> BenchmarkEntry
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: BenchmarkEntry -> BenchmarkEntry -> BenchmarkEntry
$cmin :: BenchmarkEntry -> BenchmarkEntry -> BenchmarkEntry
max :: BenchmarkEntry -> BenchmarkEntry -> BenchmarkEntry
$cmax :: BenchmarkEntry -> BenchmarkEntry -> BenchmarkEntry
>= :: BenchmarkEntry -> BenchmarkEntry -> Bool
$c>= :: BenchmarkEntry -> BenchmarkEntry -> Bool
> :: BenchmarkEntry -> BenchmarkEntry -> Bool
$c> :: BenchmarkEntry -> BenchmarkEntry -> Bool
<= :: BenchmarkEntry -> BenchmarkEntry -> Bool
$c<= :: BenchmarkEntry -> BenchmarkEntry -> Bool
< :: BenchmarkEntry -> BenchmarkEntry -> Bool
$c< :: BenchmarkEntry -> BenchmarkEntry -> Bool
compare :: BenchmarkEntry -> BenchmarkEntry -> Ordering
$ccompare :: BenchmarkEntry -> BenchmarkEntry -> Ordering
$cp1Ord :: Eq BenchmarkEntry
Prelude.Ord)
instance Prelude.Show BenchmarkEntry where
  showsPrec :: Int -> BenchmarkEntry -> ShowS
showsPrec _ __x :: BenchmarkEntry
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (BenchmarkEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BenchmarkEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField BenchmarkEntry "name" Data.Text.Text where
  fieldOf :: Proxy# "name"
-> (Text -> f Text) -> BenchmarkEntry -> f BenchmarkEntry
fieldOf _
    = ((Text -> f Text) -> BenchmarkEntry -> f BenchmarkEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BenchmarkEntry
-> f BenchmarkEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BenchmarkEntry -> Text)
-> (BenchmarkEntry -> Text -> BenchmarkEntry)
-> Lens BenchmarkEntry BenchmarkEntry Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BenchmarkEntry -> Text
_BenchmarkEntry'name
           (\ x__ :: BenchmarkEntry
x__ y__ :: Text
y__ -> BenchmarkEntry
x__ {_BenchmarkEntry'name :: Text
_BenchmarkEntry'name = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BenchmarkEntry "iters" Data.Int.Int64 where
  fieldOf :: Proxy# "iters"
-> (Int64 -> f Int64) -> BenchmarkEntry -> f BenchmarkEntry
fieldOf _
    = ((Int64 -> f Int64) -> BenchmarkEntry -> f BenchmarkEntry)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> BenchmarkEntry
-> f BenchmarkEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BenchmarkEntry -> Int64)
-> (BenchmarkEntry -> Int64 -> BenchmarkEntry)
-> Lens BenchmarkEntry BenchmarkEntry Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BenchmarkEntry -> Int64
_BenchmarkEntry'iters
           (\ x__ :: BenchmarkEntry
x__ y__ :: Int64
y__ -> BenchmarkEntry
x__ {_BenchmarkEntry'iters :: Int64
_BenchmarkEntry'iters = Int64
y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BenchmarkEntry "cpuTime" Prelude.Double where
  fieldOf :: Proxy# "cpuTime"
-> (Double -> f Double) -> BenchmarkEntry -> f BenchmarkEntry
fieldOf _
    = ((Double -> f Double) -> BenchmarkEntry -> f BenchmarkEntry)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> BenchmarkEntry
-> f BenchmarkEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BenchmarkEntry -> Double)
-> (BenchmarkEntry -> Double -> BenchmarkEntry)
-> Lens BenchmarkEntry BenchmarkEntry Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BenchmarkEntry -> Double
_BenchmarkEntry'cpuTime
           (\ x__ :: BenchmarkEntry
x__ y__ :: Double
y__ -> BenchmarkEntry
x__ {_BenchmarkEntry'cpuTime :: Double
_BenchmarkEntry'cpuTime = Double
y__}))
        (Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BenchmarkEntry "wallTime" Prelude.Double where
  fieldOf :: Proxy# "wallTime"
-> (Double -> f Double) -> BenchmarkEntry -> f BenchmarkEntry
fieldOf _
    = ((Double -> f Double) -> BenchmarkEntry -> f BenchmarkEntry)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> BenchmarkEntry
-> f BenchmarkEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BenchmarkEntry -> Double)
-> (BenchmarkEntry -> Double -> BenchmarkEntry)
-> Lens BenchmarkEntry BenchmarkEntry Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BenchmarkEntry -> Double
_BenchmarkEntry'wallTime
           (\ x__ :: BenchmarkEntry
x__ y__ :: Double
y__ -> BenchmarkEntry
x__ {_BenchmarkEntry'wallTime :: Double
_BenchmarkEntry'wallTime = Double
y__}))
        (Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BenchmarkEntry "throughput" Prelude.Double where
  fieldOf :: Proxy# "throughput"
-> (Double -> f Double) -> BenchmarkEntry -> f BenchmarkEntry
fieldOf _
    = ((Double -> f Double) -> BenchmarkEntry -> f BenchmarkEntry)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> BenchmarkEntry
-> f BenchmarkEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BenchmarkEntry -> Double)
-> (BenchmarkEntry -> Double -> BenchmarkEntry)
-> Lens BenchmarkEntry BenchmarkEntry Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BenchmarkEntry -> Double
_BenchmarkEntry'throughput
           (\ x__ :: BenchmarkEntry
x__ y__ :: Double
y__ -> BenchmarkEntry
x__ {_BenchmarkEntry'throughput :: Double
_BenchmarkEntry'throughput = Double
y__}))
        (Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BenchmarkEntry "extras" (Data.Map.Map Data.Text.Text EntryValue) where
  fieldOf :: Proxy# "extras"
-> (Map Text EntryValue -> f (Map Text EntryValue))
-> BenchmarkEntry
-> f BenchmarkEntry
fieldOf _
    = ((Map Text EntryValue -> f (Map Text EntryValue))
 -> BenchmarkEntry -> f BenchmarkEntry)
-> ((Map Text EntryValue -> f (Map Text EntryValue))
    -> Map Text EntryValue -> f (Map Text EntryValue))
-> (Map Text EntryValue -> f (Map Text EntryValue))
-> BenchmarkEntry
-> f BenchmarkEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BenchmarkEntry -> Map Text EntryValue)
-> (BenchmarkEntry -> Map Text EntryValue -> BenchmarkEntry)
-> Lens
     BenchmarkEntry
     BenchmarkEntry
     (Map Text EntryValue)
     (Map Text EntryValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BenchmarkEntry -> Map Text EntryValue
_BenchmarkEntry'extras
           (\ x__ :: BenchmarkEntry
x__ y__ :: Map Text EntryValue
y__ -> BenchmarkEntry
x__ {_BenchmarkEntry'extras :: Map Text EntryValue
_BenchmarkEntry'extras = Map Text EntryValue
y__}))
        (Map Text EntryValue -> f (Map Text EntryValue))
-> Map Text EntryValue -> f (Map Text EntryValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BenchmarkEntry "metrics" [MetricEntry] where
  fieldOf :: Proxy# "metrics"
-> ([MetricEntry] -> f [MetricEntry])
-> BenchmarkEntry
-> f BenchmarkEntry
fieldOf _
    = ((Vector MetricEntry -> f (Vector MetricEntry))
 -> BenchmarkEntry -> f BenchmarkEntry)
-> (([MetricEntry] -> f [MetricEntry])
    -> Vector MetricEntry -> f (Vector MetricEntry))
-> ([MetricEntry] -> f [MetricEntry])
-> BenchmarkEntry
-> f BenchmarkEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BenchmarkEntry -> Vector MetricEntry)
-> (BenchmarkEntry -> Vector MetricEntry -> BenchmarkEntry)
-> Lens
     BenchmarkEntry
     BenchmarkEntry
     (Vector MetricEntry)
     (Vector MetricEntry)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BenchmarkEntry -> Vector MetricEntry
_BenchmarkEntry'metrics
           (\ x__ :: BenchmarkEntry
x__ y__ :: Vector MetricEntry
y__ -> BenchmarkEntry
x__ {_BenchmarkEntry'metrics :: Vector MetricEntry
_BenchmarkEntry'metrics = Vector MetricEntry
y__}))
        ((Vector MetricEntry -> [MetricEntry])
-> (Vector MetricEntry -> [MetricEntry] -> Vector MetricEntry)
-> Lens
     (Vector MetricEntry)
     (Vector MetricEntry)
     [MetricEntry]
     [MetricEntry]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector MetricEntry -> [MetricEntry]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [MetricEntry]
y__ -> [MetricEntry] -> Vector MetricEntry
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [MetricEntry]
y__))
instance Data.ProtoLens.Field.HasField BenchmarkEntry "vec'metrics" (Data.Vector.Vector MetricEntry) where
  fieldOf :: Proxy# "vec'metrics"
-> (Vector MetricEntry -> f (Vector MetricEntry))
-> BenchmarkEntry
-> f BenchmarkEntry
fieldOf _
    = ((Vector MetricEntry -> f (Vector MetricEntry))
 -> BenchmarkEntry -> f BenchmarkEntry)
-> ((Vector MetricEntry -> f (Vector MetricEntry))
    -> Vector MetricEntry -> f (Vector MetricEntry))
-> (Vector MetricEntry -> f (Vector MetricEntry))
-> BenchmarkEntry
-> f BenchmarkEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BenchmarkEntry -> Vector MetricEntry)
-> (BenchmarkEntry -> Vector MetricEntry -> BenchmarkEntry)
-> Lens
     BenchmarkEntry
     BenchmarkEntry
     (Vector MetricEntry)
     (Vector MetricEntry)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BenchmarkEntry -> Vector MetricEntry
_BenchmarkEntry'metrics
           (\ x__ :: BenchmarkEntry
x__ y__ :: Vector MetricEntry
y__ -> BenchmarkEntry
x__ {_BenchmarkEntry'metrics :: Vector MetricEntry
_BenchmarkEntry'metrics = Vector MetricEntry
y__}))
        (Vector MetricEntry -> f (Vector MetricEntry))
-> Vector MetricEntry -> f (Vector MetricEntry)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message BenchmarkEntry where
  messageName :: Proxy BenchmarkEntry -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.BenchmarkEntry"
  packedMessageDescriptor :: Proxy BenchmarkEntry -> ByteString
packedMessageDescriptor _
    = "\n\
      \\SOBenchmarkEntry\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\DC4\n\
      \\ENQiters\CAN\STX \SOH(\ETXR\ENQiters\DC2\EM\n\
      \\bcpu_time\CAN\ETX \SOH(\SOHR\acpuTime\DC2\ESC\n\
      \\twall_time\CAN\EOT \SOH(\SOHR\bwallTime\DC2\RS\n\
      \\n\
      \throughput\CAN\ENQ \SOH(\SOHR\n\
      \throughput\DC2>\n\
      \\ACKextras\CAN\ACK \ETX(\v2&.tensorflow.BenchmarkEntry.ExtrasEntryR\ACKextras\DC21\n\
      \\ametrics\CAN\a \ETX(\v2\ETB.tensorflow.MetricEntryR\ametrics\SUBQ\n\
      \\vExtrasEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2,\n\
      \\ENQvalue\CAN\STX \SOH(\v2\SYN.tensorflow.EntryValueR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy BenchmarkEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor BenchmarkEntry)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor BenchmarkEntry
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BenchmarkEntry Text
-> FieldDescriptor BenchmarkEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens BenchmarkEntry BenchmarkEntry Text Text
-> FieldAccessor BenchmarkEntry 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 s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
              Data.ProtoLens.FieldDescriptor BenchmarkEntry
        iters__field_descriptor :: FieldDescriptor BenchmarkEntry
iters__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor BenchmarkEntry Int64
-> FieldDescriptor BenchmarkEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "iters"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens BenchmarkEntry BenchmarkEntry Int64 Int64
-> FieldAccessor BenchmarkEntry Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "iters" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"iters")) ::
              Data.ProtoLens.FieldDescriptor BenchmarkEntry
        cpuTime__field_descriptor :: FieldDescriptor BenchmarkEntry
cpuTime__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor BenchmarkEntry Double
-> FieldDescriptor BenchmarkEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "cpu_time"
              (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 BenchmarkEntry BenchmarkEntry Double Double
-> FieldAccessor BenchmarkEntry 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 s a (f :: * -> *).
(HasField s "cpuTime" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cpuTime")) ::
              Data.ProtoLens.FieldDescriptor BenchmarkEntry
        wallTime__field_descriptor :: FieldDescriptor BenchmarkEntry
wallTime__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor BenchmarkEntry Double
-> FieldDescriptor BenchmarkEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "wall_time"
              (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 BenchmarkEntry BenchmarkEntry Double Double
-> FieldAccessor BenchmarkEntry 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 s a (f :: * -> *).
(HasField s "wallTime" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"wallTime")) ::
              Data.ProtoLens.FieldDescriptor BenchmarkEntry
        throughput__field_descriptor :: FieldDescriptor BenchmarkEntry
throughput__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor BenchmarkEntry Double
-> FieldDescriptor BenchmarkEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "throughput"
              (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 BenchmarkEntry BenchmarkEntry Double Double
-> FieldAccessor BenchmarkEntry 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 s a (f :: * -> *).
(HasField s "throughput" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"throughput")) ::
              Data.ProtoLens.FieldDescriptor BenchmarkEntry
        extras__field_descriptor :: FieldDescriptor BenchmarkEntry
extras__field_descriptor
          = String
-> FieldTypeDescriptor BenchmarkEntry'ExtrasEntry
-> FieldAccessor BenchmarkEntry BenchmarkEntry'ExtrasEntry
-> FieldDescriptor BenchmarkEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "extras"
              (MessageOrGroup -> FieldTypeDescriptor BenchmarkEntry'ExtrasEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor BenchmarkEntry'ExtrasEntry)
              (Lens' BenchmarkEntry'ExtrasEntry Text
-> Lens' BenchmarkEntry'ExtrasEntry EntryValue
-> Lens
     BenchmarkEntry
     BenchmarkEntry
     (Map Text EntryValue)
     (Map Text EntryValue)
-> FieldAccessor BenchmarkEntry BenchmarkEntry'ExtrasEntry
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 s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall s a (f :: * -> *).
(HasField s "extras" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"extras")) ::
              Data.ProtoLens.FieldDescriptor BenchmarkEntry
        metrics__field_descriptor :: FieldDescriptor BenchmarkEntry
metrics__field_descriptor
          = String
-> FieldTypeDescriptor MetricEntry
-> FieldAccessor BenchmarkEntry MetricEntry
-> FieldDescriptor BenchmarkEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "metrics"
              (MessageOrGroup -> FieldTypeDescriptor MetricEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor MetricEntry)
              (Packing
-> Lens' BenchmarkEntry [MetricEntry]
-> FieldAccessor BenchmarkEntry MetricEntry
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "metrics" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"metrics")) ::
              Data.ProtoLens.FieldDescriptor BenchmarkEntry
      in
        [(Tag, FieldDescriptor BenchmarkEntry)]
-> Map Tag (FieldDescriptor BenchmarkEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor BenchmarkEntry
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor BenchmarkEntry
iters__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor BenchmarkEntry
cpuTime__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor BenchmarkEntry
wallTime__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor BenchmarkEntry
throughput__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor BenchmarkEntry
extras__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor BenchmarkEntry
metrics__field_descriptor)]
  unknownFields :: LensLike' f BenchmarkEntry FieldSet
unknownFields
    = (BenchmarkEntry -> FieldSet)
-> (BenchmarkEntry -> FieldSet -> BenchmarkEntry)
-> Lens' BenchmarkEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        BenchmarkEntry -> FieldSet
_BenchmarkEntry'_unknownFields
        (\ x__ :: BenchmarkEntry
x__ y__ :: FieldSet
y__ -> BenchmarkEntry
x__ {_BenchmarkEntry'_unknownFields :: FieldSet
_BenchmarkEntry'_unknownFields = FieldSet
y__})
  defMessage :: BenchmarkEntry
defMessage
    = $WBenchmarkEntry'_constructor :: Text
-> Int64
-> Double
-> Double
-> Double
-> Map Text EntryValue
-> Vector MetricEntry
-> FieldSet
-> BenchmarkEntry
BenchmarkEntry'_constructor
        {_BenchmarkEntry'name :: Text
_BenchmarkEntry'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BenchmarkEntry'iters :: Int64
_BenchmarkEntry'iters = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BenchmarkEntry'cpuTime :: Double
_BenchmarkEntry'cpuTime = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BenchmarkEntry'wallTime :: Double
_BenchmarkEntry'wallTime = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BenchmarkEntry'throughput :: Double
_BenchmarkEntry'throughput = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BenchmarkEntry'extras :: Map Text EntryValue
_BenchmarkEntry'extras = Map Text EntryValue
forall k a. Map k a
Data.Map.empty,
         _BenchmarkEntry'metrics :: Vector MetricEntry
_BenchmarkEntry'metrics = Vector MetricEntry
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _BenchmarkEntry'_unknownFields :: FieldSet
_BenchmarkEntry'_unknownFields = []}
  parseMessage :: Parser BenchmarkEntry
parseMessage
    = let
        loop ::
          BenchmarkEntry
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld MetricEntry
             -> Data.ProtoLens.Encoding.Bytes.Parser BenchmarkEntry
        loop :: BenchmarkEntry
-> Growing Vector RealWorld MetricEntry -> Parser BenchmarkEntry
loop x :: BenchmarkEntry
x mutable'metrics :: Growing Vector RealWorld MetricEntry
mutable'metrics
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector MetricEntry
frozen'metrics <- IO (Vector MetricEntry) -> Parser (Vector MetricEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Growing Vector (PrimState IO) MetricEntry
-> IO (Vector MetricEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             Growing Vector RealWorld MetricEntry
Growing Vector (PrimState IO) MetricEntry
mutable'metrics)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      BenchmarkEntry -> Parser BenchmarkEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter BenchmarkEntry BenchmarkEntry FieldSet FieldSet
-> (FieldSet -> FieldSet) -> BenchmarkEntry -> BenchmarkEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter BenchmarkEntry BenchmarkEntry FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  BenchmarkEntry
  BenchmarkEntry
  (Vector MetricEntry)
  (Vector MetricEntry)
-> Vector MetricEntry -> BenchmarkEntry -> BenchmarkEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'metrics" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'metrics") Vector MetricEntry
frozen'metrics BenchmarkEntry
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "name"
                                BenchmarkEntry
-> Growing Vector RealWorld MetricEntry -> Parser BenchmarkEntry
loop
                                  (Setter BenchmarkEntry BenchmarkEntry Text Text
-> Text -> BenchmarkEntry -> BenchmarkEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y BenchmarkEntry
x)
                                  Growing Vector RealWorld MetricEntry
mutable'metrics
                        16
                          -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "iters"
                                BenchmarkEntry
-> Growing Vector RealWorld MetricEntry -> Parser BenchmarkEntry
loop
                                  (Setter BenchmarkEntry BenchmarkEntry Int64 Int64
-> Int64 -> BenchmarkEntry -> BenchmarkEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "iters" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"iters") Int64
y BenchmarkEntry
x)
                                  Growing Vector RealWorld MetricEntry
mutable'metrics
                        25
                          -> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       "cpu_time"
                                BenchmarkEntry
-> Growing Vector RealWorld MetricEntry -> Parser BenchmarkEntry
loop
                                  (Setter BenchmarkEntry BenchmarkEntry Double Double
-> Double -> BenchmarkEntry -> BenchmarkEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "cpuTime" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cpuTime") Double
y BenchmarkEntry
x)
                                  Growing Vector RealWorld MetricEntry
mutable'metrics
                        33
                          -> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       "wall_time"
                                BenchmarkEntry
-> Growing Vector RealWorld MetricEntry -> Parser BenchmarkEntry
loop
                                  (Setter BenchmarkEntry BenchmarkEntry Double Double
-> Double -> BenchmarkEntry -> BenchmarkEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "wallTime" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"wallTime") Double
y BenchmarkEntry
x)
                                  Growing Vector RealWorld MetricEntry
mutable'metrics
                        41
                          -> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       "throughput"
                                BenchmarkEntry
-> Growing Vector RealWorld MetricEntry -> Parser BenchmarkEntry
loop
                                  (Setter BenchmarkEntry BenchmarkEntry Double Double
-> Double -> BenchmarkEntry -> BenchmarkEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "throughput" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"throughput") Double
y BenchmarkEntry
x)
                                  Growing Vector RealWorld MetricEntry
mutable'metrics
                        50
                          -> do !(BenchmarkEntry'ExtrasEntry
entry :: BenchmarkEntry'ExtrasEntry) <- Parser BenchmarkEntry'ExtrasEntry
-> String -> Parser BenchmarkEntry'ExtrasEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                            (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                                                Int
-> Parser BenchmarkEntry'ExtrasEntry
-> Parser BenchmarkEntry'ExtrasEntry
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                                                                  (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                                     Word64
len)
                                                                                  Parser BenchmarkEntry'ExtrasEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                                                            "extras"
                                (let
                                   key :: Text
key = FoldLike
  Text
  BenchmarkEntry'ExtrasEntry
  BenchmarkEntry'ExtrasEntry
  Text
  Text
-> BenchmarkEntry'ExtrasEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") BenchmarkEntry'ExtrasEntry
entry
                                   value :: EntryValue
value
                                     = FoldLike
  EntryValue
  BenchmarkEntry'ExtrasEntry
  BenchmarkEntry'ExtrasEntry
  EntryValue
  EntryValue
-> BenchmarkEntry'ExtrasEntry -> EntryValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") BenchmarkEntry'ExtrasEntry
entry
                                 in
                                   BenchmarkEntry
-> Growing Vector RealWorld MetricEntry -> Parser BenchmarkEntry
loop
                                     (Setter
  BenchmarkEntry
  BenchmarkEntry
  (Map Text EntryValue)
  (Map Text EntryValue)
-> (Map Text EntryValue -> Map Text EntryValue)
-> BenchmarkEntry
-> BenchmarkEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                        (forall s a (f :: * -> *).
(HasField s "extras" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"extras")
                                        (\ !Map Text EntryValue
t -> Text -> EntryValue -> Map Text EntryValue -> Map Text EntryValue
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key EntryValue
value Map Text EntryValue
t)
                                        BenchmarkEntry
x)
                                     Growing Vector RealWorld MetricEntry
mutable'metrics)
                        58
                          -> do !MetricEntry
y <- Parser MetricEntry -> String -> Parser MetricEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser MetricEntry -> Parser MetricEntry
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser MetricEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "metrics"
                                Growing Vector RealWorld MetricEntry
v <- IO (Growing Vector RealWorld MetricEntry)
-> Parser (Growing Vector RealWorld MetricEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) MetricEntry
-> MetricEntry -> IO (Growing Vector (PrimState IO) MetricEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld MetricEntry
Growing Vector (PrimState IO) MetricEntry
mutable'metrics MetricEntry
y)
                                BenchmarkEntry
-> Growing Vector RealWorld MetricEntry -> Parser BenchmarkEntry
loop BenchmarkEntry
x Growing Vector RealWorld MetricEntry
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                BenchmarkEntry
-> Growing Vector RealWorld MetricEntry -> Parser BenchmarkEntry
loop
                                  (Setter BenchmarkEntry BenchmarkEntry FieldSet FieldSet
-> (FieldSet -> FieldSet) -> BenchmarkEntry -> BenchmarkEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter BenchmarkEntry BenchmarkEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) BenchmarkEntry
x)
                                  Growing Vector RealWorld MetricEntry
mutable'metrics
      in
        Parser BenchmarkEntry -> String -> Parser BenchmarkEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld MetricEntry
mutable'metrics <- IO (Growing Vector RealWorld MetricEntry)
-> Parser (Growing Vector RealWorld MetricEntry)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld MetricEntry)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              BenchmarkEntry
-> Growing Vector RealWorld MetricEntry -> Parser BenchmarkEntry
loop BenchmarkEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld MetricEntry
mutable'metrics)
          "BenchmarkEntry"
  buildMessage :: BenchmarkEntry -> Builder
buildMessage
    = \ _x :: BenchmarkEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text BenchmarkEntry BenchmarkEntry Text Text
-> BenchmarkEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") BenchmarkEntry
_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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Int64
_v = FoldLike Int64 BenchmarkEntry BenchmarkEntry Int64 Int64
-> BenchmarkEntry -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "iters" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"iters") BenchmarkEntry
_x
                 in
                   if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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 16)
                         ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Double
_v = FoldLike Double BenchmarkEntry BenchmarkEntry Double Double
-> BenchmarkEntry -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "cpuTime" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cpuTime") BenchmarkEntry
_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 25)
                            ((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 BenchmarkEntry BenchmarkEntry Double Double
-> BenchmarkEntry -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "wallTime" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"wallTime") BenchmarkEntry
_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 33)
                               ((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 BenchmarkEntry BenchmarkEntry Double Double
-> BenchmarkEntry -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "throughput" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"throughput") BenchmarkEntry
_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 41)
                                  ((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, EntryValue) -> Builder)
-> [(Text, EntryValue)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                                  (\ _v :: (Text, EntryValue)
_v
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
                                          ((ByteString -> Builder)
-> (BenchmarkEntry'ExtrasEntry -> ByteString)
-> BenchmarkEntry'ExtrasEntry
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                             (\ bs :: ByteString
bs
                                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                           (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                             BenchmarkEntry'ExtrasEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                             (Setter
  BenchmarkEntry'ExtrasEntry BenchmarkEntry'ExtrasEntry Text Text
-> Text -> BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                                                ((Text, EntryValue) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, EntryValue)
_v)
                                                (Setter
  BenchmarkEntry'ExtrasEntry
  BenchmarkEntry'ExtrasEntry
  EntryValue
  EntryValue
-> EntryValue
-> BenchmarkEntry'ExtrasEntry
-> BenchmarkEntry'ExtrasEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                   (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                                                   ((Text, EntryValue) -> EntryValue
forall a b. (a, b) -> b
Prelude.snd (Text, EntryValue)
_v)
                                                   (BenchmarkEntry'ExtrasEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                                      BenchmarkEntry'ExtrasEntry)))))
                                  (Map Text EntryValue -> [(Text, EntryValue)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                                     (FoldLike
  (Map Text EntryValue)
  BenchmarkEntry
  BenchmarkEntry
  (Map Text EntryValue)
  (Map Text EntryValue)
-> BenchmarkEntry -> Map Text EntryValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                        (forall s a (f :: * -> *).
(HasField s "extras" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"extras") BenchmarkEntry
_x))))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               ((MetricEntry -> Builder) -> Vector MetricEntry -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                                  (\ _v :: MetricEntry
_v
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
                                          ((ByteString -> Builder)
-> (MetricEntry -> ByteString) -> MetricEntry -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                             (\ bs :: ByteString
bs
                                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                           (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                             MetricEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                             MetricEntry
_v))
                                  (FoldLike
  (Vector MetricEntry)
  BenchmarkEntry
  BenchmarkEntry
  (Vector MetricEntry)
  (Vector MetricEntry)
-> BenchmarkEntry -> Vector MetricEntry
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                     (forall s a (f :: * -> *).
(HasField s "vec'metrics" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'metrics") BenchmarkEntry
_x))
                               (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                  (FoldLike FieldSet BenchmarkEntry BenchmarkEntry FieldSet FieldSet
-> BenchmarkEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet BenchmarkEntry BenchmarkEntry FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields BenchmarkEntry
_x))))))))
instance Control.DeepSeq.NFData BenchmarkEntry where
  rnf :: BenchmarkEntry -> ()
rnf
    = \ x__ :: BenchmarkEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (BenchmarkEntry -> FieldSet
_BenchmarkEntry'_unknownFields BenchmarkEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (BenchmarkEntry -> Text
_BenchmarkEntry'name BenchmarkEntry
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (BenchmarkEntry -> Int64
_BenchmarkEntry'iters BenchmarkEntry
x__)
                   (Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (BenchmarkEntry -> Double
_BenchmarkEntry'cpuTime BenchmarkEntry
x__)
                      (Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (BenchmarkEntry -> Double
_BenchmarkEntry'wallTime BenchmarkEntry
x__)
                         (Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (BenchmarkEntry -> Double
_BenchmarkEntry'throughput BenchmarkEntry
x__)
                            (Map Text EntryValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (BenchmarkEntry -> Map Text EntryValue
_BenchmarkEntry'extras BenchmarkEntry
x__)
                               (Vector MetricEntry -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (BenchmarkEntry -> Vector MetricEntry
_BenchmarkEntry'metrics BenchmarkEntry
x__) ())))))))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.key' @:: Lens' BenchmarkEntry'ExtrasEntry Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.value' @:: Lens' BenchmarkEntry'ExtrasEntry EntryValue@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'value' @:: Lens' BenchmarkEntry'ExtrasEntry (Prelude.Maybe EntryValue)@ -}
data BenchmarkEntry'ExtrasEntry
  = BenchmarkEntry'ExtrasEntry'_constructor {BenchmarkEntry'ExtrasEntry -> Text
_BenchmarkEntry'ExtrasEntry'key :: !Data.Text.Text,
                                             BenchmarkEntry'ExtrasEntry -> Maybe EntryValue
_BenchmarkEntry'ExtrasEntry'value :: !(Prelude.Maybe EntryValue),
                                             BenchmarkEntry'ExtrasEntry -> FieldSet
_BenchmarkEntry'ExtrasEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry -> Bool
(BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry -> Bool)
-> (BenchmarkEntry'ExtrasEntry
    -> BenchmarkEntry'ExtrasEntry -> Bool)
-> Eq BenchmarkEntry'ExtrasEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry -> Bool
$c/= :: BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry -> Bool
== :: BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry -> Bool
$c== :: BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry -> Bool
Prelude.Eq, Eq BenchmarkEntry'ExtrasEntry
Eq BenchmarkEntry'ExtrasEntry =>
(BenchmarkEntry'ExtrasEntry
 -> BenchmarkEntry'ExtrasEntry -> Ordering)
-> (BenchmarkEntry'ExtrasEntry
    -> BenchmarkEntry'ExtrasEntry -> Bool)
-> (BenchmarkEntry'ExtrasEntry
    -> BenchmarkEntry'ExtrasEntry -> Bool)
-> (BenchmarkEntry'ExtrasEntry
    -> BenchmarkEntry'ExtrasEntry -> Bool)
-> (BenchmarkEntry'ExtrasEntry
    -> BenchmarkEntry'ExtrasEntry -> Bool)
-> (BenchmarkEntry'ExtrasEntry
    -> BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry)
-> (BenchmarkEntry'ExtrasEntry
    -> BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry)
-> Ord BenchmarkEntry'ExtrasEntry
BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry -> Bool
BenchmarkEntry'ExtrasEntry
-> BenchmarkEntry'ExtrasEntry -> Ordering
BenchmarkEntry'ExtrasEntry
-> BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: BenchmarkEntry'ExtrasEntry
-> BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry
$cmin :: BenchmarkEntry'ExtrasEntry
-> BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry
max :: BenchmarkEntry'ExtrasEntry
-> BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry
$cmax :: BenchmarkEntry'ExtrasEntry
-> BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry
>= :: BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry -> Bool
$c>= :: BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry -> Bool
> :: BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry -> Bool
$c> :: BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry -> Bool
<= :: BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry -> Bool
$c<= :: BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry -> Bool
< :: BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry -> Bool
$c< :: BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry -> Bool
compare :: BenchmarkEntry'ExtrasEntry
-> BenchmarkEntry'ExtrasEntry -> Ordering
$ccompare :: BenchmarkEntry'ExtrasEntry
-> BenchmarkEntry'ExtrasEntry -> Ordering
$cp1Ord :: Eq BenchmarkEntry'ExtrasEntry
Prelude.Ord)
instance Prelude.Show BenchmarkEntry'ExtrasEntry where
  showsPrec :: Int -> BenchmarkEntry'ExtrasEntry -> ShowS
showsPrec _ __x :: BenchmarkEntry'ExtrasEntry
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (BenchmarkEntry'ExtrasEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BenchmarkEntry'ExtrasEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField BenchmarkEntry'ExtrasEntry "key" Data.Text.Text where
  fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> BenchmarkEntry'ExtrasEntry
-> f BenchmarkEntry'ExtrasEntry
fieldOf _
    = ((Text -> f Text)
 -> BenchmarkEntry'ExtrasEntry -> f BenchmarkEntry'ExtrasEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BenchmarkEntry'ExtrasEntry
-> f BenchmarkEntry'ExtrasEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BenchmarkEntry'ExtrasEntry -> Text)
-> (BenchmarkEntry'ExtrasEntry
    -> Text -> BenchmarkEntry'ExtrasEntry)
-> Lens' BenchmarkEntry'ExtrasEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BenchmarkEntry'ExtrasEntry -> Text
_BenchmarkEntry'ExtrasEntry'key
           (\ x__ :: BenchmarkEntry'ExtrasEntry
x__ y__ :: Text
y__ -> BenchmarkEntry'ExtrasEntry
x__ {_BenchmarkEntry'ExtrasEntry'key :: Text
_BenchmarkEntry'ExtrasEntry'key = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BenchmarkEntry'ExtrasEntry "value" EntryValue where
  fieldOf :: Proxy# "value"
-> (EntryValue -> f EntryValue)
-> BenchmarkEntry'ExtrasEntry
-> f BenchmarkEntry'ExtrasEntry
fieldOf _
    = ((Maybe EntryValue -> f (Maybe EntryValue))
 -> BenchmarkEntry'ExtrasEntry -> f BenchmarkEntry'ExtrasEntry)
-> ((EntryValue -> f EntryValue)
    -> Maybe EntryValue -> f (Maybe EntryValue))
-> (EntryValue -> f EntryValue)
-> BenchmarkEntry'ExtrasEntry
-> f BenchmarkEntry'ExtrasEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BenchmarkEntry'ExtrasEntry -> Maybe EntryValue)
-> (BenchmarkEntry'ExtrasEntry
    -> Maybe EntryValue -> BenchmarkEntry'ExtrasEntry)
-> Lens
     BenchmarkEntry'ExtrasEntry
     BenchmarkEntry'ExtrasEntry
     (Maybe EntryValue)
     (Maybe EntryValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BenchmarkEntry'ExtrasEntry -> Maybe EntryValue
_BenchmarkEntry'ExtrasEntry'value
           (\ x__ :: BenchmarkEntry'ExtrasEntry
x__ y__ :: Maybe EntryValue
y__ -> BenchmarkEntry'ExtrasEntry
x__ {_BenchmarkEntry'ExtrasEntry'value :: Maybe EntryValue
_BenchmarkEntry'ExtrasEntry'value = Maybe EntryValue
y__}))
        (EntryValue -> Lens' (Maybe EntryValue) EntryValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens EntryValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField BenchmarkEntry'ExtrasEntry "maybe'value" (Prelude.Maybe EntryValue) where
  fieldOf :: Proxy# "maybe'value"
-> (Maybe EntryValue -> f (Maybe EntryValue))
-> BenchmarkEntry'ExtrasEntry
-> f BenchmarkEntry'ExtrasEntry
fieldOf _
    = ((Maybe EntryValue -> f (Maybe EntryValue))
 -> BenchmarkEntry'ExtrasEntry -> f BenchmarkEntry'ExtrasEntry)
-> ((Maybe EntryValue -> f (Maybe EntryValue))
    -> Maybe EntryValue -> f (Maybe EntryValue))
-> (Maybe EntryValue -> f (Maybe EntryValue))
-> BenchmarkEntry'ExtrasEntry
-> f BenchmarkEntry'ExtrasEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BenchmarkEntry'ExtrasEntry -> Maybe EntryValue)
-> (BenchmarkEntry'ExtrasEntry
    -> Maybe EntryValue -> BenchmarkEntry'ExtrasEntry)
-> Lens
     BenchmarkEntry'ExtrasEntry
     BenchmarkEntry'ExtrasEntry
     (Maybe EntryValue)
     (Maybe EntryValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BenchmarkEntry'ExtrasEntry -> Maybe EntryValue
_BenchmarkEntry'ExtrasEntry'value
           (\ x__ :: BenchmarkEntry'ExtrasEntry
x__ y__ :: Maybe EntryValue
y__ -> BenchmarkEntry'ExtrasEntry
x__ {_BenchmarkEntry'ExtrasEntry'value :: Maybe EntryValue
_BenchmarkEntry'ExtrasEntry'value = Maybe EntryValue
y__}))
        (Maybe EntryValue -> f (Maybe EntryValue))
-> Maybe EntryValue -> f (Maybe EntryValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message BenchmarkEntry'ExtrasEntry where
  messageName :: Proxy BenchmarkEntry'ExtrasEntry -> Text
messageName _
    = String -> Text
Data.Text.pack "tensorflow.BenchmarkEntry.ExtrasEntry"
  packedMessageDescriptor :: Proxy BenchmarkEntry'ExtrasEntry -> ByteString
packedMessageDescriptor _
    = "\n\
      \\vExtrasEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2,\n\
      \\ENQvalue\CAN\STX \SOH(\v2\SYN.tensorflow.EntryValueR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy BenchmarkEntry'ExtrasEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor BenchmarkEntry'ExtrasEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor BenchmarkEntry'ExtrasEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BenchmarkEntry'ExtrasEntry Text
-> FieldDescriptor BenchmarkEntry'ExtrasEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "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' BenchmarkEntry'ExtrasEntry Text
-> FieldAccessor BenchmarkEntry'ExtrasEntry 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 s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
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 BenchmarkEntry'ExtrasEntry
        value__field_descriptor :: FieldDescriptor BenchmarkEntry'ExtrasEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor EntryValue
-> FieldAccessor BenchmarkEntry'ExtrasEntry EntryValue
-> FieldDescriptor BenchmarkEntry'ExtrasEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (MessageOrGroup -> FieldTypeDescriptor EntryValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor EntryValue)
              (Lens
  BenchmarkEntry'ExtrasEntry
  BenchmarkEntry'ExtrasEntry
  (Maybe EntryValue)
  (Maybe EntryValue)
-> FieldAccessor BenchmarkEntry'ExtrasEntry EntryValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'value")) ::
              Data.ProtoLens.FieldDescriptor BenchmarkEntry'ExtrasEntry
      in
        [(Tag, FieldDescriptor BenchmarkEntry'ExtrasEntry)]
-> Map Tag (FieldDescriptor BenchmarkEntry'ExtrasEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor BenchmarkEntry'ExtrasEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor BenchmarkEntry'ExtrasEntry
value__field_descriptor)]
  unknownFields :: LensLike' f BenchmarkEntry'ExtrasEntry FieldSet
unknownFields
    = (BenchmarkEntry'ExtrasEntry -> FieldSet)
-> (BenchmarkEntry'ExtrasEntry
    -> FieldSet -> BenchmarkEntry'ExtrasEntry)
-> Lens' BenchmarkEntry'ExtrasEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        BenchmarkEntry'ExtrasEntry -> FieldSet
_BenchmarkEntry'ExtrasEntry'_unknownFields
        (\ x__ :: BenchmarkEntry'ExtrasEntry
x__ y__ :: FieldSet
y__
           -> BenchmarkEntry'ExtrasEntry
x__ {_BenchmarkEntry'ExtrasEntry'_unknownFields :: FieldSet
_BenchmarkEntry'ExtrasEntry'_unknownFields = FieldSet
y__})
  defMessage :: BenchmarkEntry'ExtrasEntry
defMessage
    = $WBenchmarkEntry'ExtrasEntry'_constructor :: Text -> Maybe EntryValue -> FieldSet -> BenchmarkEntry'ExtrasEntry
BenchmarkEntry'ExtrasEntry'_constructor
        {_BenchmarkEntry'ExtrasEntry'key :: Text
_BenchmarkEntry'ExtrasEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BenchmarkEntry'ExtrasEntry'value :: Maybe EntryValue
_BenchmarkEntry'ExtrasEntry'value = Maybe EntryValue
forall a. Maybe a
Prelude.Nothing,
         _BenchmarkEntry'ExtrasEntry'_unknownFields :: FieldSet
_BenchmarkEntry'ExtrasEntry'_unknownFields = []}
  parseMessage :: Parser BenchmarkEntry'ExtrasEntry
parseMessage
    = let
        loop ::
          BenchmarkEntry'ExtrasEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser BenchmarkEntry'ExtrasEntry
        loop :: BenchmarkEntry'ExtrasEntry -> Parser BenchmarkEntry'ExtrasEntry
loop x :: BenchmarkEntry'ExtrasEntry
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      BenchmarkEntry'ExtrasEntry -> Parser BenchmarkEntry'ExtrasEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  BenchmarkEntry'ExtrasEntry
  BenchmarkEntry'ExtrasEntry
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> BenchmarkEntry'ExtrasEntry
-> BenchmarkEntry'ExtrasEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  BenchmarkEntry'ExtrasEntry
  BenchmarkEntry'ExtrasEntry
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) BenchmarkEntry'ExtrasEntry
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "key"
                                BenchmarkEntry'ExtrasEntry -> Parser BenchmarkEntry'ExtrasEntry
loop (Setter
  BenchmarkEntry'ExtrasEntry BenchmarkEntry'ExtrasEntry Text Text
-> Text -> BenchmarkEntry'ExtrasEntry -> BenchmarkEntry'ExtrasEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Text
y BenchmarkEntry'ExtrasEntry
x)
                        18
                          -> do EntryValue
y <- Parser EntryValue -> String -> Parser EntryValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser EntryValue -> Parser EntryValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser EntryValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "value"
                                BenchmarkEntry'ExtrasEntry -> Parser BenchmarkEntry'ExtrasEntry
loop (Setter
  BenchmarkEntry'ExtrasEntry
  BenchmarkEntry'ExtrasEntry
  EntryValue
  EntryValue
-> EntryValue
-> BenchmarkEntry'ExtrasEntry
-> BenchmarkEntry'ExtrasEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") EntryValue
y BenchmarkEntry'ExtrasEntry
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                BenchmarkEntry'ExtrasEntry -> Parser BenchmarkEntry'ExtrasEntry
loop
                                  (Setter
  BenchmarkEntry'ExtrasEntry
  BenchmarkEntry'ExtrasEntry
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> BenchmarkEntry'ExtrasEntry
-> BenchmarkEntry'ExtrasEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  BenchmarkEntry'ExtrasEntry
  BenchmarkEntry'ExtrasEntry
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) BenchmarkEntry'ExtrasEntry
x)
      in
        Parser BenchmarkEntry'ExtrasEntry
-> String -> Parser BenchmarkEntry'ExtrasEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do BenchmarkEntry'ExtrasEntry -> Parser BenchmarkEntry'ExtrasEntry
loop BenchmarkEntry'ExtrasEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "ExtrasEntry"
  buildMessage :: BenchmarkEntry'ExtrasEntry -> Builder
buildMessage
    = \ _x :: BenchmarkEntry'ExtrasEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  BenchmarkEntry'ExtrasEntry
  BenchmarkEntry'ExtrasEntry
  Text
  Text
-> BenchmarkEntry'ExtrasEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") BenchmarkEntry'ExtrasEntry
_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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe EntryValue)
  BenchmarkEntry'ExtrasEntry
  BenchmarkEntry'ExtrasEntry
  (Maybe EntryValue)
  (Maybe EntryValue)
-> BenchmarkEntry'ExtrasEntry -> Maybe EntryValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'value") BenchmarkEntry'ExtrasEntry
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: EntryValue
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (EntryValue -> ByteString) -> EntryValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             EntryValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             EntryValue
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  BenchmarkEntry'ExtrasEntry
  BenchmarkEntry'ExtrasEntry
  FieldSet
  FieldSet
-> BenchmarkEntry'ExtrasEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  BenchmarkEntry'ExtrasEntry
  BenchmarkEntry'ExtrasEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields BenchmarkEntry'ExtrasEntry
_x)))
instance Control.DeepSeq.NFData BenchmarkEntry'ExtrasEntry where
  rnf :: BenchmarkEntry'ExtrasEntry -> ()
rnf
    = \ x__ :: BenchmarkEntry'ExtrasEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (BenchmarkEntry'ExtrasEntry -> FieldSet
_BenchmarkEntry'ExtrasEntry'_unknownFields BenchmarkEntry'ExtrasEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (BenchmarkEntry'ExtrasEntry -> Text
_BenchmarkEntry'ExtrasEntry'key BenchmarkEntry'ExtrasEntry
x__)
                (Maybe EntryValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (BenchmarkEntry'ExtrasEntry -> Maybe EntryValue
_BenchmarkEntry'ExtrasEntry'value BenchmarkEntry'ExtrasEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.mode' @:: Lens' BuildConfiguration Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.ccFlags' @:: Lens' BuildConfiguration [Data.Text.Text]@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.vec'ccFlags' @:: Lens' BuildConfiguration (Data.Vector.Vector Data.Text.Text)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.opts' @:: Lens' BuildConfiguration [Data.Text.Text]@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.vec'opts' @:: Lens' BuildConfiguration (Data.Vector.Vector Data.Text.Text)@ -}
data BuildConfiguration
  = BuildConfiguration'_constructor {BuildConfiguration -> Text
_BuildConfiguration'mode :: !Data.Text.Text,
                                     BuildConfiguration -> Vector Text
_BuildConfiguration'ccFlags :: !(Data.Vector.Vector Data.Text.Text),
                                     BuildConfiguration -> Vector Text
_BuildConfiguration'opts :: !(Data.Vector.Vector Data.Text.Text),
                                     BuildConfiguration -> FieldSet
_BuildConfiguration'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (BuildConfiguration -> BuildConfiguration -> Bool
(BuildConfiguration -> BuildConfiguration -> Bool)
-> (BuildConfiguration -> BuildConfiguration -> Bool)
-> Eq BuildConfiguration
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BuildConfiguration -> BuildConfiguration -> Bool
$c/= :: BuildConfiguration -> BuildConfiguration -> Bool
== :: BuildConfiguration -> BuildConfiguration -> Bool
$c== :: BuildConfiguration -> BuildConfiguration -> Bool
Prelude.Eq, Eq BuildConfiguration
Eq BuildConfiguration =>
(BuildConfiguration -> BuildConfiguration -> Ordering)
-> (BuildConfiguration -> BuildConfiguration -> Bool)
-> (BuildConfiguration -> BuildConfiguration -> Bool)
-> (BuildConfiguration -> BuildConfiguration -> Bool)
-> (BuildConfiguration -> BuildConfiguration -> Bool)
-> (BuildConfiguration -> BuildConfiguration -> BuildConfiguration)
-> (BuildConfiguration -> BuildConfiguration -> BuildConfiguration)
-> Ord BuildConfiguration
BuildConfiguration -> BuildConfiguration -> Bool
BuildConfiguration -> BuildConfiguration -> Ordering
BuildConfiguration -> BuildConfiguration -> BuildConfiguration
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: BuildConfiguration -> BuildConfiguration -> BuildConfiguration
$cmin :: BuildConfiguration -> BuildConfiguration -> BuildConfiguration
max :: BuildConfiguration -> BuildConfiguration -> BuildConfiguration
$cmax :: BuildConfiguration -> BuildConfiguration -> BuildConfiguration
>= :: BuildConfiguration -> BuildConfiguration -> Bool
$c>= :: BuildConfiguration -> BuildConfiguration -> Bool
> :: BuildConfiguration -> BuildConfiguration -> Bool
$c> :: BuildConfiguration -> BuildConfiguration -> Bool
<= :: BuildConfiguration -> BuildConfiguration -> Bool
$c<= :: BuildConfiguration -> BuildConfiguration -> Bool
< :: BuildConfiguration -> BuildConfiguration -> Bool
$c< :: BuildConfiguration -> BuildConfiguration -> Bool
compare :: BuildConfiguration -> BuildConfiguration -> Ordering
$ccompare :: BuildConfiguration -> BuildConfiguration -> Ordering
$cp1Ord :: Eq BuildConfiguration
Prelude.Ord)
instance Prelude.Show BuildConfiguration where
  showsPrec :: Int -> BuildConfiguration -> ShowS
showsPrec _ __x :: BuildConfiguration
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (BuildConfiguration -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort BuildConfiguration
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField BuildConfiguration "mode" Data.Text.Text where
  fieldOf :: Proxy# "mode"
-> (Text -> f Text) -> BuildConfiguration -> f BuildConfiguration
fieldOf _
    = ((Text -> f Text) -> BuildConfiguration -> f BuildConfiguration)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> BuildConfiguration
-> f BuildConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BuildConfiguration -> Text)
-> (BuildConfiguration -> Text -> BuildConfiguration)
-> Lens BuildConfiguration BuildConfiguration Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BuildConfiguration -> Text
_BuildConfiguration'mode
           (\ x__ :: BuildConfiguration
x__ y__ :: Text
y__ -> BuildConfiguration
x__ {_BuildConfiguration'mode :: Text
_BuildConfiguration'mode = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BuildConfiguration "ccFlags" [Data.Text.Text] where
  fieldOf :: Proxy# "ccFlags"
-> ([Text] -> f [Text])
-> BuildConfiguration
-> f BuildConfiguration
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> BuildConfiguration -> f BuildConfiguration)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> BuildConfiguration
-> f BuildConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BuildConfiguration -> Vector Text)
-> (BuildConfiguration -> Vector Text -> BuildConfiguration)
-> Lens
     BuildConfiguration BuildConfiguration (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BuildConfiguration -> Vector Text
_BuildConfiguration'ccFlags
           (\ x__ :: BuildConfiguration
x__ y__ :: Vector Text
y__ -> BuildConfiguration
x__ {_BuildConfiguration'ccFlags :: Vector Text
_BuildConfiguration'ccFlags = Vector Text
y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField BuildConfiguration "vec'ccFlags" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: Proxy# "vec'ccFlags"
-> (Vector Text -> f (Vector Text))
-> BuildConfiguration
-> f BuildConfiguration
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> BuildConfiguration -> f BuildConfiguration)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> BuildConfiguration
-> f BuildConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BuildConfiguration -> Vector Text)
-> (BuildConfiguration -> Vector Text -> BuildConfiguration)
-> Lens
     BuildConfiguration BuildConfiguration (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BuildConfiguration -> Vector Text
_BuildConfiguration'ccFlags
           (\ x__ :: BuildConfiguration
x__ y__ :: Vector Text
y__ -> BuildConfiguration
x__ {_BuildConfiguration'ccFlags :: Vector Text
_BuildConfiguration'ccFlags = Vector Text
y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField BuildConfiguration "opts" [Data.Text.Text] where
  fieldOf :: Proxy# "opts"
-> ([Text] -> f [Text])
-> BuildConfiguration
-> f BuildConfiguration
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> BuildConfiguration -> f BuildConfiguration)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> BuildConfiguration
-> f BuildConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BuildConfiguration -> Vector Text)
-> (BuildConfiguration -> Vector Text -> BuildConfiguration)
-> Lens
     BuildConfiguration BuildConfiguration (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BuildConfiguration -> Vector Text
_BuildConfiguration'opts
           (\ x__ :: BuildConfiguration
x__ y__ :: Vector Text
y__ -> BuildConfiguration
x__ {_BuildConfiguration'opts :: Vector Text
_BuildConfiguration'opts = Vector Text
y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField BuildConfiguration "vec'opts" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: Proxy# "vec'opts"
-> (Vector Text -> f (Vector Text))
-> BuildConfiguration
-> f BuildConfiguration
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> BuildConfiguration -> f BuildConfiguration)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> BuildConfiguration
-> f BuildConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((BuildConfiguration -> Vector Text)
-> (BuildConfiguration -> Vector Text -> BuildConfiguration)
-> Lens
     BuildConfiguration BuildConfiguration (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           BuildConfiguration -> Vector Text
_BuildConfiguration'opts
           (\ x__ :: BuildConfiguration
x__ y__ :: Vector Text
y__ -> BuildConfiguration
x__ {_BuildConfiguration'opts :: Vector Text
_BuildConfiguration'opts = Vector Text
y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message BuildConfiguration where
  messageName :: Proxy BuildConfiguration -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.BuildConfiguration"
  packedMessageDescriptor :: Proxy BuildConfiguration -> ByteString
packedMessageDescriptor _
    = "\n\
      \\DC2BuildConfiguration\DC2\DC2\n\
      \\EOTmode\CAN\SOH \SOH(\tR\EOTmode\DC2\EM\n\
      \\bcc_flags\CAN\STX \ETX(\tR\accFlags\DC2\DC2\n\
      \\EOTopts\CAN\ETX \ETX(\tR\EOTopts"
  packedFileDescriptor :: Proxy BuildConfiguration -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor BuildConfiguration)
fieldsByTag
    = let
        mode__field_descriptor :: FieldDescriptor BuildConfiguration
mode__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BuildConfiguration Text
-> FieldDescriptor BuildConfiguration
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "mode"
              (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 BuildConfiguration BuildConfiguration Text Text
-> FieldAccessor BuildConfiguration 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 s a (f :: * -> *).
(HasField s "mode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"mode")) ::
              Data.ProtoLens.FieldDescriptor BuildConfiguration
        ccFlags__field_descriptor :: FieldDescriptor BuildConfiguration
ccFlags__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BuildConfiguration Text
-> FieldDescriptor BuildConfiguration
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "cc_flags"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing
-> Lens' BuildConfiguration [Text]
-> FieldAccessor BuildConfiguration Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "ccFlags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ccFlags")) ::
              Data.ProtoLens.FieldDescriptor BuildConfiguration
        opts__field_descriptor :: FieldDescriptor BuildConfiguration
opts__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor BuildConfiguration Text
-> FieldDescriptor BuildConfiguration
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "opts"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing
-> Lens' BuildConfiguration [Text]
-> FieldAccessor BuildConfiguration Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "opts" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"opts")) ::
              Data.ProtoLens.FieldDescriptor BuildConfiguration
      in
        [(Tag, FieldDescriptor BuildConfiguration)]
-> Map Tag (FieldDescriptor BuildConfiguration)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor BuildConfiguration
mode__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor BuildConfiguration
ccFlags__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor BuildConfiguration
opts__field_descriptor)]
  unknownFields :: LensLike' f BuildConfiguration FieldSet
unknownFields
    = (BuildConfiguration -> FieldSet)
-> (BuildConfiguration -> FieldSet -> BuildConfiguration)
-> Lens' BuildConfiguration FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        BuildConfiguration -> FieldSet
_BuildConfiguration'_unknownFields
        (\ x__ :: BuildConfiguration
x__ y__ :: FieldSet
y__ -> BuildConfiguration
x__ {_BuildConfiguration'_unknownFields :: FieldSet
_BuildConfiguration'_unknownFields = FieldSet
y__})
  defMessage :: BuildConfiguration
defMessage
    = $WBuildConfiguration'_constructor :: Text
-> Vector Text -> Vector Text -> FieldSet -> BuildConfiguration
BuildConfiguration'_constructor
        {_BuildConfiguration'mode :: Text
_BuildConfiguration'mode = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _BuildConfiguration'ccFlags :: Vector Text
_BuildConfiguration'ccFlags = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _BuildConfiguration'opts :: Vector Text
_BuildConfiguration'opts = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _BuildConfiguration'_unknownFields :: FieldSet
_BuildConfiguration'_unknownFields = []}
  parseMessage :: Parser BuildConfiguration
parseMessage
    = let
        loop ::
          BuildConfiguration
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
                -> Data.ProtoLens.Encoding.Bytes.Parser BuildConfiguration
        loop :: BuildConfiguration
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Parser BuildConfiguration
loop x :: BuildConfiguration
x mutable'ccFlags :: Growing Vector RealWorld Text
mutable'ccFlags mutable'opts :: Growing Vector RealWorld Text
mutable'opts
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Text
frozen'ccFlags <- IO (Vector Text) -> Parser (Vector Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                          (Growing Vector (PrimState IO) Text -> IO (Vector Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                             Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'ccFlags)
                      Vector Text
frozen'opts <- IO (Vector Text) -> Parser (Vector Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Text -> IO (Vector Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'opts)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      BuildConfiguration -> Parser BuildConfiguration
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter BuildConfiguration BuildConfiguration FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> BuildConfiguration
-> BuildConfiguration
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter BuildConfiguration BuildConfiguration FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  BuildConfiguration BuildConfiguration (Vector Text) (Vector Text)
-> Vector Text -> BuildConfiguration -> BuildConfiguration
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'ccFlags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'ccFlags")
                              Vector Text
frozen'ccFlags
                              (Setter
  BuildConfiguration BuildConfiguration (Vector Text) (Vector Text)
-> Vector Text -> BuildConfiguration -> BuildConfiguration
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                 (forall s a (f :: * -> *).
(HasField s "vec'opts" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'opts") Vector Text
frozen'opts BuildConfiguration
x)))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "mode"
                                BuildConfiguration
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Parser BuildConfiguration
loop
                                  (Setter BuildConfiguration BuildConfiguration Text Text
-> Text -> BuildConfiguration -> BuildConfiguration
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "mode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"mode") Text
y BuildConfiguration
x)
                                  Growing Vector RealWorld Text
mutable'ccFlags
                                  Growing Vector RealWorld Text
mutable'opts
                        18
                          -> do !Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                        Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                            Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                              (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                 (Prelude.Left err :: UnicodeException
err)
                                                   -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                 (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                        "cc_flags"
                                Growing Vector RealWorld Text
v <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Text
-> Text -> IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'ccFlags Text
y)
                                BuildConfiguration
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Parser BuildConfiguration
loop BuildConfiguration
x Growing Vector RealWorld Text
v Growing Vector RealWorld Text
mutable'opts
                        26
                          -> do !Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                        Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                            Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                              (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                 (Prelude.Left err :: UnicodeException
err)
                                                   -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                 (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                        "opts"
                                Growing Vector RealWorld Text
v <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Text
-> Text -> IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'opts Text
y)
                                BuildConfiguration
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Parser BuildConfiguration
loop BuildConfiguration
x Growing Vector RealWorld Text
mutable'ccFlags Growing Vector RealWorld Text
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                BuildConfiguration
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Parser BuildConfiguration
loop
                                  (Setter BuildConfiguration BuildConfiguration FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> BuildConfiguration
-> BuildConfiguration
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter BuildConfiguration BuildConfiguration FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) BuildConfiguration
x)
                                  Growing Vector RealWorld Text
mutable'ccFlags
                                  Growing Vector RealWorld Text
mutable'opts
      in
        Parser BuildConfiguration -> String -> Parser BuildConfiguration
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Text
mutable'ccFlags <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                   IO (Growing Vector RealWorld Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld Text
mutable'opts <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                IO (Growing Vector RealWorld Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              BuildConfiguration
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Parser BuildConfiguration
loop BuildConfiguration
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Text
mutable'ccFlags Growing Vector RealWorld Text
mutable'opts)
          "BuildConfiguration"
  buildMessage :: BuildConfiguration -> Builder
buildMessage
    = \ _x :: BuildConfiguration
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text BuildConfiguration BuildConfiguration Text Text
-> BuildConfiguration -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "mode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"mode") BuildConfiguration
_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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                   (\ _v :: Text
_v
                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                           ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                              (\ bs :: ByteString
bs
                                 -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                         (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                      (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                              Text -> ByteString
Data.Text.Encoding.encodeUtf8
                              Text
_v))
                   (FoldLike
  (Vector Text)
  BuildConfiguration
  BuildConfiguration
  (Vector Text)
  (Vector Text)
-> BuildConfiguration -> Vector Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'ccFlags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'ccFlags") BuildConfiguration
_x))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                      (\ _v :: Text
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                              ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                 (\ bs :: ByteString
bs
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                            (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                         (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                 Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                 Text
_v))
                      (FoldLike
  (Vector Text)
  BuildConfiguration
  BuildConfiguration
  (Vector Text)
  (Vector Text)
-> BuildConfiguration -> Vector Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'opts" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'opts") BuildConfiguration
_x))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike
  FieldSet BuildConfiguration BuildConfiguration FieldSet FieldSet
-> BuildConfiguration -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet BuildConfiguration BuildConfiguration FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields BuildConfiguration
_x))))
instance Control.DeepSeq.NFData BuildConfiguration where
  rnf :: BuildConfiguration -> ()
rnf
    = \ x__ :: BuildConfiguration
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (BuildConfiguration -> FieldSet
_BuildConfiguration'_unknownFields BuildConfiguration
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (BuildConfiguration -> Text
_BuildConfiguration'mode BuildConfiguration
x__)
                (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (BuildConfiguration -> Vector Text
_BuildConfiguration'ccFlags BuildConfiguration
x__)
                   (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (BuildConfiguration -> Vector Text
_BuildConfiguration'opts BuildConfiguration
x__) ())))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.numCores' @:: Lens' CPUInfo Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.numCoresAllowed' @:: Lens' CPUInfo Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.mhzPerCpu' @:: Lens' CPUInfo Prelude.Double@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.cpuInfo' @:: Lens' CPUInfo Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.cpuGovernor' @:: Lens' CPUInfo Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.cacheSize' @:: Lens' CPUInfo (Data.Map.Map Data.Text.Text Data.Int.Int64)@ -}
data CPUInfo
  = CPUInfo'_constructor {CPUInfo -> Int64
_CPUInfo'numCores :: !Data.Int.Int64,
                          CPUInfo -> Int64
_CPUInfo'numCoresAllowed :: !Data.Int.Int64,
                          CPUInfo -> Double
_CPUInfo'mhzPerCpu :: !Prelude.Double,
                          CPUInfo -> Text
_CPUInfo'cpuInfo :: !Data.Text.Text,
                          CPUInfo -> Text
_CPUInfo'cpuGovernor :: !Data.Text.Text,
                          CPUInfo -> Map Text Int64
_CPUInfo'cacheSize :: !(Data.Map.Map Data.Text.Text Data.Int.Int64),
                          CPUInfo -> FieldSet
_CPUInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CPUInfo -> CPUInfo -> Bool
(CPUInfo -> CPUInfo -> Bool)
-> (CPUInfo -> CPUInfo -> Bool) -> Eq CPUInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CPUInfo -> CPUInfo -> Bool
$c/= :: CPUInfo -> CPUInfo -> Bool
== :: CPUInfo -> CPUInfo -> Bool
$c== :: CPUInfo -> CPUInfo -> Bool
Prelude.Eq, Eq CPUInfo
Eq CPUInfo =>
(CPUInfo -> CPUInfo -> Ordering)
-> (CPUInfo -> CPUInfo -> Bool)
-> (CPUInfo -> CPUInfo -> Bool)
-> (CPUInfo -> CPUInfo -> Bool)
-> (CPUInfo -> CPUInfo -> Bool)
-> (CPUInfo -> CPUInfo -> CPUInfo)
-> (CPUInfo -> CPUInfo -> CPUInfo)
-> Ord CPUInfo
CPUInfo -> CPUInfo -> Bool
CPUInfo -> CPUInfo -> Ordering
CPUInfo -> CPUInfo -> CPUInfo
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: CPUInfo -> CPUInfo -> CPUInfo
$cmin :: CPUInfo -> CPUInfo -> CPUInfo
max :: CPUInfo -> CPUInfo -> CPUInfo
$cmax :: CPUInfo -> CPUInfo -> CPUInfo
>= :: CPUInfo -> CPUInfo -> Bool
$c>= :: CPUInfo -> CPUInfo -> Bool
> :: CPUInfo -> CPUInfo -> Bool
$c> :: CPUInfo -> CPUInfo -> Bool
<= :: CPUInfo -> CPUInfo -> Bool
$c<= :: CPUInfo -> CPUInfo -> Bool
< :: CPUInfo -> CPUInfo -> Bool
$c< :: CPUInfo -> CPUInfo -> Bool
compare :: CPUInfo -> CPUInfo -> Ordering
$ccompare :: CPUInfo -> CPUInfo -> Ordering
$cp1Ord :: Eq CPUInfo
Prelude.Ord)
instance Prelude.Show CPUInfo where
  showsPrec :: Int -> CPUInfo -> ShowS
showsPrec _ __x :: CPUInfo
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (CPUInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CPUInfo
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CPUInfo "numCores" Data.Int.Int64 where
  fieldOf :: Proxy# "numCores" -> (Int64 -> f Int64) -> CPUInfo -> f CPUInfo
fieldOf _
    = ((Int64 -> f Int64) -> CPUInfo -> f CPUInfo)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> CPUInfo
-> f CPUInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CPUInfo -> Int64)
-> (CPUInfo -> Int64 -> CPUInfo)
-> Lens CPUInfo CPUInfo Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CPUInfo -> Int64
_CPUInfo'numCores (\ x__ :: CPUInfo
x__ y__ :: Int64
y__ -> CPUInfo
x__ {_CPUInfo'numCores :: Int64
_CPUInfo'numCores = Int64
y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CPUInfo "numCoresAllowed" Data.Int.Int64 where
  fieldOf :: Proxy# "numCoresAllowed"
-> (Int64 -> f Int64) -> CPUInfo -> f CPUInfo
fieldOf _
    = ((Int64 -> f Int64) -> CPUInfo -> f CPUInfo)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> CPUInfo
-> f CPUInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CPUInfo -> Int64)
-> (CPUInfo -> Int64 -> CPUInfo)
-> Lens CPUInfo CPUInfo Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CPUInfo -> Int64
_CPUInfo'numCoresAllowed
           (\ x__ :: CPUInfo
x__ y__ :: Int64
y__ -> CPUInfo
x__ {_CPUInfo'numCoresAllowed :: Int64
_CPUInfo'numCoresAllowed = Int64
y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CPUInfo "mhzPerCpu" Prelude.Double where
  fieldOf :: Proxy# "mhzPerCpu" -> (Double -> f Double) -> CPUInfo -> f CPUInfo
fieldOf _
    = ((Double -> f Double) -> CPUInfo -> f CPUInfo)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> CPUInfo
-> f CPUInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CPUInfo -> Double)
-> (CPUInfo -> Double -> CPUInfo)
-> Lens CPUInfo CPUInfo Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CPUInfo -> Double
_CPUInfo'mhzPerCpu (\ x__ :: CPUInfo
x__ y__ :: Double
y__ -> CPUInfo
x__ {_CPUInfo'mhzPerCpu :: Double
_CPUInfo'mhzPerCpu = Double
y__}))
        (Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CPUInfo "cpuInfo" Data.Text.Text where
  fieldOf :: Proxy# "cpuInfo" -> (Text -> f Text) -> CPUInfo -> f CPUInfo
fieldOf _
    = ((Text -> f Text) -> CPUInfo -> f CPUInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CPUInfo
-> f CPUInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CPUInfo -> Text)
-> (CPUInfo -> Text -> CPUInfo) -> Lens CPUInfo CPUInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CPUInfo -> Text
_CPUInfo'cpuInfo (\ x__ :: CPUInfo
x__ y__ :: Text
y__ -> CPUInfo
x__ {_CPUInfo'cpuInfo :: Text
_CPUInfo'cpuInfo = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CPUInfo "cpuGovernor" Data.Text.Text where
  fieldOf :: Proxy# "cpuGovernor" -> (Text -> f Text) -> CPUInfo -> f CPUInfo
fieldOf _
    = ((Text -> f Text) -> CPUInfo -> f CPUInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CPUInfo
-> f CPUInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CPUInfo -> Text)
-> (CPUInfo -> Text -> CPUInfo) -> Lens CPUInfo CPUInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CPUInfo -> Text
_CPUInfo'cpuGovernor
           (\ x__ :: CPUInfo
x__ y__ :: Text
y__ -> CPUInfo
x__ {_CPUInfo'cpuGovernor :: Text
_CPUInfo'cpuGovernor = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CPUInfo "cacheSize" (Data.Map.Map Data.Text.Text Data.Int.Int64) where
  fieldOf :: Proxy# "cacheSize"
-> (Map Text Int64 -> f (Map Text Int64)) -> CPUInfo -> f CPUInfo
fieldOf _
    = ((Map Text Int64 -> f (Map Text Int64)) -> CPUInfo -> f CPUInfo)
-> ((Map Text Int64 -> f (Map Text Int64))
    -> Map Text Int64 -> f (Map Text Int64))
-> (Map Text Int64 -> f (Map Text Int64))
-> CPUInfo
-> f CPUInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CPUInfo -> Map Text Int64)
-> (CPUInfo -> Map Text Int64 -> CPUInfo)
-> Lens CPUInfo CPUInfo (Map Text Int64) (Map Text Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CPUInfo -> Map Text Int64
_CPUInfo'cacheSize (\ x__ :: CPUInfo
x__ y__ :: Map Text Int64
y__ -> CPUInfo
x__ {_CPUInfo'cacheSize :: Map Text Int64
_CPUInfo'cacheSize = Map Text Int64
y__}))
        (Map Text Int64 -> f (Map Text Int64))
-> Map Text Int64 -> f (Map Text Int64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CPUInfo where
  messageName :: Proxy CPUInfo -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CPUInfo"
  packedMessageDescriptor :: Proxy CPUInfo -> ByteString
packedMessageDescriptor _
    = "\n\
      \\aCPUInfo\DC2\ESC\n\
      \\tnum_cores\CAN\SOH \SOH(\ETXR\bnumCores\DC2*\n\
      \\DC1num_cores_allowed\CAN\STX \SOH(\ETXR\SInumCoresAllowed\DC2\RS\n\
      \\vmhz_per_cpu\CAN\ETX \SOH(\SOHR\tmhzPerCpu\DC2\EM\n\
      \\bcpu_info\CAN\EOT \SOH(\tR\acpuInfo\DC2!\n\
      \\fcpu_governor\CAN\ENQ \SOH(\tR\vcpuGovernor\DC2A\n\
      \\n\
      \cache_size\CAN\ACK \ETX(\v2\".tensorflow.CPUInfo.CacheSizeEntryR\tcacheSize\SUB<\n\
      \\SOCacheSizeEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\ETXR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy CPUInfo -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CPUInfo)
fieldsByTag
    = let
        numCores__field_descriptor :: FieldDescriptor CPUInfo
numCores__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor CPUInfo Int64
-> FieldDescriptor CPUInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "num_cores"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens CPUInfo CPUInfo Int64 Int64 -> FieldAccessor CPUInfo Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "numCores" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numCores")) ::
              Data.ProtoLens.FieldDescriptor CPUInfo
        numCoresAllowed__field_descriptor :: FieldDescriptor CPUInfo
numCoresAllowed__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor CPUInfo Int64
-> FieldDescriptor CPUInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "num_cores_allowed"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens CPUInfo CPUInfo Int64 Int64 -> FieldAccessor CPUInfo Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "numCoresAllowed" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numCoresAllowed")) ::
              Data.ProtoLens.FieldDescriptor CPUInfo
        mhzPerCpu__field_descriptor :: FieldDescriptor CPUInfo
mhzPerCpu__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor CPUInfo Double
-> FieldDescriptor CPUInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "mhz_per_cpu"
              (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 CPUInfo CPUInfo Double Double
-> FieldAccessor CPUInfo 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 s a (f :: * -> *).
(HasField s "mhzPerCpu" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"mhzPerCpu")) ::
              Data.ProtoLens.FieldDescriptor CPUInfo
        cpuInfo__field_descriptor :: FieldDescriptor CPUInfo
cpuInfo__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor CPUInfo Text
-> FieldDescriptor CPUInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "cpu_info"
              (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 CPUInfo CPUInfo Text Text -> FieldAccessor CPUInfo 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 s a (f :: * -> *).
(HasField s "cpuInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cpuInfo")) ::
              Data.ProtoLens.FieldDescriptor CPUInfo
        cpuGovernor__field_descriptor :: FieldDescriptor CPUInfo
cpuGovernor__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor CPUInfo Text
-> FieldDescriptor CPUInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "cpu_governor"
              (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 CPUInfo CPUInfo Text Text -> FieldAccessor CPUInfo 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 s a (f :: * -> *).
(HasField s "cpuGovernor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cpuGovernor")) ::
              Data.ProtoLens.FieldDescriptor CPUInfo
        cacheSize__field_descriptor :: FieldDescriptor CPUInfo
cacheSize__field_descriptor
          = String
-> FieldTypeDescriptor CPUInfo'CacheSizeEntry
-> FieldAccessor CPUInfo CPUInfo'CacheSizeEntry
-> FieldDescriptor CPUInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "cache_size"
              (MessageOrGroup -> FieldTypeDescriptor CPUInfo'CacheSizeEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CPUInfo'CacheSizeEntry)
              (Lens' CPUInfo'CacheSizeEntry Text
-> Lens' CPUInfo'CacheSizeEntry Int64
-> Lens CPUInfo CPUInfo (Map Text Int64) (Map Text Int64)
-> FieldAccessor CPUInfo CPUInfo'CacheSizeEntry
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 s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall s a (f :: * -> *).
(HasField s "cacheSize" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cacheSize")) ::
              Data.ProtoLens.FieldDescriptor CPUInfo
      in
        [(Tag, FieldDescriptor CPUInfo)]
-> Map Tag (FieldDescriptor CPUInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CPUInfo
numCores__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor CPUInfo
numCoresAllowed__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor CPUInfo
mhzPerCpu__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor CPUInfo
cpuInfo__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor CPUInfo
cpuGovernor__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor CPUInfo
cacheSize__field_descriptor)]
  unknownFields :: LensLike' f CPUInfo FieldSet
unknownFields
    = (CPUInfo -> FieldSet)
-> (CPUInfo -> FieldSet -> CPUInfo) -> Lens' CPUInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CPUInfo -> FieldSet
_CPUInfo'_unknownFields
        (\ x__ :: CPUInfo
x__ y__ :: FieldSet
y__ -> CPUInfo
x__ {_CPUInfo'_unknownFields :: FieldSet
_CPUInfo'_unknownFields = FieldSet
y__})
  defMessage :: CPUInfo
defMessage
    = $WCPUInfo'_constructor :: Int64
-> Int64
-> Double
-> Text
-> Text
-> Map Text Int64
-> FieldSet
-> CPUInfo
CPUInfo'_constructor
        {_CPUInfo'numCores :: Int64
_CPUInfo'numCores = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _CPUInfo'numCoresAllowed :: Int64
_CPUInfo'numCoresAllowed = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _CPUInfo'mhzPerCpu :: Double
_CPUInfo'mhzPerCpu = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _CPUInfo'cpuInfo :: Text
_CPUInfo'cpuInfo = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _CPUInfo'cpuGovernor :: Text
_CPUInfo'cpuGovernor = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _CPUInfo'cacheSize :: Map Text Int64
_CPUInfo'cacheSize = Map Text Int64
forall k a. Map k a
Data.Map.empty, _CPUInfo'_unknownFields :: FieldSet
_CPUInfo'_unknownFields = []}
  parseMessage :: Parser CPUInfo
parseMessage
    = let
        loop :: CPUInfo -> Data.ProtoLens.Encoding.Bytes.Parser CPUInfo
        loop :: CPUInfo -> Parser CPUInfo
loop x :: CPUInfo
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      CPUInfo -> Parser CPUInfo
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter CPUInfo CPUInfo FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CPUInfo -> CPUInfo
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter CPUInfo CPUInfo FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) CPUInfo
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "num_cores"
                                CPUInfo -> Parser CPUInfo
loop
                                  (Setter CPUInfo CPUInfo Int64 Int64 -> Int64 -> CPUInfo -> CPUInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "numCores" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numCores") Int64
y CPUInfo
x)
                        16
                          -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "num_cores_allowed"
                                CPUInfo -> Parser CPUInfo
loop
                                  (Setter CPUInfo CPUInfo Int64 Int64 -> Int64 -> CPUInfo -> CPUInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "numCoresAllowed" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numCoresAllowed") Int64
y CPUInfo
x)
                        25
                          -> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       "mhz_per_cpu"
                                CPUInfo -> Parser CPUInfo
loop
                                  (Setter CPUInfo CPUInfo Double Double
-> Double -> CPUInfo -> CPUInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "mhzPerCpu" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"mhzPerCpu") Double
y CPUInfo
x)
                        34
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "cpu_info"
                                CPUInfo -> Parser CPUInfo
loop (Setter CPUInfo CPUInfo Text Text -> Text -> CPUInfo -> CPUInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "cpuInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cpuInfo") Text
y CPUInfo
x)
                        42
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "cpu_governor"
                                CPUInfo -> Parser CPUInfo
loop
                                  (Setter CPUInfo CPUInfo Text Text -> Text -> CPUInfo -> CPUInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "cpuGovernor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cpuGovernor") Text
y CPUInfo
x)
                        50
                          -> do !(CPUInfo'CacheSizeEntry
entry :: CPUInfo'CacheSizeEntry) <- Parser CPUInfo'CacheSizeEntry
-> String -> Parser CPUInfo'CacheSizeEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                                            Int
-> Parser CPUInfo'CacheSizeEntry -> Parser CPUInfo'CacheSizeEntry
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                                 Word64
len)
                                                                              Parser CPUInfo'CacheSizeEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                                                        "cache_size"
                                (let
                                   key :: Text
key = FoldLike
  Text CPUInfo'CacheSizeEntry CPUInfo'CacheSizeEntry Text Text
-> CPUInfo'CacheSizeEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") CPUInfo'CacheSizeEntry
entry
                                   value :: Int64
value
                                     = FoldLike
  Int64 CPUInfo'CacheSizeEntry CPUInfo'CacheSizeEntry Int64 Int64
-> CPUInfo'CacheSizeEntry -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") CPUInfo'CacheSizeEntry
entry
                                 in
                                   CPUInfo -> Parser CPUInfo
loop
                                     (Setter CPUInfo CPUInfo (Map Text Int64) (Map Text Int64)
-> (Map Text Int64 -> Map Text Int64) -> CPUInfo -> CPUInfo
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                        (forall s a (f :: * -> *).
(HasField s "cacheSize" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cacheSize")
                                        (\ !Map Text Int64
t -> Text -> Int64 -> Map Text Int64 -> Map Text Int64
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Int64
value Map Text Int64
t)
                                        CPUInfo
x))
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                CPUInfo -> Parser CPUInfo
loop
                                  (Setter CPUInfo CPUInfo FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CPUInfo -> CPUInfo
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter CPUInfo CPUInfo FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CPUInfo
x)
      in
        Parser CPUInfo -> String -> Parser CPUInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CPUInfo -> Parser CPUInfo
loop CPUInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "CPUInfo"
  buildMessage :: CPUInfo -> Builder
buildMessage
    = \ _x :: CPUInfo
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int64
_v = FoldLike Int64 CPUInfo CPUInfo Int64 Int64 -> CPUInfo -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "numCores" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numCores") CPUInfo
_x
              in
                if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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 8)
                      ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Int64
_v
                     = FoldLike Int64 CPUInfo CPUInfo Int64 Int64 -> CPUInfo -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall s a (f :: * -> *).
(HasField s "numCoresAllowed" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numCoresAllowed") CPUInfo
_x
                 in
                   if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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 16)
                         ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Double
_v = FoldLike Double CPUInfo CPUInfo Double Double -> CPUInfo -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "mhzPerCpu" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"mhzPerCpu") CPUInfo
_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 25)
                            ((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 :: Text
_v = FoldLike Text CPUInfo CPUInfo Text Text -> CPUInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "cpuInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cpuInfo") CPUInfo
_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 34)
                               ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  (\ bs :: ByteString
bs
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                             (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                          (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                  Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                  Text
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (let
                            _v :: Text
_v
                              = FoldLike Text CPUInfo CPUInfo Text Text -> CPUInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "cpuGovernor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cpuGovernor") CPUInfo
_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 42)
                                  ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                     (\ bs :: ByteString
bs
                                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                             (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                     Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                     Text
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                               (((Text, Int64) -> Builder) -> [(Text, Int64)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                                  (\ _v :: (Text, Int64)
_v
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
                                          ((ByteString -> Builder)
-> (CPUInfo'CacheSizeEntry -> ByteString)
-> CPUInfo'CacheSizeEntry
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                             (\ bs :: ByteString
bs
                                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                           (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                             CPUInfo'CacheSizeEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                             (Setter CPUInfo'CacheSizeEntry CPUInfo'CacheSizeEntry Text Text
-> Text -> CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                                                ((Text, Int64) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Int64)
_v)
                                                (Setter CPUInfo'CacheSizeEntry CPUInfo'CacheSizeEntry Int64 Int64
-> Int64 -> CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                                   (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                                                   ((Text, Int64) -> Int64
forall a b. (a, b) -> b
Prelude.snd (Text, Int64)
_v)
                                                   (CPUInfo'CacheSizeEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                                      CPUInfo'CacheSizeEntry)))))
                                  (Map Text Int64 -> [(Text, Int64)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                                     (FoldLike
  (Map Text Int64) CPUInfo CPUInfo (Map Text Int64) (Map Text Int64)
-> CPUInfo -> Map Text Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                        (forall s a (f :: * -> *).
(HasField s "cacheSize" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cacheSize") CPUInfo
_x))))
                            (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                               (FoldLike FieldSet CPUInfo CPUInfo FieldSet FieldSet
-> CPUInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet CPUInfo CPUInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CPUInfo
_x)))))))
instance Control.DeepSeq.NFData CPUInfo where
  rnf :: CPUInfo -> ()
rnf
    = \ x__ :: CPUInfo
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CPUInfo -> FieldSet
_CPUInfo'_unknownFields CPUInfo
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (CPUInfo -> Int64
_CPUInfo'numCores CPUInfo
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (CPUInfo -> Int64
_CPUInfo'numCoresAllowed CPUInfo
x__)
                   (Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (CPUInfo -> Double
_CPUInfo'mhzPerCpu CPUInfo
x__)
                      (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (CPUInfo -> Text
_CPUInfo'cpuInfo CPUInfo
x__)
                         (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (CPUInfo -> Text
_CPUInfo'cpuGovernor CPUInfo
x__)
                            (Map Text Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CPUInfo -> Map Text Int64
_CPUInfo'cacheSize CPUInfo
x__) ()))))))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.key' @:: Lens' CPUInfo'CacheSizeEntry Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.value' @:: Lens' CPUInfo'CacheSizeEntry Data.Int.Int64@ -}
data CPUInfo'CacheSizeEntry
  = CPUInfo'CacheSizeEntry'_constructor {CPUInfo'CacheSizeEntry -> Text
_CPUInfo'CacheSizeEntry'key :: !Data.Text.Text,
                                         CPUInfo'CacheSizeEntry -> Int64
_CPUInfo'CacheSizeEntry'value :: !Data.Int.Int64,
                                         CPUInfo'CacheSizeEntry -> FieldSet
_CPUInfo'CacheSizeEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool
(CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool)
-> (CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool)
-> Eq CPUInfo'CacheSizeEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool
$c/= :: CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool
== :: CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool
$c== :: CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool
Prelude.Eq, Eq CPUInfo'CacheSizeEntry
Eq CPUInfo'CacheSizeEntry =>
(CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Ordering)
-> (CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool)
-> (CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool)
-> (CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool)
-> (CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool)
-> (CPUInfo'CacheSizeEntry
    -> CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry)
-> (CPUInfo'CacheSizeEntry
    -> CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry)
-> Ord CPUInfo'CacheSizeEntry
CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool
CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Ordering
CPUInfo'CacheSizeEntry
-> CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: CPUInfo'CacheSizeEntry
-> CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry
$cmin :: CPUInfo'CacheSizeEntry
-> CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry
max :: CPUInfo'CacheSizeEntry
-> CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry
$cmax :: CPUInfo'CacheSizeEntry
-> CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry
>= :: CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool
$c>= :: CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool
> :: CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool
$c> :: CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool
<= :: CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool
$c<= :: CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool
< :: CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool
$c< :: CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Bool
compare :: CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Ordering
$ccompare :: CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry -> Ordering
$cp1Ord :: Eq CPUInfo'CacheSizeEntry
Prelude.Ord)
instance Prelude.Show CPUInfo'CacheSizeEntry where
  showsPrec :: Int -> CPUInfo'CacheSizeEntry -> ShowS
showsPrec _ __x :: CPUInfo'CacheSizeEntry
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (CPUInfo'CacheSizeEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CPUInfo'CacheSizeEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CPUInfo'CacheSizeEntry "key" Data.Text.Text where
  fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> CPUInfo'CacheSizeEntry
-> f CPUInfo'CacheSizeEntry
fieldOf _
    = ((Text -> f Text)
 -> CPUInfo'CacheSizeEntry -> f CPUInfo'CacheSizeEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CPUInfo'CacheSizeEntry
-> f CPUInfo'CacheSizeEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CPUInfo'CacheSizeEntry -> Text)
-> (CPUInfo'CacheSizeEntry -> Text -> CPUInfo'CacheSizeEntry)
-> Lens' CPUInfo'CacheSizeEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CPUInfo'CacheSizeEntry -> Text
_CPUInfo'CacheSizeEntry'key
           (\ x__ :: CPUInfo'CacheSizeEntry
x__ y__ :: Text
y__ -> CPUInfo'CacheSizeEntry
x__ {_CPUInfo'CacheSizeEntry'key :: Text
_CPUInfo'CacheSizeEntry'key = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CPUInfo'CacheSizeEntry "value" Data.Int.Int64 where
  fieldOf :: Proxy# "value"
-> (Int64 -> f Int64)
-> CPUInfo'CacheSizeEntry
-> f CPUInfo'CacheSizeEntry
fieldOf _
    = ((Int64 -> f Int64)
 -> CPUInfo'CacheSizeEntry -> f CPUInfo'CacheSizeEntry)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> CPUInfo'CacheSizeEntry
-> f CPUInfo'CacheSizeEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CPUInfo'CacheSizeEntry -> Int64)
-> (CPUInfo'CacheSizeEntry -> Int64 -> CPUInfo'CacheSizeEntry)
-> Lens' CPUInfo'CacheSizeEntry Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CPUInfo'CacheSizeEntry -> Int64
_CPUInfo'CacheSizeEntry'value
           (\ x__ :: CPUInfo'CacheSizeEntry
x__ y__ :: Int64
y__ -> CPUInfo'CacheSizeEntry
x__ {_CPUInfo'CacheSizeEntry'value :: Int64
_CPUInfo'CacheSizeEntry'value = Int64
y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CPUInfo'CacheSizeEntry where
  messageName :: Proxy CPUInfo'CacheSizeEntry -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CPUInfo.CacheSizeEntry"
  packedMessageDescriptor :: Proxy CPUInfo'CacheSizeEntry -> ByteString
packedMessageDescriptor _
    = "\n\
      \\SOCacheSizeEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\ETXR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy CPUInfo'CacheSizeEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CPUInfo'CacheSizeEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor CPUInfo'CacheSizeEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor CPUInfo'CacheSizeEntry Text
-> FieldDescriptor CPUInfo'CacheSizeEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "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' CPUInfo'CacheSizeEntry Text
-> FieldAccessor CPUInfo'CacheSizeEntry 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 s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
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 CPUInfo'CacheSizeEntry
        value__field_descriptor :: FieldDescriptor CPUInfo'CacheSizeEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor CPUInfo'CacheSizeEntry Int64
-> FieldDescriptor CPUInfo'CacheSizeEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens' CPUInfo'CacheSizeEntry Int64
-> FieldAccessor CPUInfo'CacheSizeEntry Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor CPUInfo'CacheSizeEntry
      in
        [(Tag, FieldDescriptor CPUInfo'CacheSizeEntry)]
-> Map Tag (FieldDescriptor CPUInfo'CacheSizeEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CPUInfo'CacheSizeEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor CPUInfo'CacheSizeEntry
value__field_descriptor)]
  unknownFields :: LensLike' f CPUInfo'CacheSizeEntry FieldSet
unknownFields
    = (CPUInfo'CacheSizeEntry -> FieldSet)
-> (CPUInfo'CacheSizeEntry -> FieldSet -> CPUInfo'CacheSizeEntry)
-> Lens' CPUInfo'CacheSizeEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CPUInfo'CacheSizeEntry -> FieldSet
_CPUInfo'CacheSizeEntry'_unknownFields
        (\ x__ :: CPUInfo'CacheSizeEntry
x__ y__ :: FieldSet
y__ -> CPUInfo'CacheSizeEntry
x__ {_CPUInfo'CacheSizeEntry'_unknownFields :: FieldSet
_CPUInfo'CacheSizeEntry'_unknownFields = FieldSet
y__})
  defMessage :: CPUInfo'CacheSizeEntry
defMessage
    = $WCPUInfo'CacheSizeEntry'_constructor :: Text -> Int64 -> FieldSet -> CPUInfo'CacheSizeEntry
CPUInfo'CacheSizeEntry'_constructor
        {_CPUInfo'CacheSizeEntry'key :: Text
_CPUInfo'CacheSizeEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _CPUInfo'CacheSizeEntry'value :: Int64
_CPUInfo'CacheSizeEntry'value = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _CPUInfo'CacheSizeEntry'_unknownFields :: FieldSet
_CPUInfo'CacheSizeEntry'_unknownFields = []}
  parseMessage :: Parser CPUInfo'CacheSizeEntry
parseMessage
    = let
        loop ::
          CPUInfo'CacheSizeEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser CPUInfo'CacheSizeEntry
        loop :: CPUInfo'CacheSizeEntry -> Parser CPUInfo'CacheSizeEntry
loop x :: CPUInfo'CacheSizeEntry
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      CPUInfo'CacheSizeEntry -> Parser CPUInfo'CacheSizeEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  CPUInfo'CacheSizeEntry CPUInfo'CacheSizeEntry FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CPUInfo'CacheSizeEntry
-> CPUInfo'CacheSizeEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  CPUInfo'CacheSizeEntry CPUInfo'CacheSizeEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) CPUInfo'CacheSizeEntry
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "key"
                                CPUInfo'CacheSizeEntry -> Parser CPUInfo'CacheSizeEntry
loop (Setter CPUInfo'CacheSizeEntry CPUInfo'CacheSizeEntry Text Text
-> Text -> CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Text
y CPUInfo'CacheSizeEntry
x)
                        16
                          -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "value"
                                CPUInfo'CacheSizeEntry -> Parser CPUInfo'CacheSizeEntry
loop (Setter CPUInfo'CacheSizeEntry CPUInfo'CacheSizeEntry Int64 Int64
-> Int64 -> CPUInfo'CacheSizeEntry -> CPUInfo'CacheSizeEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") Int64
y CPUInfo'CacheSizeEntry
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                CPUInfo'CacheSizeEntry -> Parser CPUInfo'CacheSizeEntry
loop
                                  (Setter
  CPUInfo'CacheSizeEntry CPUInfo'CacheSizeEntry FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CPUInfo'CacheSizeEntry
-> CPUInfo'CacheSizeEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  CPUInfo'CacheSizeEntry CPUInfo'CacheSizeEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CPUInfo'CacheSizeEntry
x)
      in
        Parser CPUInfo'CacheSizeEntry
-> String -> Parser CPUInfo'CacheSizeEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CPUInfo'CacheSizeEntry -> Parser CPUInfo'CacheSizeEntry
loop CPUInfo'CacheSizeEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "CacheSizeEntry"
  buildMessage :: CPUInfo'CacheSizeEntry -> Builder
buildMessage
    = \ _x :: CPUInfo'CacheSizeEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text CPUInfo'CacheSizeEntry CPUInfo'CacheSizeEntry Text Text
-> CPUInfo'CacheSizeEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") CPUInfo'CacheSizeEntry
_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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Int64
_v = FoldLike
  Int64 CPUInfo'CacheSizeEntry CPUInfo'CacheSizeEntry Int64 Int64
-> CPUInfo'CacheSizeEntry -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") CPUInfo'CacheSizeEntry
_x
                 in
                   if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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 16)
                         ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  CPUInfo'CacheSizeEntry
  CPUInfo'CacheSizeEntry
  FieldSet
  FieldSet
-> CPUInfo'CacheSizeEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  CPUInfo'CacheSizeEntry
  CPUInfo'CacheSizeEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CPUInfo'CacheSizeEntry
_x)))
instance Control.DeepSeq.NFData CPUInfo'CacheSizeEntry where
  rnf :: CPUInfo'CacheSizeEntry -> ()
rnf
    = \ x__ :: CPUInfo'CacheSizeEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CPUInfo'CacheSizeEntry -> FieldSet
_CPUInfo'CacheSizeEntry'_unknownFields CPUInfo'CacheSizeEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (CPUInfo'CacheSizeEntry -> Text
_CPUInfo'CacheSizeEntry'key CPUInfo'CacheSizeEntry
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CPUInfo'CacheSizeEntry -> Int64
_CPUInfo'CacheSizeEntry'value CPUInfo'CacheSizeEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.snapshot' @:: Lens' CommitId Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.pendingChangelist' @:: Lens' CommitId Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'kind' @:: Lens' CommitId (Prelude.Maybe CommitId'Kind)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'changelist' @:: Lens' CommitId (Prelude.Maybe Data.Int.Int64)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.changelist' @:: Lens' CommitId Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'hash' @:: Lens' CommitId (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.hash' @:: Lens' CommitId Data.Text.Text@ -}
data CommitId
  = CommitId'_constructor {CommitId -> Text
_CommitId'snapshot :: !Data.Text.Text,
                           CommitId -> Int64
_CommitId'pendingChangelist :: !Data.Int.Int64,
                           CommitId -> Maybe CommitId'Kind
_CommitId'kind :: !(Prelude.Maybe CommitId'Kind),
                           CommitId -> FieldSet
_CommitId'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (CommitId -> CommitId -> Bool
(CommitId -> CommitId -> Bool)
-> (CommitId -> CommitId -> Bool) -> Eq CommitId
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CommitId -> CommitId -> Bool
$c/= :: CommitId -> CommitId -> Bool
== :: CommitId -> CommitId -> Bool
$c== :: CommitId -> CommitId -> Bool
Prelude.Eq, Eq CommitId
Eq CommitId =>
(CommitId -> CommitId -> Ordering)
-> (CommitId -> CommitId -> Bool)
-> (CommitId -> CommitId -> Bool)
-> (CommitId -> CommitId -> Bool)
-> (CommitId -> CommitId -> Bool)
-> (CommitId -> CommitId -> CommitId)
-> (CommitId -> CommitId -> CommitId)
-> Ord CommitId
CommitId -> CommitId -> Bool
CommitId -> CommitId -> Ordering
CommitId -> CommitId -> CommitId
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: CommitId -> CommitId -> CommitId
$cmin :: CommitId -> CommitId -> CommitId
max :: CommitId -> CommitId -> CommitId
$cmax :: CommitId -> CommitId -> CommitId
>= :: CommitId -> CommitId -> Bool
$c>= :: CommitId -> CommitId -> Bool
> :: CommitId -> CommitId -> Bool
$c> :: CommitId -> CommitId -> Bool
<= :: CommitId -> CommitId -> Bool
$c<= :: CommitId -> CommitId -> Bool
< :: CommitId -> CommitId -> Bool
$c< :: CommitId -> CommitId -> Bool
compare :: CommitId -> CommitId -> Ordering
$ccompare :: CommitId -> CommitId -> Ordering
$cp1Ord :: Eq CommitId
Prelude.Ord)
instance Prelude.Show CommitId where
  showsPrec :: Int -> CommitId -> ShowS
showsPrec _ __x :: CommitId
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (CommitId -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CommitId
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
data CommitId'Kind
  = CommitId'Changelist !Data.Int.Int64 |
    CommitId'Hash !Data.Text.Text
  deriving stock (Int -> CommitId'Kind -> ShowS
[CommitId'Kind] -> ShowS
CommitId'Kind -> String
(Int -> CommitId'Kind -> ShowS)
-> (CommitId'Kind -> String)
-> ([CommitId'Kind] -> ShowS)
-> Show CommitId'Kind
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CommitId'Kind] -> ShowS
$cshowList :: [CommitId'Kind] -> ShowS
show :: CommitId'Kind -> String
$cshow :: CommitId'Kind -> String
showsPrec :: Int -> CommitId'Kind -> ShowS
$cshowsPrec :: Int -> CommitId'Kind -> ShowS
Prelude.Show, CommitId'Kind -> CommitId'Kind -> Bool
(CommitId'Kind -> CommitId'Kind -> Bool)
-> (CommitId'Kind -> CommitId'Kind -> Bool) -> Eq CommitId'Kind
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CommitId'Kind -> CommitId'Kind -> Bool
$c/= :: CommitId'Kind -> CommitId'Kind -> Bool
== :: CommitId'Kind -> CommitId'Kind -> Bool
$c== :: CommitId'Kind -> CommitId'Kind -> Bool
Prelude.Eq, Eq CommitId'Kind
Eq CommitId'Kind =>
(CommitId'Kind -> CommitId'Kind -> Ordering)
-> (CommitId'Kind -> CommitId'Kind -> Bool)
-> (CommitId'Kind -> CommitId'Kind -> Bool)
-> (CommitId'Kind -> CommitId'Kind -> Bool)
-> (CommitId'Kind -> CommitId'Kind -> Bool)
-> (CommitId'Kind -> CommitId'Kind -> CommitId'Kind)
-> (CommitId'Kind -> CommitId'Kind -> CommitId'Kind)
-> Ord CommitId'Kind
CommitId'Kind -> CommitId'Kind -> Bool
CommitId'Kind -> CommitId'Kind -> Ordering
CommitId'Kind -> CommitId'Kind -> CommitId'Kind
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: CommitId'Kind -> CommitId'Kind -> CommitId'Kind
$cmin :: CommitId'Kind -> CommitId'Kind -> CommitId'Kind
max :: CommitId'Kind -> CommitId'Kind -> CommitId'Kind
$cmax :: CommitId'Kind -> CommitId'Kind -> CommitId'Kind
>= :: CommitId'Kind -> CommitId'Kind -> Bool
$c>= :: CommitId'Kind -> CommitId'Kind -> Bool
> :: CommitId'Kind -> CommitId'Kind -> Bool
$c> :: CommitId'Kind -> CommitId'Kind -> Bool
<= :: CommitId'Kind -> CommitId'Kind -> Bool
$c<= :: CommitId'Kind -> CommitId'Kind -> Bool
< :: CommitId'Kind -> CommitId'Kind -> Bool
$c< :: CommitId'Kind -> CommitId'Kind -> Bool
compare :: CommitId'Kind -> CommitId'Kind -> Ordering
$ccompare :: CommitId'Kind -> CommitId'Kind -> Ordering
$cp1Ord :: Eq CommitId'Kind
Prelude.Ord)
instance Data.ProtoLens.Field.HasField CommitId "snapshot" Data.Text.Text where
  fieldOf :: Proxy# "snapshot" -> (Text -> f Text) -> CommitId -> f CommitId
fieldOf _
    = ((Text -> f Text) -> CommitId -> f CommitId)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> CommitId
-> f CommitId
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CommitId -> Text)
-> (CommitId -> Text -> CommitId)
-> Lens CommitId CommitId Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CommitId -> Text
_CommitId'snapshot (\ x__ :: CommitId
x__ y__ :: Text
y__ -> CommitId
x__ {_CommitId'snapshot :: Text
_CommitId'snapshot = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CommitId "pendingChangelist" Data.Int.Int64 where
  fieldOf :: Proxy# "pendingChangelist"
-> (Int64 -> f Int64) -> CommitId -> f CommitId
fieldOf _
    = ((Int64 -> f Int64) -> CommitId -> f CommitId)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> CommitId
-> f CommitId
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CommitId -> Int64)
-> (CommitId -> Int64 -> CommitId)
-> Lens CommitId CommitId Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CommitId -> Int64
_CommitId'pendingChangelist
           (\ x__ :: CommitId
x__ y__ :: Int64
y__ -> CommitId
x__ {_CommitId'pendingChangelist :: Int64
_CommitId'pendingChangelist = Int64
y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CommitId "maybe'kind" (Prelude.Maybe CommitId'Kind) where
  fieldOf :: Proxy# "maybe'kind"
-> (Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
-> CommitId
-> f CommitId
fieldOf _
    = ((Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
 -> CommitId -> f CommitId)
-> ((Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
    -> Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
-> (Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
-> CommitId
-> f CommitId
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CommitId -> Maybe CommitId'Kind)
-> (CommitId -> Maybe CommitId'Kind -> CommitId)
-> Lens
     CommitId CommitId (Maybe CommitId'Kind) (Maybe CommitId'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CommitId -> Maybe CommitId'Kind
_CommitId'kind (\ x__ :: CommitId
x__ y__ :: Maybe CommitId'Kind
y__ -> CommitId
x__ {_CommitId'kind :: Maybe CommitId'Kind
_CommitId'kind = Maybe CommitId'Kind
y__}))
        (Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
-> Maybe CommitId'Kind -> f (Maybe CommitId'Kind)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CommitId "maybe'changelist" (Prelude.Maybe Data.Int.Int64) where
  fieldOf :: Proxy# "maybe'changelist"
-> (Maybe Int64 -> f (Maybe Int64)) -> CommitId -> f CommitId
fieldOf _
    = ((Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
 -> CommitId -> f CommitId)
-> ((Maybe Int64 -> f (Maybe Int64))
    -> Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
-> (Maybe Int64 -> f (Maybe Int64))
-> CommitId
-> f CommitId
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CommitId -> Maybe CommitId'Kind)
-> (CommitId -> Maybe CommitId'Kind -> CommitId)
-> Lens
     CommitId CommitId (Maybe CommitId'Kind) (Maybe CommitId'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CommitId -> Maybe CommitId'Kind
_CommitId'kind (\ x__ :: CommitId
x__ y__ :: Maybe CommitId'Kind
y__ -> CommitId
x__ {_CommitId'kind :: Maybe CommitId'Kind
_CommitId'kind = Maybe CommitId'Kind
y__}))
        ((Maybe CommitId'Kind -> Maybe Int64)
-> (Maybe CommitId'Kind -> Maybe Int64 -> Maybe CommitId'Kind)
-> Lens
     (Maybe CommitId'Kind)
     (Maybe CommitId'Kind)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe CommitId'Kind
x__
              -> case Maybe CommitId'Kind
x__ of
                   (Prelude.Just (CommitId'Changelist x__val :: Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                   _otherwise :: Maybe CommitId'Kind
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Int64
y__ -> (Int64 -> CommitId'Kind) -> Maybe Int64 -> Maybe CommitId'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> CommitId'Kind
CommitId'Changelist Maybe Int64
y__))
instance Data.ProtoLens.Field.HasField CommitId "changelist" Data.Int.Int64 where
  fieldOf :: Proxy# "changelist" -> (Int64 -> f Int64) -> CommitId -> f CommitId
fieldOf _
    = ((Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
 -> CommitId -> f CommitId)
-> ((Int64 -> f Int64)
    -> Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
-> (Int64 -> f Int64)
-> CommitId
-> f CommitId
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CommitId -> Maybe CommitId'Kind)
-> (CommitId -> Maybe CommitId'Kind -> CommitId)
-> Lens
     CommitId CommitId (Maybe CommitId'Kind) (Maybe CommitId'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CommitId -> Maybe CommitId'Kind
_CommitId'kind (\ x__ :: CommitId
x__ y__ :: Maybe CommitId'Kind
y__ -> CommitId
x__ {_CommitId'kind :: Maybe CommitId'Kind
_CommitId'kind = Maybe CommitId'Kind
y__}))
        (((Maybe Int64 -> f (Maybe Int64))
 -> Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
-> ((Int64 -> f Int64) -> Maybe Int64 -> f (Maybe Int64))
-> (Int64 -> f Int64)
-> Maybe CommitId'Kind
-> f (Maybe CommitId'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe CommitId'Kind -> Maybe Int64)
-> (Maybe CommitId'Kind -> Maybe Int64 -> Maybe CommitId'Kind)
-> Lens
     (Maybe CommitId'Kind)
     (Maybe CommitId'Kind)
     (Maybe Int64)
     (Maybe Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe CommitId'Kind
x__
                 -> case Maybe CommitId'Kind
x__ of
                      (Prelude.Just (CommitId'Changelist x__val :: Int64
x__val)) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
x__val
                      _otherwise :: Maybe CommitId'Kind
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Int64
y__ -> (Int64 -> CommitId'Kind) -> Maybe Int64 -> Maybe CommitId'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Int64 -> CommitId'Kind
CommitId'Changelist Maybe Int64
y__))
           (Int64 -> Lens' (Maybe Int64) Int64
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField CommitId "maybe'hash" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'hash"
-> (Maybe Text -> f (Maybe Text)) -> CommitId -> f CommitId
fieldOf _
    = ((Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
 -> CommitId -> f CommitId)
-> ((Maybe Text -> f (Maybe Text))
    -> Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
-> (Maybe Text -> f (Maybe Text))
-> CommitId
-> f CommitId
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CommitId -> Maybe CommitId'Kind)
-> (CommitId -> Maybe CommitId'Kind -> CommitId)
-> Lens
     CommitId CommitId (Maybe CommitId'Kind) (Maybe CommitId'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CommitId -> Maybe CommitId'Kind
_CommitId'kind (\ x__ :: CommitId
x__ y__ :: Maybe CommitId'Kind
y__ -> CommitId
x__ {_CommitId'kind :: Maybe CommitId'Kind
_CommitId'kind = Maybe CommitId'Kind
y__}))
        ((Maybe CommitId'Kind -> Maybe Text)
-> (Maybe CommitId'Kind -> Maybe Text -> Maybe CommitId'Kind)
-> Lens
     (Maybe CommitId'Kind)
     (Maybe CommitId'Kind)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe CommitId'Kind
x__
              -> case Maybe CommitId'Kind
x__ of
                   (Prelude.Just (CommitId'Hash x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                   _otherwise :: Maybe CommitId'Kind
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Text
y__ -> (Text -> CommitId'Kind) -> Maybe Text -> Maybe CommitId'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> CommitId'Kind
CommitId'Hash Maybe Text
y__))
instance Data.ProtoLens.Field.HasField CommitId "hash" Data.Text.Text where
  fieldOf :: Proxy# "hash" -> (Text -> f Text) -> CommitId -> f CommitId
fieldOf _
    = ((Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
 -> CommitId -> f CommitId)
-> ((Text -> f Text)
    -> Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
-> (Text -> f Text)
-> CommitId
-> f CommitId
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((CommitId -> Maybe CommitId'Kind)
-> (CommitId -> Maybe CommitId'Kind -> CommitId)
-> Lens
     CommitId CommitId (Maybe CommitId'Kind) (Maybe CommitId'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           CommitId -> Maybe CommitId'Kind
_CommitId'kind (\ x__ :: CommitId
x__ y__ :: Maybe CommitId'Kind
y__ -> CommitId
x__ {_CommitId'kind :: Maybe CommitId'Kind
_CommitId'kind = Maybe CommitId'Kind
y__}))
        (((Maybe Text -> f (Maybe Text))
 -> Maybe CommitId'Kind -> f (Maybe CommitId'Kind))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe CommitId'Kind
-> f (Maybe CommitId'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe CommitId'Kind -> Maybe Text)
-> (Maybe CommitId'Kind -> Maybe Text -> Maybe CommitId'Kind)
-> Lens
     (Maybe CommitId'Kind)
     (Maybe CommitId'Kind)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe CommitId'Kind
x__
                 -> case Maybe CommitId'Kind
x__ of
                      (Prelude.Just (CommitId'Hash x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                      _otherwise :: Maybe CommitId'Kind
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Text
y__ -> (Text -> CommitId'Kind) -> Maybe Text -> Maybe CommitId'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> CommitId'Kind
CommitId'Hash Maybe Text
y__))
           (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message CommitId where
  messageName :: Proxy CommitId -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CommitId"
  packedMessageDescriptor :: Proxy CommitId -> ByteString
packedMessageDescriptor _
    = "\n\
      \\bCommitId\DC2 \n\
      \\n\
      \changelist\CAN\SOH \SOH(\ETXH\NULR\n\
      \changelist\DC2\DC4\n\
      \\EOThash\CAN\STX \SOH(\tH\NULR\EOThash\DC2\SUB\n\
      \\bsnapshot\CAN\ETX \SOH(\tR\bsnapshot\DC2-\n\
      \\DC2pending_changelist\CAN\EOT \SOH(\ETXR\DC1pendingChangelistB\ACK\n\
      \\EOTkind"
  packedFileDescriptor :: Proxy CommitId -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor CommitId)
fieldsByTag
    = let
        snapshot__field_descriptor :: FieldDescriptor CommitId
snapshot__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor CommitId Text
-> FieldDescriptor CommitId
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "snapshot"
              (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 CommitId CommitId Text Text -> FieldAccessor CommitId 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 s a (f :: * -> *).
(HasField s "snapshot" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"snapshot")) ::
              Data.ProtoLens.FieldDescriptor CommitId
        pendingChangelist__field_descriptor :: FieldDescriptor CommitId
pendingChangelist__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor CommitId Int64
-> FieldDescriptor CommitId
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "pending_changelist"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens CommitId CommitId Int64 Int64
-> FieldAccessor CommitId Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "pendingChangelist" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"pendingChangelist")) ::
              Data.ProtoLens.FieldDescriptor CommitId
        changelist__field_descriptor :: FieldDescriptor CommitId
changelist__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor CommitId Int64
-> FieldDescriptor CommitId
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "changelist"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (Lens' CommitId (Maybe Int64) -> FieldAccessor CommitId Int64
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'changelist" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'changelist")) ::
              Data.ProtoLens.FieldDescriptor CommitId
        hash__field_descriptor :: FieldDescriptor CommitId
hash__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor CommitId Text
-> FieldDescriptor CommitId
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "hash"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens' CommitId (Maybe Text) -> FieldAccessor CommitId Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'hash" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'hash")) ::
              Data.ProtoLens.FieldDescriptor CommitId
      in
        [(Tag, FieldDescriptor CommitId)]
-> Map Tag (FieldDescriptor CommitId)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor CommitId
snapshot__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor CommitId
pendingChangelist__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CommitId
changelist__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor CommitId
hash__field_descriptor)]
  unknownFields :: LensLike' f CommitId FieldSet
unknownFields
    = (CommitId -> FieldSet)
-> (CommitId -> FieldSet -> CommitId) -> Lens' CommitId FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        CommitId -> FieldSet
_CommitId'_unknownFields
        (\ x__ :: CommitId
x__ y__ :: FieldSet
y__ -> CommitId
x__ {_CommitId'_unknownFields :: FieldSet
_CommitId'_unknownFields = FieldSet
y__})
  defMessage :: CommitId
defMessage
    = $WCommitId'_constructor :: Text -> Int64 -> Maybe CommitId'Kind -> FieldSet -> CommitId
CommitId'_constructor
        {_CommitId'snapshot :: Text
_CommitId'snapshot = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _CommitId'pendingChangelist :: Int64
_CommitId'pendingChangelist = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _CommitId'kind :: Maybe CommitId'Kind
_CommitId'kind = Maybe CommitId'Kind
forall a. Maybe a
Prelude.Nothing, _CommitId'_unknownFields :: FieldSet
_CommitId'_unknownFields = []}
  parseMessage :: Parser CommitId
parseMessage
    = let
        loop :: CommitId -> Data.ProtoLens.Encoding.Bytes.Parser CommitId
        loop :: CommitId -> Parser CommitId
loop x :: CommitId
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      CommitId -> Parser CommitId
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter CommitId CommitId FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CommitId -> CommitId
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter CommitId CommitId FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) CommitId
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        26
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "snapshot"
                                CommitId -> Parser CommitId
loop
                                  (Setter CommitId CommitId Text Text -> Text -> CommitId -> CommitId
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "snapshot" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"snapshot") Text
y CommitId
x)
                        32
                          -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "pending_changelist"
                                CommitId -> Parser CommitId
loop
                                  (Setter CommitId CommitId Int64 Int64
-> Int64 -> CommitId -> CommitId
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "pendingChangelist" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"pendingChangelist") Int64
y CommitId
x)
                        8 -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "changelist"
                                CommitId -> Parser CommitId
loop
                                  (Setter CommitId CommitId Int64 Int64
-> Int64 -> CommitId -> CommitId
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "changelist" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"changelist") Int64
y CommitId
x)
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "hash"
                                CommitId -> Parser CommitId
loop (Setter CommitId CommitId Text Text -> Text -> CommitId -> CommitId
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "hash" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hash") Text
y CommitId
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                CommitId -> Parser CommitId
loop
                                  (Setter CommitId CommitId FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CommitId -> CommitId
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter CommitId CommitId FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CommitId
x)
      in
        Parser CommitId -> String -> Parser CommitId
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do CommitId -> Parser CommitId
loop CommitId
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "CommitId"
  buildMessage :: CommitId -> Builder
buildMessage
    = \ _x :: CommitId
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike Text CommitId CommitId Text Text -> CommitId -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "snapshot" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"snapshot") CommitId
_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 26)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Int64
_v
                     = FoldLike Int64 CommitId CommitId Int64 Int64 -> CommitId -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall s a (f :: * -> *).
(HasField s "pendingChangelist" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"pendingChangelist") CommitId
_x
                 in
                   if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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 32)
                         ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe CommitId'Kind)
  CommitId
  CommitId
  (Maybe CommitId'Kind)
  (Maybe CommitId'Kind)
-> CommitId -> Maybe CommitId'Kind
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'kind" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'kind") CommitId
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just (CommitId'Changelist v :: Int64
v))
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 8)
                             ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
v)
                      (Prelude.Just (CommitId'Hash v :: Text
v))
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                             ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ bs :: ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                Text
v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet CommitId CommitId FieldSet FieldSet
-> CommitId -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet CommitId CommitId FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CommitId
_x))))
instance Control.DeepSeq.NFData CommitId where
  rnf :: CommitId -> ()
rnf
    = \ x__ :: CommitId
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (CommitId -> FieldSet
_CommitId'_unknownFields CommitId
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (CommitId -> Text
_CommitId'snapshot CommitId
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (CommitId -> Int64
_CommitId'pendingChangelist CommitId
x__)
                   (Maybe CommitId'Kind -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CommitId -> Maybe CommitId'Kind
_CommitId'kind CommitId
x__) ())))
instance Control.DeepSeq.NFData CommitId'Kind where
  rnf :: CommitId'Kind -> ()
rnf (CommitId'Changelist x__ :: Int64
x__) = Int64 -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Int64
x__
  rnf (CommitId'Hash x__ :: Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
_CommitId'Changelist ::
  Data.ProtoLens.Prism.Prism' CommitId'Kind Data.Int.Int64
_CommitId'Changelist :: p Int64 (f Int64) -> p CommitId'Kind (f CommitId'Kind)
_CommitId'Changelist
  = (Int64 -> CommitId'Kind)
-> (CommitId'Kind -> Maybe Int64)
-> Prism CommitId'Kind CommitId'Kind Int64 Int64
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Int64 -> CommitId'Kind
CommitId'Changelist
      (\ p__ :: CommitId'Kind
p__
         -> case CommitId'Kind
p__ of
              (CommitId'Changelist p__val :: Int64
p__val) -> Int64 -> Maybe Int64
forall a. a -> Maybe a
Prelude.Just Int64
p__val
              _otherwise :: CommitId'Kind
_otherwise -> Maybe Int64
forall a. Maybe a
Prelude.Nothing)
_CommitId'Hash ::
  Data.ProtoLens.Prism.Prism' CommitId'Kind Data.Text.Text
_CommitId'Hash :: p Text (f Text) -> p CommitId'Kind (f CommitId'Kind)
_CommitId'Hash
  = (Text -> CommitId'Kind)
-> (CommitId'Kind -> Maybe Text)
-> Prism CommitId'Kind CommitId'Kind Text Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Text -> CommitId'Kind
CommitId'Hash
      (\ p__ :: CommitId'Kind
p__
         -> case CommitId'Kind
p__ of
              (CommitId'Hash p__val :: Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
              _otherwise :: CommitId'Kind
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'kind' @:: Lens' EntryValue (Prelude.Maybe EntryValue'Kind)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'doubleValue' @:: Lens' EntryValue (Prelude.Maybe Prelude.Double)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.doubleValue' @:: Lens' EntryValue Prelude.Double@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'stringValue' @:: Lens' EntryValue (Prelude.Maybe Data.Text.Text)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.stringValue' @:: Lens' EntryValue Data.Text.Text@ -}
data EntryValue
  = EntryValue'_constructor {EntryValue -> Maybe EntryValue'Kind
_EntryValue'kind :: !(Prelude.Maybe EntryValue'Kind),
                             EntryValue -> FieldSet
_EntryValue'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (EntryValue -> EntryValue -> Bool
(EntryValue -> EntryValue -> Bool)
-> (EntryValue -> EntryValue -> Bool) -> Eq EntryValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EntryValue -> EntryValue -> Bool
$c/= :: EntryValue -> EntryValue -> Bool
== :: EntryValue -> EntryValue -> Bool
$c== :: EntryValue -> EntryValue -> Bool
Prelude.Eq, Eq EntryValue
Eq EntryValue =>
(EntryValue -> EntryValue -> Ordering)
-> (EntryValue -> EntryValue -> Bool)
-> (EntryValue -> EntryValue -> Bool)
-> (EntryValue -> EntryValue -> Bool)
-> (EntryValue -> EntryValue -> Bool)
-> (EntryValue -> EntryValue -> EntryValue)
-> (EntryValue -> EntryValue -> EntryValue)
-> Ord EntryValue
EntryValue -> EntryValue -> Bool
EntryValue -> EntryValue -> Ordering
EntryValue -> EntryValue -> EntryValue
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: EntryValue -> EntryValue -> EntryValue
$cmin :: EntryValue -> EntryValue -> EntryValue
max :: EntryValue -> EntryValue -> EntryValue
$cmax :: EntryValue -> EntryValue -> EntryValue
>= :: EntryValue -> EntryValue -> Bool
$c>= :: EntryValue -> EntryValue -> Bool
> :: EntryValue -> EntryValue -> Bool
$c> :: EntryValue -> EntryValue -> Bool
<= :: EntryValue -> EntryValue -> Bool
$c<= :: EntryValue -> EntryValue -> Bool
< :: EntryValue -> EntryValue -> Bool
$c< :: EntryValue -> EntryValue -> Bool
compare :: EntryValue -> EntryValue -> Ordering
$ccompare :: EntryValue -> EntryValue -> Ordering
$cp1Ord :: Eq EntryValue
Prelude.Ord)
instance Prelude.Show EntryValue where
  showsPrec :: Int -> EntryValue -> ShowS
showsPrec _ __x :: EntryValue
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (EntryValue -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort EntryValue
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
data EntryValue'Kind
  = EntryValue'DoubleValue !Prelude.Double |
    EntryValue'StringValue !Data.Text.Text
  deriving stock (Int -> EntryValue'Kind -> ShowS
[EntryValue'Kind] -> ShowS
EntryValue'Kind -> String
(Int -> EntryValue'Kind -> ShowS)
-> (EntryValue'Kind -> String)
-> ([EntryValue'Kind] -> ShowS)
-> Show EntryValue'Kind
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EntryValue'Kind] -> ShowS
$cshowList :: [EntryValue'Kind] -> ShowS
show :: EntryValue'Kind -> String
$cshow :: EntryValue'Kind -> String
showsPrec :: Int -> EntryValue'Kind -> ShowS
$cshowsPrec :: Int -> EntryValue'Kind -> ShowS
Prelude.Show, EntryValue'Kind -> EntryValue'Kind -> Bool
(EntryValue'Kind -> EntryValue'Kind -> Bool)
-> (EntryValue'Kind -> EntryValue'Kind -> Bool)
-> Eq EntryValue'Kind
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: EntryValue'Kind -> EntryValue'Kind -> Bool
$c/= :: EntryValue'Kind -> EntryValue'Kind -> Bool
== :: EntryValue'Kind -> EntryValue'Kind -> Bool
$c== :: EntryValue'Kind -> EntryValue'Kind -> Bool
Prelude.Eq, Eq EntryValue'Kind
Eq EntryValue'Kind =>
(EntryValue'Kind -> EntryValue'Kind -> Ordering)
-> (EntryValue'Kind -> EntryValue'Kind -> Bool)
-> (EntryValue'Kind -> EntryValue'Kind -> Bool)
-> (EntryValue'Kind -> EntryValue'Kind -> Bool)
-> (EntryValue'Kind -> EntryValue'Kind -> Bool)
-> (EntryValue'Kind -> EntryValue'Kind -> EntryValue'Kind)
-> (EntryValue'Kind -> EntryValue'Kind -> EntryValue'Kind)
-> Ord EntryValue'Kind
EntryValue'Kind -> EntryValue'Kind -> Bool
EntryValue'Kind -> EntryValue'Kind -> Ordering
EntryValue'Kind -> EntryValue'Kind -> EntryValue'Kind
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: EntryValue'Kind -> EntryValue'Kind -> EntryValue'Kind
$cmin :: EntryValue'Kind -> EntryValue'Kind -> EntryValue'Kind
max :: EntryValue'Kind -> EntryValue'Kind -> EntryValue'Kind
$cmax :: EntryValue'Kind -> EntryValue'Kind -> EntryValue'Kind
>= :: EntryValue'Kind -> EntryValue'Kind -> Bool
$c>= :: EntryValue'Kind -> EntryValue'Kind -> Bool
> :: EntryValue'Kind -> EntryValue'Kind -> Bool
$c> :: EntryValue'Kind -> EntryValue'Kind -> Bool
<= :: EntryValue'Kind -> EntryValue'Kind -> Bool
$c<= :: EntryValue'Kind -> EntryValue'Kind -> Bool
< :: EntryValue'Kind -> EntryValue'Kind -> Bool
$c< :: EntryValue'Kind -> EntryValue'Kind -> Bool
compare :: EntryValue'Kind -> EntryValue'Kind -> Ordering
$ccompare :: EntryValue'Kind -> EntryValue'Kind -> Ordering
$cp1Ord :: Eq EntryValue'Kind
Prelude.Ord)
instance Data.ProtoLens.Field.HasField EntryValue "maybe'kind" (Prelude.Maybe EntryValue'Kind) where
  fieldOf :: Proxy# "maybe'kind"
-> (Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
-> EntryValue
-> f EntryValue
fieldOf _
    = ((Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
 -> EntryValue -> f EntryValue)
-> ((Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
    -> Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
-> (Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
-> EntryValue
-> f EntryValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EntryValue -> Maybe EntryValue'Kind)
-> (EntryValue -> Maybe EntryValue'Kind -> EntryValue)
-> Lens
     EntryValue
     EntryValue
     (Maybe EntryValue'Kind)
     (Maybe EntryValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EntryValue -> Maybe EntryValue'Kind
_EntryValue'kind (\ x__ :: EntryValue
x__ y__ :: Maybe EntryValue'Kind
y__ -> EntryValue
x__ {_EntryValue'kind :: Maybe EntryValue'Kind
_EntryValue'kind = Maybe EntryValue'Kind
y__}))
        (Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
-> Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField EntryValue "maybe'doubleValue" (Prelude.Maybe Prelude.Double) where
  fieldOf :: Proxy# "maybe'doubleValue"
-> (Maybe Double -> f (Maybe Double)) -> EntryValue -> f EntryValue
fieldOf _
    = ((Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
 -> EntryValue -> f EntryValue)
-> ((Maybe Double -> f (Maybe Double))
    -> Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
-> (Maybe Double -> f (Maybe Double))
-> EntryValue
-> f EntryValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EntryValue -> Maybe EntryValue'Kind)
-> (EntryValue -> Maybe EntryValue'Kind -> EntryValue)
-> Lens
     EntryValue
     EntryValue
     (Maybe EntryValue'Kind)
     (Maybe EntryValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EntryValue -> Maybe EntryValue'Kind
_EntryValue'kind (\ x__ :: EntryValue
x__ y__ :: Maybe EntryValue'Kind
y__ -> EntryValue
x__ {_EntryValue'kind :: Maybe EntryValue'Kind
_EntryValue'kind = Maybe EntryValue'Kind
y__}))
        ((Maybe EntryValue'Kind -> Maybe Double)
-> (Maybe EntryValue'Kind -> Maybe Double -> Maybe EntryValue'Kind)
-> Lens
     (Maybe EntryValue'Kind)
     (Maybe EntryValue'Kind)
     (Maybe Double)
     (Maybe Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe EntryValue'Kind
x__
              -> case Maybe EntryValue'Kind
x__ of
                   (Prelude.Just (EntryValue'DoubleValue x__val :: Double
x__val))
                     -> Double -> Maybe Double
forall a. a -> Maybe a
Prelude.Just Double
x__val
                   _otherwise :: Maybe EntryValue'Kind
_otherwise -> Maybe Double
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Double
y__ -> (Double -> EntryValue'Kind)
-> Maybe Double -> Maybe EntryValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Double -> EntryValue'Kind
EntryValue'DoubleValue Maybe Double
y__))
instance Data.ProtoLens.Field.HasField EntryValue "doubleValue" Prelude.Double where
  fieldOf :: Proxy# "doubleValue"
-> (Double -> f Double) -> EntryValue -> f EntryValue
fieldOf _
    = ((Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
 -> EntryValue -> f EntryValue)
-> ((Double -> f Double)
    -> Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
-> (Double -> f Double)
-> EntryValue
-> f EntryValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EntryValue -> Maybe EntryValue'Kind)
-> (EntryValue -> Maybe EntryValue'Kind -> EntryValue)
-> Lens
     EntryValue
     EntryValue
     (Maybe EntryValue'Kind)
     (Maybe EntryValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EntryValue -> Maybe EntryValue'Kind
_EntryValue'kind (\ x__ :: EntryValue
x__ y__ :: Maybe EntryValue'Kind
y__ -> EntryValue
x__ {_EntryValue'kind :: Maybe EntryValue'Kind
_EntryValue'kind = Maybe EntryValue'Kind
y__}))
        (((Maybe Double -> f (Maybe Double))
 -> Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
-> ((Double -> f Double) -> Maybe Double -> f (Maybe Double))
-> (Double -> f Double)
-> Maybe EntryValue'Kind
-> f (Maybe EntryValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe EntryValue'Kind -> Maybe Double)
-> (Maybe EntryValue'Kind -> Maybe Double -> Maybe EntryValue'Kind)
-> Lens
     (Maybe EntryValue'Kind)
     (Maybe EntryValue'Kind)
     (Maybe Double)
     (Maybe Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe EntryValue'Kind
x__
                 -> case Maybe EntryValue'Kind
x__ of
                      (Prelude.Just (EntryValue'DoubleValue x__val :: Double
x__val))
                        -> Double -> Maybe Double
forall a. a -> Maybe a
Prelude.Just Double
x__val
                      _otherwise :: Maybe EntryValue'Kind
_otherwise -> Maybe Double
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Double
y__ -> (Double -> EntryValue'Kind)
-> Maybe Double -> Maybe EntryValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Double -> EntryValue'Kind
EntryValue'DoubleValue Maybe Double
y__))
           (Double -> Lens' (Maybe Double) Double
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField EntryValue "maybe'stringValue" (Prelude.Maybe Data.Text.Text) where
  fieldOf :: Proxy# "maybe'stringValue"
-> (Maybe Text -> f (Maybe Text)) -> EntryValue -> f EntryValue
fieldOf _
    = ((Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
 -> EntryValue -> f EntryValue)
-> ((Maybe Text -> f (Maybe Text))
    -> Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
-> (Maybe Text -> f (Maybe Text))
-> EntryValue
-> f EntryValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EntryValue -> Maybe EntryValue'Kind)
-> (EntryValue -> Maybe EntryValue'Kind -> EntryValue)
-> Lens
     EntryValue
     EntryValue
     (Maybe EntryValue'Kind)
     (Maybe EntryValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EntryValue -> Maybe EntryValue'Kind
_EntryValue'kind (\ x__ :: EntryValue
x__ y__ :: Maybe EntryValue'Kind
y__ -> EntryValue
x__ {_EntryValue'kind :: Maybe EntryValue'Kind
_EntryValue'kind = Maybe EntryValue'Kind
y__}))
        ((Maybe EntryValue'Kind -> Maybe Text)
-> (Maybe EntryValue'Kind -> Maybe Text -> Maybe EntryValue'Kind)
-> Lens
     (Maybe EntryValue'Kind)
     (Maybe EntryValue'Kind)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           (\ x__ :: Maybe EntryValue'Kind
x__
              -> case Maybe EntryValue'Kind
x__ of
                   (Prelude.Just (EntryValue'StringValue x__val :: Text
x__val))
                     -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                   _otherwise :: Maybe EntryValue'Kind
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
           (\ _ y__ :: Maybe Text
y__ -> (Text -> EntryValue'Kind) -> Maybe Text -> Maybe EntryValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> EntryValue'Kind
EntryValue'StringValue Maybe Text
y__))
instance Data.ProtoLens.Field.HasField EntryValue "stringValue" Data.Text.Text where
  fieldOf :: Proxy# "stringValue"
-> (Text -> f Text) -> EntryValue -> f EntryValue
fieldOf _
    = ((Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
 -> EntryValue -> f EntryValue)
-> ((Text -> f Text)
    -> Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
-> (Text -> f Text)
-> EntryValue
-> f EntryValue
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((EntryValue -> Maybe EntryValue'Kind)
-> (EntryValue -> Maybe EntryValue'Kind -> EntryValue)
-> Lens
     EntryValue
     EntryValue
     (Maybe EntryValue'Kind)
     (Maybe EntryValue'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           EntryValue -> Maybe EntryValue'Kind
_EntryValue'kind (\ x__ :: EntryValue
x__ y__ :: Maybe EntryValue'Kind
y__ -> EntryValue
x__ {_EntryValue'kind :: Maybe EntryValue'Kind
_EntryValue'kind = Maybe EntryValue'Kind
y__}))
        (((Maybe Text -> f (Maybe Text))
 -> Maybe EntryValue'Kind -> f (Maybe EntryValue'Kind))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe EntryValue'Kind
-> f (Maybe EntryValue'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
           ((Maybe EntryValue'Kind -> Maybe Text)
-> (Maybe EntryValue'Kind -> Maybe Text -> Maybe EntryValue'Kind)
-> Lens
     (Maybe EntryValue'Kind)
     (Maybe EntryValue'Kind)
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
              (\ x__ :: Maybe EntryValue'Kind
x__
                 -> case Maybe EntryValue'Kind
x__ of
                      (Prelude.Just (EntryValue'StringValue x__val :: Text
x__val))
                        -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
                      _otherwise :: Maybe EntryValue'Kind
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
              (\ _ y__ :: Maybe Text
y__ -> (Text -> EntryValue'Kind) -> Maybe Text -> Maybe EntryValue'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> EntryValue'Kind
EntryValue'StringValue Maybe Text
y__))
           (Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Message EntryValue where
  messageName :: Proxy EntryValue -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.EntryValue"
  packedMessageDescriptor :: Proxy EntryValue -> ByteString
packedMessageDescriptor _
    = "\n\
      \\n\
      \EntryValue\DC2#\n\
      \\fdouble_value\CAN\SOH \SOH(\SOHH\NULR\vdoubleValue\DC2#\n\
      \\fstring_value\CAN\STX \SOH(\tH\NULR\vstringValueB\ACK\n\
      \\EOTkind"
  packedFileDescriptor :: Proxy EntryValue -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor EntryValue)
fieldsByTag
    = let
        doubleValue__field_descriptor :: FieldDescriptor EntryValue
doubleValue__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor EntryValue Double
-> FieldDescriptor EntryValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "double_value"
              (ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
                 Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
              (Lens' EntryValue (Maybe Double) -> FieldAccessor EntryValue Double
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'doubleValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'doubleValue")) ::
              Data.ProtoLens.FieldDescriptor EntryValue
        stringValue__field_descriptor :: FieldDescriptor EntryValue
stringValue__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor EntryValue Text
-> FieldDescriptor EntryValue
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "string_value"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Lens' EntryValue (Maybe Text) -> FieldAccessor EntryValue Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'stringValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'stringValue")) ::
              Data.ProtoLens.FieldDescriptor EntryValue
      in
        [(Tag, FieldDescriptor EntryValue)]
-> Map Tag (FieldDescriptor EntryValue)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor EntryValue
doubleValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor EntryValue
stringValue__field_descriptor)]
  unknownFields :: LensLike' f EntryValue FieldSet
unknownFields
    = (EntryValue -> FieldSet)
-> (EntryValue -> FieldSet -> EntryValue)
-> Lens' EntryValue FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        EntryValue -> FieldSet
_EntryValue'_unknownFields
        (\ x__ :: EntryValue
x__ y__ :: FieldSet
y__ -> EntryValue
x__ {_EntryValue'_unknownFields :: FieldSet
_EntryValue'_unknownFields = FieldSet
y__})
  defMessage :: EntryValue
defMessage
    = $WEntryValue'_constructor :: Maybe EntryValue'Kind -> FieldSet -> EntryValue
EntryValue'_constructor
        {_EntryValue'kind :: Maybe EntryValue'Kind
_EntryValue'kind = Maybe EntryValue'Kind
forall a. Maybe a
Prelude.Nothing,
         _EntryValue'_unknownFields :: FieldSet
_EntryValue'_unknownFields = []}
  parseMessage :: Parser EntryValue
parseMessage
    = let
        loop ::
          EntryValue -> Data.ProtoLens.Encoding.Bytes.Parser EntryValue
        loop :: EntryValue -> Parser EntryValue
loop x :: EntryValue
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      EntryValue -> Parser EntryValue
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter EntryValue EntryValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> EntryValue -> EntryValue
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter EntryValue EntryValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) EntryValue
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        9 -> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       "double_value"
                                EntryValue -> Parser EntryValue
loop
                                  (Setter EntryValue EntryValue Double Double
-> Double -> EntryValue -> EntryValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "doubleValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"doubleValue") Double
y EntryValue
x)
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "string_value"
                                EntryValue -> Parser EntryValue
loop
                                  (Setter EntryValue EntryValue Text Text
-> Text -> EntryValue -> EntryValue
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "stringValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stringValue") Text
y EntryValue
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                EntryValue -> Parser EntryValue
loop
                                  (Setter EntryValue EntryValue FieldSet FieldSet
-> (FieldSet -> FieldSet) -> EntryValue -> EntryValue
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter EntryValue EntryValue FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) EntryValue
x)
      in
        Parser EntryValue -> String -> Parser EntryValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do EntryValue -> Parser EntryValue
loop EntryValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "EntryValue"
  buildMessage :: EntryValue -> Builder
buildMessage
    = \ _x :: EntryValue
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (case
                  FoldLike
  (Maybe EntryValue'Kind)
  EntryValue
  EntryValue
  (Maybe EntryValue'Kind)
  (Maybe EntryValue'Kind)
-> EntryValue -> Maybe EntryValue'Kind
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'kind" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'kind") EntryValue
_x
              of
                Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                (Prelude.Just (EntryValue'DoubleValue v :: Double
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 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)
                (Prelude.Just (EntryValue'StringValue v :: Text
v))
                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                       ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                          (\ bs :: ByteString
bs
                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                          Text -> ByteString
Data.Text.Encoding.encodeUtf8
                          Text
v))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet EntryValue EntryValue FieldSet FieldSet
-> EntryValue -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet EntryValue EntryValue FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields EntryValue
_x))
instance Control.DeepSeq.NFData EntryValue where
  rnf :: EntryValue -> ()
rnf
    = \ x__ :: EntryValue
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (EntryValue -> FieldSet
_EntryValue'_unknownFields EntryValue
x__)
             (Maybe EntryValue'Kind -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (EntryValue -> Maybe EntryValue'Kind
_EntryValue'kind EntryValue
x__) ())
instance Control.DeepSeq.NFData EntryValue'Kind where
  rnf :: EntryValue'Kind -> ()
rnf (EntryValue'DoubleValue x__ :: Double
x__) = Double -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Double
x__
  rnf (EntryValue'StringValue x__ :: Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
_EntryValue'DoubleValue ::
  Data.ProtoLens.Prism.Prism' EntryValue'Kind Prelude.Double
_EntryValue'DoubleValue :: p Double (f Double) -> p EntryValue'Kind (f EntryValue'Kind)
_EntryValue'DoubleValue
  = (Double -> EntryValue'Kind)
-> (EntryValue'Kind -> Maybe Double)
-> Prism EntryValue'Kind EntryValue'Kind Double Double
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Double -> EntryValue'Kind
EntryValue'DoubleValue
      (\ p__ :: EntryValue'Kind
p__
         -> case EntryValue'Kind
p__ of
              (EntryValue'DoubleValue p__val :: Double
p__val) -> Double -> Maybe Double
forall a. a -> Maybe a
Prelude.Just Double
p__val
              _otherwise :: EntryValue'Kind
_otherwise -> Maybe Double
forall a. Maybe a
Prelude.Nothing)
_EntryValue'StringValue ::
  Data.ProtoLens.Prism.Prism' EntryValue'Kind Data.Text.Text
_EntryValue'StringValue :: p Text (f Text) -> p EntryValue'Kind (f EntryValue'Kind)
_EntryValue'StringValue
  = (Text -> EntryValue'Kind)
-> (EntryValue'Kind -> Maybe Text)
-> Prism EntryValue'Kind EntryValue'Kind Text Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
      Text -> EntryValue'Kind
EntryValue'StringValue
      (\ p__ :: EntryValue'Kind
p__
         -> case EntryValue'Kind
p__ of
              (EntryValue'StringValue p__val :: Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
              _otherwise :: EntryValue'Kind
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.model' @:: Lens' GPUInfo Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.uuid' @:: Lens' GPUInfo Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.busId' @:: Lens' GPUInfo Data.Text.Text@ -}
data GPUInfo
  = GPUInfo'_constructor {GPUInfo -> Text
_GPUInfo'model :: !Data.Text.Text,
                          GPUInfo -> Text
_GPUInfo'uuid :: !Data.Text.Text,
                          GPUInfo -> Text
_GPUInfo'busId :: !Data.Text.Text,
                          GPUInfo -> FieldSet
_GPUInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (GPUInfo -> GPUInfo -> Bool
(GPUInfo -> GPUInfo -> Bool)
-> (GPUInfo -> GPUInfo -> Bool) -> Eq GPUInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GPUInfo -> GPUInfo -> Bool
$c/= :: GPUInfo -> GPUInfo -> Bool
== :: GPUInfo -> GPUInfo -> Bool
$c== :: GPUInfo -> GPUInfo -> Bool
Prelude.Eq, Eq GPUInfo
Eq GPUInfo =>
(GPUInfo -> GPUInfo -> Ordering)
-> (GPUInfo -> GPUInfo -> Bool)
-> (GPUInfo -> GPUInfo -> Bool)
-> (GPUInfo -> GPUInfo -> Bool)
-> (GPUInfo -> GPUInfo -> Bool)
-> (GPUInfo -> GPUInfo -> GPUInfo)
-> (GPUInfo -> GPUInfo -> GPUInfo)
-> Ord GPUInfo
GPUInfo -> GPUInfo -> Bool
GPUInfo -> GPUInfo -> Ordering
GPUInfo -> GPUInfo -> GPUInfo
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: GPUInfo -> GPUInfo -> GPUInfo
$cmin :: GPUInfo -> GPUInfo -> GPUInfo
max :: GPUInfo -> GPUInfo -> GPUInfo
$cmax :: GPUInfo -> GPUInfo -> GPUInfo
>= :: GPUInfo -> GPUInfo -> Bool
$c>= :: GPUInfo -> GPUInfo -> Bool
> :: GPUInfo -> GPUInfo -> Bool
$c> :: GPUInfo -> GPUInfo -> Bool
<= :: GPUInfo -> GPUInfo -> Bool
$c<= :: GPUInfo -> GPUInfo -> Bool
< :: GPUInfo -> GPUInfo -> Bool
$c< :: GPUInfo -> GPUInfo -> Bool
compare :: GPUInfo -> GPUInfo -> Ordering
$ccompare :: GPUInfo -> GPUInfo -> Ordering
$cp1Ord :: Eq GPUInfo
Prelude.Ord)
instance Prelude.Show GPUInfo where
  showsPrec :: Int -> GPUInfo -> ShowS
showsPrec _ __x :: GPUInfo
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (GPUInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort GPUInfo
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField GPUInfo "model" Data.Text.Text where
  fieldOf :: Proxy# "model" -> (Text -> f Text) -> GPUInfo -> f GPUInfo
fieldOf _
    = ((Text -> f Text) -> GPUInfo -> f GPUInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> GPUInfo
-> f GPUInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GPUInfo -> Text)
-> (GPUInfo -> Text -> GPUInfo) -> Lens GPUInfo GPUInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GPUInfo -> Text
_GPUInfo'model (\ x__ :: GPUInfo
x__ y__ :: Text
y__ -> GPUInfo
x__ {_GPUInfo'model :: Text
_GPUInfo'model = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUInfo "uuid" Data.Text.Text where
  fieldOf :: Proxy# "uuid" -> (Text -> f Text) -> GPUInfo -> f GPUInfo
fieldOf _
    = ((Text -> f Text) -> GPUInfo -> f GPUInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> GPUInfo
-> f GPUInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GPUInfo -> Text)
-> (GPUInfo -> Text -> GPUInfo) -> Lens GPUInfo GPUInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GPUInfo -> Text
_GPUInfo'uuid (\ x__ :: GPUInfo
x__ y__ :: Text
y__ -> GPUInfo
x__ {_GPUInfo'uuid :: Text
_GPUInfo'uuid = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField GPUInfo "busId" Data.Text.Text where
  fieldOf :: Proxy# "busId" -> (Text -> f Text) -> GPUInfo -> f GPUInfo
fieldOf _
    = ((Text -> f Text) -> GPUInfo -> f GPUInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> GPUInfo
-> f GPUInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((GPUInfo -> Text)
-> (GPUInfo -> Text -> GPUInfo) -> Lens GPUInfo GPUInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           GPUInfo -> Text
_GPUInfo'busId (\ x__ :: GPUInfo
x__ y__ :: Text
y__ -> GPUInfo
x__ {_GPUInfo'busId :: Text
_GPUInfo'busId = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message GPUInfo where
  messageName :: Proxy GPUInfo -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.GPUInfo"
  packedMessageDescriptor :: Proxy GPUInfo -> ByteString
packedMessageDescriptor _
    = "\n\
      \\aGPUInfo\DC2\DC4\n\
      \\ENQmodel\CAN\SOH \SOH(\tR\ENQmodel\DC2\DC2\n\
      \\EOTuuid\CAN\STX \SOH(\tR\EOTuuid\DC2\NAK\n\
      \\ACKbus_id\CAN\ETX \SOH(\tR\ENQbusId"
  packedFileDescriptor :: Proxy GPUInfo -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor GPUInfo)
fieldsByTag
    = let
        model__field_descriptor :: FieldDescriptor GPUInfo
model__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor GPUInfo Text
-> FieldDescriptor GPUInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "model"
              (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 GPUInfo GPUInfo Text Text -> FieldAccessor GPUInfo 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 s a (f :: * -> *).
(HasField s "model" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"model")) ::
              Data.ProtoLens.FieldDescriptor GPUInfo
        uuid__field_descriptor :: FieldDescriptor GPUInfo
uuid__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor GPUInfo Text
-> FieldDescriptor GPUInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "uuid"
              (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 GPUInfo GPUInfo Text Text -> FieldAccessor GPUInfo 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 s a (f :: * -> *).
(HasField s "uuid" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uuid")) ::
              Data.ProtoLens.FieldDescriptor GPUInfo
        busId__field_descriptor :: FieldDescriptor GPUInfo
busId__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor GPUInfo Text
-> FieldDescriptor GPUInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "bus_id"
              (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 GPUInfo GPUInfo Text Text -> FieldAccessor GPUInfo 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 s a (f :: * -> *).
(HasField s "busId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"busId")) ::
              Data.ProtoLens.FieldDescriptor GPUInfo
      in
        [(Tag, FieldDescriptor GPUInfo)]
-> Map Tag (FieldDescriptor GPUInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor GPUInfo
model__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor GPUInfo
uuid__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor GPUInfo
busId__field_descriptor)]
  unknownFields :: LensLike' f GPUInfo FieldSet
unknownFields
    = (GPUInfo -> FieldSet)
-> (GPUInfo -> FieldSet -> GPUInfo) -> Lens' GPUInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        GPUInfo -> FieldSet
_GPUInfo'_unknownFields
        (\ x__ :: GPUInfo
x__ y__ :: FieldSet
y__ -> GPUInfo
x__ {_GPUInfo'_unknownFields :: FieldSet
_GPUInfo'_unknownFields = FieldSet
y__})
  defMessage :: GPUInfo
defMessage
    = $WGPUInfo'_constructor :: Text -> Text -> Text -> FieldSet -> GPUInfo
GPUInfo'_constructor
        {_GPUInfo'model :: Text
_GPUInfo'model = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _GPUInfo'uuid :: Text
_GPUInfo'uuid = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _GPUInfo'busId :: Text
_GPUInfo'busId = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _GPUInfo'_unknownFields :: FieldSet
_GPUInfo'_unknownFields = []}
  parseMessage :: Parser GPUInfo
parseMessage
    = let
        loop :: GPUInfo -> Data.ProtoLens.Encoding.Bytes.Parser GPUInfo
        loop :: GPUInfo -> Parser GPUInfo
loop x :: GPUInfo
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      GPUInfo -> Parser GPUInfo
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter GPUInfo GPUInfo FieldSet FieldSet
-> (FieldSet -> FieldSet) -> GPUInfo -> GPUInfo
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter GPUInfo GPUInfo FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) GPUInfo
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "model"
                                GPUInfo -> Parser GPUInfo
loop (Setter GPUInfo GPUInfo Text Text -> Text -> GPUInfo -> GPUInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "model" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"model") Text
y GPUInfo
x)
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "uuid"
                                GPUInfo -> Parser GPUInfo
loop (Setter GPUInfo GPUInfo Text Text -> Text -> GPUInfo -> GPUInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "uuid" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uuid") Text
y GPUInfo
x)
                        26
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "bus_id"
                                GPUInfo -> Parser GPUInfo
loop (Setter GPUInfo GPUInfo Text Text -> Text -> GPUInfo -> GPUInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "busId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"busId") Text
y GPUInfo
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                GPUInfo -> Parser GPUInfo
loop
                                  (Setter GPUInfo GPUInfo FieldSet FieldSet
-> (FieldSet -> FieldSet) -> GPUInfo -> GPUInfo
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter GPUInfo GPUInfo FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) GPUInfo
x)
      in
        Parser GPUInfo -> String -> Parser GPUInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do GPUInfo -> Parser GPUInfo
loop GPUInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "GPUInfo"
  buildMessage :: GPUInfo -> Builder
buildMessage
    = \ _x :: GPUInfo
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike Text GPUInfo GPUInfo Text Text -> GPUInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "model" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"model") GPUInfo
_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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let _v :: Text
_v = FoldLike Text GPUInfo GPUInfo Text Text -> GPUInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "uuid" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uuid") GPUInfo
_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 18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ bs :: ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8
                            Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Text
_v = FoldLike Text GPUInfo GPUInfo Text Text -> GPUInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "busId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"busId") GPUInfo
_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 26)
                            ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               (\ bs :: ByteString
bs
                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                          (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                       (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                               Text -> ByteString
Data.Text.Encoding.encodeUtf8
                               Text
_v))
                   (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                      (FoldLike FieldSet GPUInfo GPUInfo FieldSet FieldSet
-> GPUInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet GPUInfo GPUInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields GPUInfo
_x))))
instance Control.DeepSeq.NFData GPUInfo where
  rnf :: GPUInfo -> ()
rnf
    = \ x__ :: GPUInfo
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (GPUInfo -> FieldSet
_GPUInfo'_unknownFields GPUInfo
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (GPUInfo -> Text
_GPUInfo'model GPUInfo
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (GPUInfo -> Text
_GPUInfo'uuid GPUInfo
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (GPUInfo -> Text
_GPUInfo'busId GPUInfo
x__) ())))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.hostname' @:: Lens' MachineConfiguration Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.serialIdentifier' @:: Lens' MachineConfiguration Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.platformInfo' @:: Lens' MachineConfiguration PlatformInfo@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'platformInfo' @:: Lens' MachineConfiguration (Prelude.Maybe PlatformInfo)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.cpuInfo' @:: Lens' MachineConfiguration CPUInfo@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'cpuInfo' @:: Lens' MachineConfiguration (Prelude.Maybe CPUInfo)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.deviceInfo' @:: Lens' MachineConfiguration [Proto.Google.Protobuf.Any.Any]@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.vec'deviceInfo' @:: Lens' MachineConfiguration (Data.Vector.Vector Proto.Google.Protobuf.Any.Any)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.availableDeviceInfo' @:: Lens' MachineConfiguration [AvailableDeviceInfo]@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.vec'availableDeviceInfo' @:: Lens' MachineConfiguration (Data.Vector.Vector AvailableDeviceInfo)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.memoryInfo' @:: Lens' MachineConfiguration MemoryInfo@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'memoryInfo' @:: Lens' MachineConfiguration (Prelude.Maybe MemoryInfo)@ -}
data MachineConfiguration
  = MachineConfiguration'_constructor {MachineConfiguration -> Text
_MachineConfiguration'hostname :: !Data.Text.Text,
                                       MachineConfiguration -> Text
_MachineConfiguration'serialIdentifier :: !Data.Text.Text,
                                       MachineConfiguration -> Maybe PlatformInfo
_MachineConfiguration'platformInfo :: !(Prelude.Maybe PlatformInfo),
                                       MachineConfiguration -> Maybe CPUInfo
_MachineConfiguration'cpuInfo :: !(Prelude.Maybe CPUInfo),
                                       MachineConfiguration -> Vector Any
_MachineConfiguration'deviceInfo :: !(Data.Vector.Vector Proto.Google.Protobuf.Any.Any),
                                       MachineConfiguration -> Vector AvailableDeviceInfo
_MachineConfiguration'availableDeviceInfo :: !(Data.Vector.Vector AvailableDeviceInfo),
                                       MachineConfiguration -> Maybe MemoryInfo
_MachineConfiguration'memoryInfo :: !(Prelude.Maybe MemoryInfo),
                                       MachineConfiguration -> FieldSet
_MachineConfiguration'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MachineConfiguration -> MachineConfiguration -> Bool
(MachineConfiguration -> MachineConfiguration -> Bool)
-> (MachineConfiguration -> MachineConfiguration -> Bool)
-> Eq MachineConfiguration
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MachineConfiguration -> MachineConfiguration -> Bool
$c/= :: MachineConfiguration -> MachineConfiguration -> Bool
== :: MachineConfiguration -> MachineConfiguration -> Bool
$c== :: MachineConfiguration -> MachineConfiguration -> Bool
Prelude.Eq, Eq MachineConfiguration
Eq MachineConfiguration =>
(MachineConfiguration -> MachineConfiguration -> Ordering)
-> (MachineConfiguration -> MachineConfiguration -> Bool)
-> (MachineConfiguration -> MachineConfiguration -> Bool)
-> (MachineConfiguration -> MachineConfiguration -> Bool)
-> (MachineConfiguration -> MachineConfiguration -> Bool)
-> (MachineConfiguration
    -> MachineConfiguration -> MachineConfiguration)
-> (MachineConfiguration
    -> MachineConfiguration -> MachineConfiguration)
-> Ord MachineConfiguration
MachineConfiguration -> MachineConfiguration -> Bool
MachineConfiguration -> MachineConfiguration -> Ordering
MachineConfiguration
-> MachineConfiguration -> MachineConfiguration
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: MachineConfiguration
-> MachineConfiguration -> MachineConfiguration
$cmin :: MachineConfiguration
-> MachineConfiguration -> MachineConfiguration
max :: MachineConfiguration
-> MachineConfiguration -> MachineConfiguration
$cmax :: MachineConfiguration
-> MachineConfiguration -> MachineConfiguration
>= :: MachineConfiguration -> MachineConfiguration -> Bool
$c>= :: MachineConfiguration -> MachineConfiguration -> Bool
> :: MachineConfiguration -> MachineConfiguration -> Bool
$c> :: MachineConfiguration -> MachineConfiguration -> Bool
<= :: MachineConfiguration -> MachineConfiguration -> Bool
$c<= :: MachineConfiguration -> MachineConfiguration -> Bool
< :: MachineConfiguration -> MachineConfiguration -> Bool
$c< :: MachineConfiguration -> MachineConfiguration -> Bool
compare :: MachineConfiguration -> MachineConfiguration -> Ordering
$ccompare :: MachineConfiguration -> MachineConfiguration -> Ordering
$cp1Ord :: Eq MachineConfiguration
Prelude.Ord)
instance Prelude.Show MachineConfiguration where
  showsPrec :: Int -> MachineConfiguration -> ShowS
showsPrec _ __x :: MachineConfiguration
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (MachineConfiguration -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MachineConfiguration
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MachineConfiguration "hostname" Data.Text.Text where
  fieldOf :: Proxy# "hostname"
-> (Text -> f Text)
-> MachineConfiguration
-> f MachineConfiguration
fieldOf _
    = ((Text -> f Text)
 -> MachineConfiguration -> f MachineConfiguration)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MachineConfiguration
-> f MachineConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MachineConfiguration -> Text)
-> (MachineConfiguration -> Text -> MachineConfiguration)
-> Lens MachineConfiguration MachineConfiguration Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MachineConfiguration -> Text
_MachineConfiguration'hostname
           (\ x__ :: MachineConfiguration
x__ y__ :: Text
y__ -> MachineConfiguration
x__ {_MachineConfiguration'hostname :: Text
_MachineConfiguration'hostname = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MachineConfiguration "serialIdentifier" Data.Text.Text where
  fieldOf :: Proxy# "serialIdentifier"
-> (Text -> f Text)
-> MachineConfiguration
-> f MachineConfiguration
fieldOf _
    = ((Text -> f Text)
 -> MachineConfiguration -> f MachineConfiguration)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MachineConfiguration
-> f MachineConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MachineConfiguration -> Text)
-> (MachineConfiguration -> Text -> MachineConfiguration)
-> Lens MachineConfiguration MachineConfiguration Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MachineConfiguration -> Text
_MachineConfiguration'serialIdentifier
           (\ x__ :: MachineConfiguration
x__ y__ :: Text
y__ -> MachineConfiguration
x__ {_MachineConfiguration'serialIdentifier :: Text
_MachineConfiguration'serialIdentifier = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MachineConfiguration "platformInfo" PlatformInfo where
  fieldOf :: Proxy# "platformInfo"
-> (PlatformInfo -> f PlatformInfo)
-> MachineConfiguration
-> f MachineConfiguration
fieldOf _
    = ((Maybe PlatformInfo -> f (Maybe PlatformInfo))
 -> MachineConfiguration -> f MachineConfiguration)
-> ((PlatformInfo -> f PlatformInfo)
    -> Maybe PlatformInfo -> f (Maybe PlatformInfo))
-> (PlatformInfo -> f PlatformInfo)
-> MachineConfiguration
-> f MachineConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MachineConfiguration -> Maybe PlatformInfo)
-> (MachineConfiguration
    -> Maybe PlatformInfo -> MachineConfiguration)
-> Lens
     MachineConfiguration
     MachineConfiguration
     (Maybe PlatformInfo)
     (Maybe PlatformInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MachineConfiguration -> Maybe PlatformInfo
_MachineConfiguration'platformInfo
           (\ x__ :: MachineConfiguration
x__ y__ :: Maybe PlatformInfo
y__ -> MachineConfiguration
x__ {_MachineConfiguration'platformInfo :: Maybe PlatformInfo
_MachineConfiguration'platformInfo = Maybe PlatformInfo
y__}))
        (PlatformInfo -> Lens' (Maybe PlatformInfo) PlatformInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens PlatformInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MachineConfiguration "maybe'platformInfo" (Prelude.Maybe PlatformInfo) where
  fieldOf :: Proxy# "maybe'platformInfo"
-> (Maybe PlatformInfo -> f (Maybe PlatformInfo))
-> MachineConfiguration
-> f MachineConfiguration
fieldOf _
    = ((Maybe PlatformInfo -> f (Maybe PlatformInfo))
 -> MachineConfiguration -> f MachineConfiguration)
-> ((Maybe PlatformInfo -> f (Maybe PlatformInfo))
    -> Maybe PlatformInfo -> f (Maybe PlatformInfo))
-> (Maybe PlatformInfo -> f (Maybe PlatformInfo))
-> MachineConfiguration
-> f MachineConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MachineConfiguration -> Maybe PlatformInfo)
-> (MachineConfiguration
    -> Maybe PlatformInfo -> MachineConfiguration)
-> Lens
     MachineConfiguration
     MachineConfiguration
     (Maybe PlatformInfo)
     (Maybe PlatformInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MachineConfiguration -> Maybe PlatformInfo
_MachineConfiguration'platformInfo
           (\ x__ :: MachineConfiguration
x__ y__ :: Maybe PlatformInfo
y__ -> MachineConfiguration
x__ {_MachineConfiguration'platformInfo :: Maybe PlatformInfo
_MachineConfiguration'platformInfo = Maybe PlatformInfo
y__}))
        (Maybe PlatformInfo -> f (Maybe PlatformInfo))
-> Maybe PlatformInfo -> f (Maybe PlatformInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MachineConfiguration "cpuInfo" CPUInfo where
  fieldOf :: Proxy# "cpuInfo"
-> (CPUInfo -> f CPUInfo)
-> MachineConfiguration
-> f MachineConfiguration
fieldOf _
    = ((Maybe CPUInfo -> f (Maybe CPUInfo))
 -> MachineConfiguration -> f MachineConfiguration)
-> ((CPUInfo -> f CPUInfo) -> Maybe CPUInfo -> f (Maybe CPUInfo))
-> (CPUInfo -> f CPUInfo)
-> MachineConfiguration
-> f MachineConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MachineConfiguration -> Maybe CPUInfo)
-> (MachineConfiguration -> Maybe CPUInfo -> MachineConfiguration)
-> Lens
     MachineConfiguration
     MachineConfiguration
     (Maybe CPUInfo)
     (Maybe CPUInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MachineConfiguration -> Maybe CPUInfo
_MachineConfiguration'cpuInfo
           (\ x__ :: MachineConfiguration
x__ y__ :: Maybe CPUInfo
y__ -> MachineConfiguration
x__ {_MachineConfiguration'cpuInfo :: Maybe CPUInfo
_MachineConfiguration'cpuInfo = Maybe CPUInfo
y__}))
        (CPUInfo -> Lens' (Maybe CPUInfo) CPUInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CPUInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MachineConfiguration "maybe'cpuInfo" (Prelude.Maybe CPUInfo) where
  fieldOf :: Proxy# "maybe'cpuInfo"
-> (Maybe CPUInfo -> f (Maybe CPUInfo))
-> MachineConfiguration
-> f MachineConfiguration
fieldOf _
    = ((Maybe CPUInfo -> f (Maybe CPUInfo))
 -> MachineConfiguration -> f MachineConfiguration)
-> ((Maybe CPUInfo -> f (Maybe CPUInfo))
    -> Maybe CPUInfo -> f (Maybe CPUInfo))
-> (Maybe CPUInfo -> f (Maybe CPUInfo))
-> MachineConfiguration
-> f MachineConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MachineConfiguration -> Maybe CPUInfo)
-> (MachineConfiguration -> Maybe CPUInfo -> MachineConfiguration)
-> Lens
     MachineConfiguration
     MachineConfiguration
     (Maybe CPUInfo)
     (Maybe CPUInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MachineConfiguration -> Maybe CPUInfo
_MachineConfiguration'cpuInfo
           (\ x__ :: MachineConfiguration
x__ y__ :: Maybe CPUInfo
y__ -> MachineConfiguration
x__ {_MachineConfiguration'cpuInfo :: Maybe CPUInfo
_MachineConfiguration'cpuInfo = Maybe CPUInfo
y__}))
        (Maybe CPUInfo -> f (Maybe CPUInfo))
-> Maybe CPUInfo -> f (Maybe CPUInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MachineConfiguration "deviceInfo" [Proto.Google.Protobuf.Any.Any] where
  fieldOf :: Proxy# "deviceInfo"
-> ([Any] -> f [Any])
-> MachineConfiguration
-> f MachineConfiguration
fieldOf _
    = ((Vector Any -> f (Vector Any))
 -> MachineConfiguration -> f MachineConfiguration)
-> (([Any] -> f [Any]) -> Vector Any -> f (Vector Any))
-> ([Any] -> f [Any])
-> MachineConfiguration
-> f MachineConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MachineConfiguration -> Vector Any)
-> (MachineConfiguration -> Vector Any -> MachineConfiguration)
-> Lens
     MachineConfiguration MachineConfiguration (Vector Any) (Vector Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MachineConfiguration -> Vector Any
_MachineConfiguration'deviceInfo
           (\ x__ :: MachineConfiguration
x__ y__ :: Vector Any
y__ -> MachineConfiguration
x__ {_MachineConfiguration'deviceInfo :: Vector Any
_MachineConfiguration'deviceInfo = Vector Any
y__}))
        ((Vector Any -> [Any])
-> (Vector Any -> [Any] -> Vector Any)
-> Lens (Vector Any) (Vector Any) [Any] [Any]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Any -> [Any]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Any]
y__ -> [Any] -> Vector Any
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Any]
y__))
instance Data.ProtoLens.Field.HasField MachineConfiguration "vec'deviceInfo" (Data.Vector.Vector Proto.Google.Protobuf.Any.Any) where
  fieldOf :: Proxy# "vec'deviceInfo"
-> (Vector Any -> f (Vector Any))
-> MachineConfiguration
-> f MachineConfiguration
fieldOf _
    = ((Vector Any -> f (Vector Any))
 -> MachineConfiguration -> f MachineConfiguration)
-> ((Vector Any -> f (Vector Any)) -> Vector Any -> f (Vector Any))
-> (Vector Any -> f (Vector Any))
-> MachineConfiguration
-> f MachineConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MachineConfiguration -> Vector Any)
-> (MachineConfiguration -> Vector Any -> MachineConfiguration)
-> Lens
     MachineConfiguration MachineConfiguration (Vector Any) (Vector Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MachineConfiguration -> Vector Any
_MachineConfiguration'deviceInfo
           (\ x__ :: MachineConfiguration
x__ y__ :: Vector Any
y__ -> MachineConfiguration
x__ {_MachineConfiguration'deviceInfo :: Vector Any
_MachineConfiguration'deviceInfo = Vector Any
y__}))
        (Vector Any -> f (Vector Any)) -> Vector Any -> f (Vector Any)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MachineConfiguration "availableDeviceInfo" [AvailableDeviceInfo] where
  fieldOf :: Proxy# "availableDeviceInfo"
-> ([AvailableDeviceInfo] -> f [AvailableDeviceInfo])
-> MachineConfiguration
-> f MachineConfiguration
fieldOf _
    = ((Vector AvailableDeviceInfo -> f (Vector AvailableDeviceInfo))
 -> MachineConfiguration -> f MachineConfiguration)
-> (([AvailableDeviceInfo] -> f [AvailableDeviceInfo])
    -> Vector AvailableDeviceInfo -> f (Vector AvailableDeviceInfo))
-> ([AvailableDeviceInfo] -> f [AvailableDeviceInfo])
-> MachineConfiguration
-> f MachineConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MachineConfiguration -> Vector AvailableDeviceInfo)
-> (MachineConfiguration
    -> Vector AvailableDeviceInfo -> MachineConfiguration)
-> Lens
     MachineConfiguration
     MachineConfiguration
     (Vector AvailableDeviceInfo)
     (Vector AvailableDeviceInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MachineConfiguration -> Vector AvailableDeviceInfo
_MachineConfiguration'availableDeviceInfo
           (\ x__ :: MachineConfiguration
x__ y__ :: Vector AvailableDeviceInfo
y__
              -> MachineConfiguration
x__ {_MachineConfiguration'availableDeviceInfo :: Vector AvailableDeviceInfo
_MachineConfiguration'availableDeviceInfo = Vector AvailableDeviceInfo
y__}))
        ((Vector AvailableDeviceInfo -> [AvailableDeviceInfo])
-> (Vector AvailableDeviceInfo
    -> [AvailableDeviceInfo] -> Vector AvailableDeviceInfo)
-> Lens
     (Vector AvailableDeviceInfo)
     (Vector AvailableDeviceInfo)
     [AvailableDeviceInfo]
     [AvailableDeviceInfo]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector AvailableDeviceInfo -> [AvailableDeviceInfo]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [AvailableDeviceInfo]
y__ -> [AvailableDeviceInfo] -> Vector AvailableDeviceInfo
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [AvailableDeviceInfo]
y__))
instance Data.ProtoLens.Field.HasField MachineConfiguration "vec'availableDeviceInfo" (Data.Vector.Vector AvailableDeviceInfo) where
  fieldOf :: Proxy# "vec'availableDeviceInfo"
-> (Vector AvailableDeviceInfo -> f (Vector AvailableDeviceInfo))
-> MachineConfiguration
-> f MachineConfiguration
fieldOf _
    = ((Vector AvailableDeviceInfo -> f (Vector AvailableDeviceInfo))
 -> MachineConfiguration -> f MachineConfiguration)
-> ((Vector AvailableDeviceInfo -> f (Vector AvailableDeviceInfo))
    -> Vector AvailableDeviceInfo -> f (Vector AvailableDeviceInfo))
-> (Vector AvailableDeviceInfo -> f (Vector AvailableDeviceInfo))
-> MachineConfiguration
-> f MachineConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MachineConfiguration -> Vector AvailableDeviceInfo)
-> (MachineConfiguration
    -> Vector AvailableDeviceInfo -> MachineConfiguration)
-> Lens
     MachineConfiguration
     MachineConfiguration
     (Vector AvailableDeviceInfo)
     (Vector AvailableDeviceInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MachineConfiguration -> Vector AvailableDeviceInfo
_MachineConfiguration'availableDeviceInfo
           (\ x__ :: MachineConfiguration
x__ y__ :: Vector AvailableDeviceInfo
y__
              -> MachineConfiguration
x__ {_MachineConfiguration'availableDeviceInfo :: Vector AvailableDeviceInfo
_MachineConfiguration'availableDeviceInfo = Vector AvailableDeviceInfo
y__}))
        (Vector AvailableDeviceInfo -> f (Vector AvailableDeviceInfo))
-> Vector AvailableDeviceInfo -> f (Vector AvailableDeviceInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MachineConfiguration "memoryInfo" MemoryInfo where
  fieldOf :: Proxy# "memoryInfo"
-> (MemoryInfo -> f MemoryInfo)
-> MachineConfiguration
-> f MachineConfiguration
fieldOf _
    = ((Maybe MemoryInfo -> f (Maybe MemoryInfo))
 -> MachineConfiguration -> f MachineConfiguration)
-> ((MemoryInfo -> f MemoryInfo)
    -> Maybe MemoryInfo -> f (Maybe MemoryInfo))
-> (MemoryInfo -> f MemoryInfo)
-> MachineConfiguration
-> f MachineConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MachineConfiguration -> Maybe MemoryInfo)
-> (MachineConfiguration
    -> Maybe MemoryInfo -> MachineConfiguration)
-> Lens
     MachineConfiguration
     MachineConfiguration
     (Maybe MemoryInfo)
     (Maybe MemoryInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MachineConfiguration -> Maybe MemoryInfo
_MachineConfiguration'memoryInfo
           (\ x__ :: MachineConfiguration
x__ y__ :: Maybe MemoryInfo
y__ -> MachineConfiguration
x__ {_MachineConfiguration'memoryInfo :: Maybe MemoryInfo
_MachineConfiguration'memoryInfo = Maybe MemoryInfo
y__}))
        (MemoryInfo -> Lens' (Maybe MemoryInfo) MemoryInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens MemoryInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MachineConfiguration "maybe'memoryInfo" (Prelude.Maybe MemoryInfo) where
  fieldOf :: Proxy# "maybe'memoryInfo"
-> (Maybe MemoryInfo -> f (Maybe MemoryInfo))
-> MachineConfiguration
-> f MachineConfiguration
fieldOf _
    = ((Maybe MemoryInfo -> f (Maybe MemoryInfo))
 -> MachineConfiguration -> f MachineConfiguration)
-> ((Maybe MemoryInfo -> f (Maybe MemoryInfo))
    -> Maybe MemoryInfo -> f (Maybe MemoryInfo))
-> (Maybe MemoryInfo -> f (Maybe MemoryInfo))
-> MachineConfiguration
-> f MachineConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MachineConfiguration -> Maybe MemoryInfo)
-> (MachineConfiguration
    -> Maybe MemoryInfo -> MachineConfiguration)
-> Lens
     MachineConfiguration
     MachineConfiguration
     (Maybe MemoryInfo)
     (Maybe MemoryInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MachineConfiguration -> Maybe MemoryInfo
_MachineConfiguration'memoryInfo
           (\ x__ :: MachineConfiguration
x__ y__ :: Maybe MemoryInfo
y__ -> MachineConfiguration
x__ {_MachineConfiguration'memoryInfo :: Maybe MemoryInfo
_MachineConfiguration'memoryInfo = Maybe MemoryInfo
y__}))
        (Maybe MemoryInfo -> f (Maybe MemoryInfo))
-> Maybe MemoryInfo -> f (Maybe MemoryInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MachineConfiguration where
  messageName :: Proxy MachineConfiguration -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.MachineConfiguration"
  packedMessageDescriptor :: Proxy MachineConfiguration -> ByteString
packedMessageDescriptor _
    = "\n\
      \\DC4MachineConfiguration\DC2\SUB\n\
      \\bhostname\CAN\SOH \SOH(\tR\bhostname\DC2+\n\
      \\DC1serial_identifier\CAN\a \SOH(\tR\DLEserialIdentifier\DC2=\n\
      \\rplatform_info\CAN\STX \SOH(\v2\CAN.tensorflow.PlatformInfoR\fplatformInfo\DC2.\n\
      \\bcpu_info\CAN\ETX \SOH(\v2\DC3.tensorflow.CPUInfoR\acpuInfo\DC25\n\
      \\vdevice_info\CAN\EOT \ETX(\v2\DC4.google.protobuf.AnyR\n\
      \deviceInfo\DC2S\n\
      \\NAKavailable_device_info\CAN\ENQ \ETX(\v2\US.tensorflow.AvailableDeviceInfoR\DC3availableDeviceInfo\DC27\n\
      \\vmemory_info\CAN\ACK \SOH(\v2\SYN.tensorflow.MemoryInfoR\n\
      \memoryInfo"
  packedFileDescriptor :: Proxy MachineConfiguration -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MachineConfiguration)
fieldsByTag
    = let
        hostname__field_descriptor :: FieldDescriptor MachineConfiguration
hostname__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor MachineConfiguration Text
-> FieldDescriptor MachineConfiguration
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "hostname"
              (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 MachineConfiguration MachineConfiguration Text Text
-> FieldAccessor MachineConfiguration 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 s a (f :: * -> *).
(HasField s "hostname" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hostname")) ::
              Data.ProtoLens.FieldDescriptor MachineConfiguration
        serialIdentifier__field_descriptor :: FieldDescriptor MachineConfiguration
serialIdentifier__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor MachineConfiguration Text
-> FieldDescriptor MachineConfiguration
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "serial_identifier"
              (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 MachineConfiguration MachineConfiguration Text Text
-> FieldAccessor MachineConfiguration 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 s a (f :: * -> *).
(HasField s "serialIdentifier" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"serialIdentifier")) ::
              Data.ProtoLens.FieldDescriptor MachineConfiguration
        platformInfo__field_descriptor :: FieldDescriptor MachineConfiguration
platformInfo__field_descriptor
          = String
-> FieldTypeDescriptor PlatformInfo
-> FieldAccessor MachineConfiguration PlatformInfo
-> FieldDescriptor MachineConfiguration
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "platform_info"
              (MessageOrGroup -> FieldTypeDescriptor PlatformInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor PlatformInfo)
              (Lens
  MachineConfiguration
  MachineConfiguration
  (Maybe PlatformInfo)
  (Maybe PlatformInfo)
-> FieldAccessor MachineConfiguration PlatformInfo
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'platformInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'platformInfo")) ::
              Data.ProtoLens.FieldDescriptor MachineConfiguration
        cpuInfo__field_descriptor :: FieldDescriptor MachineConfiguration
cpuInfo__field_descriptor
          = String
-> FieldTypeDescriptor CPUInfo
-> FieldAccessor MachineConfiguration CPUInfo
-> FieldDescriptor MachineConfiguration
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "cpu_info"
              (MessageOrGroup -> FieldTypeDescriptor CPUInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CPUInfo)
              (Lens
  MachineConfiguration
  MachineConfiguration
  (Maybe CPUInfo)
  (Maybe CPUInfo)
-> FieldAccessor MachineConfiguration CPUInfo
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'cpuInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'cpuInfo")) ::
              Data.ProtoLens.FieldDescriptor MachineConfiguration
        deviceInfo__field_descriptor :: FieldDescriptor MachineConfiguration
deviceInfo__field_descriptor
          = String
-> FieldTypeDescriptor Any
-> FieldAccessor MachineConfiguration Any
-> FieldDescriptor MachineConfiguration
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "device_info"
              (MessageOrGroup -> FieldTypeDescriptor Any
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Any.Any)
              (Packing
-> Lens' MachineConfiguration [Any]
-> FieldAccessor MachineConfiguration Any
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "deviceInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deviceInfo")) ::
              Data.ProtoLens.FieldDescriptor MachineConfiguration
        availableDeviceInfo__field_descriptor :: FieldDescriptor MachineConfiguration
availableDeviceInfo__field_descriptor
          = String
-> FieldTypeDescriptor AvailableDeviceInfo
-> FieldAccessor MachineConfiguration AvailableDeviceInfo
-> FieldDescriptor MachineConfiguration
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "available_device_info"
              (MessageOrGroup -> FieldTypeDescriptor AvailableDeviceInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor AvailableDeviceInfo)
              (Packing
-> Lens' MachineConfiguration [AvailableDeviceInfo]
-> FieldAccessor MachineConfiguration AvailableDeviceInfo
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "availableDeviceInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"availableDeviceInfo")) ::
              Data.ProtoLens.FieldDescriptor MachineConfiguration
        memoryInfo__field_descriptor :: FieldDescriptor MachineConfiguration
memoryInfo__field_descriptor
          = String
-> FieldTypeDescriptor MemoryInfo
-> FieldAccessor MachineConfiguration MemoryInfo
-> FieldDescriptor MachineConfiguration
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "memory_info"
              (MessageOrGroup -> FieldTypeDescriptor MemoryInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor MemoryInfo)
              (Lens
  MachineConfiguration
  MachineConfiguration
  (Maybe MemoryInfo)
  (Maybe MemoryInfo)
-> FieldAccessor MachineConfiguration MemoryInfo
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'memoryInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'memoryInfo")) ::
              Data.ProtoLens.FieldDescriptor MachineConfiguration
      in
        [(Tag, FieldDescriptor MachineConfiguration)]
-> Map Tag (FieldDescriptor MachineConfiguration)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MachineConfiguration
hostname__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor MachineConfiguration
serialIdentifier__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MachineConfiguration
platformInfo__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor MachineConfiguration
cpuInfo__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor MachineConfiguration
deviceInfo__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor MachineConfiguration
availableDeviceInfo__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor MachineConfiguration
memoryInfo__field_descriptor)]
  unknownFields :: LensLike' f MachineConfiguration FieldSet
unknownFields
    = (MachineConfiguration -> FieldSet)
-> (MachineConfiguration -> FieldSet -> MachineConfiguration)
-> Lens' MachineConfiguration FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MachineConfiguration -> FieldSet
_MachineConfiguration'_unknownFields
        (\ x__ :: MachineConfiguration
x__ y__ :: FieldSet
y__ -> MachineConfiguration
x__ {_MachineConfiguration'_unknownFields :: FieldSet
_MachineConfiguration'_unknownFields = FieldSet
y__})
  defMessage :: MachineConfiguration
defMessage
    = $WMachineConfiguration'_constructor :: Text
-> Text
-> Maybe PlatformInfo
-> Maybe CPUInfo
-> Vector Any
-> Vector AvailableDeviceInfo
-> Maybe MemoryInfo
-> FieldSet
-> MachineConfiguration
MachineConfiguration'_constructor
        {_MachineConfiguration'hostname :: Text
_MachineConfiguration'hostname = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MachineConfiguration'serialIdentifier :: Text
_MachineConfiguration'serialIdentifier = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MachineConfiguration'platformInfo :: Maybe PlatformInfo
_MachineConfiguration'platformInfo = Maybe PlatformInfo
forall a. Maybe a
Prelude.Nothing,
         _MachineConfiguration'cpuInfo :: Maybe CPUInfo
_MachineConfiguration'cpuInfo = Maybe CPUInfo
forall a. Maybe a
Prelude.Nothing,
         _MachineConfiguration'deviceInfo :: Vector Any
_MachineConfiguration'deviceInfo = Vector Any
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MachineConfiguration'availableDeviceInfo :: Vector AvailableDeviceInfo
_MachineConfiguration'availableDeviceInfo = Vector AvailableDeviceInfo
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _MachineConfiguration'memoryInfo :: Maybe MemoryInfo
_MachineConfiguration'memoryInfo = Maybe MemoryInfo
forall a. Maybe a
Prelude.Nothing,
         _MachineConfiguration'_unknownFields :: FieldSet
_MachineConfiguration'_unknownFields = []}
  parseMessage :: Parser MachineConfiguration
parseMessage
    = let
        loop ::
          MachineConfiguration
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AvailableDeviceInfo
             -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Google.Protobuf.Any.Any
                -> Data.ProtoLens.Encoding.Bytes.Parser MachineConfiguration
        loop :: MachineConfiguration
-> Growing Vector RealWorld AvailableDeviceInfo
-> Growing Vector RealWorld Any
-> Parser MachineConfiguration
loop x :: MachineConfiguration
x mutable'availableDeviceInfo :: Growing Vector RealWorld AvailableDeviceInfo
mutable'availableDeviceInfo mutable'deviceInfo :: Growing Vector RealWorld Any
mutable'deviceInfo
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector AvailableDeviceInfo
frozen'availableDeviceInfo <- IO (Vector AvailableDeviceInfo)
-> Parser (Vector AvailableDeviceInfo)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                                      (Growing Vector (PrimState IO) AvailableDeviceInfo
-> IO (Vector AvailableDeviceInfo)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                         Growing Vector RealWorld AvailableDeviceInfo
Growing Vector (PrimState IO) AvailableDeviceInfo
mutable'availableDeviceInfo)
                      Vector Any
frozen'deviceInfo <- IO (Vector Any) -> Parser (Vector Any)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                             (Growing Vector (PrimState IO) Any -> IO (Vector Any)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                                Growing Vector RealWorld Any
Growing Vector (PrimState IO) Any
mutable'deviceInfo)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      MachineConfiguration -> Parser MachineConfiguration
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter MachineConfiguration MachineConfiguration FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MachineConfiguration
-> MachineConfiguration
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter MachineConfiguration MachineConfiguration FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  MachineConfiguration
  MachineConfiguration
  (Vector AvailableDeviceInfo)
  (Vector AvailableDeviceInfo)
-> Vector AvailableDeviceInfo
-> MachineConfiguration
-> MachineConfiguration
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'availableDeviceInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'availableDeviceInfo")
                              Vector AvailableDeviceInfo
frozen'availableDeviceInfo
                              (Setter
  MachineConfiguration MachineConfiguration (Vector Any) (Vector Any)
-> Vector Any -> MachineConfiguration -> MachineConfiguration
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                 (forall s a (f :: * -> *).
(HasField s "vec'deviceInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'deviceInfo")
                                 Vector Any
frozen'deviceInfo
                                 MachineConfiguration
x)))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "hostname"
                                MachineConfiguration
-> Growing Vector RealWorld AvailableDeviceInfo
-> Growing Vector RealWorld Any
-> Parser MachineConfiguration
loop
                                  (Setter MachineConfiguration MachineConfiguration Text Text
-> Text -> MachineConfiguration -> MachineConfiguration
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "hostname" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hostname") Text
y MachineConfiguration
x)
                                  Growing Vector RealWorld AvailableDeviceInfo
mutable'availableDeviceInfo
                                  Growing Vector RealWorld Any
mutable'deviceInfo
                        58
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "serial_identifier"
                                MachineConfiguration
-> Growing Vector RealWorld AvailableDeviceInfo
-> Growing Vector RealWorld Any
-> Parser MachineConfiguration
loop
                                  (Setter MachineConfiguration MachineConfiguration Text Text
-> Text -> MachineConfiguration -> MachineConfiguration
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "serialIdentifier" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"serialIdentifier") Text
y MachineConfiguration
x)
                                  Growing Vector RealWorld AvailableDeviceInfo
mutable'availableDeviceInfo
                                  Growing Vector RealWorld Any
mutable'deviceInfo
                        18
                          -> do PlatformInfo
y <- Parser PlatformInfo -> String -> Parser PlatformInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser PlatformInfo -> Parser PlatformInfo
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser PlatformInfo
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "platform_info"
                                MachineConfiguration
-> Growing Vector RealWorld AvailableDeviceInfo
-> Growing Vector RealWorld Any
-> Parser MachineConfiguration
loop
                                  (Setter
  MachineConfiguration MachineConfiguration PlatformInfo PlatformInfo
-> PlatformInfo -> MachineConfiguration -> MachineConfiguration
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "platformInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"platformInfo") PlatformInfo
y MachineConfiguration
x)
                                  Growing Vector RealWorld AvailableDeviceInfo
mutable'availableDeviceInfo
                                  Growing Vector RealWorld Any
mutable'deviceInfo
                        26
                          -> do CPUInfo
y <- Parser CPUInfo -> String -> Parser CPUInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser CPUInfo -> Parser CPUInfo
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser CPUInfo
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "cpu_info"
                                MachineConfiguration
-> Growing Vector RealWorld AvailableDeviceInfo
-> Growing Vector RealWorld Any
-> Parser MachineConfiguration
loop
                                  (Setter MachineConfiguration MachineConfiguration CPUInfo CPUInfo
-> CPUInfo -> MachineConfiguration -> MachineConfiguration
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "cpuInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cpuInfo") CPUInfo
y MachineConfiguration
x)
                                  Growing Vector RealWorld AvailableDeviceInfo
mutable'availableDeviceInfo
                                  Growing Vector RealWorld Any
mutable'deviceInfo
                        34
                          -> do !Any
y <- Parser Any -> String -> Parser Any
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser Any -> Parser Any
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser Any
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "device_info"
                                Growing Vector RealWorld Any
v <- IO (Growing Vector RealWorld Any)
-> Parser (Growing Vector RealWorld Any)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Any
-> Any -> IO (Growing Vector (PrimState IO) Any)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Any
Growing Vector (PrimState IO) Any
mutable'deviceInfo Any
y)
                                MachineConfiguration
-> Growing Vector RealWorld AvailableDeviceInfo
-> Growing Vector RealWorld Any
-> Parser MachineConfiguration
loop MachineConfiguration
x Growing Vector RealWorld AvailableDeviceInfo
mutable'availableDeviceInfo Growing Vector RealWorld Any
v
                        42
                          -> do !AvailableDeviceInfo
y <- Parser AvailableDeviceInfo -> String -> Parser AvailableDeviceInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser AvailableDeviceInfo -> Parser AvailableDeviceInfo
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                              (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                              Parser AvailableDeviceInfo
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "available_device_info"
                                Growing Vector RealWorld AvailableDeviceInfo
v <- IO (Growing Vector RealWorld AvailableDeviceInfo)
-> Parser (Growing Vector RealWorld AvailableDeviceInfo)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) AvailableDeviceInfo
-> AvailableDeviceInfo
-> IO (Growing Vector (PrimState IO) AvailableDeviceInfo)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
                                          Growing Vector RealWorld AvailableDeviceInfo
Growing Vector (PrimState IO) AvailableDeviceInfo
mutable'availableDeviceInfo AvailableDeviceInfo
y)
                                MachineConfiguration
-> Growing Vector RealWorld AvailableDeviceInfo
-> Growing Vector RealWorld Any
-> Parser MachineConfiguration
loop MachineConfiguration
x Growing Vector RealWorld AvailableDeviceInfo
v Growing Vector RealWorld Any
mutable'deviceInfo
                        50
                          -> do MemoryInfo
y <- Parser MemoryInfo -> String -> Parser MemoryInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser MemoryInfo -> Parser MemoryInfo
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser MemoryInfo
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "memory_info"
                                MachineConfiguration
-> Growing Vector RealWorld AvailableDeviceInfo
-> Growing Vector RealWorld Any
-> Parser MachineConfiguration
loop
                                  (Setter
  MachineConfiguration MachineConfiguration MemoryInfo MemoryInfo
-> MemoryInfo -> MachineConfiguration -> MachineConfiguration
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "memoryInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"memoryInfo") MemoryInfo
y MachineConfiguration
x)
                                  Growing Vector RealWorld AvailableDeviceInfo
mutable'availableDeviceInfo
                                  Growing Vector RealWorld Any
mutable'deviceInfo
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                MachineConfiguration
-> Growing Vector RealWorld AvailableDeviceInfo
-> Growing Vector RealWorld Any
-> Parser MachineConfiguration
loop
                                  (Setter MachineConfiguration MachineConfiguration FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MachineConfiguration
-> MachineConfiguration
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter MachineConfiguration MachineConfiguration FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MachineConfiguration
x)
                                  Growing Vector RealWorld AvailableDeviceInfo
mutable'availableDeviceInfo
                                  Growing Vector RealWorld Any
mutable'deviceInfo
      in
        Parser MachineConfiguration
-> String -> Parser MachineConfiguration
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld AvailableDeviceInfo
mutable'availableDeviceInfo <- IO (Growing Vector RealWorld AvailableDeviceInfo)
-> Parser (Growing Vector RealWorld AvailableDeviceInfo)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                               IO (Growing Vector RealWorld AvailableDeviceInfo)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              Growing Vector RealWorld Any
mutable'deviceInfo <- IO (Growing Vector RealWorld Any)
-> Parser (Growing Vector RealWorld Any)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                      IO (Growing Vector RealWorld Any)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              MachineConfiguration
-> Growing Vector RealWorld AvailableDeviceInfo
-> Growing Vector RealWorld Any
-> Parser MachineConfiguration
loop
                MachineConfiguration
forall msg. Message msg => msg
Data.ProtoLens.defMessage
                Growing Vector RealWorld AvailableDeviceInfo
mutable'availableDeviceInfo
                Growing Vector RealWorld Any
mutable'deviceInfo)
          "MachineConfiguration"
  buildMessage :: MachineConfiguration -> Builder
buildMessage
    = \ _x :: MachineConfiguration
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike Text MachineConfiguration MachineConfiguration Text Text
-> MachineConfiguration -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "hostname" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"hostname") MachineConfiguration
_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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v
                     = FoldLike Text MachineConfiguration MachineConfiguration Text Text
-> MachineConfiguration -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                         (forall s a (f :: * -> *).
(HasField s "serialIdentifier" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"serialIdentifier") MachineConfiguration
_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 58)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ bs :: ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8
                            Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe PlatformInfo)
  MachineConfiguration
  MachineConfiguration
  (Maybe PlatformInfo)
  (Maybe PlatformInfo)
-> MachineConfiguration -> Maybe PlatformInfo
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall s a (f :: * -> *).
(HasField s "maybe'platformInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'platformInfo") MachineConfiguration
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: PlatformInfo
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                             ((ByteString -> Builder)
-> (PlatformInfo -> ByteString) -> PlatformInfo -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ bs :: ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                PlatformInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                PlatformInfo
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe CPUInfo)
  MachineConfiguration
  MachineConfiguration
  (Maybe CPUInfo)
  (Maybe CPUInfo)
-> MachineConfiguration -> Maybe CPUInfo
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'cpuInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'cpuInfo") MachineConfiguration
_x
                       of
                         Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just _v :: CPUInfo
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                                ((ByteString -> Builder)
-> (CPUInfo -> ByteString) -> CPUInfo -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   (\ bs :: ByteString
bs
                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                   CPUInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                   CPUInfo
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         ((Any -> Builder) -> Vector Any -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                            (\ _v :: Any
_v
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
                                    ((ByteString -> Builder) -> (Any -> ByteString) -> Any -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                       (\ bs :: ByteString
bs
                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                     (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                       Any -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                       Any
_v))
                            (FoldLike
  (Vector Any)
  MachineConfiguration
  MachineConfiguration
  (Vector Any)
  (Vector Any)
-> MachineConfiguration -> Vector Any
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                               (forall s a (f :: * -> *).
(HasField s "vec'deviceInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'deviceInfo") MachineConfiguration
_x))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            ((AvailableDeviceInfo -> Builder)
-> Vector AvailableDeviceInfo -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                               (\ _v :: AvailableDeviceInfo
_v
                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
                                       ((ByteString -> Builder)
-> (AvailableDeviceInfo -> ByteString)
-> AvailableDeviceInfo
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                          (\ bs :: ByteString
bs
                                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                        (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                          AvailableDeviceInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                          AvailableDeviceInfo
_v))
                               (FoldLike
  (Vector AvailableDeviceInfo)
  MachineConfiguration
  MachineConfiguration
  (Vector AvailableDeviceInfo)
  (Vector AvailableDeviceInfo)
-> MachineConfiguration -> Vector AvailableDeviceInfo
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                  (forall s a (f :: * -> *).
(HasField s "vec'availableDeviceInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'availableDeviceInfo") MachineConfiguration
_x))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (case
                                    FoldLike
  (Maybe MemoryInfo)
  MachineConfiguration
  MachineConfiguration
  (Maybe MemoryInfo)
  (Maybe MemoryInfo)
-> MachineConfiguration -> Maybe MemoryInfo
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                      (forall s a (f :: * -> *).
(HasField s "maybe'memoryInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'memoryInfo") MachineConfiguration
_x
                                of
                                  Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                  (Prelude.Just _v :: MemoryInfo
_v)
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
                                         ((ByteString -> Builder)
-> (MemoryInfo -> ByteString) -> MemoryInfo -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                            (\ bs :: ByteString
bs
                                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                          (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                            MemoryInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                            MemoryInfo
_v))
                               (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                  (FoldLike
  FieldSet
  MachineConfiguration
  MachineConfiguration
  FieldSet
  FieldSet
-> MachineConfiguration -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  MachineConfiguration
  MachineConfiguration
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MachineConfiguration
_x))))))))
instance Control.DeepSeq.NFData MachineConfiguration where
  rnf :: MachineConfiguration -> ()
rnf
    = \ x__ :: MachineConfiguration
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MachineConfiguration -> FieldSet
_MachineConfiguration'_unknownFields MachineConfiguration
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MachineConfiguration -> Text
_MachineConfiguration'hostname MachineConfiguration
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (MachineConfiguration -> Text
_MachineConfiguration'serialIdentifier MachineConfiguration
x__)
                   (Maybe PlatformInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (MachineConfiguration -> Maybe PlatformInfo
_MachineConfiguration'platformInfo MachineConfiguration
x__)
                      (Maybe CPUInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (MachineConfiguration -> Maybe CPUInfo
_MachineConfiguration'cpuInfo MachineConfiguration
x__)
                         (Vector Any -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (MachineConfiguration -> Vector Any
_MachineConfiguration'deviceInfo MachineConfiguration
x__)
                            (Vector AvailableDeviceInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (MachineConfiguration -> Vector AvailableDeviceInfo
_MachineConfiguration'availableDeviceInfo MachineConfiguration
x__)
                               (Maybe MemoryInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (MachineConfiguration -> Maybe MemoryInfo
_MachineConfiguration'memoryInfo MachineConfiguration
x__) ())))))))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.total' @:: Lens' MemoryInfo Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.available' @:: Lens' MemoryInfo Data.Int.Int64@ -}
data MemoryInfo
  = MemoryInfo'_constructor {MemoryInfo -> Int64
_MemoryInfo'total :: !Data.Int.Int64,
                             MemoryInfo -> Int64
_MemoryInfo'available :: !Data.Int.Int64,
                             MemoryInfo -> FieldSet
_MemoryInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MemoryInfo -> MemoryInfo -> Bool
(MemoryInfo -> MemoryInfo -> Bool)
-> (MemoryInfo -> MemoryInfo -> Bool) -> Eq MemoryInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MemoryInfo -> MemoryInfo -> Bool
$c/= :: MemoryInfo -> MemoryInfo -> Bool
== :: MemoryInfo -> MemoryInfo -> Bool
$c== :: MemoryInfo -> MemoryInfo -> Bool
Prelude.Eq, Eq MemoryInfo
Eq MemoryInfo =>
(MemoryInfo -> MemoryInfo -> Ordering)
-> (MemoryInfo -> MemoryInfo -> Bool)
-> (MemoryInfo -> MemoryInfo -> Bool)
-> (MemoryInfo -> MemoryInfo -> Bool)
-> (MemoryInfo -> MemoryInfo -> Bool)
-> (MemoryInfo -> MemoryInfo -> MemoryInfo)
-> (MemoryInfo -> MemoryInfo -> MemoryInfo)
-> Ord MemoryInfo
MemoryInfo -> MemoryInfo -> Bool
MemoryInfo -> MemoryInfo -> Ordering
MemoryInfo -> MemoryInfo -> MemoryInfo
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: MemoryInfo -> MemoryInfo -> MemoryInfo
$cmin :: MemoryInfo -> MemoryInfo -> MemoryInfo
max :: MemoryInfo -> MemoryInfo -> MemoryInfo
$cmax :: MemoryInfo -> MemoryInfo -> MemoryInfo
>= :: MemoryInfo -> MemoryInfo -> Bool
$c>= :: MemoryInfo -> MemoryInfo -> Bool
> :: MemoryInfo -> MemoryInfo -> Bool
$c> :: MemoryInfo -> MemoryInfo -> Bool
<= :: MemoryInfo -> MemoryInfo -> Bool
$c<= :: MemoryInfo -> MemoryInfo -> Bool
< :: MemoryInfo -> MemoryInfo -> Bool
$c< :: MemoryInfo -> MemoryInfo -> Bool
compare :: MemoryInfo -> MemoryInfo -> Ordering
$ccompare :: MemoryInfo -> MemoryInfo -> Ordering
$cp1Ord :: Eq MemoryInfo
Prelude.Ord)
instance Prelude.Show MemoryInfo where
  showsPrec :: Int -> MemoryInfo -> ShowS
showsPrec _ __x :: MemoryInfo
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (MemoryInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemoryInfo
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MemoryInfo "total" Data.Int.Int64 where
  fieldOf :: Proxy# "total" -> (Int64 -> f Int64) -> MemoryInfo -> f MemoryInfo
fieldOf _
    = ((Int64 -> f Int64) -> MemoryInfo -> f MemoryInfo)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MemoryInfo
-> f MemoryInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemoryInfo -> Int64)
-> (MemoryInfo -> Int64 -> MemoryInfo)
-> Lens MemoryInfo MemoryInfo Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemoryInfo -> Int64
_MemoryInfo'total (\ x__ :: MemoryInfo
x__ y__ :: Int64
y__ -> MemoryInfo
x__ {_MemoryInfo'total :: Int64
_MemoryInfo'total = Int64
y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryInfo "available" Data.Int.Int64 where
  fieldOf :: Proxy# "available"
-> (Int64 -> f Int64) -> MemoryInfo -> f MemoryInfo
fieldOf _
    = ((Int64 -> f Int64) -> MemoryInfo -> f MemoryInfo)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MemoryInfo
-> f MemoryInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MemoryInfo -> Int64)
-> (MemoryInfo -> Int64 -> MemoryInfo)
-> Lens MemoryInfo MemoryInfo Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MemoryInfo -> Int64
_MemoryInfo'available
           (\ x__ :: MemoryInfo
x__ y__ :: Int64
y__ -> MemoryInfo
x__ {_MemoryInfo'available :: Int64
_MemoryInfo'available = Int64
y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemoryInfo where
  messageName :: Proxy MemoryInfo -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.MemoryInfo"
  packedMessageDescriptor :: Proxy MemoryInfo -> ByteString
packedMessageDescriptor _
    = "\n\
      \\n\
      \MemoryInfo\DC2\DC4\n\
      \\ENQtotal\CAN\SOH \SOH(\ETXR\ENQtotal\DC2\FS\n\
      \\tavailable\CAN\STX \SOH(\ETXR\tavailable"
  packedFileDescriptor :: Proxy MemoryInfo -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MemoryInfo)
fieldsByTag
    = let
        total__field_descriptor :: FieldDescriptor MemoryInfo
total__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryInfo Int64
-> FieldDescriptor MemoryInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "total"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens MemoryInfo MemoryInfo Int64 Int64
-> FieldAccessor MemoryInfo Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "total" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"total")) ::
              Data.ProtoLens.FieldDescriptor MemoryInfo
        available__field_descriptor :: FieldDescriptor MemoryInfo
available__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryInfo Int64
-> FieldDescriptor MemoryInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "available"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens MemoryInfo MemoryInfo Int64 Int64
-> FieldAccessor MemoryInfo Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "available" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"available")) ::
              Data.ProtoLens.FieldDescriptor MemoryInfo
      in
        [(Tag, FieldDescriptor MemoryInfo)]
-> Map Tag (FieldDescriptor MemoryInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MemoryInfo
total__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MemoryInfo
available__field_descriptor)]
  unknownFields :: LensLike' f MemoryInfo FieldSet
unknownFields
    = (MemoryInfo -> FieldSet)
-> (MemoryInfo -> FieldSet -> MemoryInfo)
-> Lens' MemoryInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MemoryInfo -> FieldSet
_MemoryInfo'_unknownFields
        (\ x__ :: MemoryInfo
x__ y__ :: FieldSet
y__ -> MemoryInfo
x__ {_MemoryInfo'_unknownFields :: FieldSet
_MemoryInfo'_unknownFields = FieldSet
y__})
  defMessage :: MemoryInfo
defMessage
    = $WMemoryInfo'_constructor :: Int64 -> Int64 -> FieldSet -> MemoryInfo
MemoryInfo'_constructor
        {_MemoryInfo'total :: Int64
_MemoryInfo'total = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MemoryInfo'available :: Int64
_MemoryInfo'available = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MemoryInfo'_unknownFields :: FieldSet
_MemoryInfo'_unknownFields = []}
  parseMessage :: Parser MemoryInfo
parseMessage
    = let
        loop ::
          MemoryInfo -> Data.ProtoLens.Encoding.Bytes.Parser MemoryInfo
        loop :: MemoryInfo -> Parser MemoryInfo
loop x :: MemoryInfo
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      MemoryInfo -> Parser MemoryInfo
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter MemoryInfo MemoryInfo FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MemoryInfo -> MemoryInfo
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter MemoryInfo MemoryInfo FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MemoryInfo
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "total"
                                MemoryInfo -> Parser MemoryInfo
loop (Setter MemoryInfo MemoryInfo Int64 Int64
-> Int64 -> MemoryInfo -> MemoryInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "total" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"total") Int64
y MemoryInfo
x)
                        16
                          -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "available"
                                MemoryInfo -> Parser MemoryInfo
loop
                                  (Setter MemoryInfo MemoryInfo Int64 Int64
-> Int64 -> MemoryInfo -> MemoryInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "available" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"available") Int64
y MemoryInfo
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                MemoryInfo -> Parser MemoryInfo
loop
                                  (Setter MemoryInfo MemoryInfo FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MemoryInfo -> MemoryInfo
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter MemoryInfo MemoryInfo FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MemoryInfo
x)
      in
        Parser MemoryInfo -> String -> Parser MemoryInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do MemoryInfo -> Parser MemoryInfo
loop MemoryInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "MemoryInfo"
  buildMessage :: MemoryInfo -> Builder
buildMessage
    = \ _x :: MemoryInfo
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Int64
_v = FoldLike Int64 MemoryInfo MemoryInfo Int64 Int64
-> MemoryInfo -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "total" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"total") MemoryInfo
_x
              in
                if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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 8)
                      ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Int64
_v = FoldLike Int64 MemoryInfo MemoryInfo Int64 Int64
-> MemoryInfo -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "available" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"available") MemoryInfo
_x
                 in
                   if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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 16)
                         ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet MemoryInfo MemoryInfo FieldSet FieldSet
-> MemoryInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet MemoryInfo MemoryInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MemoryInfo
_x)))
instance Control.DeepSeq.NFData MemoryInfo where
  rnf :: MemoryInfo -> ()
rnf
    = \ x__ :: MemoryInfo
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MemoryInfo -> FieldSet
_MemoryInfo'_unknownFields MemoryInfo
x__)
             (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MemoryInfo -> Int64
_MemoryInfo'total MemoryInfo
x__)
                (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MemoryInfo -> Int64
_MemoryInfo'available MemoryInfo
x__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.name' @:: Lens' MetricEntry Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.value' @:: Lens' MetricEntry Prelude.Double@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.minValue' @:: Lens' MetricEntry Proto.Google.Protobuf.Wrappers.DoubleValue@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'minValue' @:: Lens' MetricEntry (Prelude.Maybe Proto.Google.Protobuf.Wrappers.DoubleValue)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maxValue' @:: Lens' MetricEntry Proto.Google.Protobuf.Wrappers.DoubleValue@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'maxValue' @:: Lens' MetricEntry (Prelude.Maybe Proto.Google.Protobuf.Wrappers.DoubleValue)@ -}
data MetricEntry
  = MetricEntry'_constructor {MetricEntry -> Text
_MetricEntry'name :: !Data.Text.Text,
                              MetricEntry -> Double
_MetricEntry'value :: !Prelude.Double,
                              MetricEntry -> Maybe DoubleValue
_MetricEntry'minValue :: !(Prelude.Maybe Proto.Google.Protobuf.Wrappers.DoubleValue),
                              MetricEntry -> Maybe DoubleValue
_MetricEntry'maxValue :: !(Prelude.Maybe Proto.Google.Protobuf.Wrappers.DoubleValue),
                              MetricEntry -> FieldSet
_MetricEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (MetricEntry -> MetricEntry -> Bool
(MetricEntry -> MetricEntry -> Bool)
-> (MetricEntry -> MetricEntry -> Bool) -> Eq MetricEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetricEntry -> MetricEntry -> Bool
$c/= :: MetricEntry -> MetricEntry -> Bool
== :: MetricEntry -> MetricEntry -> Bool
$c== :: MetricEntry -> MetricEntry -> Bool
Prelude.Eq, Eq MetricEntry
Eq MetricEntry =>
(MetricEntry -> MetricEntry -> Ordering)
-> (MetricEntry -> MetricEntry -> Bool)
-> (MetricEntry -> MetricEntry -> Bool)
-> (MetricEntry -> MetricEntry -> Bool)
-> (MetricEntry -> MetricEntry -> Bool)
-> (MetricEntry -> MetricEntry -> MetricEntry)
-> (MetricEntry -> MetricEntry -> MetricEntry)
-> Ord MetricEntry
MetricEntry -> MetricEntry -> Bool
MetricEntry -> MetricEntry -> Ordering
MetricEntry -> MetricEntry -> MetricEntry
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: MetricEntry -> MetricEntry -> MetricEntry
$cmin :: MetricEntry -> MetricEntry -> MetricEntry
max :: MetricEntry -> MetricEntry -> MetricEntry
$cmax :: MetricEntry -> MetricEntry -> MetricEntry
>= :: MetricEntry -> MetricEntry -> Bool
$c>= :: MetricEntry -> MetricEntry -> Bool
> :: MetricEntry -> MetricEntry -> Bool
$c> :: MetricEntry -> MetricEntry -> Bool
<= :: MetricEntry -> MetricEntry -> Bool
$c<= :: MetricEntry -> MetricEntry -> Bool
< :: MetricEntry -> MetricEntry -> Bool
$c< :: MetricEntry -> MetricEntry -> Bool
compare :: MetricEntry -> MetricEntry -> Ordering
$ccompare :: MetricEntry -> MetricEntry -> Ordering
$cp1Ord :: Eq MetricEntry
Prelude.Ord)
instance Prelude.Show MetricEntry where
  showsPrec :: Int -> MetricEntry -> ShowS
showsPrec _ __x :: MetricEntry
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (MetricEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetricEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MetricEntry "name" Data.Text.Text where
  fieldOf :: Proxy# "name" -> (Text -> f Text) -> MetricEntry -> f MetricEntry
fieldOf _
    = ((Text -> f Text) -> MetricEntry -> f MetricEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MetricEntry
-> f MetricEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetricEntry -> Text)
-> (MetricEntry -> Text -> MetricEntry)
-> Lens MetricEntry MetricEntry Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetricEntry -> Text
_MetricEntry'name (\ x__ :: MetricEntry
x__ y__ :: Text
y__ -> MetricEntry
x__ {_MetricEntry'name :: Text
_MetricEntry'name = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetricEntry "value" Prelude.Double where
  fieldOf :: Proxy# "value"
-> (Double -> f Double) -> MetricEntry -> f MetricEntry
fieldOf _
    = ((Double -> f Double) -> MetricEntry -> f MetricEntry)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> MetricEntry
-> f MetricEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetricEntry -> Double)
-> (MetricEntry -> Double -> MetricEntry)
-> Lens MetricEntry MetricEntry Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetricEntry -> Double
_MetricEntry'value (\ x__ :: MetricEntry
x__ y__ :: Double
y__ -> MetricEntry
x__ {_MetricEntry'value :: Double
_MetricEntry'value = Double
y__}))
        (Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetricEntry "minValue" Proto.Google.Protobuf.Wrappers.DoubleValue where
  fieldOf :: Proxy# "minValue"
-> (DoubleValue -> f DoubleValue) -> MetricEntry -> f MetricEntry
fieldOf _
    = ((Maybe DoubleValue -> f (Maybe DoubleValue))
 -> MetricEntry -> f MetricEntry)
-> ((DoubleValue -> f DoubleValue)
    -> Maybe DoubleValue -> f (Maybe DoubleValue))
-> (DoubleValue -> f DoubleValue)
-> MetricEntry
-> f MetricEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetricEntry -> Maybe DoubleValue)
-> (MetricEntry -> Maybe DoubleValue -> MetricEntry)
-> Lens
     MetricEntry MetricEntry (Maybe DoubleValue) (Maybe DoubleValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetricEntry -> Maybe DoubleValue
_MetricEntry'minValue
           (\ x__ :: MetricEntry
x__ y__ :: Maybe DoubleValue
y__ -> MetricEntry
x__ {_MetricEntry'minValue :: Maybe DoubleValue
_MetricEntry'minValue = Maybe DoubleValue
y__}))
        (DoubleValue -> Lens' (Maybe DoubleValue) DoubleValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens DoubleValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetricEntry "maybe'minValue" (Prelude.Maybe Proto.Google.Protobuf.Wrappers.DoubleValue) where
  fieldOf :: Proxy# "maybe'minValue"
-> (Maybe DoubleValue -> f (Maybe DoubleValue))
-> MetricEntry
-> f MetricEntry
fieldOf _
    = ((Maybe DoubleValue -> f (Maybe DoubleValue))
 -> MetricEntry -> f MetricEntry)
-> ((Maybe DoubleValue -> f (Maybe DoubleValue))
    -> Maybe DoubleValue -> f (Maybe DoubleValue))
-> (Maybe DoubleValue -> f (Maybe DoubleValue))
-> MetricEntry
-> f MetricEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetricEntry -> Maybe DoubleValue)
-> (MetricEntry -> Maybe DoubleValue -> MetricEntry)
-> Lens
     MetricEntry MetricEntry (Maybe DoubleValue) (Maybe DoubleValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetricEntry -> Maybe DoubleValue
_MetricEntry'minValue
           (\ x__ :: MetricEntry
x__ y__ :: Maybe DoubleValue
y__ -> MetricEntry
x__ {_MetricEntry'minValue :: Maybe DoubleValue
_MetricEntry'minValue = Maybe DoubleValue
y__}))
        (Maybe DoubleValue -> f (Maybe DoubleValue))
-> Maybe DoubleValue -> f (Maybe DoubleValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetricEntry "maxValue" Proto.Google.Protobuf.Wrappers.DoubleValue where
  fieldOf :: Proxy# "maxValue"
-> (DoubleValue -> f DoubleValue) -> MetricEntry -> f MetricEntry
fieldOf _
    = ((Maybe DoubleValue -> f (Maybe DoubleValue))
 -> MetricEntry -> f MetricEntry)
-> ((DoubleValue -> f DoubleValue)
    -> Maybe DoubleValue -> f (Maybe DoubleValue))
-> (DoubleValue -> f DoubleValue)
-> MetricEntry
-> f MetricEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetricEntry -> Maybe DoubleValue)
-> (MetricEntry -> Maybe DoubleValue -> MetricEntry)
-> Lens
     MetricEntry MetricEntry (Maybe DoubleValue) (Maybe DoubleValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetricEntry -> Maybe DoubleValue
_MetricEntry'maxValue
           (\ x__ :: MetricEntry
x__ y__ :: Maybe DoubleValue
y__ -> MetricEntry
x__ {_MetricEntry'maxValue :: Maybe DoubleValue
_MetricEntry'maxValue = Maybe DoubleValue
y__}))
        (DoubleValue -> Lens' (Maybe DoubleValue) DoubleValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens DoubleValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetricEntry "maybe'maxValue" (Prelude.Maybe Proto.Google.Protobuf.Wrappers.DoubleValue) where
  fieldOf :: Proxy# "maybe'maxValue"
-> (Maybe DoubleValue -> f (Maybe DoubleValue))
-> MetricEntry
-> f MetricEntry
fieldOf _
    = ((Maybe DoubleValue -> f (Maybe DoubleValue))
 -> MetricEntry -> f MetricEntry)
-> ((Maybe DoubleValue -> f (Maybe DoubleValue))
    -> Maybe DoubleValue -> f (Maybe DoubleValue))
-> (Maybe DoubleValue -> f (Maybe DoubleValue))
-> MetricEntry
-> f MetricEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((MetricEntry -> Maybe DoubleValue)
-> (MetricEntry -> Maybe DoubleValue -> MetricEntry)
-> Lens
     MetricEntry MetricEntry (Maybe DoubleValue) (Maybe DoubleValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           MetricEntry -> Maybe DoubleValue
_MetricEntry'maxValue
           (\ x__ :: MetricEntry
x__ y__ :: Maybe DoubleValue
y__ -> MetricEntry
x__ {_MetricEntry'maxValue :: Maybe DoubleValue
_MetricEntry'maxValue = Maybe DoubleValue
y__}))
        (Maybe DoubleValue -> f (Maybe DoubleValue))
-> Maybe DoubleValue -> f (Maybe DoubleValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MetricEntry where
  messageName :: Proxy MetricEntry -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.MetricEntry"
  packedMessageDescriptor :: Proxy MetricEntry -> ByteString
packedMessageDescriptor _
    = "\n\
      \\vMetricEntry\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue\DC29\n\
      \\tmin_value\CAN\ETX \SOH(\v2\FS.google.protobuf.DoubleValueR\bminValue\DC29\n\
      \\tmax_value\CAN\EOT \SOH(\v2\FS.google.protobuf.DoubleValueR\bmaxValue"
  packedFileDescriptor :: Proxy MetricEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor MetricEntry)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor MetricEntry
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor MetricEntry Text
-> FieldDescriptor MetricEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens MetricEntry MetricEntry Text Text
-> FieldAccessor MetricEntry 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 s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
              Data.ProtoLens.FieldDescriptor MetricEntry
        value__field_descriptor :: FieldDescriptor MetricEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor MetricEntry Double
-> FieldDescriptor MetricEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "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 MetricEntry MetricEntry Double Double
-> FieldAccessor MetricEntry 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 s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor MetricEntry
        minValue__field_descriptor :: FieldDescriptor MetricEntry
minValue__field_descriptor
          = String
-> FieldTypeDescriptor DoubleValue
-> FieldAccessor MetricEntry DoubleValue
-> FieldDescriptor MetricEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "min_value"
              (MessageOrGroup -> FieldTypeDescriptor DoubleValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Wrappers.DoubleValue)
              (Lens
  MetricEntry MetricEntry (Maybe DoubleValue) (Maybe DoubleValue)
-> FieldAccessor MetricEntry DoubleValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'minValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'minValue")) ::
              Data.ProtoLens.FieldDescriptor MetricEntry
        maxValue__field_descriptor :: FieldDescriptor MetricEntry
maxValue__field_descriptor
          = String
-> FieldTypeDescriptor DoubleValue
-> FieldAccessor MetricEntry DoubleValue
-> FieldDescriptor MetricEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "max_value"
              (MessageOrGroup -> FieldTypeDescriptor DoubleValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Wrappers.DoubleValue)
              (Lens
  MetricEntry MetricEntry (Maybe DoubleValue) (Maybe DoubleValue)
-> FieldAccessor MetricEntry DoubleValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'maxValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'maxValue")) ::
              Data.ProtoLens.FieldDescriptor MetricEntry
      in
        [(Tag, FieldDescriptor MetricEntry)]
-> Map Tag (FieldDescriptor MetricEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MetricEntry
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MetricEntry
value__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor MetricEntry
minValue__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor MetricEntry
maxValue__field_descriptor)]
  unknownFields :: LensLike' f MetricEntry FieldSet
unknownFields
    = (MetricEntry -> FieldSet)
-> (MetricEntry -> FieldSet -> MetricEntry)
-> Lens' MetricEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        MetricEntry -> FieldSet
_MetricEntry'_unknownFields
        (\ x__ :: MetricEntry
x__ y__ :: FieldSet
y__ -> MetricEntry
x__ {_MetricEntry'_unknownFields :: FieldSet
_MetricEntry'_unknownFields = FieldSet
y__})
  defMessage :: MetricEntry
defMessage
    = $WMetricEntry'_constructor :: Text
-> Double
-> Maybe DoubleValue
-> Maybe DoubleValue
-> FieldSet
-> MetricEntry
MetricEntry'_constructor
        {_MetricEntry'name :: Text
_MetricEntry'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MetricEntry'value :: Double
_MetricEntry'value = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _MetricEntry'minValue :: Maybe DoubleValue
_MetricEntry'minValue = Maybe DoubleValue
forall a. Maybe a
Prelude.Nothing,
         _MetricEntry'maxValue :: Maybe DoubleValue
_MetricEntry'maxValue = Maybe DoubleValue
forall a. Maybe a
Prelude.Nothing,
         _MetricEntry'_unknownFields :: FieldSet
_MetricEntry'_unknownFields = []}
  parseMessage :: Parser MetricEntry
parseMessage
    = let
        loop ::
          MetricEntry -> Data.ProtoLens.Encoding.Bytes.Parser MetricEntry
        loop :: MetricEntry -> Parser MetricEntry
loop x :: MetricEntry
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      MetricEntry -> Parser MetricEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter MetricEntry MetricEntry FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MetricEntry -> MetricEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter MetricEntry MetricEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MetricEntry
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "name"
                                MetricEntry -> Parser MetricEntry
loop (Setter MetricEntry MetricEntry Text Text
-> Text -> MetricEntry -> MetricEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y MetricEntry
x)
                        17
                          -> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       "value"
                                MetricEntry -> Parser MetricEntry
loop (Setter MetricEntry MetricEntry Double Double
-> Double -> MetricEntry -> MetricEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") Double
y MetricEntry
x)
                        26
                          -> do DoubleValue
y <- Parser DoubleValue -> String -> Parser DoubleValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser DoubleValue -> Parser DoubleValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser DoubleValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "min_value"
                                MetricEntry -> Parser MetricEntry
loop
                                  (Setter MetricEntry MetricEntry DoubleValue DoubleValue
-> DoubleValue -> MetricEntry -> MetricEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "minValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"minValue") DoubleValue
y MetricEntry
x)
                        34
                          -> do DoubleValue
y <- Parser DoubleValue -> String -> Parser DoubleValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser DoubleValue -> Parser DoubleValue
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser DoubleValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "max_value"
                                MetricEntry -> Parser MetricEntry
loop
                                  (Setter MetricEntry MetricEntry DoubleValue DoubleValue
-> DoubleValue -> MetricEntry -> MetricEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "maxValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maxValue") DoubleValue
y MetricEntry
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                MetricEntry -> Parser MetricEntry
loop
                                  (Setter MetricEntry MetricEntry FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MetricEntry -> MetricEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter MetricEntry MetricEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetricEntry
x)
      in
        Parser MetricEntry -> String -> Parser MetricEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do MetricEntry -> Parser MetricEntry
loop MetricEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "MetricEntry"
  buildMessage :: MetricEntry -> Builder
buildMessage
    = \ _x :: MetricEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text MetricEntry MetricEntry Text Text
-> MetricEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") MetricEntry
_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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Double
_v = FoldLike Double MetricEntry MetricEntry Double Double
-> MetricEntry -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") MetricEntry
_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 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.<>)
                   (case
                        FoldLike
  (Maybe DoubleValue)
  MetricEntry
  MetricEntry
  (Maybe DoubleValue)
  (Maybe DoubleValue)
-> MetricEntry -> Maybe DoubleValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'minValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'minValue") MetricEntry
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: DoubleValue
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                             ((ByteString -> Builder)
-> (DoubleValue -> ByteString) -> DoubleValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ bs :: ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                DoubleValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                DoubleValue
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe DoubleValue)
  MetricEntry
  MetricEntry
  (Maybe DoubleValue)
  (Maybe DoubleValue)
-> MetricEntry -> Maybe DoubleValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'maxValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'maxValue") MetricEntry
_x
                       of
                         Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just _v :: DoubleValue
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
                                ((ByteString -> Builder)
-> (DoubleValue -> ByteString) -> DoubleValue -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   (\ bs :: ByteString
bs
                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                   DoubleValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                   DoubleValue
_v))
                      (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                         (FoldLike FieldSet MetricEntry MetricEntry FieldSet FieldSet
-> MetricEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet MetricEntry MetricEntry FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MetricEntry
_x)))))
instance Control.DeepSeq.NFData MetricEntry where
  rnf :: MetricEntry -> ()
rnf
    = \ x__ :: MetricEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (MetricEntry -> FieldSet
_MetricEntry'_unknownFields MetricEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (MetricEntry -> Text
_MetricEntry'name MetricEntry
x__)
                (Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (MetricEntry -> Double
_MetricEntry'value MetricEntry
x__)
                   (Maybe DoubleValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (MetricEntry -> Maybe DoubleValue
_MetricEntry'minValue MetricEntry
x__)
                      (Maybe DoubleValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MetricEntry -> Maybe DoubleValue
_MetricEntry'maxValue MetricEntry
x__) ()))))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.bits' @:: Lens' PlatformInfo Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.linkage' @:: Lens' PlatformInfo Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.machine' @:: Lens' PlatformInfo Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.release' @:: Lens' PlatformInfo Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.system' @:: Lens' PlatformInfo Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.version' @:: Lens' PlatformInfo Data.Text.Text@ -}
data PlatformInfo
  = PlatformInfo'_constructor {PlatformInfo -> Text
_PlatformInfo'bits :: !Data.Text.Text,
                               PlatformInfo -> Text
_PlatformInfo'linkage :: !Data.Text.Text,
                               PlatformInfo -> Text
_PlatformInfo'machine :: !Data.Text.Text,
                               PlatformInfo -> Text
_PlatformInfo'release :: !Data.Text.Text,
                               PlatformInfo -> Text
_PlatformInfo'system :: !Data.Text.Text,
                               PlatformInfo -> Text
_PlatformInfo'version :: !Data.Text.Text,
                               PlatformInfo -> FieldSet
_PlatformInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (PlatformInfo -> PlatformInfo -> Bool
(PlatformInfo -> PlatformInfo -> Bool)
-> (PlatformInfo -> PlatformInfo -> Bool) -> Eq PlatformInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PlatformInfo -> PlatformInfo -> Bool
$c/= :: PlatformInfo -> PlatformInfo -> Bool
== :: PlatformInfo -> PlatformInfo -> Bool
$c== :: PlatformInfo -> PlatformInfo -> Bool
Prelude.Eq, Eq PlatformInfo
Eq PlatformInfo =>
(PlatformInfo -> PlatformInfo -> Ordering)
-> (PlatformInfo -> PlatformInfo -> Bool)
-> (PlatformInfo -> PlatformInfo -> Bool)
-> (PlatformInfo -> PlatformInfo -> Bool)
-> (PlatformInfo -> PlatformInfo -> Bool)
-> (PlatformInfo -> PlatformInfo -> PlatformInfo)
-> (PlatformInfo -> PlatformInfo -> PlatformInfo)
-> Ord PlatformInfo
PlatformInfo -> PlatformInfo -> Bool
PlatformInfo -> PlatformInfo -> Ordering
PlatformInfo -> PlatformInfo -> PlatformInfo
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: PlatformInfo -> PlatformInfo -> PlatformInfo
$cmin :: PlatformInfo -> PlatformInfo -> PlatformInfo
max :: PlatformInfo -> PlatformInfo -> PlatformInfo
$cmax :: PlatformInfo -> PlatformInfo -> PlatformInfo
>= :: PlatformInfo -> PlatformInfo -> Bool
$c>= :: PlatformInfo -> PlatformInfo -> Bool
> :: PlatformInfo -> PlatformInfo -> Bool
$c> :: PlatformInfo -> PlatformInfo -> Bool
<= :: PlatformInfo -> PlatformInfo -> Bool
$c<= :: PlatformInfo -> PlatformInfo -> Bool
< :: PlatformInfo -> PlatformInfo -> Bool
$c< :: PlatformInfo -> PlatformInfo -> Bool
compare :: PlatformInfo -> PlatformInfo -> Ordering
$ccompare :: PlatformInfo -> PlatformInfo -> Ordering
$cp1Ord :: Eq PlatformInfo
Prelude.Ord)
instance Prelude.Show PlatformInfo where
  showsPrec :: Int -> PlatformInfo -> ShowS
showsPrec _ __x :: PlatformInfo
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (PlatformInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort PlatformInfo
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField PlatformInfo "bits" Data.Text.Text where
  fieldOf :: Proxy# "bits" -> (Text -> f Text) -> PlatformInfo -> f PlatformInfo
fieldOf _
    = ((Text -> f Text) -> PlatformInfo -> f PlatformInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> PlatformInfo
-> f PlatformInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlatformInfo -> Text)
-> (PlatformInfo -> Text -> PlatformInfo)
-> Lens PlatformInfo PlatformInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlatformInfo -> Text
_PlatformInfo'bits (\ x__ :: PlatformInfo
x__ y__ :: Text
y__ -> PlatformInfo
x__ {_PlatformInfo'bits :: Text
_PlatformInfo'bits = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PlatformInfo "linkage" Data.Text.Text where
  fieldOf :: Proxy# "linkage"
-> (Text -> f Text) -> PlatformInfo -> f PlatformInfo
fieldOf _
    = ((Text -> f Text) -> PlatformInfo -> f PlatformInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> PlatformInfo
-> f PlatformInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlatformInfo -> Text)
-> (PlatformInfo -> Text -> PlatformInfo)
-> Lens PlatformInfo PlatformInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlatformInfo -> Text
_PlatformInfo'linkage
           (\ x__ :: PlatformInfo
x__ y__ :: Text
y__ -> PlatformInfo
x__ {_PlatformInfo'linkage :: Text
_PlatformInfo'linkage = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PlatformInfo "machine" Data.Text.Text where
  fieldOf :: Proxy# "machine"
-> (Text -> f Text) -> PlatformInfo -> f PlatformInfo
fieldOf _
    = ((Text -> f Text) -> PlatformInfo -> f PlatformInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> PlatformInfo
-> f PlatformInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlatformInfo -> Text)
-> (PlatformInfo -> Text -> PlatformInfo)
-> Lens PlatformInfo PlatformInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlatformInfo -> Text
_PlatformInfo'machine
           (\ x__ :: PlatformInfo
x__ y__ :: Text
y__ -> PlatformInfo
x__ {_PlatformInfo'machine :: Text
_PlatformInfo'machine = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PlatformInfo "release" Data.Text.Text where
  fieldOf :: Proxy# "release"
-> (Text -> f Text) -> PlatformInfo -> f PlatformInfo
fieldOf _
    = ((Text -> f Text) -> PlatformInfo -> f PlatformInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> PlatformInfo
-> f PlatformInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlatformInfo -> Text)
-> (PlatformInfo -> Text -> PlatformInfo)
-> Lens PlatformInfo PlatformInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlatformInfo -> Text
_PlatformInfo'release
           (\ x__ :: PlatformInfo
x__ y__ :: Text
y__ -> PlatformInfo
x__ {_PlatformInfo'release :: Text
_PlatformInfo'release = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PlatformInfo "system" Data.Text.Text where
  fieldOf :: Proxy# "system"
-> (Text -> f Text) -> PlatformInfo -> f PlatformInfo
fieldOf _
    = ((Text -> f Text) -> PlatformInfo -> f PlatformInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> PlatformInfo
-> f PlatformInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlatformInfo -> Text)
-> (PlatformInfo -> Text -> PlatformInfo)
-> Lens PlatformInfo PlatformInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlatformInfo -> Text
_PlatformInfo'system
           (\ x__ :: PlatformInfo
x__ y__ :: Text
y__ -> PlatformInfo
x__ {_PlatformInfo'system :: Text
_PlatformInfo'system = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField PlatformInfo "version" Data.Text.Text where
  fieldOf :: Proxy# "version"
-> (Text -> f Text) -> PlatformInfo -> f PlatformInfo
fieldOf _
    = ((Text -> f Text) -> PlatformInfo -> f PlatformInfo)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> PlatformInfo
-> f PlatformInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((PlatformInfo -> Text)
-> (PlatformInfo -> Text -> PlatformInfo)
-> Lens PlatformInfo PlatformInfo Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           PlatformInfo -> Text
_PlatformInfo'version
           (\ x__ :: PlatformInfo
x__ y__ :: Text
y__ -> PlatformInfo
x__ {_PlatformInfo'version :: Text
_PlatformInfo'version = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message PlatformInfo where
  messageName :: Proxy PlatformInfo -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.PlatformInfo"
  packedMessageDescriptor :: Proxy PlatformInfo -> ByteString
packedMessageDescriptor _
    = "\n\
      \\fPlatformInfo\DC2\DC2\n\
      \\EOTbits\CAN\SOH \SOH(\tR\EOTbits\DC2\CAN\n\
      \\alinkage\CAN\STX \SOH(\tR\alinkage\DC2\CAN\n\
      \\amachine\CAN\ETX \SOH(\tR\amachine\DC2\CAN\n\
      \\arelease\CAN\EOT \SOH(\tR\arelease\DC2\SYN\n\
      \\ACKsystem\CAN\ENQ \SOH(\tR\ACKsystem\DC2\CAN\n\
      \\aversion\CAN\ACK \SOH(\tR\aversion"
  packedFileDescriptor :: Proxy PlatformInfo -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor PlatformInfo)
fieldsByTag
    = let
        bits__field_descriptor :: FieldDescriptor PlatformInfo
bits__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor PlatformInfo Text
-> FieldDescriptor PlatformInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "bits"
              (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 PlatformInfo PlatformInfo Text Text
-> FieldAccessor PlatformInfo 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 s a (f :: * -> *).
(HasField s "bits" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"bits")) ::
              Data.ProtoLens.FieldDescriptor PlatformInfo
        linkage__field_descriptor :: FieldDescriptor PlatformInfo
linkage__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor PlatformInfo Text
-> FieldDescriptor PlatformInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "linkage"
              (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 PlatformInfo PlatformInfo Text Text
-> FieldAccessor PlatformInfo 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 s a (f :: * -> *).
(HasField s "linkage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"linkage")) ::
              Data.ProtoLens.FieldDescriptor PlatformInfo
        machine__field_descriptor :: FieldDescriptor PlatformInfo
machine__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor PlatformInfo Text
-> FieldDescriptor PlatformInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "machine"
              (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 PlatformInfo PlatformInfo Text Text
-> FieldAccessor PlatformInfo 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 s a (f :: * -> *).
(HasField s "machine" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"machine")) ::
              Data.ProtoLens.FieldDescriptor PlatformInfo
        release__field_descriptor :: FieldDescriptor PlatformInfo
release__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor PlatformInfo Text
-> FieldDescriptor PlatformInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "release"
              (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 PlatformInfo PlatformInfo Text Text
-> FieldAccessor PlatformInfo 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 s a (f :: * -> *).
(HasField s "release" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"release")) ::
              Data.ProtoLens.FieldDescriptor PlatformInfo
        system__field_descriptor :: FieldDescriptor PlatformInfo
system__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor PlatformInfo Text
-> FieldDescriptor PlatformInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "system"
              (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 PlatformInfo PlatformInfo Text Text
-> FieldAccessor PlatformInfo 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 s a (f :: * -> *).
(HasField s "system" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"system")) ::
              Data.ProtoLens.FieldDescriptor PlatformInfo
        version__field_descriptor :: FieldDescriptor PlatformInfo
version__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor PlatformInfo Text
-> FieldDescriptor PlatformInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "version"
              (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 PlatformInfo PlatformInfo Text Text
-> FieldAccessor PlatformInfo 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 s a (f :: * -> *).
(HasField s "version" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"version")) ::
              Data.ProtoLens.FieldDescriptor PlatformInfo
      in
        [(Tag, FieldDescriptor PlatformInfo)]
-> Map Tag (FieldDescriptor PlatformInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor PlatformInfo
bits__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor PlatformInfo
linkage__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor PlatformInfo
machine__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor PlatformInfo
release__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor PlatformInfo
system__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor PlatformInfo
version__field_descriptor)]
  unknownFields :: LensLike' f PlatformInfo FieldSet
unknownFields
    = (PlatformInfo -> FieldSet)
-> (PlatformInfo -> FieldSet -> PlatformInfo)
-> Lens' PlatformInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        PlatformInfo -> FieldSet
_PlatformInfo'_unknownFields
        (\ x__ :: PlatformInfo
x__ y__ :: FieldSet
y__ -> PlatformInfo
x__ {_PlatformInfo'_unknownFields :: FieldSet
_PlatformInfo'_unknownFields = FieldSet
y__})
  defMessage :: PlatformInfo
defMessage
    = $WPlatformInfo'_constructor :: Text
-> Text -> Text -> Text -> Text -> Text -> FieldSet -> PlatformInfo
PlatformInfo'_constructor
        {_PlatformInfo'bits :: Text
_PlatformInfo'bits = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PlatformInfo'linkage :: Text
_PlatformInfo'linkage = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PlatformInfo'machine :: Text
_PlatformInfo'machine = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PlatformInfo'release :: Text
_PlatformInfo'release = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PlatformInfo'system :: Text
_PlatformInfo'system = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PlatformInfo'version :: Text
_PlatformInfo'version = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _PlatformInfo'_unknownFields :: FieldSet
_PlatformInfo'_unknownFields = []}
  parseMessage :: Parser PlatformInfo
parseMessage
    = let
        loop ::
          PlatformInfo -> Data.ProtoLens.Encoding.Bytes.Parser PlatformInfo
        loop :: PlatformInfo -> Parser PlatformInfo
loop x :: PlatformInfo
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      PlatformInfo -> Parser PlatformInfo
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter PlatformInfo PlatformInfo FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PlatformInfo -> PlatformInfo
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter PlatformInfo PlatformInfo FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) PlatformInfo
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "bits"
                                PlatformInfo -> Parser PlatformInfo
loop (Setter PlatformInfo PlatformInfo Text Text
-> Text -> PlatformInfo -> PlatformInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "bits" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"bits") Text
y PlatformInfo
x)
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "linkage"
                                PlatformInfo -> Parser PlatformInfo
loop (Setter PlatformInfo PlatformInfo Text Text
-> Text -> PlatformInfo -> PlatformInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "linkage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"linkage") Text
y PlatformInfo
x)
                        26
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "machine"
                                PlatformInfo -> Parser PlatformInfo
loop (Setter PlatformInfo PlatformInfo Text Text
-> Text -> PlatformInfo -> PlatformInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "machine" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"machine") Text
y PlatformInfo
x)
                        34
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "release"
                                PlatformInfo -> Parser PlatformInfo
loop (Setter PlatformInfo PlatformInfo Text Text
-> Text -> PlatformInfo -> PlatformInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "release" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"release") Text
y PlatformInfo
x)
                        42
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "system"
                                PlatformInfo -> Parser PlatformInfo
loop (Setter PlatformInfo PlatformInfo Text Text
-> Text -> PlatformInfo -> PlatformInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "system" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"system") Text
y PlatformInfo
x)
                        50
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "version"
                                PlatformInfo -> Parser PlatformInfo
loop (Setter PlatformInfo PlatformInfo Text Text
-> Text -> PlatformInfo -> PlatformInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "version" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"version") Text
y PlatformInfo
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                PlatformInfo -> Parser PlatformInfo
loop
                                  (Setter PlatformInfo PlatformInfo FieldSet FieldSet
-> (FieldSet -> FieldSet) -> PlatformInfo -> PlatformInfo
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter PlatformInfo PlatformInfo FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) PlatformInfo
x)
      in
        Parser PlatformInfo -> String -> Parser PlatformInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do PlatformInfo -> Parser PlatformInfo
loop PlatformInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "PlatformInfo"
  buildMessage :: PlatformInfo -> Builder
buildMessage
    = \ _x :: PlatformInfo
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text PlatformInfo PlatformInfo Text Text
-> PlatformInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "bits" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"bits") PlatformInfo
_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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike Text PlatformInfo PlatformInfo Text Text
-> PlatformInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "linkage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"linkage") PlatformInfo
_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 18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ bs :: ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8
                            Text
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (let
                      _v :: Text
_v = FoldLike Text PlatformInfo PlatformInfo Text Text
-> PlatformInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "machine" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"machine") PlatformInfo
_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 26)
                            ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                               (\ bs :: ByteString
bs
                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                          (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                       (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                               Text -> ByteString
Data.Text.Encoding.encodeUtf8
                               Text
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (let
                         _v :: Text
_v = FoldLike Text PlatformInfo PlatformInfo Text Text
-> PlatformInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "release" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"release") PlatformInfo
_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 34)
                               ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                  (\ bs :: ByteString
bs
                                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                             (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                          (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                  Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                  Text
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (let
                            _v :: Text
_v = FoldLike Text PlatformInfo PlatformInfo Text Text
-> PlatformInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "system" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"system") PlatformInfo
_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 42)
                                  ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                     (\ bs :: ByteString
bs
                                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                             (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                     Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                     Text
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (let
                               _v :: Text
_v = FoldLike Text PlatformInfo PlatformInfo Text Text
-> PlatformInfo -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "version" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"version") PlatformInfo
_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 50)
                                     ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                        (\ bs :: ByteString
bs
                                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                   (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                      (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                        Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                        Text
_v))
                            (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                               (FoldLike FieldSet PlatformInfo PlatformInfo FieldSet FieldSet
-> PlatformInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet PlatformInfo PlatformInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields PlatformInfo
_x)))))))
instance Control.DeepSeq.NFData PlatformInfo where
  rnf :: PlatformInfo -> ()
rnf
    = \ x__ :: PlatformInfo
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (PlatformInfo -> FieldSet
_PlatformInfo'_unknownFields PlatformInfo
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (PlatformInfo -> Text
_PlatformInfo'bits PlatformInfo
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (PlatformInfo -> Text
_PlatformInfo'linkage PlatformInfo
x__)
                   (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (PlatformInfo -> Text
_PlatformInfo'machine PlatformInfo
x__)
                      (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (PlatformInfo -> Text
_PlatformInfo'release PlatformInfo
x__)
                         (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (PlatformInfo -> Text
_PlatformInfo'system PlatformInfo
x__)
                            (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (PlatformInfo -> Text
_PlatformInfo'version PlatformInfo
x__) ()))))))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.argument' @:: Lens' RunConfiguration [Data.Text.Text]@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.vec'argument' @:: Lens' RunConfiguration (Data.Vector.Vector Data.Text.Text)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.envVars' @:: Lens' RunConfiguration (Data.Map.Map Data.Text.Text Data.Text.Text)@ -}
data RunConfiguration
  = RunConfiguration'_constructor {RunConfiguration -> Vector Text
_RunConfiguration'argument :: !(Data.Vector.Vector Data.Text.Text),
                                   RunConfiguration -> Map Text Text
_RunConfiguration'envVars :: !(Data.Map.Map Data.Text.Text Data.Text.Text),
                                   RunConfiguration -> FieldSet
_RunConfiguration'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (RunConfiguration -> RunConfiguration -> Bool
(RunConfiguration -> RunConfiguration -> Bool)
-> (RunConfiguration -> RunConfiguration -> Bool)
-> Eq RunConfiguration
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RunConfiguration -> RunConfiguration -> Bool
$c/= :: RunConfiguration -> RunConfiguration -> Bool
== :: RunConfiguration -> RunConfiguration -> Bool
$c== :: RunConfiguration -> RunConfiguration -> Bool
Prelude.Eq, Eq RunConfiguration
Eq RunConfiguration =>
(RunConfiguration -> RunConfiguration -> Ordering)
-> (RunConfiguration -> RunConfiguration -> Bool)
-> (RunConfiguration -> RunConfiguration -> Bool)
-> (RunConfiguration -> RunConfiguration -> Bool)
-> (RunConfiguration -> RunConfiguration -> Bool)
-> (RunConfiguration -> RunConfiguration -> RunConfiguration)
-> (RunConfiguration -> RunConfiguration -> RunConfiguration)
-> Ord RunConfiguration
RunConfiguration -> RunConfiguration -> Bool
RunConfiguration -> RunConfiguration -> Ordering
RunConfiguration -> RunConfiguration -> RunConfiguration
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: RunConfiguration -> RunConfiguration -> RunConfiguration
$cmin :: RunConfiguration -> RunConfiguration -> RunConfiguration
max :: RunConfiguration -> RunConfiguration -> RunConfiguration
$cmax :: RunConfiguration -> RunConfiguration -> RunConfiguration
>= :: RunConfiguration -> RunConfiguration -> Bool
$c>= :: RunConfiguration -> RunConfiguration -> Bool
> :: RunConfiguration -> RunConfiguration -> Bool
$c> :: RunConfiguration -> RunConfiguration -> Bool
<= :: RunConfiguration -> RunConfiguration -> Bool
$c<= :: RunConfiguration -> RunConfiguration -> Bool
< :: RunConfiguration -> RunConfiguration -> Bool
$c< :: RunConfiguration -> RunConfiguration -> Bool
compare :: RunConfiguration -> RunConfiguration -> Ordering
$ccompare :: RunConfiguration -> RunConfiguration -> Ordering
$cp1Ord :: Eq RunConfiguration
Prelude.Ord)
instance Prelude.Show RunConfiguration where
  showsPrec :: Int -> RunConfiguration -> ShowS
showsPrec _ __x :: RunConfiguration
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (RunConfiguration -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RunConfiguration
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField RunConfiguration "argument" [Data.Text.Text] where
  fieldOf :: Proxy# "argument"
-> ([Text] -> f [Text]) -> RunConfiguration -> f RunConfiguration
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> RunConfiguration -> f RunConfiguration)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> RunConfiguration
-> f RunConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RunConfiguration -> Vector Text)
-> (RunConfiguration -> Vector Text -> RunConfiguration)
-> Lens
     RunConfiguration RunConfiguration (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RunConfiguration -> Vector Text
_RunConfiguration'argument
           (\ x__ :: RunConfiguration
x__ y__ :: Vector Text
y__ -> RunConfiguration
x__ {_RunConfiguration'argument :: Vector Text
_RunConfiguration'argument = Vector Text
y__}))
        ((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField RunConfiguration "vec'argument" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: Proxy# "vec'argument"
-> (Vector Text -> f (Vector Text))
-> RunConfiguration
-> f RunConfiguration
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> RunConfiguration -> f RunConfiguration)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> RunConfiguration
-> f RunConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RunConfiguration -> Vector Text)
-> (RunConfiguration -> Vector Text -> RunConfiguration)
-> Lens
     RunConfiguration RunConfiguration (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RunConfiguration -> Vector Text
_RunConfiguration'argument
           (\ x__ :: RunConfiguration
x__ y__ :: Vector Text
y__ -> RunConfiguration
x__ {_RunConfiguration'argument :: Vector Text
_RunConfiguration'argument = Vector Text
y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RunConfiguration "envVars" (Data.Map.Map Data.Text.Text Data.Text.Text) where
  fieldOf :: Proxy# "envVars"
-> (Map Text Text -> f (Map Text Text))
-> RunConfiguration
-> f RunConfiguration
fieldOf _
    = ((Map Text Text -> f (Map Text Text))
 -> RunConfiguration -> f RunConfiguration)
-> ((Map Text Text -> f (Map Text Text))
    -> Map Text Text -> f (Map Text Text))
-> (Map Text Text -> f (Map Text Text))
-> RunConfiguration
-> f RunConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RunConfiguration -> Map Text Text)
-> (RunConfiguration -> Map Text Text -> RunConfiguration)
-> Lens
     RunConfiguration RunConfiguration (Map Text Text) (Map Text Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RunConfiguration -> Map Text Text
_RunConfiguration'envVars
           (\ x__ :: RunConfiguration
x__ y__ :: Map Text Text
y__ -> RunConfiguration
x__ {_RunConfiguration'envVars :: Map Text Text
_RunConfiguration'envVars = Map Text Text
y__}))
        (Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RunConfiguration where
  messageName :: Proxy RunConfiguration -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.RunConfiguration"
  packedMessageDescriptor :: Proxy RunConfiguration -> ByteString
packedMessageDescriptor _
    = "\n\
      \\DLERunConfiguration\DC2\SUB\n\
      \\bargument\CAN\SOH \ETX(\tR\bargument\DC2D\n\
      \\benv_vars\CAN\STX \ETX(\v2).tensorflow.RunConfiguration.EnvVarsEntryR\aenvVars\SUB:\n\
      \\fEnvVarsEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy RunConfiguration -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor RunConfiguration)
fieldsByTag
    = let
        argument__field_descriptor :: FieldDescriptor RunConfiguration
argument__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor RunConfiguration Text
-> FieldDescriptor RunConfiguration
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "argument"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (Packing
-> Lens' RunConfiguration [Text]
-> FieldAccessor RunConfiguration Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "argument" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"argument")) ::
              Data.ProtoLens.FieldDescriptor RunConfiguration
        envVars__field_descriptor :: FieldDescriptor RunConfiguration
envVars__field_descriptor
          = String
-> FieldTypeDescriptor RunConfiguration'EnvVarsEntry
-> FieldAccessor RunConfiguration RunConfiguration'EnvVarsEntry
-> FieldDescriptor RunConfiguration
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "env_vars"
              (MessageOrGroup -> FieldTypeDescriptor RunConfiguration'EnvVarsEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RunConfiguration'EnvVarsEntry)
              (Lens' RunConfiguration'EnvVarsEntry Text
-> Lens' RunConfiguration'EnvVarsEntry Text
-> Lens
     RunConfiguration RunConfiguration (Map Text Text) (Map Text Text)
-> FieldAccessor RunConfiguration RunConfiguration'EnvVarsEntry
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 s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                 (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                 (forall s a (f :: * -> *).
(HasField s "envVars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"envVars")) ::
              Data.ProtoLens.FieldDescriptor RunConfiguration
      in
        [(Tag, FieldDescriptor RunConfiguration)]
-> Map Tag (FieldDescriptor RunConfiguration)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor RunConfiguration
argument__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor RunConfiguration
envVars__field_descriptor)]
  unknownFields :: LensLike' f RunConfiguration FieldSet
unknownFields
    = (RunConfiguration -> FieldSet)
-> (RunConfiguration -> FieldSet -> RunConfiguration)
-> Lens' RunConfiguration FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        RunConfiguration -> FieldSet
_RunConfiguration'_unknownFields
        (\ x__ :: RunConfiguration
x__ y__ :: FieldSet
y__ -> RunConfiguration
x__ {_RunConfiguration'_unknownFields :: FieldSet
_RunConfiguration'_unknownFields = FieldSet
y__})
  defMessage :: RunConfiguration
defMessage
    = $WRunConfiguration'_constructor :: Vector Text -> Map Text Text -> FieldSet -> RunConfiguration
RunConfiguration'_constructor
        {_RunConfiguration'argument :: Vector Text
_RunConfiguration'argument = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _RunConfiguration'envVars :: Map Text Text
_RunConfiguration'envVars = Map Text Text
forall k a. Map k a
Data.Map.empty,
         _RunConfiguration'_unknownFields :: FieldSet
_RunConfiguration'_unknownFields = []}
  parseMessage :: Parser RunConfiguration
parseMessage
    = let
        loop ::
          RunConfiguration
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
             -> Data.ProtoLens.Encoding.Bytes.Parser RunConfiguration
        loop :: RunConfiguration
-> Growing Vector RealWorld Text -> Parser RunConfiguration
loop x :: RunConfiguration
x mutable'argument :: Growing Vector RealWorld Text
mutable'argument
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Text
frozen'argument <- IO (Vector Text) -> Parser (Vector Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                           (Growing Vector (PrimState IO) Text -> IO (Vector Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
                                              Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'argument)
                      (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      RunConfiguration -> Parser RunConfiguration
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter RunConfiguration RunConfiguration FieldSet FieldSet
-> (FieldSet -> FieldSet) -> RunConfiguration -> RunConfiguration
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter RunConfiguration RunConfiguration FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  RunConfiguration RunConfiguration (Vector Text) (Vector Text)
-> Vector Text -> RunConfiguration -> RunConfiguration
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'argument" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'argument") Vector Text
frozen'argument RunConfiguration
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                        Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                          (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                            Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                              (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                 (Prelude.Left err :: UnicodeException
err)
                                                   -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                 (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                        "argument"
                                Growing Vector RealWorld Text
v <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) Text
-> Text -> IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'argument Text
y)
                                RunConfiguration
-> Growing Vector RealWorld Text -> Parser RunConfiguration
loop RunConfiguration
x Growing Vector RealWorld Text
v
                        18
                          -> do !(RunConfiguration'EnvVarsEntry
entry :: RunConfiguration'EnvVarsEntry) <- Parser RunConfiguration'EnvVarsEntry
-> String -> Parser RunConfiguration'EnvVarsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                               (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                                                   Int
-> Parser RunConfiguration'EnvVarsEntry
-> Parser RunConfiguration'EnvVarsEntry
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                                                                     (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                                        Word64
len)
                                                                                     Parser RunConfiguration'EnvVarsEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                                                               "env_vars"
                                (let
                                   key :: Text
key = FoldLike
  Text
  RunConfiguration'EnvVarsEntry
  RunConfiguration'EnvVarsEntry
  Text
  Text
-> RunConfiguration'EnvVarsEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") RunConfiguration'EnvVarsEntry
entry
                                   value :: Text
value
                                     = FoldLike
  Text
  RunConfiguration'EnvVarsEntry
  RunConfiguration'EnvVarsEntry
  Text
  Text
-> RunConfiguration'EnvVarsEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") RunConfiguration'EnvVarsEntry
entry
                                 in
                                   RunConfiguration
-> Growing Vector RealWorld Text -> Parser RunConfiguration
loop
                                     (Setter
  RunConfiguration RunConfiguration (Map Text Text) (Map Text Text)
-> (Map Text Text -> Map Text Text)
-> RunConfiguration
-> RunConfiguration
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                        (forall s a (f :: * -> *).
(HasField s "envVars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"envVars")
                                        (\ !Map Text Text
t -> Text -> Text -> Map Text Text -> Map Text Text
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Text
value Map Text Text
t)
                                        RunConfiguration
x)
                                     Growing Vector RealWorld Text
mutable'argument)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                RunConfiguration
-> Growing Vector RealWorld Text -> Parser RunConfiguration
loop
                                  (Setter RunConfiguration RunConfiguration FieldSet FieldSet
-> (FieldSet -> FieldSet) -> RunConfiguration -> RunConfiguration
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter RunConfiguration RunConfiguration FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) RunConfiguration
x)
                                  Growing Vector RealWorld Text
mutable'argument
      in
        Parser RunConfiguration -> String -> Parser RunConfiguration
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Text
mutable'argument <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                    IO (Growing Vector RealWorld Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              RunConfiguration
-> Growing Vector RealWorld Text -> Parser RunConfiguration
loop RunConfiguration
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Text
mutable'argument)
          "RunConfiguration"
  buildMessage :: RunConfiguration -> Builder
buildMessage
    = \ _x :: RunConfiguration
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: Text
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                           (\ bs :: ByteString
bs
                              -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                   (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                      (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                   (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                           Text -> ByteString
Data.Text.Encoding.encodeUtf8
                           Text
_v))
                (FoldLike
  (Vector Text)
  RunConfiguration
  RunConfiguration
  (Vector Text)
  (Vector Text)
-> RunConfiguration -> Vector Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                   (forall s a (f :: * -> *).
(HasField s "vec'argument" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'argument") RunConfiguration
_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, Text) -> Builder) -> [(Text, Text)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                      (\ _v :: (Text, Text)
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                              ((ByteString -> Builder)
-> (RunConfiguration'EnvVarsEntry -> ByteString)
-> RunConfiguration'EnvVarsEntry
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                 (\ bs :: ByteString
bs
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                            (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                         (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                 RunConfiguration'EnvVarsEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                 (Setter
  RunConfiguration'EnvVarsEntry
  RunConfiguration'EnvVarsEntry
  Text
  Text
-> Text
-> RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                    (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
                                    ((Text, Text) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Text)
_v)
                                    (Setter
  RunConfiguration'EnvVarsEntry
  RunConfiguration'EnvVarsEntry
  Text
  Text
-> Text
-> RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                       (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
                                       ((Text, Text) -> Text
forall a b. (a, b) -> b
Prelude.snd (Text, Text)
_v)
                                       (RunConfiguration'EnvVarsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                          RunConfiguration'EnvVarsEntry)))))
                      (Map Text Text -> [(Text, Text)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                         (FoldLike
  (Map Text Text)
  RunConfiguration
  RunConfiguration
  (Map Text Text)
  (Map Text Text)
-> RunConfiguration -> Map Text Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "envVars" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"envVars") RunConfiguration
_x))))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet RunConfiguration RunConfiguration FieldSet FieldSet
-> RunConfiguration -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet RunConfiguration RunConfiguration FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields RunConfiguration
_x)))
instance Control.DeepSeq.NFData RunConfiguration where
  rnf :: RunConfiguration -> ()
rnf
    = \ x__ :: RunConfiguration
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (RunConfiguration -> FieldSet
_RunConfiguration'_unknownFields RunConfiguration
x__)
             (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (RunConfiguration -> Vector Text
_RunConfiguration'argument RunConfiguration
x__)
                (Map Text Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (RunConfiguration -> Map Text Text
_RunConfiguration'envVars RunConfiguration
x__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.key' @:: Lens' RunConfiguration'EnvVarsEntry Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.value' @:: Lens' RunConfiguration'EnvVarsEntry Data.Text.Text@ -}
data RunConfiguration'EnvVarsEntry
  = RunConfiguration'EnvVarsEntry'_constructor {RunConfiguration'EnvVarsEntry -> Text
_RunConfiguration'EnvVarsEntry'key :: !Data.Text.Text,
                                                RunConfiguration'EnvVarsEntry -> Text
_RunConfiguration'EnvVarsEntry'value :: !Data.Text.Text,
                                                RunConfiguration'EnvVarsEntry -> FieldSet
_RunConfiguration'EnvVarsEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Bool
(RunConfiguration'EnvVarsEntry
 -> RunConfiguration'EnvVarsEntry -> Bool)
-> (RunConfiguration'EnvVarsEntry
    -> RunConfiguration'EnvVarsEntry -> Bool)
-> Eq RunConfiguration'EnvVarsEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Bool
$c/= :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Bool
== :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Bool
$c== :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Bool
Prelude.Eq, Eq RunConfiguration'EnvVarsEntry
Eq RunConfiguration'EnvVarsEntry =>
(RunConfiguration'EnvVarsEntry
 -> RunConfiguration'EnvVarsEntry -> Ordering)
-> (RunConfiguration'EnvVarsEntry
    -> RunConfiguration'EnvVarsEntry -> Bool)
-> (RunConfiguration'EnvVarsEntry
    -> RunConfiguration'EnvVarsEntry -> Bool)
-> (RunConfiguration'EnvVarsEntry
    -> RunConfiguration'EnvVarsEntry -> Bool)
-> (RunConfiguration'EnvVarsEntry
    -> RunConfiguration'EnvVarsEntry -> Bool)
-> (RunConfiguration'EnvVarsEntry
    -> RunConfiguration'EnvVarsEntry -> RunConfiguration'EnvVarsEntry)
-> (RunConfiguration'EnvVarsEntry
    -> RunConfiguration'EnvVarsEntry -> RunConfiguration'EnvVarsEntry)
-> Ord RunConfiguration'EnvVarsEntry
RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Bool
RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Ordering
RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> RunConfiguration'EnvVarsEntry
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> RunConfiguration'EnvVarsEntry
$cmin :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> RunConfiguration'EnvVarsEntry
max :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> RunConfiguration'EnvVarsEntry
$cmax :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> RunConfiguration'EnvVarsEntry
>= :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Bool
$c>= :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Bool
> :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Bool
$c> :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Bool
<= :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Bool
$c<= :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Bool
< :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Bool
$c< :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Bool
compare :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Ordering
$ccompare :: RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry -> Ordering
$cp1Ord :: Eq RunConfiguration'EnvVarsEntry
Prelude.Ord)
instance Prelude.Show RunConfiguration'EnvVarsEntry where
  showsPrec :: Int -> RunConfiguration'EnvVarsEntry -> ShowS
showsPrec _ __x :: RunConfiguration'EnvVarsEntry
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (RunConfiguration'EnvVarsEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort RunConfiguration'EnvVarsEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField RunConfiguration'EnvVarsEntry "key" Data.Text.Text where
  fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> RunConfiguration'EnvVarsEntry
-> f RunConfiguration'EnvVarsEntry
fieldOf _
    = ((Text -> f Text)
 -> RunConfiguration'EnvVarsEntry
 -> f RunConfiguration'EnvVarsEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> RunConfiguration'EnvVarsEntry
-> f RunConfiguration'EnvVarsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RunConfiguration'EnvVarsEntry -> Text)
-> (RunConfiguration'EnvVarsEntry
    -> Text -> RunConfiguration'EnvVarsEntry)
-> Lens' RunConfiguration'EnvVarsEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RunConfiguration'EnvVarsEntry -> Text
_RunConfiguration'EnvVarsEntry'key
           (\ x__ :: RunConfiguration'EnvVarsEntry
x__ y__ :: Text
y__ -> RunConfiguration'EnvVarsEntry
x__ {_RunConfiguration'EnvVarsEntry'key :: Text
_RunConfiguration'EnvVarsEntry'key = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField RunConfiguration'EnvVarsEntry "value" Data.Text.Text where
  fieldOf :: Proxy# "value"
-> (Text -> f Text)
-> RunConfiguration'EnvVarsEntry
-> f RunConfiguration'EnvVarsEntry
fieldOf _
    = ((Text -> f Text)
 -> RunConfiguration'EnvVarsEntry
 -> f RunConfiguration'EnvVarsEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> RunConfiguration'EnvVarsEntry
-> f RunConfiguration'EnvVarsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((RunConfiguration'EnvVarsEntry -> Text)
-> (RunConfiguration'EnvVarsEntry
    -> Text -> RunConfiguration'EnvVarsEntry)
-> Lens' RunConfiguration'EnvVarsEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           RunConfiguration'EnvVarsEntry -> Text
_RunConfiguration'EnvVarsEntry'value
           (\ x__ :: RunConfiguration'EnvVarsEntry
x__ y__ :: Text
y__ -> RunConfiguration'EnvVarsEntry
x__ {_RunConfiguration'EnvVarsEntry'value :: Text
_RunConfiguration'EnvVarsEntry'value = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message RunConfiguration'EnvVarsEntry where
  messageName :: Proxy RunConfiguration'EnvVarsEntry -> Text
messageName _
    = String -> Text
Data.Text.pack "tensorflow.RunConfiguration.EnvVarsEntry"
  packedMessageDescriptor :: Proxy RunConfiguration'EnvVarsEntry -> ByteString
packedMessageDescriptor _
    = "\n\
      \\fEnvVarsEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy RunConfiguration'EnvVarsEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor RunConfiguration'EnvVarsEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor RunConfiguration'EnvVarsEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor RunConfiguration'EnvVarsEntry Text
-> FieldDescriptor RunConfiguration'EnvVarsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "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' RunConfiguration'EnvVarsEntry Text
-> FieldAccessor RunConfiguration'EnvVarsEntry 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 s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
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 RunConfiguration'EnvVarsEntry
        value__field_descriptor :: FieldDescriptor RunConfiguration'EnvVarsEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor RunConfiguration'EnvVarsEntry Text
-> FieldDescriptor RunConfiguration'EnvVarsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens' RunConfiguration'EnvVarsEntry Text
-> FieldAccessor RunConfiguration'EnvVarsEntry 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 s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
              Data.ProtoLens.FieldDescriptor RunConfiguration'EnvVarsEntry
      in
        [(Tag, FieldDescriptor RunConfiguration'EnvVarsEntry)]
-> Map Tag (FieldDescriptor RunConfiguration'EnvVarsEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor RunConfiguration'EnvVarsEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor RunConfiguration'EnvVarsEntry
value__field_descriptor)]
  unknownFields :: LensLike' f RunConfiguration'EnvVarsEntry FieldSet
unknownFields
    = (RunConfiguration'EnvVarsEntry -> FieldSet)
-> (RunConfiguration'EnvVarsEntry
    -> FieldSet -> RunConfiguration'EnvVarsEntry)
-> Lens' RunConfiguration'EnvVarsEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        RunConfiguration'EnvVarsEntry -> FieldSet
_RunConfiguration'EnvVarsEntry'_unknownFields
        (\ x__ :: RunConfiguration'EnvVarsEntry
x__ y__ :: FieldSet
y__
           -> RunConfiguration'EnvVarsEntry
x__ {_RunConfiguration'EnvVarsEntry'_unknownFields :: FieldSet
_RunConfiguration'EnvVarsEntry'_unknownFields = FieldSet
y__})
  defMessage :: RunConfiguration'EnvVarsEntry
defMessage
    = $WRunConfiguration'EnvVarsEntry'_constructor :: Text -> Text -> FieldSet -> RunConfiguration'EnvVarsEntry
RunConfiguration'EnvVarsEntry'_constructor
        {_RunConfiguration'EnvVarsEntry'key :: Text
_RunConfiguration'EnvVarsEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RunConfiguration'EnvVarsEntry'value :: Text
_RunConfiguration'EnvVarsEntry'value = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _RunConfiguration'EnvVarsEntry'_unknownFields :: FieldSet
_RunConfiguration'EnvVarsEntry'_unknownFields = []}
  parseMessage :: Parser RunConfiguration'EnvVarsEntry
parseMessage
    = let
        loop ::
          RunConfiguration'EnvVarsEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser RunConfiguration'EnvVarsEntry
        loop :: RunConfiguration'EnvVarsEntry
-> Parser RunConfiguration'EnvVarsEntry
loop x :: RunConfiguration'EnvVarsEntry
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      RunConfiguration'EnvVarsEntry
-> Parser RunConfiguration'EnvVarsEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  RunConfiguration'EnvVarsEntry
  RunConfiguration'EnvVarsEntry
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter
  RunConfiguration'EnvVarsEntry
  RunConfiguration'EnvVarsEntry
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) RunConfiguration'EnvVarsEntry
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "key"
                                RunConfiguration'EnvVarsEntry
-> Parser RunConfiguration'EnvVarsEntry
loop (Setter
  RunConfiguration'EnvVarsEntry
  RunConfiguration'EnvVarsEntry
  Text
  Text
-> Text
-> RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Text
y RunConfiguration'EnvVarsEntry
x)
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "value"
                                RunConfiguration'EnvVarsEntry
-> Parser RunConfiguration'EnvVarsEntry
loop (Setter
  RunConfiguration'EnvVarsEntry
  RunConfiguration'EnvVarsEntry
  Text
  Text
-> Text
-> RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") Text
y RunConfiguration'EnvVarsEntry
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                RunConfiguration'EnvVarsEntry
-> Parser RunConfiguration'EnvVarsEntry
loop
                                  (Setter
  RunConfiguration'EnvVarsEntry
  RunConfiguration'EnvVarsEntry
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> RunConfiguration'EnvVarsEntry
-> RunConfiguration'EnvVarsEntry
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter
  RunConfiguration'EnvVarsEntry
  RunConfiguration'EnvVarsEntry
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) RunConfiguration'EnvVarsEntry
x)
      in
        Parser RunConfiguration'EnvVarsEntry
-> String -> Parser RunConfiguration'EnvVarsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do RunConfiguration'EnvVarsEntry
-> Parser RunConfiguration'EnvVarsEntry
loop RunConfiguration'EnvVarsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "EnvVarsEntry"
  buildMessage :: RunConfiguration'EnvVarsEntry -> Builder
buildMessage
    = \ _x :: RunConfiguration'EnvVarsEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike
  Text
  RunConfiguration'EnvVarsEntry
  RunConfiguration'EnvVarsEntry
  Text
  Text
-> RunConfiguration'EnvVarsEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") RunConfiguration'EnvVarsEntry
_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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike
  Text
  RunConfiguration'EnvVarsEntry
  RunConfiguration'EnvVarsEntry
  Text
  Text
-> RunConfiguration'EnvVarsEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") RunConfiguration'EnvVarsEntry
_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 18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ bs :: ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8
                            Text
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  RunConfiguration'EnvVarsEntry
  RunConfiguration'EnvVarsEntry
  FieldSet
  FieldSet
-> RunConfiguration'EnvVarsEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  RunConfiguration'EnvVarsEntry
  RunConfiguration'EnvVarsEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields RunConfiguration'EnvVarsEntry
_x)))
instance Control.DeepSeq.NFData RunConfiguration'EnvVarsEntry where
  rnf :: RunConfiguration'EnvVarsEntry -> ()
rnf
    = \ x__ :: RunConfiguration'EnvVarsEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (RunConfiguration'EnvVarsEntry -> FieldSet
_RunConfiguration'EnvVarsEntry'_unknownFields RunConfiguration'EnvVarsEntry
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (RunConfiguration'EnvVarsEntry -> Text
_RunConfiguration'EnvVarsEntry'key RunConfiguration'EnvVarsEntry
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (RunConfiguration'EnvVarsEntry -> Text
_RunConfiguration'EnvVarsEntry'value RunConfiguration'EnvVarsEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.target' @:: Lens' TestResults Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.entries' @:: Lens' TestResults BenchmarkEntries@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'entries' @:: Lens' TestResults (Prelude.Maybe BenchmarkEntries)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.buildConfiguration' @:: Lens' TestResults BuildConfiguration@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'buildConfiguration' @:: Lens' TestResults (Prelude.Maybe BuildConfiguration)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.commitId' @:: Lens' TestResults CommitId@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'commitId' @:: Lens' TestResults (Prelude.Maybe CommitId)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.startTime' @:: Lens' TestResults Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.runTime' @:: Lens' TestResults Prelude.Double@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.machineConfiguration' @:: Lens' TestResults MachineConfiguration@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'machineConfiguration' @:: Lens' TestResults (Prelude.Maybe MachineConfiguration)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.runConfiguration' @:: Lens' TestResults RunConfiguration@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.maybe'runConfiguration' @:: Lens' TestResults (Prelude.Maybe RunConfiguration)@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.name' @:: Lens' TestResults Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.benchmarkType' @:: Lens' TestResults TestResults'BenchmarkType@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.runMode' @:: Lens' TestResults Data.Text.Text@
         * 'Proto.Tensorflow.Core.Util.TestLog_Fields.tfVersion' @:: Lens' TestResults Data.Text.Text@ -}
data TestResults
  = TestResults'_constructor {TestResults -> Text
_TestResults'target :: !Data.Text.Text,
                              TestResults -> Maybe BenchmarkEntries
_TestResults'entries :: !(Prelude.Maybe BenchmarkEntries),
                              TestResults -> Maybe BuildConfiguration
_TestResults'buildConfiguration :: !(Prelude.Maybe BuildConfiguration),
                              TestResults -> Maybe CommitId
_TestResults'commitId :: !(Prelude.Maybe CommitId),
                              TestResults -> Int64
_TestResults'startTime :: !Data.Int.Int64,
                              TestResults -> Double
_TestResults'runTime :: !Prelude.Double,
                              TestResults -> Maybe MachineConfiguration
_TestResults'machineConfiguration :: !(Prelude.Maybe MachineConfiguration),
                              TestResults -> Maybe RunConfiguration
_TestResults'runConfiguration :: !(Prelude.Maybe RunConfiguration),
                              TestResults -> Text
_TestResults'name :: !Data.Text.Text,
                              TestResults -> TestResults'BenchmarkType
_TestResults'benchmarkType :: !TestResults'BenchmarkType,
                              TestResults -> Text
_TestResults'runMode :: !Data.Text.Text,
                              TestResults -> Text
_TestResults'tfVersion :: !Data.Text.Text,
                              TestResults -> FieldSet
_TestResults'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TestResults -> TestResults -> Bool
(TestResults -> TestResults -> Bool)
-> (TestResults -> TestResults -> Bool) -> Eq TestResults
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TestResults -> TestResults -> Bool
$c/= :: TestResults -> TestResults -> Bool
== :: TestResults -> TestResults -> Bool
$c== :: TestResults -> TestResults -> Bool
Prelude.Eq, Eq TestResults
Eq TestResults =>
(TestResults -> TestResults -> Ordering)
-> (TestResults -> TestResults -> Bool)
-> (TestResults -> TestResults -> Bool)
-> (TestResults -> TestResults -> Bool)
-> (TestResults -> TestResults -> Bool)
-> (TestResults -> TestResults -> TestResults)
-> (TestResults -> TestResults -> TestResults)
-> Ord TestResults
TestResults -> TestResults -> Bool
TestResults -> TestResults -> Ordering
TestResults -> TestResults -> TestResults
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: TestResults -> TestResults -> TestResults
$cmin :: TestResults -> TestResults -> TestResults
max :: TestResults -> TestResults -> TestResults
$cmax :: TestResults -> TestResults -> TestResults
>= :: TestResults -> TestResults -> Bool
$c>= :: TestResults -> TestResults -> Bool
> :: TestResults -> TestResults -> Bool
$c> :: TestResults -> TestResults -> Bool
<= :: TestResults -> TestResults -> Bool
$c<= :: TestResults -> TestResults -> Bool
< :: TestResults -> TestResults -> Bool
$c< :: TestResults -> TestResults -> Bool
compare :: TestResults -> TestResults -> Ordering
$ccompare :: TestResults -> TestResults -> Ordering
$cp1Ord :: Eq TestResults
Prelude.Ord)
instance Prelude.Show TestResults where
  showsPrec :: Int -> TestResults -> ShowS
showsPrec _ __x :: TestResults
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (TestResults -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TestResults
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TestResults "target" Data.Text.Text where
  fieldOf :: Proxy# "target" -> (Text -> f Text) -> TestResults -> f TestResults
fieldOf _
    = ((Text -> f Text) -> TestResults -> f TestResults)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Text)
-> (TestResults -> Text -> TestResults)
-> Lens TestResults TestResults Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Text
_TestResults'target (\ x__ :: TestResults
x__ y__ :: Text
y__ -> TestResults
x__ {_TestResults'target :: Text
_TestResults'target = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TestResults "entries" BenchmarkEntries where
  fieldOf :: Proxy# "entries"
-> (BenchmarkEntries -> f BenchmarkEntries)
-> TestResults
-> f TestResults
fieldOf _
    = ((Maybe BenchmarkEntries -> f (Maybe BenchmarkEntries))
 -> TestResults -> f TestResults)
-> ((BenchmarkEntries -> f BenchmarkEntries)
    -> Maybe BenchmarkEntries -> f (Maybe BenchmarkEntries))
-> (BenchmarkEntries -> f BenchmarkEntries)
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Maybe BenchmarkEntries)
-> (TestResults -> Maybe BenchmarkEntries -> TestResults)
-> Lens
     TestResults
     TestResults
     (Maybe BenchmarkEntries)
     (Maybe BenchmarkEntries)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Maybe BenchmarkEntries
_TestResults'entries
           (\ x__ :: TestResults
x__ y__ :: Maybe BenchmarkEntries
y__ -> TestResults
x__ {_TestResults'entries :: Maybe BenchmarkEntries
_TestResults'entries = Maybe BenchmarkEntries
y__}))
        (BenchmarkEntries -> Lens' (Maybe BenchmarkEntries) BenchmarkEntries
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens BenchmarkEntries
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TestResults "maybe'entries" (Prelude.Maybe BenchmarkEntries) where
  fieldOf :: Proxy# "maybe'entries"
-> (Maybe BenchmarkEntries -> f (Maybe BenchmarkEntries))
-> TestResults
-> f TestResults
fieldOf _
    = ((Maybe BenchmarkEntries -> f (Maybe BenchmarkEntries))
 -> TestResults -> f TestResults)
-> ((Maybe BenchmarkEntries -> f (Maybe BenchmarkEntries))
    -> Maybe BenchmarkEntries -> f (Maybe BenchmarkEntries))
-> (Maybe BenchmarkEntries -> f (Maybe BenchmarkEntries))
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Maybe BenchmarkEntries)
-> (TestResults -> Maybe BenchmarkEntries -> TestResults)
-> Lens
     TestResults
     TestResults
     (Maybe BenchmarkEntries)
     (Maybe BenchmarkEntries)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Maybe BenchmarkEntries
_TestResults'entries
           (\ x__ :: TestResults
x__ y__ :: Maybe BenchmarkEntries
y__ -> TestResults
x__ {_TestResults'entries :: Maybe BenchmarkEntries
_TestResults'entries = Maybe BenchmarkEntries
y__}))
        (Maybe BenchmarkEntries -> f (Maybe BenchmarkEntries))
-> Maybe BenchmarkEntries -> f (Maybe BenchmarkEntries)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TestResults "buildConfiguration" BuildConfiguration where
  fieldOf :: Proxy# "buildConfiguration"
-> (BuildConfiguration -> f BuildConfiguration)
-> TestResults
-> f TestResults
fieldOf _
    = ((Maybe BuildConfiguration -> f (Maybe BuildConfiguration))
 -> TestResults -> f TestResults)
-> ((BuildConfiguration -> f BuildConfiguration)
    -> Maybe BuildConfiguration -> f (Maybe BuildConfiguration))
-> (BuildConfiguration -> f BuildConfiguration)
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Maybe BuildConfiguration)
-> (TestResults -> Maybe BuildConfiguration -> TestResults)
-> Lens
     TestResults
     TestResults
     (Maybe BuildConfiguration)
     (Maybe BuildConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Maybe BuildConfiguration
_TestResults'buildConfiguration
           (\ x__ :: TestResults
x__ y__ :: Maybe BuildConfiguration
y__ -> TestResults
x__ {_TestResults'buildConfiguration :: Maybe BuildConfiguration
_TestResults'buildConfiguration = Maybe BuildConfiguration
y__}))
        (BuildConfiguration
-> Lens' (Maybe BuildConfiguration) BuildConfiguration
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens BuildConfiguration
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TestResults "maybe'buildConfiguration" (Prelude.Maybe BuildConfiguration) where
  fieldOf :: Proxy# "maybe'buildConfiguration"
-> (Maybe BuildConfiguration -> f (Maybe BuildConfiguration))
-> TestResults
-> f TestResults
fieldOf _
    = ((Maybe BuildConfiguration -> f (Maybe BuildConfiguration))
 -> TestResults -> f TestResults)
-> ((Maybe BuildConfiguration -> f (Maybe BuildConfiguration))
    -> Maybe BuildConfiguration -> f (Maybe BuildConfiguration))
-> (Maybe BuildConfiguration -> f (Maybe BuildConfiguration))
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Maybe BuildConfiguration)
-> (TestResults -> Maybe BuildConfiguration -> TestResults)
-> Lens
     TestResults
     TestResults
     (Maybe BuildConfiguration)
     (Maybe BuildConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Maybe BuildConfiguration
_TestResults'buildConfiguration
           (\ x__ :: TestResults
x__ y__ :: Maybe BuildConfiguration
y__ -> TestResults
x__ {_TestResults'buildConfiguration :: Maybe BuildConfiguration
_TestResults'buildConfiguration = Maybe BuildConfiguration
y__}))
        (Maybe BuildConfiguration -> f (Maybe BuildConfiguration))
-> Maybe BuildConfiguration -> f (Maybe BuildConfiguration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TestResults "commitId" CommitId where
  fieldOf :: Proxy# "commitId"
-> (CommitId -> f CommitId) -> TestResults -> f TestResults
fieldOf _
    = ((Maybe CommitId -> f (Maybe CommitId))
 -> TestResults -> f TestResults)
-> ((CommitId -> f CommitId)
    -> Maybe CommitId -> f (Maybe CommitId))
-> (CommitId -> f CommitId)
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Maybe CommitId)
-> (TestResults -> Maybe CommitId -> TestResults)
-> Lens TestResults TestResults (Maybe CommitId) (Maybe CommitId)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Maybe CommitId
_TestResults'commitId
           (\ x__ :: TestResults
x__ y__ :: Maybe CommitId
y__ -> TestResults
x__ {_TestResults'commitId :: Maybe CommitId
_TestResults'commitId = Maybe CommitId
y__}))
        (CommitId -> Lens' (Maybe CommitId) CommitId
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CommitId
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TestResults "maybe'commitId" (Prelude.Maybe CommitId) where
  fieldOf :: Proxy# "maybe'commitId"
-> (Maybe CommitId -> f (Maybe CommitId))
-> TestResults
-> f TestResults
fieldOf _
    = ((Maybe CommitId -> f (Maybe CommitId))
 -> TestResults -> f TestResults)
-> ((Maybe CommitId -> f (Maybe CommitId))
    -> Maybe CommitId -> f (Maybe CommitId))
-> (Maybe CommitId -> f (Maybe CommitId))
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Maybe CommitId)
-> (TestResults -> Maybe CommitId -> TestResults)
-> Lens TestResults TestResults (Maybe CommitId) (Maybe CommitId)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Maybe CommitId
_TestResults'commitId
           (\ x__ :: TestResults
x__ y__ :: Maybe CommitId
y__ -> TestResults
x__ {_TestResults'commitId :: Maybe CommitId
_TestResults'commitId = Maybe CommitId
y__}))
        (Maybe CommitId -> f (Maybe CommitId))
-> Maybe CommitId -> f (Maybe CommitId)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TestResults "startTime" Data.Int.Int64 where
  fieldOf :: Proxy# "startTime"
-> (Int64 -> f Int64) -> TestResults -> f TestResults
fieldOf _
    = ((Int64 -> f Int64) -> TestResults -> f TestResults)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Int64)
-> (TestResults -> Int64 -> TestResults)
-> Lens TestResults TestResults Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Int64
_TestResults'startTime
           (\ x__ :: TestResults
x__ y__ :: Int64
y__ -> TestResults
x__ {_TestResults'startTime :: Int64
_TestResults'startTime = Int64
y__}))
        (Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TestResults "runTime" Prelude.Double where
  fieldOf :: Proxy# "runTime"
-> (Double -> f Double) -> TestResults -> f TestResults
fieldOf _
    = ((Double -> f Double) -> TestResults -> f TestResults)
-> ((Double -> f Double) -> Double -> f Double)
-> (Double -> f Double)
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Double)
-> (TestResults -> Double -> TestResults)
-> Lens TestResults TestResults Double Double
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Double
_TestResults'runTime
           (\ x__ :: TestResults
x__ y__ :: Double
y__ -> TestResults
x__ {_TestResults'runTime :: Double
_TestResults'runTime = Double
y__}))
        (Double -> f Double) -> Double -> f Double
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TestResults "machineConfiguration" MachineConfiguration where
  fieldOf :: Proxy# "machineConfiguration"
-> (MachineConfiguration -> f MachineConfiguration)
-> TestResults
-> f TestResults
fieldOf _
    = ((Maybe MachineConfiguration -> f (Maybe MachineConfiguration))
 -> TestResults -> f TestResults)
-> ((MachineConfiguration -> f MachineConfiguration)
    -> Maybe MachineConfiguration -> f (Maybe MachineConfiguration))
-> (MachineConfiguration -> f MachineConfiguration)
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Maybe MachineConfiguration)
-> (TestResults -> Maybe MachineConfiguration -> TestResults)
-> Lens
     TestResults
     TestResults
     (Maybe MachineConfiguration)
     (Maybe MachineConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Maybe MachineConfiguration
_TestResults'machineConfiguration
           (\ x__ :: TestResults
x__ y__ :: Maybe MachineConfiguration
y__ -> TestResults
x__ {_TestResults'machineConfiguration :: Maybe MachineConfiguration
_TestResults'machineConfiguration = Maybe MachineConfiguration
y__}))
        (MachineConfiguration
-> Lens' (Maybe MachineConfiguration) MachineConfiguration
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens MachineConfiguration
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TestResults "maybe'machineConfiguration" (Prelude.Maybe MachineConfiguration) where
  fieldOf :: Proxy# "maybe'machineConfiguration"
-> (Maybe MachineConfiguration -> f (Maybe MachineConfiguration))
-> TestResults
-> f TestResults
fieldOf _
    = ((Maybe MachineConfiguration -> f (Maybe MachineConfiguration))
 -> TestResults -> f TestResults)
-> ((Maybe MachineConfiguration -> f (Maybe MachineConfiguration))
    -> Maybe MachineConfiguration -> f (Maybe MachineConfiguration))
-> (Maybe MachineConfiguration -> f (Maybe MachineConfiguration))
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Maybe MachineConfiguration)
-> (TestResults -> Maybe MachineConfiguration -> TestResults)
-> Lens
     TestResults
     TestResults
     (Maybe MachineConfiguration)
     (Maybe MachineConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Maybe MachineConfiguration
_TestResults'machineConfiguration
           (\ x__ :: TestResults
x__ y__ :: Maybe MachineConfiguration
y__ -> TestResults
x__ {_TestResults'machineConfiguration :: Maybe MachineConfiguration
_TestResults'machineConfiguration = Maybe MachineConfiguration
y__}))
        (Maybe MachineConfiguration -> f (Maybe MachineConfiguration))
-> Maybe MachineConfiguration -> f (Maybe MachineConfiguration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TestResults "runConfiguration" RunConfiguration where
  fieldOf :: Proxy# "runConfiguration"
-> (RunConfiguration -> f RunConfiguration)
-> TestResults
-> f TestResults
fieldOf _
    = ((Maybe RunConfiguration -> f (Maybe RunConfiguration))
 -> TestResults -> f TestResults)
-> ((RunConfiguration -> f RunConfiguration)
    -> Maybe RunConfiguration -> f (Maybe RunConfiguration))
-> (RunConfiguration -> f RunConfiguration)
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Maybe RunConfiguration)
-> (TestResults -> Maybe RunConfiguration -> TestResults)
-> Lens
     TestResults
     TestResults
     (Maybe RunConfiguration)
     (Maybe RunConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Maybe RunConfiguration
_TestResults'runConfiguration
           (\ x__ :: TestResults
x__ y__ :: Maybe RunConfiguration
y__ -> TestResults
x__ {_TestResults'runConfiguration :: Maybe RunConfiguration
_TestResults'runConfiguration = Maybe RunConfiguration
y__}))
        (RunConfiguration -> Lens' (Maybe RunConfiguration) RunConfiguration
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens RunConfiguration
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TestResults "maybe'runConfiguration" (Prelude.Maybe RunConfiguration) where
  fieldOf :: Proxy# "maybe'runConfiguration"
-> (Maybe RunConfiguration -> f (Maybe RunConfiguration))
-> TestResults
-> f TestResults
fieldOf _
    = ((Maybe RunConfiguration -> f (Maybe RunConfiguration))
 -> TestResults -> f TestResults)
-> ((Maybe RunConfiguration -> f (Maybe RunConfiguration))
    -> Maybe RunConfiguration -> f (Maybe RunConfiguration))
-> (Maybe RunConfiguration -> f (Maybe RunConfiguration))
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Maybe RunConfiguration)
-> (TestResults -> Maybe RunConfiguration -> TestResults)
-> Lens
     TestResults
     TestResults
     (Maybe RunConfiguration)
     (Maybe RunConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Maybe RunConfiguration
_TestResults'runConfiguration
           (\ x__ :: TestResults
x__ y__ :: Maybe RunConfiguration
y__ -> TestResults
x__ {_TestResults'runConfiguration :: Maybe RunConfiguration
_TestResults'runConfiguration = Maybe RunConfiguration
y__}))
        (Maybe RunConfiguration -> f (Maybe RunConfiguration))
-> Maybe RunConfiguration -> f (Maybe RunConfiguration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TestResults "name" Data.Text.Text where
  fieldOf :: Proxy# "name" -> (Text -> f Text) -> TestResults -> f TestResults
fieldOf _
    = ((Text -> f Text) -> TestResults -> f TestResults)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Text)
-> (TestResults -> Text -> TestResults)
-> Lens TestResults TestResults Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Text
_TestResults'name (\ x__ :: TestResults
x__ y__ :: Text
y__ -> TestResults
x__ {_TestResults'name :: Text
_TestResults'name = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TestResults "benchmarkType" TestResults'BenchmarkType where
  fieldOf :: Proxy# "benchmarkType"
-> (TestResults'BenchmarkType -> f TestResults'BenchmarkType)
-> TestResults
-> f TestResults
fieldOf _
    = ((TestResults'BenchmarkType -> f TestResults'BenchmarkType)
 -> TestResults -> f TestResults)
-> ((TestResults'BenchmarkType -> f TestResults'BenchmarkType)
    -> TestResults'BenchmarkType -> f TestResults'BenchmarkType)
-> (TestResults'BenchmarkType -> f TestResults'BenchmarkType)
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> TestResults'BenchmarkType)
-> (TestResults -> TestResults'BenchmarkType -> TestResults)
-> Lens
     TestResults
     TestResults
     TestResults'BenchmarkType
     TestResults'BenchmarkType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> TestResults'BenchmarkType
_TestResults'benchmarkType
           (\ x__ :: TestResults
x__ y__ :: TestResults'BenchmarkType
y__ -> TestResults
x__ {_TestResults'benchmarkType :: TestResults'BenchmarkType
_TestResults'benchmarkType = TestResults'BenchmarkType
y__}))
        (TestResults'BenchmarkType -> f TestResults'BenchmarkType)
-> TestResults'BenchmarkType -> f TestResults'BenchmarkType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TestResults "runMode" Data.Text.Text where
  fieldOf :: Proxy# "runMode"
-> (Text -> f Text) -> TestResults -> f TestResults
fieldOf _
    = ((Text -> f Text) -> TestResults -> f TestResults)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Text)
-> (TestResults -> Text -> TestResults)
-> Lens TestResults TestResults Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Text
_TestResults'runMode
           (\ x__ :: TestResults
x__ y__ :: Text
y__ -> TestResults
x__ {_TestResults'runMode :: Text
_TestResults'runMode = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TestResults "tfVersion" Data.Text.Text where
  fieldOf :: Proxy# "tfVersion"
-> (Text -> f Text) -> TestResults -> f TestResults
fieldOf _
    = ((Text -> f Text) -> TestResults -> f TestResults)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TestResults
-> f TestResults
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TestResults -> Text)
-> (TestResults -> Text -> TestResults)
-> Lens TestResults TestResults Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TestResults -> Text
_TestResults'tfVersion
           (\ x__ :: TestResults
x__ y__ :: Text
y__ -> TestResults
x__ {_TestResults'tfVersion :: Text
_TestResults'tfVersion = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TestResults where
  messageName :: Proxy TestResults -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.TestResults"
  packedMessageDescriptor :: Proxy TestResults -> ByteString
packedMessageDescriptor _
    = "\n\
      \\vTestResults\DC2\SYN\n\
      \\ACKtarget\CAN\SOH \SOH(\tR\ACKtarget\DC26\n\
      \\aentries\CAN\STX \SOH(\v2\FS.tensorflow.BenchmarkEntriesR\aentries\DC2O\n\
      \\DC3build_configuration\CAN\ETX \SOH(\v2\RS.tensorflow.BuildConfigurationR\DC2buildConfiguration\DC21\n\
      \\tcommit_id\CAN\EOT \SOH(\v2\DC4.tensorflow.CommitIdR\bcommitId\DC2\GS\n\
      \\n\
      \start_time\CAN\ENQ \SOH(\ETXR\tstartTime\DC2\EM\n\
      \\brun_time\CAN\ACK \SOH(\SOHR\arunTime\DC2U\n\
      \\NAKmachine_configuration\CAN\a \SOH(\v2 .tensorflow.MachineConfigurationR\DC4machineConfiguration\DC2I\n\
      \\DC1run_configuration\CAN\b \SOH(\v2\FS.tensorflow.RunConfigurationR\DLErunConfiguration\DC2\DC2\n\
      \\EOTname\CAN\t \SOH(\tR\EOTname\DC2L\n\
      \\SObenchmark_type\CAN\n\
      \ \SOH(\SO2%.tensorflow.TestResults.BenchmarkTypeR\rbenchmarkType\DC2\EM\n\
      \\brun_mode\CAN\v \SOH(\tR\arunMode\DC2\GS\n\
      \\n\
      \tf_version\CAN\f \SOH(\tR\ttfVersion\"\136\SOH\n\
      \\rBenchmarkType\DC2\v\n\
      \\aUNKNOWN\DLE\NUL\DC2\SYN\n\
      \\DC2CPP_MICROBENCHMARK\DLE\SOH\DC2\DC4\n\
      \\DLEPYTHON_BENCHMARK\DLE\STX\DC2\NAK\n\
      \\DC1ANDROID_BENCHMARK\DLE\ETX\DC2\DC2\n\
      \\SOEDGE_BENCHMARK\DLE\EOT\DC2\DC1\n\
      \\rIOS_BENCHMARK\DLE\ENQ"
  packedFileDescriptor :: Proxy TestResults -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TestResults)
fieldsByTag
    = let
        target__field_descriptor :: FieldDescriptor TestResults
target__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor TestResults Text
-> FieldDescriptor TestResults
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "target"
              (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 TestResults TestResults Text Text
-> FieldAccessor TestResults 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 s a (f :: * -> *).
(HasField s "target" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"target")) ::
              Data.ProtoLens.FieldDescriptor TestResults
        entries__field_descriptor :: FieldDescriptor TestResults
entries__field_descriptor
          = String
-> FieldTypeDescriptor BenchmarkEntries
-> FieldAccessor TestResults BenchmarkEntries
-> FieldDescriptor TestResults
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "entries"
              (MessageOrGroup -> FieldTypeDescriptor BenchmarkEntries
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor BenchmarkEntries)
              (Lens
  TestResults
  TestResults
  (Maybe BenchmarkEntries)
  (Maybe BenchmarkEntries)
-> FieldAccessor TestResults BenchmarkEntries
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'entries" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'entries")) ::
              Data.ProtoLens.FieldDescriptor TestResults
        buildConfiguration__field_descriptor :: FieldDescriptor TestResults
buildConfiguration__field_descriptor
          = String
-> FieldTypeDescriptor BuildConfiguration
-> FieldAccessor TestResults BuildConfiguration
-> FieldDescriptor TestResults
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "build_configuration"
              (MessageOrGroup -> FieldTypeDescriptor BuildConfiguration
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor BuildConfiguration)
              (Lens
  TestResults
  TestResults
  (Maybe BuildConfiguration)
  (Maybe BuildConfiguration)
-> FieldAccessor TestResults BuildConfiguration
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'buildConfiguration" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'buildConfiguration")) ::
              Data.ProtoLens.FieldDescriptor TestResults
        commitId__field_descriptor :: FieldDescriptor TestResults
commitId__field_descriptor
          = String
-> FieldTypeDescriptor CommitId
-> FieldAccessor TestResults CommitId
-> FieldDescriptor TestResults
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "commit_id"
              (MessageOrGroup -> FieldTypeDescriptor CommitId
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor CommitId)
              (Lens TestResults TestResults (Maybe CommitId) (Maybe CommitId)
-> FieldAccessor TestResults CommitId
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'commitId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'commitId")) ::
              Data.ProtoLens.FieldDescriptor TestResults
        startTime__field_descriptor :: FieldDescriptor TestResults
startTime__field_descriptor
          = String
-> FieldTypeDescriptor Int64
-> FieldAccessor TestResults Int64
-> FieldDescriptor TestResults
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "start_time"
              (ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
              (WireDefault Int64
-> Lens TestResults TestResults Int64 Int64
-> FieldAccessor TestResults Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "startTime" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTime")) ::
              Data.ProtoLens.FieldDescriptor TestResults
        runTime__field_descriptor :: FieldDescriptor TestResults
runTime__field_descriptor
          = String
-> FieldTypeDescriptor Double
-> FieldAccessor TestResults Double
-> FieldDescriptor TestResults
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "run_time"
              (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 TestResults TestResults Double Double
-> FieldAccessor TestResults 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 s a (f :: * -> *).
(HasField s "runTime" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"runTime")) ::
              Data.ProtoLens.FieldDescriptor TestResults
        machineConfiguration__field_descriptor :: FieldDescriptor TestResults
machineConfiguration__field_descriptor
          = String
-> FieldTypeDescriptor MachineConfiguration
-> FieldAccessor TestResults MachineConfiguration
-> FieldDescriptor TestResults
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "machine_configuration"
              (MessageOrGroup -> FieldTypeDescriptor MachineConfiguration
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor MachineConfiguration)
              (Lens
  TestResults
  TestResults
  (Maybe MachineConfiguration)
  (Maybe MachineConfiguration)
-> FieldAccessor TestResults MachineConfiguration
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'machineConfiguration" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'machineConfiguration")) ::
              Data.ProtoLens.FieldDescriptor TestResults
        runConfiguration__field_descriptor :: FieldDescriptor TestResults
runConfiguration__field_descriptor
          = String
-> FieldTypeDescriptor RunConfiguration
-> FieldAccessor TestResults RunConfiguration
-> FieldDescriptor TestResults
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "run_configuration"
              (MessageOrGroup -> FieldTypeDescriptor RunConfiguration
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor RunConfiguration)
              (Lens
  TestResults
  TestResults
  (Maybe RunConfiguration)
  (Maybe RunConfiguration)
-> FieldAccessor TestResults RunConfiguration
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'runConfiguration" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'runConfiguration")) ::
              Data.ProtoLens.FieldDescriptor TestResults
        name__field_descriptor :: FieldDescriptor TestResults
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor TestResults Text
-> FieldDescriptor TestResults
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens TestResults TestResults Text Text
-> FieldAccessor TestResults 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 s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
              Data.ProtoLens.FieldDescriptor TestResults
        benchmarkType__field_descriptor :: FieldDescriptor TestResults
benchmarkType__field_descriptor
          = String
-> FieldTypeDescriptor TestResults'BenchmarkType
-> FieldAccessor TestResults TestResults'BenchmarkType
-> FieldDescriptor TestResults
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "benchmark_type"
              (ScalarField TestResults'BenchmarkType
-> FieldTypeDescriptor TestResults'BenchmarkType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField TestResults'BenchmarkType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
                 Data.ProtoLens.FieldTypeDescriptor TestResults'BenchmarkType)
              (WireDefault TestResults'BenchmarkType
-> Lens
     TestResults
     TestResults
     TestResults'BenchmarkType
     TestResults'BenchmarkType
-> FieldAccessor TestResults TestResults'BenchmarkType
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault TestResults'BenchmarkType
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
                 (forall s a (f :: * -> *).
(HasField s "benchmarkType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"benchmarkType")) ::
              Data.ProtoLens.FieldDescriptor TestResults
        runMode__field_descriptor :: FieldDescriptor TestResults
runMode__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor TestResults Text
-> FieldDescriptor TestResults
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "run_mode"
              (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 TestResults TestResults Text Text
-> FieldAccessor TestResults 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 s a (f :: * -> *).
(HasField s "runMode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"runMode")) ::
              Data.ProtoLens.FieldDescriptor TestResults
        tfVersion__field_descriptor :: FieldDescriptor TestResults
tfVersion__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor TestResults Text
-> FieldDescriptor TestResults
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "tf_version"
              (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 TestResults TestResults Text Text
-> FieldAccessor TestResults 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 s a (f :: * -> *).
(HasField s "tfVersion" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tfVersion")) ::
              Data.ProtoLens.FieldDescriptor TestResults
      in
        [(Tag, FieldDescriptor TestResults)]
-> Map Tag (FieldDescriptor TestResults)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor TestResults
target__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor TestResults
entries__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor TestResults
buildConfiguration__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor TestResults
commitId__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor TestResults
startTime__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor TestResults
runTime__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor TestResults
machineConfiguration__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor TestResults
runConfiguration__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor TestResults
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 10, FieldDescriptor TestResults
benchmarkType__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 11, FieldDescriptor TestResults
runMode__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 12, FieldDescriptor TestResults
tfVersion__field_descriptor)]
  unknownFields :: LensLike' f TestResults FieldSet
unknownFields
    = (TestResults -> FieldSet)
-> (TestResults -> FieldSet -> TestResults)
-> Lens' TestResults FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TestResults -> FieldSet
_TestResults'_unknownFields
        (\ x__ :: TestResults
x__ y__ :: FieldSet
y__ -> TestResults
x__ {_TestResults'_unknownFields :: FieldSet
_TestResults'_unknownFields = FieldSet
y__})
  defMessage :: TestResults
defMessage
    = $WTestResults'_constructor :: Text
-> Maybe BenchmarkEntries
-> Maybe BuildConfiguration
-> Maybe CommitId
-> Int64
-> Double
-> Maybe MachineConfiguration
-> Maybe RunConfiguration
-> Text
-> TestResults'BenchmarkType
-> Text
-> Text
-> FieldSet
-> TestResults
TestResults'_constructor
        {_TestResults'target :: Text
_TestResults'target = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TestResults'entries :: Maybe BenchmarkEntries
_TestResults'entries = Maybe BenchmarkEntries
forall a. Maybe a
Prelude.Nothing,
         _TestResults'buildConfiguration :: Maybe BuildConfiguration
_TestResults'buildConfiguration = Maybe BuildConfiguration
forall a. Maybe a
Prelude.Nothing,
         _TestResults'commitId :: Maybe CommitId
_TestResults'commitId = Maybe CommitId
forall a. Maybe a
Prelude.Nothing,
         _TestResults'startTime :: Int64
_TestResults'startTime = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TestResults'runTime :: Double
_TestResults'runTime = Double
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TestResults'machineConfiguration :: Maybe MachineConfiguration
_TestResults'machineConfiguration = Maybe MachineConfiguration
forall a. Maybe a
Prelude.Nothing,
         _TestResults'runConfiguration :: Maybe RunConfiguration
_TestResults'runConfiguration = Maybe RunConfiguration
forall a. Maybe a
Prelude.Nothing,
         _TestResults'name :: Text
_TestResults'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TestResults'benchmarkType :: TestResults'BenchmarkType
_TestResults'benchmarkType = TestResults'BenchmarkType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TestResults'runMode :: Text
_TestResults'runMode = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TestResults'tfVersion :: Text
_TestResults'tfVersion = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _TestResults'_unknownFields :: FieldSet
_TestResults'_unknownFields = []}
  parseMessage :: Parser TestResults
parseMessage
    = let
        loop ::
          TestResults -> Data.ProtoLens.Encoding.Bytes.Parser TestResults
        loop :: TestResults -> Parser TestResults
loop x :: TestResults
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      TestResults -> Parser TestResults
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter TestResults TestResults FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TestResults -> TestResults
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                           forall msg. Message msg => Lens' msg FieldSet
Setter TestResults TestResults FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TestResults
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "target"
                                TestResults -> Parser TestResults
loop (Setter TestResults TestResults Text Text
-> Text -> TestResults -> TestResults
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "target" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"target") Text
y TestResults
x)
                        18
                          -> do BenchmarkEntries
y <- Parser BenchmarkEntries -> String -> Parser BenchmarkEntries
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser BenchmarkEntries -> Parser BenchmarkEntries
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser BenchmarkEntries
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "entries"
                                TestResults -> Parser TestResults
loop (Setter TestResults TestResults BenchmarkEntries BenchmarkEntries
-> BenchmarkEntries -> TestResults -> TestResults
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "entries" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"entries") BenchmarkEntries
y TestResults
x)
                        26
                          -> do BuildConfiguration
y <- Parser BuildConfiguration -> String -> Parser BuildConfiguration
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser BuildConfiguration -> Parser BuildConfiguration
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser BuildConfiguration
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "build_configuration"
                                TestResults -> Parser TestResults
loop
                                  (Setter
  TestResults TestResults BuildConfiguration BuildConfiguration
-> BuildConfiguration -> TestResults -> TestResults
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "buildConfiguration" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"buildConfiguration") BuildConfiguration
y TestResults
x)
                        34
                          -> do CommitId
y <- Parser CommitId -> String -> Parser CommitId
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser CommitId -> Parser CommitId
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser CommitId
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "commit_id"
                                TestResults -> Parser TestResults
loop
                                  (Setter TestResults TestResults CommitId CommitId
-> CommitId -> TestResults -> TestResults
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "commitId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"commitId") CommitId
y TestResults
x)
                        40
                          -> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "start_time"
                                TestResults -> Parser TestResults
loop
                                  (Setter TestResults TestResults Int64 Int64
-> Int64 -> TestResults -> TestResults
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "startTime" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTime") Int64
y TestResults
x)
                        49
                          -> do Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
                                       "run_time"
                                TestResults -> Parser TestResults
loop (Setter TestResults TestResults Double Double
-> Double -> TestResults -> TestResults
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "runTime" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"runTime") Double
y TestResults
x)
                        58
                          -> do MachineConfiguration
y <- Parser MachineConfiguration
-> String -> Parser MachineConfiguration
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser MachineConfiguration -> Parser MachineConfiguration
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser MachineConfiguration
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "machine_configuration"
                                TestResults -> Parser TestResults
loop
                                  (Setter
  TestResults TestResults MachineConfiguration MachineConfiguration
-> MachineConfiguration -> TestResults -> TestResults
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "machineConfiguration" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"machineConfiguration") MachineConfiguration
y TestResults
x)
                        66
                          -> do RunConfiguration
y <- Parser RunConfiguration -> String -> Parser RunConfiguration
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser RunConfiguration -> Parser RunConfiguration
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
                                             (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser RunConfiguration
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "run_configuration"
                                TestResults -> Parser TestResults
loop
                                  (Setter TestResults TestResults RunConfiguration RunConfiguration
-> RunConfiguration -> TestResults -> TestResults
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "runConfiguration" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"runConfiguration") RunConfiguration
y TestResults
x)
                        74
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "name"
                                TestResults -> Parser TestResults
loop (Setter TestResults TestResults Text Text
-> Text -> TestResults -> TestResults
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y TestResults
x)
                        80
                          -> do TestResults'BenchmarkType
y <- Parser TestResults'BenchmarkType
-> String -> Parser TestResults'BenchmarkType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Int -> TestResults'BenchmarkType)
-> Parser Int -> Parser TestResults'BenchmarkType
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Int -> TestResults'BenchmarkType
forall a. Enum a => Int -> a
Prelude.toEnum
                                          ((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                             Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                             Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
                                       "benchmark_type"
                                TestResults -> Parser TestResults
loop
                                  (Setter
  TestResults
  TestResults
  TestResults'BenchmarkType
  TestResults'BenchmarkType
-> TestResults'BenchmarkType -> TestResults -> TestResults
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                     (forall s a (f :: * -> *).
(HasField s "benchmarkType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"benchmarkType") TestResults'BenchmarkType
y TestResults
x)
                        90
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "run_mode"
                                TestResults -> Parser TestResults
loop (Setter TestResults TestResults Text Text
-> Text -> TestResults -> TestResults
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "runMode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"runMode") Text
y TestResults
x)
                        98
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "tf_version"
                                TestResults -> Parser TestResults
loop
                                  (Setter TestResults TestResults Text Text
-> Text -> TestResults -> TestResults
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "tfVersion" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tfVersion") Text
y TestResults
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                TestResults -> Parser TestResults
loop
                                  (Setter TestResults TestResults FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TestResults -> TestResults
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                     forall msg. Message msg => Lens' msg FieldSet
Setter TestResults TestResults FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TestResults
x)
      in
        Parser TestResults -> String -> Parser TestResults
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do TestResults -> Parser TestResults
loop TestResults
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "TestResults"
  buildMessage :: TestResults -> Builder
buildMessage
    = \ _x :: TestResults
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let
                _v :: Text
_v = FoldLike Text TestResults TestResults Text Text
-> TestResults -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "target" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"target") TestResults
_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 10)
                      ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         (\ bs :: ByteString
bs
                            -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                 (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                    (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                 (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                         Text -> ByteString
Data.Text.Encoding.encodeUtf8
                         Text
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (case
                     FoldLike
  (Maybe BenchmarkEntries)
  TestResults
  TestResults
  (Maybe BenchmarkEntries)
  (Maybe BenchmarkEntries)
-> TestResults -> Maybe BenchmarkEntries
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'entries" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'entries") TestResults
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: BenchmarkEntries
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (BenchmarkEntries -> ByteString) -> BenchmarkEntries -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                             (\ bs :: ByteString
bs
                                -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                        (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                     (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                             BenchmarkEntries -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             BenchmarkEntries
_v))
                (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                   (case
                        FoldLike
  (Maybe BuildConfiguration)
  TestResults
  TestResults
  (Maybe BuildConfiguration)
  (Maybe BuildConfiguration)
-> TestResults -> Maybe BuildConfiguration
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                          (forall s a (f :: * -> *).
(HasField s "maybe'buildConfiguration" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'buildConfiguration") TestResults
_x
                    of
                      Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                      (Prelude.Just _v :: BuildConfiguration
_v)
                        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                             (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
                             ((ByteString -> Builder)
-> (BuildConfiguration -> ByteString)
-> BuildConfiguration
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                (\ bs :: ByteString
bs
                                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                           (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                        (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                BuildConfiguration -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                BuildConfiguration
_v))
                   (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (case
                           FoldLike
  (Maybe CommitId)
  TestResults
  TestResults
  (Maybe CommitId)
  (Maybe CommitId)
-> TestResults -> Maybe CommitId
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'commitId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'commitId") TestResults
_x
                       of
                         Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                         (Prelude.Just _v :: CommitId
_v)
                           -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
                                ((ByteString -> Builder)
-> (CommitId -> ByteString) -> CommitId -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                   (\ bs :: ByteString
bs
                                      -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                              (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                           (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                   CommitId -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                   CommitId
_v))
                      (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (let
                            _v :: Int64
_v = FoldLike Int64 TestResults TestResults Int64 Int64
-> TestResults -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "startTime" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"startTime") TestResults
_x
                          in
                            if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
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 40)
                                  ((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                     Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                     Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                     Int64
_v))
                         (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                            (let
                               _v :: Double
_v = FoldLike Double TestResults TestResults Double Double
-> TestResults -> Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "runTime" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"runTime") TestResults
_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 49)
                                     ((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                        Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
                                        Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord
                                        Double
_v))
                            (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                               (case
                                    FoldLike
  (Maybe MachineConfiguration)
  TestResults
  TestResults
  (Maybe MachineConfiguration)
  (Maybe MachineConfiguration)
-> TestResults -> Maybe MachineConfiguration
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                      (forall s a (f :: * -> *).
(HasField s "maybe'machineConfiguration" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'machineConfiguration") TestResults
_x
                                of
                                  Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                  (Prelude.Just _v :: MachineConfiguration
_v)
                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
                                         ((ByteString -> Builder)
-> (MachineConfiguration -> ByteString)
-> MachineConfiguration
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                            (\ bs :: ByteString
bs
                                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                          (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                            MachineConfiguration -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                            MachineConfiguration
_v))
                               (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                  (case
                                       FoldLike
  (Maybe RunConfiguration)
  TestResults
  TestResults
  (Maybe RunConfiguration)
  (Maybe RunConfiguration)
-> TestResults -> Maybe RunConfiguration
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                         (forall s a (f :: * -> *).
(HasField s "maybe'runConfiguration" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'runConfiguration") TestResults
_x
                                   of
                                     Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                                     (Prelude.Just _v :: RunConfiguration
_v)
                                       -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                            (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 66)
                                            ((ByteString -> Builder)
-> (RunConfiguration -> ByteString) -> RunConfiguration -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                               (\ bs :: ByteString
bs
                                                  -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                       (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                          (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                             (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                       (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                                               RunConfiguration -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                               RunConfiguration
_v))
                                  (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                     (let
                                        _v :: Text
_v
                                          = FoldLike Text TestResults TestResults Text Text
-> TestResults -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                              (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") TestResults
_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 74)
                                              ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                 (\ bs :: ByteString
bs
                                                    -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                            (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                               (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                         (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                            ByteString
bs))
                                                 Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                                 Text
_v))
                                     (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                        (let
                                           _v :: TestResults'BenchmarkType
_v
                                             = FoldLike
  TestResults'BenchmarkType
  TestResults
  TestResults
  TestResults'BenchmarkType
  TestResults'BenchmarkType
-> TestResults -> TestResults'BenchmarkType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                 (forall s a (f :: * -> *).
(HasField s "benchmarkType" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"benchmarkType") TestResults
_x
                                         in
                                           if TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) TestResults'BenchmarkType
_v TestResults'BenchmarkType
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 80)
                                                 ((Int -> Builder)
-> (TestResults'BenchmarkType -> Int)
-> TestResults'BenchmarkType
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                    ((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                       Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                       Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
                                                    TestResults'BenchmarkType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
                                                    TestResults'BenchmarkType
_v))
                                        (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                           (let
                                              _v :: Text
_v
                                                = FoldLike Text TestResults TestResults Text Text
-> TestResults -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                    (forall s a (f :: * -> *).
(HasField s "runMode" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"runMode") TestResults
_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 90)
                                                    ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                       (\ bs :: ByteString
bs
                                                          -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                               (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                  (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                     (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                                               (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                  ByteString
bs))
                                                       Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                                       Text
_v))
                                           (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                              (let
                                                 _v :: Text
_v
                                                   = FoldLike Text TestResults TestResults Text Text
-> TestResults -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                       (forall s a (f :: * -> *).
(HasField s "tfVersion" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tfVersion") TestResults
_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 98)
                                                       ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                                                          (\ bs :: ByteString
bs
                                                             -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                                                  (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                                                     (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                                                        (ByteString -> Int
Data.ByteString.length
                                                                           ByteString
bs)))
                                                                  (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes
                                                                     ByteString
bs))
                                                          Text -> ByteString
Data.Text.Encoding.encodeUtf8
                                                          Text
_v))
                                              (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                                                 (FoldLike FieldSet TestResults TestResults FieldSet FieldSet
-> TestResults -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
                                                    FoldLike FieldSet TestResults TestResults FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TestResults
_x)))))))))))))
instance Control.DeepSeq.NFData TestResults where
  rnf :: TestResults -> ()
rnf
    = \ x__ :: TestResults
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TestResults -> FieldSet
_TestResults'_unknownFields TestResults
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (TestResults -> Text
_TestResults'target TestResults
x__)
                (Maybe BenchmarkEntries -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (TestResults -> Maybe BenchmarkEntries
_TestResults'entries TestResults
x__)
                   (Maybe BuildConfiguration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                      (TestResults -> Maybe BuildConfiguration
_TestResults'buildConfiguration TestResults
x__)
                      (Maybe CommitId -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                         (TestResults -> Maybe CommitId
_TestResults'commitId TestResults
x__)
                         (Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                            (TestResults -> Int64
_TestResults'startTime TestResults
x__)
                            (Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                               (TestResults -> Double
_TestResults'runTime TestResults
x__)
                               (Maybe MachineConfiguration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                  (TestResults -> Maybe MachineConfiguration
_TestResults'machineConfiguration TestResults
x__)
                                  (Maybe RunConfiguration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                     (TestResults -> Maybe RunConfiguration
_TestResults'runConfiguration TestResults
x__)
                                     (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                        (TestResults -> Text
_TestResults'name TestResults
x__)
                                        (TestResults'BenchmarkType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                           (TestResults -> TestResults'BenchmarkType
_TestResults'benchmarkType TestResults
x__)
                                           (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                              (TestResults -> Text
_TestResults'runMode TestResults
x__)
                                              (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                                                 (TestResults -> Text
_TestResults'tfVersion TestResults
x__) ()))))))))))))
newtype TestResults'BenchmarkType'UnrecognizedValue
  = TestResults'BenchmarkType'UnrecognizedValue Data.Int.Int32
  deriving stock (TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Bool
(TestResults'BenchmarkType'UnrecognizedValue
 -> TestResults'BenchmarkType'UnrecognizedValue -> Bool)
-> (TestResults'BenchmarkType'UnrecognizedValue
    -> TestResults'BenchmarkType'UnrecognizedValue -> Bool)
-> Eq TestResults'BenchmarkType'UnrecognizedValue
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Bool
$c/= :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Bool
== :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Bool
$c== :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Bool
Prelude.Eq, Eq TestResults'BenchmarkType'UnrecognizedValue
Eq TestResults'BenchmarkType'UnrecognizedValue =>
(TestResults'BenchmarkType'UnrecognizedValue
 -> TestResults'BenchmarkType'UnrecognizedValue -> Ordering)
-> (TestResults'BenchmarkType'UnrecognizedValue
    -> TestResults'BenchmarkType'UnrecognizedValue -> Bool)
-> (TestResults'BenchmarkType'UnrecognizedValue
    -> TestResults'BenchmarkType'UnrecognizedValue -> Bool)
-> (TestResults'BenchmarkType'UnrecognizedValue
    -> TestResults'BenchmarkType'UnrecognizedValue -> Bool)
-> (TestResults'BenchmarkType'UnrecognizedValue
    -> TestResults'BenchmarkType'UnrecognizedValue -> Bool)
-> (TestResults'BenchmarkType'UnrecognizedValue
    -> TestResults'BenchmarkType'UnrecognizedValue
    -> TestResults'BenchmarkType'UnrecognizedValue)
-> (TestResults'BenchmarkType'UnrecognizedValue
    -> TestResults'BenchmarkType'UnrecognizedValue
    -> TestResults'BenchmarkType'UnrecognizedValue)
-> Ord TestResults'BenchmarkType'UnrecognizedValue
TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Bool
TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Ordering
TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue
$cmin :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue
max :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue
$cmax :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue
>= :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Bool
$c>= :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Bool
> :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Bool
$c> :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Bool
<= :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Bool
$c<= :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Bool
< :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Bool
$c< :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Bool
compare :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Ordering
$ccompare :: TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType'UnrecognizedValue -> Ordering
$cp1Ord :: Eq TestResults'BenchmarkType'UnrecognizedValue
Prelude.Ord, Int -> TestResults'BenchmarkType'UnrecognizedValue -> ShowS
[TestResults'BenchmarkType'UnrecognizedValue] -> ShowS
TestResults'BenchmarkType'UnrecognizedValue -> String
(Int -> TestResults'BenchmarkType'UnrecognizedValue -> ShowS)
-> (TestResults'BenchmarkType'UnrecognizedValue -> String)
-> ([TestResults'BenchmarkType'UnrecognizedValue] -> ShowS)
-> Show TestResults'BenchmarkType'UnrecognizedValue
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TestResults'BenchmarkType'UnrecognizedValue] -> ShowS
$cshowList :: [TestResults'BenchmarkType'UnrecognizedValue] -> ShowS
show :: TestResults'BenchmarkType'UnrecognizedValue -> String
$cshow :: TestResults'BenchmarkType'UnrecognizedValue -> String
showsPrec :: Int -> TestResults'BenchmarkType'UnrecognizedValue -> ShowS
$cshowsPrec :: Int -> TestResults'BenchmarkType'UnrecognizedValue -> ShowS
Prelude.Show)
data TestResults'BenchmarkType
  = TestResults'UNKNOWN |
    TestResults'CPP_MICROBENCHMARK |
    TestResults'PYTHON_BENCHMARK |
    TestResults'ANDROID_BENCHMARK |
    TestResults'EDGE_BENCHMARK |
    TestResults'IOS_BENCHMARK |
    TestResults'BenchmarkType'Unrecognized !TestResults'BenchmarkType'UnrecognizedValue
  deriving stock (Int -> TestResults'BenchmarkType -> ShowS
[TestResults'BenchmarkType] -> ShowS
TestResults'BenchmarkType -> String
(Int -> TestResults'BenchmarkType -> ShowS)
-> (TestResults'BenchmarkType -> String)
-> ([TestResults'BenchmarkType] -> ShowS)
-> Show TestResults'BenchmarkType
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TestResults'BenchmarkType] -> ShowS
$cshowList :: [TestResults'BenchmarkType] -> ShowS
show :: TestResults'BenchmarkType -> String
$cshow :: TestResults'BenchmarkType -> String
showsPrec :: Int -> TestResults'BenchmarkType -> ShowS
$cshowsPrec :: Int -> TestResults'BenchmarkType -> ShowS
Prelude.Show, TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool
(TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool)
-> (TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool)
-> Eq TestResults'BenchmarkType
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool
$c/= :: TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool
== :: TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool
$c== :: TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool
Prelude.Eq, Eq TestResults'BenchmarkType
Eq TestResults'BenchmarkType =>
(TestResults'BenchmarkType
 -> TestResults'BenchmarkType -> Ordering)
-> (TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool)
-> (TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool)
-> (TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool)
-> (TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool)
-> (TestResults'BenchmarkType
    -> TestResults'BenchmarkType -> TestResults'BenchmarkType)
-> (TestResults'BenchmarkType
    -> TestResults'BenchmarkType -> TestResults'BenchmarkType)
-> Ord TestResults'BenchmarkType
TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool
TestResults'BenchmarkType -> TestResults'BenchmarkType -> Ordering
TestResults'BenchmarkType
-> TestResults'BenchmarkType -> TestResults'BenchmarkType
forall a.
Eq a =>
(a -> a -> Ordering)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> Bool)
-> (a -> a -> a)
-> (a -> a -> a)
-> Ord a
min :: TestResults'BenchmarkType
-> TestResults'BenchmarkType -> TestResults'BenchmarkType
$cmin :: TestResults'BenchmarkType
-> TestResults'BenchmarkType -> TestResults'BenchmarkType
max :: TestResults'BenchmarkType
-> TestResults'BenchmarkType -> TestResults'BenchmarkType
$cmax :: TestResults'BenchmarkType
-> TestResults'BenchmarkType -> TestResults'BenchmarkType
>= :: TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool
$c>= :: TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool
> :: TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool
$c> :: TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool
<= :: TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool
$c<= :: TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool
< :: TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool
$c< :: TestResults'BenchmarkType -> TestResults'BenchmarkType -> Bool
compare :: TestResults'BenchmarkType -> TestResults'BenchmarkType -> Ordering
$ccompare :: TestResults'BenchmarkType -> TestResults'BenchmarkType -> Ordering
$cp1Ord :: Eq TestResults'BenchmarkType
Prelude.Ord)
instance Data.ProtoLens.MessageEnum TestResults'BenchmarkType where
  maybeToEnum :: Int -> Maybe TestResults'BenchmarkType
maybeToEnum 0 = TestResults'BenchmarkType -> Maybe TestResults'BenchmarkType
forall a. a -> Maybe a
Prelude.Just TestResults'BenchmarkType
TestResults'UNKNOWN
  maybeToEnum 1 = TestResults'BenchmarkType -> Maybe TestResults'BenchmarkType
forall a. a -> Maybe a
Prelude.Just TestResults'BenchmarkType
TestResults'CPP_MICROBENCHMARK
  maybeToEnum 2 = TestResults'BenchmarkType -> Maybe TestResults'BenchmarkType
forall a. a -> Maybe a
Prelude.Just TestResults'BenchmarkType
TestResults'PYTHON_BENCHMARK
  maybeToEnum 3 = TestResults'BenchmarkType -> Maybe TestResults'BenchmarkType
forall a. a -> Maybe a
Prelude.Just TestResults'BenchmarkType
TestResults'ANDROID_BENCHMARK
  maybeToEnum 4 = TestResults'BenchmarkType -> Maybe TestResults'BenchmarkType
forall a. a -> Maybe a
Prelude.Just TestResults'BenchmarkType
TestResults'EDGE_BENCHMARK
  maybeToEnum 5 = TestResults'BenchmarkType -> Maybe TestResults'BenchmarkType
forall a. a -> Maybe a
Prelude.Just TestResults'BenchmarkType
TestResults'IOS_BENCHMARK
  maybeToEnum k :: Int
k
    = TestResults'BenchmarkType -> Maybe TestResults'BenchmarkType
forall a. a -> Maybe a
Prelude.Just
        (TestResults'BenchmarkType'UnrecognizedValue
-> TestResults'BenchmarkType
TestResults'BenchmarkType'Unrecognized
           (Int32 -> TestResults'BenchmarkType'UnrecognizedValue
TestResults'BenchmarkType'UnrecognizedValue
              (Int -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int
k)))
  showEnum :: TestResults'BenchmarkType -> String
showEnum TestResults'UNKNOWN = "UNKNOWN"
  showEnum TestResults'CPP_MICROBENCHMARK = "CPP_MICROBENCHMARK"
  showEnum TestResults'PYTHON_BENCHMARK = "PYTHON_BENCHMARK"
  showEnum TestResults'ANDROID_BENCHMARK = "ANDROID_BENCHMARK"
  showEnum TestResults'EDGE_BENCHMARK = "EDGE_BENCHMARK"
  showEnum TestResults'IOS_BENCHMARK = "IOS_BENCHMARK"
  showEnum
    (TestResults'BenchmarkType'Unrecognized (TestResults'BenchmarkType'UnrecognizedValue k :: Int32
k))
    = Int32 -> String
forall a. Show a => a -> String
Prelude.show Int32
k
  readEnum :: String -> Maybe TestResults'BenchmarkType
readEnum k :: String
k
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "UNKNOWN" = TestResults'BenchmarkType -> Maybe TestResults'BenchmarkType
forall a. a -> Maybe a
Prelude.Just TestResults'BenchmarkType
TestResults'UNKNOWN
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "CPP_MICROBENCHMARK"
    = TestResults'BenchmarkType -> Maybe TestResults'BenchmarkType
forall a. a -> Maybe a
Prelude.Just TestResults'BenchmarkType
TestResults'CPP_MICROBENCHMARK
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "PYTHON_BENCHMARK"
    = TestResults'BenchmarkType -> Maybe TestResults'BenchmarkType
forall a. a -> Maybe a
Prelude.Just TestResults'BenchmarkType
TestResults'PYTHON_BENCHMARK
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "ANDROID_BENCHMARK"
    = TestResults'BenchmarkType -> Maybe TestResults'BenchmarkType
forall a. a -> Maybe a
Prelude.Just TestResults'BenchmarkType
TestResults'ANDROID_BENCHMARK
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "EDGE_BENCHMARK"
    = TestResults'BenchmarkType -> Maybe TestResults'BenchmarkType
forall a. a -> Maybe a
Prelude.Just TestResults'BenchmarkType
TestResults'EDGE_BENCHMARK
    | String -> String -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) String
k "IOS_BENCHMARK"
    = TestResults'BenchmarkType -> Maybe TestResults'BenchmarkType
forall a. a -> Maybe a
Prelude.Just TestResults'BenchmarkType
TestResults'IOS_BENCHMARK
    | Bool
Prelude.otherwise
    = Maybe Int
-> (Int -> Maybe TestResults'BenchmarkType)
-> Maybe TestResults'BenchmarkType
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
(Prelude.>>=) (String -> Maybe Int
forall a. Read a => String -> Maybe a
Text.Read.readMaybe String
k) Int -> Maybe TestResults'BenchmarkType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum
instance Prelude.Bounded TestResults'BenchmarkType where
  minBound :: TestResults'BenchmarkType
minBound = TestResults'BenchmarkType
TestResults'UNKNOWN
  maxBound :: TestResults'BenchmarkType
maxBound = TestResults'BenchmarkType
TestResults'IOS_BENCHMARK
instance Prelude.Enum TestResults'BenchmarkType where
  toEnum :: Int -> TestResults'BenchmarkType
toEnum k__ :: Int
k__
    = TestResults'BenchmarkType
-> (TestResults'BenchmarkType -> TestResults'BenchmarkType)
-> Maybe TestResults'BenchmarkType
-> TestResults'BenchmarkType
forall b a. b -> (a -> b) -> Maybe a -> b
Prelude.maybe
        (String -> TestResults'BenchmarkType
forall a. HasCallStack => String -> a
Prelude.error
           (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
              "toEnum: unknown value for enum BenchmarkType: "
              (Int -> String
forall a. Show a => a -> String
Prelude.show Int
k__)))
        TestResults'BenchmarkType -> TestResults'BenchmarkType
forall a. a -> a
Prelude.id
        (Int -> Maybe TestResults'BenchmarkType
forall a. MessageEnum a => Int -> Maybe a
Data.ProtoLens.maybeToEnum Int
k__)
  fromEnum :: TestResults'BenchmarkType -> Int
fromEnum TestResults'UNKNOWN = 0
  fromEnum TestResults'CPP_MICROBENCHMARK = 1
  fromEnum TestResults'PYTHON_BENCHMARK = 2
  fromEnum TestResults'ANDROID_BENCHMARK = 3
  fromEnum TestResults'EDGE_BENCHMARK = 4
  fromEnum TestResults'IOS_BENCHMARK = 5
  fromEnum
    (TestResults'BenchmarkType'Unrecognized (TestResults'BenchmarkType'UnrecognizedValue k :: Int32
k))
    = Int32 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
k
  succ :: TestResults'BenchmarkType -> TestResults'BenchmarkType
succ TestResults'IOS_BENCHMARK
    = String -> TestResults'BenchmarkType
forall a. HasCallStack => String -> a
Prelude.error
        "TestResults'BenchmarkType.succ: bad argument TestResults'IOS_BENCHMARK. This value would be out of bounds."
  succ TestResults'UNKNOWN = TestResults'BenchmarkType
TestResults'CPP_MICROBENCHMARK
  succ TestResults'CPP_MICROBENCHMARK = TestResults'BenchmarkType
TestResults'PYTHON_BENCHMARK
  succ TestResults'PYTHON_BENCHMARK = TestResults'BenchmarkType
TestResults'ANDROID_BENCHMARK
  succ TestResults'ANDROID_BENCHMARK = TestResults'BenchmarkType
TestResults'EDGE_BENCHMARK
  succ TestResults'EDGE_BENCHMARK = TestResults'BenchmarkType
TestResults'IOS_BENCHMARK
  succ (TestResults'BenchmarkType'Unrecognized _)
    = String -> TestResults'BenchmarkType
forall a. HasCallStack => String -> a
Prelude.error
        "TestResults'BenchmarkType.succ: bad argument: unrecognized value"
  pred :: TestResults'BenchmarkType -> TestResults'BenchmarkType
pred TestResults'UNKNOWN
    = String -> TestResults'BenchmarkType
forall a. HasCallStack => String -> a
Prelude.error
        "TestResults'BenchmarkType.pred: bad argument TestResults'UNKNOWN. This value would be out of bounds."
  pred TestResults'CPP_MICROBENCHMARK = TestResults'BenchmarkType
TestResults'UNKNOWN
  pred TestResults'PYTHON_BENCHMARK = TestResults'BenchmarkType
TestResults'CPP_MICROBENCHMARK
  pred TestResults'ANDROID_BENCHMARK = TestResults'BenchmarkType
TestResults'PYTHON_BENCHMARK
  pred TestResults'EDGE_BENCHMARK = TestResults'BenchmarkType
TestResults'ANDROID_BENCHMARK
  pred TestResults'IOS_BENCHMARK = TestResults'BenchmarkType
TestResults'EDGE_BENCHMARK
  pred (TestResults'BenchmarkType'Unrecognized _)
    = String -> TestResults'BenchmarkType
forall a. HasCallStack => String -> a
Prelude.error
        "TestResults'BenchmarkType.pred: bad argument: unrecognized value"
  enumFrom :: TestResults'BenchmarkType -> [TestResults'BenchmarkType]
enumFrom = TestResults'BenchmarkType -> [TestResults'BenchmarkType]
forall a. (Enum a, Bounded a) => a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFrom
  enumFromTo :: TestResults'BenchmarkType
-> TestResults'BenchmarkType -> [TestResults'BenchmarkType]
enumFromTo = TestResults'BenchmarkType
-> TestResults'BenchmarkType -> [TestResults'BenchmarkType]
forall a. Enum a => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromTo
  enumFromThen :: TestResults'BenchmarkType
-> TestResults'BenchmarkType -> [TestResults'BenchmarkType]
enumFromThen = TestResults'BenchmarkType
-> TestResults'BenchmarkType -> [TestResults'BenchmarkType]
forall a. (Enum a, Bounded a) => a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThen
  enumFromThenTo :: TestResults'BenchmarkType
-> TestResults'BenchmarkType
-> TestResults'BenchmarkType
-> [TestResults'BenchmarkType]
enumFromThenTo = TestResults'BenchmarkType
-> TestResults'BenchmarkType
-> TestResults'BenchmarkType
-> [TestResults'BenchmarkType]
forall a. Enum a => a -> a -> a -> [a]
Data.ProtoLens.Message.Enum.messageEnumFromThenTo
instance Data.ProtoLens.FieldDefault TestResults'BenchmarkType where
  fieldDefault :: TestResults'BenchmarkType
fieldDefault = TestResults'BenchmarkType
TestResults'UNKNOWN
instance Control.DeepSeq.NFData TestResults'BenchmarkType where
  rnf :: TestResults'BenchmarkType -> ()
rnf x__ :: TestResults'BenchmarkType
x__ = TestResults'BenchmarkType -> () -> ()
forall a b. a -> b -> b
Prelude.seq TestResults'BenchmarkType
x__ ()
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = "\n\
    \#tensorflow/core/util/test_log.proto\DC2\n\
    \tensorflow\SUB\EMgoogle/protobuf/any.proto\SUB\RSgoogle/protobuf/wrappers.proto\"^\n\
    \\n\
    \EntryValue\DC2#\n\
    \\fdouble_value\CAN\SOH \SOH(\SOHH\NULR\vdoubleValue\DC2#\n\
    \\fstring_value\CAN\STX \SOH(\tH\NULR\vstringValueB\ACK\n\
    \\EOTkind\"\173\SOH\n\
    \\vMetricEntry\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\DC4\n\
    \\ENQvalue\CAN\STX \SOH(\SOHR\ENQvalue\DC29\n\
    \\tmin_value\CAN\ETX \SOH(\v2\FS.google.protobuf.DoubleValueR\bminValue\DC29\n\
    \\tmax_value\CAN\EOT \SOH(\v2\FS.google.protobuf.DoubleValueR\bmaxValue\"\216\STX\n\
    \\SOBenchmarkEntry\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\DC4\n\
    \\ENQiters\CAN\STX \SOH(\ETXR\ENQiters\DC2\EM\n\
    \\bcpu_time\CAN\ETX \SOH(\SOHR\acpuTime\DC2\ESC\n\
    \\twall_time\CAN\EOT \SOH(\SOHR\bwallTime\DC2\RS\n\
    \\n\
    \throughput\CAN\ENQ \SOH(\SOHR\n\
    \throughput\DC2>\n\
    \\ACKextras\CAN\ACK \ETX(\v2&.tensorflow.BenchmarkEntry.ExtrasEntryR\ACKextras\DC21\n\
    \\ametrics\CAN\a \ETX(\v2\ETB.tensorflow.MetricEntryR\ametrics\SUBQ\n\
    \\vExtrasEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2,\n\
    \\ENQvalue\CAN\STX \SOH(\v2\SYN.tensorflow.EntryValueR\ENQvalue:\STX8\SOH\"D\n\
    \\DLEBenchmarkEntries\DC20\n\
    \\ENQentry\CAN\SOH \ETX(\v2\SUB.tensorflow.BenchmarkEntryR\ENQentry\"W\n\
    \\DC2BuildConfiguration\DC2\DC2\n\
    \\EOTmode\CAN\SOH \SOH(\tR\EOTmode\DC2\EM\n\
    \\bcc_flags\CAN\STX \ETX(\tR\accFlags\DC2\DC2\n\
    \\EOTopts\CAN\ETX \ETX(\tR\EOTopts\"\149\SOH\n\
    \\bCommitId\DC2 \n\
    \\n\
    \changelist\CAN\SOH \SOH(\ETXH\NULR\n\
    \changelist\DC2\DC4\n\
    \\EOThash\CAN\STX \SOH(\tH\NULR\EOThash\DC2\SUB\n\
    \\bsnapshot\CAN\ETX \SOH(\tR\bsnapshot\DC2-\n\
    \\DC2pending_changelist\CAN\EOT \SOH(\ETXR\DC1pendingChangelistB\ACK\n\
    \\EOTkind\"\177\STX\n\
    \\aCPUInfo\DC2\ESC\n\
    \\tnum_cores\CAN\SOH \SOH(\ETXR\bnumCores\DC2*\n\
    \\DC1num_cores_allowed\CAN\STX \SOH(\ETXR\SInumCoresAllowed\DC2\RS\n\
    \\vmhz_per_cpu\CAN\ETX \SOH(\SOHR\tmhzPerCpu\DC2\EM\n\
    \\bcpu_info\CAN\EOT \SOH(\tR\acpuInfo\DC2!\n\
    \\fcpu_governor\CAN\ENQ \SOH(\tR\vcpuGovernor\DC2A\n\
    \\n\
    \cache_size\CAN\ACK \ETX(\v2\".tensorflow.CPUInfo.CacheSizeEntryR\tcacheSize\SUB<\n\
    \\SOCacheSizeEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
    \\ENQvalue\CAN\STX \SOH(\ETXR\ENQvalue:\STX8\SOH\"@\n\
    \\n\
    \MemoryInfo\DC2\DC4\n\
    \\ENQtotal\CAN\SOH \SOH(\ETXR\ENQtotal\DC2\FS\n\
    \\tavailable\CAN\STX \SOH(\ETXR\tavailable\"J\n\
    \\aGPUInfo\DC2\DC4\n\
    \\ENQmodel\CAN\SOH \SOH(\tR\ENQmodel\DC2\DC2\n\
    \\EOTuuid\CAN\STX \SOH(\tR\EOTuuid\DC2\NAK\n\
    \\ACKbus_id\CAN\ETX \SOH(\tR\ENQbusId\"\162\SOH\n\
    \\fPlatformInfo\DC2\DC2\n\
    \\EOTbits\CAN\SOH \SOH(\tR\EOTbits\DC2\CAN\n\
    \\alinkage\CAN\STX \SOH(\tR\alinkage\DC2\CAN\n\
    \\amachine\CAN\ETX \SOH(\tR\amachine\DC2\CAN\n\
    \\arelease\CAN\EOT \SOH(\tR\arelease\DC2\SYN\n\
    \\ACKsystem\CAN\ENQ \SOH(\tR\ACKsystem\DC2\CAN\n\
    \\aversion\CAN\ACK \SOH(\tR\aversion\"\147\SOH\n\
    \\DC3AvailableDeviceInfo\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\DC2\n\
    \\EOTtype\CAN\STX \SOH(\tR\EOTtype\DC2!\n\
    \\fmemory_limit\CAN\ETX \SOH(\ETXR\vmemoryLimit\DC21\n\
    \\DC4physical_description\CAN\EOT \SOH(\tR\DC3physicalDescription\"\147\ETX\n\
    \\DC4MachineConfiguration\DC2\SUB\n\
    \\bhostname\CAN\SOH \SOH(\tR\bhostname\DC2+\n\
    \\DC1serial_identifier\CAN\a \SOH(\tR\DLEserialIdentifier\DC2=\n\
    \\rplatform_info\CAN\STX \SOH(\v2\CAN.tensorflow.PlatformInfoR\fplatformInfo\DC2.\n\
    \\bcpu_info\CAN\ETX \SOH(\v2\DC3.tensorflow.CPUInfoR\acpuInfo\DC25\n\
    \\vdevice_info\CAN\EOT \ETX(\v2\DC4.google.protobuf.AnyR\n\
    \deviceInfo\DC2S\n\
    \\NAKavailable_device_info\CAN\ENQ \ETX(\v2\US.tensorflow.AvailableDeviceInfoR\DC3availableDeviceInfo\DC27\n\
    \\vmemory_info\CAN\ACK \SOH(\v2\SYN.tensorflow.MemoryInfoR\n\
    \memoryInfo\"\176\SOH\n\
    \\DLERunConfiguration\DC2\SUB\n\
    \\bargument\CAN\SOH \ETX(\tR\bargument\DC2D\n\
    \\benv_vars\CAN\STX \ETX(\v2).tensorflow.RunConfiguration.EnvVarsEntryR\aenvVars\SUB:\n\
    \\fEnvVarsEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
    \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\"\228\ENQ\n\
    \\vTestResults\DC2\SYN\n\
    \\ACKtarget\CAN\SOH \SOH(\tR\ACKtarget\DC26\n\
    \\aentries\CAN\STX \SOH(\v2\FS.tensorflow.BenchmarkEntriesR\aentries\DC2O\n\
    \\DC3build_configuration\CAN\ETX \SOH(\v2\RS.tensorflow.BuildConfigurationR\DC2buildConfiguration\DC21\n\
    \\tcommit_id\CAN\EOT \SOH(\v2\DC4.tensorflow.CommitIdR\bcommitId\DC2\GS\n\
    \\n\
    \start_time\CAN\ENQ \SOH(\ETXR\tstartTime\DC2\EM\n\
    \\brun_time\CAN\ACK \SOH(\SOHR\arunTime\DC2U\n\
    \\NAKmachine_configuration\CAN\a \SOH(\v2 .tensorflow.MachineConfigurationR\DC4machineConfiguration\DC2I\n\
    \\DC1run_configuration\CAN\b \SOH(\v2\FS.tensorflow.RunConfigurationR\DLErunConfiguration\DC2\DC2\n\
    \\EOTname\CAN\t \SOH(\tR\EOTname\DC2L\n\
    \\SObenchmark_type\CAN\n\
    \ \SOH(\SO2%.tensorflow.TestResults.BenchmarkTypeR\rbenchmarkType\DC2\EM\n\
    \\brun_mode\CAN\v \SOH(\tR\arunMode\DC2\GS\n\
    \\n\
    \tf_version\CAN\f \SOH(\tR\ttfVersion\"\136\SOH\n\
    \\rBenchmarkType\DC2\v\n\
    \\aUNKNOWN\DLE\NUL\DC2\SYN\n\
    \\DC2CPP_MICROBENCHMARK\DLE\SOH\DC2\DC4\n\
    \\DLEPYTHON_BENCHMARK\DLE\STX\DC2\NAK\n\
    \\DC1ANDROID_BENCHMARK\DLE\ETX\DC2\DC2\n\
    \\SOEDGE_BENCHMARK\DLE\EOT\DC2\DC1\n\
    \\rIOS_BENCHMARK\DLE\ENQB1\n\
    \\ESCorg.tensorflow.util.testlogB\rTestLogProtosP\SOH\248\SOH\SOHJ\181A\n\
    \\a\DC2\ENQ\SOH\NUL\222\SOH\SOH\n\
    \V\n\
    \\SOH\f\DC2\ETX\SOH\NUL\DC2\SUBL Protocol messages for describing the results of benchmarks and unit tests.\n\
    \\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\ETX\NUL\DC3\n\
    \\t\n\
    \\STX\ETX\NUL\DC2\ETX\ENQ\NUL#\n\
    \\t\n\
    \\STX\ETX\SOH\DC2\ETX\ACK\NUL(\n\
    \\b\n\
    \\SOH\b\DC2\ETX\b\NUL\US\n\
    \\t\n\
    \\STX\b\US\DC2\ETX\b\NUL\US\n\
    \\b\n\
    \\SOH\b\DC2\ETX\t\NUL.\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\t\NUL.\n\
    \\b\n\
    \\SOH\b\DC2\ETX\n\
    \\NUL\"\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\n\
    \\NUL\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX\v\NUL4\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\v\NUL4\n\
    \\n\
    \\n\
    \\STX\EOT\NUL\DC2\EOT\r\NUL\DC2\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX\r\b\DC2\n\
    \\f\n\
    \\EOT\EOT\NUL\b\NUL\DC2\EOT\SO\STX\DC1\ETX\n\
    \\f\n\
    \\ENQ\EOT\NUL\b\NUL\SOH\DC2\ETX\SO\b\f\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX\SI\EOT\FS\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\SI\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\SI\v\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\SI\SUB\ESC\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETX\DLE\EOT\FS\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\DLE\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\DLE\v\ETB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\DLE\SUB\ESC\n\
    \\n\
    \\n\
    \\STX\EOT\SOH\DC2\EOT\DC4\NUL \SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX\DC4\b\DC3\n\
    \\SUB\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX\SYN\STX\DC2\SUB\r Metric name\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\SYN\STX\b\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\SYN\t\r\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\SYN\DLE\DC1\n\
    \\ESC\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETX\EM\STX\DC3\SUB\SO Metric value\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\EM\STX\b\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\EM\t\SO\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\EM\DC1\DC2\n\
    \G\n\
    \\EOT\EOT\SOH\STX\STX\DC2\ETX\FS\STX,\SUB: The minimum acceptable value for the metric if specified\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ACK\DC2\ETX\FS\STX\GS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\FS\RS'\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\FS*+\n\
    \G\n\
    \\EOT\EOT\SOH\STX\ETX\DC2\ETX\US\STX,\SUB: The maximum acceptable value for the metric if specified\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\ACK\DC2\ETX\US\STX\GS\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETX\US\RS'\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETX\US*+\n\
    \\187\STX\n\
    \\STX\EOT\STX\DC2\EOT)\NUL@\SOH\SUB\174\STX Each unit test or benchmark in a test or benchmark run provides\n\
    \ some set of information.  Here we provide some reasonable keys\n\
    \ one would expect to see, with optional key/value pairs for things\n\
    \ we haven't considered.\n\
    \\n\
    \ This BenchmarkEntry should be emitted by each unit test or benchmark\n\
    \ reporter.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETX)\b\SYN\n\
    \]\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETX,\STX\DC2\SUBP The name of the specific benchmark or test\n\
    \ (e.g. BM_AdjustContrast_gpu_B_W_H)\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX,\STX\b\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX,\t\r\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX,\DLE\DC1\n\
    \A\n\
    \\EOT\EOT\STX\STX\SOH\DC2\ETX/\STX\DC2\SUB4 If a benchmark, how many iterations it was run for\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX/\STX\a\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX/\b\r\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX/\DLE\DC1\n\
    \B\n\
    \\EOT\EOT\STX\STX\STX\DC2\ETX2\STX\SYN\SUB5 Total cpu time used for all iterations (in seconds)\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\ENQ\DC2\ETX2\STX\b\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\SOH\DC2\ETX2\t\DC1\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\STX\ETX\DC2\ETX2\DC4\NAK\n\
    \C\n\
    \\EOT\EOT\STX\STX\ETX\DC2\ETX5\STX\ETB\SUB6 Total wall time used for all iterations (in seconds)\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ETX\ENQ\DC2\ETX5\STX\b\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ETX\SOH\DC2\ETX5\t\DC2\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ETX\ETX\DC2\ETX5\NAK\SYN\n\
    \#\n\
    \\EOT\EOT\STX\STX\EOT\DC2\ETX8\STX\CAN\SUB\SYN Throughput (in MB/s)\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\EOT\ENQ\DC2\ETX8\STX\b\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\EOT\SOH\DC2\ETX8\t\DC3\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\EOT\ETX\DC2\ETX8\SYN\ETB\n\
    \4\n\
    \\EOT\EOT\STX\STX\ENQ\DC2\ETX;\STX%\SUB' Generic map from result key to value.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ENQ\ACK\DC2\ETX;\STX\EM\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ENQ\SOH\DC2\ETX;\SUB \n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ENQ\ETX\DC2\ETX;#$\n\
    \\154\SOH\n\
    \\EOT\EOT\STX\STX\ACK\DC2\ETX?\STX#\SUB\140\SOH Metric name, value and expected range. This can include accuracy metrics\n\
    \ typically used to determine whether the accuracy test has passed\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ACK\EOT\DC2\ETX?\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ACK\ACK\DC2\ETX?\v\SYN\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ACK\SOH\DC2\ETX?\ETB\RS\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\ACK\ETX\DC2\ETX?!\"\n\
    \\n\
    \\n\
    \\STX\EOT\ETX\DC2\EOTB\NULD\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ETX\SOH\DC2\ETXB\b\CAN\n\
    \\v\n\
    \\EOT\EOT\ETX\STX\NUL\DC2\ETXC\STX$\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\EOT\DC2\ETXC\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETXC\v\EM\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETXC\SUB\US\n\
    \\f\n\
    \\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETXC\"#\n\
    \\n\
    \\n\
    \\STX\EOT\EOT\DC2\EOTF\NULJ\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\EOT\SOH\DC2\ETXF\b\SUB\n\
    \\FS\n\
    \\EOT\EOT\EOT\STX\NUL\DC2\ETXG\STX\DC2\"\SI opt, dbg, etc\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETXG\STX\b\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETXG\t\r\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETXG\DLE\DC1\n\
    \*\n\
    \\EOT\EOT\EOT\STX\SOH\DC2\ETXH\STX\US\"\GS CC compiler flags, if known\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\EOT\DC2\ETXH\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\ETXH\v\DC1\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETXH\DC2\SUB\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETXH\GS\RS\n\
    \2\n\
    \\EOT\EOT\EOT\STX\STX\DC2\ETXI\STX\ESC\"% Bazel compilation options, if known\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\STX\EOT\DC2\ETXI\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\STX\ENQ\DC2\ETXI\v\DC1\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\STX\SOH\DC2\ETXI\DC2\SYN\n\
    \\f\n\
    \\ENQ\EOT\EOT\STX\STX\ETX\DC2\ETXI\EM\SUB\n\
    \\n\
    \\n\
    \\STX\EOT\ENQ\DC2\EOTL\NULW\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ENQ\SOH\DC2\ETXL\b\DLE\n\
    \\f\n\
    \\EOT\EOT\ENQ\b\NUL\DC2\EOTM\STXQ\ETX\n\
    \\f\n\
    \\ENQ\EOT\ENQ\b\NUL\SOH\DC2\ETXM\b\f\n\
    \$\n\
    \\EOT\EOT\ENQ\STX\NUL\DC2\ETXO\EOT\EM\SUB\ETB Submitted changelist.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETXO\EOT\t\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETXO\n\
    \\DC4\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETXO\ETB\CAN\n\
    \\v\n\
    \\EOT\EOT\ENQ\STX\SOH\DC2\ETXP\EOT\DC4\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ENQ\DC2\ETXP\EOT\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETXP\v\SI\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETXP\DC2\DC3\n\
    \\151\SOH\n\
    \\EOT\EOT\ENQ\STX\STX\DC2\ETXT\STX\SYN\SUB\137\SOH Hash of intermediate change between hash/changelist and what was tested.\n\
    \ Not used if the build is from a commit without modifications.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\STX\ENQ\DC2\ETXT\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETXT\t\DC1\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETXT\DC4\NAK\n\
    \M\n\
    \\EOT\EOT\ENQ\STX\ETX\DC2\ETXV\STX\US\SUB@ Changelist tested if the change list is not already submitted.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\ETX\ENQ\DC2\ETXV\STX\a\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\ETX\SOH\DC2\ETXV\b\SUB\n\
    \\f\n\
    \\ENQ\EOT\ENQ\STX\ETX\ETX\DC2\ETXV\GS\RS\n\
    \\n\
    \\n\
    \\STX\EOT\ACK\DC2\EOTY\NULk\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\ACK\SOH\DC2\ETXY\b\SI\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\NUL\DC2\ETXZ\STX\SYN\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETXZ\STX\a\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXZ\b\DC1\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXZ\DC4\NAK\n\
    \\v\n\
    \\EOT\EOT\ACK\STX\SOH\DC2\ETX\\\STX\RS\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETX\\\STX\a\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX\\\b\EM\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX\\\FS\GS\n\
    \'\n\
    \\EOT\EOT\ACK\STX\STX\DC2\ETX_\STX\EM\SUB\SUB How fast are these cpus?\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\ENQ\DC2\ETX_\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETX_\t\DC4\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETX_\ETB\CAN\n\
    \\131\SOH\n\
    \\EOT\EOT\ACK\STX\ETX\DC2\ETXc\STX\SYN\SUBv Additional cpu information. For example,\n\
    \ Intel Ivybridge with HyperThreading (24 cores) dL1:32KB dL2:256KB dL3:30MB\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ETX\ENQ\DC2\ETXc\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ETX\SOH\DC2\ETXc\t\DC1\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ETX\ETX\DC2\ETXc\DC4\NAK\n\
    \\133\SOH\n\
    \\EOT\EOT\ACK\STX\EOT\DC2\ETXg\STX\SUB\SUBx What kind of cpu scaling is enabled on the host.\n\
    \ Examples include \"performance\", \"ondemand\", \"conservative\", \"mixed\".\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\EOT\ENQ\DC2\ETXg\STX\b\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\EOT\SOH\DC2\ETXg\t\NAK\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\EOT\ETX\DC2\ETXg\CAN\EM\n\
    \D\n\
    \\EOT\EOT\ACK\STX\ENQ\DC2\ETXj\STX$\SUB7 Cache sizes (in bytes), e.g. \"L2\": 262144 (for 256KB)\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ENQ\ACK\DC2\ETXj\STX\DC4\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ENQ\SOH\DC2\ETXj\NAK\US\n\
    \\f\n\
    \\ENQ\EOT\ACK\STX\ENQ\ETX\DC2\ETXj\"#\n\
    \\n\
    \\n\
    \\STX\EOT\a\DC2\EOTm\NULp\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\a\SOH\DC2\ETXm\b\DC2\n\
    \,\n\
    \\EOT\EOT\a\STX\NUL\DC2\ETXn\STX\DC2\"\US Total virtual memory in bytes\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ENQ\DC2\ETXn\STX\a\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\SOH\DC2\ETXn\b\r\n\
    \\f\n\
    \\ENQ\EOT\a\STX\NUL\ETX\DC2\ETXn\DLE\DC1\n\
    \4\n\
    \\EOT\EOT\a\STX\SOH\DC2\ETXo\STX\SYN\"' Immediately available memory in bytes\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ENQ\DC2\ETXo\STX\a\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\SOH\DC2\ETXo\b\DC1\n\
    \\f\n\
    \\ENQ\EOT\a\STX\SOH\ETX\DC2\ETXo\DC4\NAK\n\
    \\n\
    \\n\
    \\STX\EOT\b\DC2\EOTr\NULv\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\b\SOH\DC2\ETXr\b\SI\n\
    \ \n\
    \\EOT\EOT\b\STX\NUL\DC2\ETXs\STX\DC3\"\DC3 e.g. \"Tesla K40c\"\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ENQ\DC2\ETXs\STX\b\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\SOH\DC2\ETXs\t\SO\n\
    \\f\n\
    \\ENQ\EOT\b\STX\NUL\ETX\DC2\ETXs\DC1\DC2\n\
    \7\n\
    \\EOT\EOT\b\STX\SOH\DC2\ETXt\STX\DC2\"* Final entry in output of \"nvidia-smi -L\"\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\ENQ\DC2\ETXt\STX\b\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\SOH\DC2\ETXt\t\r\n\
    \\f\n\
    \\ENQ\EOT\b\STX\SOH\ETX\DC2\ETXt\DLE\DC1\n\
    \\"\n\
    \\EOT\EOT\b\STX\STX\DC2\ETXu\STX\DC4\"\NAK e.g. \"0000:04:00.0\"\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\ENQ\DC2\ETXu\STX\b\n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\SOH\DC2\ETXu\t\SI\n\
    \\f\n\
    \\ENQ\EOT\b\STX\STX\ETX\DC2\ETXu\DC2\DC3\n\
    \\n\
    \\n\
    \\STX\EOT\t\DC2\EOTx\NUL\DEL\SOH\n\
    \\n\
    \\n\
    \\ETX\EOT\t\SOH\DC2\ETXx\b\DC4\n\
    \\ESC\n\
    \\EOT\EOT\t\STX\NUL\DC2\ETXy\STX\DC2\"\SO e.g. '64bit'\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\ENQ\DC2\ETXy\STX\b\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\SOH\DC2\ETXy\t\r\n\
    \\f\n\
    \\ENQ\EOT\t\STX\NUL\ETX\DC2\ETXy\DLE\DC1\n\
    \\EM\n\
    \\EOT\EOT\t\STX\SOH\DC2\ETXz\STX\NAK\"\f e.g. 'ELF'\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\t\STX\SOH\ENQ\DC2\ETXz\STX\b\n\
    \\f\n\
    \\ENQ\EOT\t\STX\SOH\SOH\DC2\ETXz\t\DLE\n\
    \\f\n\
    \\ENQ\EOT\t\STX\SOH\ETX\DC2\ETXz\DC3\DC4\n\
    \\SUB\n\
    \\EOT\EOT\t\STX\STX\DC2\ETX{\STX\NAK\"\r e.g. 'i386'\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\t\STX\STX\ENQ\DC2\ETX{\STX\b\n\
    \\f\n\
    \\ENQ\EOT\t\STX\STX\SOH\DC2\ETX{\t\DLE\n\
    \\f\n\
    \\ENQ\EOT\t\STX\STX\ETX\DC2\ETX{\DC3\DC4\n\
    \'\n\
    \\EOT\EOT\t\STX\ETX\DC2\ETX|\STX\NAK\"\SUB e.g. '3.13.0-76-generic'\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\t\STX\ETX\ENQ\DC2\ETX|\STX\b\n\
    \\f\n\
    \\ENQ\EOT\t\STX\ETX\SOH\DC2\ETX|\t\DLE\n\
    \\f\n\
    \\ENQ\EOT\t\STX\ETX\ETX\DC2\ETX|\DC3\DC4\n\
    \\ESC\n\
    \\EOT\EOT\t\STX\EOT\DC2\ETX}\STX\DC4\"\SO e.g. 'Linux'\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\t\STX\EOT\ENQ\DC2\ETX}\STX\b\n\
    \\f\n\
    \\ENQ\EOT\t\STX\EOT\SOH\DC2\ETX}\t\SI\n\
    \\f\n\
    \\ENQ\EOT\t\STX\EOT\ETX\DC2\ETX}\DC2\DC3\n\
    \B\n\
    \\EOT\EOT\t\STX\ENQ\DC2\ETX~\STX\NAK\"5 e.g. '#120-Ubuntu SMP Mon Jan 18 15:59:10 UTC 2016'\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\t\STX\ENQ\ENQ\DC2\ETX~\STX\b\n\
    \\f\n\
    \\ENQ\EOT\t\STX\ENQ\SOH\DC2\ETX~\t\DLE\n\
    \\f\n\
    \\ENQ\EOT\t\STX\ENQ\ETX\DC2\ETX~\DC3\DC4\n\
    \(\n\
    \\STX\EOT\n\
    \\DC2\ACK\129\SOH\NUL\134\SOH\SOH\"\SUB Matches DeviceAttributes\n\
    \\n\
    \\v\n\
    \\ETX\EOT\n\
    \\SOH\DC2\EOT\129\SOH\b\ESC\n\
    \\FS\n\
    \\EOT\EOT\n\
    \\STX\NUL\DC2\EOT\130\SOH\STX\DC2\"\SO Device name.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ENQ\DC2\EOT\130\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\NUL\SOH\DC2\EOT\130\SOH\t\r\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\NUL\ETX\DC2\EOT\130\SOH\DLE\DC1\n\
    \1\n\
    \\EOT\EOT\n\
    \\STX\SOH\DC2\EOT\131\SOH\STX\DC2\"# Device type, e.g. 'CPU' or 'GPU'.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\SOH\ENQ\DC2\EOT\131\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\SOH\SOH\DC2\EOT\131\SOH\t\r\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\SOH\ETX\DC2\EOT\131\SOH\DLE\DC1\n\
    \)\n\
    \\EOT\EOT\n\
    \\STX\STX\DC2\EOT\132\SOH\STX\EM\"\ESC Memory capacity in bytes.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\STX\ENQ\DC2\EOT\132\SOH\STX\a\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\STX\SOH\DC2\EOT\132\SOH\b\DC4\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\STX\ETX\DC2\EOT\132\SOH\ETB\CAN\n\
    \8\n\
    \\EOT\EOT\n\
    \\STX\ETX\DC2\EOT\133\SOH\STX\"\"* The physical description of this device.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\ETX\ENQ\DC2\EOT\133\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\ETX\SOH\DC2\EOT\133\SOH\t\GS\n\
    \\r\n\
    \\ENQ\EOT\n\
    \\STX\ETX\ETX\DC2\EOT\133\SOH !\n\
    \\f\n\
    \\STX\EOT\v\DC2\ACK\136\SOH\NUL\156\SOH\SOH\n\
    \\v\n\
    \\ETX\EOT\v\SOH\DC2\EOT\136\SOH\b\FS\n\
    \<\n\
    \\EOT\EOT\v\STX\NUL\DC2\EOT\138\SOH\STX\SYN\SUB. Host name of machine that ran the benchmark.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\v\STX\NUL\ENQ\DC2\EOT\138\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\v\STX\NUL\SOH\DC2\EOT\138\SOH\t\DC1\n\
    \\r\n\
    \\ENQ\EOT\v\STX\NUL\ETX\DC2\EOT\138\SOH\DC4\NAK\n\
    \4\n\
    \\EOT\EOT\v\STX\SOH\DC2\EOT\141\SOH\STX\US\SUB& Unique serial number of the machine.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\v\STX\SOH\ENQ\DC2\EOT\141\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\v\STX\SOH\SOH\DC2\EOT\141\SOH\t\SUB\n\
    \\r\n\
    \\ENQ\EOT\v\STX\SOH\ETX\DC2\EOT\141\SOH\GS\RS\n\
    \0\n\
    \\EOT\EOT\v\STX\STX\DC2\EOT\144\SOH\STX!\SUB\" Additional platform information.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\v\STX\STX\ACK\DC2\EOT\144\SOH\STX\SO\n\
    \\r\n\
    \\ENQ\EOT\v\STX\STX\SOH\DC2\EOT\144\SOH\SI\FS\n\
    \\r\n\
    \\ENQ\EOT\v\STX\STX\ETX\DC2\EOT\144\SOH\US \n\
    \ \n\
    \\EOT\EOT\v\STX\ETX\DC2\EOT\147\SOH\STX\ETB\SUB\DC2 CPU Information.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\v\STX\ETX\ACK\DC2\EOT\147\SOH\STX\t\n\
    \\r\n\
    \\ENQ\EOT\v\STX\ETX\SOH\DC2\EOT\147\SOH\n\
    \\DC2\n\
    \\r\n\
    \\ENQ\EOT\v\STX\ETX\ETX\DC2\EOT\147\SOH\NAK\SYN\n\
    \L\n\
    \\EOT\EOT\v\STX\EOT\DC2\EOT\150\SOH\STX/\SUB> Other devices that are attached and relevant (e.g. GPUInfo).\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\v\STX\EOT\EOT\DC2\EOT\150\SOH\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\v\STX\EOT\ACK\DC2\EOT\150\SOH\v\RS\n\
    \\r\n\
    \\ENQ\EOT\v\STX\EOT\SOH\DC2\EOT\150\SOH\US*\n\
    \\r\n\
    \\ENQ\EOT\v\STX\EOT\ETX\DC2\EOT\150\SOH-.\n\
    \U\n\
    \\EOT\EOT\v\STX\ENQ\DC2\EOT\153\SOH\STX9\SUBG Devices accessible to the test (e.g. as given by list_local_devices).\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\v\STX\ENQ\EOT\DC2\EOT\153\SOH\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\v\STX\ENQ\ACK\DC2\EOT\153\SOH\v\RS\n\
    \\r\n\
    \\ENQ\EOT\v\STX\ENQ\SOH\DC2\EOT\153\SOH\US4\n\
    \\r\n\
    \\ENQ\EOT\v\STX\ENQ\ETX\DC2\EOT\153\SOH78\n\
    \\f\n\
    \\EOT\EOT\v\STX\ACK\DC2\EOT\155\SOH\STX\GS\n\
    \\r\n\
    \\ENQ\EOT\v\STX\ACK\ACK\DC2\EOT\155\SOH\STX\f\n\
    \\r\n\
    \\ENQ\EOT\v\STX\ACK\SOH\DC2\EOT\155\SOH\r\CAN\n\
    \\r\n\
    \\ENQ\EOT\v\STX\ACK\ETX\DC2\EOT\155\SOH\ESC\FS\n\
    \M\n\
    \\STX\EOT\f\DC2\ACK\159\SOH\NUL\163\SOH\SOH\SUB? Run-specific items such as arguments to the test / benchmark.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\f\SOH\DC2\EOT\159\SOH\b\CAN\n\
    \\f\n\
    \\EOT\EOT\f\STX\NUL\DC2\EOT\160\SOH\STX\US\n\
    \\r\n\
    \\ENQ\EOT\f\STX\NUL\EOT\DC2\EOT\160\SOH\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\f\STX\NUL\ENQ\DC2\EOT\160\SOH\v\DC1\n\
    \\r\n\
    \\ENQ\EOT\f\STX\NUL\SOH\DC2\EOT\160\SOH\DC2\SUB\n\
    \\r\n\
    \\ENQ\EOT\f\STX\NUL\ETX\DC2\EOT\160\SOH\GS\RS\n\
    \E\n\
    \\EOT\EOT\f\STX\SOH\DC2\EOT\162\SOH\STX#\SUB7 Environment variables used to run the test/benchmark.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\f\STX\SOH\ACK\DC2\EOT\162\SOH\STX\NAK\n\
    \\r\n\
    \\ENQ\EOT\f\STX\SOH\SOH\DC2\EOT\162\SOH\SYN\RS\n\
    \\r\n\
    \\ENQ\EOT\f\STX\SOH\ETX\DC2\EOT\162\SOH!\"\n\
    \\147\ETX\n\
    \\STX\EOT\r\DC2\ACK\172\SOH\NUL\222\SOH\SOH\SUB\132\ETX The output of one benchmark / test run.  Each run contains a list of\n\
    \ tests or benchmarks, stored as BenchmarkEntry messages.\n\
    \\n\
    \ This message should be emitted by the reporter (which runs the\n\
    \ test / BM in a subprocess and then reads the emitted BenchmarkEntry messages;\n\
    \ usually from a serialized json file, finally collecting them along\n\
    \ with additional information about the test run.\n\
    \\n\
    \\v\n\
    \\ETX\EOT\r\SOH\DC2\EOT\172\SOH\b\DC3\n\
    \j\n\
    \\EOT\EOT\r\STX\NUL\DC2\EOT\175\SOH\STX\DC4\SUB\\ The target of the run, e.g.:\n\
    \  //tensorflow/core:kernels_adjust_contrast_op_benchmark_test\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\r\STX\NUL\ENQ\DC2\EOT\175\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\r\STX\NUL\SOH\DC2\EOT\175\SOH\t\SI\n\
    \\r\n\
    \\ENQ\EOT\r\STX\NUL\ETX\DC2\EOT\175\SOH\DC2\DC3\n\
    \<\n\
    \\EOT\EOT\r\STX\SOH\DC2\EOT\178\SOH\STX\US\SUB. The list of tests or benchmarks in this run.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\r\STX\SOH\ACK\DC2\EOT\178\SOH\STX\DC2\n\
    \\r\n\
    \\ENQ\EOT\r\STX\SOH\SOH\DC2\EOT\178\SOH\DC3\SUB\n\
    \\r\n\
    \\ENQ\EOT\r\STX\SOH\ETX\DC2\EOT\178\SOH\GS\RS\n\
    \T\n\
    \\EOT\EOT\r\STX\STX\DC2\EOT\181\SOH\STX-\SUBF The configuration of the build (compiled opt? with cuda? any copts?)\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\r\STX\STX\ACK\DC2\EOT\181\SOH\STX\DC4\n\
    \\r\n\
    \\ENQ\EOT\r\STX\STX\SOH\DC2\EOT\181\SOH\NAK(\n\
    \\r\n\
    \\ENQ\EOT\r\STX\STX\ETX\DC2\EOT\181\SOH+,\n\
    \6\n\
    \\EOT\EOT\r\STX\ETX\DC2\EOT\184\SOH\STX\EM\SUB( The commit id (git hash or changelist)\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\r\STX\ETX\ACK\DC2\EOT\184\SOH\STX\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\r\STX\ETX\SOH\DC2\EOT\184\SOH\v\DC4\n\
    \\r\n\
    \\ENQ\EOT\r\STX\ETX\ETX\DC2\EOT\184\SOH\ETB\CAN\n\
    \R\n\
    \\EOT\EOT\r\STX\EOT\DC2\EOT\187\SOH\STX\ETB\SUBD The time the run started (in seconds of UTC time since Unix epoch)\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\r\STX\EOT\ENQ\DC2\EOT\187\SOH\STX\a\n\
    \\r\n\
    \\ENQ\EOT\r\STX\EOT\SOH\DC2\EOT\187\SOH\b\DC2\n\
    \\r\n\
    \\ENQ\EOT\r\STX\EOT\ETX\DC2\EOT\187\SOH\NAK\SYN\n\
    \L\n\
    \\EOT\EOT\r\STX\ENQ\DC2\EOT\190\SOH\STX\SYN\SUB> The amount of time the total run took (wall time in seconds)\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\r\STX\ENQ\ENQ\DC2\EOT\190\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\r\STX\ENQ\SOH\DC2\EOT\190\SOH\t\DC1\n\
    \\r\n\
    \\ENQ\EOT\r\STX\ENQ\ETX\DC2\EOT\190\SOH\DC4\NAK\n\
    \C\n\
    \\EOT\EOT\r\STX\ACK\DC2\EOT\193\SOH\STX1\SUB5 Machine-specific parameters (Platform and CPU info)\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\r\STX\ACK\ACK\DC2\EOT\193\SOH\STX\SYN\n\
    \\r\n\
    \\ENQ\EOT\r\STX\ACK\SOH\DC2\EOT\193\SOH\ETB,\n\
    \\r\n\
    \\ENQ\EOT\r\STX\ACK\ETX\DC2\EOT\193\SOH/0\n\
    \8\n\
    \\EOT\EOT\r\STX\a\DC2\EOT\196\SOH\STX)\SUB* Run-specific parameters (arguments, etc)\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\r\STX\a\ACK\DC2\EOT\196\SOH\STX\DC2\n\
    \\r\n\
    \\ENQ\EOT\r\STX\a\SOH\DC2\EOT\196\SOH\DC3$\n\
    \\r\n\
    \\ENQ\EOT\r\STX\a\ETX\DC2\EOT\196\SOH'(\n\
    \,\n\
    \\EOT\EOT\r\STX\b\DC2\EOT\199\SOH\STX\DC2\SUB\RS Benchmark target identifier.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\r\STX\b\ENQ\DC2\EOT\199\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\r\STX\b\SOH\DC2\EOT\199\SOH\t\r\n\
    \\r\n\
    \\ENQ\EOT\r\STX\b\ETX\DC2\EOT\199\SOH\DLE\DC1\n\
    \(\n\
    \\EOT\EOT\r\EOT\NUL\DC2\ACK\202\SOH\STX\209\SOH\ETX\SUB\CAN The type of benchmark.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\r\EOT\NUL\SOH\DC2\EOT\202\SOH\a\DC4\n\
    \I\n\
    \\ACK\EOT\r\EOT\NUL\STX\NUL\DC2\EOT\203\SOH\EOT\DLE\"9 Fallback for protos written before Type was introduced.\n\
    \\n\
    \\SI\n\
    \\a\EOT\r\EOT\NUL\STX\NUL\SOH\DC2\EOT\203\SOH\EOT\v\n\
    \\SI\n\
    \\a\EOT\r\EOT\NUL\STX\NUL\STX\DC2\EOT\203\SOH\SO\SI\n\
    \\SO\n\
    \\ACK\EOT\r\EOT\NUL\STX\SOH\DC2\EOT\204\SOH\EOT\ESC\n\
    \\SI\n\
    \\a\EOT\r\EOT\NUL\STX\SOH\SOH\DC2\EOT\204\SOH\EOT\SYN\n\
    \\SI\n\
    \\a\EOT\r\EOT\NUL\STX\SOH\STX\DC2\EOT\204\SOH\EM\SUB\n\
    \\SO\n\
    \\ACK\EOT\r\EOT\NUL\STX\STX\DC2\EOT\205\SOH\EOT\EM\n\
    \\SI\n\
    \\a\EOT\r\EOT\NUL\STX\STX\SOH\DC2\EOT\205\SOH\EOT\DC4\n\
    \\SI\n\
    \\a\EOT\r\EOT\NUL\STX\STX\STX\DC2\EOT\205\SOH\ETB\CAN\n\
    \\SO\n\
    \\ACK\EOT\r\EOT\NUL\STX\ETX\DC2\EOT\206\SOH\EOT\SUB\n\
    \\SI\n\
    \\a\EOT\r\EOT\NUL\STX\ETX\SOH\DC2\EOT\206\SOH\EOT\NAK\n\
    \\SI\n\
    \\a\EOT\r\EOT\NUL\STX\ETX\STX\DC2\EOT\206\SOH\CAN\EM\n\
    \\SO\n\
    \\ACK\EOT\r\EOT\NUL\STX\EOT\DC2\EOT\207\SOH\EOT\ETB\n\
    \\SI\n\
    \\a\EOT\r\EOT\NUL\STX\EOT\SOH\DC2\EOT\207\SOH\EOT\DC2\n\
    \\SI\n\
    \\a\EOT\r\EOT\NUL\STX\EOT\STX\DC2\EOT\207\SOH\NAK\SYN\n\
    \\SO\n\
    \\ACK\EOT\r\EOT\NUL\STX\ENQ\DC2\EOT\208\SOH\EOT\SYN\n\
    \\SI\n\
    \\a\EOT\r\EOT\NUL\STX\ENQ\SOH\DC2\EOT\208\SOH\EOT\DC1\n\
    \\SI\n\
    \\a\EOT\r\EOT\NUL\STX\ENQ\STX\DC2\EOT\208\SOH\DC4\NAK\n\
    \\f\n\
    \\EOT\EOT\r\STX\t\DC2\EOT\210\SOH\STX$\n\
    \\r\n\
    \\ENQ\EOT\r\STX\t\ACK\DC2\EOT\210\SOH\STX\SI\n\
    \\r\n\
    \\ENQ\EOT\r\STX\t\SOH\DC2\EOT\210\SOH\DLE\RS\n\
    \\r\n\
    \\ENQ\EOT\r\STX\t\ETX\DC2\EOT\210\SOH!#\n\
    \\229\SOH\n\
    \\EOT\EOT\r\STX\n\
    \\DC2\EOT\217\SOH\STX\ETB\SUB\214\SOH Used for differentiating between continuous and debug builds.\n\
    \ Must be one of:\n\
    \ * cbuild: results from continuous build.\n\
    \ * presubmit: results from oneshot requests.\n\
    \ * culprit: results from culprit finder rerun.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\r\STX\n\
    \\ENQ\DC2\EOT\217\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\r\STX\n\
    \\SOH\DC2\EOT\217\SOH\t\DC1\n\
    \\r\n\
    \\ENQ\EOT\r\STX\n\
    \\ETX\DC2\EOT\217\SOH\DC4\SYN\n\
    \\130\SOH\n\
    \\EOT\EOT\r\STX\v\DC2\EOT\221\SOH\STX\EM\SUBt TensorFlow version this benchmark runs against.\n\
    \ This can be either set to full version or just the major version.\n\
    \\n\
    \\r\n\
    \\ENQ\EOT\r\STX\v\ENQ\DC2\EOT\221\SOH\STX\b\n\
    \\r\n\
    \\ENQ\EOT\r\STX\v\SOH\DC2\EOT\221\SOH\t\DC3\n\
    \\r\n\
    \\ENQ\EOT\r\STX\v\ETX\DC2\EOT\221\SOH\SYN\CANb\ACKproto3"