{-# 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.Framework.StepStats (
AllocationRecord(), AllocatorMemoryUsed(), DeviceStepStats(),
DeviceStepStats'ThreadNamesEntry(), MemoryStats(), NodeExecStats(),
NodeOutput(), StepStats()
) 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.Tensorflow.Core.Framework.AllocationDescription
import qualified Proto.Tensorflow.Core.Framework.TensorDescription
data AllocationRecord
= AllocationRecord'_constructor {AllocationRecord -> Int64
_AllocationRecord'allocMicros :: !Data.Int.Int64,
AllocationRecord -> Int64
_AllocationRecord'allocBytes :: !Data.Int.Int64,
AllocationRecord -> FieldSet
_AllocationRecord'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (AllocationRecord -> AllocationRecord -> Bool
(AllocationRecord -> AllocationRecord -> Bool)
-> (AllocationRecord -> AllocationRecord -> Bool)
-> Eq AllocationRecord
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AllocationRecord -> AllocationRecord -> Bool
$c/= :: AllocationRecord -> AllocationRecord -> Bool
== :: AllocationRecord -> AllocationRecord -> Bool
$c== :: AllocationRecord -> AllocationRecord -> Bool
Prelude.Eq, Eq AllocationRecord
Eq AllocationRecord =>
(AllocationRecord -> AllocationRecord -> Ordering)
-> (AllocationRecord -> AllocationRecord -> Bool)
-> (AllocationRecord -> AllocationRecord -> Bool)
-> (AllocationRecord -> AllocationRecord -> Bool)
-> (AllocationRecord -> AllocationRecord -> Bool)
-> (AllocationRecord -> AllocationRecord -> AllocationRecord)
-> (AllocationRecord -> AllocationRecord -> AllocationRecord)
-> Ord AllocationRecord
AllocationRecord -> AllocationRecord -> Bool
AllocationRecord -> AllocationRecord -> Ordering
AllocationRecord -> AllocationRecord -> AllocationRecord
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 :: AllocationRecord -> AllocationRecord -> AllocationRecord
$cmin :: AllocationRecord -> AllocationRecord -> AllocationRecord
max :: AllocationRecord -> AllocationRecord -> AllocationRecord
$cmax :: AllocationRecord -> AllocationRecord -> AllocationRecord
>= :: AllocationRecord -> AllocationRecord -> Bool
$c>= :: AllocationRecord -> AllocationRecord -> Bool
> :: AllocationRecord -> AllocationRecord -> Bool
$c> :: AllocationRecord -> AllocationRecord -> Bool
<= :: AllocationRecord -> AllocationRecord -> Bool
$c<= :: AllocationRecord -> AllocationRecord -> Bool
< :: AllocationRecord -> AllocationRecord -> Bool
$c< :: AllocationRecord -> AllocationRecord -> Bool
compare :: AllocationRecord -> AllocationRecord -> Ordering
$ccompare :: AllocationRecord -> AllocationRecord -> Ordering
$cp1Ord :: Eq AllocationRecord
Prelude.Ord)
instance Prelude.Show AllocationRecord where
showsPrec :: Int -> AllocationRecord -> ShowS
showsPrec _ __x :: AllocationRecord
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(AllocationRecord -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AllocationRecord
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField AllocationRecord "allocMicros" Data.Int.Int64 where
fieldOf :: Proxy# "allocMicros"
-> (Int64 -> f Int64) -> AllocationRecord -> f AllocationRecord
fieldOf _
= ((Int64 -> f Int64) -> AllocationRecord -> f AllocationRecord)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> AllocationRecord
-> f AllocationRecord
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AllocationRecord -> Int64)
-> (AllocationRecord -> Int64 -> AllocationRecord)
-> Lens AllocationRecord AllocationRecord Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AllocationRecord -> Int64
_AllocationRecord'allocMicros
(\ x__ :: AllocationRecord
x__ y__ :: Int64
y__ -> AllocationRecord
x__ {_AllocationRecord'allocMicros :: Int64
_AllocationRecord'allocMicros = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AllocationRecord "allocBytes" Data.Int.Int64 where
fieldOf :: Proxy# "allocBytes"
-> (Int64 -> f Int64) -> AllocationRecord -> f AllocationRecord
fieldOf _
= ((Int64 -> f Int64) -> AllocationRecord -> f AllocationRecord)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> AllocationRecord
-> f AllocationRecord
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AllocationRecord -> Int64)
-> (AllocationRecord -> Int64 -> AllocationRecord)
-> Lens AllocationRecord AllocationRecord Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AllocationRecord -> Int64
_AllocationRecord'allocBytes
(\ x__ :: AllocationRecord
x__ y__ :: Int64
y__ -> AllocationRecord
x__ {_AllocationRecord'allocBytes :: Int64
_AllocationRecord'allocBytes = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AllocationRecord where
messageName :: Proxy AllocationRecord -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.AllocationRecord"
packedMessageDescriptor :: Proxy AllocationRecord -> ByteString
packedMessageDescriptor _
= "\n\
\\DLEAllocationRecord\DC2!\n\
\\falloc_micros\CAN\SOH \SOH(\ETXR\vallocMicros\DC2\US\n\
\\valloc_bytes\CAN\STX \SOH(\ETXR\n\
\allocBytes"
packedFileDescriptor :: Proxy AllocationRecord -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor AllocationRecord)
fieldsByTag
= let
allocMicros__field_descriptor :: FieldDescriptor AllocationRecord
allocMicros__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor AllocationRecord Int64
-> FieldDescriptor AllocationRecord
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"alloc_micros"
(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 AllocationRecord AllocationRecord Int64 Int64
-> FieldAccessor AllocationRecord 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 "allocMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocMicros")) ::
Data.ProtoLens.FieldDescriptor AllocationRecord
allocBytes__field_descriptor :: FieldDescriptor AllocationRecord
allocBytes__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor AllocationRecord Int64
-> FieldDescriptor AllocationRecord
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"alloc_bytes"
(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 AllocationRecord AllocationRecord Int64 Int64
-> FieldAccessor AllocationRecord 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 "allocBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocBytes")) ::
Data.ProtoLens.FieldDescriptor AllocationRecord
in
[(Tag, FieldDescriptor AllocationRecord)]
-> Map Tag (FieldDescriptor AllocationRecord)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor AllocationRecord
allocMicros__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor AllocationRecord
allocBytes__field_descriptor)]
unknownFields :: LensLike' f AllocationRecord FieldSet
unknownFields
= (AllocationRecord -> FieldSet)
-> (AllocationRecord -> FieldSet -> AllocationRecord)
-> Lens' AllocationRecord FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AllocationRecord -> FieldSet
_AllocationRecord'_unknownFields
(\ x__ :: AllocationRecord
x__ y__ :: FieldSet
y__ -> AllocationRecord
x__ {_AllocationRecord'_unknownFields :: FieldSet
_AllocationRecord'_unknownFields = FieldSet
y__})
defMessage :: AllocationRecord
defMessage
= $WAllocationRecord'_constructor :: Int64 -> Int64 -> FieldSet -> AllocationRecord
AllocationRecord'_constructor
{_AllocationRecord'allocMicros :: Int64
_AllocationRecord'allocMicros = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_AllocationRecord'allocBytes :: Int64
_AllocationRecord'allocBytes = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_AllocationRecord'_unknownFields :: FieldSet
_AllocationRecord'_unknownFields = []}
parseMessage :: Parser AllocationRecord
parseMessage
= let
loop ::
AllocationRecord
-> Data.ProtoLens.Encoding.Bytes.Parser AllocationRecord
loop :: AllocationRecord -> Parser AllocationRecord
loop x :: AllocationRecord
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]))))
AllocationRecord -> Parser AllocationRecord
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter AllocationRecord AllocationRecord FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AllocationRecord -> AllocationRecord
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 AllocationRecord AllocationRecord FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) AllocationRecord
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)
"alloc_micros"
AllocationRecord -> Parser AllocationRecord
loop
(Setter AllocationRecord AllocationRecord Int64 Int64
-> Int64 -> AllocationRecord -> AllocationRecord
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "allocMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocMicros") Int64
y AllocationRecord
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)
"alloc_bytes"
AllocationRecord -> Parser AllocationRecord
loop
(Setter AllocationRecord AllocationRecord Int64 Int64
-> Int64 -> AllocationRecord -> AllocationRecord
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "allocBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocBytes") Int64
y AllocationRecord
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
AllocationRecord -> Parser AllocationRecord
loop
(Setter AllocationRecord AllocationRecord FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AllocationRecord -> AllocationRecord
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 AllocationRecord AllocationRecord FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AllocationRecord
x)
in
Parser AllocationRecord -> String -> Parser AllocationRecord
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do AllocationRecord -> Parser AllocationRecord
loop AllocationRecord
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "AllocationRecord"
buildMessage :: AllocationRecord -> Builder
buildMessage
= \ _x :: AllocationRecord
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 AllocationRecord AllocationRecord Int64 Int64
-> AllocationRecord -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "allocMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocMicros") AllocationRecord
_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 AllocationRecord AllocationRecord Int64 Int64
-> AllocationRecord -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "allocBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocBytes") AllocationRecord
_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 AllocationRecord AllocationRecord FieldSet FieldSet
-> AllocationRecord -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet AllocationRecord AllocationRecord FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields AllocationRecord
_x)))
instance Control.DeepSeq.NFData AllocationRecord where
rnf :: AllocationRecord -> ()
rnf
= \ x__ :: AllocationRecord
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AllocationRecord -> FieldSet
_AllocationRecord'_unknownFields AllocationRecord
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AllocationRecord -> Int64
_AllocationRecord'allocMicros AllocationRecord
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AllocationRecord -> Int64
_AllocationRecord'allocBytes AllocationRecord
x__) ()))
data AllocatorMemoryUsed
= AllocatorMemoryUsed'_constructor {AllocatorMemoryUsed -> Text
_AllocatorMemoryUsed'allocatorName :: !Data.Text.Text,
AllocatorMemoryUsed -> Int64
_AllocatorMemoryUsed'totalBytes :: !Data.Int.Int64,
AllocatorMemoryUsed -> Int64
_AllocatorMemoryUsed'peakBytes :: !Data.Int.Int64,
AllocatorMemoryUsed -> Int64
_AllocatorMemoryUsed'liveBytes :: !Data.Int.Int64,
AllocatorMemoryUsed -> Vector AllocationRecord
_AllocatorMemoryUsed'allocationRecords :: !(Data.Vector.Vector AllocationRecord),
AllocatorMemoryUsed -> Int64
_AllocatorMemoryUsed'allocatorBytesInUse :: !Data.Int.Int64,
AllocatorMemoryUsed -> FieldSet
_AllocatorMemoryUsed'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool
(AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool)
-> (AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool)
-> Eq AllocatorMemoryUsed
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool
$c/= :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool
== :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool
$c== :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool
Prelude.Eq, Eq AllocatorMemoryUsed
Eq AllocatorMemoryUsed =>
(AllocatorMemoryUsed -> AllocatorMemoryUsed -> Ordering)
-> (AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool)
-> (AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool)
-> (AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool)
-> (AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool)
-> (AllocatorMemoryUsed
-> AllocatorMemoryUsed -> AllocatorMemoryUsed)
-> (AllocatorMemoryUsed
-> AllocatorMemoryUsed -> AllocatorMemoryUsed)
-> Ord AllocatorMemoryUsed
AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool
AllocatorMemoryUsed -> AllocatorMemoryUsed -> Ordering
AllocatorMemoryUsed -> AllocatorMemoryUsed -> AllocatorMemoryUsed
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 :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> AllocatorMemoryUsed
$cmin :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> AllocatorMemoryUsed
max :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> AllocatorMemoryUsed
$cmax :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> AllocatorMemoryUsed
>= :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool
$c>= :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool
> :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool
$c> :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool
<= :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool
$c<= :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool
< :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool
$c< :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> Bool
compare :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> Ordering
$ccompare :: AllocatorMemoryUsed -> AllocatorMemoryUsed -> Ordering
$cp1Ord :: Eq AllocatorMemoryUsed
Prelude.Ord)
instance Prelude.Show AllocatorMemoryUsed where
showsPrec :: Int -> AllocatorMemoryUsed -> ShowS
showsPrec _ __x :: AllocatorMemoryUsed
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(AllocatorMemoryUsed -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AllocatorMemoryUsed
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField AllocatorMemoryUsed "allocatorName" Data.Text.Text where
fieldOf :: Proxy# "allocatorName"
-> (Text -> f Text) -> AllocatorMemoryUsed -> f AllocatorMemoryUsed
fieldOf _
= ((Text -> f Text) -> AllocatorMemoryUsed -> f AllocatorMemoryUsed)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AllocatorMemoryUsed
-> f AllocatorMemoryUsed
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AllocatorMemoryUsed -> Text)
-> (AllocatorMemoryUsed -> Text -> AllocatorMemoryUsed)
-> Lens AllocatorMemoryUsed AllocatorMemoryUsed Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AllocatorMemoryUsed -> Text
_AllocatorMemoryUsed'allocatorName
(\ x__ :: AllocatorMemoryUsed
x__ y__ :: Text
y__ -> AllocatorMemoryUsed
x__ {_AllocatorMemoryUsed'allocatorName :: Text
_AllocatorMemoryUsed'allocatorName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AllocatorMemoryUsed "totalBytes" Data.Int.Int64 where
fieldOf :: Proxy# "totalBytes"
-> (Int64 -> f Int64)
-> AllocatorMemoryUsed
-> f AllocatorMemoryUsed
fieldOf _
= ((Int64 -> f Int64)
-> AllocatorMemoryUsed -> f AllocatorMemoryUsed)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> AllocatorMemoryUsed
-> f AllocatorMemoryUsed
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AllocatorMemoryUsed -> Int64)
-> (AllocatorMemoryUsed -> Int64 -> AllocatorMemoryUsed)
-> Lens AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AllocatorMemoryUsed -> Int64
_AllocatorMemoryUsed'totalBytes
(\ x__ :: AllocatorMemoryUsed
x__ y__ :: Int64
y__ -> AllocatorMemoryUsed
x__ {_AllocatorMemoryUsed'totalBytes :: Int64
_AllocatorMemoryUsed'totalBytes = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AllocatorMemoryUsed "peakBytes" Data.Int.Int64 where
fieldOf :: Proxy# "peakBytes"
-> (Int64 -> f Int64)
-> AllocatorMemoryUsed
-> f AllocatorMemoryUsed
fieldOf _
= ((Int64 -> f Int64)
-> AllocatorMemoryUsed -> f AllocatorMemoryUsed)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> AllocatorMemoryUsed
-> f AllocatorMemoryUsed
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AllocatorMemoryUsed -> Int64)
-> (AllocatorMemoryUsed -> Int64 -> AllocatorMemoryUsed)
-> Lens AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AllocatorMemoryUsed -> Int64
_AllocatorMemoryUsed'peakBytes
(\ x__ :: AllocatorMemoryUsed
x__ y__ :: Int64
y__ -> AllocatorMemoryUsed
x__ {_AllocatorMemoryUsed'peakBytes :: Int64
_AllocatorMemoryUsed'peakBytes = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AllocatorMemoryUsed "liveBytes" Data.Int.Int64 where
fieldOf :: Proxy# "liveBytes"
-> (Int64 -> f Int64)
-> AllocatorMemoryUsed
-> f AllocatorMemoryUsed
fieldOf _
= ((Int64 -> f Int64)
-> AllocatorMemoryUsed -> f AllocatorMemoryUsed)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> AllocatorMemoryUsed
-> f AllocatorMemoryUsed
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AllocatorMemoryUsed -> Int64)
-> (AllocatorMemoryUsed -> Int64 -> AllocatorMemoryUsed)
-> Lens AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AllocatorMemoryUsed -> Int64
_AllocatorMemoryUsed'liveBytes
(\ x__ :: AllocatorMemoryUsed
x__ y__ :: Int64
y__ -> AllocatorMemoryUsed
x__ {_AllocatorMemoryUsed'liveBytes :: Int64
_AllocatorMemoryUsed'liveBytes = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AllocatorMemoryUsed "allocationRecords" [AllocationRecord] where
fieldOf :: Proxy# "allocationRecords"
-> ([AllocationRecord] -> f [AllocationRecord])
-> AllocatorMemoryUsed
-> f AllocatorMemoryUsed
fieldOf _
= ((Vector AllocationRecord -> f (Vector AllocationRecord))
-> AllocatorMemoryUsed -> f AllocatorMemoryUsed)
-> (([AllocationRecord] -> f [AllocationRecord])
-> Vector AllocationRecord -> f (Vector AllocationRecord))
-> ([AllocationRecord] -> f [AllocationRecord])
-> AllocatorMemoryUsed
-> f AllocatorMemoryUsed
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AllocatorMemoryUsed -> Vector AllocationRecord)
-> (AllocatorMemoryUsed
-> Vector AllocationRecord -> AllocatorMemoryUsed)
-> Lens
AllocatorMemoryUsed
AllocatorMemoryUsed
(Vector AllocationRecord)
(Vector AllocationRecord)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AllocatorMemoryUsed -> Vector AllocationRecord
_AllocatorMemoryUsed'allocationRecords
(\ x__ :: AllocatorMemoryUsed
x__ y__ :: Vector AllocationRecord
y__ -> AllocatorMemoryUsed
x__ {_AllocatorMemoryUsed'allocationRecords :: Vector AllocationRecord
_AllocatorMemoryUsed'allocationRecords = Vector AllocationRecord
y__}))
((Vector AllocationRecord -> [AllocationRecord])
-> (Vector AllocationRecord
-> [AllocationRecord] -> Vector AllocationRecord)
-> Lens
(Vector AllocationRecord)
(Vector AllocationRecord)
[AllocationRecord]
[AllocationRecord]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector AllocationRecord -> [AllocationRecord]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [AllocationRecord]
y__ -> [AllocationRecord] -> Vector AllocationRecord
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [AllocationRecord]
y__))
instance Data.ProtoLens.Field.HasField AllocatorMemoryUsed "vec'allocationRecords" (Data.Vector.Vector AllocationRecord) where
fieldOf :: Proxy# "vec'allocationRecords"
-> (Vector AllocationRecord -> f (Vector AllocationRecord))
-> AllocatorMemoryUsed
-> f AllocatorMemoryUsed
fieldOf _
= ((Vector AllocationRecord -> f (Vector AllocationRecord))
-> AllocatorMemoryUsed -> f AllocatorMemoryUsed)
-> ((Vector AllocationRecord -> f (Vector AllocationRecord))
-> Vector AllocationRecord -> f (Vector AllocationRecord))
-> (Vector AllocationRecord -> f (Vector AllocationRecord))
-> AllocatorMemoryUsed
-> f AllocatorMemoryUsed
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AllocatorMemoryUsed -> Vector AllocationRecord)
-> (AllocatorMemoryUsed
-> Vector AllocationRecord -> AllocatorMemoryUsed)
-> Lens
AllocatorMemoryUsed
AllocatorMemoryUsed
(Vector AllocationRecord)
(Vector AllocationRecord)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AllocatorMemoryUsed -> Vector AllocationRecord
_AllocatorMemoryUsed'allocationRecords
(\ x__ :: AllocatorMemoryUsed
x__ y__ :: Vector AllocationRecord
y__ -> AllocatorMemoryUsed
x__ {_AllocatorMemoryUsed'allocationRecords :: Vector AllocationRecord
_AllocatorMemoryUsed'allocationRecords = Vector AllocationRecord
y__}))
(Vector AllocationRecord -> f (Vector AllocationRecord))
-> Vector AllocationRecord -> f (Vector AllocationRecord)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AllocatorMemoryUsed "allocatorBytesInUse" Data.Int.Int64 where
fieldOf :: Proxy# "allocatorBytesInUse"
-> (Int64 -> f Int64)
-> AllocatorMemoryUsed
-> f AllocatorMemoryUsed
fieldOf _
= ((Int64 -> f Int64)
-> AllocatorMemoryUsed -> f AllocatorMemoryUsed)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> AllocatorMemoryUsed
-> f AllocatorMemoryUsed
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AllocatorMemoryUsed -> Int64)
-> (AllocatorMemoryUsed -> Int64 -> AllocatorMemoryUsed)
-> Lens AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AllocatorMemoryUsed -> Int64
_AllocatorMemoryUsed'allocatorBytesInUse
(\ x__ :: AllocatorMemoryUsed
x__ y__ :: Int64
y__
-> AllocatorMemoryUsed
x__ {_AllocatorMemoryUsed'allocatorBytesInUse :: Int64
_AllocatorMemoryUsed'allocatorBytesInUse = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AllocatorMemoryUsed where
messageName :: Proxy AllocatorMemoryUsed -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.AllocatorMemoryUsed"
packedMessageDescriptor :: Proxy AllocatorMemoryUsed -> ByteString
packedMessageDescriptor _
= "\n\
\\DC3AllocatorMemoryUsed\DC2%\n\
\\SOallocator_name\CAN\SOH \SOH(\tR\rallocatorName\DC2\US\n\
\\vtotal_bytes\CAN\STX \SOH(\ETXR\n\
\totalBytes\DC2\GS\n\
\\n\
\peak_bytes\CAN\ETX \SOH(\ETXR\tpeakBytes\DC2\GS\n\
\\n\
\live_bytes\CAN\EOT \SOH(\ETXR\tliveBytes\DC2K\n\
\\DC2allocation_records\CAN\ACK \ETX(\v2\FS.tensorflow.AllocationRecordR\DC1allocationRecords\DC23\n\
\\SYNallocator_bytes_in_use\CAN\ENQ \SOH(\ETXR\DC3allocatorBytesInUse"
packedFileDescriptor :: Proxy AllocatorMemoryUsed -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor AllocatorMemoryUsed)
fieldsByTag
= let
allocatorName__field_descriptor :: FieldDescriptor AllocatorMemoryUsed
allocatorName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor AllocatorMemoryUsed Text
-> FieldDescriptor AllocatorMemoryUsed
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"allocator_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 AllocatorMemoryUsed AllocatorMemoryUsed Text Text
-> FieldAccessor AllocatorMemoryUsed 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 "allocatorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocatorName")) ::
Data.ProtoLens.FieldDescriptor AllocatorMemoryUsed
totalBytes__field_descriptor :: FieldDescriptor AllocatorMemoryUsed
totalBytes__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor AllocatorMemoryUsed Int64
-> FieldDescriptor AllocatorMemoryUsed
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"total_bytes"
(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 AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
-> FieldAccessor AllocatorMemoryUsed 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 "totalBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"totalBytes")) ::
Data.ProtoLens.FieldDescriptor AllocatorMemoryUsed
peakBytes__field_descriptor :: FieldDescriptor AllocatorMemoryUsed
peakBytes__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor AllocatorMemoryUsed Int64
-> FieldDescriptor AllocatorMemoryUsed
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"peak_bytes"
(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 AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
-> FieldAccessor AllocatorMemoryUsed 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 "peakBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"peakBytes")) ::
Data.ProtoLens.FieldDescriptor AllocatorMemoryUsed
liveBytes__field_descriptor :: FieldDescriptor AllocatorMemoryUsed
liveBytes__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor AllocatorMemoryUsed Int64
-> FieldDescriptor AllocatorMemoryUsed
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"live_bytes"
(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 AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
-> FieldAccessor AllocatorMemoryUsed 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 "liveBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"liveBytes")) ::
Data.ProtoLens.FieldDescriptor AllocatorMemoryUsed
allocationRecords__field_descriptor :: FieldDescriptor AllocatorMemoryUsed
allocationRecords__field_descriptor
= String
-> FieldTypeDescriptor AllocationRecord
-> FieldAccessor AllocatorMemoryUsed AllocationRecord
-> FieldDescriptor AllocatorMemoryUsed
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"allocation_records"
(MessageOrGroup -> FieldTypeDescriptor AllocationRecord
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AllocationRecord)
(Packing
-> Lens' AllocatorMemoryUsed [AllocationRecord]
-> FieldAccessor AllocatorMemoryUsed AllocationRecord
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "allocationRecords" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocationRecords")) ::
Data.ProtoLens.FieldDescriptor AllocatorMemoryUsed
allocatorBytesInUse__field_descriptor :: FieldDescriptor AllocatorMemoryUsed
allocatorBytesInUse__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor AllocatorMemoryUsed Int64
-> FieldDescriptor AllocatorMemoryUsed
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"allocator_bytes_in_use"
(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 AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
-> FieldAccessor AllocatorMemoryUsed 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 "allocatorBytesInUse" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocatorBytesInUse")) ::
Data.ProtoLens.FieldDescriptor AllocatorMemoryUsed
in
[(Tag, FieldDescriptor AllocatorMemoryUsed)]
-> Map Tag (FieldDescriptor AllocatorMemoryUsed)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor AllocatorMemoryUsed
allocatorName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor AllocatorMemoryUsed
totalBytes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor AllocatorMemoryUsed
peakBytes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor AllocatorMemoryUsed
liveBytes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor AllocatorMemoryUsed
allocationRecords__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor AllocatorMemoryUsed
allocatorBytesInUse__field_descriptor)]
unknownFields :: LensLike' f AllocatorMemoryUsed FieldSet
unknownFields
= (AllocatorMemoryUsed -> FieldSet)
-> (AllocatorMemoryUsed -> FieldSet -> AllocatorMemoryUsed)
-> Lens' AllocatorMemoryUsed FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AllocatorMemoryUsed -> FieldSet
_AllocatorMemoryUsed'_unknownFields
(\ x__ :: AllocatorMemoryUsed
x__ y__ :: FieldSet
y__ -> AllocatorMemoryUsed
x__ {_AllocatorMemoryUsed'_unknownFields :: FieldSet
_AllocatorMemoryUsed'_unknownFields = FieldSet
y__})
defMessage :: AllocatorMemoryUsed
defMessage
= $WAllocatorMemoryUsed'_constructor :: Text
-> Int64
-> Int64
-> Int64
-> Vector AllocationRecord
-> Int64
-> FieldSet
-> AllocatorMemoryUsed
AllocatorMemoryUsed'_constructor
{_AllocatorMemoryUsed'allocatorName :: Text
_AllocatorMemoryUsed'allocatorName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_AllocatorMemoryUsed'totalBytes :: Int64
_AllocatorMemoryUsed'totalBytes = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_AllocatorMemoryUsed'peakBytes :: Int64
_AllocatorMemoryUsed'peakBytes = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_AllocatorMemoryUsed'liveBytes :: Int64
_AllocatorMemoryUsed'liveBytes = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_AllocatorMemoryUsed'allocationRecords :: Vector AllocationRecord
_AllocatorMemoryUsed'allocationRecords = Vector AllocationRecord
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_AllocatorMemoryUsed'allocatorBytesInUse :: Int64
_AllocatorMemoryUsed'allocatorBytesInUse = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_AllocatorMemoryUsed'_unknownFields :: FieldSet
_AllocatorMemoryUsed'_unknownFields = []}
parseMessage :: Parser AllocatorMemoryUsed
parseMessage
= let
loop ::
AllocatorMemoryUsed
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AllocationRecord
-> Data.ProtoLens.Encoding.Bytes.Parser AllocatorMemoryUsed
loop :: AllocatorMemoryUsed
-> Growing Vector RealWorld AllocationRecord
-> Parser AllocatorMemoryUsed
loop x :: AllocatorMemoryUsed
x mutable'allocationRecords :: Growing Vector RealWorld AllocationRecord
mutable'allocationRecords
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector AllocationRecord
frozen'allocationRecords <- IO (Vector AllocationRecord) -> Parser (Vector AllocationRecord)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) AllocationRecord
-> IO (Vector AllocationRecord)
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 AllocationRecord
Growing Vector (PrimState IO) AllocationRecord
mutable'allocationRecords)
(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]))))
AllocatorMemoryUsed -> Parser AllocatorMemoryUsed
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter AllocatorMemoryUsed AllocatorMemoryUsed FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> AllocatorMemoryUsed
-> AllocatorMemoryUsed
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 AllocatorMemoryUsed AllocatorMemoryUsed FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
AllocatorMemoryUsed
AllocatorMemoryUsed
(Vector AllocationRecord)
(Vector AllocationRecord)
-> Vector AllocationRecord
-> AllocatorMemoryUsed
-> AllocatorMemoryUsed
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'allocationRecords" a, Functor f) =>
(a -> f a) -> s -> 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'allocationRecords")
Vector AllocationRecord
frozen'allocationRecords
AllocatorMemoryUsed
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))
"allocator_name"
AllocatorMemoryUsed
-> Growing Vector RealWorld AllocationRecord
-> Parser AllocatorMemoryUsed
loop
(Setter AllocatorMemoryUsed AllocatorMemoryUsed Text Text
-> Text -> AllocatorMemoryUsed -> AllocatorMemoryUsed
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "allocatorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocatorName") Text
y AllocatorMemoryUsed
x)
Growing Vector RealWorld AllocationRecord
mutable'allocationRecords
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)
"total_bytes"
AllocatorMemoryUsed
-> Growing Vector RealWorld AllocationRecord
-> Parser AllocatorMemoryUsed
loop
(Setter AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
-> Int64 -> AllocatorMemoryUsed -> AllocatorMemoryUsed
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "totalBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"totalBytes") Int64
y AllocatorMemoryUsed
x)
Growing Vector RealWorld AllocationRecord
mutable'allocationRecords
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)
"peak_bytes"
AllocatorMemoryUsed
-> Growing Vector RealWorld AllocationRecord
-> Parser AllocatorMemoryUsed
loop
(Setter AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
-> Int64 -> AllocatorMemoryUsed -> AllocatorMemoryUsed
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "peakBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"peakBytes") Int64
y AllocatorMemoryUsed
x)
Growing Vector RealWorld AllocationRecord
mutable'allocationRecords
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)
"live_bytes"
AllocatorMemoryUsed
-> Growing Vector RealWorld AllocationRecord
-> Parser AllocatorMemoryUsed
loop
(Setter AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
-> Int64 -> AllocatorMemoryUsed -> AllocatorMemoryUsed
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "liveBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"liveBytes") Int64
y AllocatorMemoryUsed
x)
Growing Vector RealWorld AllocationRecord
mutable'allocationRecords
50
-> do !AllocationRecord
y <- Parser AllocationRecord -> String -> Parser AllocationRecord
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser AllocationRecord -> Parser AllocationRecord
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 AllocationRecord
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"allocation_records"
Growing Vector RealWorld AllocationRecord
v <- IO (Growing Vector RealWorld AllocationRecord)
-> Parser (Growing Vector RealWorld AllocationRecord)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) AllocationRecord
-> AllocationRecord
-> IO (Growing Vector (PrimState IO) AllocationRecord)
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 AllocationRecord
Growing Vector (PrimState IO) AllocationRecord
mutable'allocationRecords AllocationRecord
y)
AllocatorMemoryUsed
-> Growing Vector RealWorld AllocationRecord
-> Parser AllocatorMemoryUsed
loop AllocatorMemoryUsed
x Growing Vector RealWorld AllocationRecord
v
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)
"allocator_bytes_in_use"
AllocatorMemoryUsed
-> Growing Vector RealWorld AllocationRecord
-> Parser AllocatorMemoryUsed
loop
(Setter AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
-> Int64 -> AllocatorMemoryUsed -> AllocatorMemoryUsed
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "allocatorBytesInUse" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocatorBytesInUse") Int64
y AllocatorMemoryUsed
x)
Growing Vector RealWorld AllocationRecord
mutable'allocationRecords
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
AllocatorMemoryUsed
-> Growing Vector RealWorld AllocationRecord
-> Parser AllocatorMemoryUsed
loop
(Setter AllocatorMemoryUsed AllocatorMemoryUsed FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> AllocatorMemoryUsed
-> AllocatorMemoryUsed
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 AllocatorMemoryUsed AllocatorMemoryUsed FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AllocatorMemoryUsed
x)
Growing Vector RealWorld AllocationRecord
mutable'allocationRecords
in
Parser AllocatorMemoryUsed -> String -> Parser AllocatorMemoryUsed
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld AllocationRecord
mutable'allocationRecords <- IO (Growing Vector RealWorld AllocationRecord)
-> Parser (Growing Vector RealWorld AllocationRecord)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld AllocationRecord)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
AllocatorMemoryUsed
-> Growing Vector RealWorld AllocationRecord
-> Parser AllocatorMemoryUsed
loop AllocatorMemoryUsed
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld AllocationRecord
mutable'allocationRecords)
"AllocatorMemoryUsed"
buildMessage :: AllocatorMemoryUsed -> Builder
buildMessage
= \ _x :: AllocatorMemoryUsed
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text AllocatorMemoryUsed AllocatorMemoryUsed Text Text
-> AllocatorMemoryUsed -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "allocatorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocatorName") AllocatorMemoryUsed
_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 AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
-> AllocatorMemoryUsed -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "totalBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"totalBytes") AllocatorMemoryUsed
_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 :: Int64
_v = FoldLike Int64 AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
-> AllocatorMemoryUsed -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "peakBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"peakBytes") AllocatorMemoryUsed
_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 :: Int64
_v = FoldLike Int64 AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
-> AllocatorMemoryUsed -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "liveBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"liveBytes") AllocatorMemoryUsed
_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.<>)
((AllocationRecord -> Builder) -> Vector AllocationRecord -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: AllocationRecord
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((ByteString -> Builder)
-> (AllocationRecord -> ByteString) -> AllocationRecord -> 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))
AllocationRecord -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
AllocationRecord
_v))
(FoldLike
(Vector AllocationRecord)
AllocatorMemoryUsed
AllocatorMemoryUsed
(Vector AllocationRecord)
(Vector AllocationRecord)
-> AllocatorMemoryUsed -> Vector AllocationRecord
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'allocationRecords" a, Functor f) =>
(a -> f a) -> s -> 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'allocationRecords") AllocatorMemoryUsed
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 AllocatorMemoryUsed AllocatorMemoryUsed Int64 Int64
-> AllocatorMemoryUsed -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "allocatorBytesInUse" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocatorBytesInUse") AllocatorMemoryUsed
_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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet AllocatorMemoryUsed AllocatorMemoryUsed FieldSet FieldSet
-> AllocatorMemoryUsed -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet AllocatorMemoryUsed AllocatorMemoryUsed FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields AllocatorMemoryUsed
_x)))))))
instance Control.DeepSeq.NFData AllocatorMemoryUsed where
rnf :: AllocatorMemoryUsed -> ()
rnf
= \ x__ :: AllocatorMemoryUsed
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AllocatorMemoryUsed -> FieldSet
_AllocatorMemoryUsed'_unknownFields AllocatorMemoryUsed
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AllocatorMemoryUsed -> Text
_AllocatorMemoryUsed'allocatorName AllocatorMemoryUsed
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AllocatorMemoryUsed -> Int64
_AllocatorMemoryUsed'totalBytes AllocatorMemoryUsed
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AllocatorMemoryUsed -> Int64
_AllocatorMemoryUsed'peakBytes AllocatorMemoryUsed
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AllocatorMemoryUsed -> Int64
_AllocatorMemoryUsed'liveBytes AllocatorMemoryUsed
x__)
(Vector AllocationRecord -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AllocatorMemoryUsed -> Vector AllocationRecord
_AllocatorMemoryUsed'allocationRecords AllocatorMemoryUsed
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AllocatorMemoryUsed -> Int64
_AllocatorMemoryUsed'allocatorBytesInUse AllocatorMemoryUsed
x__) ()))))))
data DeviceStepStats
= DeviceStepStats'_constructor {DeviceStepStats -> Text
_DeviceStepStats'device :: !Data.Text.Text,
DeviceStepStats -> Vector NodeExecStats
_DeviceStepStats'nodeStats :: !(Data.Vector.Vector NodeExecStats),
DeviceStepStats -> Map Word32 Text
_DeviceStepStats'threadNames :: !(Data.Map.Map Data.Word.Word32 Data.Text.Text),
DeviceStepStats -> FieldSet
_DeviceStepStats'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (DeviceStepStats -> DeviceStepStats -> Bool
(DeviceStepStats -> DeviceStepStats -> Bool)
-> (DeviceStepStats -> DeviceStepStats -> Bool)
-> Eq DeviceStepStats
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeviceStepStats -> DeviceStepStats -> Bool
$c/= :: DeviceStepStats -> DeviceStepStats -> Bool
== :: DeviceStepStats -> DeviceStepStats -> Bool
$c== :: DeviceStepStats -> DeviceStepStats -> Bool
Prelude.Eq, Eq DeviceStepStats
Eq DeviceStepStats =>
(DeviceStepStats -> DeviceStepStats -> Ordering)
-> (DeviceStepStats -> DeviceStepStats -> Bool)
-> (DeviceStepStats -> DeviceStepStats -> Bool)
-> (DeviceStepStats -> DeviceStepStats -> Bool)
-> (DeviceStepStats -> DeviceStepStats -> Bool)
-> (DeviceStepStats -> DeviceStepStats -> DeviceStepStats)
-> (DeviceStepStats -> DeviceStepStats -> DeviceStepStats)
-> Ord DeviceStepStats
DeviceStepStats -> DeviceStepStats -> Bool
DeviceStepStats -> DeviceStepStats -> Ordering
DeviceStepStats -> DeviceStepStats -> DeviceStepStats
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 :: DeviceStepStats -> DeviceStepStats -> DeviceStepStats
$cmin :: DeviceStepStats -> DeviceStepStats -> DeviceStepStats
max :: DeviceStepStats -> DeviceStepStats -> DeviceStepStats
$cmax :: DeviceStepStats -> DeviceStepStats -> DeviceStepStats
>= :: DeviceStepStats -> DeviceStepStats -> Bool
$c>= :: DeviceStepStats -> DeviceStepStats -> Bool
> :: DeviceStepStats -> DeviceStepStats -> Bool
$c> :: DeviceStepStats -> DeviceStepStats -> Bool
<= :: DeviceStepStats -> DeviceStepStats -> Bool
$c<= :: DeviceStepStats -> DeviceStepStats -> Bool
< :: DeviceStepStats -> DeviceStepStats -> Bool
$c< :: DeviceStepStats -> DeviceStepStats -> Bool
compare :: DeviceStepStats -> DeviceStepStats -> Ordering
$ccompare :: DeviceStepStats -> DeviceStepStats -> Ordering
$cp1Ord :: Eq DeviceStepStats
Prelude.Ord)
instance Prelude.Show DeviceStepStats where
showsPrec :: Int -> DeviceStepStats -> ShowS
showsPrec _ __x :: DeviceStepStats
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(DeviceStepStats -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DeviceStepStats
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField DeviceStepStats "device" Data.Text.Text where
fieldOf :: Proxy# "device"
-> (Text -> f Text) -> DeviceStepStats -> f DeviceStepStats
fieldOf _
= ((Text -> f Text) -> DeviceStepStats -> f DeviceStepStats)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DeviceStepStats
-> f DeviceStepStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DeviceStepStats -> Text)
-> (DeviceStepStats -> Text -> DeviceStepStats)
-> Lens DeviceStepStats DeviceStepStats Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DeviceStepStats -> Text
_DeviceStepStats'device
(\ x__ :: DeviceStepStats
x__ y__ :: Text
y__ -> DeviceStepStats
x__ {_DeviceStepStats'device :: Text
_DeviceStepStats'device = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeviceStepStats "nodeStats" [NodeExecStats] where
fieldOf :: Proxy# "nodeStats"
-> ([NodeExecStats] -> f [NodeExecStats])
-> DeviceStepStats
-> f DeviceStepStats
fieldOf _
= ((Vector NodeExecStats -> f (Vector NodeExecStats))
-> DeviceStepStats -> f DeviceStepStats)
-> (([NodeExecStats] -> f [NodeExecStats])
-> Vector NodeExecStats -> f (Vector NodeExecStats))
-> ([NodeExecStats] -> f [NodeExecStats])
-> DeviceStepStats
-> f DeviceStepStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DeviceStepStats -> Vector NodeExecStats)
-> (DeviceStepStats -> Vector NodeExecStats -> DeviceStepStats)
-> Lens
DeviceStepStats
DeviceStepStats
(Vector NodeExecStats)
(Vector NodeExecStats)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DeviceStepStats -> Vector NodeExecStats
_DeviceStepStats'nodeStats
(\ x__ :: DeviceStepStats
x__ y__ :: Vector NodeExecStats
y__ -> DeviceStepStats
x__ {_DeviceStepStats'nodeStats :: Vector NodeExecStats
_DeviceStepStats'nodeStats = Vector NodeExecStats
y__}))
((Vector NodeExecStats -> [NodeExecStats])
-> (Vector NodeExecStats
-> [NodeExecStats] -> Vector NodeExecStats)
-> Lens
(Vector NodeExecStats)
(Vector NodeExecStats)
[NodeExecStats]
[NodeExecStats]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector NodeExecStats -> [NodeExecStats]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [NodeExecStats]
y__ -> [NodeExecStats] -> Vector NodeExecStats
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [NodeExecStats]
y__))
instance Data.ProtoLens.Field.HasField DeviceStepStats "vec'nodeStats" (Data.Vector.Vector NodeExecStats) where
fieldOf :: Proxy# "vec'nodeStats"
-> (Vector NodeExecStats -> f (Vector NodeExecStats))
-> DeviceStepStats
-> f DeviceStepStats
fieldOf _
= ((Vector NodeExecStats -> f (Vector NodeExecStats))
-> DeviceStepStats -> f DeviceStepStats)
-> ((Vector NodeExecStats -> f (Vector NodeExecStats))
-> Vector NodeExecStats -> f (Vector NodeExecStats))
-> (Vector NodeExecStats -> f (Vector NodeExecStats))
-> DeviceStepStats
-> f DeviceStepStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DeviceStepStats -> Vector NodeExecStats)
-> (DeviceStepStats -> Vector NodeExecStats -> DeviceStepStats)
-> Lens
DeviceStepStats
DeviceStepStats
(Vector NodeExecStats)
(Vector NodeExecStats)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DeviceStepStats -> Vector NodeExecStats
_DeviceStepStats'nodeStats
(\ x__ :: DeviceStepStats
x__ y__ :: Vector NodeExecStats
y__ -> DeviceStepStats
x__ {_DeviceStepStats'nodeStats :: Vector NodeExecStats
_DeviceStepStats'nodeStats = Vector NodeExecStats
y__}))
(Vector NodeExecStats -> f (Vector NodeExecStats))
-> Vector NodeExecStats -> f (Vector NodeExecStats)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeviceStepStats "threadNames" (Data.Map.Map Data.Word.Word32 Data.Text.Text) where
fieldOf :: Proxy# "threadNames"
-> (Map Word32 Text -> f (Map Word32 Text))
-> DeviceStepStats
-> f DeviceStepStats
fieldOf _
= ((Map Word32 Text -> f (Map Word32 Text))
-> DeviceStepStats -> f DeviceStepStats)
-> ((Map Word32 Text -> f (Map Word32 Text))
-> Map Word32 Text -> f (Map Word32 Text))
-> (Map Word32 Text -> f (Map Word32 Text))
-> DeviceStepStats
-> f DeviceStepStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DeviceStepStats -> Map Word32 Text)
-> (DeviceStepStats -> Map Word32 Text -> DeviceStepStats)
-> Lens
DeviceStepStats DeviceStepStats (Map Word32 Text) (Map Word32 Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DeviceStepStats -> Map Word32 Text
_DeviceStepStats'threadNames
(\ x__ :: DeviceStepStats
x__ y__ :: Map Word32 Text
y__ -> DeviceStepStats
x__ {_DeviceStepStats'threadNames :: Map Word32 Text
_DeviceStepStats'threadNames = Map Word32 Text
y__}))
(Map Word32 Text -> f (Map Word32 Text))
-> Map Word32 Text -> f (Map Word32 Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DeviceStepStats where
messageName :: Proxy DeviceStepStats -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.DeviceStepStats"
packedMessageDescriptor :: Proxy DeviceStepStats -> ByteString
packedMessageDescriptor _
= "\n\
\\SIDeviceStepStats\DC2\SYN\n\
\\ACKdevice\CAN\SOH \SOH(\tR\ACKdevice\DC28\n\
\\n\
\node_stats\CAN\STX \ETX(\v2\EM.tensorflow.NodeExecStatsR\tnodeStats\DC2O\n\
\\fthread_names\CAN\ETX \ETX(\v2,.tensorflow.DeviceStepStats.ThreadNamesEntryR\vthreadNames\SUB>\n\
\\DLEThreadNamesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\rR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy DeviceStepStats -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor DeviceStepStats)
fieldsByTag
= let
device__field_descriptor :: FieldDescriptor DeviceStepStats
device__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor DeviceStepStats Text
-> FieldDescriptor DeviceStepStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"device"
(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 DeviceStepStats DeviceStepStats Text Text
-> FieldAccessor DeviceStepStats 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 "device" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"device")) ::
Data.ProtoLens.FieldDescriptor DeviceStepStats
nodeStats__field_descriptor :: FieldDescriptor DeviceStepStats
nodeStats__field_descriptor
= String
-> FieldTypeDescriptor NodeExecStats
-> FieldAccessor DeviceStepStats NodeExecStats
-> FieldDescriptor DeviceStepStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"node_stats"
(MessageOrGroup -> FieldTypeDescriptor NodeExecStats
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor NodeExecStats)
(Packing
-> Lens' DeviceStepStats [NodeExecStats]
-> FieldAccessor DeviceStepStats NodeExecStats
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "nodeStats" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodeStats")) ::
Data.ProtoLens.FieldDescriptor DeviceStepStats
threadNames__field_descriptor :: FieldDescriptor DeviceStepStats
threadNames__field_descriptor
= String
-> FieldTypeDescriptor DeviceStepStats'ThreadNamesEntry
-> FieldAccessor DeviceStepStats DeviceStepStats'ThreadNamesEntry
-> FieldDescriptor DeviceStepStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"thread_names"
(MessageOrGroup
-> FieldTypeDescriptor DeviceStepStats'ThreadNamesEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor DeviceStepStats'ThreadNamesEntry)
(Lens' DeviceStepStats'ThreadNamesEntry Word32
-> Lens' DeviceStepStats'ThreadNamesEntry Text
-> Lens
DeviceStepStats DeviceStepStats (Map Word32 Text) (Map Word32 Text)
-> FieldAccessor DeviceStepStats DeviceStepStats'ThreadNamesEntry
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 "threadNames" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"threadNames")) ::
Data.ProtoLens.FieldDescriptor DeviceStepStats
in
[(Tag, FieldDescriptor DeviceStepStats)]
-> Map Tag (FieldDescriptor DeviceStepStats)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor DeviceStepStats
device__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor DeviceStepStats
nodeStats__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor DeviceStepStats
threadNames__field_descriptor)]
unknownFields :: LensLike' f DeviceStepStats FieldSet
unknownFields
= (DeviceStepStats -> FieldSet)
-> (DeviceStepStats -> FieldSet -> DeviceStepStats)
-> Lens' DeviceStepStats FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DeviceStepStats -> FieldSet
_DeviceStepStats'_unknownFields
(\ x__ :: DeviceStepStats
x__ y__ :: FieldSet
y__ -> DeviceStepStats
x__ {_DeviceStepStats'_unknownFields :: FieldSet
_DeviceStepStats'_unknownFields = FieldSet
y__})
defMessage :: DeviceStepStats
defMessage
= $WDeviceStepStats'_constructor :: Text
-> Vector NodeExecStats
-> Map Word32 Text
-> FieldSet
-> DeviceStepStats
DeviceStepStats'_constructor
{_DeviceStepStats'device :: Text
_DeviceStepStats'device = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_DeviceStepStats'nodeStats :: Vector NodeExecStats
_DeviceStepStats'nodeStats = Vector NodeExecStats
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_DeviceStepStats'threadNames :: Map Word32 Text
_DeviceStepStats'threadNames = Map Word32 Text
forall k a. Map k a
Data.Map.empty,
_DeviceStepStats'_unknownFields :: FieldSet
_DeviceStepStats'_unknownFields = []}
parseMessage :: Parser DeviceStepStats
parseMessage
= let
loop ::
DeviceStepStats
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NodeExecStats
-> Data.ProtoLens.Encoding.Bytes.Parser DeviceStepStats
loop :: DeviceStepStats
-> Growing Vector RealWorld NodeExecStats -> Parser DeviceStepStats
loop x :: DeviceStepStats
x mutable'nodeStats :: Growing Vector RealWorld NodeExecStats
mutable'nodeStats
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector NodeExecStats
frozen'nodeStats <- IO (Vector NodeExecStats) -> Parser (Vector NodeExecStats)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) NodeExecStats
-> IO (Vector NodeExecStats)
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 NodeExecStats
Growing Vector (PrimState IO) NodeExecStats
mutable'nodeStats)
(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]))))
DeviceStepStats -> Parser DeviceStepStats
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter DeviceStepStats DeviceStepStats FieldSet FieldSet
-> (FieldSet -> FieldSet) -> DeviceStepStats -> DeviceStepStats
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 DeviceStepStats DeviceStepStats FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
DeviceStepStats
DeviceStepStats
(Vector NodeExecStats)
(Vector NodeExecStats)
-> Vector NodeExecStats -> DeviceStepStats -> DeviceStepStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'nodeStats" a, Functor f) =>
(a -> f a) -> s -> 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'nodeStats") Vector NodeExecStats
frozen'nodeStats DeviceStepStats
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))
"device"
DeviceStepStats
-> Growing Vector RealWorld NodeExecStats -> Parser DeviceStepStats
loop
(Setter DeviceStepStats DeviceStepStats Text Text
-> Text -> DeviceStepStats -> DeviceStepStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "device" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"device") Text
y DeviceStepStats
x)
Growing Vector RealWorld NodeExecStats
mutable'nodeStats
18
-> do !NodeExecStats
y <- Parser NodeExecStats -> String -> Parser NodeExecStats
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser NodeExecStats -> Parser NodeExecStats
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 NodeExecStats
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"node_stats"
Growing Vector RealWorld NodeExecStats
v <- IO (Growing Vector RealWorld NodeExecStats)
-> Parser (Growing Vector RealWorld NodeExecStats)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) NodeExecStats
-> NodeExecStats
-> IO (Growing Vector (PrimState IO) NodeExecStats)
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 NodeExecStats
Growing Vector (PrimState IO) NodeExecStats
mutable'nodeStats NodeExecStats
y)
DeviceStepStats
-> Growing Vector RealWorld NodeExecStats -> Parser DeviceStepStats
loop DeviceStepStats
x Growing Vector RealWorld NodeExecStats
v
26
-> do !(DeviceStepStats'ThreadNamesEntry
entry :: DeviceStepStats'ThreadNamesEntry) <- Parser DeviceStepStats'ThreadNamesEntry
-> String -> Parser DeviceStepStats'ThreadNamesEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser DeviceStepStats'ThreadNamesEntry
-> Parser DeviceStepStats'ThreadNamesEntry
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 DeviceStepStats'ThreadNamesEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"thread_names"
(let
key :: Word32
key = FoldLike
Word32
DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry
Word32
Word32
-> DeviceStepStats'ThreadNamesEntry -> Word32
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") DeviceStepStats'ThreadNamesEntry
entry
value :: Text
value
= FoldLike
Text
DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry
Text
Text
-> DeviceStepStats'ThreadNamesEntry -> 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") DeviceStepStats'ThreadNamesEntry
entry
in
DeviceStepStats
-> Growing Vector RealWorld NodeExecStats -> Parser DeviceStepStats
loop
(Setter
DeviceStepStats DeviceStepStats (Map Word32 Text) (Map Word32 Text)
-> (Map Word32 Text -> Map Word32 Text)
-> DeviceStepStats
-> DeviceStepStats
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
(forall s a (f :: * -> *).
(HasField s "threadNames" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"threadNames")
(\ !Map Word32 Text
t -> Word32 -> Text -> Map Word32 Text -> Map Word32 Text
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Word32
key Text
value Map Word32 Text
t)
DeviceStepStats
x)
Growing Vector RealWorld NodeExecStats
mutable'nodeStats)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
DeviceStepStats
-> Growing Vector RealWorld NodeExecStats -> Parser DeviceStepStats
loop
(Setter DeviceStepStats DeviceStepStats FieldSet FieldSet
-> (FieldSet -> FieldSet) -> DeviceStepStats -> DeviceStepStats
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 DeviceStepStats DeviceStepStats FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) DeviceStepStats
x)
Growing Vector RealWorld NodeExecStats
mutable'nodeStats
in
Parser DeviceStepStats -> String -> Parser DeviceStepStats
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld NodeExecStats
mutable'nodeStats <- IO (Growing Vector RealWorld NodeExecStats)
-> Parser (Growing Vector RealWorld NodeExecStats)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld NodeExecStats)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
DeviceStepStats
-> Growing Vector RealWorld NodeExecStats -> Parser DeviceStepStats
loop DeviceStepStats
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld NodeExecStats
mutable'nodeStats)
"DeviceStepStats"
buildMessage :: DeviceStepStats -> Builder
buildMessage
= \ _x :: DeviceStepStats
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text DeviceStepStats DeviceStepStats Text Text
-> DeviceStepStats -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "device" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"device") DeviceStepStats
_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.<>)
((NodeExecStats -> Builder) -> Vector NodeExecStats -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: NodeExecStats
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (NodeExecStats -> ByteString) -> NodeExecStats -> 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))
NodeExecStats -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
NodeExecStats
_v))
(FoldLike
(Vector NodeExecStats)
DeviceStepStats
DeviceStepStats
(Vector NodeExecStats)
(Vector NodeExecStats)
-> DeviceStepStats -> Vector NodeExecStats
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'nodeStats" a, Functor f) =>
(a -> f a) -> s -> 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'nodeStats") DeviceStepStats
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
(((Word32, Text) -> Builder) -> [(Word32, Text)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ _v :: (Word32, Text)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder)
-> (DeviceStepStats'ThreadNamesEntry -> ByteString)
-> DeviceStepStats'ThreadNamesEntry
-> 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))
DeviceStepStats'ThreadNamesEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry
Word32
Word32
-> Word32
-> DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
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")
((Word32, Text) -> Word32
forall a b. (a, b) -> a
Prelude.fst (Word32, Text)
_v)
(Setter
DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry
Text
Text
-> Text
-> DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
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")
((Word32, Text) -> Text
forall a b. (a, b) -> b
Prelude.snd (Word32, Text)
_v)
(DeviceStepStats'ThreadNamesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
DeviceStepStats'ThreadNamesEntry)))))
(Map Word32 Text -> [(Word32, Text)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Word32 Text)
DeviceStepStats
DeviceStepStats
(Map Word32 Text)
(Map Word32 Text)
-> DeviceStepStats -> Map Word32 Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "threadNames" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"threadNames") DeviceStepStats
_x))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet DeviceStepStats DeviceStepStats FieldSet FieldSet
-> DeviceStepStats -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet DeviceStepStats DeviceStepStats FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields DeviceStepStats
_x))))
instance Control.DeepSeq.NFData DeviceStepStats where
rnf :: DeviceStepStats -> ()
rnf
= \ x__ :: DeviceStepStats
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DeviceStepStats -> FieldSet
_DeviceStepStats'_unknownFields DeviceStepStats
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DeviceStepStats -> Text
_DeviceStepStats'device DeviceStepStats
x__)
(Vector NodeExecStats -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DeviceStepStats -> Vector NodeExecStats
_DeviceStepStats'nodeStats DeviceStepStats
x__)
(Map Word32 Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (DeviceStepStats -> Map Word32 Text
_DeviceStepStats'threadNames DeviceStepStats
x__) ())))
data DeviceStepStats'ThreadNamesEntry
= DeviceStepStats'ThreadNamesEntry'_constructor {DeviceStepStats'ThreadNamesEntry -> Word32
_DeviceStepStats'ThreadNamesEntry'key :: !Data.Word.Word32,
DeviceStepStats'ThreadNamesEntry -> Text
_DeviceStepStats'ThreadNamesEntry'value :: !Data.Text.Text,
DeviceStepStats'ThreadNamesEntry -> FieldSet
_DeviceStepStats'ThreadNamesEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool
(DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool)
-> (DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool)
-> Eq DeviceStepStats'ThreadNamesEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool
$c/= :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool
== :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool
$c== :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool
Prelude.Eq, Eq DeviceStepStats'ThreadNamesEntry
Eq DeviceStepStats'ThreadNamesEntry =>
(DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Ordering)
-> (DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool)
-> (DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool)
-> (DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool)
-> (DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool)
-> (DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry)
-> (DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry)
-> Ord DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool
DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Ordering
DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
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 :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
$cmin :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
max :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
$cmax :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
>= :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool
$c>= :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool
> :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool
$c> :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool
<= :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool
$c<= :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool
< :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool
$c< :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Bool
compare :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Ordering
$ccompare :: DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry -> Ordering
$cp1Ord :: Eq DeviceStepStats'ThreadNamesEntry
Prelude.Ord)
instance Prelude.Show DeviceStepStats'ThreadNamesEntry where
showsPrec :: Int -> DeviceStepStats'ThreadNamesEntry -> ShowS
showsPrec _ __x :: DeviceStepStats'ThreadNamesEntry
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(DeviceStepStats'ThreadNamesEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DeviceStepStats'ThreadNamesEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField DeviceStepStats'ThreadNamesEntry "key" Data.Word.Word32 where
fieldOf :: Proxy# "key"
-> (Word32 -> f Word32)
-> DeviceStepStats'ThreadNamesEntry
-> f DeviceStepStats'ThreadNamesEntry
fieldOf _
= ((Word32 -> f Word32)
-> DeviceStepStats'ThreadNamesEntry
-> f DeviceStepStats'ThreadNamesEntry)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> DeviceStepStats'ThreadNamesEntry
-> f DeviceStepStats'ThreadNamesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DeviceStepStats'ThreadNamesEntry -> Word32)
-> (DeviceStepStats'ThreadNamesEntry
-> Word32 -> DeviceStepStats'ThreadNamesEntry)
-> Lens' DeviceStepStats'ThreadNamesEntry Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DeviceStepStats'ThreadNamesEntry -> Word32
_DeviceStepStats'ThreadNamesEntry'key
(\ x__ :: DeviceStepStats'ThreadNamesEntry
x__ y__ :: Word32
y__ -> DeviceStepStats'ThreadNamesEntry
x__ {_DeviceStepStats'ThreadNamesEntry'key :: Word32
_DeviceStepStats'ThreadNamesEntry'key = Word32
y__}))
(Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DeviceStepStats'ThreadNamesEntry "value" Data.Text.Text where
fieldOf :: Proxy# "value"
-> (Text -> f Text)
-> DeviceStepStats'ThreadNamesEntry
-> f DeviceStepStats'ThreadNamesEntry
fieldOf _
= ((Text -> f Text)
-> DeviceStepStats'ThreadNamesEntry
-> f DeviceStepStats'ThreadNamesEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DeviceStepStats'ThreadNamesEntry
-> f DeviceStepStats'ThreadNamesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DeviceStepStats'ThreadNamesEntry -> Text)
-> (DeviceStepStats'ThreadNamesEntry
-> Text -> DeviceStepStats'ThreadNamesEntry)
-> Lens' DeviceStepStats'ThreadNamesEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DeviceStepStats'ThreadNamesEntry -> Text
_DeviceStepStats'ThreadNamesEntry'value
(\ x__ :: DeviceStepStats'ThreadNamesEntry
x__ y__ :: Text
y__ -> DeviceStepStats'ThreadNamesEntry
x__ {_DeviceStepStats'ThreadNamesEntry'value :: Text
_DeviceStepStats'ThreadNamesEntry'value = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DeviceStepStats'ThreadNamesEntry where
messageName :: Proxy DeviceStepStats'ThreadNamesEntry -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.DeviceStepStats.ThreadNamesEntry"
packedMessageDescriptor :: Proxy DeviceStepStats'ThreadNamesEntry -> ByteString
packedMessageDescriptor _
= "\n\
\\DLEThreadNamesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\rR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy DeviceStepStats'ThreadNamesEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor DeviceStepStats'ThreadNamesEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor DeviceStepStats'ThreadNamesEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Word32
-> FieldAccessor DeviceStepStats'ThreadNamesEntry Word32
-> FieldDescriptor DeviceStepStats'ThreadNamesEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"key"
(ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(WireDefault Word32
-> Lens' DeviceStepStats'ThreadNamesEntry Word32
-> FieldAccessor DeviceStepStats'ThreadNamesEntry Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word32
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 DeviceStepStats'ThreadNamesEntry
value__field_descriptor :: FieldDescriptor DeviceStepStats'ThreadNamesEntry
value__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor DeviceStepStats'ThreadNamesEntry Text
-> FieldDescriptor DeviceStepStats'ThreadNamesEntry
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' DeviceStepStats'ThreadNamesEntry Text
-> FieldAccessor DeviceStepStats'ThreadNamesEntry 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 DeviceStepStats'ThreadNamesEntry
in
[(Tag, FieldDescriptor DeviceStepStats'ThreadNamesEntry)]
-> Map Tag (FieldDescriptor DeviceStepStats'ThreadNamesEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor DeviceStepStats'ThreadNamesEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor DeviceStepStats'ThreadNamesEntry
value__field_descriptor)]
unknownFields :: LensLike' f DeviceStepStats'ThreadNamesEntry FieldSet
unknownFields
= (DeviceStepStats'ThreadNamesEntry -> FieldSet)
-> (DeviceStepStats'ThreadNamesEntry
-> FieldSet -> DeviceStepStats'ThreadNamesEntry)
-> Lens' DeviceStepStats'ThreadNamesEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DeviceStepStats'ThreadNamesEntry -> FieldSet
_DeviceStepStats'ThreadNamesEntry'_unknownFields
(\ x__ :: DeviceStepStats'ThreadNamesEntry
x__ y__ :: FieldSet
y__
-> DeviceStepStats'ThreadNamesEntry
x__ {_DeviceStepStats'ThreadNamesEntry'_unknownFields :: FieldSet
_DeviceStepStats'ThreadNamesEntry'_unknownFields = FieldSet
y__})
defMessage :: DeviceStepStats'ThreadNamesEntry
defMessage
= $WDeviceStepStats'ThreadNamesEntry'_constructor :: Word32 -> Text -> FieldSet -> DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry'_constructor
{_DeviceStepStats'ThreadNamesEntry'key :: Word32
_DeviceStepStats'ThreadNamesEntry'key = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_DeviceStepStats'ThreadNamesEntry'value :: Text
_DeviceStepStats'ThreadNamesEntry'value = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_DeviceStepStats'ThreadNamesEntry'_unknownFields :: FieldSet
_DeviceStepStats'ThreadNamesEntry'_unknownFields = []}
parseMessage :: Parser DeviceStepStats'ThreadNamesEntry
parseMessage
= let
loop ::
DeviceStepStats'ThreadNamesEntry
-> Data.ProtoLens.Encoding.Bytes.Parser DeviceStepStats'ThreadNamesEntry
loop :: DeviceStepStats'ThreadNamesEntry
-> Parser DeviceStepStats'ThreadNamesEntry
loop x :: DeviceStepStats'ThreadNamesEntry
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]))))
DeviceStepStats'ThreadNamesEntry
-> Parser DeviceStepStats'ThreadNamesEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
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
DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) DeviceStepStats'ThreadNamesEntry
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> do Word32
y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"key"
DeviceStepStats'ThreadNamesEntry
-> Parser DeviceStepStats'ThreadNamesEntry
loop (Setter
DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry
Word32
Word32
-> Word32
-> DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
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") Word32
y DeviceStepStats'ThreadNamesEntry
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"
DeviceStepStats'ThreadNamesEntry
-> Parser DeviceStepStats'ThreadNamesEntry
loop (Setter
DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry
Text
Text
-> Text
-> DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
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 DeviceStepStats'ThreadNamesEntry
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
DeviceStepStats'ThreadNamesEntry
-> Parser DeviceStepStats'ThreadNamesEntry
loop
(Setter
DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> DeviceStepStats'ThreadNamesEntry
-> DeviceStepStats'ThreadNamesEntry
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
DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) DeviceStepStats'ThreadNamesEntry
x)
in
Parser DeviceStepStats'ThreadNamesEntry
-> String -> Parser DeviceStepStats'ThreadNamesEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do DeviceStepStats'ThreadNamesEntry
-> Parser DeviceStepStats'ThreadNamesEntry
loop DeviceStepStats'ThreadNamesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "ThreadNamesEntry"
buildMessage :: DeviceStepStats'ThreadNamesEntry -> Builder
buildMessage
= \ _x :: DeviceStepStats'ThreadNamesEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Word32
_v = FoldLike
Word32
DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry
Word32
Word32
-> DeviceStepStats'ThreadNamesEntry -> Word32
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") DeviceStepStats'ThreadNamesEntry
_x
in
if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
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) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry
Text
Text
-> DeviceStepStats'ThreadNamesEntry -> 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") DeviceStepStats'ThreadNamesEntry
_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
DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry
FieldSet
FieldSet
-> DeviceStepStats'ThreadNamesEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
DeviceStepStats'ThreadNamesEntry
DeviceStepStats'ThreadNamesEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields DeviceStepStats'ThreadNamesEntry
_x)))
instance Control.DeepSeq.NFData DeviceStepStats'ThreadNamesEntry where
rnf :: DeviceStepStats'ThreadNamesEntry -> ()
rnf
= \ x__ :: DeviceStepStats'ThreadNamesEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DeviceStepStats'ThreadNamesEntry -> FieldSet
_DeviceStepStats'ThreadNamesEntry'_unknownFields DeviceStepStats'ThreadNamesEntry
x__)
(Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DeviceStepStats'ThreadNamesEntry -> Word32
_DeviceStepStats'ThreadNamesEntry'key DeviceStepStats'ThreadNamesEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DeviceStepStats'ThreadNamesEntry -> Text
_DeviceStepStats'ThreadNamesEntry'value DeviceStepStats'ThreadNamesEntry
x__) ()))
data MemoryStats
= MemoryStats'_constructor {MemoryStats -> Int64
_MemoryStats'tempMemorySize :: !Data.Int.Int64,
MemoryStats -> Int64
_MemoryStats'persistentMemorySize :: !Data.Int.Int64,
MemoryStats -> Vector Int64
_MemoryStats'persistentTensorAllocIds :: !(Data.Vector.Unboxed.Vector Data.Int.Int64),
MemoryStats -> Int64
_MemoryStats'deviceTempMemorySize :: !Data.Int.Int64,
MemoryStats -> Int64
_MemoryStats'devicePersistentMemorySize :: !Data.Int.Int64,
MemoryStats -> Vector Int64
_MemoryStats'devicePersistentTensorAllocIds :: !(Data.Vector.Unboxed.Vector Data.Int.Int64),
MemoryStats -> FieldSet
_MemoryStats'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MemoryStats -> MemoryStats -> Bool
(MemoryStats -> MemoryStats -> Bool)
-> (MemoryStats -> MemoryStats -> Bool) -> Eq MemoryStats
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MemoryStats -> MemoryStats -> Bool
$c/= :: MemoryStats -> MemoryStats -> Bool
== :: MemoryStats -> MemoryStats -> Bool
$c== :: MemoryStats -> MemoryStats -> Bool
Prelude.Eq, Eq MemoryStats
Eq MemoryStats =>
(MemoryStats -> MemoryStats -> Ordering)
-> (MemoryStats -> MemoryStats -> Bool)
-> (MemoryStats -> MemoryStats -> Bool)
-> (MemoryStats -> MemoryStats -> Bool)
-> (MemoryStats -> MemoryStats -> Bool)
-> (MemoryStats -> MemoryStats -> MemoryStats)
-> (MemoryStats -> MemoryStats -> MemoryStats)
-> Ord MemoryStats
MemoryStats -> MemoryStats -> Bool
MemoryStats -> MemoryStats -> Ordering
MemoryStats -> MemoryStats -> MemoryStats
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 :: MemoryStats -> MemoryStats -> MemoryStats
$cmin :: MemoryStats -> MemoryStats -> MemoryStats
max :: MemoryStats -> MemoryStats -> MemoryStats
$cmax :: MemoryStats -> MemoryStats -> MemoryStats
>= :: MemoryStats -> MemoryStats -> Bool
$c>= :: MemoryStats -> MemoryStats -> Bool
> :: MemoryStats -> MemoryStats -> Bool
$c> :: MemoryStats -> MemoryStats -> Bool
<= :: MemoryStats -> MemoryStats -> Bool
$c<= :: MemoryStats -> MemoryStats -> Bool
< :: MemoryStats -> MemoryStats -> Bool
$c< :: MemoryStats -> MemoryStats -> Bool
compare :: MemoryStats -> MemoryStats -> Ordering
$ccompare :: MemoryStats -> MemoryStats -> Ordering
$cp1Ord :: Eq MemoryStats
Prelude.Ord)
instance Prelude.Show MemoryStats where
showsPrec :: Int -> MemoryStats -> ShowS
showsPrec _ __x :: MemoryStats
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(MemoryStats -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemoryStats
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MemoryStats "tempMemorySize" Data.Int.Int64 where
fieldOf :: Proxy# "tempMemorySize"
-> (Int64 -> f Int64) -> MemoryStats -> f MemoryStats
fieldOf _
= ((Int64 -> f Int64) -> MemoryStats -> f MemoryStats)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MemoryStats
-> f MemoryStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryStats -> Int64)
-> (MemoryStats -> Int64 -> MemoryStats)
-> Lens MemoryStats MemoryStats Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryStats -> Int64
_MemoryStats'tempMemorySize
(\ x__ :: MemoryStats
x__ y__ :: Int64
y__ -> MemoryStats
x__ {_MemoryStats'tempMemorySize :: Int64
_MemoryStats'tempMemorySize = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryStats "persistentMemorySize" Data.Int.Int64 where
fieldOf :: Proxy# "persistentMemorySize"
-> (Int64 -> f Int64) -> MemoryStats -> f MemoryStats
fieldOf _
= ((Int64 -> f Int64) -> MemoryStats -> f MemoryStats)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MemoryStats
-> f MemoryStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryStats -> Int64)
-> (MemoryStats -> Int64 -> MemoryStats)
-> Lens MemoryStats MemoryStats Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryStats -> Int64
_MemoryStats'persistentMemorySize
(\ x__ :: MemoryStats
x__ y__ :: Int64
y__ -> MemoryStats
x__ {_MemoryStats'persistentMemorySize :: Int64
_MemoryStats'persistentMemorySize = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryStats "persistentTensorAllocIds" [Data.Int.Int64] where
fieldOf :: Proxy# "persistentTensorAllocIds"
-> ([Int64] -> f [Int64]) -> MemoryStats -> f MemoryStats
fieldOf _
= ((Vector Int64 -> f (Vector Int64))
-> MemoryStats -> f MemoryStats)
-> (([Int64] -> f [Int64]) -> Vector Int64 -> f (Vector Int64))
-> ([Int64] -> f [Int64])
-> MemoryStats
-> f MemoryStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryStats -> Vector Int64)
-> (MemoryStats -> Vector Int64 -> MemoryStats)
-> Lens MemoryStats MemoryStats (Vector Int64) (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryStats -> Vector Int64
_MemoryStats'persistentTensorAllocIds
(\ x__ :: MemoryStats
x__ y__ :: Vector Int64
y__ -> MemoryStats
x__ {_MemoryStats'persistentTensorAllocIds :: Vector Int64
_MemoryStats'persistentTensorAllocIds = Vector Int64
y__}))
((Vector Int64 -> [Int64])
-> (Vector Int64 -> [Int64] -> Vector Int64)
-> Lens (Vector Int64) (Vector Int64) [Int64] [Int64]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Int64 -> [Int64]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Int64]
y__ -> [Int64] -> Vector Int64
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int64]
y__))
instance Data.ProtoLens.Field.HasField MemoryStats "vec'persistentTensorAllocIds" (Data.Vector.Unboxed.Vector Data.Int.Int64) where
fieldOf :: Proxy# "vec'persistentTensorAllocIds"
-> (Vector Int64 -> f (Vector Int64))
-> MemoryStats
-> f MemoryStats
fieldOf _
= ((Vector Int64 -> f (Vector Int64))
-> MemoryStats -> f MemoryStats)
-> ((Vector Int64 -> f (Vector Int64))
-> Vector Int64 -> f (Vector Int64))
-> (Vector Int64 -> f (Vector Int64))
-> MemoryStats
-> f MemoryStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryStats -> Vector Int64)
-> (MemoryStats -> Vector Int64 -> MemoryStats)
-> Lens MemoryStats MemoryStats (Vector Int64) (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryStats -> Vector Int64
_MemoryStats'persistentTensorAllocIds
(\ x__ :: MemoryStats
x__ y__ :: Vector Int64
y__ -> MemoryStats
x__ {_MemoryStats'persistentTensorAllocIds :: Vector Int64
_MemoryStats'persistentTensorAllocIds = Vector Int64
y__}))
(Vector Int64 -> f (Vector Int64))
-> Vector Int64 -> f (Vector Int64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryStats "deviceTempMemorySize" Data.Int.Int64 where
fieldOf :: Proxy# "deviceTempMemorySize"
-> (Int64 -> f Int64) -> MemoryStats -> f MemoryStats
fieldOf _
= ((Int64 -> f Int64) -> MemoryStats -> f MemoryStats)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MemoryStats
-> f MemoryStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryStats -> Int64)
-> (MemoryStats -> Int64 -> MemoryStats)
-> Lens MemoryStats MemoryStats Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryStats -> Int64
_MemoryStats'deviceTempMemorySize
(\ x__ :: MemoryStats
x__ y__ :: Int64
y__ -> MemoryStats
x__ {_MemoryStats'deviceTempMemorySize :: Int64
_MemoryStats'deviceTempMemorySize = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryStats "devicePersistentMemorySize" Data.Int.Int64 where
fieldOf :: Proxy# "devicePersistentMemorySize"
-> (Int64 -> f Int64) -> MemoryStats -> f MemoryStats
fieldOf _
= ((Int64 -> f Int64) -> MemoryStats -> f MemoryStats)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MemoryStats
-> f MemoryStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryStats -> Int64)
-> (MemoryStats -> Int64 -> MemoryStats)
-> Lens MemoryStats MemoryStats Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryStats -> Int64
_MemoryStats'devicePersistentMemorySize
(\ x__ :: MemoryStats
x__ y__ :: Int64
y__ -> MemoryStats
x__ {_MemoryStats'devicePersistentMemorySize :: Int64
_MemoryStats'devicePersistentMemorySize = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryStats "devicePersistentTensorAllocIds" [Data.Int.Int64] where
fieldOf :: Proxy# "devicePersistentTensorAllocIds"
-> ([Int64] -> f [Int64]) -> MemoryStats -> f MemoryStats
fieldOf _
= ((Vector Int64 -> f (Vector Int64))
-> MemoryStats -> f MemoryStats)
-> (([Int64] -> f [Int64]) -> Vector Int64 -> f (Vector Int64))
-> ([Int64] -> f [Int64])
-> MemoryStats
-> f MemoryStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryStats -> Vector Int64)
-> (MemoryStats -> Vector Int64 -> MemoryStats)
-> Lens MemoryStats MemoryStats (Vector Int64) (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryStats -> Vector Int64
_MemoryStats'devicePersistentTensorAllocIds
(\ x__ :: MemoryStats
x__ y__ :: Vector Int64
y__
-> MemoryStats
x__ {_MemoryStats'devicePersistentTensorAllocIds :: Vector Int64
_MemoryStats'devicePersistentTensorAllocIds = Vector Int64
y__}))
((Vector Int64 -> [Int64])
-> (Vector Int64 -> [Int64] -> Vector Int64)
-> Lens (Vector Int64) (Vector Int64) [Int64] [Int64]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Int64 -> [Int64]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Int64]
y__ -> [Int64] -> Vector Int64
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int64]
y__))
instance Data.ProtoLens.Field.HasField MemoryStats "vec'devicePersistentTensorAllocIds" (Data.Vector.Unboxed.Vector Data.Int.Int64) where
fieldOf :: Proxy# "vec'devicePersistentTensorAllocIds"
-> (Vector Int64 -> f (Vector Int64))
-> MemoryStats
-> f MemoryStats
fieldOf _
= ((Vector Int64 -> f (Vector Int64))
-> MemoryStats -> f MemoryStats)
-> ((Vector Int64 -> f (Vector Int64))
-> Vector Int64 -> f (Vector Int64))
-> (Vector Int64 -> f (Vector Int64))
-> MemoryStats
-> f MemoryStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryStats -> Vector Int64)
-> (MemoryStats -> Vector Int64 -> MemoryStats)
-> Lens MemoryStats MemoryStats (Vector Int64) (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryStats -> Vector Int64
_MemoryStats'devicePersistentTensorAllocIds
(\ x__ :: MemoryStats
x__ y__ :: Vector Int64
y__
-> MemoryStats
x__ {_MemoryStats'devicePersistentTensorAllocIds :: Vector Int64
_MemoryStats'devicePersistentTensorAllocIds = Vector Int64
y__}))
(Vector Int64 -> f (Vector Int64))
-> Vector Int64 -> f (Vector Int64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemoryStats where
messageName :: Proxy MemoryStats -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.MemoryStats"
packedMessageDescriptor :: Proxy MemoryStats -> ByteString
packedMessageDescriptor _
= "\n\
\\vMemoryStats\DC2(\n\
\\DLEtemp_memory_size\CAN\SOH \SOH(\ETXR\SOtempMemorySize\DC24\n\
\\SYNpersistent_memory_size\CAN\ETX \SOH(\ETXR\DC4persistentMemorySize\DC2=\n\
\\ESCpersistent_tensor_alloc_ids\CAN\ENQ \ETX(\ETXR\CANpersistentTensorAllocIds\DC29\n\
\\ETBdevice_temp_memory_size\CAN\STX \SOH(\ETXR\DC4deviceTempMemorySizeB\STX\CAN\SOH\DC2E\n\
\\GSdevice_persistent_memory_size\CAN\EOT \SOH(\ETXR\SUBdevicePersistentMemorySizeB\STX\CAN\SOH\DC2N\n\
\\"device_persistent_tensor_alloc_ids\CAN\ACK \ETX(\ETXR\RSdevicePersistentTensorAllocIdsB\STX\CAN\SOH"
packedFileDescriptor :: Proxy MemoryStats -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MemoryStats)
fieldsByTag
= let
tempMemorySize__field_descriptor :: FieldDescriptor MemoryStats
tempMemorySize__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryStats Int64
-> FieldDescriptor MemoryStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"temp_memory_size"
(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 MemoryStats MemoryStats Int64 Int64
-> FieldAccessor MemoryStats 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 "tempMemorySize" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tempMemorySize")) ::
Data.ProtoLens.FieldDescriptor MemoryStats
persistentMemorySize__field_descriptor :: FieldDescriptor MemoryStats
persistentMemorySize__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryStats Int64
-> FieldDescriptor MemoryStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"persistent_memory_size"
(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 MemoryStats MemoryStats Int64 Int64
-> FieldAccessor MemoryStats 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 "persistentMemorySize" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"persistentMemorySize")) ::
Data.ProtoLens.FieldDescriptor MemoryStats
persistentTensorAllocIds__field_descriptor :: FieldDescriptor MemoryStats
persistentTensorAllocIds__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryStats Int64
-> FieldDescriptor MemoryStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"persistent_tensor_alloc_ids"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Packing
-> Lens' MemoryStats [Int64] -> FieldAccessor MemoryStats Int64
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed
(forall s a (f :: * -> *).
(HasField s "persistentTensorAllocIds" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"persistentTensorAllocIds")) ::
Data.ProtoLens.FieldDescriptor MemoryStats
deviceTempMemorySize__field_descriptor :: FieldDescriptor MemoryStats
deviceTempMemorySize__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryStats Int64
-> FieldDescriptor MemoryStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"device_temp_memory_size"
(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 MemoryStats MemoryStats Int64 Int64
-> FieldAccessor MemoryStats 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 "deviceTempMemorySize" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deviceTempMemorySize")) ::
Data.ProtoLens.FieldDescriptor MemoryStats
devicePersistentMemorySize__field_descriptor :: FieldDescriptor MemoryStats
devicePersistentMemorySize__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryStats Int64
-> FieldDescriptor MemoryStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"device_persistent_memory_size"
(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 MemoryStats MemoryStats Int64 Int64
-> FieldAccessor MemoryStats 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 "devicePersistentMemorySize" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"devicePersistentMemorySize")) ::
Data.ProtoLens.FieldDescriptor MemoryStats
devicePersistentTensorAllocIds__field_descriptor :: FieldDescriptor MemoryStats
devicePersistentTensorAllocIds__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryStats Int64
-> FieldDescriptor MemoryStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"device_persistent_tensor_alloc_ids"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Packing
-> Lens' MemoryStats [Int64] -> FieldAccessor MemoryStats Int64
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed
(forall s a (f :: * -> *).
(HasField s "devicePersistentTensorAllocIds" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"devicePersistentTensorAllocIds")) ::
Data.ProtoLens.FieldDescriptor MemoryStats
in
[(Tag, FieldDescriptor MemoryStats)]
-> Map Tag (FieldDescriptor MemoryStats)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MemoryStats
tempMemorySize__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor MemoryStats
persistentMemorySize__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor MemoryStats
persistentTensorAllocIds__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MemoryStats
deviceTempMemorySize__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4,
FieldDescriptor MemoryStats
devicePersistentMemorySize__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6,
FieldDescriptor MemoryStats
devicePersistentTensorAllocIds__field_descriptor)]
unknownFields :: LensLike' f MemoryStats FieldSet
unknownFields
= (MemoryStats -> FieldSet)
-> (MemoryStats -> FieldSet -> MemoryStats)
-> Lens' MemoryStats FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryStats -> FieldSet
_MemoryStats'_unknownFields
(\ x__ :: MemoryStats
x__ y__ :: FieldSet
y__ -> MemoryStats
x__ {_MemoryStats'_unknownFields :: FieldSet
_MemoryStats'_unknownFields = FieldSet
y__})
defMessage :: MemoryStats
defMessage
= $WMemoryStats'_constructor :: Int64
-> Int64
-> Vector Int64
-> Int64
-> Int64
-> Vector Int64
-> FieldSet
-> MemoryStats
MemoryStats'_constructor
{_MemoryStats'tempMemorySize :: Int64
_MemoryStats'tempMemorySize = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryStats'persistentMemorySize :: Int64
_MemoryStats'persistentMemorySize = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryStats'persistentTensorAllocIds :: Vector Int64
_MemoryStats'persistentTensorAllocIds = Vector Int64
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_MemoryStats'deviceTempMemorySize :: Int64
_MemoryStats'deviceTempMemorySize = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryStats'devicePersistentMemorySize :: Int64
_MemoryStats'devicePersistentMemorySize = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryStats'devicePersistentTensorAllocIds :: Vector Int64
_MemoryStats'devicePersistentTensorAllocIds = Vector Int64
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_MemoryStats'_unknownFields :: FieldSet
_MemoryStats'_unknownFields = []}
parseMessage :: Parser MemoryStats
parseMessage
= let
loop ::
MemoryStats
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int64
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int64
-> Data.ProtoLens.Encoding.Bytes.Parser MemoryStats
loop :: MemoryStats
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int64
-> Parser MemoryStats
loop
x :: MemoryStats
x
mutable'devicePersistentTensorAllocIds :: Growing Vector RealWorld Int64
mutable'devicePersistentTensorAllocIds
mutable'persistentTensorAllocIds :: Growing Vector RealWorld Int64
mutable'persistentTensorAllocIds
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Int64
frozen'devicePersistentTensorAllocIds <- IO (Vector Int64) -> Parser (Vector Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Int64 -> IO (Vector Int64)
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 Int64
Growing Vector (PrimState IO) Int64
mutable'devicePersistentTensorAllocIds)
Vector Int64
frozen'persistentTensorAllocIds <- IO (Vector Int64) -> Parser (Vector Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Int64 -> IO (Vector Int64)
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 Int64
Growing Vector (PrimState IO) Int64
mutable'persistentTensorAllocIds)
(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]))))
MemoryStats -> Parser MemoryStats
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter MemoryStats MemoryStats FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MemoryStats -> MemoryStats
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 MemoryStats MemoryStats FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter MemoryStats MemoryStats (Vector Int64) (Vector Int64)
-> Vector Int64 -> MemoryStats -> MemoryStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'devicePersistentTensorAllocIds" a, Functor f) =>
(a -> f a) -> s -> 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'devicePersistentTensorAllocIds")
Vector Int64
frozen'devicePersistentTensorAllocIds
(Setter MemoryStats MemoryStats (Vector Int64) (Vector Int64)
-> Vector Int64 -> MemoryStats -> MemoryStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'persistentTensorAllocIds" a, Functor f) =>
(a -> f a) -> s -> 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'persistentTensorAllocIds")
Vector Int64
frozen'persistentTensorAllocIds
MemoryStats
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)
"temp_memory_size"
MemoryStats
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int64
-> Parser MemoryStats
loop
(Setter MemoryStats MemoryStats Int64 Int64
-> Int64 -> MemoryStats -> MemoryStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "tempMemorySize" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tempMemorySize") Int64
y MemoryStats
x)
Growing Vector RealWorld Int64
mutable'devicePersistentTensorAllocIds
Growing Vector RealWorld Int64
mutable'persistentTensorAllocIds
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)
"persistent_memory_size"
MemoryStats
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int64
-> Parser MemoryStats
loop
(Setter MemoryStats MemoryStats Int64 Int64
-> Int64 -> MemoryStats -> MemoryStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "persistentMemorySize" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"persistentMemorySize") Int64
y MemoryStats
x)
Growing Vector RealWorld Int64
mutable'devicePersistentTensorAllocIds
Growing Vector RealWorld Int64
mutable'persistentTensorAllocIds
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)
"persistent_tensor_alloc_ids"
Growing Vector RealWorld Int64
v <- IO (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Int64
-> Int64 -> IO (Growing Vector (PrimState IO) Int64)
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 Int64
Growing Vector (PrimState IO) Int64
mutable'persistentTensorAllocIds Int64
y)
MemoryStats
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int64
-> Parser MemoryStats
loop MemoryStats
x Growing Vector RealWorld Int64
mutable'devicePersistentTensorAllocIds Growing Vector RealWorld Int64
v
42
-> do Growing Vector RealWorld Int64
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
((let
ploop :: Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop qs :: Growing v RealWorld a
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld a -> Parser (Growing v RealWorld a)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld a
qs
else
do !a
q <- Parser a -> String -> Parser a
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> a) -> Parser Word64 -> Parser a
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> a
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"persistent_tensor_alloc_ids"
Growing v RealWorld a
qs' <- IO (Growing v RealWorld a) -> Parser (Growing v RealWorld a)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) a -> a -> IO (Growing v (PrimState IO) a)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing v RealWorld a
Growing v (PrimState IO) a
qs a
q)
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop Growing v RealWorld a
qs'
in forall a (v :: * -> *).
(Num a, Vector v a) =>
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop)
Growing Vector RealWorld Int64
mutable'persistentTensorAllocIds)
MemoryStats
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int64
-> Parser MemoryStats
loop MemoryStats
x Growing Vector RealWorld Int64
mutable'devicePersistentTensorAllocIds Growing Vector RealWorld Int64
y
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)
"device_temp_memory_size"
MemoryStats
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int64
-> Parser MemoryStats
loop
(Setter MemoryStats MemoryStats Int64 Int64
-> Int64 -> MemoryStats -> MemoryStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "deviceTempMemorySize" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deviceTempMemorySize") Int64
y MemoryStats
x)
Growing Vector RealWorld Int64
mutable'devicePersistentTensorAllocIds
Growing Vector RealWorld Int64
mutable'persistentTensorAllocIds
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)
"device_persistent_memory_size"
MemoryStats
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int64
-> Parser MemoryStats
loop
(Setter MemoryStats MemoryStats Int64 Int64
-> Int64 -> MemoryStats -> MemoryStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "devicePersistentMemorySize" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"devicePersistentMemorySize") Int64
y MemoryStats
x)
Growing Vector RealWorld Int64
mutable'devicePersistentTensorAllocIds
Growing Vector RealWorld Int64
mutable'persistentTensorAllocIds
48
-> 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)
"device_persistent_tensor_alloc_ids"
Growing Vector RealWorld Int64
v <- IO (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Int64
-> Int64 -> IO (Growing Vector (PrimState IO) Int64)
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 Int64
Growing Vector (PrimState IO) Int64
mutable'devicePersistentTensorAllocIds Int64
y)
MemoryStats
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int64
-> Parser MemoryStats
loop MemoryStats
x Growing Vector RealWorld Int64
v Growing Vector RealWorld Int64
mutable'persistentTensorAllocIds
50
-> do Growing Vector RealWorld Int64
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
((let
ploop :: Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop qs :: Growing v RealWorld a
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld a -> Parser (Growing v RealWorld a)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld a
qs
else
do !a
q <- Parser a -> String -> Parser a
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> a) -> Parser Word64 -> Parser a
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> a
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"device_persistent_tensor_alloc_ids"
Growing v RealWorld a
qs' <- IO (Growing v RealWorld a) -> Parser (Growing v RealWorld a)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) a -> a -> IO (Growing v (PrimState IO) a)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing v RealWorld a
Growing v (PrimState IO) a
qs a
q)
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop Growing v RealWorld a
qs'
in forall a (v :: * -> *).
(Num a, Vector v a) =>
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop)
Growing Vector RealWorld Int64
mutable'devicePersistentTensorAllocIds)
MemoryStats
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int64
-> Parser MemoryStats
loop MemoryStats
x Growing Vector RealWorld Int64
y Growing Vector RealWorld Int64
mutable'persistentTensorAllocIds
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MemoryStats
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int64
-> Parser MemoryStats
loop
(Setter MemoryStats MemoryStats FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MemoryStats -> MemoryStats
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 MemoryStats MemoryStats FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MemoryStats
x)
Growing Vector RealWorld Int64
mutable'devicePersistentTensorAllocIds
Growing Vector RealWorld Int64
mutable'persistentTensorAllocIds
in
Parser MemoryStats -> String -> Parser MemoryStats
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Int64
mutable'devicePersistentTensorAllocIds <- IO (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Int64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Int64
mutable'persistentTensorAllocIds <- IO (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Int64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
MemoryStats
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int64
-> Parser MemoryStats
loop
MemoryStats
forall msg. Message msg => msg
Data.ProtoLens.defMessage
Growing Vector RealWorld Int64
mutable'devicePersistentTensorAllocIds
Growing Vector RealWorld Int64
mutable'persistentTensorAllocIds)
"MemoryStats"
buildMessage :: MemoryStats -> Builder
buildMessage
= \ _x :: MemoryStats
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 MemoryStats MemoryStats Int64 Int64
-> MemoryStats -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "tempMemorySize" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tempMemorySize") MemoryStats
_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 MemoryStats MemoryStats Int64 Int64
-> MemoryStats -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "persistentMemorySize" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"persistentMemorySize") MemoryStats
_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
p :: Vector Int64
p = FoldLike
(Vector Int64)
MemoryStats
MemoryStats
(Vector Int64)
(Vector Int64)
-> MemoryStats -> Vector Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'persistentTensorAllocIds" a, Functor f) =>
(a -> f a) -> s -> 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'persistentTensorAllocIds") MemoryStats
_x
in
if Vector Int64 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Int64
p then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
(Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
((Int64 -> Builder) -> Vector Int64 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((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)
Vector Int64
p))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 MemoryStats MemoryStats Int64 Int64
-> MemoryStats -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "deviceTempMemorySize" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deviceTempMemorySize") MemoryStats
_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 :: Int64
_v
= FoldLike Int64 MemoryStats MemoryStats Int64 Int64
-> MemoryStats -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "devicePersistentMemorySize" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"devicePersistentMemorySize") MemoryStats
_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.<>)
(let
p :: Vector Int64
p = FoldLike
(Vector Int64)
MemoryStats
MemoryStats
(Vector Int64)
(Vector Int64)
-> MemoryStats -> Vector Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'devicePersistentTensorAllocIds" a, Functor f) =>
(a -> f a) -> s -> 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'devicePersistentTensorAllocIds")
MemoryStats
_x
in
if Vector Int64 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Int64
p then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
(Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
((Int64 -> Builder) -> Vector Int64 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((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)
Vector Int64
p))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet MemoryStats MemoryStats FieldSet FieldSet
-> MemoryStats -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet MemoryStats MemoryStats FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MemoryStats
_x)))))))
instance Control.DeepSeq.NFData MemoryStats where
rnf :: MemoryStats -> ()
rnf
= \ x__ :: MemoryStats
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryStats -> FieldSet
_MemoryStats'_unknownFields MemoryStats
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryStats -> Int64
_MemoryStats'tempMemorySize MemoryStats
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryStats -> Int64
_MemoryStats'persistentMemorySize MemoryStats
x__)
(Vector Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryStats -> Vector Int64
_MemoryStats'persistentTensorAllocIds MemoryStats
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryStats -> Int64
_MemoryStats'deviceTempMemorySize MemoryStats
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryStats -> Int64
_MemoryStats'devicePersistentMemorySize MemoryStats
x__)
(Vector Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryStats -> Vector Int64
_MemoryStats'devicePersistentTensorAllocIds MemoryStats
x__) ()))))))
data NodeExecStats
= NodeExecStats'_constructor {NodeExecStats -> Text
_NodeExecStats'nodeName :: !Data.Text.Text,
NodeExecStats -> Int64
_NodeExecStats'allStartMicros :: !Data.Int.Int64,
NodeExecStats -> Int64
_NodeExecStats'opStartRelMicros :: !Data.Int.Int64,
NodeExecStats -> Int64
_NodeExecStats'opEndRelMicros :: !Data.Int.Int64,
NodeExecStats -> Int64
_NodeExecStats'allEndRelMicros :: !Data.Int.Int64,
NodeExecStats -> Vector AllocatorMemoryUsed
_NodeExecStats'memory :: !(Data.Vector.Vector AllocatorMemoryUsed),
NodeExecStats -> Vector NodeOutput
_NodeExecStats'output :: !(Data.Vector.Vector NodeOutput),
NodeExecStats -> Text
_NodeExecStats'timelineLabel :: !Data.Text.Text,
NodeExecStats -> Int64
_NodeExecStats'scheduledMicros :: !Data.Int.Int64,
NodeExecStats -> Word32
_NodeExecStats'threadId :: !Data.Word.Word32,
NodeExecStats -> Vector AllocationDescription
_NodeExecStats'referencedTensor :: !(Data.Vector.Vector Proto.Tensorflow.Core.Framework.AllocationDescription.AllocationDescription),
NodeExecStats -> Maybe MemoryStats
_NodeExecStats'memoryStats :: !(Prelude.Maybe MemoryStats),
NodeExecStats -> Int64
_NodeExecStats'allStartNanos :: !Data.Int.Int64,
NodeExecStats -> Int64
_NodeExecStats'opStartRelNanos :: !Data.Int.Int64,
NodeExecStats -> Int64
_NodeExecStats'opEndRelNanos :: !Data.Int.Int64,
NodeExecStats -> Int64
_NodeExecStats'allEndRelNanos :: !Data.Int.Int64,
NodeExecStats -> Int64
_NodeExecStats'scheduledNanos :: !Data.Int.Int64,
NodeExecStats -> FieldSet
_NodeExecStats'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (NodeExecStats -> NodeExecStats -> Bool
(NodeExecStats -> NodeExecStats -> Bool)
-> (NodeExecStats -> NodeExecStats -> Bool) -> Eq NodeExecStats
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: NodeExecStats -> NodeExecStats -> Bool
$c/= :: NodeExecStats -> NodeExecStats -> Bool
== :: NodeExecStats -> NodeExecStats -> Bool
$c== :: NodeExecStats -> NodeExecStats -> Bool
Prelude.Eq, Eq NodeExecStats
Eq NodeExecStats =>
(NodeExecStats -> NodeExecStats -> Ordering)
-> (NodeExecStats -> NodeExecStats -> Bool)
-> (NodeExecStats -> NodeExecStats -> Bool)
-> (NodeExecStats -> NodeExecStats -> Bool)
-> (NodeExecStats -> NodeExecStats -> Bool)
-> (NodeExecStats -> NodeExecStats -> NodeExecStats)
-> (NodeExecStats -> NodeExecStats -> NodeExecStats)
-> Ord NodeExecStats
NodeExecStats -> NodeExecStats -> Bool
NodeExecStats -> NodeExecStats -> Ordering
NodeExecStats -> NodeExecStats -> NodeExecStats
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 :: NodeExecStats -> NodeExecStats -> NodeExecStats
$cmin :: NodeExecStats -> NodeExecStats -> NodeExecStats
max :: NodeExecStats -> NodeExecStats -> NodeExecStats
$cmax :: NodeExecStats -> NodeExecStats -> NodeExecStats
>= :: NodeExecStats -> NodeExecStats -> Bool
$c>= :: NodeExecStats -> NodeExecStats -> Bool
> :: NodeExecStats -> NodeExecStats -> Bool
$c> :: NodeExecStats -> NodeExecStats -> Bool
<= :: NodeExecStats -> NodeExecStats -> Bool
$c<= :: NodeExecStats -> NodeExecStats -> Bool
< :: NodeExecStats -> NodeExecStats -> Bool
$c< :: NodeExecStats -> NodeExecStats -> Bool
compare :: NodeExecStats -> NodeExecStats -> Ordering
$ccompare :: NodeExecStats -> NodeExecStats -> Ordering
$cp1Ord :: Eq NodeExecStats
Prelude.Ord)
instance Prelude.Show NodeExecStats where
showsPrec :: Int -> NodeExecStats -> ShowS
showsPrec _ __x :: NodeExecStats
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(NodeExecStats -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NodeExecStats
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField NodeExecStats "nodeName" Data.Text.Text where
fieldOf :: Proxy# "nodeName"
-> (Text -> f Text) -> NodeExecStats -> f NodeExecStats
fieldOf _
= ((Text -> f Text) -> NodeExecStats -> f NodeExecStats)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Text)
-> (NodeExecStats -> Text -> NodeExecStats)
-> Lens NodeExecStats NodeExecStats Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Text
_NodeExecStats'nodeName
(\ x__ :: NodeExecStats
x__ y__ :: Text
y__ -> NodeExecStats
x__ {_NodeExecStats'nodeName :: Text
_NodeExecStats'nodeName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "allStartMicros" Data.Int.Int64 where
fieldOf :: Proxy# "allStartMicros"
-> (Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats
fieldOf _
= ((Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Int64)
-> (NodeExecStats -> Int64 -> NodeExecStats)
-> Lens NodeExecStats NodeExecStats Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Int64
_NodeExecStats'allStartMicros
(\ x__ :: NodeExecStats
x__ y__ :: Int64
y__ -> NodeExecStats
x__ {_NodeExecStats'allStartMicros :: Int64
_NodeExecStats'allStartMicros = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "opStartRelMicros" Data.Int.Int64 where
fieldOf :: Proxy# "opStartRelMicros"
-> (Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats
fieldOf _
= ((Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Int64)
-> (NodeExecStats -> Int64 -> NodeExecStats)
-> Lens NodeExecStats NodeExecStats Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Int64
_NodeExecStats'opStartRelMicros
(\ x__ :: NodeExecStats
x__ y__ :: Int64
y__ -> NodeExecStats
x__ {_NodeExecStats'opStartRelMicros :: Int64
_NodeExecStats'opStartRelMicros = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "opEndRelMicros" Data.Int.Int64 where
fieldOf :: Proxy# "opEndRelMicros"
-> (Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats
fieldOf _
= ((Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Int64)
-> (NodeExecStats -> Int64 -> NodeExecStats)
-> Lens NodeExecStats NodeExecStats Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Int64
_NodeExecStats'opEndRelMicros
(\ x__ :: NodeExecStats
x__ y__ :: Int64
y__ -> NodeExecStats
x__ {_NodeExecStats'opEndRelMicros :: Int64
_NodeExecStats'opEndRelMicros = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "allEndRelMicros" Data.Int.Int64 where
fieldOf :: Proxy# "allEndRelMicros"
-> (Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats
fieldOf _
= ((Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Int64)
-> (NodeExecStats -> Int64 -> NodeExecStats)
-> Lens NodeExecStats NodeExecStats Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Int64
_NodeExecStats'allEndRelMicros
(\ x__ :: NodeExecStats
x__ y__ :: Int64
y__ -> NodeExecStats
x__ {_NodeExecStats'allEndRelMicros :: Int64
_NodeExecStats'allEndRelMicros = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "memory" [AllocatorMemoryUsed] where
fieldOf :: Proxy# "memory"
-> ([AllocatorMemoryUsed] -> f [AllocatorMemoryUsed])
-> NodeExecStats
-> f NodeExecStats
fieldOf _
= ((Vector AllocatorMemoryUsed -> f (Vector AllocatorMemoryUsed))
-> NodeExecStats -> f NodeExecStats)
-> (([AllocatorMemoryUsed] -> f [AllocatorMemoryUsed])
-> Vector AllocatorMemoryUsed -> f (Vector AllocatorMemoryUsed))
-> ([AllocatorMemoryUsed] -> f [AllocatorMemoryUsed])
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Vector AllocatorMemoryUsed)
-> (NodeExecStats -> Vector AllocatorMemoryUsed -> NodeExecStats)
-> Lens
NodeExecStats
NodeExecStats
(Vector AllocatorMemoryUsed)
(Vector AllocatorMemoryUsed)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Vector AllocatorMemoryUsed
_NodeExecStats'memory
(\ x__ :: NodeExecStats
x__ y__ :: Vector AllocatorMemoryUsed
y__ -> NodeExecStats
x__ {_NodeExecStats'memory :: Vector AllocatorMemoryUsed
_NodeExecStats'memory = Vector AllocatorMemoryUsed
y__}))
((Vector AllocatorMemoryUsed -> [AllocatorMemoryUsed])
-> (Vector AllocatorMemoryUsed
-> [AllocatorMemoryUsed] -> Vector AllocatorMemoryUsed)
-> Lens
(Vector AllocatorMemoryUsed)
(Vector AllocatorMemoryUsed)
[AllocatorMemoryUsed]
[AllocatorMemoryUsed]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector AllocatorMemoryUsed -> [AllocatorMemoryUsed]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [AllocatorMemoryUsed]
y__ -> [AllocatorMemoryUsed] -> Vector AllocatorMemoryUsed
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [AllocatorMemoryUsed]
y__))
instance Data.ProtoLens.Field.HasField NodeExecStats "vec'memory" (Data.Vector.Vector AllocatorMemoryUsed) where
fieldOf :: Proxy# "vec'memory"
-> (Vector AllocatorMemoryUsed -> f (Vector AllocatorMemoryUsed))
-> NodeExecStats
-> f NodeExecStats
fieldOf _
= ((Vector AllocatorMemoryUsed -> f (Vector AllocatorMemoryUsed))
-> NodeExecStats -> f NodeExecStats)
-> ((Vector AllocatorMemoryUsed -> f (Vector AllocatorMemoryUsed))
-> Vector AllocatorMemoryUsed -> f (Vector AllocatorMemoryUsed))
-> (Vector AllocatorMemoryUsed -> f (Vector AllocatorMemoryUsed))
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Vector AllocatorMemoryUsed)
-> (NodeExecStats -> Vector AllocatorMemoryUsed -> NodeExecStats)
-> Lens
NodeExecStats
NodeExecStats
(Vector AllocatorMemoryUsed)
(Vector AllocatorMemoryUsed)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Vector AllocatorMemoryUsed
_NodeExecStats'memory
(\ x__ :: NodeExecStats
x__ y__ :: Vector AllocatorMemoryUsed
y__ -> NodeExecStats
x__ {_NodeExecStats'memory :: Vector AllocatorMemoryUsed
_NodeExecStats'memory = Vector AllocatorMemoryUsed
y__}))
(Vector AllocatorMemoryUsed -> f (Vector AllocatorMemoryUsed))
-> Vector AllocatorMemoryUsed -> f (Vector AllocatorMemoryUsed)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "output" [NodeOutput] where
fieldOf :: Proxy# "output"
-> ([NodeOutput] -> f [NodeOutput])
-> NodeExecStats
-> f NodeExecStats
fieldOf _
= ((Vector NodeOutput -> f (Vector NodeOutput))
-> NodeExecStats -> f NodeExecStats)
-> (([NodeOutput] -> f [NodeOutput])
-> Vector NodeOutput -> f (Vector NodeOutput))
-> ([NodeOutput] -> f [NodeOutput])
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Vector NodeOutput)
-> (NodeExecStats -> Vector NodeOutput -> NodeExecStats)
-> Lens
NodeExecStats NodeExecStats (Vector NodeOutput) (Vector NodeOutput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Vector NodeOutput
_NodeExecStats'output
(\ x__ :: NodeExecStats
x__ y__ :: Vector NodeOutput
y__ -> NodeExecStats
x__ {_NodeExecStats'output :: Vector NodeOutput
_NodeExecStats'output = Vector NodeOutput
y__}))
((Vector NodeOutput -> [NodeOutput])
-> (Vector NodeOutput -> [NodeOutput] -> Vector NodeOutput)
-> Lens
(Vector NodeOutput) (Vector NodeOutput) [NodeOutput] [NodeOutput]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector NodeOutput -> [NodeOutput]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [NodeOutput]
y__ -> [NodeOutput] -> Vector NodeOutput
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [NodeOutput]
y__))
instance Data.ProtoLens.Field.HasField NodeExecStats "vec'output" (Data.Vector.Vector NodeOutput) where
fieldOf :: Proxy# "vec'output"
-> (Vector NodeOutput -> f (Vector NodeOutput))
-> NodeExecStats
-> f NodeExecStats
fieldOf _
= ((Vector NodeOutput -> f (Vector NodeOutput))
-> NodeExecStats -> f NodeExecStats)
-> ((Vector NodeOutput -> f (Vector NodeOutput))
-> Vector NodeOutput -> f (Vector NodeOutput))
-> (Vector NodeOutput -> f (Vector NodeOutput))
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Vector NodeOutput)
-> (NodeExecStats -> Vector NodeOutput -> NodeExecStats)
-> Lens
NodeExecStats NodeExecStats (Vector NodeOutput) (Vector NodeOutput)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Vector NodeOutput
_NodeExecStats'output
(\ x__ :: NodeExecStats
x__ y__ :: Vector NodeOutput
y__ -> NodeExecStats
x__ {_NodeExecStats'output :: Vector NodeOutput
_NodeExecStats'output = Vector NodeOutput
y__}))
(Vector NodeOutput -> f (Vector NodeOutput))
-> Vector NodeOutput -> f (Vector NodeOutput)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "timelineLabel" Data.Text.Text where
fieldOf :: Proxy# "timelineLabel"
-> (Text -> f Text) -> NodeExecStats -> f NodeExecStats
fieldOf _
= ((Text -> f Text) -> NodeExecStats -> f NodeExecStats)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Text)
-> (NodeExecStats -> Text -> NodeExecStats)
-> Lens NodeExecStats NodeExecStats Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Text
_NodeExecStats'timelineLabel
(\ x__ :: NodeExecStats
x__ y__ :: Text
y__ -> NodeExecStats
x__ {_NodeExecStats'timelineLabel :: Text
_NodeExecStats'timelineLabel = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "scheduledMicros" Data.Int.Int64 where
fieldOf :: Proxy# "scheduledMicros"
-> (Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats
fieldOf _
= ((Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Int64)
-> (NodeExecStats -> Int64 -> NodeExecStats)
-> Lens NodeExecStats NodeExecStats Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Int64
_NodeExecStats'scheduledMicros
(\ x__ :: NodeExecStats
x__ y__ :: Int64
y__ -> NodeExecStats
x__ {_NodeExecStats'scheduledMicros :: Int64
_NodeExecStats'scheduledMicros = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "threadId" Data.Word.Word32 where
fieldOf :: Proxy# "threadId"
-> (Word32 -> f Word32) -> NodeExecStats -> f NodeExecStats
fieldOf _
= ((Word32 -> f Word32) -> NodeExecStats -> f NodeExecStats)
-> ((Word32 -> f Word32) -> Word32 -> f Word32)
-> (Word32 -> f Word32)
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Word32)
-> (NodeExecStats -> Word32 -> NodeExecStats)
-> Lens NodeExecStats NodeExecStats Word32 Word32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Word32
_NodeExecStats'threadId
(\ x__ :: NodeExecStats
x__ y__ :: Word32
y__ -> NodeExecStats
x__ {_NodeExecStats'threadId :: Word32
_NodeExecStats'threadId = Word32
y__}))
(Word32 -> f Word32) -> Word32 -> f Word32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "referencedTensor" [Proto.Tensorflow.Core.Framework.AllocationDescription.AllocationDescription] where
fieldOf :: Proxy# "referencedTensor"
-> ([AllocationDescription] -> f [AllocationDescription])
-> NodeExecStats
-> f NodeExecStats
fieldOf _
= ((Vector AllocationDescription -> f (Vector AllocationDescription))
-> NodeExecStats -> f NodeExecStats)
-> (([AllocationDescription] -> f [AllocationDescription])
-> Vector AllocationDescription
-> f (Vector AllocationDescription))
-> ([AllocationDescription] -> f [AllocationDescription])
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Vector AllocationDescription)
-> (NodeExecStats -> Vector AllocationDescription -> NodeExecStats)
-> Lens
NodeExecStats
NodeExecStats
(Vector AllocationDescription)
(Vector AllocationDescription)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Vector AllocationDescription
_NodeExecStats'referencedTensor
(\ x__ :: NodeExecStats
x__ y__ :: Vector AllocationDescription
y__ -> NodeExecStats
x__ {_NodeExecStats'referencedTensor :: Vector AllocationDescription
_NodeExecStats'referencedTensor = Vector AllocationDescription
y__}))
((Vector AllocationDescription -> [AllocationDescription])
-> (Vector AllocationDescription
-> [AllocationDescription] -> Vector AllocationDescription)
-> Lens
(Vector AllocationDescription)
(Vector AllocationDescription)
[AllocationDescription]
[AllocationDescription]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector AllocationDescription -> [AllocationDescription]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [AllocationDescription]
y__ -> [AllocationDescription] -> Vector AllocationDescription
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [AllocationDescription]
y__))
instance Data.ProtoLens.Field.HasField NodeExecStats "vec'referencedTensor" (Data.Vector.Vector Proto.Tensorflow.Core.Framework.AllocationDescription.AllocationDescription) where
fieldOf :: Proxy# "vec'referencedTensor"
-> (Vector AllocationDescription
-> f (Vector AllocationDescription))
-> NodeExecStats
-> f NodeExecStats
fieldOf _
= ((Vector AllocationDescription -> f (Vector AllocationDescription))
-> NodeExecStats -> f NodeExecStats)
-> ((Vector AllocationDescription
-> f (Vector AllocationDescription))
-> Vector AllocationDescription
-> f (Vector AllocationDescription))
-> (Vector AllocationDescription
-> f (Vector AllocationDescription))
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Vector AllocationDescription)
-> (NodeExecStats -> Vector AllocationDescription -> NodeExecStats)
-> Lens
NodeExecStats
NodeExecStats
(Vector AllocationDescription)
(Vector AllocationDescription)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Vector AllocationDescription
_NodeExecStats'referencedTensor
(\ x__ :: NodeExecStats
x__ y__ :: Vector AllocationDescription
y__ -> NodeExecStats
x__ {_NodeExecStats'referencedTensor :: Vector AllocationDescription
_NodeExecStats'referencedTensor = Vector AllocationDescription
y__}))
(Vector AllocationDescription -> f (Vector AllocationDescription))
-> Vector AllocationDescription -> f (Vector AllocationDescription)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "memoryStats" MemoryStats where
fieldOf :: Proxy# "memoryStats"
-> (MemoryStats -> f MemoryStats)
-> NodeExecStats
-> f NodeExecStats
fieldOf _
= ((Maybe MemoryStats -> f (Maybe MemoryStats))
-> NodeExecStats -> f NodeExecStats)
-> ((MemoryStats -> f MemoryStats)
-> Maybe MemoryStats -> f (Maybe MemoryStats))
-> (MemoryStats -> f MemoryStats)
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Maybe MemoryStats)
-> (NodeExecStats -> Maybe MemoryStats -> NodeExecStats)
-> Lens
NodeExecStats NodeExecStats (Maybe MemoryStats) (Maybe MemoryStats)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Maybe MemoryStats
_NodeExecStats'memoryStats
(\ x__ :: NodeExecStats
x__ y__ :: Maybe MemoryStats
y__ -> NodeExecStats
x__ {_NodeExecStats'memoryStats :: Maybe MemoryStats
_NodeExecStats'memoryStats = Maybe MemoryStats
y__}))
(MemoryStats -> Lens' (Maybe MemoryStats) MemoryStats
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens MemoryStats
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField NodeExecStats "maybe'memoryStats" (Prelude.Maybe MemoryStats) where
fieldOf :: Proxy# "maybe'memoryStats"
-> (Maybe MemoryStats -> f (Maybe MemoryStats))
-> NodeExecStats
-> f NodeExecStats
fieldOf _
= ((Maybe MemoryStats -> f (Maybe MemoryStats))
-> NodeExecStats -> f NodeExecStats)
-> ((Maybe MemoryStats -> f (Maybe MemoryStats))
-> Maybe MemoryStats -> f (Maybe MemoryStats))
-> (Maybe MemoryStats -> f (Maybe MemoryStats))
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Maybe MemoryStats)
-> (NodeExecStats -> Maybe MemoryStats -> NodeExecStats)
-> Lens
NodeExecStats NodeExecStats (Maybe MemoryStats) (Maybe MemoryStats)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Maybe MemoryStats
_NodeExecStats'memoryStats
(\ x__ :: NodeExecStats
x__ y__ :: Maybe MemoryStats
y__ -> NodeExecStats
x__ {_NodeExecStats'memoryStats :: Maybe MemoryStats
_NodeExecStats'memoryStats = Maybe MemoryStats
y__}))
(Maybe MemoryStats -> f (Maybe MemoryStats))
-> Maybe MemoryStats -> f (Maybe MemoryStats)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "allStartNanos" Data.Int.Int64 where
fieldOf :: Proxy# "allStartNanos"
-> (Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats
fieldOf _
= ((Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Int64)
-> (NodeExecStats -> Int64 -> NodeExecStats)
-> Lens NodeExecStats NodeExecStats Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Int64
_NodeExecStats'allStartNanos
(\ x__ :: NodeExecStats
x__ y__ :: Int64
y__ -> NodeExecStats
x__ {_NodeExecStats'allStartNanos :: Int64
_NodeExecStats'allStartNanos = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "opStartRelNanos" Data.Int.Int64 where
fieldOf :: Proxy# "opStartRelNanos"
-> (Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats
fieldOf _
= ((Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Int64)
-> (NodeExecStats -> Int64 -> NodeExecStats)
-> Lens NodeExecStats NodeExecStats Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Int64
_NodeExecStats'opStartRelNanos
(\ x__ :: NodeExecStats
x__ y__ :: Int64
y__ -> NodeExecStats
x__ {_NodeExecStats'opStartRelNanos :: Int64
_NodeExecStats'opStartRelNanos = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "opEndRelNanos" Data.Int.Int64 where
fieldOf :: Proxy# "opEndRelNanos"
-> (Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats
fieldOf _
= ((Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Int64)
-> (NodeExecStats -> Int64 -> NodeExecStats)
-> Lens NodeExecStats NodeExecStats Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Int64
_NodeExecStats'opEndRelNanos
(\ x__ :: NodeExecStats
x__ y__ :: Int64
y__ -> NodeExecStats
x__ {_NodeExecStats'opEndRelNanos :: Int64
_NodeExecStats'opEndRelNanos = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "allEndRelNanos" Data.Int.Int64 where
fieldOf :: Proxy# "allEndRelNanos"
-> (Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats
fieldOf _
= ((Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Int64)
-> (NodeExecStats -> Int64 -> NodeExecStats)
-> Lens NodeExecStats NodeExecStats Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Int64
_NodeExecStats'allEndRelNanos
(\ x__ :: NodeExecStats
x__ y__ :: Int64
y__ -> NodeExecStats
x__ {_NodeExecStats'allEndRelNanos :: Int64
_NodeExecStats'allEndRelNanos = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeExecStats "scheduledNanos" Data.Int.Int64 where
fieldOf :: Proxy# "scheduledNanos"
-> (Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats
fieldOf _
= ((Int64 -> f Int64) -> NodeExecStats -> f NodeExecStats)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> NodeExecStats
-> f NodeExecStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeExecStats -> Int64)
-> (NodeExecStats -> Int64 -> NodeExecStats)
-> Lens NodeExecStats NodeExecStats Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> Int64
_NodeExecStats'scheduledNanos
(\ x__ :: NodeExecStats
x__ y__ :: Int64
y__ -> NodeExecStats
x__ {_NodeExecStats'scheduledNanos :: Int64
_NodeExecStats'scheduledNanos = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NodeExecStats where
messageName :: Proxy NodeExecStats -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.NodeExecStats"
packedMessageDescriptor :: Proxy NodeExecStats -> ByteString
packedMessageDescriptor _
= "\n\
\\rNodeExecStats\DC2\ESC\n\
\\tnode_name\CAN\SOH \SOH(\tR\bnodeName\DC2(\n\
\\DLEall_start_micros\CAN\STX \SOH(\ETXR\SOallStartMicros\DC2-\n\
\\DC3op_start_rel_micros\CAN\ETX \SOH(\ETXR\DLEopStartRelMicros\DC2)\n\
\\DC1op_end_rel_micros\CAN\EOT \SOH(\ETXR\SOopEndRelMicros\DC2+\n\
\\DC2all_end_rel_micros\CAN\ENQ \SOH(\ETXR\SIallEndRelMicros\DC27\n\
\\ACKmemory\CAN\ACK \ETX(\v2\US.tensorflow.AllocatorMemoryUsedR\ACKmemory\DC2.\n\
\\ACKoutput\CAN\a \ETX(\v2\SYN.tensorflow.NodeOutputR\ACKoutput\DC2%\n\
\\SOtimeline_label\CAN\b \SOH(\tR\rtimelineLabel\DC2)\n\
\\DLEscheduled_micros\CAN\t \SOH(\ETXR\SIscheduledMicros\DC2\ESC\n\
\\tthread_id\CAN\n\
\ \SOH(\rR\bthreadId\DC2N\n\
\\DC1referenced_tensor\CAN\v \ETX(\v2!.tensorflow.AllocationDescriptionR\DLEreferencedTensor\DC2:\n\
\\fmemory_stats\CAN\f \SOH(\v2\ETB.tensorflow.MemoryStatsR\vmemoryStats\DC2&\n\
\\SIall_start_nanos\CAN\r \SOH(\ETXR\rallStartNanos\DC2+\n\
\\DC2op_start_rel_nanos\CAN\SO \SOH(\ETXR\SIopStartRelNanos\DC2'\n\
\\DLEop_end_rel_nanos\CAN\SI \SOH(\ETXR\ropEndRelNanos\DC2)\n\
\\DC1all_end_rel_nanos\CAN\DLE \SOH(\ETXR\SOallEndRelNanos\DC2'\n\
\\SIscheduled_nanos\CAN\DC1 \SOH(\ETXR\SOscheduledNanos"
packedFileDescriptor :: Proxy NodeExecStats -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor NodeExecStats)
fieldsByTag
= let
nodeName__field_descriptor :: FieldDescriptor NodeExecStats
nodeName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor NodeExecStats Text
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"node_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 NodeExecStats NodeExecStats Text Text
-> FieldAccessor NodeExecStats 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 "nodeName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodeName")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
allStartMicros__field_descriptor :: FieldDescriptor NodeExecStats
allStartMicros__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor NodeExecStats Int64
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"all_start_micros"
(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 NodeExecStats NodeExecStats Int64 Int64
-> FieldAccessor NodeExecStats 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 "allStartMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allStartMicros")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
opStartRelMicros__field_descriptor :: FieldDescriptor NodeExecStats
opStartRelMicros__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor NodeExecStats Int64
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"op_start_rel_micros"
(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 NodeExecStats NodeExecStats Int64 Int64
-> FieldAccessor NodeExecStats 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 "opStartRelMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"opStartRelMicros")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
opEndRelMicros__field_descriptor :: FieldDescriptor NodeExecStats
opEndRelMicros__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor NodeExecStats Int64
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"op_end_rel_micros"
(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 NodeExecStats NodeExecStats Int64 Int64
-> FieldAccessor NodeExecStats 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 "opEndRelMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"opEndRelMicros")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
allEndRelMicros__field_descriptor :: FieldDescriptor NodeExecStats
allEndRelMicros__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor NodeExecStats Int64
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"all_end_rel_micros"
(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 NodeExecStats NodeExecStats Int64 Int64
-> FieldAccessor NodeExecStats 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 "allEndRelMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allEndRelMicros")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
memory__field_descriptor :: FieldDescriptor NodeExecStats
memory__field_descriptor
= String
-> FieldTypeDescriptor AllocatorMemoryUsed
-> FieldAccessor NodeExecStats AllocatorMemoryUsed
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"memory"
(MessageOrGroup -> FieldTypeDescriptor AllocatorMemoryUsed
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AllocatorMemoryUsed)
(Packing
-> Lens' NodeExecStats [AllocatorMemoryUsed]
-> FieldAccessor NodeExecStats AllocatorMemoryUsed
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "memory" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"memory")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
output__field_descriptor :: FieldDescriptor NodeExecStats
output__field_descriptor
= String
-> FieldTypeDescriptor NodeOutput
-> FieldAccessor NodeExecStats NodeOutput
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"output"
(MessageOrGroup -> FieldTypeDescriptor NodeOutput
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor NodeOutput)
(Packing
-> Lens' NodeExecStats [NodeOutput]
-> FieldAccessor NodeExecStats NodeOutput
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "output" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"output")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
timelineLabel__field_descriptor :: FieldDescriptor NodeExecStats
timelineLabel__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor NodeExecStats Text
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"timeline_label"
(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 NodeExecStats NodeExecStats Text Text
-> FieldAccessor NodeExecStats 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 "timelineLabel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timelineLabel")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
scheduledMicros__field_descriptor :: FieldDescriptor NodeExecStats
scheduledMicros__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor NodeExecStats Int64
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"scheduled_micros"
(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 NodeExecStats NodeExecStats Int64 Int64
-> FieldAccessor NodeExecStats 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 "scheduledMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scheduledMicros")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
threadId__field_descriptor :: FieldDescriptor NodeExecStats
threadId__field_descriptor
= String
-> FieldTypeDescriptor Word32
-> FieldAccessor NodeExecStats Word32
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"thread_id"
(ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(WireDefault Word32
-> Lens NodeExecStats NodeExecStats Word32 Word32
-> FieldAccessor NodeExecStats Word32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "threadId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"threadId")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
referencedTensor__field_descriptor :: FieldDescriptor NodeExecStats
referencedTensor__field_descriptor
= String
-> FieldTypeDescriptor AllocationDescription
-> FieldAccessor NodeExecStats AllocationDescription
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"referenced_tensor"
(MessageOrGroup -> FieldTypeDescriptor AllocationDescription
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.AllocationDescription.AllocationDescription)
(Packing
-> Lens' NodeExecStats [AllocationDescription]
-> FieldAccessor NodeExecStats AllocationDescription
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "referencedTensor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"referencedTensor")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
memoryStats__field_descriptor :: FieldDescriptor NodeExecStats
memoryStats__field_descriptor
= String
-> FieldTypeDescriptor MemoryStats
-> FieldAccessor NodeExecStats MemoryStats
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"memory_stats"
(MessageOrGroup -> FieldTypeDescriptor MemoryStats
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor MemoryStats)
(Lens
NodeExecStats NodeExecStats (Maybe MemoryStats) (Maybe MemoryStats)
-> FieldAccessor NodeExecStats MemoryStats
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'memoryStats" a, Functor f) =>
(a -> f a) -> s -> 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'memoryStats")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
allStartNanos__field_descriptor :: FieldDescriptor NodeExecStats
allStartNanos__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor NodeExecStats Int64
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"all_start_nanos"
(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 NodeExecStats NodeExecStats Int64 Int64
-> FieldAccessor NodeExecStats 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 "allStartNanos" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allStartNanos")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
opStartRelNanos__field_descriptor :: FieldDescriptor NodeExecStats
opStartRelNanos__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor NodeExecStats Int64
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"op_start_rel_nanos"
(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 NodeExecStats NodeExecStats Int64 Int64
-> FieldAccessor NodeExecStats 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 "opStartRelNanos" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"opStartRelNanos")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
opEndRelNanos__field_descriptor :: FieldDescriptor NodeExecStats
opEndRelNanos__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor NodeExecStats Int64
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"op_end_rel_nanos"
(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 NodeExecStats NodeExecStats Int64 Int64
-> FieldAccessor NodeExecStats 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 "opEndRelNanos" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"opEndRelNanos")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
allEndRelNanos__field_descriptor :: FieldDescriptor NodeExecStats
allEndRelNanos__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor NodeExecStats Int64
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"all_end_rel_nanos"
(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 NodeExecStats NodeExecStats Int64 Int64
-> FieldAccessor NodeExecStats 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 "allEndRelNanos" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allEndRelNanos")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
scheduledNanos__field_descriptor :: FieldDescriptor NodeExecStats
scheduledNanos__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor NodeExecStats Int64
-> FieldDescriptor NodeExecStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"scheduled_nanos"
(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 NodeExecStats NodeExecStats Int64 Int64
-> FieldAccessor NodeExecStats 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 "scheduledNanos" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scheduledNanos")) ::
Data.ProtoLens.FieldDescriptor NodeExecStats
in
[(Tag, FieldDescriptor NodeExecStats)]
-> Map Tag (FieldDescriptor NodeExecStats)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor NodeExecStats
nodeName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor NodeExecStats
allStartMicros__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor NodeExecStats
opStartRelMicros__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor NodeExecStats
opEndRelMicros__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor NodeExecStats
allEndRelMicros__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor NodeExecStats
memory__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor NodeExecStats
output__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor NodeExecStats
timelineLabel__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor NodeExecStats
scheduledMicros__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 10, FieldDescriptor NodeExecStats
threadId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 11, FieldDescriptor NodeExecStats
referencedTensor__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 12, FieldDescriptor NodeExecStats
memoryStats__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 13, FieldDescriptor NodeExecStats
allStartNanos__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 14, FieldDescriptor NodeExecStats
opStartRelNanos__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 15, FieldDescriptor NodeExecStats
opEndRelNanos__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 16, FieldDescriptor NodeExecStats
allEndRelNanos__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 17, FieldDescriptor NodeExecStats
scheduledNanos__field_descriptor)]
unknownFields :: LensLike' f NodeExecStats FieldSet
unknownFields
= (NodeExecStats -> FieldSet)
-> (NodeExecStats -> FieldSet -> NodeExecStats)
-> Lens' NodeExecStats FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeExecStats -> FieldSet
_NodeExecStats'_unknownFields
(\ x__ :: NodeExecStats
x__ y__ :: FieldSet
y__ -> NodeExecStats
x__ {_NodeExecStats'_unknownFields :: FieldSet
_NodeExecStats'_unknownFields = FieldSet
y__})
defMessage :: NodeExecStats
defMessage
= $WNodeExecStats'_constructor :: Text
-> Int64
-> Int64
-> Int64
-> Int64
-> Vector AllocatorMemoryUsed
-> Vector NodeOutput
-> Text
-> Int64
-> Word32
-> Vector AllocationDescription
-> Maybe MemoryStats
-> Int64
-> Int64
-> Int64
-> Int64
-> Int64
-> FieldSet
-> NodeExecStats
NodeExecStats'_constructor
{_NodeExecStats'nodeName :: Text
_NodeExecStats'nodeName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NodeExecStats'allStartMicros :: Int64
_NodeExecStats'allStartMicros = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NodeExecStats'opStartRelMicros :: Int64
_NodeExecStats'opStartRelMicros = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NodeExecStats'opEndRelMicros :: Int64
_NodeExecStats'opEndRelMicros = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NodeExecStats'allEndRelMicros :: Int64
_NodeExecStats'allEndRelMicros = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NodeExecStats'memory :: Vector AllocatorMemoryUsed
_NodeExecStats'memory = Vector AllocatorMemoryUsed
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_NodeExecStats'output :: Vector NodeOutput
_NodeExecStats'output = Vector NodeOutput
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_NodeExecStats'timelineLabel :: Text
_NodeExecStats'timelineLabel = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NodeExecStats'scheduledMicros :: Int64
_NodeExecStats'scheduledMicros = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NodeExecStats'threadId :: Word32
_NodeExecStats'threadId = Word32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NodeExecStats'referencedTensor :: Vector AllocationDescription
_NodeExecStats'referencedTensor = Vector AllocationDescription
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_NodeExecStats'memoryStats :: Maybe MemoryStats
_NodeExecStats'memoryStats = Maybe MemoryStats
forall a. Maybe a
Prelude.Nothing,
_NodeExecStats'allStartNanos :: Int64
_NodeExecStats'allStartNanos = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NodeExecStats'opStartRelNanos :: Int64
_NodeExecStats'opStartRelNanos = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NodeExecStats'opEndRelNanos :: Int64
_NodeExecStats'opEndRelNanos = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NodeExecStats'allEndRelNanos :: Int64
_NodeExecStats'allEndRelNanos = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NodeExecStats'scheduledNanos :: Int64
_NodeExecStats'scheduledNanos = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NodeExecStats'_unknownFields :: FieldSet
_NodeExecStats'_unknownFields = []}
parseMessage :: Parser NodeExecStats
parseMessage
= let
loop ::
NodeExecStats
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AllocatorMemoryUsed
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld NodeOutput
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Tensorflow.Core.Framework.AllocationDescription.AllocationDescription
-> Data.ProtoLens.Encoding.Bytes.Parser NodeExecStats
loop :: NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop x :: NodeExecStats
x mutable'memory :: Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory mutable'output :: Growing Vector RealWorld NodeOutput
mutable'output mutable'referencedTensor :: Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector AllocatorMemoryUsed
frozen'memory <- IO (Vector AllocatorMemoryUsed)
-> Parser (Vector AllocatorMemoryUsed)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) AllocatorMemoryUsed
-> IO (Vector AllocatorMemoryUsed)
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 AllocatorMemoryUsed
Growing Vector (PrimState IO) AllocatorMemoryUsed
mutable'memory)
Vector NodeOutput
frozen'output <- IO (Vector NodeOutput) -> Parser (Vector NodeOutput)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) NodeOutput -> IO (Vector NodeOutput)
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 NodeOutput
Growing Vector (PrimState IO) NodeOutput
mutable'output)
Vector AllocationDescription
frozen'referencedTensor <- IO (Vector AllocationDescription)
-> Parser (Vector AllocationDescription)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) AllocationDescription
-> IO (Vector AllocationDescription)
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 AllocationDescription
Growing Vector (PrimState IO) AllocationDescription
mutable'referencedTensor)
(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]))))
NodeExecStats -> Parser NodeExecStats
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter NodeExecStats NodeExecStats FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NodeExecStats -> NodeExecStats
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 NodeExecStats NodeExecStats FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
NodeExecStats
NodeExecStats
(Vector AllocatorMemoryUsed)
(Vector AllocatorMemoryUsed)
-> Vector AllocatorMemoryUsed -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'memory" a, Functor f) =>
(a -> f a) -> s -> 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'memory")
Vector AllocatorMemoryUsed
frozen'memory
(Setter
NodeExecStats NodeExecStats (Vector NodeOutput) (Vector NodeOutput)
-> Vector NodeOutput -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'output" a, Functor f) =>
(a -> f a) -> s -> 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'output")
Vector NodeOutput
frozen'output
(Setter
NodeExecStats
NodeExecStats
(Vector AllocationDescription)
(Vector AllocationDescription)
-> Vector AllocationDescription -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'referencedTensor" a, Functor f) =>
(a -> f a) -> s -> 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'referencedTensor")
Vector AllocationDescription
frozen'referencedTensor
NodeExecStats
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))
"node_name"
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
(Setter NodeExecStats NodeExecStats Text Text
-> Text -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "nodeName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodeName") Text
y NodeExecStats
x)
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
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)
"all_start_micros"
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
(Setter NodeExecStats NodeExecStats Int64 Int64
-> Int64 -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "allStartMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allStartMicros") Int64
y NodeExecStats
x)
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
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)
"op_start_rel_micros"
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
(Setter NodeExecStats NodeExecStats Int64 Int64
-> Int64 -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "opStartRelMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"opStartRelMicros") Int64
y NodeExecStats
x)
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
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)
"op_end_rel_micros"
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
(Setter NodeExecStats NodeExecStats Int64 Int64
-> Int64 -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "opEndRelMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"opEndRelMicros") Int64
y NodeExecStats
x)
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
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)
"all_end_rel_micros"
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
(Setter NodeExecStats NodeExecStats Int64 Int64
-> Int64 -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "allEndRelMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allEndRelMicros") Int64
y NodeExecStats
x)
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
50
-> do !AllocatorMemoryUsed
y <- Parser AllocatorMemoryUsed -> String -> Parser AllocatorMemoryUsed
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser AllocatorMemoryUsed -> Parser AllocatorMemoryUsed
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 AllocatorMemoryUsed
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"memory"
Growing Vector RealWorld AllocatorMemoryUsed
v <- IO (Growing Vector RealWorld AllocatorMemoryUsed)
-> Parser (Growing Vector RealWorld AllocatorMemoryUsed)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) AllocatorMemoryUsed
-> AllocatorMemoryUsed
-> IO (Growing Vector (PrimState IO) AllocatorMemoryUsed)
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 AllocatorMemoryUsed
Growing Vector (PrimState IO) AllocatorMemoryUsed
mutable'memory AllocatorMemoryUsed
y)
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop NodeExecStats
x Growing Vector RealWorld AllocatorMemoryUsed
v Growing Vector RealWorld NodeOutput
mutable'output Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
58
-> do !NodeOutput
y <- Parser NodeOutput -> String -> Parser NodeOutput
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser NodeOutput -> Parser NodeOutput
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 NodeOutput
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"output"
Growing Vector RealWorld NodeOutput
v <- IO (Growing Vector RealWorld NodeOutput)
-> Parser (Growing Vector RealWorld NodeOutput)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) NodeOutput
-> NodeOutput -> IO (Growing Vector (PrimState IO) NodeOutput)
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 NodeOutput
Growing Vector (PrimState IO) NodeOutput
mutable'output NodeOutput
y)
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop NodeExecStats
x Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory Growing Vector RealWorld NodeOutput
v Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
66
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"timeline_label"
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
(Setter NodeExecStats NodeExecStats Text Text
-> Text -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "timelineLabel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timelineLabel") Text
y NodeExecStats
x)
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
72
-> 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)
"scheduled_micros"
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
(Setter NodeExecStats NodeExecStats Int64 Int64
-> Int64 -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "scheduledMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scheduledMicros") Int64
y NodeExecStats
x)
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
80
-> do Word32
y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"thread_id"
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
(Setter NodeExecStats NodeExecStats Word32 Word32
-> Word32 -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "threadId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"threadId") Word32
y NodeExecStats
x)
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
90
-> do !AllocationDescription
y <- Parser AllocationDescription
-> String -> Parser AllocationDescription
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser AllocationDescription -> Parser AllocationDescription
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 AllocationDescription
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"referenced_tensor"
Growing Vector RealWorld AllocationDescription
v <- IO (Growing Vector RealWorld AllocationDescription)
-> Parser (Growing Vector RealWorld AllocationDescription)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) AllocationDescription
-> AllocationDescription
-> IO (Growing Vector (PrimState IO) AllocationDescription)
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 AllocationDescription
Growing Vector (PrimState IO) AllocationDescription
mutable'referencedTensor AllocationDescription
y)
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop NodeExecStats
x Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory Growing Vector RealWorld NodeOutput
mutable'output Growing Vector RealWorld AllocationDescription
v
98
-> do MemoryStats
y <- Parser MemoryStats -> String -> Parser MemoryStats
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser MemoryStats -> Parser MemoryStats
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 MemoryStats
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"memory_stats"
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
(Setter NodeExecStats NodeExecStats MemoryStats MemoryStats
-> MemoryStats -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "memoryStats" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"memoryStats") MemoryStats
y NodeExecStats
x)
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
104
-> 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)
"all_start_nanos"
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
(Setter NodeExecStats NodeExecStats Int64 Int64
-> Int64 -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "allStartNanos" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allStartNanos") Int64
y NodeExecStats
x)
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
112
-> 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)
"op_start_rel_nanos"
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
(Setter NodeExecStats NodeExecStats Int64 Int64
-> Int64 -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "opStartRelNanos" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"opStartRelNanos") Int64
y NodeExecStats
x)
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
120
-> 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)
"op_end_rel_nanos"
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
(Setter NodeExecStats NodeExecStats Int64 Int64
-> Int64 -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "opEndRelNanos" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"opEndRelNanos") Int64
y NodeExecStats
x)
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
128
-> 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)
"all_end_rel_nanos"
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
(Setter NodeExecStats NodeExecStats Int64 Int64
-> Int64 -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "allEndRelNanos" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allEndRelNanos") Int64
y NodeExecStats
x)
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
136
-> 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)
"scheduled_nanos"
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
(Setter NodeExecStats NodeExecStats Int64 Int64
-> Int64 -> NodeExecStats -> NodeExecStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "scheduledNanos" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scheduledNanos") Int64
y NodeExecStats
x)
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
(Setter NodeExecStats NodeExecStats FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NodeExecStats -> NodeExecStats
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 NodeExecStats NodeExecStats FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) NodeExecStats
x)
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor
in
Parser NodeExecStats -> String -> Parser NodeExecStats
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory <- IO (Growing Vector RealWorld AllocatorMemoryUsed)
-> Parser (Growing Vector RealWorld AllocatorMemoryUsed)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld AllocatorMemoryUsed)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld NodeOutput
mutable'output <- IO (Growing Vector RealWorld NodeOutput)
-> Parser (Growing Vector RealWorld NodeOutput)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld NodeOutput)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor <- IO (Growing Vector RealWorld AllocationDescription)
-> Parser (Growing Vector RealWorld AllocationDescription)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld AllocationDescription)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
NodeExecStats
-> Growing Vector RealWorld AllocatorMemoryUsed
-> Growing Vector RealWorld NodeOutput
-> Growing Vector RealWorld AllocationDescription
-> Parser NodeExecStats
loop
NodeExecStats
forall msg. Message msg => msg
Data.ProtoLens.defMessage
Growing Vector RealWorld AllocatorMemoryUsed
mutable'memory
Growing Vector RealWorld NodeOutput
mutable'output
Growing Vector RealWorld AllocationDescription
mutable'referencedTensor)
"NodeExecStats"
buildMessage :: NodeExecStats -> Builder
buildMessage
= \ _x :: NodeExecStats
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text NodeExecStats NodeExecStats Text Text
-> NodeExecStats -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "nodeName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodeName") NodeExecStats
_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 NodeExecStats NodeExecStats Int64 Int64
-> NodeExecStats -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "allStartMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allStartMicros") NodeExecStats
_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 :: Int64
_v
= FoldLike Int64 NodeExecStats NodeExecStats Int64 Int64
-> NodeExecStats -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "opStartRelMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"opStartRelMicros") NodeExecStats
_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 :: Int64
_v
= FoldLike Int64 NodeExecStats NodeExecStats Int64 Int64
-> NodeExecStats -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "opEndRelMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"opEndRelMicros") NodeExecStats
_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.<>)
(let
_v :: Int64
_v
= FoldLike Int64 NodeExecStats NodeExecStats Int64 Int64
-> NodeExecStats -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "allEndRelMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allEndRelMicros") NodeExecStats
_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.<>)
((AllocatorMemoryUsed -> Builder)
-> Vector AllocatorMemoryUsed -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: AllocatorMemoryUsed
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((ByteString -> Builder)
-> (AllocatorMemoryUsed -> ByteString)
-> AllocatorMemoryUsed
-> 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))
AllocatorMemoryUsed -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
AllocatorMemoryUsed
_v))
(FoldLike
(Vector AllocatorMemoryUsed)
NodeExecStats
NodeExecStats
(Vector AllocatorMemoryUsed)
(Vector AllocatorMemoryUsed)
-> NodeExecStats -> Vector AllocatorMemoryUsed
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'memory" a, Functor f) =>
(a -> f a) -> s -> 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'memory") NodeExecStats
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((NodeOutput -> Builder) -> Vector NodeOutput -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: NodeOutput
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
((ByteString -> Builder)
-> (NodeOutput -> ByteString) -> NodeOutput -> 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))
NodeOutput -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
NodeOutput
_v))
(FoldLike
(Vector NodeOutput)
NodeExecStats
NodeExecStats
(Vector NodeOutput)
(Vector NodeOutput)
-> NodeExecStats -> Vector NodeOutput
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'output" a, Functor f) =>
(a -> f a) -> s -> 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'output") NodeExecStats
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text NodeExecStats NodeExecStats Text Text
-> NodeExecStats -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "timelineLabel" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"timelineLabel") NodeExecStats
_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 66)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 NodeExecStats NodeExecStats Int64 Int64
-> NodeExecStats -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "scheduledMicros" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scheduledMicros") NodeExecStats
_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 72)
((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 :: Word32
_v
= FoldLike Word32 NodeExecStats NodeExecStats Word32 Word32
-> NodeExecStats -> Word32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "threadId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"threadId") NodeExecStats
_x
in
if Word32 -> Word32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word32
_v Word32
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)
((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Word32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((AllocationDescription -> Builder)
-> Vector AllocationDescription -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: AllocationDescription
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 90)
((ByteString -> Builder)
-> (AllocationDescription -> ByteString)
-> AllocationDescription
-> 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))
AllocationDescription -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
AllocationDescription
_v))
(FoldLike
(Vector AllocationDescription)
NodeExecStats
NodeExecStats
(Vector AllocationDescription)
(Vector AllocationDescription)
-> NodeExecStats -> Vector AllocationDescription
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'referencedTensor" a, Functor f) =>
(a -> f a) -> s -> 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'referencedTensor")
NodeExecStats
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe MemoryStats)
NodeExecStats
NodeExecStats
(Maybe MemoryStats)
(Maybe MemoryStats)
-> NodeExecStats -> Maybe MemoryStats
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'memoryStats" a, Functor f) =>
(a -> f a) -> s -> 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'memoryStats")
NodeExecStats
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: MemoryStats
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 98)
((ByteString -> Builder)
-> (MemoryStats -> ByteString) -> MemoryStats -> 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))
MemoryStats -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
MemoryStats
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 NodeExecStats NodeExecStats Int64 Int64
-> NodeExecStats -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "allStartNanos" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"allStartNanos")
NodeExecStats
_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
104)
((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 NodeExecStats NodeExecStats Int64 Int64
-> NodeExecStats -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "opStartRelNanos" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"opStartRelNanos")
NodeExecStats
_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
112)
((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 NodeExecStats NodeExecStats Int64 Int64
-> NodeExecStats -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "opEndRelNanos" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"opEndRelNanos")
NodeExecStats
_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
120)
((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 NodeExecStats NodeExecStats Int64 Int64
-> NodeExecStats -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "allEndRelNanos" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"allEndRelNanos")
NodeExecStats
_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
128)
((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 NodeExecStats NodeExecStats Int64 Int64
-> NodeExecStats -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "scheduledNanos" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field
@"scheduledNanos")
NodeExecStats
_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
136)
((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 NodeExecStats NodeExecStats FieldSet FieldSet
-> NodeExecStats -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
FoldLike FieldSet NodeExecStats NodeExecStats FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields
NodeExecStats
_x))))))))))))))))))
instance Control.DeepSeq.NFData NodeExecStats where
rnf :: NodeExecStats -> ()
rnf
= \ x__ :: NodeExecStats
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> FieldSet
_NodeExecStats'_unknownFields NodeExecStats
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Text
_NodeExecStats'nodeName NodeExecStats
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Int64
_NodeExecStats'allStartMicros NodeExecStats
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Int64
_NodeExecStats'opStartRelMicros NodeExecStats
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Int64
_NodeExecStats'opEndRelMicros NodeExecStats
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Int64
_NodeExecStats'allEndRelMicros NodeExecStats
x__)
(Vector AllocatorMemoryUsed -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Vector AllocatorMemoryUsed
_NodeExecStats'memory NodeExecStats
x__)
(Vector NodeOutput -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Vector NodeOutput
_NodeExecStats'output NodeExecStats
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Text
_NodeExecStats'timelineLabel NodeExecStats
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Int64
_NodeExecStats'scheduledMicros NodeExecStats
x__)
(Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Word32
_NodeExecStats'threadId NodeExecStats
x__)
(Vector AllocationDescription -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Vector AllocationDescription
_NodeExecStats'referencedTensor NodeExecStats
x__)
(Maybe MemoryStats -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Maybe MemoryStats
_NodeExecStats'memoryStats NodeExecStats
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Int64
_NodeExecStats'allStartNanos NodeExecStats
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Int64
_NodeExecStats'opStartRelNanos NodeExecStats
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Int64
_NodeExecStats'opEndRelNanos NodeExecStats
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Int64
_NodeExecStats'allEndRelNanos NodeExecStats
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeExecStats -> Int64
_NodeExecStats'scheduledNanos NodeExecStats
x__)
())))))))))))))))))
data NodeOutput
= NodeOutput'_constructor {NodeOutput -> Int32
_NodeOutput'slot :: !Data.Int.Int32,
NodeOutput -> Maybe TensorDescription
_NodeOutput'tensorDescription :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription),
NodeOutput -> FieldSet
_NodeOutput'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (NodeOutput -> NodeOutput -> Bool
(NodeOutput -> NodeOutput -> Bool)
-> (NodeOutput -> NodeOutput -> Bool) -> Eq NodeOutput
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: NodeOutput -> NodeOutput -> Bool
$c/= :: NodeOutput -> NodeOutput -> Bool
== :: NodeOutput -> NodeOutput -> Bool
$c== :: NodeOutput -> NodeOutput -> Bool
Prelude.Eq, Eq NodeOutput
Eq NodeOutput =>
(NodeOutput -> NodeOutput -> Ordering)
-> (NodeOutput -> NodeOutput -> Bool)
-> (NodeOutput -> NodeOutput -> Bool)
-> (NodeOutput -> NodeOutput -> Bool)
-> (NodeOutput -> NodeOutput -> Bool)
-> (NodeOutput -> NodeOutput -> NodeOutput)
-> (NodeOutput -> NodeOutput -> NodeOutput)
-> Ord NodeOutput
NodeOutput -> NodeOutput -> Bool
NodeOutput -> NodeOutput -> Ordering
NodeOutput -> NodeOutput -> NodeOutput
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 :: NodeOutput -> NodeOutput -> NodeOutput
$cmin :: NodeOutput -> NodeOutput -> NodeOutput
max :: NodeOutput -> NodeOutput -> NodeOutput
$cmax :: NodeOutput -> NodeOutput -> NodeOutput
>= :: NodeOutput -> NodeOutput -> Bool
$c>= :: NodeOutput -> NodeOutput -> Bool
> :: NodeOutput -> NodeOutput -> Bool
$c> :: NodeOutput -> NodeOutput -> Bool
<= :: NodeOutput -> NodeOutput -> Bool
$c<= :: NodeOutput -> NodeOutput -> Bool
< :: NodeOutput -> NodeOutput -> Bool
$c< :: NodeOutput -> NodeOutput -> Bool
compare :: NodeOutput -> NodeOutput -> Ordering
$ccompare :: NodeOutput -> NodeOutput -> Ordering
$cp1Ord :: Eq NodeOutput
Prelude.Ord)
instance Prelude.Show NodeOutput where
showsPrec :: Int -> NodeOutput -> ShowS
showsPrec _ __x :: NodeOutput
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(NodeOutput -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort NodeOutput
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField NodeOutput "slot" Data.Int.Int32 where
fieldOf :: Proxy# "slot" -> (Int32 -> f Int32) -> NodeOutput -> f NodeOutput
fieldOf _
= ((Int32 -> f Int32) -> NodeOutput -> f NodeOutput)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> NodeOutput
-> f NodeOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeOutput -> Int32)
-> (NodeOutput -> Int32 -> NodeOutput)
-> Lens NodeOutput NodeOutput Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeOutput -> Int32
_NodeOutput'slot (\ x__ :: NodeOutput
x__ y__ :: Int32
y__ -> NodeOutput
x__ {_NodeOutput'slot :: Int32
_NodeOutput'slot = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField NodeOutput "tensorDescription" Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription where
fieldOf :: Proxy# "tensorDescription"
-> (TensorDescription -> f TensorDescription)
-> NodeOutput
-> f NodeOutput
fieldOf _
= ((Maybe TensorDescription -> f (Maybe TensorDescription))
-> NodeOutput -> f NodeOutput)
-> ((TensorDescription -> f TensorDescription)
-> Maybe TensorDescription -> f (Maybe TensorDescription))
-> (TensorDescription -> f TensorDescription)
-> NodeOutput
-> f NodeOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeOutput -> Maybe TensorDescription)
-> (NodeOutput -> Maybe TensorDescription -> NodeOutput)
-> Lens
NodeOutput
NodeOutput
(Maybe TensorDescription)
(Maybe TensorDescription)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeOutput -> Maybe TensorDescription
_NodeOutput'tensorDescription
(\ x__ :: NodeOutput
x__ y__ :: Maybe TensorDescription
y__ -> NodeOutput
x__ {_NodeOutput'tensorDescription :: Maybe TensorDescription
_NodeOutput'tensorDescription = Maybe TensorDescription
y__}))
(TensorDescription
-> Lens' (Maybe TensorDescription) TensorDescription
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TensorDescription
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField NodeOutput "maybe'tensorDescription" (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription) where
fieldOf :: Proxy# "maybe'tensorDescription"
-> (Maybe TensorDescription -> f (Maybe TensorDescription))
-> NodeOutput
-> f NodeOutput
fieldOf _
= ((Maybe TensorDescription -> f (Maybe TensorDescription))
-> NodeOutput -> f NodeOutput)
-> ((Maybe TensorDescription -> f (Maybe TensorDescription))
-> Maybe TensorDescription -> f (Maybe TensorDescription))
-> (Maybe TensorDescription -> f (Maybe TensorDescription))
-> NodeOutput
-> f NodeOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((NodeOutput -> Maybe TensorDescription)
-> (NodeOutput -> Maybe TensorDescription -> NodeOutput)
-> Lens
NodeOutput
NodeOutput
(Maybe TensorDescription)
(Maybe TensorDescription)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeOutput -> Maybe TensorDescription
_NodeOutput'tensorDescription
(\ x__ :: NodeOutput
x__ y__ :: Maybe TensorDescription
y__ -> NodeOutput
x__ {_NodeOutput'tensorDescription :: Maybe TensorDescription
_NodeOutput'tensorDescription = Maybe TensorDescription
y__}))
(Maybe TensorDescription -> f (Maybe TensorDescription))
-> Maybe TensorDescription -> f (Maybe TensorDescription)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message NodeOutput where
messageName :: Proxy NodeOutput -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.NodeOutput"
packedMessageDescriptor :: Proxy NodeOutput -> ByteString
packedMessageDescriptor _
= "\n\
\\n\
\NodeOutput\DC2\DC2\n\
\\EOTslot\CAN\SOH \SOH(\ENQR\EOTslot\DC2L\n\
\\DC2tensor_description\CAN\ETX \SOH(\v2\GS.tensorflow.TensorDescriptionR\DC1tensorDescription"
packedFileDescriptor :: Proxy NodeOutput -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor NodeOutput)
fieldsByTag
= let
slot__field_descriptor :: FieldDescriptor NodeOutput
slot__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor NodeOutput Int32
-> FieldDescriptor NodeOutput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"slot"
(ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(WireDefault Int32
-> Lens NodeOutput NodeOutput Int32 Int32
-> FieldAccessor NodeOutput Int32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "slot" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slot")) ::
Data.ProtoLens.FieldDescriptor NodeOutput
tensorDescription__field_descriptor :: FieldDescriptor NodeOutput
tensorDescription__field_descriptor
= String
-> FieldTypeDescriptor TensorDescription
-> FieldAccessor NodeOutput TensorDescription
-> FieldDescriptor NodeOutput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"tensor_description"
(MessageOrGroup -> FieldTypeDescriptor TensorDescription
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription)
(Lens
NodeOutput
NodeOutput
(Maybe TensorDescription)
(Maybe TensorDescription)
-> FieldAccessor NodeOutput TensorDescription
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'tensorDescription" a, Functor f) =>
(a -> f a) -> s -> 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'tensorDescription")) ::
Data.ProtoLens.FieldDescriptor NodeOutput
in
[(Tag, FieldDescriptor NodeOutput)]
-> Map Tag (FieldDescriptor NodeOutput)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor NodeOutput
slot__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor NodeOutput
tensorDescription__field_descriptor)]
unknownFields :: LensLike' f NodeOutput FieldSet
unknownFields
= (NodeOutput -> FieldSet)
-> (NodeOutput -> FieldSet -> NodeOutput)
-> Lens' NodeOutput FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
NodeOutput -> FieldSet
_NodeOutput'_unknownFields
(\ x__ :: NodeOutput
x__ y__ :: FieldSet
y__ -> NodeOutput
x__ {_NodeOutput'_unknownFields :: FieldSet
_NodeOutput'_unknownFields = FieldSet
y__})
defMessage :: NodeOutput
defMessage
= $WNodeOutput'_constructor :: Int32 -> Maybe TensorDescription -> FieldSet -> NodeOutput
NodeOutput'_constructor
{_NodeOutput'slot :: Int32
_NodeOutput'slot = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_NodeOutput'tensorDescription :: Maybe TensorDescription
_NodeOutput'tensorDescription = Maybe TensorDescription
forall a. Maybe a
Prelude.Nothing,
_NodeOutput'_unknownFields :: FieldSet
_NodeOutput'_unknownFields = []}
parseMessage :: Parser NodeOutput
parseMessage
= let
loop ::
NodeOutput -> Data.ProtoLens.Encoding.Bytes.Parser NodeOutput
loop :: NodeOutput -> Parser NodeOutput
loop x :: NodeOutput
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]))))
NodeOutput -> Parser NodeOutput
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter NodeOutput NodeOutput FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NodeOutput -> NodeOutput
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 NodeOutput NodeOutput FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) NodeOutput
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"slot"
NodeOutput -> Parser NodeOutput
loop (Setter NodeOutput NodeOutput Int32 Int32
-> Int32 -> NodeOutput -> NodeOutput
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "slot" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slot") Int32
y NodeOutput
x)
26
-> do TensorDescription
y <- Parser TensorDescription -> String -> Parser TensorDescription
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TensorDescription -> Parser TensorDescription
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 TensorDescription
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"tensor_description"
NodeOutput -> Parser NodeOutput
loop
(Setter NodeOutput NodeOutput TensorDescription TensorDescription
-> TensorDescription -> NodeOutput -> NodeOutput
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "tensorDescription" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorDescription") TensorDescription
y NodeOutput
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
NodeOutput -> Parser NodeOutput
loop
(Setter NodeOutput NodeOutput FieldSet FieldSet
-> (FieldSet -> FieldSet) -> NodeOutput -> NodeOutput
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 NodeOutput NodeOutput FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) NodeOutput
x)
in
Parser NodeOutput -> String -> Parser NodeOutput
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do NodeOutput -> Parser NodeOutput
loop NodeOutput
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "NodeOutput"
buildMessage :: NodeOutput -> Builder
buildMessage
= \ _x :: NodeOutput
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Int32
_v = FoldLike Int32 NodeOutput NodeOutput Int32 Int32
-> NodeOutput -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "slot" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slot") NodeOutput
_x
in
if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 8)
((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe TensorDescription)
NodeOutput
NodeOutput
(Maybe TensorDescription)
(Maybe TensorDescription)
-> NodeOutput -> Maybe TensorDescription
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'tensorDescription" a, Functor f) =>
(a -> f a) -> s -> 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'tensorDescription") NodeOutput
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: TensorDescription
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder)
-> (TensorDescription -> ByteString)
-> TensorDescription
-> 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))
TensorDescription -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TensorDescription
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet NodeOutput NodeOutput FieldSet FieldSet
-> NodeOutput -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet NodeOutput NodeOutput FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields NodeOutput
_x)))
instance Control.DeepSeq.NFData NodeOutput where
rnf :: NodeOutput -> ()
rnf
= \ x__ :: NodeOutput
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeOutput -> FieldSet
_NodeOutput'_unknownFields NodeOutput
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(NodeOutput -> Int32
_NodeOutput'slot NodeOutput
x__)
(Maybe TensorDescription -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (NodeOutput -> Maybe TensorDescription
_NodeOutput'tensorDescription NodeOutput
x__) ()))
data StepStats
= StepStats'_constructor {StepStats -> Vector DeviceStepStats
_StepStats'devStats :: !(Data.Vector.Vector DeviceStepStats),
StepStats -> FieldSet
_StepStats'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (StepStats -> StepStats -> Bool
(StepStats -> StepStats -> Bool)
-> (StepStats -> StepStats -> Bool) -> Eq StepStats
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StepStats -> StepStats -> Bool
$c/= :: StepStats -> StepStats -> Bool
== :: StepStats -> StepStats -> Bool
$c== :: StepStats -> StepStats -> Bool
Prelude.Eq, Eq StepStats
Eq StepStats =>
(StepStats -> StepStats -> Ordering)
-> (StepStats -> StepStats -> Bool)
-> (StepStats -> StepStats -> Bool)
-> (StepStats -> StepStats -> Bool)
-> (StepStats -> StepStats -> Bool)
-> (StepStats -> StepStats -> StepStats)
-> (StepStats -> StepStats -> StepStats)
-> Ord StepStats
StepStats -> StepStats -> Bool
StepStats -> StepStats -> Ordering
StepStats -> StepStats -> StepStats
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 :: StepStats -> StepStats -> StepStats
$cmin :: StepStats -> StepStats -> StepStats
max :: StepStats -> StepStats -> StepStats
$cmax :: StepStats -> StepStats -> StepStats
>= :: StepStats -> StepStats -> Bool
$c>= :: StepStats -> StepStats -> Bool
> :: StepStats -> StepStats -> Bool
$c> :: StepStats -> StepStats -> Bool
<= :: StepStats -> StepStats -> Bool
$c<= :: StepStats -> StepStats -> Bool
< :: StepStats -> StepStats -> Bool
$c< :: StepStats -> StepStats -> Bool
compare :: StepStats -> StepStats -> Ordering
$ccompare :: StepStats -> StepStats -> Ordering
$cp1Ord :: Eq StepStats
Prelude.Ord)
instance Prelude.Show StepStats where
showsPrec :: Int -> StepStats -> ShowS
showsPrec _ __x :: StepStats
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(StepStats -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort StepStats
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField StepStats "devStats" [DeviceStepStats] where
fieldOf :: Proxy# "devStats"
-> ([DeviceStepStats] -> f [DeviceStepStats])
-> StepStats
-> f StepStats
fieldOf _
= ((Vector DeviceStepStats -> f (Vector DeviceStepStats))
-> StepStats -> f StepStats)
-> (([DeviceStepStats] -> f [DeviceStepStats])
-> Vector DeviceStepStats -> f (Vector DeviceStepStats))
-> ([DeviceStepStats] -> f [DeviceStepStats])
-> StepStats
-> f StepStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StepStats -> Vector DeviceStepStats)
-> (StepStats -> Vector DeviceStepStats -> StepStats)
-> Lens
StepStats
StepStats
(Vector DeviceStepStats)
(Vector DeviceStepStats)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StepStats -> Vector DeviceStepStats
_StepStats'devStats (\ x__ :: StepStats
x__ y__ :: Vector DeviceStepStats
y__ -> StepStats
x__ {_StepStats'devStats :: Vector DeviceStepStats
_StepStats'devStats = Vector DeviceStepStats
y__}))
((Vector DeviceStepStats -> [DeviceStepStats])
-> (Vector DeviceStepStats
-> [DeviceStepStats] -> Vector DeviceStepStats)
-> Lens
(Vector DeviceStepStats)
(Vector DeviceStepStats)
[DeviceStepStats]
[DeviceStepStats]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector DeviceStepStats -> [DeviceStepStats]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [DeviceStepStats]
y__ -> [DeviceStepStats] -> Vector DeviceStepStats
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [DeviceStepStats]
y__))
instance Data.ProtoLens.Field.HasField StepStats "vec'devStats" (Data.Vector.Vector DeviceStepStats) where
fieldOf :: Proxy# "vec'devStats"
-> (Vector DeviceStepStats -> f (Vector DeviceStepStats))
-> StepStats
-> f StepStats
fieldOf _
= ((Vector DeviceStepStats -> f (Vector DeviceStepStats))
-> StepStats -> f StepStats)
-> ((Vector DeviceStepStats -> f (Vector DeviceStepStats))
-> Vector DeviceStepStats -> f (Vector DeviceStepStats))
-> (Vector DeviceStepStats -> f (Vector DeviceStepStats))
-> StepStats
-> f StepStats
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((StepStats -> Vector DeviceStepStats)
-> (StepStats -> Vector DeviceStepStats -> StepStats)
-> Lens
StepStats
StepStats
(Vector DeviceStepStats)
(Vector DeviceStepStats)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StepStats -> Vector DeviceStepStats
_StepStats'devStats (\ x__ :: StepStats
x__ y__ :: Vector DeviceStepStats
y__ -> StepStats
x__ {_StepStats'devStats :: Vector DeviceStepStats
_StepStats'devStats = Vector DeviceStepStats
y__}))
(Vector DeviceStepStats -> f (Vector DeviceStepStats))
-> Vector DeviceStepStats -> f (Vector DeviceStepStats)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message StepStats where
messageName :: Proxy StepStats -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.StepStats"
packedMessageDescriptor :: Proxy StepStats -> ByteString
packedMessageDescriptor _
= "\n\
\\tStepStats\DC28\n\
\\tdev_stats\CAN\SOH \ETX(\v2\ESC.tensorflow.DeviceStepStatsR\bdevStats"
packedFileDescriptor :: Proxy StepStats -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor StepStats)
fieldsByTag
= let
devStats__field_descriptor :: FieldDescriptor StepStats
devStats__field_descriptor
= String
-> FieldTypeDescriptor DeviceStepStats
-> FieldAccessor StepStats DeviceStepStats
-> FieldDescriptor StepStats
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"dev_stats"
(MessageOrGroup -> FieldTypeDescriptor DeviceStepStats
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor DeviceStepStats)
(Packing
-> Lens' StepStats [DeviceStepStats]
-> FieldAccessor StepStats DeviceStepStats
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "devStats" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"devStats")) ::
Data.ProtoLens.FieldDescriptor StepStats
in
[(Tag, FieldDescriptor StepStats)]
-> Map Tag (FieldDescriptor StepStats)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor StepStats
devStats__field_descriptor)]
unknownFields :: LensLike' f StepStats FieldSet
unknownFields
= (StepStats -> FieldSet)
-> (StepStats -> FieldSet -> StepStats) -> Lens' StepStats FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
StepStats -> FieldSet
_StepStats'_unknownFields
(\ x__ :: StepStats
x__ y__ :: FieldSet
y__ -> StepStats
x__ {_StepStats'_unknownFields :: FieldSet
_StepStats'_unknownFields = FieldSet
y__})
defMessage :: StepStats
defMessage
= $WStepStats'_constructor :: Vector DeviceStepStats -> FieldSet -> StepStats
StepStats'_constructor
{_StepStats'devStats :: Vector DeviceStepStats
_StepStats'devStats = Vector DeviceStepStats
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_StepStats'_unknownFields :: FieldSet
_StepStats'_unknownFields = []}
parseMessage :: Parser StepStats
parseMessage
= let
loop ::
StepStats
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld DeviceStepStats
-> Data.ProtoLens.Encoding.Bytes.Parser StepStats
loop :: StepStats
-> Growing Vector RealWorld DeviceStepStats -> Parser StepStats
loop x :: StepStats
x mutable'devStats :: Growing Vector RealWorld DeviceStepStats
mutable'devStats
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector DeviceStepStats
frozen'devStats <- IO (Vector DeviceStepStats) -> Parser (Vector DeviceStepStats)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) DeviceStepStats
-> IO (Vector DeviceStepStats)
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 DeviceStepStats
Growing Vector (PrimState IO) DeviceStepStats
mutable'devStats)
(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]))))
StepStats -> Parser StepStats
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter StepStats StepStats FieldSet FieldSet
-> (FieldSet -> FieldSet) -> StepStats -> StepStats
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 StepStats StepStats FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
StepStats
StepStats
(Vector DeviceStepStats)
(Vector DeviceStepStats)
-> Vector DeviceStepStats -> StepStats -> StepStats
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'devStats" a, Functor f) =>
(a -> f a) -> s -> 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'devStats") Vector DeviceStepStats
frozen'devStats StepStats
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do !DeviceStepStats
y <- Parser DeviceStepStats -> String -> Parser DeviceStepStats
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser DeviceStepStats -> Parser DeviceStepStats
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 DeviceStepStats
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"dev_stats"
Growing Vector RealWorld DeviceStepStats
v <- IO (Growing Vector RealWorld DeviceStepStats)
-> Parser (Growing Vector RealWorld DeviceStepStats)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) DeviceStepStats
-> DeviceStepStats
-> IO (Growing Vector (PrimState IO) DeviceStepStats)
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 DeviceStepStats
Growing Vector (PrimState IO) DeviceStepStats
mutable'devStats DeviceStepStats
y)
StepStats
-> Growing Vector RealWorld DeviceStepStats -> Parser StepStats
loop StepStats
x Growing Vector RealWorld DeviceStepStats
v
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
StepStats
-> Growing Vector RealWorld DeviceStepStats -> Parser StepStats
loop
(Setter StepStats StepStats FieldSet FieldSet
-> (FieldSet -> FieldSet) -> StepStats -> StepStats
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 StepStats StepStats FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) StepStats
x)
Growing Vector RealWorld DeviceStepStats
mutable'devStats
in
Parser StepStats -> String -> Parser StepStats
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld DeviceStepStats
mutable'devStats <- IO (Growing Vector RealWorld DeviceStepStats)
-> Parser (Growing Vector RealWorld DeviceStepStats)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld DeviceStepStats)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
StepStats
-> Growing Vector RealWorld DeviceStepStats -> Parser StepStats
loop StepStats
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld DeviceStepStats
mutable'devStats)
"StepStats"
buildMessage :: StepStats -> Builder
buildMessage
= \ _x :: StepStats
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((DeviceStepStats -> Builder) -> Vector DeviceStepStats -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: DeviceStepStats
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (DeviceStepStats -> ByteString) -> DeviceStepStats -> 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))
DeviceStepStats -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
DeviceStepStats
_v))
(FoldLike
(Vector DeviceStepStats)
StepStats
StepStats
(Vector DeviceStepStats)
(Vector DeviceStepStats)
-> StepStats -> Vector DeviceStepStats
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'devStats" a, Functor f) =>
(a -> f a) -> s -> 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'devStats") StepStats
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet StepStats StepStats FieldSet FieldSet
-> StepStats -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet StepStats StepStats FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields StepStats
_x))
instance Control.DeepSeq.NFData StepStats where
rnf :: StepStats -> ()
rnf
= \ x__ :: StepStats
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(StepStats -> FieldSet
_StepStats'_unknownFields StepStats
x__)
(Vector DeviceStepStats -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (StepStats -> Vector DeviceStepStats
_StepStats'devStats StepStats
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= "\n\
\*tensorflow/core/framework/step_stats.proto\DC2\n\
\tensorflow\SUB6tensorflow/core/framework/allocation_description.proto\SUB2tensorflow/core/framework/tensor_description.proto\"V\n\
\\DLEAllocationRecord\DC2!\n\
\\falloc_micros\CAN\SOH \SOH(\ETXR\vallocMicros\DC2\US\n\
\\valloc_bytes\CAN\STX \SOH(\ETXR\n\
\allocBytes\"\157\STX\n\
\\DC3AllocatorMemoryUsed\DC2%\n\
\\SOallocator_name\CAN\SOH \SOH(\tR\rallocatorName\DC2\US\n\
\\vtotal_bytes\CAN\STX \SOH(\ETXR\n\
\totalBytes\DC2\GS\n\
\\n\
\peak_bytes\CAN\ETX \SOH(\ETXR\tpeakBytes\DC2\GS\n\
\\n\
\live_bytes\CAN\EOT \SOH(\ETXR\tliveBytes\DC2K\n\
\\DC2allocation_records\CAN\ACK \ETX(\v2\FS.tensorflow.AllocationRecordR\DC1allocationRecords\DC23\n\
\\SYNallocator_bytes_in_use\CAN\ENQ \SOH(\ETXR\DC3allocatorBytesInUse\"n\n\
\\n\
\NodeOutput\DC2\DC2\n\
\\EOTslot\CAN\SOH \SOH(\ENQR\EOTslot\DC2L\n\
\\DC2tensor_description\CAN\ETX \SOH(\v2\GS.tensorflow.TensorDescriptionR\DC1tensorDescription\"\254\STX\n\
\\vMemoryStats\DC2(\n\
\\DLEtemp_memory_size\CAN\SOH \SOH(\ETXR\SOtempMemorySize\DC24\n\
\\SYNpersistent_memory_size\CAN\ETX \SOH(\ETXR\DC4persistentMemorySize\DC2=\n\
\\ESCpersistent_tensor_alloc_ids\CAN\ENQ \ETX(\ETXR\CANpersistentTensorAllocIds\DC29\n\
\\ETBdevice_temp_memory_size\CAN\STX \SOH(\ETXR\DC4deviceTempMemorySizeB\STX\CAN\SOH\DC2E\n\
\\GSdevice_persistent_memory_size\CAN\EOT \SOH(\ETXR\SUBdevicePersistentMemorySizeB\STX\CAN\SOH\DC2N\n\
\\"device_persistent_tensor_alloc_ids\CAN\ACK \ETX(\ETXR\RSdevicePersistentTensorAllocIdsB\STX\CAN\SOH\"\147\ACK\n\
\\rNodeExecStats\DC2\ESC\n\
\\tnode_name\CAN\SOH \SOH(\tR\bnodeName\DC2(\n\
\\DLEall_start_micros\CAN\STX \SOH(\ETXR\SOallStartMicros\DC2-\n\
\\DC3op_start_rel_micros\CAN\ETX \SOH(\ETXR\DLEopStartRelMicros\DC2)\n\
\\DC1op_end_rel_micros\CAN\EOT \SOH(\ETXR\SOopEndRelMicros\DC2+\n\
\\DC2all_end_rel_micros\CAN\ENQ \SOH(\ETXR\SIallEndRelMicros\DC27\n\
\\ACKmemory\CAN\ACK \ETX(\v2\US.tensorflow.AllocatorMemoryUsedR\ACKmemory\DC2.\n\
\\ACKoutput\CAN\a \ETX(\v2\SYN.tensorflow.NodeOutputR\ACKoutput\DC2%\n\
\\SOtimeline_label\CAN\b \SOH(\tR\rtimelineLabel\DC2)\n\
\\DLEscheduled_micros\CAN\t \SOH(\ETXR\SIscheduledMicros\DC2\ESC\n\
\\tthread_id\CAN\n\
\ \SOH(\rR\bthreadId\DC2N\n\
\\DC1referenced_tensor\CAN\v \ETX(\v2!.tensorflow.AllocationDescriptionR\DLEreferencedTensor\DC2:\n\
\\fmemory_stats\CAN\f \SOH(\v2\ETB.tensorflow.MemoryStatsR\vmemoryStats\DC2&\n\
\\SIall_start_nanos\CAN\r \SOH(\ETXR\rallStartNanos\DC2+\n\
\\DC2op_start_rel_nanos\CAN\SO \SOH(\ETXR\SIopStartRelNanos\DC2'\n\
\\DLEop_end_rel_nanos\CAN\SI \SOH(\ETXR\ropEndRelNanos\DC2)\n\
\\DC1all_end_rel_nanos\CAN\DLE \SOH(\ETXR\SOallEndRelNanos\DC2'\n\
\\SIscheduled_nanos\CAN\DC1 \SOH(\ETXR\SOscheduledNanos\"\244\SOH\n\
\\SIDeviceStepStats\DC2\SYN\n\
\\ACKdevice\CAN\SOH \SOH(\tR\ACKdevice\DC28\n\
\\n\
\node_stats\CAN\STX \ETX(\v2\EM.tensorflow.NodeExecStatsR\tnodeStats\DC2O\n\
\\fthread_names\CAN\ETX \ETX(\v2,.tensorflow.DeviceStepStats.ThreadNamesEntryR\vthreadNames\SUB>\n\
\\DLEThreadNamesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\rR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\"E\n\
\\tStepStats\DC28\n\
\\tdev_stats\CAN\SOH \ETX(\v2\ESC.tensorflow.DeviceStepStatsR\bdevStatsB\131\SOH\n\
\\CANorg.tensorflow.frameworkB\SIStepStatsProtosP\SOHZQgithub.com/tensorflow/tensorflow/tensorflow/go/core/framework/step_stats_go_proto\248\SOH\SOHJ\165\SUB\n\
\\ACK\DC2\EOT\NUL\NULW\SOH\n\
\\b\n\
\\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
\\b\n\
\\SOH\STX\DC2\ETX\STX\NUL\DC3\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX\EOT\NUL@\n\
\\t\n\
\\STX\ETX\SOH\DC2\ETX\ENQ\NUL<\n\
\\b\n\
\\SOH\b\DC2\ETX\a\NUL\US\n\
\\t\n\
\\STX\b\US\DC2\ETX\a\NUL\US\n\
\\b\n\
\\SOH\b\DC2\ETX\b\NUL0\n\
\\t\n\
\\STX\b\b\DC2\ETX\b\NUL0\n\
\\b\n\
\\SOH\b\DC2\ETX\t\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\t\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\n\
\\NUL1\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\n\
\\NUL1\n\
\\b\n\
\\SOH\b\DC2\ETX\v\NULh\n\
\\t\n\
\\STX\b\v\DC2\ETX\v\NULh\n\
\O\n\
\\STX\EOT\NUL\DC2\EOT\SO\NUL\DC3\SOH\SUBC An allocation/de-allocation operation performed by the allocator.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\SO\b\CAN\n\
\.\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\DLE\STX\EM\SUB! The timestamp of the operation.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\DLE\STX\a\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\DLE\b\DC4\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\DLE\ETB\CAN\n\
\F\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX\DC2\STX\CAN\SUB9 Number of bytes allocated, or de-allocated if negative.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\DC2\STX\a\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\DC2\b\DC3\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\DC2\SYN\ETB\n\
\\n\
\\n\
\\STX\EOT\SOH\DC2\EOT\NAK\NUL\"\SOH\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX\NAK\b\ESC\n\
\\v\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX\SYN\STX\FS\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\ETB\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\SYN\SUB\ESC\n\
\9\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX\CAN\STX\CAN\SUB, These are per-node allocator memory stats.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\CAN\STX\a\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\CAN\b\DC3\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\CAN\SYN\ETB\n\
\\v\n\
\\EOT\EOT\SOH\STX\STX\DC2\ETX\EM\STX\ETB\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ENQ\DC2\ETX\EM\STX\a\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\EM\b\DC2\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\EM\NAK\SYN\n\
\2\n\
\\EOT\EOT\SOH\STX\ETX\DC2\ETX\ESC\STX\ETB\SUB% The bytes that are not deallocated.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\ENQ\DC2\ETX\ESC\STX\a\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETX\ESC\b\DC2\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETX\ESC\NAK\SYN\n\
\8\n\
\\EOT\EOT\SOH\STX\EOT\DC2\ETX\GS\STX3\SUB+ The allocation and deallocation timeline.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\EOT\EOT\DC2\ETX\GS\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\EOT\ACK\DC2\ETX\GS\v\ESC\n\
\\f\n\
\\ENQ\EOT\SOH\STX\EOT\SOH\DC2\ETX\GS\FS.\n\
\\f\n\
\\ENQ\EOT\SOH\STX\EOT\ETX\DC2\ETX\GS12\n\
\\137\SOH\n\
\\EOT\EOT\SOH\STX\ENQ\DC2\ETX!\STX#\SUB| These are snapshots of the overall allocator memory stats.\n\
\ The number of live bytes currently allocated by the allocator.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ENQ\ENQ\DC2\ETX!\STX\a\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ENQ\SOH\DC2\ETX!\b\RS\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ENQ\ETX\DC2\ETX!!\"\n\
\K\n\
\\STX\EOT\STX\DC2\EOT%\NUL(\SOH\SUB? Output sizes recorded for a single execution of a graph node.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX%\b\DC2\n\
\\v\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX&\STX\DC1\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETX&\STX\a\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX&\b\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX&\SI\DLE\n\
\\v\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETX'\STX+\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX'\STX\DC3\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX'\DC4&\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX')*\n\
\\"\n\
\\STX\EOT\ETX\DC2\EOT+\NUL3\SOH\SUB\SYN For memory tracking.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETX+\b\DC3\n\
\\v\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETX,\STX\GS\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX,\STX\a\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX,\b\CAN\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX,\ESC\FS\n\
\\v\n\
\\EOT\EOT\ETX\STX\SOH\DC2\ETX-\STX#\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETX-\STX\a\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX-\b\RS\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX-!\"\n\
\\v\n\
\\EOT\EOT\ETX\STX\STX\DC2\ETX.\STX1\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\EOT\DC2\ETX.\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\ENQ\DC2\ETX.\v\DLE\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX.\DC1,\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX./0\n\
\\v\n\
\\EOT\EOT\ETX\STX\ETX\DC2\ETX0\STX8\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ETX\ENQ\DC2\ETX0\STX\a\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ETX\SOH\DC2\ETX0\b\US\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ETX\ETX\DC2\ETX0\"#\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ETX\b\DC2\ETX0$7\n\
\\r\n\
\\ACK\EOT\ETX\STX\ETX\b\ETX\DC2\ETX0%6\n\
\\v\n\
\\EOT\EOT\ETX\STX\EOT\DC2\ETX1\STX>\n\
\\f\n\
\\ENQ\EOT\ETX\STX\EOT\ENQ\DC2\ETX1\STX\a\n\
\\f\n\
\\ENQ\EOT\ETX\STX\EOT\SOH\DC2\ETX1\b%\n\
\\f\n\
\\ENQ\EOT\ETX\STX\EOT\ETX\DC2\ETX1()\n\
\\f\n\
\\ENQ\EOT\ETX\STX\EOT\b\DC2\ETX1*=\n\
\\r\n\
\\ACK\EOT\ETX\STX\EOT\b\ETX\DC2\ETX1+<\n\
\\v\n\
\\EOT\EOT\ETX\STX\ENQ\DC2\ETX2\STXL\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ENQ\EOT\DC2\ETX2\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ENQ\ENQ\DC2\ETX2\v\DLE\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ENQ\SOH\DC2\ETX2\DC13\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ENQ\ETX\DC2\ETX267\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ENQ\b\DC2\ETX28K\n\
\\r\n\
\\ACK\EOT\ETX\STX\ENQ\b\ETX\DC2\ETX29J\n\
\N\n\
\\STX\EOT\EOT\DC2\EOT6\NULL\SOH\SUBB Time/size stats recorded for a single execution of a graph node.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\EOT\SOH\DC2\ETX6\b\NAK\n\
\\216\SOH\n\
\\EOT\EOT\EOT\STX\NUL\DC2\ETX;\STX\ETB\SUB\202\SOH TODO(tucker): Use some more compact form of node identity than\n\
\ the full string name. Either all processes should agree on a\n\
\ global id (cost_id?) for each node, or we should use a hash of\n\
\ the name.\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETX;\STX\b\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX;\t\DC2\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX;\NAK\SYN\n\
\\v\n\
\\EOT\EOT\EOT\STX\SOH\DC2\ETX<\STX\GS\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\ETX<\STX\a\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETX<\b\CAN\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETX<\ESC\FS\n\
\\v\n\
\\EOT\EOT\EOT\STX\STX\DC2\ETX=\STX \n\
\\f\n\
\\ENQ\EOT\EOT\STX\STX\ENQ\DC2\ETX=\STX\a\n\
\\f\n\
\\ENQ\EOT\EOT\STX\STX\SOH\DC2\ETX=\b\ESC\n\
\\f\n\
\\ENQ\EOT\EOT\STX\STX\ETX\DC2\ETX=\RS\US\n\
\\v\n\
\\EOT\EOT\EOT\STX\ETX\DC2\ETX>\STX\RS\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ETX\ENQ\DC2\ETX>\STX\a\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ETX\SOH\DC2\ETX>\b\EM\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ETX\ETX\DC2\ETX>\FS\GS\n\
\\v\n\
\\EOT\EOT\EOT\STX\EOT\DC2\ETX?\STX\US\n\
\\f\n\
\\ENQ\EOT\EOT\STX\EOT\ENQ\DC2\ETX?\STX\a\n\
\\f\n\
\\ENQ\EOT\EOT\STX\EOT\SOH\DC2\ETX?\b\SUB\n\
\\f\n\
\\ENQ\EOT\EOT\STX\EOT\ETX\DC2\ETX?\GS\RS\n\
\\v\n\
\\EOT\EOT\EOT\STX\ENQ\DC2\ETX@\STX*\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ENQ\EOT\DC2\ETX@\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ENQ\ACK\DC2\ETX@\v\RS\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ENQ\SOH\DC2\ETX@\US%\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ENQ\ETX\DC2\ETX@()\n\
\\v\n\
\\EOT\EOT\EOT\STX\ACK\DC2\ETXA\STX!\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ACK\EOT\DC2\ETXA\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ACK\ACK\DC2\ETXA\v\NAK\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ACK\SOH\DC2\ETXA\SYN\FS\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ACK\ETX\DC2\ETXA\US \n\
\\v\n\
\\EOT\EOT\EOT\STX\a\DC2\ETXB\STX\FS\n\
\\f\n\
\\ENQ\EOT\EOT\STX\a\ENQ\DC2\ETXB\STX\b\n\
\\f\n\
\\ENQ\EOT\EOT\STX\a\SOH\DC2\ETXB\t\ETB\n\
\\f\n\
\\ENQ\EOT\EOT\STX\a\ETX\DC2\ETXB\SUB\ESC\n\
\\v\n\
\\EOT\EOT\EOT\STX\b\DC2\ETXC\STX\GS\n\
\\f\n\
\\ENQ\EOT\EOT\STX\b\ENQ\DC2\ETXC\STX\a\n\
\\f\n\
\\ENQ\EOT\EOT\STX\b\SOH\DC2\ETXC\b\CAN\n\
\\f\n\
\\ENQ\EOT\EOT\STX\b\ETX\DC2\ETXC\ESC\FS\n\
\\v\n\
\\EOT\EOT\EOT\STX\t\DC2\ETXD\STX\CAN\n\
\\f\n\
\\ENQ\EOT\EOT\STX\t\ENQ\DC2\ETXD\STX\b\n\
\\f\n\
\\ENQ\EOT\EOT\STX\t\SOH\DC2\ETXD\t\DC2\n\
\\f\n\
\\ENQ\EOT\EOT\STX\t\ETX\DC2\ETXD\NAK\ETB\n\
\\v\n\
\\EOT\EOT\EOT\STX\n\
\\DC2\ETXE\STX8\n\
\\f\n\
\\ENQ\EOT\EOT\STX\n\
\\EOT\DC2\ETXE\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\n\
\\ACK\DC2\ETXE\v \n\
\\f\n\
\\ENQ\EOT\EOT\STX\n\
\\SOH\DC2\ETXE!2\n\
\\f\n\
\\ENQ\EOT\EOT\STX\n\
\\ETX\DC2\ETXE57\n\
\\v\n\
\\EOT\EOT\EOT\STX\v\DC2\ETXF\STX \n\
\\f\n\
\\ENQ\EOT\EOT\STX\v\ACK\DC2\ETXF\STX\r\n\
\\f\n\
\\ENQ\EOT\EOT\STX\v\SOH\DC2\ETXF\SO\SUB\n\
\\f\n\
\\ENQ\EOT\EOT\STX\v\ETX\DC2\ETXF\GS\US\n\
\\v\n\
\\EOT\EOT\EOT\STX\f\DC2\ETXG\STX\GS\n\
\\f\n\
\\ENQ\EOT\EOT\STX\f\ENQ\DC2\ETXG\STX\a\n\
\\f\n\
\\ENQ\EOT\EOT\STX\f\SOH\DC2\ETXG\b\ETB\n\
\\f\n\
\\ENQ\EOT\EOT\STX\f\ETX\DC2\ETXG\SUB\FS\n\
\\v\n\
\\EOT\EOT\EOT\STX\r\DC2\ETXH\STX \n\
\\f\n\
\\ENQ\EOT\EOT\STX\r\ENQ\DC2\ETXH\STX\a\n\
\\f\n\
\\ENQ\EOT\EOT\STX\r\SOH\DC2\ETXH\b\SUB\n\
\\f\n\
\\ENQ\EOT\EOT\STX\r\ETX\DC2\ETXH\GS\US\n\
\\v\n\
\\EOT\EOT\EOT\STX\SO\DC2\ETXI\STX\RS\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SO\ENQ\DC2\ETXI\STX\a\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SO\SOH\DC2\ETXI\b\CAN\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SO\ETX\DC2\ETXI\ESC\GS\n\
\\v\n\
\\EOT\EOT\EOT\STX\SI\DC2\ETXJ\STX\US\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SI\ENQ\DC2\ETXJ\STX\a\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SI\SOH\DC2\ETXJ\b\EM\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SI\ETX\DC2\ETXJ\FS\RS\n\
\\v\n\
\\EOT\EOT\EOT\STX\DLE\DC2\ETXK\STX\GS\n\
\\f\n\
\\ENQ\EOT\EOT\STX\DLE\ENQ\DC2\ETXK\STX\a\n\
\\f\n\
\\ENQ\EOT\EOT\STX\DLE\SOH\DC2\ETXK\b\ETB\n\
\\f\n\
\\ENQ\EOT\EOT\STX\DLE\ETX\DC2\ETXK\SUB\FS\n\
\\n\
\\n\
\\STX\EOT\ENQ\DC2\EOTN\NULS\SOH\n\
\\n\
\\n\
\\ETX\EOT\ENQ\SOH\DC2\ETXN\b\ETB\n\
\\v\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\ETXO\STX\DC4\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETXO\STX\b\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETXO\t\SI\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETXO\DC2\DC3\n\
\\v\n\
\\EOT\EOT\ENQ\STX\SOH\DC2\ETXP\STX(\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\EOT\DC2\ETXP\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETXP\v\CAN\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETXP\EM#\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETXP&'\n\
\$\n\
\\EOT\EOT\ENQ\STX\STX\DC2\ETXR\STX'\SUB\ETB Its key is thread id.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\ACK\DC2\ETXR\STX\NAK\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETXR\SYN\"\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETXR%&\n\
\\n\
\\n\
\\STX\EOT\ACK\DC2\EOTU\NULW\SOH\n\
\\n\
\\n\
\\ETX\EOT\ACK\SOH\DC2\ETXU\b\DC1\n\
\\v\n\
\\EOT\EOT\ACK\STX\NUL\DC2\ETXV\STX)\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\EOT\DC2\ETXV\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ACK\DC2\ETXV\v\SUB\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXV\ESC$\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXV'(b\ACKproto3"