{-# 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.LogMemory (
MemoryLogRawAllocation(), MemoryLogRawDeallocation(),
MemoryLogStep(), MemoryLogTensorAllocation(),
MemoryLogTensorDeallocation(), MemoryLogTensorOutput()
) 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.TensorDescription
data MemoryLogRawAllocation
= MemoryLogRawAllocation'_constructor {MemoryLogRawAllocation -> Int64
_MemoryLogRawAllocation'stepId :: !Data.Int.Int64,
MemoryLogRawAllocation -> Text
_MemoryLogRawAllocation'operation :: !Data.Text.Text,
MemoryLogRawAllocation -> Int64
_MemoryLogRawAllocation'numBytes :: !Data.Int.Int64,
MemoryLogRawAllocation -> Word64
_MemoryLogRawAllocation'ptr :: !Data.Word.Word64,
MemoryLogRawAllocation -> Int64
_MemoryLogRawAllocation'allocationId :: !Data.Int.Int64,
MemoryLogRawAllocation -> Text
_MemoryLogRawAllocation'allocatorName :: !Data.Text.Text,
MemoryLogRawAllocation -> FieldSet
_MemoryLogRawAllocation'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool
(MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool)
-> (MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool)
-> Eq MemoryLogRawAllocation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool
$c/= :: MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool
== :: MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool
$c== :: MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool
Prelude.Eq, Eq MemoryLogRawAllocation
Eq MemoryLogRawAllocation =>
(MemoryLogRawAllocation -> MemoryLogRawAllocation -> Ordering)
-> (MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool)
-> (MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool)
-> (MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool)
-> (MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool)
-> (MemoryLogRawAllocation
-> MemoryLogRawAllocation -> MemoryLogRawAllocation)
-> (MemoryLogRawAllocation
-> MemoryLogRawAllocation -> MemoryLogRawAllocation)
-> Ord MemoryLogRawAllocation
MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool
MemoryLogRawAllocation -> MemoryLogRawAllocation -> Ordering
MemoryLogRawAllocation
-> MemoryLogRawAllocation -> MemoryLogRawAllocation
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 :: MemoryLogRawAllocation
-> MemoryLogRawAllocation -> MemoryLogRawAllocation
$cmin :: MemoryLogRawAllocation
-> MemoryLogRawAllocation -> MemoryLogRawAllocation
max :: MemoryLogRawAllocation
-> MemoryLogRawAllocation -> MemoryLogRawAllocation
$cmax :: MemoryLogRawAllocation
-> MemoryLogRawAllocation -> MemoryLogRawAllocation
>= :: MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool
$c>= :: MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool
> :: MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool
$c> :: MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool
<= :: MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool
$c<= :: MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool
< :: MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool
$c< :: MemoryLogRawAllocation -> MemoryLogRawAllocation -> Bool
compare :: MemoryLogRawAllocation -> MemoryLogRawAllocation -> Ordering
$ccompare :: MemoryLogRawAllocation -> MemoryLogRawAllocation -> Ordering
$cp1Ord :: Eq MemoryLogRawAllocation
Prelude.Ord)
instance Prelude.Show MemoryLogRawAllocation where
showsPrec :: Int -> MemoryLogRawAllocation -> ShowS
showsPrec _ __x :: MemoryLogRawAllocation
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(MemoryLogRawAllocation -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemoryLogRawAllocation
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MemoryLogRawAllocation "stepId" Data.Int.Int64 where
fieldOf :: Proxy# "stepId"
-> (Int64 -> f Int64)
-> MemoryLogRawAllocation
-> f MemoryLogRawAllocation
fieldOf _
= ((Int64 -> f Int64)
-> MemoryLogRawAllocation -> f MemoryLogRawAllocation)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MemoryLogRawAllocation
-> f MemoryLogRawAllocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogRawAllocation -> Int64)
-> (MemoryLogRawAllocation -> Int64 -> MemoryLogRawAllocation)
-> Lens MemoryLogRawAllocation MemoryLogRawAllocation Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogRawAllocation -> Int64
_MemoryLogRawAllocation'stepId
(\ x__ :: MemoryLogRawAllocation
x__ y__ :: Int64
y__ -> MemoryLogRawAllocation
x__ {_MemoryLogRawAllocation'stepId :: Int64
_MemoryLogRawAllocation'stepId = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogRawAllocation "operation" Data.Text.Text where
fieldOf :: Proxy# "operation"
-> (Text -> f Text)
-> MemoryLogRawAllocation
-> f MemoryLogRawAllocation
fieldOf _
= ((Text -> f Text)
-> MemoryLogRawAllocation -> f MemoryLogRawAllocation)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MemoryLogRawAllocation
-> f MemoryLogRawAllocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogRawAllocation -> Text)
-> (MemoryLogRawAllocation -> Text -> MemoryLogRawAllocation)
-> Lens MemoryLogRawAllocation MemoryLogRawAllocation Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogRawAllocation -> Text
_MemoryLogRawAllocation'operation
(\ x__ :: MemoryLogRawAllocation
x__ y__ :: Text
y__ -> MemoryLogRawAllocation
x__ {_MemoryLogRawAllocation'operation :: Text
_MemoryLogRawAllocation'operation = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogRawAllocation "numBytes" Data.Int.Int64 where
fieldOf :: Proxy# "numBytes"
-> (Int64 -> f Int64)
-> MemoryLogRawAllocation
-> f MemoryLogRawAllocation
fieldOf _
= ((Int64 -> f Int64)
-> MemoryLogRawAllocation -> f MemoryLogRawAllocation)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MemoryLogRawAllocation
-> f MemoryLogRawAllocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogRawAllocation -> Int64)
-> (MemoryLogRawAllocation -> Int64 -> MemoryLogRawAllocation)
-> Lens MemoryLogRawAllocation MemoryLogRawAllocation Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogRawAllocation -> Int64
_MemoryLogRawAllocation'numBytes
(\ x__ :: MemoryLogRawAllocation
x__ y__ :: Int64
y__ -> MemoryLogRawAllocation
x__ {_MemoryLogRawAllocation'numBytes :: Int64
_MemoryLogRawAllocation'numBytes = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogRawAllocation "ptr" Data.Word.Word64 where
fieldOf :: Proxy# "ptr"
-> (Word64 -> f Word64)
-> MemoryLogRawAllocation
-> f MemoryLogRawAllocation
fieldOf _
= ((Word64 -> f Word64)
-> MemoryLogRawAllocation -> f MemoryLogRawAllocation)
-> ((Word64 -> f Word64) -> Word64 -> f Word64)
-> (Word64 -> f Word64)
-> MemoryLogRawAllocation
-> f MemoryLogRawAllocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogRawAllocation -> Word64)
-> (MemoryLogRawAllocation -> Word64 -> MemoryLogRawAllocation)
-> Lens MemoryLogRawAllocation MemoryLogRawAllocation Word64 Word64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogRawAllocation -> Word64
_MemoryLogRawAllocation'ptr
(\ x__ :: MemoryLogRawAllocation
x__ y__ :: Word64
y__ -> MemoryLogRawAllocation
x__ {_MemoryLogRawAllocation'ptr :: Word64
_MemoryLogRawAllocation'ptr = Word64
y__}))
(Word64 -> f Word64) -> Word64 -> f Word64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogRawAllocation "allocationId" Data.Int.Int64 where
fieldOf :: Proxy# "allocationId"
-> (Int64 -> f Int64)
-> MemoryLogRawAllocation
-> f MemoryLogRawAllocation
fieldOf _
= ((Int64 -> f Int64)
-> MemoryLogRawAllocation -> f MemoryLogRawAllocation)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MemoryLogRawAllocation
-> f MemoryLogRawAllocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogRawAllocation -> Int64)
-> (MemoryLogRawAllocation -> Int64 -> MemoryLogRawAllocation)
-> Lens MemoryLogRawAllocation MemoryLogRawAllocation Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogRawAllocation -> Int64
_MemoryLogRawAllocation'allocationId
(\ x__ :: MemoryLogRawAllocation
x__ y__ :: Int64
y__ -> MemoryLogRawAllocation
x__ {_MemoryLogRawAllocation'allocationId :: Int64
_MemoryLogRawAllocation'allocationId = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogRawAllocation "allocatorName" Data.Text.Text where
fieldOf :: Proxy# "allocatorName"
-> (Text -> f Text)
-> MemoryLogRawAllocation
-> f MemoryLogRawAllocation
fieldOf _
= ((Text -> f Text)
-> MemoryLogRawAllocation -> f MemoryLogRawAllocation)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MemoryLogRawAllocation
-> f MemoryLogRawAllocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogRawAllocation -> Text)
-> (MemoryLogRawAllocation -> Text -> MemoryLogRawAllocation)
-> Lens MemoryLogRawAllocation MemoryLogRawAllocation Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogRawAllocation -> Text
_MemoryLogRawAllocation'allocatorName
(\ x__ :: MemoryLogRawAllocation
x__ y__ :: Text
y__ -> MemoryLogRawAllocation
x__ {_MemoryLogRawAllocation'allocatorName :: Text
_MemoryLogRawAllocation'allocatorName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemoryLogRawAllocation where
messageName :: Proxy MemoryLogRawAllocation -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.MemoryLogRawAllocation"
packedMessageDescriptor :: Proxy MemoryLogRawAllocation -> ByteString
packedMessageDescriptor _
= "\n\
\\SYNMemoryLogRawAllocation\DC2\ETB\n\
\\astep_id\CAN\SOH \SOH(\ETXR\ACKstepId\DC2\FS\n\
\\toperation\CAN\STX \SOH(\tR\toperation\DC2\ESC\n\
\\tnum_bytes\CAN\ETX \SOH(\ETXR\bnumBytes\DC2\DLE\n\
\\ETXptr\CAN\EOT \SOH(\EOTR\ETXptr\DC2#\n\
\\rallocation_id\CAN\ENQ \SOH(\ETXR\fallocationId\DC2%\n\
\\SOallocator_name\CAN\ACK \SOH(\tR\rallocatorName"
packedFileDescriptor :: Proxy MemoryLogRawAllocation -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MemoryLogRawAllocation)
fieldsByTag
= let
stepId__field_descriptor :: FieldDescriptor MemoryLogRawAllocation
stepId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryLogRawAllocation Int64
-> FieldDescriptor MemoryLogRawAllocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"step_id"
(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 MemoryLogRawAllocation MemoryLogRawAllocation Int64 Int64
-> FieldAccessor MemoryLogRawAllocation 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 "stepId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepId")) ::
Data.ProtoLens.FieldDescriptor MemoryLogRawAllocation
operation__field_descriptor :: FieldDescriptor MemoryLogRawAllocation
operation__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MemoryLogRawAllocation Text
-> FieldDescriptor MemoryLogRawAllocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"operation"
(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 MemoryLogRawAllocation MemoryLogRawAllocation Text Text
-> FieldAccessor MemoryLogRawAllocation 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 "operation" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"operation")) ::
Data.ProtoLens.FieldDescriptor MemoryLogRawAllocation
numBytes__field_descriptor :: FieldDescriptor MemoryLogRawAllocation
numBytes__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryLogRawAllocation Int64
-> FieldDescriptor MemoryLogRawAllocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"num_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 MemoryLogRawAllocation MemoryLogRawAllocation Int64 Int64
-> FieldAccessor MemoryLogRawAllocation 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 "numBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numBytes")) ::
Data.ProtoLens.FieldDescriptor MemoryLogRawAllocation
ptr__field_descriptor :: FieldDescriptor MemoryLogRawAllocation
ptr__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor MemoryLogRawAllocation Word64
-> FieldDescriptor MemoryLogRawAllocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"ptr"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(WireDefault Word64
-> Lens MemoryLogRawAllocation MemoryLogRawAllocation Word64 Word64
-> FieldAccessor MemoryLogRawAllocation Word64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Word64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "ptr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ptr")) ::
Data.ProtoLens.FieldDescriptor MemoryLogRawAllocation
allocationId__field_descriptor :: FieldDescriptor MemoryLogRawAllocation
allocationId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryLogRawAllocation Int64
-> FieldDescriptor MemoryLogRawAllocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"allocation_id"
(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 MemoryLogRawAllocation MemoryLogRawAllocation Int64 Int64
-> FieldAccessor MemoryLogRawAllocation 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 "allocationId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocationId")) ::
Data.ProtoLens.FieldDescriptor MemoryLogRawAllocation
allocatorName__field_descriptor :: FieldDescriptor MemoryLogRawAllocation
allocatorName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MemoryLogRawAllocation Text
-> FieldDescriptor MemoryLogRawAllocation
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 MemoryLogRawAllocation MemoryLogRawAllocation Text Text
-> FieldAccessor MemoryLogRawAllocation 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 MemoryLogRawAllocation
in
[(Tag, FieldDescriptor MemoryLogRawAllocation)]
-> Map Tag (FieldDescriptor MemoryLogRawAllocation)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MemoryLogRawAllocation
stepId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MemoryLogRawAllocation
operation__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor MemoryLogRawAllocation
numBytes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor MemoryLogRawAllocation
ptr__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor MemoryLogRawAllocation
allocationId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor MemoryLogRawAllocation
allocatorName__field_descriptor)]
unknownFields :: LensLike' f MemoryLogRawAllocation FieldSet
unknownFields
= (MemoryLogRawAllocation -> FieldSet)
-> (MemoryLogRawAllocation -> FieldSet -> MemoryLogRawAllocation)
-> Lens' MemoryLogRawAllocation FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogRawAllocation -> FieldSet
_MemoryLogRawAllocation'_unknownFields
(\ x__ :: MemoryLogRawAllocation
x__ y__ :: FieldSet
y__ -> MemoryLogRawAllocation
x__ {_MemoryLogRawAllocation'_unknownFields :: FieldSet
_MemoryLogRawAllocation'_unknownFields = FieldSet
y__})
defMessage :: MemoryLogRawAllocation
defMessage
= $WMemoryLogRawAllocation'_constructor :: Int64
-> Text
-> Int64
-> Word64
-> Int64
-> Text
-> FieldSet
-> MemoryLogRawAllocation
MemoryLogRawAllocation'_constructor
{_MemoryLogRawAllocation'stepId :: Int64
_MemoryLogRawAllocation'stepId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogRawAllocation'operation :: Text
_MemoryLogRawAllocation'operation = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogRawAllocation'numBytes :: Int64
_MemoryLogRawAllocation'numBytes = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogRawAllocation'ptr :: Word64
_MemoryLogRawAllocation'ptr = Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogRawAllocation'allocationId :: Int64
_MemoryLogRawAllocation'allocationId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogRawAllocation'allocatorName :: Text
_MemoryLogRawAllocation'allocatorName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogRawAllocation'_unknownFields :: FieldSet
_MemoryLogRawAllocation'_unknownFields = []}
parseMessage :: Parser MemoryLogRawAllocation
parseMessage
= let
loop ::
MemoryLogRawAllocation
-> Data.ProtoLens.Encoding.Bytes.Parser MemoryLogRawAllocation
loop :: MemoryLogRawAllocation -> Parser MemoryLogRawAllocation
loop x :: MemoryLogRawAllocation
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]))))
MemoryLogRawAllocation -> Parser MemoryLogRawAllocation
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
MemoryLogRawAllocation MemoryLogRawAllocation FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MemoryLogRawAllocation
-> MemoryLogRawAllocation
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
MemoryLogRawAllocation MemoryLogRawAllocation FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MemoryLogRawAllocation
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)
"step_id"
MemoryLogRawAllocation -> Parser MemoryLogRawAllocation
loop (Setter MemoryLogRawAllocation MemoryLogRawAllocation Int64 Int64
-> Int64 -> MemoryLogRawAllocation -> MemoryLogRawAllocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "stepId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepId") Int64
y MemoryLogRawAllocation
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))
"operation"
MemoryLogRawAllocation -> Parser MemoryLogRawAllocation
loop
(Setter MemoryLogRawAllocation MemoryLogRawAllocation Text Text
-> Text -> MemoryLogRawAllocation -> MemoryLogRawAllocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "operation" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"operation") Text
y MemoryLogRawAllocation
x)
24
-> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"num_bytes"
MemoryLogRawAllocation -> Parser MemoryLogRawAllocation
loop
(Setter MemoryLogRawAllocation MemoryLogRawAllocation Int64 Int64
-> Int64 -> MemoryLogRawAllocation -> MemoryLogRawAllocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "numBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numBytes") Int64
y MemoryLogRawAllocation
x)
32
-> do Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt "ptr"
MemoryLogRawAllocation -> Parser MemoryLogRawAllocation
loop (Setter MemoryLogRawAllocation MemoryLogRawAllocation Word64 Word64
-> Word64 -> MemoryLogRawAllocation -> MemoryLogRawAllocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "ptr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ptr") Word64
y MemoryLogRawAllocation
x)
40
-> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"allocation_id"
MemoryLogRawAllocation -> Parser MemoryLogRawAllocation
loop
(Setter MemoryLogRawAllocation MemoryLogRawAllocation Int64 Int64
-> Int64 -> MemoryLogRawAllocation -> MemoryLogRawAllocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "allocationId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocationId") Int64
y MemoryLogRawAllocation
x)
50
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"allocator_name"
MemoryLogRawAllocation -> Parser MemoryLogRawAllocation
loop
(Setter MemoryLogRawAllocation MemoryLogRawAllocation Text Text
-> Text -> MemoryLogRawAllocation -> MemoryLogRawAllocation
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 MemoryLogRawAllocation
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MemoryLogRawAllocation -> Parser MemoryLogRawAllocation
loop
(Setter
MemoryLogRawAllocation MemoryLogRawAllocation FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MemoryLogRawAllocation
-> MemoryLogRawAllocation
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
MemoryLogRawAllocation MemoryLogRawAllocation FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MemoryLogRawAllocation
x)
in
Parser MemoryLogRawAllocation
-> String -> Parser MemoryLogRawAllocation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do MemoryLogRawAllocation -> Parser MemoryLogRawAllocation
loop MemoryLogRawAllocation
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "MemoryLogRawAllocation"
buildMessage :: MemoryLogRawAllocation -> Builder
buildMessage
= \ _x :: MemoryLogRawAllocation
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike
Int64 MemoryLogRawAllocation MemoryLogRawAllocation Int64 Int64
-> MemoryLogRawAllocation -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "stepId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepId") MemoryLogRawAllocation
_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 :: Text
_v = FoldLike
Text MemoryLogRawAllocation MemoryLogRawAllocation Text Text
-> MemoryLogRawAllocation -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "operation" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"operation") MemoryLogRawAllocation
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike
Int64 MemoryLogRawAllocation MemoryLogRawAllocation Int64 Int64
-> MemoryLogRawAllocation -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "numBytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"numBytes") MemoryLogRawAllocation
_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 :: Word64
_v = FoldLike
Word64 MemoryLogRawAllocation MemoryLogRawAllocation Word64 Word64
-> MemoryLogRawAllocation -> Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "ptr" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"ptr") MemoryLogRawAllocation
_x
in
if Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Word64
_v Word64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 32)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Word64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike
Int64 MemoryLogRawAllocation MemoryLogRawAllocation Int64 Int64
-> MemoryLogRawAllocation -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "allocationId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocationId") MemoryLogRawAllocation
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 40)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text MemoryLogRawAllocation MemoryLogRawAllocation Text Text
-> MemoryLogRawAllocation -> 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") MemoryLogRawAllocation
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
MemoryLogRawAllocation
MemoryLogRawAllocation
FieldSet
FieldSet
-> MemoryLogRawAllocation -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
MemoryLogRawAllocation
MemoryLogRawAllocation
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MemoryLogRawAllocation
_x)))))))
instance Control.DeepSeq.NFData MemoryLogRawAllocation where
rnf :: MemoryLogRawAllocation -> ()
rnf
= \ x__ :: MemoryLogRawAllocation
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogRawAllocation -> FieldSet
_MemoryLogRawAllocation'_unknownFields MemoryLogRawAllocation
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogRawAllocation -> Int64
_MemoryLogRawAllocation'stepId MemoryLogRawAllocation
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogRawAllocation -> Text
_MemoryLogRawAllocation'operation MemoryLogRawAllocation
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogRawAllocation -> Int64
_MemoryLogRawAllocation'numBytes MemoryLogRawAllocation
x__)
(Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogRawAllocation -> Word64
_MemoryLogRawAllocation'ptr MemoryLogRawAllocation
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogRawAllocation -> Int64
_MemoryLogRawAllocation'allocationId MemoryLogRawAllocation
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogRawAllocation -> Text
_MemoryLogRawAllocation'allocatorName MemoryLogRawAllocation
x__) ()))))))
data MemoryLogRawDeallocation
= MemoryLogRawDeallocation'_constructor {MemoryLogRawDeallocation -> Int64
_MemoryLogRawDeallocation'stepId :: !Data.Int.Int64,
MemoryLogRawDeallocation -> Text
_MemoryLogRawDeallocation'operation :: !Data.Text.Text,
MemoryLogRawDeallocation -> Int64
_MemoryLogRawDeallocation'allocationId :: !Data.Int.Int64,
MemoryLogRawDeallocation -> Text
_MemoryLogRawDeallocation'allocatorName :: !Data.Text.Text,
MemoryLogRawDeallocation -> Bool
_MemoryLogRawDeallocation'deferred :: !Prelude.Bool,
MemoryLogRawDeallocation -> FieldSet
_MemoryLogRawDeallocation'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool
(MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool)
-> (MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool)
-> Eq MemoryLogRawDeallocation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool
$c/= :: MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool
== :: MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool
$c== :: MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool
Prelude.Eq, Eq MemoryLogRawDeallocation
Eq MemoryLogRawDeallocation =>
(MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Ordering)
-> (MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool)
-> (MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool)
-> (MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool)
-> (MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool)
-> (MemoryLogRawDeallocation
-> MemoryLogRawDeallocation -> MemoryLogRawDeallocation)
-> (MemoryLogRawDeallocation
-> MemoryLogRawDeallocation -> MemoryLogRawDeallocation)
-> Ord MemoryLogRawDeallocation
MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool
MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Ordering
MemoryLogRawDeallocation
-> MemoryLogRawDeallocation -> MemoryLogRawDeallocation
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 :: MemoryLogRawDeallocation
-> MemoryLogRawDeallocation -> MemoryLogRawDeallocation
$cmin :: MemoryLogRawDeallocation
-> MemoryLogRawDeallocation -> MemoryLogRawDeallocation
max :: MemoryLogRawDeallocation
-> MemoryLogRawDeallocation -> MemoryLogRawDeallocation
$cmax :: MemoryLogRawDeallocation
-> MemoryLogRawDeallocation -> MemoryLogRawDeallocation
>= :: MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool
$c>= :: MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool
> :: MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool
$c> :: MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool
<= :: MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool
$c<= :: MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool
< :: MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool
$c< :: MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Bool
compare :: MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Ordering
$ccompare :: MemoryLogRawDeallocation -> MemoryLogRawDeallocation -> Ordering
$cp1Ord :: Eq MemoryLogRawDeallocation
Prelude.Ord)
instance Prelude.Show MemoryLogRawDeallocation where
showsPrec :: Int -> MemoryLogRawDeallocation -> ShowS
showsPrec _ __x :: MemoryLogRawDeallocation
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(MemoryLogRawDeallocation -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemoryLogRawDeallocation
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MemoryLogRawDeallocation "stepId" Data.Int.Int64 where
fieldOf :: Proxy# "stepId"
-> (Int64 -> f Int64)
-> MemoryLogRawDeallocation
-> f MemoryLogRawDeallocation
fieldOf _
= ((Int64 -> f Int64)
-> MemoryLogRawDeallocation -> f MemoryLogRawDeallocation)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MemoryLogRawDeallocation
-> f MemoryLogRawDeallocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogRawDeallocation -> Int64)
-> (MemoryLogRawDeallocation -> Int64 -> MemoryLogRawDeallocation)
-> Lens
MemoryLogRawDeallocation MemoryLogRawDeallocation Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogRawDeallocation -> Int64
_MemoryLogRawDeallocation'stepId
(\ x__ :: MemoryLogRawDeallocation
x__ y__ :: Int64
y__ -> MemoryLogRawDeallocation
x__ {_MemoryLogRawDeallocation'stepId :: Int64
_MemoryLogRawDeallocation'stepId = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogRawDeallocation "operation" Data.Text.Text where
fieldOf :: Proxy# "operation"
-> (Text -> f Text)
-> MemoryLogRawDeallocation
-> f MemoryLogRawDeallocation
fieldOf _
= ((Text -> f Text)
-> MemoryLogRawDeallocation -> f MemoryLogRawDeallocation)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MemoryLogRawDeallocation
-> f MemoryLogRawDeallocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogRawDeallocation -> Text)
-> (MemoryLogRawDeallocation -> Text -> MemoryLogRawDeallocation)
-> Lens MemoryLogRawDeallocation MemoryLogRawDeallocation Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogRawDeallocation -> Text
_MemoryLogRawDeallocation'operation
(\ x__ :: MemoryLogRawDeallocation
x__ y__ :: Text
y__ -> MemoryLogRawDeallocation
x__ {_MemoryLogRawDeallocation'operation :: Text
_MemoryLogRawDeallocation'operation = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogRawDeallocation "allocationId" Data.Int.Int64 where
fieldOf :: Proxy# "allocationId"
-> (Int64 -> f Int64)
-> MemoryLogRawDeallocation
-> f MemoryLogRawDeallocation
fieldOf _
= ((Int64 -> f Int64)
-> MemoryLogRawDeallocation -> f MemoryLogRawDeallocation)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MemoryLogRawDeallocation
-> f MemoryLogRawDeallocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogRawDeallocation -> Int64)
-> (MemoryLogRawDeallocation -> Int64 -> MemoryLogRawDeallocation)
-> Lens
MemoryLogRawDeallocation MemoryLogRawDeallocation Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogRawDeallocation -> Int64
_MemoryLogRawDeallocation'allocationId
(\ x__ :: MemoryLogRawDeallocation
x__ y__ :: Int64
y__ -> MemoryLogRawDeallocation
x__ {_MemoryLogRawDeallocation'allocationId :: Int64
_MemoryLogRawDeallocation'allocationId = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogRawDeallocation "allocatorName" Data.Text.Text where
fieldOf :: Proxy# "allocatorName"
-> (Text -> f Text)
-> MemoryLogRawDeallocation
-> f MemoryLogRawDeallocation
fieldOf _
= ((Text -> f Text)
-> MemoryLogRawDeallocation -> f MemoryLogRawDeallocation)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MemoryLogRawDeallocation
-> f MemoryLogRawDeallocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogRawDeallocation -> Text)
-> (MemoryLogRawDeallocation -> Text -> MemoryLogRawDeallocation)
-> Lens MemoryLogRawDeallocation MemoryLogRawDeallocation Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogRawDeallocation -> Text
_MemoryLogRawDeallocation'allocatorName
(\ x__ :: MemoryLogRawDeallocation
x__ y__ :: Text
y__ -> MemoryLogRawDeallocation
x__ {_MemoryLogRawDeallocation'allocatorName :: Text
_MemoryLogRawDeallocation'allocatorName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogRawDeallocation "deferred" Prelude.Bool where
fieldOf :: Proxy# "deferred"
-> (Bool -> f Bool)
-> MemoryLogRawDeallocation
-> f MemoryLogRawDeallocation
fieldOf _
= ((Bool -> f Bool)
-> MemoryLogRawDeallocation -> f MemoryLogRawDeallocation)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> MemoryLogRawDeallocation
-> f MemoryLogRawDeallocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogRawDeallocation -> Bool)
-> (MemoryLogRawDeallocation -> Bool -> MemoryLogRawDeallocation)
-> Lens MemoryLogRawDeallocation MemoryLogRawDeallocation Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogRawDeallocation -> Bool
_MemoryLogRawDeallocation'deferred
(\ x__ :: MemoryLogRawDeallocation
x__ y__ :: Bool
y__ -> MemoryLogRawDeallocation
x__ {_MemoryLogRawDeallocation'deferred :: Bool
_MemoryLogRawDeallocation'deferred = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemoryLogRawDeallocation where
messageName :: Proxy MemoryLogRawDeallocation -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.MemoryLogRawDeallocation"
packedMessageDescriptor :: Proxy MemoryLogRawDeallocation -> ByteString
packedMessageDescriptor _
= "\n\
\\CANMemoryLogRawDeallocation\DC2\ETB\n\
\\astep_id\CAN\SOH \SOH(\ETXR\ACKstepId\DC2\FS\n\
\\toperation\CAN\STX \SOH(\tR\toperation\DC2#\n\
\\rallocation_id\CAN\ETX \SOH(\ETXR\fallocationId\DC2%\n\
\\SOallocator_name\CAN\EOT \SOH(\tR\rallocatorName\DC2\SUB\n\
\\bdeferred\CAN\ENQ \SOH(\bR\bdeferred"
packedFileDescriptor :: Proxy MemoryLogRawDeallocation -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MemoryLogRawDeallocation)
fieldsByTag
= let
stepId__field_descriptor :: FieldDescriptor MemoryLogRawDeallocation
stepId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryLogRawDeallocation Int64
-> FieldDescriptor MemoryLogRawDeallocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"step_id"
(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
MemoryLogRawDeallocation MemoryLogRawDeallocation Int64 Int64
-> FieldAccessor MemoryLogRawDeallocation 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 "stepId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepId")) ::
Data.ProtoLens.FieldDescriptor MemoryLogRawDeallocation
operation__field_descriptor :: FieldDescriptor MemoryLogRawDeallocation
operation__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MemoryLogRawDeallocation Text
-> FieldDescriptor MemoryLogRawDeallocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"operation"
(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 MemoryLogRawDeallocation MemoryLogRawDeallocation Text Text
-> FieldAccessor MemoryLogRawDeallocation 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 "operation" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"operation")) ::
Data.ProtoLens.FieldDescriptor MemoryLogRawDeallocation
allocationId__field_descriptor :: FieldDescriptor MemoryLogRawDeallocation
allocationId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryLogRawDeallocation Int64
-> FieldDescriptor MemoryLogRawDeallocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"allocation_id"
(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
MemoryLogRawDeallocation MemoryLogRawDeallocation Int64 Int64
-> FieldAccessor MemoryLogRawDeallocation 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 "allocationId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocationId")) ::
Data.ProtoLens.FieldDescriptor MemoryLogRawDeallocation
allocatorName__field_descriptor :: FieldDescriptor MemoryLogRawDeallocation
allocatorName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MemoryLogRawDeallocation Text
-> FieldDescriptor MemoryLogRawDeallocation
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 MemoryLogRawDeallocation MemoryLogRawDeallocation Text Text
-> FieldAccessor MemoryLogRawDeallocation 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 MemoryLogRawDeallocation
deferred__field_descriptor :: FieldDescriptor MemoryLogRawDeallocation
deferred__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor MemoryLogRawDeallocation Bool
-> FieldDescriptor MemoryLogRawDeallocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"deferred"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens MemoryLogRawDeallocation MemoryLogRawDeallocation Bool Bool
-> FieldAccessor MemoryLogRawDeallocation Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "deferred" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deferred")) ::
Data.ProtoLens.FieldDescriptor MemoryLogRawDeallocation
in
[(Tag, FieldDescriptor MemoryLogRawDeallocation)]
-> Map Tag (FieldDescriptor MemoryLogRawDeallocation)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MemoryLogRawDeallocation
stepId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MemoryLogRawDeallocation
operation__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor MemoryLogRawDeallocation
allocationId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor MemoryLogRawDeallocation
allocatorName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor MemoryLogRawDeallocation
deferred__field_descriptor)]
unknownFields :: LensLike' f MemoryLogRawDeallocation FieldSet
unknownFields
= (MemoryLogRawDeallocation -> FieldSet)
-> (MemoryLogRawDeallocation
-> FieldSet -> MemoryLogRawDeallocation)
-> Lens' MemoryLogRawDeallocation FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogRawDeallocation -> FieldSet
_MemoryLogRawDeallocation'_unknownFields
(\ x__ :: MemoryLogRawDeallocation
x__ y__ :: FieldSet
y__ -> MemoryLogRawDeallocation
x__ {_MemoryLogRawDeallocation'_unknownFields :: FieldSet
_MemoryLogRawDeallocation'_unknownFields = FieldSet
y__})
defMessage :: MemoryLogRawDeallocation
defMessage
= $WMemoryLogRawDeallocation'_constructor :: Int64
-> Text
-> Int64
-> Text
-> Bool
-> FieldSet
-> MemoryLogRawDeallocation
MemoryLogRawDeallocation'_constructor
{_MemoryLogRawDeallocation'stepId :: Int64
_MemoryLogRawDeallocation'stepId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogRawDeallocation'operation :: Text
_MemoryLogRawDeallocation'operation = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogRawDeallocation'allocationId :: Int64
_MemoryLogRawDeallocation'allocationId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogRawDeallocation'allocatorName :: Text
_MemoryLogRawDeallocation'allocatorName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogRawDeallocation'deferred :: Bool
_MemoryLogRawDeallocation'deferred = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogRawDeallocation'_unknownFields :: FieldSet
_MemoryLogRawDeallocation'_unknownFields = []}
parseMessage :: Parser MemoryLogRawDeallocation
parseMessage
= let
loop ::
MemoryLogRawDeallocation
-> Data.ProtoLens.Encoding.Bytes.Parser MemoryLogRawDeallocation
loop :: MemoryLogRawDeallocation -> Parser MemoryLogRawDeallocation
loop x :: MemoryLogRawDeallocation
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]))))
MemoryLogRawDeallocation -> Parser MemoryLogRawDeallocation
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
MemoryLogRawDeallocation MemoryLogRawDeallocation FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MemoryLogRawDeallocation
-> MemoryLogRawDeallocation
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
MemoryLogRawDeallocation MemoryLogRawDeallocation FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MemoryLogRawDeallocation
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)
"step_id"
MemoryLogRawDeallocation -> Parser MemoryLogRawDeallocation
loop (Setter
MemoryLogRawDeallocation MemoryLogRawDeallocation Int64 Int64
-> Int64 -> MemoryLogRawDeallocation -> MemoryLogRawDeallocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "stepId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepId") Int64
y MemoryLogRawDeallocation
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))
"operation"
MemoryLogRawDeallocation -> Parser MemoryLogRawDeallocation
loop
(Setter MemoryLogRawDeallocation MemoryLogRawDeallocation Text Text
-> Text -> MemoryLogRawDeallocation -> MemoryLogRawDeallocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "operation" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"operation") Text
y MemoryLogRawDeallocation
x)
24
-> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"allocation_id"
MemoryLogRawDeallocation -> Parser MemoryLogRawDeallocation
loop
(Setter
MemoryLogRawDeallocation MemoryLogRawDeallocation Int64 Int64
-> Int64 -> MemoryLogRawDeallocation -> MemoryLogRawDeallocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "allocationId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocationId") Int64
y MemoryLogRawDeallocation
x)
34
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"allocator_name"
MemoryLogRawDeallocation -> Parser MemoryLogRawDeallocation
loop
(Setter MemoryLogRawDeallocation MemoryLogRawDeallocation Text Text
-> Text -> MemoryLogRawDeallocation -> MemoryLogRawDeallocation
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 MemoryLogRawDeallocation
x)
40
-> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
(Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"deferred"
MemoryLogRawDeallocation -> Parser MemoryLogRawDeallocation
loop
(Setter MemoryLogRawDeallocation MemoryLogRawDeallocation Bool Bool
-> Bool -> MemoryLogRawDeallocation -> MemoryLogRawDeallocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "deferred" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deferred") Bool
y MemoryLogRawDeallocation
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MemoryLogRawDeallocation -> Parser MemoryLogRawDeallocation
loop
(Setter
MemoryLogRawDeallocation MemoryLogRawDeallocation FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MemoryLogRawDeallocation
-> MemoryLogRawDeallocation
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
MemoryLogRawDeallocation MemoryLogRawDeallocation FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MemoryLogRawDeallocation
x)
in
Parser MemoryLogRawDeallocation
-> String -> Parser MemoryLogRawDeallocation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do MemoryLogRawDeallocation -> Parser MemoryLogRawDeallocation
loop MemoryLogRawDeallocation
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "MemoryLogRawDeallocation"
buildMessage :: MemoryLogRawDeallocation -> Builder
buildMessage
= \ _x :: MemoryLogRawDeallocation
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike
Int64 MemoryLogRawDeallocation MemoryLogRawDeallocation Int64 Int64
-> MemoryLogRawDeallocation -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "stepId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepId") MemoryLogRawDeallocation
_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 :: Text
_v = FoldLike
Text MemoryLogRawDeallocation MemoryLogRawDeallocation Text Text
-> MemoryLogRawDeallocation -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "operation" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"operation") MemoryLogRawDeallocation
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike
Int64 MemoryLogRawDeallocation MemoryLogRawDeallocation Int64 Int64
-> MemoryLogRawDeallocation -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "allocationId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocationId") MemoryLogRawDeallocation
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text MemoryLogRawDeallocation MemoryLogRawDeallocation Text Text
-> MemoryLogRawDeallocation -> 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") MemoryLogRawDeallocation
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v = FoldLike
Bool MemoryLogRawDeallocation MemoryLogRawDeallocation Bool Bool
-> MemoryLogRawDeallocation -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "deferred" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"deferred") MemoryLogRawDeallocation
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
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) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(\ b :: Bool
b -> if Bool
b then 1 else 0)
Bool
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
MemoryLogRawDeallocation
MemoryLogRawDeallocation
FieldSet
FieldSet
-> MemoryLogRawDeallocation -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
MemoryLogRawDeallocation
MemoryLogRawDeallocation
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MemoryLogRawDeallocation
_x))))))
instance Control.DeepSeq.NFData MemoryLogRawDeallocation where
rnf :: MemoryLogRawDeallocation -> ()
rnf
= \ x__ :: MemoryLogRawDeallocation
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogRawDeallocation -> FieldSet
_MemoryLogRawDeallocation'_unknownFields MemoryLogRawDeallocation
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogRawDeallocation -> Int64
_MemoryLogRawDeallocation'stepId MemoryLogRawDeallocation
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogRawDeallocation -> Text
_MemoryLogRawDeallocation'operation MemoryLogRawDeallocation
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogRawDeallocation -> Int64
_MemoryLogRawDeallocation'allocationId MemoryLogRawDeallocation
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogRawDeallocation -> Text
_MemoryLogRawDeallocation'allocatorName MemoryLogRawDeallocation
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogRawDeallocation -> Bool
_MemoryLogRawDeallocation'deferred MemoryLogRawDeallocation
x__) ())))))
data MemoryLogStep
= MemoryLogStep'_constructor {MemoryLogStep -> Int64
_MemoryLogStep'stepId :: !Data.Int.Int64,
MemoryLogStep -> Text
_MemoryLogStep'handle :: !Data.Text.Text,
MemoryLogStep -> FieldSet
_MemoryLogStep'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MemoryLogStep -> MemoryLogStep -> Bool
(MemoryLogStep -> MemoryLogStep -> Bool)
-> (MemoryLogStep -> MemoryLogStep -> Bool) -> Eq MemoryLogStep
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MemoryLogStep -> MemoryLogStep -> Bool
$c/= :: MemoryLogStep -> MemoryLogStep -> Bool
== :: MemoryLogStep -> MemoryLogStep -> Bool
$c== :: MemoryLogStep -> MemoryLogStep -> Bool
Prelude.Eq, Eq MemoryLogStep
Eq MemoryLogStep =>
(MemoryLogStep -> MemoryLogStep -> Ordering)
-> (MemoryLogStep -> MemoryLogStep -> Bool)
-> (MemoryLogStep -> MemoryLogStep -> Bool)
-> (MemoryLogStep -> MemoryLogStep -> Bool)
-> (MemoryLogStep -> MemoryLogStep -> Bool)
-> (MemoryLogStep -> MemoryLogStep -> MemoryLogStep)
-> (MemoryLogStep -> MemoryLogStep -> MemoryLogStep)
-> Ord MemoryLogStep
MemoryLogStep -> MemoryLogStep -> Bool
MemoryLogStep -> MemoryLogStep -> Ordering
MemoryLogStep -> MemoryLogStep -> MemoryLogStep
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 :: MemoryLogStep -> MemoryLogStep -> MemoryLogStep
$cmin :: MemoryLogStep -> MemoryLogStep -> MemoryLogStep
max :: MemoryLogStep -> MemoryLogStep -> MemoryLogStep
$cmax :: MemoryLogStep -> MemoryLogStep -> MemoryLogStep
>= :: MemoryLogStep -> MemoryLogStep -> Bool
$c>= :: MemoryLogStep -> MemoryLogStep -> Bool
> :: MemoryLogStep -> MemoryLogStep -> Bool
$c> :: MemoryLogStep -> MemoryLogStep -> Bool
<= :: MemoryLogStep -> MemoryLogStep -> Bool
$c<= :: MemoryLogStep -> MemoryLogStep -> Bool
< :: MemoryLogStep -> MemoryLogStep -> Bool
$c< :: MemoryLogStep -> MemoryLogStep -> Bool
compare :: MemoryLogStep -> MemoryLogStep -> Ordering
$ccompare :: MemoryLogStep -> MemoryLogStep -> Ordering
$cp1Ord :: Eq MemoryLogStep
Prelude.Ord)
instance Prelude.Show MemoryLogStep where
showsPrec :: Int -> MemoryLogStep -> ShowS
showsPrec _ __x :: MemoryLogStep
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(MemoryLogStep -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemoryLogStep
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MemoryLogStep "stepId" Data.Int.Int64 where
fieldOf :: Proxy# "stepId"
-> (Int64 -> f Int64) -> MemoryLogStep -> f MemoryLogStep
fieldOf _
= ((Int64 -> f Int64) -> MemoryLogStep -> f MemoryLogStep)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MemoryLogStep
-> f MemoryLogStep
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogStep -> Int64)
-> (MemoryLogStep -> Int64 -> MemoryLogStep)
-> Lens MemoryLogStep MemoryLogStep Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogStep -> Int64
_MemoryLogStep'stepId
(\ x__ :: MemoryLogStep
x__ y__ :: Int64
y__ -> MemoryLogStep
x__ {_MemoryLogStep'stepId :: Int64
_MemoryLogStep'stepId = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogStep "handle" Data.Text.Text where
fieldOf :: Proxy# "handle"
-> (Text -> f Text) -> MemoryLogStep -> f MemoryLogStep
fieldOf _
= ((Text -> f Text) -> MemoryLogStep -> f MemoryLogStep)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MemoryLogStep
-> f MemoryLogStep
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogStep -> Text)
-> (MemoryLogStep -> Text -> MemoryLogStep)
-> Lens MemoryLogStep MemoryLogStep Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogStep -> Text
_MemoryLogStep'handle
(\ x__ :: MemoryLogStep
x__ y__ :: Text
y__ -> MemoryLogStep
x__ {_MemoryLogStep'handle :: Text
_MemoryLogStep'handle = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemoryLogStep where
messageName :: Proxy MemoryLogStep -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.MemoryLogStep"
packedMessageDescriptor :: Proxy MemoryLogStep -> ByteString
packedMessageDescriptor _
= "\n\
\\rMemoryLogStep\DC2\ETB\n\
\\astep_id\CAN\SOH \SOH(\ETXR\ACKstepId\DC2\SYN\n\
\\ACKhandle\CAN\STX \SOH(\tR\ACKhandle"
packedFileDescriptor :: Proxy MemoryLogStep -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MemoryLogStep)
fieldsByTag
= let
stepId__field_descriptor :: FieldDescriptor MemoryLogStep
stepId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryLogStep Int64
-> FieldDescriptor MemoryLogStep
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"step_id"
(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 MemoryLogStep MemoryLogStep Int64 Int64
-> FieldAccessor MemoryLogStep 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 "stepId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepId")) ::
Data.ProtoLens.FieldDescriptor MemoryLogStep
handle__field_descriptor :: FieldDescriptor MemoryLogStep
handle__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MemoryLogStep Text
-> FieldDescriptor MemoryLogStep
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"handle"
(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 MemoryLogStep MemoryLogStep Text Text
-> FieldAccessor MemoryLogStep 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 "handle" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"handle")) ::
Data.ProtoLens.FieldDescriptor MemoryLogStep
in
[(Tag, FieldDescriptor MemoryLogStep)]
-> Map Tag (FieldDescriptor MemoryLogStep)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MemoryLogStep
stepId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MemoryLogStep
handle__field_descriptor)]
unknownFields :: LensLike' f MemoryLogStep FieldSet
unknownFields
= (MemoryLogStep -> FieldSet)
-> (MemoryLogStep -> FieldSet -> MemoryLogStep)
-> Lens' MemoryLogStep FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogStep -> FieldSet
_MemoryLogStep'_unknownFields
(\ x__ :: MemoryLogStep
x__ y__ :: FieldSet
y__ -> MemoryLogStep
x__ {_MemoryLogStep'_unknownFields :: FieldSet
_MemoryLogStep'_unknownFields = FieldSet
y__})
defMessage :: MemoryLogStep
defMessage
= $WMemoryLogStep'_constructor :: Int64 -> Text -> FieldSet -> MemoryLogStep
MemoryLogStep'_constructor
{_MemoryLogStep'stepId :: Int64
_MemoryLogStep'stepId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogStep'handle :: Text
_MemoryLogStep'handle = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogStep'_unknownFields :: FieldSet
_MemoryLogStep'_unknownFields = []}
parseMessage :: Parser MemoryLogStep
parseMessage
= let
loop ::
MemoryLogStep -> Data.ProtoLens.Encoding.Bytes.Parser MemoryLogStep
loop :: MemoryLogStep -> Parser MemoryLogStep
loop x :: MemoryLogStep
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]))))
MemoryLogStep -> Parser MemoryLogStep
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter MemoryLogStep MemoryLogStep FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MemoryLogStep -> MemoryLogStep
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 MemoryLogStep MemoryLogStep FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MemoryLogStep
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)
"step_id"
MemoryLogStep -> Parser MemoryLogStep
loop (Setter MemoryLogStep MemoryLogStep Int64 Int64
-> Int64 -> MemoryLogStep -> MemoryLogStep
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "stepId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepId") Int64
y MemoryLogStep
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))
"handle"
MemoryLogStep -> Parser MemoryLogStep
loop (Setter MemoryLogStep MemoryLogStep Text Text
-> Text -> MemoryLogStep -> MemoryLogStep
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "handle" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"handle") Text
y MemoryLogStep
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MemoryLogStep -> Parser MemoryLogStep
loop
(Setter MemoryLogStep MemoryLogStep FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MemoryLogStep -> MemoryLogStep
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 MemoryLogStep MemoryLogStep FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MemoryLogStep
x)
in
Parser MemoryLogStep -> String -> Parser MemoryLogStep
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do MemoryLogStep -> Parser MemoryLogStep
loop MemoryLogStep
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "MemoryLogStep"
buildMessage :: MemoryLogStep -> Builder
buildMessage
= \ _x :: MemoryLogStep
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike Int64 MemoryLogStep MemoryLogStep Int64 Int64
-> MemoryLogStep -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "stepId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepId") MemoryLogStep
_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 :: Text
_v = FoldLike Text MemoryLogStep MemoryLogStep Text Text
-> MemoryLogStep -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "handle" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"handle") MemoryLogStep
_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 MemoryLogStep MemoryLogStep FieldSet FieldSet
-> MemoryLogStep -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet MemoryLogStep MemoryLogStep FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MemoryLogStep
_x)))
instance Control.DeepSeq.NFData MemoryLogStep where
rnf :: MemoryLogStep -> ()
rnf
= \ x__ :: MemoryLogStep
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogStep -> FieldSet
_MemoryLogStep'_unknownFields MemoryLogStep
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogStep -> Int64
_MemoryLogStep'stepId MemoryLogStep
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MemoryLogStep -> Text
_MemoryLogStep'handle MemoryLogStep
x__) ()))
data MemoryLogTensorAllocation
= MemoryLogTensorAllocation'_constructor {MemoryLogTensorAllocation -> Int64
_MemoryLogTensorAllocation'stepId :: !Data.Int.Int64,
MemoryLogTensorAllocation -> Text
_MemoryLogTensorAllocation'kernelName :: !Data.Text.Text,
MemoryLogTensorAllocation -> Maybe TensorDescription
_MemoryLogTensorAllocation'tensor :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription),
MemoryLogTensorAllocation -> FieldSet
_MemoryLogTensorAllocation'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool
(MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool)
-> (MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool)
-> Eq MemoryLogTensorAllocation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool
$c/= :: MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool
== :: MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool
$c== :: MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool
Prelude.Eq, Eq MemoryLogTensorAllocation
Eq MemoryLogTensorAllocation =>
(MemoryLogTensorAllocation
-> MemoryLogTensorAllocation -> Ordering)
-> (MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool)
-> (MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool)
-> (MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool)
-> (MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool)
-> (MemoryLogTensorAllocation
-> MemoryLogTensorAllocation -> MemoryLogTensorAllocation)
-> (MemoryLogTensorAllocation
-> MemoryLogTensorAllocation -> MemoryLogTensorAllocation)
-> Ord MemoryLogTensorAllocation
MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool
MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Ordering
MemoryLogTensorAllocation
-> MemoryLogTensorAllocation -> MemoryLogTensorAllocation
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 :: MemoryLogTensorAllocation
-> MemoryLogTensorAllocation -> MemoryLogTensorAllocation
$cmin :: MemoryLogTensorAllocation
-> MemoryLogTensorAllocation -> MemoryLogTensorAllocation
max :: MemoryLogTensorAllocation
-> MemoryLogTensorAllocation -> MemoryLogTensorAllocation
$cmax :: MemoryLogTensorAllocation
-> MemoryLogTensorAllocation -> MemoryLogTensorAllocation
>= :: MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool
$c>= :: MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool
> :: MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool
$c> :: MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool
<= :: MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool
$c<= :: MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool
< :: MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool
$c< :: MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Bool
compare :: MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Ordering
$ccompare :: MemoryLogTensorAllocation -> MemoryLogTensorAllocation -> Ordering
$cp1Ord :: Eq MemoryLogTensorAllocation
Prelude.Ord)
instance Prelude.Show MemoryLogTensorAllocation where
showsPrec :: Int -> MemoryLogTensorAllocation -> ShowS
showsPrec _ __x :: MemoryLogTensorAllocation
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(MemoryLogTensorAllocation -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemoryLogTensorAllocation
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MemoryLogTensorAllocation "stepId" Data.Int.Int64 where
fieldOf :: Proxy# "stepId"
-> (Int64 -> f Int64)
-> MemoryLogTensorAllocation
-> f MemoryLogTensorAllocation
fieldOf _
= ((Int64 -> f Int64)
-> MemoryLogTensorAllocation -> f MemoryLogTensorAllocation)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MemoryLogTensorAllocation
-> f MemoryLogTensorAllocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogTensorAllocation -> Int64)
-> (MemoryLogTensorAllocation
-> Int64 -> MemoryLogTensorAllocation)
-> Lens
MemoryLogTensorAllocation MemoryLogTensorAllocation Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogTensorAllocation -> Int64
_MemoryLogTensorAllocation'stepId
(\ x__ :: MemoryLogTensorAllocation
x__ y__ :: Int64
y__ -> MemoryLogTensorAllocation
x__ {_MemoryLogTensorAllocation'stepId :: Int64
_MemoryLogTensorAllocation'stepId = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogTensorAllocation "kernelName" Data.Text.Text where
fieldOf :: Proxy# "kernelName"
-> (Text -> f Text)
-> MemoryLogTensorAllocation
-> f MemoryLogTensorAllocation
fieldOf _
= ((Text -> f Text)
-> MemoryLogTensorAllocation -> f MemoryLogTensorAllocation)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MemoryLogTensorAllocation
-> f MemoryLogTensorAllocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogTensorAllocation -> Text)
-> (MemoryLogTensorAllocation -> Text -> MemoryLogTensorAllocation)
-> Lens
MemoryLogTensorAllocation MemoryLogTensorAllocation Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogTensorAllocation -> Text
_MemoryLogTensorAllocation'kernelName
(\ x__ :: MemoryLogTensorAllocation
x__ y__ :: Text
y__ -> MemoryLogTensorAllocation
x__ {_MemoryLogTensorAllocation'kernelName :: Text
_MemoryLogTensorAllocation'kernelName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogTensorAllocation "tensor" Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription where
fieldOf :: Proxy# "tensor"
-> (TensorDescription -> f TensorDescription)
-> MemoryLogTensorAllocation
-> f MemoryLogTensorAllocation
fieldOf _
= ((Maybe TensorDescription -> f (Maybe TensorDescription))
-> MemoryLogTensorAllocation -> f MemoryLogTensorAllocation)
-> ((TensorDescription -> f TensorDescription)
-> Maybe TensorDescription -> f (Maybe TensorDescription))
-> (TensorDescription -> f TensorDescription)
-> MemoryLogTensorAllocation
-> f MemoryLogTensorAllocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogTensorAllocation -> Maybe TensorDescription)
-> (MemoryLogTensorAllocation
-> Maybe TensorDescription -> MemoryLogTensorAllocation)
-> Lens
MemoryLogTensorAllocation
MemoryLogTensorAllocation
(Maybe TensorDescription)
(Maybe TensorDescription)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogTensorAllocation -> Maybe TensorDescription
_MemoryLogTensorAllocation'tensor
(\ x__ :: MemoryLogTensorAllocation
x__ y__ :: Maybe TensorDescription
y__ -> MemoryLogTensorAllocation
x__ {_MemoryLogTensorAllocation'tensor :: Maybe TensorDescription
_MemoryLogTensorAllocation'tensor = 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 MemoryLogTensorAllocation "maybe'tensor" (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription) where
fieldOf :: Proxy# "maybe'tensor"
-> (Maybe TensorDescription -> f (Maybe TensorDescription))
-> MemoryLogTensorAllocation
-> f MemoryLogTensorAllocation
fieldOf _
= ((Maybe TensorDescription -> f (Maybe TensorDescription))
-> MemoryLogTensorAllocation -> f MemoryLogTensorAllocation)
-> ((Maybe TensorDescription -> f (Maybe TensorDescription))
-> Maybe TensorDescription -> f (Maybe TensorDescription))
-> (Maybe TensorDescription -> f (Maybe TensorDescription))
-> MemoryLogTensorAllocation
-> f MemoryLogTensorAllocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogTensorAllocation -> Maybe TensorDescription)
-> (MemoryLogTensorAllocation
-> Maybe TensorDescription -> MemoryLogTensorAllocation)
-> Lens
MemoryLogTensorAllocation
MemoryLogTensorAllocation
(Maybe TensorDescription)
(Maybe TensorDescription)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogTensorAllocation -> Maybe TensorDescription
_MemoryLogTensorAllocation'tensor
(\ x__ :: MemoryLogTensorAllocation
x__ y__ :: Maybe TensorDescription
y__ -> MemoryLogTensorAllocation
x__ {_MemoryLogTensorAllocation'tensor :: Maybe TensorDescription
_MemoryLogTensorAllocation'tensor = Maybe TensorDescription
y__}))
(Maybe TensorDescription -> f (Maybe TensorDescription))
-> Maybe TensorDescription -> f (Maybe TensorDescription)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemoryLogTensorAllocation where
messageName :: Proxy MemoryLogTensorAllocation -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.MemoryLogTensorAllocation"
packedMessageDescriptor :: Proxy MemoryLogTensorAllocation -> ByteString
packedMessageDescriptor _
= "\n\
\\EMMemoryLogTensorAllocation\DC2\ETB\n\
\\astep_id\CAN\SOH \SOH(\ETXR\ACKstepId\DC2\US\n\
\\vkernel_name\CAN\STX \SOH(\tR\n\
\kernelName\DC25\n\
\\ACKtensor\CAN\ETX \SOH(\v2\GS.tensorflow.TensorDescriptionR\ACKtensor"
packedFileDescriptor :: Proxy MemoryLogTensorAllocation -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MemoryLogTensorAllocation)
fieldsByTag
= let
stepId__field_descriptor :: FieldDescriptor MemoryLogTensorAllocation
stepId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryLogTensorAllocation Int64
-> FieldDescriptor MemoryLogTensorAllocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"step_id"
(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
MemoryLogTensorAllocation MemoryLogTensorAllocation Int64 Int64
-> FieldAccessor MemoryLogTensorAllocation 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 "stepId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepId")) ::
Data.ProtoLens.FieldDescriptor MemoryLogTensorAllocation
kernelName__field_descriptor :: FieldDescriptor MemoryLogTensorAllocation
kernelName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MemoryLogTensorAllocation Text
-> FieldDescriptor MemoryLogTensorAllocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"kernel_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
MemoryLogTensorAllocation MemoryLogTensorAllocation Text Text
-> FieldAccessor MemoryLogTensorAllocation 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 "kernelName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kernelName")) ::
Data.ProtoLens.FieldDescriptor MemoryLogTensorAllocation
tensor__field_descriptor :: FieldDescriptor MemoryLogTensorAllocation
tensor__field_descriptor
= String
-> FieldTypeDescriptor TensorDescription
-> FieldAccessor MemoryLogTensorAllocation TensorDescription
-> FieldDescriptor MemoryLogTensorAllocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"tensor"
(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
MemoryLogTensorAllocation
MemoryLogTensorAllocation
(Maybe TensorDescription)
(Maybe TensorDescription)
-> FieldAccessor MemoryLogTensorAllocation TensorDescription
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'tensor" a, Functor f) =>
(a -> f a) -> s -> 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'tensor")) ::
Data.ProtoLens.FieldDescriptor MemoryLogTensorAllocation
in
[(Tag, FieldDescriptor MemoryLogTensorAllocation)]
-> Map Tag (FieldDescriptor MemoryLogTensorAllocation)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MemoryLogTensorAllocation
stepId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MemoryLogTensorAllocation
kernelName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor MemoryLogTensorAllocation
tensor__field_descriptor)]
unknownFields :: LensLike' f MemoryLogTensorAllocation FieldSet
unknownFields
= (MemoryLogTensorAllocation -> FieldSet)
-> (MemoryLogTensorAllocation
-> FieldSet -> MemoryLogTensorAllocation)
-> Lens' MemoryLogTensorAllocation FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogTensorAllocation -> FieldSet
_MemoryLogTensorAllocation'_unknownFields
(\ x__ :: MemoryLogTensorAllocation
x__ y__ :: FieldSet
y__
-> MemoryLogTensorAllocation
x__ {_MemoryLogTensorAllocation'_unknownFields :: FieldSet
_MemoryLogTensorAllocation'_unknownFields = FieldSet
y__})
defMessage :: MemoryLogTensorAllocation
defMessage
= $WMemoryLogTensorAllocation'_constructor :: Int64
-> Text
-> Maybe TensorDescription
-> FieldSet
-> MemoryLogTensorAllocation
MemoryLogTensorAllocation'_constructor
{_MemoryLogTensorAllocation'stepId :: Int64
_MemoryLogTensorAllocation'stepId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogTensorAllocation'kernelName :: Text
_MemoryLogTensorAllocation'kernelName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogTensorAllocation'tensor :: Maybe TensorDescription
_MemoryLogTensorAllocation'tensor = Maybe TensorDescription
forall a. Maybe a
Prelude.Nothing,
_MemoryLogTensorAllocation'_unknownFields :: FieldSet
_MemoryLogTensorAllocation'_unknownFields = []}
parseMessage :: Parser MemoryLogTensorAllocation
parseMessage
= let
loop ::
MemoryLogTensorAllocation
-> Data.ProtoLens.Encoding.Bytes.Parser MemoryLogTensorAllocation
loop :: MemoryLogTensorAllocation -> Parser MemoryLogTensorAllocation
loop x :: MemoryLogTensorAllocation
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]))))
MemoryLogTensorAllocation -> Parser MemoryLogTensorAllocation
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
MemoryLogTensorAllocation
MemoryLogTensorAllocation
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> MemoryLogTensorAllocation
-> MemoryLogTensorAllocation
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
MemoryLogTensorAllocation
MemoryLogTensorAllocation
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MemoryLogTensorAllocation
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)
"step_id"
MemoryLogTensorAllocation -> Parser MemoryLogTensorAllocation
loop (Setter
MemoryLogTensorAllocation MemoryLogTensorAllocation Int64 Int64
-> Int64 -> MemoryLogTensorAllocation -> MemoryLogTensorAllocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "stepId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepId") Int64
y MemoryLogTensorAllocation
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))
"kernel_name"
MemoryLogTensorAllocation -> Parser MemoryLogTensorAllocation
loop
(Setter
MemoryLogTensorAllocation MemoryLogTensorAllocation Text Text
-> Text -> MemoryLogTensorAllocation -> MemoryLogTensorAllocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "kernelName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kernelName") Text
y MemoryLogTensorAllocation
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"
MemoryLogTensorAllocation -> Parser MemoryLogTensorAllocation
loop (Setter
MemoryLogTensorAllocation
MemoryLogTensorAllocation
TensorDescription
TensorDescription
-> TensorDescription
-> MemoryLogTensorAllocation
-> MemoryLogTensorAllocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "tensor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensor") TensorDescription
y MemoryLogTensorAllocation
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MemoryLogTensorAllocation -> Parser MemoryLogTensorAllocation
loop
(Setter
MemoryLogTensorAllocation
MemoryLogTensorAllocation
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> MemoryLogTensorAllocation
-> MemoryLogTensorAllocation
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
MemoryLogTensorAllocation
MemoryLogTensorAllocation
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MemoryLogTensorAllocation
x)
in
Parser MemoryLogTensorAllocation
-> String -> Parser MemoryLogTensorAllocation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do MemoryLogTensorAllocation -> Parser MemoryLogTensorAllocation
loop MemoryLogTensorAllocation
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "MemoryLogTensorAllocation"
buildMessage :: MemoryLogTensorAllocation -> Builder
buildMessage
= \ _x :: MemoryLogTensorAllocation
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike
Int64
MemoryLogTensorAllocation
MemoryLogTensorAllocation
Int64
Int64
-> MemoryLogTensorAllocation -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "stepId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepId") MemoryLogTensorAllocation
_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 :: Text
_v
= FoldLike
Text MemoryLogTensorAllocation MemoryLogTensorAllocation Text Text
-> MemoryLogTensorAllocation -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "kernelName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kernelName") MemoryLogTensorAllocation
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe TensorDescription)
MemoryLogTensorAllocation
MemoryLogTensorAllocation
(Maybe TensorDescription)
(Maybe TensorDescription)
-> MemoryLogTensorAllocation -> 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'tensor" a, Functor f) =>
(a -> f a) -> s -> 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'tensor") MemoryLogTensorAllocation
_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
MemoryLogTensorAllocation
MemoryLogTensorAllocation
FieldSet
FieldSet
-> MemoryLogTensorAllocation -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
MemoryLogTensorAllocation
MemoryLogTensorAllocation
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MemoryLogTensorAllocation
_x))))
instance Control.DeepSeq.NFData MemoryLogTensorAllocation where
rnf :: MemoryLogTensorAllocation -> ()
rnf
= \ x__ :: MemoryLogTensorAllocation
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogTensorAllocation -> FieldSet
_MemoryLogTensorAllocation'_unknownFields MemoryLogTensorAllocation
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogTensorAllocation -> Int64
_MemoryLogTensorAllocation'stepId MemoryLogTensorAllocation
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogTensorAllocation -> Text
_MemoryLogTensorAllocation'kernelName MemoryLogTensorAllocation
x__)
(Maybe TensorDescription -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogTensorAllocation -> Maybe TensorDescription
_MemoryLogTensorAllocation'tensor MemoryLogTensorAllocation
x__) ())))
data MemoryLogTensorDeallocation
= MemoryLogTensorDeallocation'_constructor {MemoryLogTensorDeallocation -> Int64
_MemoryLogTensorDeallocation'allocationId :: !Data.Int.Int64,
MemoryLogTensorDeallocation -> Text
_MemoryLogTensorDeallocation'allocatorName :: !Data.Text.Text,
MemoryLogTensorDeallocation -> FieldSet
_MemoryLogTensorDeallocation'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation -> Bool
(MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> Bool)
-> (MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> Bool)
-> Eq MemoryLogTensorDeallocation
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation -> Bool
$c/= :: MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation -> Bool
== :: MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation -> Bool
$c== :: MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation -> Bool
Prelude.Eq, Eq MemoryLogTensorDeallocation
Eq MemoryLogTensorDeallocation =>
(MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> Ordering)
-> (MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> Bool)
-> (MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> Bool)
-> (MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> Bool)
-> (MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> Bool)
-> (MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation)
-> (MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation)
-> Ord MemoryLogTensorDeallocation
MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation -> Bool
MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> Ordering
MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation
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 :: MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation
$cmin :: MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation
max :: MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation
$cmax :: MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation
>= :: MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation -> Bool
$c>= :: MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation -> Bool
> :: MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation -> Bool
$c> :: MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation -> Bool
<= :: MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation -> Bool
$c<= :: MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation -> Bool
< :: MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation -> Bool
$c< :: MemoryLogTensorDeallocation -> MemoryLogTensorDeallocation -> Bool
compare :: MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> Ordering
$ccompare :: MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation -> Ordering
$cp1Ord :: Eq MemoryLogTensorDeallocation
Prelude.Ord)
instance Prelude.Show MemoryLogTensorDeallocation where
showsPrec :: Int -> MemoryLogTensorDeallocation -> ShowS
showsPrec _ __x :: MemoryLogTensorDeallocation
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(MemoryLogTensorDeallocation -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemoryLogTensorDeallocation
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MemoryLogTensorDeallocation "allocationId" Data.Int.Int64 where
fieldOf :: Proxy# "allocationId"
-> (Int64 -> f Int64)
-> MemoryLogTensorDeallocation
-> f MemoryLogTensorDeallocation
fieldOf _
= ((Int64 -> f Int64)
-> MemoryLogTensorDeallocation -> f MemoryLogTensorDeallocation)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MemoryLogTensorDeallocation
-> f MemoryLogTensorDeallocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogTensorDeallocation -> Int64)
-> (MemoryLogTensorDeallocation
-> Int64 -> MemoryLogTensorDeallocation)
-> Lens
MemoryLogTensorDeallocation MemoryLogTensorDeallocation Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogTensorDeallocation -> Int64
_MemoryLogTensorDeallocation'allocationId
(\ x__ :: MemoryLogTensorDeallocation
x__ y__ :: Int64
y__
-> MemoryLogTensorDeallocation
x__ {_MemoryLogTensorDeallocation'allocationId :: Int64
_MemoryLogTensorDeallocation'allocationId = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogTensorDeallocation "allocatorName" Data.Text.Text where
fieldOf :: Proxy# "allocatorName"
-> (Text -> f Text)
-> MemoryLogTensorDeallocation
-> f MemoryLogTensorDeallocation
fieldOf _
= ((Text -> f Text)
-> MemoryLogTensorDeallocation -> f MemoryLogTensorDeallocation)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MemoryLogTensorDeallocation
-> f MemoryLogTensorDeallocation
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogTensorDeallocation -> Text)
-> (MemoryLogTensorDeallocation
-> Text -> MemoryLogTensorDeallocation)
-> Lens
MemoryLogTensorDeallocation MemoryLogTensorDeallocation Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogTensorDeallocation -> Text
_MemoryLogTensorDeallocation'allocatorName
(\ x__ :: MemoryLogTensorDeallocation
x__ y__ :: Text
y__
-> MemoryLogTensorDeallocation
x__ {_MemoryLogTensorDeallocation'allocatorName :: Text
_MemoryLogTensorDeallocation'allocatorName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemoryLogTensorDeallocation where
messageName :: Proxy MemoryLogTensorDeallocation -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.MemoryLogTensorDeallocation"
packedMessageDescriptor :: Proxy MemoryLogTensorDeallocation -> ByteString
packedMessageDescriptor _
= "\n\
\\ESCMemoryLogTensorDeallocation\DC2#\n\
\\rallocation_id\CAN\SOH \SOH(\ETXR\fallocationId\DC2%\n\
\\SOallocator_name\CAN\STX \SOH(\tR\rallocatorName"
packedFileDescriptor :: Proxy MemoryLogTensorDeallocation -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MemoryLogTensorDeallocation)
fieldsByTag
= let
allocationId__field_descriptor :: FieldDescriptor MemoryLogTensorDeallocation
allocationId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryLogTensorDeallocation Int64
-> FieldDescriptor MemoryLogTensorDeallocation
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"allocation_id"
(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
MemoryLogTensorDeallocation MemoryLogTensorDeallocation Int64 Int64
-> FieldAccessor MemoryLogTensorDeallocation 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 "allocationId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocationId")) ::
Data.ProtoLens.FieldDescriptor MemoryLogTensorDeallocation
allocatorName__field_descriptor :: FieldDescriptor MemoryLogTensorDeallocation
allocatorName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MemoryLogTensorDeallocation Text
-> FieldDescriptor MemoryLogTensorDeallocation
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
MemoryLogTensorDeallocation MemoryLogTensorDeallocation Text Text
-> FieldAccessor MemoryLogTensorDeallocation 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 MemoryLogTensorDeallocation
in
[(Tag, FieldDescriptor MemoryLogTensorDeallocation)]
-> Map Tag (FieldDescriptor MemoryLogTensorDeallocation)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MemoryLogTensorDeallocation
allocationId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MemoryLogTensorDeallocation
allocatorName__field_descriptor)]
unknownFields :: LensLike' f MemoryLogTensorDeallocation FieldSet
unknownFields
= (MemoryLogTensorDeallocation -> FieldSet)
-> (MemoryLogTensorDeallocation
-> FieldSet -> MemoryLogTensorDeallocation)
-> Lens' MemoryLogTensorDeallocation FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogTensorDeallocation -> FieldSet
_MemoryLogTensorDeallocation'_unknownFields
(\ x__ :: MemoryLogTensorDeallocation
x__ y__ :: FieldSet
y__
-> MemoryLogTensorDeallocation
x__ {_MemoryLogTensorDeallocation'_unknownFields :: FieldSet
_MemoryLogTensorDeallocation'_unknownFields = FieldSet
y__})
defMessage :: MemoryLogTensorDeallocation
defMessage
= $WMemoryLogTensorDeallocation'_constructor :: Int64 -> Text -> FieldSet -> MemoryLogTensorDeallocation
MemoryLogTensorDeallocation'_constructor
{_MemoryLogTensorDeallocation'allocationId :: Int64
_MemoryLogTensorDeallocation'allocationId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogTensorDeallocation'allocatorName :: Text
_MemoryLogTensorDeallocation'allocatorName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogTensorDeallocation'_unknownFields :: FieldSet
_MemoryLogTensorDeallocation'_unknownFields = []}
parseMessage :: Parser MemoryLogTensorDeallocation
parseMessage
= let
loop ::
MemoryLogTensorDeallocation
-> Data.ProtoLens.Encoding.Bytes.Parser MemoryLogTensorDeallocation
loop :: MemoryLogTensorDeallocation -> Parser MemoryLogTensorDeallocation
loop x :: MemoryLogTensorDeallocation
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]))))
MemoryLogTensorDeallocation -> Parser MemoryLogTensorDeallocation
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
MemoryLogTensorDeallocation
MemoryLogTensorDeallocation
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation
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
MemoryLogTensorDeallocation
MemoryLogTensorDeallocation
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MemoryLogTensorDeallocation
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)
"allocation_id"
MemoryLogTensorDeallocation -> Parser MemoryLogTensorDeallocation
loop
(Setter
MemoryLogTensorDeallocation MemoryLogTensorDeallocation Int64 Int64
-> Int64
-> MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "allocationId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocationId") Int64
y MemoryLogTensorDeallocation
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))
"allocator_name"
MemoryLogTensorDeallocation -> Parser MemoryLogTensorDeallocation
loop
(Setter
MemoryLogTensorDeallocation MemoryLogTensorDeallocation Text Text
-> Text
-> MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation
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 MemoryLogTensorDeallocation
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MemoryLogTensorDeallocation -> Parser MemoryLogTensorDeallocation
loop
(Setter
MemoryLogTensorDeallocation
MemoryLogTensorDeallocation
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> MemoryLogTensorDeallocation
-> MemoryLogTensorDeallocation
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
MemoryLogTensorDeallocation
MemoryLogTensorDeallocation
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MemoryLogTensorDeallocation
x)
in
Parser MemoryLogTensorDeallocation
-> String -> Parser MemoryLogTensorDeallocation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do MemoryLogTensorDeallocation -> Parser MemoryLogTensorDeallocation
loop MemoryLogTensorDeallocation
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "MemoryLogTensorDeallocation"
buildMessage :: MemoryLogTensorDeallocation -> Builder
buildMessage
= \ _x :: MemoryLogTensorDeallocation
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike
Int64
MemoryLogTensorDeallocation
MemoryLogTensorDeallocation
Int64
Int64
-> MemoryLogTensorDeallocation -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "allocationId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"allocationId") MemoryLogTensorDeallocation
_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 :: Text
_v
= FoldLike
Text
MemoryLogTensorDeallocation
MemoryLogTensorDeallocation
Text
Text
-> MemoryLogTensorDeallocation -> 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") MemoryLogTensorDeallocation
_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
MemoryLogTensorDeallocation
MemoryLogTensorDeallocation
FieldSet
FieldSet
-> MemoryLogTensorDeallocation -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
MemoryLogTensorDeallocation
MemoryLogTensorDeallocation
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MemoryLogTensorDeallocation
_x)))
instance Control.DeepSeq.NFData MemoryLogTensorDeallocation where
rnf :: MemoryLogTensorDeallocation -> ()
rnf
= \ x__ :: MemoryLogTensorDeallocation
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogTensorDeallocation -> FieldSet
_MemoryLogTensorDeallocation'_unknownFields MemoryLogTensorDeallocation
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogTensorDeallocation -> Int64
_MemoryLogTensorDeallocation'allocationId MemoryLogTensorDeallocation
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogTensorDeallocation -> Text
_MemoryLogTensorDeallocation'allocatorName MemoryLogTensorDeallocation
x__) ()))
data MemoryLogTensorOutput
= MemoryLogTensorOutput'_constructor {MemoryLogTensorOutput -> Int64
_MemoryLogTensorOutput'stepId :: !Data.Int.Int64,
MemoryLogTensorOutput -> Text
_MemoryLogTensorOutput'kernelName :: !Data.Text.Text,
MemoryLogTensorOutput -> Int32
_MemoryLogTensorOutput'index :: !Data.Int.Int32,
MemoryLogTensorOutput -> Maybe TensorDescription
_MemoryLogTensorOutput'tensor :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription),
MemoryLogTensorOutput -> FieldSet
_MemoryLogTensorOutput'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool
(MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool)
-> (MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool)
-> Eq MemoryLogTensorOutput
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool
$c/= :: MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool
== :: MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool
$c== :: MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool
Prelude.Eq, Eq MemoryLogTensorOutput
Eq MemoryLogTensorOutput =>
(MemoryLogTensorOutput -> MemoryLogTensorOutput -> Ordering)
-> (MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool)
-> (MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool)
-> (MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool)
-> (MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool)
-> (MemoryLogTensorOutput
-> MemoryLogTensorOutput -> MemoryLogTensorOutput)
-> (MemoryLogTensorOutput
-> MemoryLogTensorOutput -> MemoryLogTensorOutput)
-> Ord MemoryLogTensorOutput
MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool
MemoryLogTensorOutput -> MemoryLogTensorOutput -> Ordering
MemoryLogTensorOutput
-> MemoryLogTensorOutput -> MemoryLogTensorOutput
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 :: MemoryLogTensorOutput
-> MemoryLogTensorOutput -> MemoryLogTensorOutput
$cmin :: MemoryLogTensorOutput
-> MemoryLogTensorOutput -> MemoryLogTensorOutput
max :: MemoryLogTensorOutput
-> MemoryLogTensorOutput -> MemoryLogTensorOutput
$cmax :: MemoryLogTensorOutput
-> MemoryLogTensorOutput -> MemoryLogTensorOutput
>= :: MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool
$c>= :: MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool
> :: MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool
$c> :: MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool
<= :: MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool
$c<= :: MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool
< :: MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool
$c< :: MemoryLogTensorOutput -> MemoryLogTensorOutput -> Bool
compare :: MemoryLogTensorOutput -> MemoryLogTensorOutput -> Ordering
$ccompare :: MemoryLogTensorOutput -> MemoryLogTensorOutput -> Ordering
$cp1Ord :: Eq MemoryLogTensorOutput
Prelude.Ord)
instance Prelude.Show MemoryLogTensorOutput where
showsPrec :: Int -> MemoryLogTensorOutput -> ShowS
showsPrec _ __x :: MemoryLogTensorOutput
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(MemoryLogTensorOutput -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MemoryLogTensorOutput
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MemoryLogTensorOutput "stepId" Data.Int.Int64 where
fieldOf :: Proxy# "stepId"
-> (Int64 -> f Int64)
-> MemoryLogTensorOutput
-> f MemoryLogTensorOutput
fieldOf _
= ((Int64 -> f Int64)
-> MemoryLogTensorOutput -> f MemoryLogTensorOutput)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> MemoryLogTensorOutput
-> f MemoryLogTensorOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogTensorOutput -> Int64)
-> (MemoryLogTensorOutput -> Int64 -> MemoryLogTensorOutput)
-> Lens MemoryLogTensorOutput MemoryLogTensorOutput Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogTensorOutput -> Int64
_MemoryLogTensorOutput'stepId
(\ x__ :: MemoryLogTensorOutput
x__ y__ :: Int64
y__ -> MemoryLogTensorOutput
x__ {_MemoryLogTensorOutput'stepId :: Int64
_MemoryLogTensorOutput'stepId = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogTensorOutput "kernelName" Data.Text.Text where
fieldOf :: Proxy# "kernelName"
-> (Text -> f Text)
-> MemoryLogTensorOutput
-> f MemoryLogTensorOutput
fieldOf _
= ((Text -> f Text)
-> MemoryLogTensorOutput -> f MemoryLogTensorOutput)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MemoryLogTensorOutput
-> f MemoryLogTensorOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogTensorOutput -> Text)
-> (MemoryLogTensorOutput -> Text -> MemoryLogTensorOutput)
-> Lens MemoryLogTensorOutput MemoryLogTensorOutput Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogTensorOutput -> Text
_MemoryLogTensorOutput'kernelName
(\ x__ :: MemoryLogTensorOutput
x__ y__ :: Text
y__ -> MemoryLogTensorOutput
x__ {_MemoryLogTensorOutput'kernelName :: Text
_MemoryLogTensorOutput'kernelName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogTensorOutput "index" Data.Int.Int32 where
fieldOf :: Proxy# "index"
-> (Int32 -> f Int32)
-> MemoryLogTensorOutput
-> f MemoryLogTensorOutput
fieldOf _
= ((Int32 -> f Int32)
-> MemoryLogTensorOutput -> f MemoryLogTensorOutput)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> MemoryLogTensorOutput
-> f MemoryLogTensorOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogTensorOutput -> Int32)
-> (MemoryLogTensorOutput -> Int32 -> MemoryLogTensorOutput)
-> Lens MemoryLogTensorOutput MemoryLogTensorOutput Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogTensorOutput -> Int32
_MemoryLogTensorOutput'index
(\ x__ :: MemoryLogTensorOutput
x__ y__ :: Int32
y__ -> MemoryLogTensorOutput
x__ {_MemoryLogTensorOutput'index :: Int32
_MemoryLogTensorOutput'index = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MemoryLogTensorOutput "tensor" Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription where
fieldOf :: Proxy# "tensor"
-> (TensorDescription -> f TensorDescription)
-> MemoryLogTensorOutput
-> f MemoryLogTensorOutput
fieldOf _
= ((Maybe TensorDescription -> f (Maybe TensorDescription))
-> MemoryLogTensorOutput -> f MemoryLogTensorOutput)
-> ((TensorDescription -> f TensorDescription)
-> Maybe TensorDescription -> f (Maybe TensorDescription))
-> (TensorDescription -> f TensorDescription)
-> MemoryLogTensorOutput
-> f MemoryLogTensorOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogTensorOutput -> Maybe TensorDescription)
-> (MemoryLogTensorOutput
-> Maybe TensorDescription -> MemoryLogTensorOutput)
-> Lens
MemoryLogTensorOutput
MemoryLogTensorOutput
(Maybe TensorDescription)
(Maybe TensorDescription)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogTensorOutput -> Maybe TensorDescription
_MemoryLogTensorOutput'tensor
(\ x__ :: MemoryLogTensorOutput
x__ y__ :: Maybe TensorDescription
y__ -> MemoryLogTensorOutput
x__ {_MemoryLogTensorOutput'tensor :: Maybe TensorDescription
_MemoryLogTensorOutput'tensor = 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 MemoryLogTensorOutput "maybe'tensor" (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription) where
fieldOf :: Proxy# "maybe'tensor"
-> (Maybe TensorDescription -> f (Maybe TensorDescription))
-> MemoryLogTensorOutput
-> f MemoryLogTensorOutput
fieldOf _
= ((Maybe TensorDescription -> f (Maybe TensorDescription))
-> MemoryLogTensorOutput -> f MemoryLogTensorOutput)
-> ((Maybe TensorDescription -> f (Maybe TensorDescription))
-> Maybe TensorDescription -> f (Maybe TensorDescription))
-> (Maybe TensorDescription -> f (Maybe TensorDescription))
-> MemoryLogTensorOutput
-> f MemoryLogTensorOutput
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MemoryLogTensorOutput -> Maybe TensorDescription)
-> (MemoryLogTensorOutput
-> Maybe TensorDescription -> MemoryLogTensorOutput)
-> Lens
MemoryLogTensorOutput
MemoryLogTensorOutput
(Maybe TensorDescription)
(Maybe TensorDescription)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogTensorOutput -> Maybe TensorDescription
_MemoryLogTensorOutput'tensor
(\ x__ :: MemoryLogTensorOutput
x__ y__ :: Maybe TensorDescription
y__ -> MemoryLogTensorOutput
x__ {_MemoryLogTensorOutput'tensor :: Maybe TensorDescription
_MemoryLogTensorOutput'tensor = Maybe TensorDescription
y__}))
(Maybe TensorDescription -> f (Maybe TensorDescription))
-> Maybe TensorDescription -> f (Maybe TensorDescription)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MemoryLogTensorOutput where
messageName :: Proxy MemoryLogTensorOutput -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.MemoryLogTensorOutput"
packedMessageDescriptor :: Proxy MemoryLogTensorOutput -> ByteString
packedMessageDescriptor _
= "\n\
\\NAKMemoryLogTensorOutput\DC2\ETB\n\
\\astep_id\CAN\SOH \SOH(\ETXR\ACKstepId\DC2\US\n\
\\vkernel_name\CAN\STX \SOH(\tR\n\
\kernelName\DC2\DC4\n\
\\ENQindex\CAN\ETX \SOH(\ENQR\ENQindex\DC25\n\
\\ACKtensor\CAN\EOT \SOH(\v2\GS.tensorflow.TensorDescriptionR\ACKtensor"
packedFileDescriptor :: Proxy MemoryLogTensorOutput -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MemoryLogTensorOutput)
fieldsByTag
= let
stepId__field_descriptor :: FieldDescriptor MemoryLogTensorOutput
stepId__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor MemoryLogTensorOutput Int64
-> FieldDescriptor MemoryLogTensorOutput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"step_id"
(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 MemoryLogTensorOutput MemoryLogTensorOutput Int64 Int64
-> FieldAccessor MemoryLogTensorOutput 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 "stepId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepId")) ::
Data.ProtoLens.FieldDescriptor MemoryLogTensorOutput
kernelName__field_descriptor :: FieldDescriptor MemoryLogTensorOutput
kernelName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MemoryLogTensorOutput Text
-> FieldDescriptor MemoryLogTensorOutput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"kernel_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 MemoryLogTensorOutput MemoryLogTensorOutput Text Text
-> FieldAccessor MemoryLogTensorOutput 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 "kernelName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kernelName")) ::
Data.ProtoLens.FieldDescriptor MemoryLogTensorOutput
index__field_descriptor :: FieldDescriptor MemoryLogTensorOutput
index__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor MemoryLogTensorOutput Int32
-> FieldDescriptor MemoryLogTensorOutput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"index"
(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 MemoryLogTensorOutput MemoryLogTensorOutput Int32 Int32
-> FieldAccessor MemoryLogTensorOutput 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 "index" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"index")) ::
Data.ProtoLens.FieldDescriptor MemoryLogTensorOutput
tensor__field_descriptor :: FieldDescriptor MemoryLogTensorOutput
tensor__field_descriptor
= String
-> FieldTypeDescriptor TensorDescription
-> FieldAccessor MemoryLogTensorOutput TensorDescription
-> FieldDescriptor MemoryLogTensorOutput
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"tensor"
(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
MemoryLogTensorOutput
MemoryLogTensorOutput
(Maybe TensorDescription)
(Maybe TensorDescription)
-> FieldAccessor MemoryLogTensorOutput TensorDescription
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'tensor" a, Functor f) =>
(a -> f a) -> s -> 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'tensor")) ::
Data.ProtoLens.FieldDescriptor MemoryLogTensorOutput
in
[(Tag, FieldDescriptor MemoryLogTensorOutput)]
-> Map Tag (FieldDescriptor MemoryLogTensorOutput)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MemoryLogTensorOutput
stepId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MemoryLogTensorOutput
kernelName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor MemoryLogTensorOutput
index__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor MemoryLogTensorOutput
tensor__field_descriptor)]
unknownFields :: LensLike' f MemoryLogTensorOutput FieldSet
unknownFields
= (MemoryLogTensorOutput -> FieldSet)
-> (MemoryLogTensorOutput -> FieldSet -> MemoryLogTensorOutput)
-> Lens' MemoryLogTensorOutput FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MemoryLogTensorOutput -> FieldSet
_MemoryLogTensorOutput'_unknownFields
(\ x__ :: MemoryLogTensorOutput
x__ y__ :: FieldSet
y__ -> MemoryLogTensorOutput
x__ {_MemoryLogTensorOutput'_unknownFields :: FieldSet
_MemoryLogTensorOutput'_unknownFields = FieldSet
y__})
defMessage :: MemoryLogTensorOutput
defMessage
= $WMemoryLogTensorOutput'_constructor :: Int64
-> Text
-> Int32
-> Maybe TensorDescription
-> FieldSet
-> MemoryLogTensorOutput
MemoryLogTensorOutput'_constructor
{_MemoryLogTensorOutput'stepId :: Int64
_MemoryLogTensorOutput'stepId = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogTensorOutput'kernelName :: Text
_MemoryLogTensorOutput'kernelName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogTensorOutput'index :: Int32
_MemoryLogTensorOutput'index = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MemoryLogTensorOutput'tensor :: Maybe TensorDescription
_MemoryLogTensorOutput'tensor = Maybe TensorDescription
forall a. Maybe a
Prelude.Nothing,
_MemoryLogTensorOutput'_unknownFields :: FieldSet
_MemoryLogTensorOutput'_unknownFields = []}
parseMessage :: Parser MemoryLogTensorOutput
parseMessage
= let
loop ::
MemoryLogTensorOutput
-> Data.ProtoLens.Encoding.Bytes.Parser MemoryLogTensorOutput
loop :: MemoryLogTensorOutput -> Parser MemoryLogTensorOutput
loop x :: MemoryLogTensorOutput
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]))))
MemoryLogTensorOutput -> Parser MemoryLogTensorOutput
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
MemoryLogTensorOutput MemoryLogTensorOutput FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MemoryLogTensorOutput
-> MemoryLogTensorOutput
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
MemoryLogTensorOutput MemoryLogTensorOutput FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MemoryLogTensorOutput
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)
"step_id"
MemoryLogTensorOutput -> Parser MemoryLogTensorOutput
loop (Setter MemoryLogTensorOutput MemoryLogTensorOutput Int64 Int64
-> Int64 -> MemoryLogTensorOutput -> MemoryLogTensorOutput
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "stepId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepId") Int64
y MemoryLogTensorOutput
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))
"kernel_name"
MemoryLogTensorOutput -> Parser MemoryLogTensorOutput
loop
(Setter MemoryLogTensorOutput MemoryLogTensorOutput Text Text
-> Text -> MemoryLogTensorOutput -> MemoryLogTensorOutput
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "kernelName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kernelName") Text
y MemoryLogTensorOutput
x)
24
-> 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)
"index"
MemoryLogTensorOutput -> Parser MemoryLogTensorOutput
loop (Setter MemoryLogTensorOutput MemoryLogTensorOutput Int32 Int32
-> Int32 -> MemoryLogTensorOutput -> MemoryLogTensorOutput
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "index" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"index") Int32
y MemoryLogTensorOutput
x)
34
-> 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"
MemoryLogTensorOutput -> Parser MemoryLogTensorOutput
loop (Setter
MemoryLogTensorOutput
MemoryLogTensorOutput
TensorDescription
TensorDescription
-> TensorDescription
-> MemoryLogTensorOutput
-> MemoryLogTensorOutput
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "tensor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensor") TensorDescription
y MemoryLogTensorOutput
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MemoryLogTensorOutput -> Parser MemoryLogTensorOutput
loop
(Setter
MemoryLogTensorOutput MemoryLogTensorOutput FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MemoryLogTensorOutput
-> MemoryLogTensorOutput
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
MemoryLogTensorOutput MemoryLogTensorOutput FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MemoryLogTensorOutput
x)
in
Parser MemoryLogTensorOutput
-> String -> Parser MemoryLogTensorOutput
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do MemoryLogTensorOutput -> Parser MemoryLogTensorOutput
loop MemoryLogTensorOutput
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "MemoryLogTensorOutput"
buildMessage :: MemoryLogTensorOutput -> Builder
buildMessage
= \ _x :: MemoryLogTensorOutput
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike
Int64 MemoryLogTensorOutput MemoryLogTensorOutput Int64 Int64
-> MemoryLogTensorOutput -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "stepId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stepId") MemoryLogTensorOutput
_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 :: Text
_v
= FoldLike Text MemoryLogTensorOutput MemoryLogTensorOutput Text Text
-> MemoryLogTensorOutput -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "kernelName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"kernelName") MemoryLogTensorOutput
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v = FoldLike
Int32 MemoryLogTensorOutput MemoryLogTensorOutput Int32 Int32
-> MemoryLogTensorOutput -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "index" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"index") MemoryLogTensorOutput
_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 24)
((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)
MemoryLogTensorOutput
MemoryLogTensorOutput
(Maybe TensorDescription)
(Maybe TensorDescription)
-> MemoryLogTensorOutput -> 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'tensor" a, Functor f) =>
(a -> f a) -> s -> 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'tensor") MemoryLogTensorOutput
_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 34)
((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
MemoryLogTensorOutput
MemoryLogTensorOutput
FieldSet
FieldSet
-> MemoryLogTensorOutput -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
MemoryLogTensorOutput
MemoryLogTensorOutput
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MemoryLogTensorOutput
_x)))))
instance Control.DeepSeq.NFData MemoryLogTensorOutput where
rnf :: MemoryLogTensorOutput -> ()
rnf
= \ x__ :: MemoryLogTensorOutput
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogTensorOutput -> FieldSet
_MemoryLogTensorOutput'_unknownFields MemoryLogTensorOutput
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogTensorOutput -> Int64
_MemoryLogTensorOutput'stepId MemoryLogTensorOutput
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogTensorOutput -> Text
_MemoryLogTensorOutput'kernelName MemoryLogTensorOutput
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MemoryLogTensorOutput -> Int32
_MemoryLogTensorOutput'index MemoryLogTensorOutput
x__)
(Maybe TensorDescription -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (MemoryLogTensorOutput -> Maybe TensorDescription
_MemoryLogTensorOutput'tensor MemoryLogTensorOutput
x__) ()))))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= "\n\
\*tensorflow/core/framework/log_memory.proto\DC2\n\
\tensorflow\SUB2tensorflow/core/framework/tensor_description.proto\"@\n\
\\rMemoryLogStep\DC2\ETB\n\
\\astep_id\CAN\SOH \SOH(\ETXR\ACKstepId\DC2\SYN\n\
\\ACKhandle\CAN\STX \SOH(\tR\ACKhandle\"\140\SOH\n\
\\EMMemoryLogTensorAllocation\DC2\ETB\n\
\\astep_id\CAN\SOH \SOH(\ETXR\ACKstepId\DC2\US\n\
\\vkernel_name\CAN\STX \SOH(\tR\n\
\kernelName\DC25\n\
\\ACKtensor\CAN\ETX \SOH(\v2\GS.tensorflow.TensorDescriptionR\ACKtensor\"i\n\
\\ESCMemoryLogTensorDeallocation\DC2#\n\
\\rallocation_id\CAN\SOH \SOH(\ETXR\fallocationId\DC2%\n\
\\SOallocator_name\CAN\STX \SOH(\tR\rallocatorName\"\158\SOH\n\
\\NAKMemoryLogTensorOutput\DC2\ETB\n\
\\astep_id\CAN\SOH \SOH(\ETXR\ACKstepId\DC2\US\n\
\\vkernel_name\CAN\STX \SOH(\tR\n\
\kernelName\DC2\DC4\n\
\\ENQindex\CAN\ETX \SOH(\ENQR\ENQindex\DC25\n\
\\ACKtensor\CAN\EOT \SOH(\v2\GS.tensorflow.TensorDescriptionR\ACKtensor\"\202\SOH\n\
\\SYNMemoryLogRawAllocation\DC2\ETB\n\
\\astep_id\CAN\SOH \SOH(\ETXR\ACKstepId\DC2\FS\n\
\\toperation\CAN\STX \SOH(\tR\toperation\DC2\ESC\n\
\\tnum_bytes\CAN\ETX \SOH(\ETXR\bnumBytes\DC2\DLE\n\
\\ETXptr\CAN\EOT \SOH(\EOTR\ETXptr\DC2#\n\
\\rallocation_id\CAN\ENQ \SOH(\ETXR\fallocationId\DC2%\n\
\\SOallocator_name\CAN\ACK \SOH(\tR\rallocatorName\"\185\SOH\n\
\\CANMemoryLogRawDeallocation\DC2\ETB\n\
\\astep_id\CAN\SOH \SOH(\ETXR\ACKstepId\DC2\FS\n\
\\toperation\CAN\STX \SOH(\tR\toperation\DC2#\n\
\\rallocation_id\CAN\ETX \SOH(\ETXR\fallocationId\DC2%\n\
\\SOallocator_name\CAN\EOT \SOH(\tR\rallocatorName\DC2\SUB\n\
\\bdeferred\CAN\ENQ \SOH(\bR\bdeferredB\131\SOH\n\
\\CANorg.tensorflow.frameworkB\SILogMemoryProtosP\SOHZQgithub.com/tensorflow/tensorflow/tensorflow/go/core/framework/log_memory_go_proto\248\SOH\SOHJ\179\DC4\n\
\\ACK\DC2\EOT\NUL\NUL^\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\
\\b\n\
\\SOH\b\DC2\ETX\ACK\NUL\US\n\
\\t\n\
\\STX\b\US\DC2\ETX\ACK\NUL\US\n\
\\b\n\
\\SOH\b\DC2\ETX\a\NUL0\n\
\\t\n\
\\STX\b\b\DC2\ETX\a\NUL0\n\
\\b\n\
\\SOH\b\DC2\ETX\b\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\b\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\t\NUL1\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\t\NUL1\n\
\\b\n\
\\SOH\b\DC2\ETX\n\
\\NULh\n\
\\t\n\
\\STX\b\v\DC2\ETX\n\
\\NULh\n\
\\n\
\\n\
\\STX\EOT\NUL\DC2\EOT\f\NUL\DC2\SOH\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\f\b\NAK\n\
\&\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\SO\STX\DC4\SUB\EM Process-unique step id.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\SO\STX\a\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\SO\b\SI\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\SO\DC2\DC3\n\
\C\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX\DC1\STX\DC4\SUB6 Handle describing the feeds and fetches of the step.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\DC1\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\DC1\t\SI\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\DC1\DC2\DC3\n\
\\n\
\\n\
\\STX\EOT\SOH\DC2\EOT\DC4\NUL\RS\SOH\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX\DC4\b!\n\
\&\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX\SYN\STX\DC4\SUB\EM Process-unique step id.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX\SYN\STX\a\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\SYN\b\SI\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\SYN\DC2\DC3\n\
\l\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX\SUB\STX\EM\SUB_ Name of the kernel making the allocation as set in GraphDef,\n\
\ e.g., \"affine2/weights/Assign\".\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\SUB\STX\b\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\SUB\t\DC4\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\SUB\ETB\CAN\n\
\(\n\
\\EOT\EOT\SOH\STX\STX\DC2\ETX\GS\STX\US\SUB\ESC Allocated tensor details.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ACK\DC2\ETX\GS\STX\DC3\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\GS\DC4\SUB\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\GS\GS\RS\n\
\\n\
\\n\
\\STX\EOT\STX\DC2\EOT \NUL'\SOH\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX \b#\n\
\g\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX#\STX\SUB\SUBZ Id of the tensor buffer being deallocated, used to match to a\n\
\ corresponding allocation.\n\
\\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\NAK\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX#\CAN\EM\n\
\*\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETX&\STX\FS\SUB\GS Name of the allocator used.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETX&\STX\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX&\t\ETB\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX&\SUB\ESC\n\
\\n\
\\n\
\\STX\EOT\ETX\DC2\EOT)\NUL6\SOH\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETX)\b\GS\n\
\&\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETX+\STX\DC4\SUB\EM Process-unique step id.\n\
\\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\SI\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX+\DC2\DC3\n\
\j\n\
\\EOT\EOT\ETX\STX\SOH\DC2\ETX/\STX\EM\SUB] Name of the kernel producing an output as set in GraphDef, e.g.,\n\
\ \"affine2/weights/Assign\".\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ENQ\DC2\ETX/\STX\b\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\SOH\DC2\ETX/\t\DC4\n\
\\f\n\
\\ENQ\EOT\ETX\STX\SOH\ETX\DC2\ETX/\ETB\CAN\n\
\-\n\
\\EOT\EOT\ETX\STX\STX\DC2\ETX2\STX\DC2\SUB Index of the output being set.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\ENQ\DC2\ETX2\STX\a\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\SOH\DC2\ETX2\b\r\n\
\\f\n\
\\ENQ\EOT\ETX\STX\STX\ETX\DC2\ETX2\DLE\DC1\n\
\%\n\
\\EOT\EOT\ETX\STX\ETX\DC2\ETX5\STX\US\SUB\CAN Output tensor details.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ETX\ACK\DC2\ETX5\STX\DC3\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ETX\SOH\DC2\ETX5\DC4\SUB\n\
\\f\n\
\\ENQ\EOT\ETX\STX\ETX\ETX\DC2\ETX5\GS\RS\n\
\\n\
\\n\
\\STX\EOT\EOT\DC2\EOT8\NULK\SOH\n\
\\n\
\\n\
\\ETX\EOT\EOT\SOH\DC2\ETX8\b\RS\n\
\&\n\
\\EOT\EOT\EOT\STX\NUL\DC2\ETX:\STX\DC4\SUB\EM Process-unique step id.\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETX:\STX\a\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETX:\b\SI\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETX:\DC2\DC3\n\
\;\n\
\\EOT\EOT\EOT\STX\SOH\DC2\ETX=\STX\ETB\SUB. Name of the operation making the allocation.\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\ETX=\STX\b\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETX=\t\DC2\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETX=\NAK\SYN\n\
\1\n\
\\EOT\EOT\EOT\STX\STX\DC2\ETX@\STX\SYN\SUB$ Number of bytes in the allocation.\n\
\\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\DC1\n\
\\f\n\
\\ENQ\EOT\EOT\STX\STX\ETX\DC2\ETX@\DC4\NAK\n\
\)\n\
\\EOT\EOT\EOT\STX\ETX\DC2\ETXC\STX\DC1\SUB\FS Address of the allocation.\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ETX\ENQ\DC2\ETXC\STX\b\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ETX\SOH\DC2\ETXC\t\f\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ETX\ETX\DC2\ETXC\SI\DLE\n\
\g\n\
\\EOT\EOT\EOT\STX\EOT\DC2\ETXG\STX\SUB\SUBZ Id of the tensor buffer being allocated, used to match to a\n\
\ corresponding deallocation.\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\EOT\ENQ\DC2\ETXG\STX\a\n\
\\f\n\
\\ENQ\EOT\EOT\STX\EOT\SOH\DC2\ETXG\b\NAK\n\
\\f\n\
\\ENQ\EOT\EOT\STX\EOT\ETX\DC2\ETXG\CAN\EM\n\
\*\n\
\\EOT\EOT\EOT\STX\ENQ\DC2\ETXJ\STX\FS\SUB\GS Name of the allocator used.\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ENQ\ENQ\DC2\ETXJ\STX\b\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ENQ\SOH\DC2\ETXJ\t\ETB\n\
\\f\n\
\\ENQ\EOT\EOT\STX\ENQ\ETX\DC2\ETXJ\SUB\ESC\n\
\\n\
\\n\
\\STX\EOT\ENQ\DC2\EOTM\NUL^\SOH\n\
\\n\
\\n\
\\ETX\EOT\ENQ\SOH\DC2\ETXM\b \n\
\&\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\ETXO\STX\DC4\SUB\EM Process-unique step id.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETXO\STX\a\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETXO\b\SI\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETXO\DC2\DC3\n\
\=\n\
\\EOT\EOT\ENQ\STX\SOH\DC2\ETXR\STX\ETB\SUB0 Name of the operation making the deallocation.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\ENQ\DC2\ETXR\STX\b\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETXR\t\DC2\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETXR\NAK\SYN\n\
\g\n\
\\EOT\EOT\ENQ\STX\STX\DC2\ETXV\STX\SUB\SUBZ Id of the tensor buffer being deallocated, used to match to a\n\
\ corresponding allocation.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\ENQ\DC2\ETXV\STX\a\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETXV\b\NAK\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETXV\CAN\EM\n\
\*\n\
\\EOT\EOT\ENQ\STX\ETX\DC2\ETXY\STX\FS\SUB\GS Name of the allocator used.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\ETX\ENQ\DC2\ETXY\STX\b\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\ETX\SOH\DC2\ETXY\t\ETB\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\ETX\ETX\DC2\ETXY\SUB\ESC\n\
\u\n\
\\EOT\EOT\ENQ\STX\EOT\DC2\ETX]\STX\DC4\SUBh True if the deallocation is queued and will be performed later,\n\
\ e.g. for GPU lazy freeing of buffers.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\EOT\ENQ\DC2\ETX]\STX\ACK\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\EOT\SOH\DC2\ETX]\a\SI\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\EOT\ETX\DC2\ETX]\DC2\DC3b\ACKproto3"