{-# 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.Protobuf.TrackableObjectGraph (
TrackableObjectGraph(), TrackableObjectGraph'TrackableObject(),
TrackableObjectGraph'TrackableObject'ObjectReference(),
TrackableObjectGraph'TrackableObject'SerializedTensor(),
TrackableObjectGraph'TrackableObject'SlotVariableReference()
) 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
data TrackableObjectGraph
= TrackableObjectGraph'_constructor {TrackableObjectGraph -> Vector TrackableObjectGraph'TrackableObject
_TrackableObjectGraph'nodes :: !(Data.Vector.Vector TrackableObjectGraph'TrackableObject),
TrackableObjectGraph -> FieldSet
_TrackableObjectGraph'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TrackableObjectGraph -> TrackableObjectGraph -> Bool
(TrackableObjectGraph -> TrackableObjectGraph -> Bool)
-> (TrackableObjectGraph -> TrackableObjectGraph -> Bool)
-> Eq TrackableObjectGraph
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TrackableObjectGraph -> TrackableObjectGraph -> Bool
$c/= :: TrackableObjectGraph -> TrackableObjectGraph -> Bool
== :: TrackableObjectGraph -> TrackableObjectGraph -> Bool
$c== :: TrackableObjectGraph -> TrackableObjectGraph -> Bool
Prelude.Eq, Eq TrackableObjectGraph
Eq TrackableObjectGraph =>
(TrackableObjectGraph -> TrackableObjectGraph -> Ordering)
-> (TrackableObjectGraph -> TrackableObjectGraph -> Bool)
-> (TrackableObjectGraph -> TrackableObjectGraph -> Bool)
-> (TrackableObjectGraph -> TrackableObjectGraph -> Bool)
-> (TrackableObjectGraph -> TrackableObjectGraph -> Bool)
-> (TrackableObjectGraph
-> TrackableObjectGraph -> TrackableObjectGraph)
-> (TrackableObjectGraph
-> TrackableObjectGraph -> TrackableObjectGraph)
-> Ord TrackableObjectGraph
TrackableObjectGraph -> TrackableObjectGraph -> Bool
TrackableObjectGraph -> TrackableObjectGraph -> Ordering
TrackableObjectGraph
-> TrackableObjectGraph -> TrackableObjectGraph
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 :: TrackableObjectGraph
-> TrackableObjectGraph -> TrackableObjectGraph
$cmin :: TrackableObjectGraph
-> TrackableObjectGraph -> TrackableObjectGraph
max :: TrackableObjectGraph
-> TrackableObjectGraph -> TrackableObjectGraph
$cmax :: TrackableObjectGraph
-> TrackableObjectGraph -> TrackableObjectGraph
>= :: TrackableObjectGraph -> TrackableObjectGraph -> Bool
$c>= :: TrackableObjectGraph -> TrackableObjectGraph -> Bool
> :: TrackableObjectGraph -> TrackableObjectGraph -> Bool
$c> :: TrackableObjectGraph -> TrackableObjectGraph -> Bool
<= :: TrackableObjectGraph -> TrackableObjectGraph -> Bool
$c<= :: TrackableObjectGraph -> TrackableObjectGraph -> Bool
< :: TrackableObjectGraph -> TrackableObjectGraph -> Bool
$c< :: TrackableObjectGraph -> TrackableObjectGraph -> Bool
compare :: TrackableObjectGraph -> TrackableObjectGraph -> Ordering
$ccompare :: TrackableObjectGraph -> TrackableObjectGraph -> Ordering
$cp1Ord :: Eq TrackableObjectGraph
Prelude.Ord)
instance Prelude.Show TrackableObjectGraph where
showsPrec :: Int -> TrackableObjectGraph -> ShowS
showsPrec _ __x :: TrackableObjectGraph
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(TrackableObjectGraph -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TrackableObjectGraph
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TrackableObjectGraph "nodes" [TrackableObjectGraph'TrackableObject] where
fieldOf :: Proxy# "nodes"
-> ([TrackableObjectGraph'TrackableObject]
-> f [TrackableObjectGraph'TrackableObject])
-> TrackableObjectGraph
-> f TrackableObjectGraph
fieldOf _
= ((Vector TrackableObjectGraph'TrackableObject
-> f (Vector TrackableObjectGraph'TrackableObject))
-> TrackableObjectGraph -> f TrackableObjectGraph)
-> (([TrackableObjectGraph'TrackableObject]
-> f [TrackableObjectGraph'TrackableObject])
-> Vector TrackableObjectGraph'TrackableObject
-> f (Vector TrackableObjectGraph'TrackableObject))
-> ([TrackableObjectGraph'TrackableObject]
-> f [TrackableObjectGraph'TrackableObject])
-> TrackableObjectGraph
-> f TrackableObjectGraph
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph
-> Vector TrackableObjectGraph'TrackableObject)
-> (TrackableObjectGraph
-> Vector TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph)
-> Lens
TrackableObjectGraph
TrackableObjectGraph
(Vector TrackableObjectGraph'TrackableObject)
(Vector TrackableObjectGraph'TrackableObject)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph -> Vector TrackableObjectGraph'TrackableObject
_TrackableObjectGraph'nodes
(\ x__ :: TrackableObjectGraph
x__ y__ :: Vector TrackableObjectGraph'TrackableObject
y__ -> TrackableObjectGraph
x__ {_TrackableObjectGraph'nodes :: Vector TrackableObjectGraph'TrackableObject
_TrackableObjectGraph'nodes = Vector TrackableObjectGraph'TrackableObject
y__}))
((Vector TrackableObjectGraph'TrackableObject
-> [TrackableObjectGraph'TrackableObject])
-> (Vector TrackableObjectGraph'TrackableObject
-> [TrackableObjectGraph'TrackableObject]
-> Vector TrackableObjectGraph'TrackableObject)
-> Lens
(Vector TrackableObjectGraph'TrackableObject)
(Vector TrackableObjectGraph'TrackableObject)
[TrackableObjectGraph'TrackableObject]
[TrackableObjectGraph'TrackableObject]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector TrackableObjectGraph'TrackableObject
-> [TrackableObjectGraph'TrackableObject]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [TrackableObjectGraph'TrackableObject]
y__ -> [TrackableObjectGraph'TrackableObject]
-> Vector TrackableObjectGraph'TrackableObject
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TrackableObjectGraph'TrackableObject]
y__))
instance Data.ProtoLens.Field.HasField TrackableObjectGraph "vec'nodes" (Data.Vector.Vector TrackableObjectGraph'TrackableObject) where
fieldOf :: Proxy# "vec'nodes"
-> (Vector TrackableObjectGraph'TrackableObject
-> f (Vector TrackableObjectGraph'TrackableObject))
-> TrackableObjectGraph
-> f TrackableObjectGraph
fieldOf _
= ((Vector TrackableObjectGraph'TrackableObject
-> f (Vector TrackableObjectGraph'TrackableObject))
-> TrackableObjectGraph -> f TrackableObjectGraph)
-> ((Vector TrackableObjectGraph'TrackableObject
-> f (Vector TrackableObjectGraph'TrackableObject))
-> Vector TrackableObjectGraph'TrackableObject
-> f (Vector TrackableObjectGraph'TrackableObject))
-> (Vector TrackableObjectGraph'TrackableObject
-> f (Vector TrackableObjectGraph'TrackableObject))
-> TrackableObjectGraph
-> f TrackableObjectGraph
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph
-> Vector TrackableObjectGraph'TrackableObject)
-> (TrackableObjectGraph
-> Vector TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph)
-> Lens
TrackableObjectGraph
TrackableObjectGraph
(Vector TrackableObjectGraph'TrackableObject)
(Vector TrackableObjectGraph'TrackableObject)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph -> Vector TrackableObjectGraph'TrackableObject
_TrackableObjectGraph'nodes
(\ x__ :: TrackableObjectGraph
x__ y__ :: Vector TrackableObjectGraph'TrackableObject
y__ -> TrackableObjectGraph
x__ {_TrackableObjectGraph'nodes :: Vector TrackableObjectGraph'TrackableObject
_TrackableObjectGraph'nodes = Vector TrackableObjectGraph'TrackableObject
y__}))
(Vector TrackableObjectGraph'TrackableObject
-> f (Vector TrackableObjectGraph'TrackableObject))
-> Vector TrackableObjectGraph'TrackableObject
-> f (Vector TrackableObjectGraph'TrackableObject)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TrackableObjectGraph where
messageName :: Proxy TrackableObjectGraph -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.TrackableObjectGraph"
packedMessageDescriptor :: Proxy TrackableObjectGraph -> ByteString
packedMessageDescriptor _
= "\n\
\\DC4TrackableObjectGraph\DC2F\n\
\\ENQnodes\CAN\SOH \ETX(\v20.tensorflow.TrackableObjectGraph.TrackableObjectR\ENQnodes\SUB\201\ENQ\n\
\\SITrackableObject\DC2\\\n\
\\bchildren\CAN\SOH \ETX(\v2@.tensorflow.TrackableObjectGraph.TrackableObject.ObjectReferenceR\bchildren\DC2a\n\
\\n\
\attributes\CAN\STX \ETX(\v2A.tensorflow.TrackableObjectGraph.TrackableObject.SerializedTensorR\n\
\attributes\DC2m\n\
\\SOslot_variables\CAN\ETX \ETX(\v2F.tensorflow.TrackableObjectGraph.TrackableObject.SlotVariableReferenceR\rslotVariables\SUBI\n\
\\SIObjectReference\DC2\ETB\n\
\\anode_id\CAN\SOH \SOH(\ENQR\ACKnodeId\DC2\GS\n\
\\n\
\local_name\CAN\STX \SOH(\tR\tlocalName\SUB\149\SOH\n\
\\DLESerializedTensor\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\ESC\n\
\\tfull_name\CAN\STX \SOH(\tR\bfullName\DC2%\n\
\\SOcheckpoint_key\CAN\ETX \SOH(\tR\rcheckpointKey\DC2)\n\
\\DLEoptional_restore\CAN\EOT \SOH(\bR\SIoptionalRestore\SUB\162\SOH\n\
\\NAKSlotVariableReference\DC29\n\
\\EMoriginal_variable_node_id\CAN\SOH \SOH(\ENQR\SYNoriginalVariableNodeId\DC2\ESC\n\
\\tslot_name\CAN\STX \SOH(\tR\bslotName\DC21\n\
\\NAKslot_variable_node_id\CAN\ETX \SOH(\ENQR\DC2slotVariableNodeId"
packedFileDescriptor :: Proxy TrackableObjectGraph -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TrackableObjectGraph)
fieldsByTag
= let
nodes__field_descriptor :: FieldDescriptor TrackableObjectGraph
nodes__field_descriptor
= String
-> FieldTypeDescriptor TrackableObjectGraph'TrackableObject
-> FieldAccessor
TrackableObjectGraph TrackableObjectGraph'TrackableObject
-> FieldDescriptor TrackableObjectGraph
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"nodes"
(MessageOrGroup
-> FieldTypeDescriptor TrackableObjectGraph'TrackableObject
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TrackableObjectGraph'TrackableObject)
(Packing
-> Lens'
TrackableObjectGraph [TrackableObjectGraph'TrackableObject]
-> FieldAccessor
TrackableObjectGraph TrackableObjectGraph'TrackableObject
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "nodes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodes")) ::
Data.ProtoLens.FieldDescriptor TrackableObjectGraph
in
[(Tag, FieldDescriptor TrackableObjectGraph)]
-> Map Tag (FieldDescriptor TrackableObjectGraph)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor TrackableObjectGraph
nodes__field_descriptor)]
unknownFields :: LensLike' f TrackableObjectGraph FieldSet
unknownFields
= (TrackableObjectGraph -> FieldSet)
-> (TrackableObjectGraph -> FieldSet -> TrackableObjectGraph)
-> Lens' TrackableObjectGraph FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph -> FieldSet
_TrackableObjectGraph'_unknownFields
(\ x__ :: TrackableObjectGraph
x__ y__ :: FieldSet
y__ -> TrackableObjectGraph
x__ {_TrackableObjectGraph'_unknownFields :: FieldSet
_TrackableObjectGraph'_unknownFields = FieldSet
y__})
defMessage :: TrackableObjectGraph
defMessage
= $WTrackableObjectGraph'_constructor :: Vector TrackableObjectGraph'TrackableObject
-> FieldSet -> TrackableObjectGraph
TrackableObjectGraph'_constructor
{_TrackableObjectGraph'nodes :: Vector TrackableObjectGraph'TrackableObject
_TrackableObjectGraph'nodes = Vector TrackableObjectGraph'TrackableObject
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TrackableObjectGraph'_unknownFields :: FieldSet
_TrackableObjectGraph'_unknownFields = []}
parseMessage :: Parser TrackableObjectGraph
parseMessage
= let
loop ::
TrackableObjectGraph
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TrackableObjectGraph'TrackableObject
-> Data.ProtoLens.Encoding.Bytes.Parser TrackableObjectGraph
loop :: TrackableObjectGraph
-> Growing Vector RealWorld TrackableObjectGraph'TrackableObject
-> Parser TrackableObjectGraph
loop x :: TrackableObjectGraph
x mutable'nodes :: Growing Vector RealWorld TrackableObjectGraph'TrackableObject
mutable'nodes
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector TrackableObjectGraph'TrackableObject
frozen'nodes <- IO (Vector TrackableObjectGraph'TrackableObject)
-> Parser (Vector TrackableObjectGraph'TrackableObject)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) TrackableObjectGraph'TrackableObject
-> IO (Vector TrackableObjectGraph'TrackableObject)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld TrackableObjectGraph'TrackableObject
Growing Vector (PrimState IO) TrackableObjectGraph'TrackableObject
mutable'nodes)
(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]))))
TrackableObjectGraph -> Parser TrackableObjectGraph
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter TrackableObjectGraph TrackableObjectGraph FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> TrackableObjectGraph
-> TrackableObjectGraph
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 TrackableObjectGraph TrackableObjectGraph FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
TrackableObjectGraph
TrackableObjectGraph
(Vector TrackableObjectGraph'TrackableObject)
(Vector TrackableObjectGraph'TrackableObject)
-> Vector TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph
-> TrackableObjectGraph
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'nodes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'nodes") Vector TrackableObjectGraph'TrackableObject
frozen'nodes TrackableObjectGraph
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do !TrackableObjectGraph'TrackableObject
y <- Parser TrackableObjectGraph'TrackableObject
-> String -> Parser TrackableObjectGraph'TrackableObject
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser TrackableObjectGraph'TrackableObject
-> Parser TrackableObjectGraph'TrackableObject
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 TrackableObjectGraph'TrackableObject
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"nodes"
Growing Vector RealWorld TrackableObjectGraph'TrackableObject
v <- IO (Growing Vector RealWorld TrackableObjectGraph'TrackableObject)
-> Parser
(Growing Vector RealWorld TrackableObjectGraph'TrackableObject)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
-> IO
(Growing
Vector (PrimState IO) TrackableObjectGraph'TrackableObject)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld TrackableObjectGraph'TrackableObject
Growing Vector (PrimState IO) TrackableObjectGraph'TrackableObject
mutable'nodes TrackableObjectGraph'TrackableObject
y)
TrackableObjectGraph
-> Growing Vector RealWorld TrackableObjectGraph'TrackableObject
-> Parser TrackableObjectGraph
loop TrackableObjectGraph
x Growing Vector RealWorld TrackableObjectGraph'TrackableObject
v
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
TrackableObjectGraph
-> Growing Vector RealWorld TrackableObjectGraph'TrackableObject
-> Parser TrackableObjectGraph
loop
(Setter TrackableObjectGraph TrackableObjectGraph FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> TrackableObjectGraph
-> TrackableObjectGraph
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 TrackableObjectGraph TrackableObjectGraph FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TrackableObjectGraph
x)
Growing Vector RealWorld TrackableObjectGraph'TrackableObject
mutable'nodes
in
Parser TrackableObjectGraph
-> String -> Parser TrackableObjectGraph
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld TrackableObjectGraph'TrackableObject
mutable'nodes <- IO (Growing Vector RealWorld TrackableObjectGraph'TrackableObject)
-> Parser
(Growing Vector RealWorld TrackableObjectGraph'TrackableObject)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld TrackableObjectGraph'TrackableObject)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
TrackableObjectGraph
-> Growing Vector RealWorld TrackableObjectGraph'TrackableObject
-> Parser TrackableObjectGraph
loop TrackableObjectGraph
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld TrackableObjectGraph'TrackableObject
mutable'nodes)
"TrackableObjectGraph"
buildMessage :: TrackableObjectGraph -> Builder
buildMessage
= \ _x :: TrackableObjectGraph
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((TrackableObjectGraph'TrackableObject -> Builder)
-> Vector TrackableObjectGraph'TrackableObject -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: TrackableObjectGraph'TrackableObject
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (TrackableObjectGraph'TrackableObject -> ByteString)
-> TrackableObjectGraph'TrackableObject
-> 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))
TrackableObjectGraph'TrackableObject -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TrackableObjectGraph'TrackableObject
_v))
(FoldLike
(Vector TrackableObjectGraph'TrackableObject)
TrackableObjectGraph
TrackableObjectGraph
(Vector TrackableObjectGraph'TrackableObject)
(Vector TrackableObjectGraph'TrackableObject)
-> TrackableObjectGraph
-> Vector TrackableObjectGraph'TrackableObject
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'nodes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'nodes") TrackableObjectGraph
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
TrackableObjectGraph
TrackableObjectGraph
FieldSet
FieldSet
-> TrackableObjectGraph -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TrackableObjectGraph
TrackableObjectGraph
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TrackableObjectGraph
_x))
instance Control.DeepSeq.NFData TrackableObjectGraph where
rnf :: TrackableObjectGraph -> ()
rnf
= \ x__ :: TrackableObjectGraph
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph -> FieldSet
_TrackableObjectGraph'_unknownFields TrackableObjectGraph
x__)
(Vector TrackableObjectGraph'TrackableObject -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TrackableObjectGraph -> Vector TrackableObjectGraph'TrackableObject
_TrackableObjectGraph'nodes TrackableObjectGraph
x__) ())
data TrackableObjectGraph'TrackableObject
= TrackableObjectGraph'TrackableObject'_constructor {TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
_TrackableObjectGraph'TrackableObject'children :: !(Data.Vector.Vector TrackableObjectGraph'TrackableObject'ObjectReference),
TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor
_TrackableObjectGraph'TrackableObject'attributes :: !(Data.Vector.Vector TrackableObjectGraph'TrackableObject'SerializedTensor),
TrackableObjectGraph'TrackableObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
_TrackableObjectGraph'TrackableObject'slotVariables :: !(Data.Vector.Vector TrackableObjectGraph'TrackableObject'SlotVariableReference),
TrackableObjectGraph'TrackableObject -> FieldSet
_TrackableObjectGraph'TrackableObject'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool
(TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool)
-> (TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool)
-> Eq TrackableObjectGraph'TrackableObject
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool
$c/= :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool
== :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool
$c== :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool
Prelude.Eq, Eq TrackableObjectGraph'TrackableObject
Eq TrackableObjectGraph'TrackableObject =>
(TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Ordering)
-> (TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool)
-> (TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool)
-> (TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool)
-> (TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool)
-> (TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject)
-> (TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject)
-> Ord TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool
TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Ordering
TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
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 :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
$cmin :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
max :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
$cmax :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
>= :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool
$c>= :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool
> :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool
$c> :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool
<= :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool
$c<= :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool
< :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool
$c< :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Bool
compare :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Ordering
$ccompare :: TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject -> Ordering
$cp1Ord :: Eq TrackableObjectGraph'TrackableObject
Prelude.Ord)
instance Prelude.Show TrackableObjectGraph'TrackableObject where
showsPrec :: Int -> TrackableObjectGraph'TrackableObject -> ShowS
showsPrec _ __x :: TrackableObjectGraph'TrackableObject
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(TrackableObjectGraph'TrackableObject -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TrackableObjectGraph'TrackableObject
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TrackableObjectGraph'TrackableObject "children" [TrackableObjectGraph'TrackableObject'ObjectReference] where
fieldOf :: Proxy# "children"
-> ([TrackableObjectGraph'TrackableObject'ObjectReference]
-> f [TrackableObjectGraph'TrackableObject'ObjectReference])
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject
fieldOf _
= ((Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject)
-> (([TrackableObjectGraph'TrackableObject'ObjectReference]
-> f [TrackableObjectGraph'TrackableObject'ObjectReference])
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> ([TrackableObjectGraph'TrackableObject'ObjectReference]
-> f [TrackableObjectGraph'TrackableObject'ObjectReference])
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference)
-> (TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject)
-> Lens
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
_TrackableObjectGraph'TrackableObject'children
(\ x__ :: TrackableObjectGraph'TrackableObject
x__ y__ :: Vector TrackableObjectGraph'TrackableObject'ObjectReference
y__
-> TrackableObjectGraph'TrackableObject
x__ {_TrackableObjectGraph'TrackableObject'children :: Vector TrackableObjectGraph'TrackableObject'ObjectReference
_TrackableObjectGraph'TrackableObject'children = Vector TrackableObjectGraph'TrackableObject'ObjectReference
y__}))
((Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> [TrackableObjectGraph'TrackableObject'ObjectReference])
-> (Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> [TrackableObjectGraph'TrackableObject'ObjectReference]
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference)
-> Lens
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
[TrackableObjectGraph'TrackableObject'ObjectReference]
[TrackableObjectGraph'TrackableObject'ObjectReference]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> [TrackableObjectGraph'TrackableObject'ObjectReference]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [TrackableObjectGraph'TrackableObject'ObjectReference]
y__ -> [TrackableObjectGraph'TrackableObject'ObjectReference]
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TrackableObjectGraph'TrackableObject'ObjectReference]
y__))
instance Data.ProtoLens.Field.HasField TrackableObjectGraph'TrackableObject "vec'children" (Data.Vector.Vector TrackableObjectGraph'TrackableObject'ObjectReference) where
fieldOf :: Proxy# "vec'children"
-> (Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject
fieldOf _
= ((Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject)
-> ((Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> (Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference)
-> (TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject)
-> Lens
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
_TrackableObjectGraph'TrackableObject'children
(\ x__ :: TrackableObjectGraph'TrackableObject
x__ y__ :: Vector TrackableObjectGraph'TrackableObject'ObjectReference
y__
-> TrackableObjectGraph'TrackableObject
x__ {_TrackableObjectGraph'TrackableObject'children :: Vector TrackableObjectGraph'TrackableObject'ObjectReference
_TrackableObjectGraph'TrackableObject'children = Vector TrackableObjectGraph'TrackableObject'ObjectReference
y__}))
(Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TrackableObjectGraph'TrackableObject "attributes" [TrackableObjectGraph'TrackableObject'SerializedTensor] where
fieldOf :: Proxy# "attributes"
-> ([TrackableObjectGraph'TrackableObject'SerializedTensor]
-> f [TrackableObjectGraph'TrackableObject'SerializedTensor])
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject
fieldOf _
= ((Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> f (Vector
TrackableObjectGraph'TrackableObject'SerializedTensor))
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject)
-> (([TrackableObjectGraph'TrackableObject'SerializedTensor]
-> f [TrackableObjectGraph'TrackableObject'SerializedTensor])
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> f (Vector
TrackableObjectGraph'TrackableObject'SerializedTensor))
-> ([TrackableObjectGraph'TrackableObject'SerializedTensor]
-> f [TrackableObjectGraph'TrackableObject'SerializedTensor])
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
-> (TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject)
-> Lens
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
(Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
(Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor
_TrackableObjectGraph'TrackableObject'attributes
(\ x__ :: TrackableObjectGraph'TrackableObject
x__ y__ :: Vector TrackableObjectGraph'TrackableObject'SerializedTensor
y__
-> TrackableObjectGraph'TrackableObject
x__ {_TrackableObjectGraph'TrackableObject'attributes :: Vector TrackableObjectGraph'TrackableObject'SerializedTensor
_TrackableObjectGraph'TrackableObject'attributes = Vector TrackableObjectGraph'TrackableObject'SerializedTensor
y__}))
((Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> [TrackableObjectGraph'TrackableObject'SerializedTensor])
-> (Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> [TrackableObjectGraph'TrackableObject'SerializedTensor]
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
-> Lens
(Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
(Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
[TrackableObjectGraph'TrackableObject'SerializedTensor]
[TrackableObjectGraph'TrackableObject'SerializedTensor]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> [TrackableObjectGraph'TrackableObject'SerializedTensor]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [TrackableObjectGraph'TrackableObject'SerializedTensor]
y__ -> [TrackableObjectGraph'TrackableObject'SerializedTensor]
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TrackableObjectGraph'TrackableObject'SerializedTensor]
y__))
instance Data.ProtoLens.Field.HasField TrackableObjectGraph'TrackableObject "vec'attributes" (Data.Vector.Vector TrackableObjectGraph'TrackableObject'SerializedTensor) where
fieldOf :: Proxy# "vec'attributes"
-> (Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> f (Vector
TrackableObjectGraph'TrackableObject'SerializedTensor))
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject
fieldOf _
= ((Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> f (Vector
TrackableObjectGraph'TrackableObject'SerializedTensor))
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject)
-> ((Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> f (Vector
TrackableObjectGraph'TrackableObject'SerializedTensor))
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> f (Vector
TrackableObjectGraph'TrackableObject'SerializedTensor))
-> (Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> f (Vector
TrackableObjectGraph'TrackableObject'SerializedTensor))
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
-> (TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject)
-> Lens
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
(Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
(Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor
_TrackableObjectGraph'TrackableObject'attributes
(\ x__ :: TrackableObjectGraph'TrackableObject
x__ y__ :: Vector TrackableObjectGraph'TrackableObject'SerializedTensor
y__
-> TrackableObjectGraph'TrackableObject
x__ {_TrackableObjectGraph'TrackableObject'attributes :: Vector TrackableObjectGraph'TrackableObject'SerializedTensor
_TrackableObjectGraph'TrackableObject'attributes = Vector TrackableObjectGraph'TrackableObject'SerializedTensor
y__}))
(Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> f (Vector
TrackableObjectGraph'TrackableObject'SerializedTensor))
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> f (Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TrackableObjectGraph'TrackableObject "slotVariables" [TrackableObjectGraph'TrackableObject'SlotVariableReference] where
fieldOf :: Proxy# "slotVariables"
-> ([TrackableObjectGraph'TrackableObject'SlotVariableReference]
-> f [TrackableObjectGraph'TrackableObject'SlotVariableReference])
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject
fieldOf _
= ((Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject)
-> (([TrackableObjectGraph'TrackableObject'SlotVariableReference]
-> f [TrackableObjectGraph'TrackableObject'SlotVariableReference])
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> ([TrackableObjectGraph'TrackableObject'SlotVariableReference]
-> f [TrackableObjectGraph'TrackableObject'SlotVariableReference])
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph'TrackableObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> (TrackableObjectGraph'TrackableObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject)
-> Lens
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
_TrackableObjectGraph'TrackableObject'slotVariables
(\ x__ :: TrackableObjectGraph'TrackableObject
x__ y__ :: Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
y__
-> TrackableObjectGraph'TrackableObject
x__
{_TrackableObjectGraph'TrackableObject'slotVariables :: Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
_TrackableObjectGraph'TrackableObject'slotVariables = Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
y__}))
((Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
-> [TrackableObjectGraph'TrackableObject'SlotVariableReference])
-> (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> [TrackableObjectGraph'TrackableObject'SlotVariableReference]
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> Lens
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
[TrackableObjectGraph'TrackableObject'SlotVariableReference]
[TrackableObjectGraph'TrackableObject'SlotVariableReference]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
-> [TrackableObjectGraph'TrackableObject'SlotVariableReference]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [TrackableObjectGraph'TrackableObject'SlotVariableReference]
y__ -> [TrackableObjectGraph'TrackableObject'SlotVariableReference]
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TrackableObjectGraph'TrackableObject'SlotVariableReference]
y__))
instance Data.ProtoLens.Field.HasField TrackableObjectGraph'TrackableObject "vec'slotVariables" (Data.Vector.Vector TrackableObjectGraph'TrackableObject'SlotVariableReference) where
fieldOf :: Proxy# "vec'slotVariables"
-> (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject
fieldOf _
= ((Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject)
-> ((Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> TrackableObjectGraph'TrackableObject
-> f TrackableObjectGraph'TrackableObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph'TrackableObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> (TrackableObjectGraph'TrackableObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject)
-> Lens
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
_TrackableObjectGraph'TrackableObject'slotVariables
(\ x__ :: TrackableObjectGraph'TrackableObject
x__ y__ :: Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
y__
-> TrackableObjectGraph'TrackableObject
x__
{_TrackableObjectGraph'TrackableObject'slotVariables :: Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
_TrackableObjectGraph'TrackableObject'slotVariables = Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
y__}))
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TrackableObjectGraph'TrackableObject where
messageName :: Proxy TrackableObjectGraph'TrackableObject -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.TrackableObjectGraph.TrackableObject"
packedMessageDescriptor :: Proxy TrackableObjectGraph'TrackableObject -> ByteString
packedMessageDescriptor _
= "\n\
\\SITrackableObject\DC2\\\n\
\\bchildren\CAN\SOH \ETX(\v2@.tensorflow.TrackableObjectGraph.TrackableObject.ObjectReferenceR\bchildren\DC2a\n\
\\n\
\attributes\CAN\STX \ETX(\v2A.tensorflow.TrackableObjectGraph.TrackableObject.SerializedTensorR\n\
\attributes\DC2m\n\
\\SOslot_variables\CAN\ETX \ETX(\v2F.tensorflow.TrackableObjectGraph.TrackableObject.SlotVariableReferenceR\rslotVariables\SUBI\n\
\\SIObjectReference\DC2\ETB\n\
\\anode_id\CAN\SOH \SOH(\ENQR\ACKnodeId\DC2\GS\n\
\\n\
\local_name\CAN\STX \SOH(\tR\tlocalName\SUB\149\SOH\n\
\\DLESerializedTensor\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\ESC\n\
\\tfull_name\CAN\STX \SOH(\tR\bfullName\DC2%\n\
\\SOcheckpoint_key\CAN\ETX \SOH(\tR\rcheckpointKey\DC2)\n\
\\DLEoptional_restore\CAN\EOT \SOH(\bR\SIoptionalRestore\SUB\162\SOH\n\
\\NAKSlotVariableReference\DC29\n\
\\EMoriginal_variable_node_id\CAN\SOH \SOH(\ENQR\SYNoriginalVariableNodeId\DC2\ESC\n\
\\tslot_name\CAN\STX \SOH(\tR\bslotName\DC21\n\
\\NAKslot_variable_node_id\CAN\ETX \SOH(\ENQR\DC2slotVariableNodeId"
packedFileDescriptor :: Proxy TrackableObjectGraph'TrackableObject -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TrackableObjectGraph'TrackableObject)
fieldsByTag
= let
children__field_descriptor :: FieldDescriptor TrackableObjectGraph'TrackableObject
children__field_descriptor
= String
-> FieldTypeDescriptor
TrackableObjectGraph'TrackableObject'ObjectReference
-> FieldAccessor
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject'ObjectReference
-> FieldDescriptor TrackableObjectGraph'TrackableObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"children"
(MessageOrGroup
-> FieldTypeDescriptor
TrackableObjectGraph'TrackableObject'ObjectReference
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TrackableObjectGraph'TrackableObject'ObjectReference)
(Packing
-> Lens'
TrackableObjectGraph'TrackableObject
[TrackableObjectGraph'TrackableObject'ObjectReference]
-> FieldAccessor
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject'ObjectReference
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "children" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"children")) ::
Data.ProtoLens.FieldDescriptor TrackableObjectGraph'TrackableObject
attributes__field_descriptor :: FieldDescriptor TrackableObjectGraph'TrackableObject
attributes__field_descriptor
= String
-> FieldTypeDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor
-> FieldAccessor
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject'SerializedTensor
-> FieldDescriptor TrackableObjectGraph'TrackableObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"attributes"
(MessageOrGroup
-> FieldTypeDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TrackableObjectGraph'TrackableObject'SerializedTensor)
(Packing
-> Lens'
TrackableObjectGraph'TrackableObject
[TrackableObjectGraph'TrackableObject'SerializedTensor]
-> FieldAccessor
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject'SerializedTensor
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "attributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"attributes")) ::
Data.ProtoLens.FieldDescriptor TrackableObjectGraph'TrackableObject
slotVariables__field_descriptor :: FieldDescriptor TrackableObjectGraph'TrackableObject
slotVariables__field_descriptor
= String
-> FieldTypeDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> FieldAccessor
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> FieldDescriptor TrackableObjectGraph'TrackableObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"slot_variables"
(MessageOrGroup
-> FieldTypeDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TrackableObjectGraph'TrackableObject'SlotVariableReference)
(Packing
-> Lens'
TrackableObjectGraph'TrackableObject
[TrackableObjectGraph'TrackableObject'SlotVariableReference]
-> FieldAccessor
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject'SlotVariableReference
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "slotVariables" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slotVariables")) ::
Data.ProtoLens.FieldDescriptor TrackableObjectGraph'TrackableObject
in
[(Tag, FieldDescriptor TrackableObjectGraph'TrackableObject)]
-> Map Tag (FieldDescriptor TrackableObjectGraph'TrackableObject)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor TrackableObjectGraph'TrackableObject
children__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor TrackableObjectGraph'TrackableObject
attributes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor TrackableObjectGraph'TrackableObject
slotVariables__field_descriptor)]
unknownFields :: LensLike' f TrackableObjectGraph'TrackableObject FieldSet
unknownFields
= (TrackableObjectGraph'TrackableObject -> FieldSet)
-> (TrackableObjectGraph'TrackableObject
-> FieldSet -> TrackableObjectGraph'TrackableObject)
-> Lens' TrackableObjectGraph'TrackableObject FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject -> FieldSet
_TrackableObjectGraph'TrackableObject'_unknownFields
(\ x__ :: TrackableObjectGraph'TrackableObject
x__ y__ :: FieldSet
y__
-> TrackableObjectGraph'TrackableObject
x__
{_TrackableObjectGraph'TrackableObject'_unknownFields :: FieldSet
_TrackableObjectGraph'TrackableObject'_unknownFields = FieldSet
y__})
defMessage :: TrackableObjectGraph'TrackableObject
defMessage
= $WTrackableObjectGraph'TrackableObject'_constructor :: Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> FieldSet
-> TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject'_constructor
{_TrackableObjectGraph'TrackableObject'children :: Vector TrackableObjectGraph'TrackableObject'ObjectReference
_TrackableObjectGraph'TrackableObject'children = Vector TrackableObjectGraph'TrackableObject'ObjectReference
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TrackableObjectGraph'TrackableObject'attributes :: Vector TrackableObjectGraph'TrackableObject'SerializedTensor
_TrackableObjectGraph'TrackableObject'attributes = Vector TrackableObjectGraph'TrackableObject'SerializedTensor
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TrackableObjectGraph'TrackableObject'slotVariables :: Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
_TrackableObjectGraph'TrackableObject'slotVariables = Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TrackableObjectGraph'TrackableObject'_unknownFields :: FieldSet
_TrackableObjectGraph'TrackableObject'_unknownFields = []}
parseMessage :: Parser TrackableObjectGraph'TrackableObject
parseMessage
= let
loop ::
TrackableObjectGraph'TrackableObject
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TrackableObjectGraph'TrackableObject'SerializedTensor
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TrackableObjectGraph'TrackableObject'ObjectReference
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Data.ProtoLens.Encoding.Bytes.Parser TrackableObjectGraph'TrackableObject
loop :: TrackableObjectGraph'TrackableObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser TrackableObjectGraph'TrackableObject
loop x :: TrackableObjectGraph'TrackableObject
x mutable'attributes :: Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
mutable'attributes mutable'children :: Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children mutable'slotVariables :: Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector TrackableObjectGraph'TrackableObject'SerializedTensor
frozen'attributes <- IO (Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
-> Parser
(Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'SerializedTensor
-> IO
(Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'SerializedTensor
mutable'attributes)
Vector TrackableObjectGraph'TrackableObject'ObjectReference
frozen'children <- IO (Vector TrackableObjectGraph'TrackableObject'ObjectReference)
-> Parser
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'ObjectReference
-> IO (Vector TrackableObjectGraph'TrackableObject'ObjectReference)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children)
Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
frozen'slotVariables <- IO
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> Parser
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> IO
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables)
(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]))))
TrackableObjectGraph'TrackableObject
-> Parser TrackableObjectGraph'TrackableObject
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
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
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
FieldSet
FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
(Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
(Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'attributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'attributes")
Vector TrackableObjectGraph'TrackableObject'SerializedTensor
frozen'attributes
(Setter
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'children" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'children")
Vector TrackableObjectGraph'TrackableObject'ObjectReference
frozen'children
(Setter
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'slotVariables" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'slotVariables")
Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
frozen'slotVariables
TrackableObjectGraph'TrackableObject
x))))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do !TrackableObjectGraph'TrackableObject'ObjectReference
y <- Parser TrackableObjectGraph'TrackableObject'ObjectReference
-> String
-> Parser TrackableObjectGraph'TrackableObject'ObjectReference
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser TrackableObjectGraph'TrackableObject'ObjectReference
-> Parser TrackableObjectGraph'TrackableObject'ObjectReference
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 TrackableObjectGraph'TrackableObject'ObjectReference
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"children"
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
v <- IO
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference)
-> Parser
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> IO
(Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'ObjectReference)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children TrackableObjectGraph'TrackableObject'ObjectReference
y)
TrackableObjectGraph'TrackableObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser TrackableObjectGraph'TrackableObject
loop TrackableObjectGraph'TrackableObject
x Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
mutable'attributes Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
v Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables
18
-> do !TrackableObjectGraph'TrackableObject'SerializedTensor
y <- Parser TrackableObjectGraph'TrackableObject'SerializedTensor
-> String
-> Parser TrackableObjectGraph'TrackableObject'SerializedTensor
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser TrackableObjectGraph'TrackableObject'SerializedTensor
-> Parser TrackableObjectGraph'TrackableObject'SerializedTensor
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 TrackableObjectGraph'TrackableObject'SerializedTensor
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"attributes"
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
v <- IO
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor)
-> Parser
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> IO
(Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'SerializedTensor)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'SerializedTensor
mutable'attributes TrackableObjectGraph'TrackableObject'SerializedTensor
y)
TrackableObjectGraph'TrackableObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser TrackableObjectGraph'TrackableObject
loop TrackableObjectGraph'TrackableObject
x Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
v Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables
26
-> do !TrackableObjectGraph'TrackableObject'SlotVariableReference
y <- Parser TrackableObjectGraph'TrackableObject'SlotVariableReference
-> String
-> Parser
TrackableObjectGraph'TrackableObject'SlotVariableReference
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser
TrackableObjectGraph'TrackableObject'SlotVariableReference
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 TrackableObjectGraph'TrackableObject'SlotVariableReference
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"slot_variables"
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
v <- IO
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> Parser
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> IO
(Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables TrackableObjectGraph'TrackableObject'SlotVariableReference
y)
TrackableObjectGraph'TrackableObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser TrackableObjectGraph'TrackableObject
loop TrackableObjectGraph'TrackableObject
x Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
mutable'attributes Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
v
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
TrackableObjectGraph'TrackableObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser TrackableObjectGraph'TrackableObject
loop
(Setter
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> TrackableObjectGraph'TrackableObject
-> TrackableObjectGraph'TrackableObject
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
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TrackableObjectGraph'TrackableObject
x)
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
mutable'attributes
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables
in
Parser TrackableObjectGraph'TrackableObject
-> String -> Parser TrackableObjectGraph'TrackableObject
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
mutable'attributes <- IO
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor)
-> Parser
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children <- IO
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference)
-> Parser
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables <- IO
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> Parser
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
TrackableObjectGraph'TrackableObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser TrackableObjectGraph'TrackableObject
loop
TrackableObjectGraph'TrackableObject
forall msg. Message msg => msg
Data.ProtoLens.defMessage
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SerializedTensor
mutable'attributes
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables)
"TrackableObject"
buildMessage :: TrackableObjectGraph'TrackableObject -> Builder
buildMessage
= \ _x :: TrackableObjectGraph'TrackableObject
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((TrackableObjectGraph'TrackableObject'ObjectReference -> Builder)
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: TrackableObjectGraph'TrackableObject'ObjectReference
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (TrackableObjectGraph'TrackableObject'ObjectReference
-> ByteString)
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> 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))
TrackableObjectGraph'TrackableObject'ObjectReference -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TrackableObjectGraph'TrackableObject'ObjectReference
_v))
(FoldLike
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
-> TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'children" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'children") TrackableObjectGraph'TrackableObject
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((TrackableObjectGraph'TrackableObject'SerializedTensor -> Builder)
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: TrackableObjectGraph'TrackableObject'SerializedTensor
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (TrackableObjectGraph'TrackableObject'SerializedTensor
-> ByteString)
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> 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))
TrackableObjectGraph'TrackableObject'SerializedTensor -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TrackableObjectGraph'TrackableObject'SerializedTensor
_v))
(FoldLike
(Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
(Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
(Vector TrackableObjectGraph'TrackableObject'SerializedTensor)
-> TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'attributes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'attributes") TrackableObjectGraph'TrackableObject
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Builder)
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: TrackableObjectGraph'TrackableObject'SlotVariableReference
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder)
-> (TrackableObjectGraph'TrackableObject'SlotVariableReference
-> ByteString)
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> 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))
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TrackableObjectGraph'TrackableObject'SlotVariableReference
_v))
(FoldLike
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> TrackableObjectGraph'TrackableObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'slotVariables" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"vec'slotVariables") TrackableObjectGraph'TrackableObject
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
FieldSet
FieldSet
-> TrackableObjectGraph'TrackableObject -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TrackableObjectGraph'TrackableObject
TrackableObjectGraph'TrackableObject
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TrackableObjectGraph'TrackableObject
_x))))
instance Control.DeepSeq.NFData TrackableObjectGraph'TrackableObject where
rnf :: TrackableObjectGraph'TrackableObject -> ()
rnf
= \ x__ :: TrackableObjectGraph'TrackableObject
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject -> FieldSet
_TrackableObjectGraph'TrackableObject'_unknownFields TrackableObjectGraph'TrackableObject
x__)
(Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
_TrackableObjectGraph'TrackableObject'children TrackableObjectGraph'TrackableObject
x__)
(Vector TrackableObjectGraph'TrackableObject'SerializedTensor
-> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject
-> Vector TrackableObjectGraph'TrackableObject'SerializedTensor
_TrackableObjectGraph'TrackableObject'attributes TrackableObjectGraph'TrackableObject
x__)
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
-> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
_TrackableObjectGraph'TrackableObject'slotVariables TrackableObjectGraph'TrackableObject
x__) ())))
data TrackableObjectGraph'TrackableObject'ObjectReference
= TrackableObjectGraph'TrackableObject'ObjectReference'_constructor {TrackableObjectGraph'TrackableObject'ObjectReference -> Int32
_TrackableObjectGraph'TrackableObject'ObjectReference'nodeId :: !Data.Int.Int32,
TrackableObjectGraph'TrackableObject'ObjectReference -> Text
_TrackableObjectGraph'TrackableObject'ObjectReference'localName :: !Data.Text.Text,
TrackableObjectGraph'TrackableObject'ObjectReference -> FieldSet
_TrackableObjectGraph'TrackableObject'ObjectReference'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool
(TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool)
-> (TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool)
-> Eq TrackableObjectGraph'TrackableObject'ObjectReference
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool
$c/= :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool
== :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool
$c== :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool
Prelude.Eq, Eq TrackableObjectGraph'TrackableObject'ObjectReference
Eq TrackableObjectGraph'TrackableObject'ObjectReference =>
(TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> Ordering)
-> (TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool)
-> (TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool)
-> (TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool)
-> (TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool)
-> (TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference)
-> (TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference)
-> Ord TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool
TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Ordering
TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
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 :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
$cmin :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
max :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
$cmax :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
>= :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool
$c>= :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool
> :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool
$c> :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool
<= :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool
$c<= :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool
< :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool
$c< :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Bool
compare :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Ordering
$ccompare :: TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Ordering
$cp1Ord :: Eq TrackableObjectGraph'TrackableObject'ObjectReference
Prelude.Ord)
instance Prelude.Show TrackableObjectGraph'TrackableObject'ObjectReference where
showsPrec :: Int
-> TrackableObjectGraph'TrackableObject'ObjectReference -> ShowS
showsPrec _ __x :: TrackableObjectGraph'TrackableObject'ObjectReference
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(TrackableObjectGraph'TrackableObject'ObjectReference -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TrackableObjectGraph'TrackableObject'ObjectReference
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TrackableObjectGraph'TrackableObject'ObjectReference "nodeId" Data.Int.Int32 where
fieldOf :: Proxy# "nodeId"
-> (Int32 -> f Int32)
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> f TrackableObjectGraph'TrackableObject'ObjectReference
fieldOf _
= ((Int32 -> f Int32)
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> f TrackableObjectGraph'TrackableObject'ObjectReference)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> f TrackableObjectGraph'TrackableObject'ObjectReference
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph'TrackableObject'ObjectReference -> Int32)
-> (TrackableObjectGraph'TrackableObject'ObjectReference
-> Int32 -> TrackableObjectGraph'TrackableObject'ObjectReference)
-> Lens
TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference
Int32
Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject'ObjectReference -> Int32
_TrackableObjectGraph'TrackableObject'ObjectReference'nodeId
(\ x__ :: TrackableObjectGraph'TrackableObject'ObjectReference
x__ y__ :: Int32
y__
-> TrackableObjectGraph'TrackableObject'ObjectReference
x__
{_TrackableObjectGraph'TrackableObject'ObjectReference'nodeId :: Int32
_TrackableObjectGraph'TrackableObject'ObjectReference'nodeId = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TrackableObjectGraph'TrackableObject'ObjectReference "localName" Data.Text.Text where
fieldOf :: Proxy# "localName"
-> (Text -> f Text)
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> f TrackableObjectGraph'TrackableObject'ObjectReference
fieldOf _
= ((Text -> f Text)
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> f TrackableObjectGraph'TrackableObject'ObjectReference)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> f TrackableObjectGraph'TrackableObject'ObjectReference
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph'TrackableObject'ObjectReference -> Text)
-> (TrackableObjectGraph'TrackableObject'ObjectReference
-> Text -> TrackableObjectGraph'TrackableObject'ObjectReference)
-> Lens
TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject'ObjectReference -> Text
_TrackableObjectGraph'TrackableObject'ObjectReference'localName
(\ x__ :: TrackableObjectGraph'TrackableObject'ObjectReference
x__ y__ :: Text
y__
-> TrackableObjectGraph'TrackableObject'ObjectReference
x__
{_TrackableObjectGraph'TrackableObject'ObjectReference'localName :: Text
_TrackableObjectGraph'TrackableObject'ObjectReference'localName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TrackableObjectGraph'TrackableObject'ObjectReference where
messageName :: Proxy TrackableObjectGraph'TrackableObject'ObjectReference -> Text
messageName _
= String -> Text
Data.Text.pack
"tensorflow.TrackableObjectGraph.TrackableObject.ObjectReference"
packedMessageDescriptor :: Proxy TrackableObjectGraph'TrackableObject'ObjectReference
-> ByteString
packedMessageDescriptor _
= "\n\
\\SIObjectReference\DC2\ETB\n\
\\anode_id\CAN\SOH \SOH(\ENQR\ACKnodeId\DC2\GS\n\
\\n\
\local_name\CAN\STX \SOH(\tR\tlocalName"
packedFileDescriptor :: Proxy TrackableObjectGraph'TrackableObject'ObjectReference
-> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag
(FieldDescriptor
TrackableObjectGraph'TrackableObject'ObjectReference)
fieldsByTag
= let
nodeId__field_descriptor :: FieldDescriptor
TrackableObjectGraph'TrackableObject'ObjectReference
nodeId__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor
TrackableObjectGraph'TrackableObject'ObjectReference Int32
-> FieldDescriptor
TrackableObjectGraph'TrackableObject'ObjectReference
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"node_id"
(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
TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference
Int32
Int32
-> FieldAccessor
TrackableObjectGraph'TrackableObject'ObjectReference 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 "nodeId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodeId")) ::
Data.ProtoLens.FieldDescriptor TrackableObjectGraph'TrackableObject'ObjectReference
localName__field_descriptor :: FieldDescriptor
TrackableObjectGraph'TrackableObject'ObjectReference
localName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
TrackableObjectGraph'TrackableObject'ObjectReference Text
-> FieldDescriptor
TrackableObjectGraph'TrackableObject'ObjectReference
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"local_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
TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference
Text
Text
-> FieldAccessor
TrackableObjectGraph'TrackableObject'ObjectReference 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 "localName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"localName")) ::
Data.ProtoLens.FieldDescriptor TrackableObjectGraph'TrackableObject'ObjectReference
in
[(Tag,
FieldDescriptor
TrackableObjectGraph'TrackableObject'ObjectReference)]
-> Map
Tag
(FieldDescriptor
TrackableObjectGraph'TrackableObject'ObjectReference)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor
TrackableObjectGraph'TrackableObject'ObjectReference
nodeId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor
TrackableObjectGraph'TrackableObject'ObjectReference
localName__field_descriptor)]
unknownFields :: LensLike'
f TrackableObjectGraph'TrackableObject'ObjectReference FieldSet
unknownFields
= (TrackableObjectGraph'TrackableObject'ObjectReference -> FieldSet)
-> (TrackableObjectGraph'TrackableObject'ObjectReference
-> FieldSet
-> TrackableObjectGraph'TrackableObject'ObjectReference)
-> Lens'
TrackableObjectGraph'TrackableObject'ObjectReference FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject'ObjectReference -> FieldSet
_TrackableObjectGraph'TrackableObject'ObjectReference'_unknownFields
(\ x__ :: TrackableObjectGraph'TrackableObject'ObjectReference
x__ y__ :: FieldSet
y__
-> TrackableObjectGraph'TrackableObject'ObjectReference
x__
{_TrackableObjectGraph'TrackableObject'ObjectReference'_unknownFields :: FieldSet
_TrackableObjectGraph'TrackableObject'ObjectReference'_unknownFields = FieldSet
y__})
defMessage :: TrackableObjectGraph'TrackableObject'ObjectReference
defMessage
= $WTrackableObjectGraph'TrackableObject'ObjectReference'_constructor :: Int32
-> Text
-> FieldSet
-> TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference'_constructor
{_TrackableObjectGraph'TrackableObject'ObjectReference'nodeId :: Int32
_TrackableObjectGraph'TrackableObject'ObjectReference'nodeId = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TrackableObjectGraph'TrackableObject'ObjectReference'localName :: Text
_TrackableObjectGraph'TrackableObject'ObjectReference'localName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TrackableObjectGraph'TrackableObject'ObjectReference'_unknownFields :: FieldSet
_TrackableObjectGraph'TrackableObject'ObjectReference'_unknownFields = []}
parseMessage :: Parser TrackableObjectGraph'TrackableObject'ObjectReference
parseMessage
= let
loop ::
TrackableObjectGraph'TrackableObject'ObjectReference
-> Data.ProtoLens.Encoding.Bytes.Parser TrackableObjectGraph'TrackableObject'ObjectReference
loop :: TrackableObjectGraph'TrackableObject'ObjectReference
-> Parser TrackableObjectGraph'TrackableObject'ObjectReference
loop x :: TrackableObjectGraph'TrackableObject'ObjectReference
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]))))
TrackableObjectGraph'TrackableObject'ObjectReference
-> Parser TrackableObjectGraph'TrackableObject'ObjectReference
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
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
TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TrackableObjectGraph'TrackableObject'ObjectReference
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"node_id"
TrackableObjectGraph'TrackableObject'ObjectReference
-> Parser TrackableObjectGraph'TrackableObject'ObjectReference
loop (Setter
TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference
Int32
Int32
-> Int32
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "nodeId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodeId") Int32
y TrackableObjectGraph'TrackableObject'ObjectReference
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))
"local_name"
TrackableObjectGraph'TrackableObject'ObjectReference
-> Parser TrackableObjectGraph'TrackableObject'ObjectReference
loop
(Setter
TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference
Text
Text
-> Text
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "localName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"localName") Text
y TrackableObjectGraph'TrackableObject'ObjectReference
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
TrackableObjectGraph'TrackableObject'ObjectReference
-> Parser TrackableObjectGraph'TrackableObject'ObjectReference
loop
(Setter
TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
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
TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TrackableObjectGraph'TrackableObject'ObjectReference
x)
in
Parser TrackableObjectGraph'TrackableObject'ObjectReference
-> String
-> Parser TrackableObjectGraph'TrackableObject'ObjectReference
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TrackableObjectGraph'TrackableObject'ObjectReference
-> Parser TrackableObjectGraph'TrackableObject'ObjectReference
loop TrackableObjectGraph'TrackableObject'ObjectReference
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "ObjectReference"
buildMessage :: TrackableObjectGraph'TrackableObject'ObjectReference -> Builder
buildMessage
= \ _x :: TrackableObjectGraph'TrackableObject'ObjectReference
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v = FoldLike
Int32
TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference
Int32
Int32
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "nodeId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodeId") TrackableObjectGraph'TrackableObject'ObjectReference
_x
in
if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 8)
((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference
Text
Text
-> TrackableObjectGraph'TrackableObject'ObjectReference -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "localName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"localName") TrackableObjectGraph'TrackableObject'ObjectReference
_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
TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference
FieldSet
FieldSet
-> TrackableObjectGraph'TrackableObject'ObjectReference -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TrackableObjectGraph'TrackableObject'ObjectReference
TrackableObjectGraph'TrackableObject'ObjectReference
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TrackableObjectGraph'TrackableObject'ObjectReference
_x)))
instance Control.DeepSeq.NFData TrackableObjectGraph'TrackableObject'ObjectReference where
rnf :: TrackableObjectGraph'TrackableObject'ObjectReference -> ()
rnf
= \ x__ :: TrackableObjectGraph'TrackableObject'ObjectReference
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject'ObjectReference -> FieldSet
_TrackableObjectGraph'TrackableObject'ObjectReference'_unknownFields
TrackableObjectGraph'TrackableObject'ObjectReference
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject'ObjectReference -> Int32
_TrackableObjectGraph'TrackableObject'ObjectReference'nodeId TrackableObjectGraph'TrackableObject'ObjectReference
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject'ObjectReference -> Text
_TrackableObjectGraph'TrackableObject'ObjectReference'localName
TrackableObjectGraph'TrackableObject'ObjectReference
x__)
()))
data TrackableObjectGraph'TrackableObject'SerializedTensor
= TrackableObjectGraph'TrackableObject'SerializedTensor'_constructor {TrackableObjectGraph'TrackableObject'SerializedTensor -> Text
_TrackableObjectGraph'TrackableObject'SerializedTensor'name :: !Data.Text.Text,
TrackableObjectGraph'TrackableObject'SerializedTensor -> Text
_TrackableObjectGraph'TrackableObject'SerializedTensor'fullName :: !Data.Text.Text,
TrackableObjectGraph'TrackableObject'SerializedTensor -> Text
_TrackableObjectGraph'TrackableObject'SerializedTensor'checkpointKey :: !Data.Text.Text,
TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
_TrackableObjectGraph'TrackableObject'SerializedTensor'optionalRestore :: !Prelude.Bool,
TrackableObjectGraph'TrackableObject'SerializedTensor -> FieldSet
_TrackableObjectGraph'TrackableObject'SerializedTensor'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
(TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool)
-> (TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool)
-> Eq TrackableObjectGraph'TrackableObject'SerializedTensor
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
$c/= :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
== :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
$c== :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
Prelude.Eq, Eq TrackableObjectGraph'TrackableObject'SerializedTensor
Eq TrackableObjectGraph'TrackableObject'SerializedTensor =>
(TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> Ordering)
-> (TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool)
-> (TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool)
-> (TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool)
-> (TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool)
-> (TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor)
-> (TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor)
-> Ord TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> Ordering
TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
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 :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
$cmin :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
max :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
$cmax :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
>= :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
$c>= :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
> :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
$c> :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
<= :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
$c<= :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
< :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
$c< :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
compare :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> Ordering
$ccompare :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> Ordering
$cp1Ord :: Eq TrackableObjectGraph'TrackableObject'SerializedTensor
Prelude.Ord)
instance Prelude.Show TrackableObjectGraph'TrackableObject'SerializedTensor where
showsPrec :: Int
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> ShowS
showsPrec _ __x :: TrackableObjectGraph'TrackableObject'SerializedTensor
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(TrackableObjectGraph'TrackableObject'SerializedTensor -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TrackableObjectGraph'TrackableObject'SerializedTensor
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TrackableObjectGraph'TrackableObject'SerializedTensor "name" Data.Text.Text where
fieldOf :: Proxy# "name"
-> (Text -> f Text)
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> f TrackableObjectGraph'TrackableObject'SerializedTensor
fieldOf _
= ((Text -> f Text)
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> f TrackableObjectGraph'TrackableObject'SerializedTensor)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> f TrackableObjectGraph'TrackableObject'SerializedTensor
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph'TrackableObject'SerializedTensor -> Text)
-> (TrackableObjectGraph'TrackableObject'SerializedTensor
-> Text -> TrackableObjectGraph'TrackableObject'SerializedTensor)
-> Lens
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject'SerializedTensor -> Text
_TrackableObjectGraph'TrackableObject'SerializedTensor'name
(\ x__ :: TrackableObjectGraph'TrackableObject'SerializedTensor
x__ y__ :: Text
y__
-> TrackableObjectGraph'TrackableObject'SerializedTensor
x__
{_TrackableObjectGraph'TrackableObject'SerializedTensor'name :: Text
_TrackableObjectGraph'TrackableObject'SerializedTensor'name = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TrackableObjectGraph'TrackableObject'SerializedTensor "fullName" Data.Text.Text where
fieldOf :: Proxy# "fullName"
-> (Text -> f Text)
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> f TrackableObjectGraph'TrackableObject'SerializedTensor
fieldOf _
= ((Text -> f Text)
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> f TrackableObjectGraph'TrackableObject'SerializedTensor)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> f TrackableObjectGraph'TrackableObject'SerializedTensor
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph'TrackableObject'SerializedTensor -> Text)
-> (TrackableObjectGraph'TrackableObject'SerializedTensor
-> Text -> TrackableObjectGraph'TrackableObject'SerializedTensor)
-> Lens
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject'SerializedTensor -> Text
_TrackableObjectGraph'TrackableObject'SerializedTensor'fullName
(\ x__ :: TrackableObjectGraph'TrackableObject'SerializedTensor
x__ y__ :: Text
y__
-> TrackableObjectGraph'TrackableObject'SerializedTensor
x__
{_TrackableObjectGraph'TrackableObject'SerializedTensor'fullName :: Text
_TrackableObjectGraph'TrackableObject'SerializedTensor'fullName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TrackableObjectGraph'TrackableObject'SerializedTensor "checkpointKey" Data.Text.Text where
fieldOf :: Proxy# "checkpointKey"
-> (Text -> f Text)
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> f TrackableObjectGraph'TrackableObject'SerializedTensor
fieldOf _
= ((Text -> f Text)
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> f TrackableObjectGraph'TrackableObject'SerializedTensor)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> f TrackableObjectGraph'TrackableObject'SerializedTensor
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph'TrackableObject'SerializedTensor -> Text)
-> (TrackableObjectGraph'TrackableObject'SerializedTensor
-> Text -> TrackableObjectGraph'TrackableObject'SerializedTensor)
-> Lens
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject'SerializedTensor -> Text
_TrackableObjectGraph'TrackableObject'SerializedTensor'checkpointKey
(\ x__ :: TrackableObjectGraph'TrackableObject'SerializedTensor
x__ y__ :: Text
y__
-> TrackableObjectGraph'TrackableObject'SerializedTensor
x__
{_TrackableObjectGraph'TrackableObject'SerializedTensor'checkpointKey :: Text
_TrackableObjectGraph'TrackableObject'SerializedTensor'checkpointKey = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TrackableObjectGraph'TrackableObject'SerializedTensor "optionalRestore" Prelude.Bool where
fieldOf :: Proxy# "optionalRestore"
-> (Bool -> f Bool)
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> f TrackableObjectGraph'TrackableObject'SerializedTensor
fieldOf _
= ((Bool -> f Bool)
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> f TrackableObjectGraph'TrackableObject'SerializedTensor)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> f TrackableObjectGraph'TrackableObject'SerializedTensor
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool)
-> (TrackableObjectGraph'TrackableObject'SerializedTensor
-> Bool -> TrackableObjectGraph'TrackableObject'SerializedTensor)
-> Lens
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Bool
Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
_TrackableObjectGraph'TrackableObject'SerializedTensor'optionalRestore
(\ x__ :: TrackableObjectGraph'TrackableObject'SerializedTensor
x__ y__ :: Bool
y__
-> TrackableObjectGraph'TrackableObject'SerializedTensor
x__
{_TrackableObjectGraph'TrackableObject'SerializedTensor'optionalRestore :: Bool
_TrackableObjectGraph'TrackableObject'SerializedTensor'optionalRestore = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TrackableObjectGraph'TrackableObject'SerializedTensor where
messageName :: Proxy TrackableObjectGraph'TrackableObject'SerializedTensor -> Text
messageName _
= String -> Text
Data.Text.pack
"tensorflow.TrackableObjectGraph.TrackableObject.SerializedTensor"
packedMessageDescriptor :: Proxy TrackableObjectGraph'TrackableObject'SerializedTensor
-> ByteString
packedMessageDescriptor _
= "\n\
\\DLESerializedTensor\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\ESC\n\
\\tfull_name\CAN\STX \SOH(\tR\bfullName\DC2%\n\
\\SOcheckpoint_key\CAN\ETX \SOH(\tR\rcheckpointKey\DC2)\n\
\\DLEoptional_restore\CAN\EOT \SOH(\bR\SIoptionalRestore"
packedFileDescriptor :: Proxy TrackableObjectGraph'TrackableObject'SerializedTensor
-> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag
(FieldDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor)
fieldsByTag
= let
name__field_descriptor :: FieldDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor
name__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
TrackableObjectGraph'TrackableObject'SerializedTensor Text
-> FieldDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"name"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Text
Text
-> FieldAccessor
TrackableObjectGraph'TrackableObject'SerializedTensor Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
Data.ProtoLens.FieldDescriptor TrackableObjectGraph'TrackableObject'SerializedTensor
fullName__field_descriptor :: FieldDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor
fullName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
TrackableObjectGraph'TrackableObject'SerializedTensor Text
-> FieldDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"full_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
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Text
Text
-> FieldAccessor
TrackableObjectGraph'TrackableObject'SerializedTensor 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 "fullName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fullName")) ::
Data.ProtoLens.FieldDescriptor TrackableObjectGraph'TrackableObject'SerializedTensor
checkpointKey__field_descriptor :: FieldDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor
checkpointKey__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
TrackableObjectGraph'TrackableObject'SerializedTensor Text
-> FieldDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"checkpoint_key"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Text
Text
-> FieldAccessor
TrackableObjectGraph'TrackableObject'SerializedTensor 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 "checkpointKey" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"checkpointKey")) ::
Data.ProtoLens.FieldDescriptor TrackableObjectGraph'TrackableObject'SerializedTensor
optionalRestore__field_descriptor :: FieldDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor
optionalRestore__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor
TrackableObjectGraph'TrackableObject'SerializedTensor Bool
-> FieldDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"optional_restore"
(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
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Bool
Bool
-> FieldAccessor
TrackableObjectGraph'TrackableObject'SerializedTensor 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 "optionalRestore" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"optionalRestore")) ::
Data.ProtoLens.FieldDescriptor TrackableObjectGraph'TrackableObject'SerializedTensor
in
[(Tag,
FieldDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor)]
-> Map
Tag
(FieldDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor
name__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor
fullName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor
checkpointKey__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor
TrackableObjectGraph'TrackableObject'SerializedTensor
optionalRestore__field_descriptor)]
unknownFields :: LensLike'
f TrackableObjectGraph'TrackableObject'SerializedTensor FieldSet
unknownFields
= (TrackableObjectGraph'TrackableObject'SerializedTensor -> FieldSet)
-> (TrackableObjectGraph'TrackableObject'SerializedTensor
-> FieldSet
-> TrackableObjectGraph'TrackableObject'SerializedTensor)
-> Lens'
TrackableObjectGraph'TrackableObject'SerializedTensor FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject'SerializedTensor -> FieldSet
_TrackableObjectGraph'TrackableObject'SerializedTensor'_unknownFields
(\ x__ :: TrackableObjectGraph'TrackableObject'SerializedTensor
x__ y__ :: FieldSet
y__
-> TrackableObjectGraph'TrackableObject'SerializedTensor
x__
{_TrackableObjectGraph'TrackableObject'SerializedTensor'_unknownFields :: FieldSet
_TrackableObjectGraph'TrackableObject'SerializedTensor'_unknownFields = FieldSet
y__})
defMessage :: TrackableObjectGraph'TrackableObject'SerializedTensor
defMessage
= $WTrackableObjectGraph'TrackableObject'SerializedTensor'_constructor :: Text
-> Text
-> Text
-> Bool
-> FieldSet
-> TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor'_constructor
{_TrackableObjectGraph'TrackableObject'SerializedTensor'name :: Text
_TrackableObjectGraph'TrackableObject'SerializedTensor'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TrackableObjectGraph'TrackableObject'SerializedTensor'fullName :: Text
_TrackableObjectGraph'TrackableObject'SerializedTensor'fullName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TrackableObjectGraph'TrackableObject'SerializedTensor'checkpointKey :: Text
_TrackableObjectGraph'TrackableObject'SerializedTensor'checkpointKey = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TrackableObjectGraph'TrackableObject'SerializedTensor'optionalRestore :: Bool
_TrackableObjectGraph'TrackableObject'SerializedTensor'optionalRestore = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TrackableObjectGraph'TrackableObject'SerializedTensor'_unknownFields :: FieldSet
_TrackableObjectGraph'TrackableObject'SerializedTensor'_unknownFields = []}
parseMessage :: Parser TrackableObjectGraph'TrackableObject'SerializedTensor
parseMessage
= let
loop ::
TrackableObjectGraph'TrackableObject'SerializedTensor
-> Data.ProtoLens.Encoding.Bytes.Parser TrackableObjectGraph'TrackableObject'SerializedTensor
loop :: TrackableObjectGraph'TrackableObject'SerializedTensor
-> Parser TrackableObjectGraph'TrackableObject'SerializedTensor
loop x :: TrackableObjectGraph'TrackableObject'SerializedTensor
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]))))
TrackableObjectGraph'TrackableObject'SerializedTensor
-> Parser TrackableObjectGraph'TrackableObject'SerializedTensor
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
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
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TrackableObjectGraph'TrackableObject'SerializedTensor
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"name"
TrackableObjectGraph'TrackableObject'SerializedTensor
-> Parser TrackableObjectGraph'TrackableObject'SerializedTensor
loop (Setter
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Text
Text
-> Text
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y TrackableObjectGraph'TrackableObject'SerializedTensor
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))
"full_name"
TrackableObjectGraph'TrackableObject'SerializedTensor
-> Parser TrackableObjectGraph'TrackableObject'SerializedTensor
loop
(Setter
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Text
Text
-> Text
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "fullName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fullName") Text
y TrackableObjectGraph'TrackableObject'SerializedTensor
x)
26
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"checkpoint_key"
TrackableObjectGraph'TrackableObject'SerializedTensor
-> Parser TrackableObjectGraph'TrackableObject'SerializedTensor
loop
(Setter
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Text
Text
-> Text
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "checkpointKey" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"checkpointKey") Text
y TrackableObjectGraph'TrackableObject'SerializedTensor
x)
32
-> 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)
"optional_restore"
TrackableObjectGraph'TrackableObject'SerializedTensor
-> Parser TrackableObjectGraph'TrackableObject'SerializedTensor
loop
(Setter
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Bool
Bool
-> Bool
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "optionalRestore" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"optionalRestore") Bool
y TrackableObjectGraph'TrackableObject'SerializedTensor
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
TrackableObjectGraph'TrackableObject'SerializedTensor
-> Parser TrackableObjectGraph'TrackableObject'SerializedTensor
loop
(Setter
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> TrackableObjectGraph'TrackableObject'SerializedTensor
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
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TrackableObjectGraph'TrackableObject'SerializedTensor
x)
in
Parser TrackableObjectGraph'TrackableObject'SerializedTensor
-> String
-> Parser TrackableObjectGraph'TrackableObject'SerializedTensor
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TrackableObjectGraph'TrackableObject'SerializedTensor
-> Parser TrackableObjectGraph'TrackableObject'SerializedTensor
loop TrackableObjectGraph'TrackableObject'SerializedTensor
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "SerializedTensor"
buildMessage :: TrackableObjectGraph'TrackableObject'SerializedTensor -> Builder
buildMessage
= \ _x :: TrackableObjectGraph'TrackableObject'SerializedTensor
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Text
Text
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") TrackableObjectGraph'TrackableObject'SerializedTensor
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Text
Text
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "fullName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fullName") TrackableObjectGraph'TrackableObject'SerializedTensor
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Text
Text
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "checkpointKey" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"checkpointKey") TrackableObjectGraph'TrackableObject'SerializedTensor
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike
Bool
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
Bool
Bool
-> TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "optionalRestore" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"optionalRestore") TrackableObjectGraph'TrackableObject'SerializedTensor
_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 32)
((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
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
FieldSet
FieldSet
-> TrackableObjectGraph'TrackableObject'SerializedTensor
-> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TrackableObjectGraph'TrackableObject'SerializedTensor
TrackableObjectGraph'TrackableObject'SerializedTensor
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TrackableObjectGraph'TrackableObject'SerializedTensor
_x)))))
instance Control.DeepSeq.NFData TrackableObjectGraph'TrackableObject'SerializedTensor where
rnf :: TrackableObjectGraph'TrackableObject'SerializedTensor -> ()
rnf
= \ x__ :: TrackableObjectGraph'TrackableObject'SerializedTensor
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject'SerializedTensor -> FieldSet
_TrackableObjectGraph'TrackableObject'SerializedTensor'_unknownFields
TrackableObjectGraph'TrackableObject'SerializedTensor
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject'SerializedTensor -> Text
_TrackableObjectGraph'TrackableObject'SerializedTensor'name TrackableObjectGraph'TrackableObject'SerializedTensor
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject'SerializedTensor -> Text
_TrackableObjectGraph'TrackableObject'SerializedTensor'fullName
TrackableObjectGraph'TrackableObject'SerializedTensor
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject'SerializedTensor -> Text
_TrackableObjectGraph'TrackableObject'SerializedTensor'checkpointKey
TrackableObjectGraph'TrackableObject'SerializedTensor
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject'SerializedTensor -> Bool
_TrackableObjectGraph'TrackableObject'SerializedTensor'optionalRestore
TrackableObjectGraph'TrackableObject'SerializedTensor
x__)
()))))
data TrackableObjectGraph'TrackableObject'SlotVariableReference
= TrackableObjectGraph'TrackableObject'SlotVariableReference'_constructor {TrackableObjectGraph'TrackableObject'SlotVariableReference -> Int32
_TrackableObjectGraph'TrackableObject'SlotVariableReference'originalVariableNodeId :: !Data.Int.Int32,
TrackableObjectGraph'TrackableObject'SlotVariableReference -> Text
_TrackableObjectGraph'TrackableObject'SlotVariableReference'slotName :: !Data.Text.Text,
TrackableObjectGraph'TrackableObject'SlotVariableReference -> Int32
_TrackableObjectGraph'TrackableObject'SlotVariableReference'slotVariableNodeId :: !Data.Int.Int32,
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> FieldSet
_TrackableObjectGraph'TrackableObject'SlotVariableReference'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool
(TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool)
-> (TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool)
-> Eq TrackableObjectGraph'TrackableObject'SlotVariableReference
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool
$c/= :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool
== :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool
$c== :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool
Prelude.Eq, Eq TrackableObjectGraph'TrackableObject'SlotVariableReference
Eq TrackableObjectGraph'TrackableObject'SlotVariableReference =>
(TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Ordering)
-> (TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool)
-> (TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool)
-> (TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool)
-> (TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool)
-> (TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> (TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> Ord TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Ordering
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
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 :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
$cmin :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
max :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
$cmax :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
>= :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool
$c>= :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool
> :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool
$c> :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool
<= :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool
$c<= :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool
< :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool
$c< :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Bool
compare :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Ordering
$ccompare :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Ordering
$cp1Ord :: Eq TrackableObjectGraph'TrackableObject'SlotVariableReference
Prelude.Ord)
instance Prelude.Show TrackableObjectGraph'TrackableObject'SlotVariableReference where
showsPrec :: Int
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> ShowS
showsPrec _ __x :: TrackableObjectGraph'TrackableObject'SlotVariableReference
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(TrackableObjectGraph'TrackableObject'SlotVariableReference
-> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TrackableObjectGraph'TrackableObject'SlotVariableReference
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TrackableObjectGraph'TrackableObject'SlotVariableReference "originalVariableNodeId" Data.Int.Int32 where
fieldOf :: Proxy# "originalVariableNodeId"
-> (Int32 -> f Int32)
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f TrackableObjectGraph'TrackableObject'SlotVariableReference
fieldOf _
= ((Int32 -> f Int32)
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f TrackableObjectGraph'TrackableObject'SlotVariableReference
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Int32)
-> (TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Int32
-> TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> Lens
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
Int32
Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject'SlotVariableReference -> Int32
_TrackableObjectGraph'TrackableObject'SlotVariableReference'originalVariableNodeId
(\ x__ :: TrackableObjectGraph'TrackableObject'SlotVariableReference
x__ y__ :: Int32
y__
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
x__
{_TrackableObjectGraph'TrackableObject'SlotVariableReference'originalVariableNodeId :: Int32
_TrackableObjectGraph'TrackableObject'SlotVariableReference'originalVariableNodeId = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TrackableObjectGraph'TrackableObject'SlotVariableReference "slotName" Data.Text.Text where
fieldOf :: Proxy# "slotName"
-> (Text -> f Text)
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f TrackableObjectGraph'TrackableObject'SlotVariableReference
fieldOf _
= ((Text -> f Text)
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f TrackableObjectGraph'TrackableObject'SlotVariableReference
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Text)
-> (TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Text
-> TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> Lens
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
Text
Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject'SlotVariableReference -> Text
_TrackableObjectGraph'TrackableObject'SlotVariableReference'slotName
(\ x__ :: TrackableObjectGraph'TrackableObject'SlotVariableReference
x__ y__ :: Text
y__
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
x__
{_TrackableObjectGraph'TrackableObject'SlotVariableReference'slotName :: Text
_TrackableObjectGraph'TrackableObject'SlotVariableReference'slotName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TrackableObjectGraph'TrackableObject'SlotVariableReference "slotVariableNodeId" Data.Int.Int32 where
fieldOf :: Proxy# "slotVariableNodeId"
-> (Int32 -> f Int32)
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f TrackableObjectGraph'TrackableObject'SlotVariableReference
fieldOf _
= ((Int32 -> f Int32)
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f TrackableObjectGraph'TrackableObject'SlotVariableReference
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Int32)
-> (TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Int32
-> TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> Lens
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
Int32
Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject'SlotVariableReference -> Int32
_TrackableObjectGraph'TrackableObject'SlotVariableReference'slotVariableNodeId
(\ x__ :: TrackableObjectGraph'TrackableObject'SlotVariableReference
x__ y__ :: Int32
y__
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
x__
{_TrackableObjectGraph'TrackableObject'SlotVariableReference'slotVariableNodeId :: Int32
_TrackableObjectGraph'TrackableObject'SlotVariableReference'slotVariableNodeId = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TrackableObjectGraph'TrackableObject'SlotVariableReference where
messageName :: Proxy TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Text
messageName _
= String -> Text
Data.Text.pack
"tensorflow.TrackableObjectGraph.TrackableObject.SlotVariableReference"
packedMessageDescriptor :: Proxy TrackableObjectGraph'TrackableObject'SlotVariableReference
-> ByteString
packedMessageDescriptor _
= "\n\
\\NAKSlotVariableReference\DC29\n\
\\EMoriginal_variable_node_id\CAN\SOH \SOH(\ENQR\SYNoriginalVariableNodeId\DC2\ESC\n\
\\tslot_name\CAN\STX \SOH(\tR\bslotName\DC21\n\
\\NAKslot_variable_node_id\CAN\ETX \SOH(\ENQR\DC2slotVariableNodeId"
packedFileDescriptor :: Proxy TrackableObjectGraph'TrackableObject'SlotVariableReference
-> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag
(FieldDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference)
fieldsByTag
= let
originalVariableNodeId__field_descriptor :: FieldDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference
originalVariableNodeId__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor
TrackableObjectGraph'TrackableObject'SlotVariableReference Int32
-> FieldDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"original_variable_node_id"
(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
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
Int32
Int32
-> FieldAccessor
TrackableObjectGraph'TrackableObject'SlotVariableReference 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 "originalVariableNodeId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"originalVariableNodeId")) ::
Data.ProtoLens.FieldDescriptor TrackableObjectGraph'TrackableObject'SlotVariableReference
slotName__field_descriptor :: FieldDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference
slotName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor
TrackableObjectGraph'TrackableObject'SlotVariableReference Text
-> FieldDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"slot_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
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
Text
Text
-> FieldAccessor
TrackableObjectGraph'TrackableObject'SlotVariableReference 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 "slotName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slotName")) ::
Data.ProtoLens.FieldDescriptor TrackableObjectGraph'TrackableObject'SlotVariableReference
slotVariableNodeId__field_descriptor :: FieldDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference
slotVariableNodeId__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor
TrackableObjectGraph'TrackableObject'SlotVariableReference Int32
-> FieldDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"slot_variable_node_id"
(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
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
Int32
Int32
-> FieldAccessor
TrackableObjectGraph'TrackableObject'SlotVariableReference 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 "slotVariableNodeId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slotVariableNodeId")) ::
Data.ProtoLens.FieldDescriptor TrackableObjectGraph'TrackableObject'SlotVariableReference
in
[(Tag,
FieldDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference)]
-> Map
Tag
(FieldDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference
originalVariableNodeId__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference
slotName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference
slotVariableNodeId__field_descriptor)]
unknownFields :: LensLike'
f
TrackableObjectGraph'TrackableObject'SlotVariableReference
FieldSet
unknownFields
= (TrackableObjectGraph'TrackableObject'SlotVariableReference
-> FieldSet)
-> (TrackableObjectGraph'TrackableObject'SlotVariableReference
-> FieldSet
-> TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> Lens'
TrackableObjectGraph'TrackableObject'SlotVariableReference FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> FieldSet
_TrackableObjectGraph'TrackableObject'SlotVariableReference'_unknownFields
(\ x__ :: TrackableObjectGraph'TrackableObject'SlotVariableReference
x__ y__ :: FieldSet
y__
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
x__
{_TrackableObjectGraph'TrackableObject'SlotVariableReference'_unknownFields :: FieldSet
_TrackableObjectGraph'TrackableObject'SlotVariableReference'_unknownFields = FieldSet
y__})
defMessage :: TrackableObjectGraph'TrackableObject'SlotVariableReference
defMessage
= $WTrackableObjectGraph'TrackableObject'SlotVariableReference'_constructor :: Int32
-> Text
-> Int32
-> FieldSet
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference'_constructor
{_TrackableObjectGraph'TrackableObject'SlotVariableReference'originalVariableNodeId :: Int32
_TrackableObjectGraph'TrackableObject'SlotVariableReference'originalVariableNodeId = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TrackableObjectGraph'TrackableObject'SlotVariableReference'slotName :: Text
_TrackableObjectGraph'TrackableObject'SlotVariableReference'slotName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TrackableObjectGraph'TrackableObject'SlotVariableReference'slotVariableNodeId :: Int32
_TrackableObjectGraph'TrackableObject'SlotVariableReference'slotVariableNodeId = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TrackableObjectGraph'TrackableObject'SlotVariableReference'_unknownFields :: FieldSet
_TrackableObjectGraph'TrackableObject'SlotVariableReference'_unknownFields = []}
parseMessage :: Parser TrackableObjectGraph'TrackableObject'SlotVariableReference
parseMessage
= let
loop ::
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Data.ProtoLens.Encoding.Bytes.Parser TrackableObjectGraph'TrackableObject'SlotVariableReference
loop :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser
TrackableObjectGraph'TrackableObject'SlotVariableReference
loop x :: TrackableObjectGraph'TrackableObject'SlotVariableReference
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]))))
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser
TrackableObjectGraph'TrackableObject'SlotVariableReference
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
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
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TrackableObjectGraph'TrackableObject'SlotVariableReference
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"original_variable_node_id"
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser
TrackableObjectGraph'TrackableObject'SlotVariableReference
loop
(Setter
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
Int32
Int32
-> Int32
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "originalVariableNodeId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"originalVariableNodeId") Int32
y TrackableObjectGraph'TrackableObject'SlotVariableReference
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))
"slot_name"
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser
TrackableObjectGraph'TrackableObject'SlotVariableReference
loop
(Setter
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
Text
Text
-> Text
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "slotName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slotName") Text
y TrackableObjectGraph'TrackableObject'SlotVariableReference
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)
"slot_variable_node_id"
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser
TrackableObjectGraph'TrackableObject'SlotVariableReference
loop
(Setter
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
Int32
Int32
-> Int32
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "slotVariableNodeId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slotVariableNodeId") Int32
y TrackableObjectGraph'TrackableObject'SlotVariableReference
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser
TrackableObjectGraph'TrackableObject'SlotVariableReference
loop
(Setter
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
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
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TrackableObjectGraph'TrackableObject'SlotVariableReference
x)
in
Parser TrackableObjectGraph'TrackableObject'SlotVariableReference
-> String
-> Parser
TrackableObjectGraph'TrackableObject'SlotVariableReference
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser
TrackableObjectGraph'TrackableObject'SlotVariableReference
loop TrackableObjectGraph'TrackableObject'SlotVariableReference
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "SlotVariableReference"
buildMessage :: TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Builder
buildMessage
= \ _x :: TrackableObjectGraph'TrackableObject'SlotVariableReference
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v
= FoldLike
Int32
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
Int32
Int32
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "originalVariableNodeId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"originalVariableNodeId") TrackableObjectGraph'TrackableObject'SlotVariableReference
_x
in
if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 8)
((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
Text
Text
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "slotName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slotName") TrackableObjectGraph'TrackableObject'SlotVariableReference
_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
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
Int32
Int32
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "slotVariableNodeId" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"slotVariableNodeId") TrackableObjectGraph'TrackableObject'SlotVariableReference
_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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
FieldSet
FieldSet
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TrackableObjectGraph'TrackableObject'SlotVariableReference
TrackableObjectGraph'TrackableObject'SlotVariableReference
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TrackableObjectGraph'TrackableObject'SlotVariableReference
_x))))
instance Control.DeepSeq.NFData TrackableObjectGraph'TrackableObject'SlotVariableReference where
rnf :: TrackableObjectGraph'TrackableObject'SlotVariableReference -> ()
rnf
= \ x__ :: TrackableObjectGraph'TrackableObject'SlotVariableReference
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject'SlotVariableReference
-> FieldSet
_TrackableObjectGraph'TrackableObject'SlotVariableReference'_unknownFields
TrackableObjectGraph'TrackableObject'SlotVariableReference
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject'SlotVariableReference -> Int32
_TrackableObjectGraph'TrackableObject'SlotVariableReference'originalVariableNodeId
TrackableObjectGraph'TrackableObject'SlotVariableReference
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject'SlotVariableReference -> Text
_TrackableObjectGraph'TrackableObject'SlotVariableReference'slotName
TrackableObjectGraph'TrackableObject'SlotVariableReference
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TrackableObjectGraph'TrackableObject'SlotVariableReference -> Int32
_TrackableObjectGraph'TrackableObject'SlotVariableReference'slotVariableNodeId
TrackableObjectGraph'TrackableObject'SlotVariableReference
x__)
())))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= "\n\
\5tensorflow/core/protobuf/trackable_object_graph.proto\DC2\n\
\tensorflow\"\170\ACK\n\
\\DC4TrackableObjectGraph\DC2F\n\
\\ENQnodes\CAN\SOH \ETX(\v20.tensorflow.TrackableObjectGraph.TrackableObjectR\ENQnodes\SUB\201\ENQ\n\
\\SITrackableObject\DC2\\\n\
\\bchildren\CAN\SOH \ETX(\v2@.tensorflow.TrackableObjectGraph.TrackableObject.ObjectReferenceR\bchildren\DC2a\n\
\\n\
\attributes\CAN\STX \ETX(\v2A.tensorflow.TrackableObjectGraph.TrackableObject.SerializedTensorR\n\
\attributes\DC2m\n\
\\SOslot_variables\CAN\ETX \ETX(\v2F.tensorflow.TrackableObjectGraph.TrackableObject.SlotVariableReferenceR\rslotVariables\SUBI\n\
\\SIObjectReference\DC2\ETB\n\
\\anode_id\CAN\SOH \SOH(\ENQR\ACKnodeId\DC2\GS\n\
\\n\
\local_name\CAN\STX \SOH(\tR\tlocalName\SUB\149\SOH\n\
\\DLESerializedTensor\DC2\DC2\n\
\\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2\ESC\n\
\\tfull_name\CAN\STX \SOH(\tR\bfullName\DC2%\n\
\\SOcheckpoint_key\CAN\ETX \SOH(\tR\rcheckpointKey\DC2)\n\
\\DLEoptional_restore\CAN\EOT \SOH(\bR\SIoptionalRestore\SUB\162\SOH\n\
\\NAKSlotVariableReference\DC29\n\
\\EMoriginal_variable_node_id\CAN\SOH \SOH(\ENQR\SYNoriginalVariableNodeId\DC2\ESC\n\
\\tslot_name\CAN\STX \SOH(\tR\bslotName\DC21\n\
\\NAKslot_variable_node_id\CAN\ETX \SOH(\ENQR\DC2slotVariableNodeIdBMZHgithub.com/tensorflow/tensorflow/tensorflow/go/core/core_protos_go_proto\248\SOH\SOHJ\201\DC3\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\
\\b\n\
\\SOH\b\DC2\ETX\EOT\NUL\US\n\
\\t\n\
\\STX\b\US\DC2\ETX\EOT\NUL\US\n\
\\b\n\
\\SOH\b\DC2\ETX\ENQ\NUL_\n\
\\t\n\
\\STX\b\v\DC2\ETX\ENQ\NUL_\n\
\\177\SOH\n\
\\STX\EOT\NUL\DC2\EOT\v\NUL;\SOH2\164\SOH A TensorBundle addition which saves extra information about the objects which\n\
\ own variables, allowing for more robust checkpoint loading into modified\n\
\ programs.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\v\b\FS\n\
\\f\n\
\\EOT\EOT\NUL\ETX\NUL\DC2\EOT\f\STX8\ETX\n\
\\f\n\
\\ENQ\EOT\NUL\ETX\NUL\SOH\DC2\ETX\f\n\
\\EM\n\
\\SO\n\
\\ACK\EOT\NUL\ETX\NUL\ETX\NUL\DC2\EOT\r\EOT\DC3\ENQ\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\ETX\NUL\SOH\DC2\ETX\r\f\ESC\n\
\g\n\
\\b\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\DC2\ETX\DLE\ACK\CAN\SUBV An index into `TrackableObjectGraph.nodes`, indicating the object\n\
\ being referenced.\n\
\\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\ENQ\DC2\ETX\DLE\ACK\v\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETX\DLE\f\DC3\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETX\DLE\SYN\ETB\n\
\5\n\
\\b\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\DC2\ETX\DC2\ACK\FS\SUB$ A user-provided name for the edge.\n\
\\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\ENQ\DC2\ETX\DC2\ACK\f\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETX\DC2\r\ETB\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETX\DC2\SUB\ESC\n\
\\SO\n\
\\ACK\EOT\NUL\ETX\NUL\ETX\SOH\DC2\EOT\NAK\EOT%\ENQ\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\ETX\SOH\SOH\DC2\ETX\NAK\f\FS\n\
\\198\SOH\n\
\\b\EOT\NUL\ETX\NUL\ETX\SOH\STX\NUL\DC2\ETX\EM\ACK\SYN\SUB\180\SOH A name for the Tensor. Simple variables have only one\n\
\ `SerializedTensor` named \"VARIABLE_VALUE\" by convention. This value may\n\
\ be restored on object creation as an optimization.\n\
\\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\NUL\ENQ\DC2\ETX\EM\ACK\f\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\NUL\SOH\DC2\ETX\EM\r\DC1\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\NUL\ETX\DC2\ETX\EM\DC4\NAK\n\
\\249\SOH\n\
\\b\EOT\NUL\ETX\NUL\ETX\SOH\STX\SOH\DC2\ETX\RS\ACK\ESC\SUB\231\SOH The full name of the variable/tensor, if applicable. Used to allow\n\
\ name-based loading of checkpoints which were saved using an\n\
\ object-based API. Should match the checkpoint key which would have been\n\
\ assigned by tf.train.Saver.\n\
\\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\SOH\ENQ\DC2\ETX\RS\ACK\f\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\SOH\SOH\DC2\ETX\RS\r\SYN\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\SOH\ETX\DC2\ETX\RS\EM\SUB\n\
\F\n\
\\b\EOT\NUL\ETX\NUL\ETX\SOH\STX\STX\DC2\ETX \ACK \SUB5 The generated name of the Tensor in the checkpoint.\n\
\\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\STX\ENQ\DC2\ETX \ACK\f\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\STX\SOH\DC2\ETX \r\ESC\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\STX\ETX\DC2\ETX \RS\US\n\
\\208\SOH\n\
\\b\EOT\NUL\ETX\NUL\ETX\SOH\STX\ETX\DC2\ETX$\ACK \SUB\190\SOH Whether checkpoints should be considered as matching even without this\n\
\ value restored. Used for non-critical values which don't affect the\n\
\ TensorFlow graph, such as layer configurations.\n\
\\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\ETX\ENQ\DC2\ETX$\ACK\n\
\\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\ETX\SOH\DC2\ETX$\v\ESC\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\SOH\STX\ETX\ETX\DC2\ETX$\RS\US\n\
\\SO\n\
\\ACK\EOT\NUL\ETX\NUL\ETX\STX\DC2\EOT'\EOT0\ENQ\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\ETX\STX\SOH\DC2\ETX'\f!\n\
\y\n\
\\b\EOT\NUL\ETX\NUL\ETX\STX\STX\NUL\DC2\ETX*\ACK*\SUBh An index into `TrackableObjectGraph.nodes`, indicating the\n\
\ variable object this slot was created for.\n\
\\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\STX\STX\NUL\ENQ\DC2\ETX*\ACK\v\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\STX\STX\NUL\SOH\DC2\ETX*\f%\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\STX\STX\NUL\ETX\DC2\ETX*()\n\
\7\n\
\\b\EOT\NUL\ETX\NUL\ETX\STX\STX\SOH\DC2\ETX,\ACK\ESC\SUB& The name of the slot (e.g. \"m\"/\"v\").\n\
\\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\STX\STX\SOH\ENQ\DC2\ETX,\ACK\f\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\STX\STX\SOH\SOH\DC2\ETX,\r\SYN\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\STX\STX\SOH\ETX\DC2\ETX,\EM\SUB\n\
\|\n\
\\b\EOT\NUL\ETX\NUL\ETX\STX\STX\STX\DC2\ETX/\ACK&\SUBk An index into `TrackableObjectGraph.nodes`, indicating the\n\
\ `Object` with the value of the slot variable.\n\
\\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\STX\STX\STX\ENQ\DC2\ETX/\ACK\v\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\STX\STX\STX\SOH\DC2\ETX/\f!\n\
\\DLE\n\
\\t\EOT\NUL\ETX\NUL\ETX\STX\STX\STX\ETX\DC2\ETX/$%\n\
\6\n\
\\ACK\EOT\NUL\ETX\NUL\STX\NUL\DC2\ETX3\EOT*\SUB' Objects which this object depends on.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\NUL\EOT\DC2\ETX3\EOT\f\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\NUL\ACK\DC2\ETX3\r\FS\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETX3\GS%\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETX3()\n\
\9\n\
\\ACK\EOT\NUL\ETX\NUL\STX\SOH\DC2\ETX5\EOT-\SUB* Serialized data specific to this object.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\SOH\EOT\DC2\ETX5\EOT\f\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\SOH\ACK\DC2\ETX5\r\GS\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETX5\RS(\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETX5+,\n\
\5\n\
\\ACK\EOT\NUL\ETX\NUL\STX\STX\DC2\ETX7\EOT6\SUB& Slot variables owned by this object.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\STX\EOT\DC2\ETX7\EOT\f\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\STX\ACK\DC2\ETX7\r\"\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\STX\SOH\DC2\ETX7#1\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\STX\ETX\DC2\ETX745\n\
\\v\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX:\STX%\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\EOT\DC2\ETX:\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX:\v\SUB\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX:\ESC \n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX:#$b\ACKproto3"