{- This file was auto-generated from tensorflow/core/framework/log_memory.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Tensorflow.Core.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
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.stepId' @:: Lens' MemoryLogRawAllocation Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.operation' @:: Lens' MemoryLogRawAllocation Data.Text.Text@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.numBytes' @:: Lens' MemoryLogRawAllocation Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.ptr' @:: Lens' MemoryLogRawAllocation Data.Word.Word64@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.allocationId' @:: Lens' MemoryLogRawAllocation Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.allocatorName' @:: Lens' MemoryLogRawAllocation Data.Text.Text@ -}
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__) ()))))))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.stepId' @:: Lens' MemoryLogRawDeallocation Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.operation' @:: Lens' MemoryLogRawDeallocation Data.Text.Text@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.allocationId' @:: Lens' MemoryLogRawDeallocation Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.allocatorName' @:: Lens' MemoryLogRawDeallocation Data.Text.Text@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.deferred' @:: Lens' MemoryLogRawDeallocation Prelude.Bool@ -}
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__) ())))))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.stepId' @:: Lens' MemoryLogStep Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.handle' @:: Lens' MemoryLogStep Data.Text.Text@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.stepId' @:: Lens' MemoryLogTensorAllocation Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.kernelName' @:: Lens' MemoryLogTensorAllocation Data.Text.Text@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.tensor' @:: Lens' MemoryLogTensorAllocation Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.maybe'tensor' @:: Lens' MemoryLogTensorAllocation (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription)@ -}
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__) ())))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.allocationId' @:: Lens' MemoryLogTensorDeallocation Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.allocatorName' @:: Lens' MemoryLogTensorDeallocation Data.Text.Text@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.stepId' @:: Lens' MemoryLogTensorOutput Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.kernelName' @:: Lens' MemoryLogTensorOutput Data.Text.Text@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.index' @:: Lens' MemoryLogTensorOutput Data.Int.Int32@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.tensor' @:: Lens' MemoryLogTensorOutput Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription@
         * 'Proto.Tensorflow.Core.Framework.LogMemory_Fields.maybe'tensor' @:: Lens' MemoryLogTensorOutput (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorDescription.TensorDescription)@ -}
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"