{-# 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.Debug (
DebugOptions(), DebugTensorWatch(), DebuggedSourceFile(),
DebuggedSourceFiles()
) 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 DebugOptions
= DebugOptions'_constructor {DebugOptions -> Vector DebugTensorWatch
_DebugOptions'debugTensorWatchOpts :: !(Data.Vector.Vector DebugTensorWatch),
DebugOptions -> Int64
_DebugOptions'globalStep :: !Data.Int.Int64,
DebugOptions -> Bool
_DebugOptions'resetDiskByteUsage :: !Prelude.Bool,
DebugOptions -> FieldSet
_DebugOptions'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (DebugOptions -> DebugOptions -> Bool
(DebugOptions -> DebugOptions -> Bool)
-> (DebugOptions -> DebugOptions -> Bool) -> Eq DebugOptions
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DebugOptions -> DebugOptions -> Bool
$c/= :: DebugOptions -> DebugOptions -> Bool
== :: DebugOptions -> DebugOptions -> Bool
$c== :: DebugOptions -> DebugOptions -> Bool
Prelude.Eq, Eq DebugOptions
Eq DebugOptions =>
(DebugOptions -> DebugOptions -> Ordering)
-> (DebugOptions -> DebugOptions -> Bool)
-> (DebugOptions -> DebugOptions -> Bool)
-> (DebugOptions -> DebugOptions -> Bool)
-> (DebugOptions -> DebugOptions -> Bool)
-> (DebugOptions -> DebugOptions -> DebugOptions)
-> (DebugOptions -> DebugOptions -> DebugOptions)
-> Ord DebugOptions
DebugOptions -> DebugOptions -> Bool
DebugOptions -> DebugOptions -> Ordering
DebugOptions -> DebugOptions -> DebugOptions
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 :: DebugOptions -> DebugOptions -> DebugOptions
$cmin :: DebugOptions -> DebugOptions -> DebugOptions
max :: DebugOptions -> DebugOptions -> DebugOptions
$cmax :: DebugOptions -> DebugOptions -> DebugOptions
>= :: DebugOptions -> DebugOptions -> Bool
$c>= :: DebugOptions -> DebugOptions -> Bool
> :: DebugOptions -> DebugOptions -> Bool
$c> :: DebugOptions -> DebugOptions -> Bool
<= :: DebugOptions -> DebugOptions -> Bool
$c<= :: DebugOptions -> DebugOptions -> Bool
< :: DebugOptions -> DebugOptions -> Bool
$c< :: DebugOptions -> DebugOptions -> Bool
compare :: DebugOptions -> DebugOptions -> Ordering
$ccompare :: DebugOptions -> DebugOptions -> Ordering
$cp1Ord :: Eq DebugOptions
Prelude.Ord)
instance Prelude.Show DebugOptions where
showsPrec :: Int -> DebugOptions -> ShowS
showsPrec _ __x :: DebugOptions
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(DebugOptions -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DebugOptions
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField DebugOptions "debugTensorWatchOpts" [DebugTensorWatch] where
fieldOf :: Proxy# "debugTensorWatchOpts"
-> ([DebugTensorWatch] -> f [DebugTensorWatch])
-> DebugOptions
-> f DebugOptions
fieldOf _
= ((Vector DebugTensorWatch -> f (Vector DebugTensorWatch))
-> DebugOptions -> f DebugOptions)
-> (([DebugTensorWatch] -> f [DebugTensorWatch])
-> Vector DebugTensorWatch -> f (Vector DebugTensorWatch))
-> ([DebugTensorWatch] -> f [DebugTensorWatch])
-> DebugOptions
-> f DebugOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebugOptions -> Vector DebugTensorWatch)
-> (DebugOptions -> Vector DebugTensorWatch -> DebugOptions)
-> Lens
DebugOptions
DebugOptions
(Vector DebugTensorWatch)
(Vector DebugTensorWatch)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebugOptions -> Vector DebugTensorWatch
_DebugOptions'debugTensorWatchOpts
(\ x__ :: DebugOptions
x__ y__ :: Vector DebugTensorWatch
y__ -> DebugOptions
x__ {_DebugOptions'debugTensorWatchOpts :: Vector DebugTensorWatch
_DebugOptions'debugTensorWatchOpts = Vector DebugTensorWatch
y__}))
((Vector DebugTensorWatch -> [DebugTensorWatch])
-> (Vector DebugTensorWatch
-> [DebugTensorWatch] -> Vector DebugTensorWatch)
-> Lens
(Vector DebugTensorWatch)
(Vector DebugTensorWatch)
[DebugTensorWatch]
[DebugTensorWatch]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector DebugTensorWatch -> [DebugTensorWatch]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [DebugTensorWatch]
y__ -> [DebugTensorWatch] -> Vector DebugTensorWatch
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [DebugTensorWatch]
y__))
instance Data.ProtoLens.Field.HasField DebugOptions "vec'debugTensorWatchOpts" (Data.Vector.Vector DebugTensorWatch) where
fieldOf :: Proxy# "vec'debugTensorWatchOpts"
-> (Vector DebugTensorWatch -> f (Vector DebugTensorWatch))
-> DebugOptions
-> f DebugOptions
fieldOf _
= ((Vector DebugTensorWatch -> f (Vector DebugTensorWatch))
-> DebugOptions -> f DebugOptions)
-> ((Vector DebugTensorWatch -> f (Vector DebugTensorWatch))
-> Vector DebugTensorWatch -> f (Vector DebugTensorWatch))
-> (Vector DebugTensorWatch -> f (Vector DebugTensorWatch))
-> DebugOptions
-> f DebugOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebugOptions -> Vector DebugTensorWatch)
-> (DebugOptions -> Vector DebugTensorWatch -> DebugOptions)
-> Lens
DebugOptions
DebugOptions
(Vector DebugTensorWatch)
(Vector DebugTensorWatch)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebugOptions -> Vector DebugTensorWatch
_DebugOptions'debugTensorWatchOpts
(\ x__ :: DebugOptions
x__ y__ :: Vector DebugTensorWatch
y__ -> DebugOptions
x__ {_DebugOptions'debugTensorWatchOpts :: Vector DebugTensorWatch
_DebugOptions'debugTensorWatchOpts = Vector DebugTensorWatch
y__}))
(Vector DebugTensorWatch -> f (Vector DebugTensorWatch))
-> Vector DebugTensorWatch -> f (Vector DebugTensorWatch)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DebugOptions "globalStep" Data.Int.Int64 where
fieldOf :: Proxy# "globalStep"
-> (Int64 -> f Int64) -> DebugOptions -> f DebugOptions
fieldOf _
= ((Int64 -> f Int64) -> DebugOptions -> f DebugOptions)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> DebugOptions
-> f DebugOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebugOptions -> Int64)
-> (DebugOptions -> Int64 -> DebugOptions)
-> Lens DebugOptions DebugOptions Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebugOptions -> Int64
_DebugOptions'globalStep
(\ x__ :: DebugOptions
x__ y__ :: Int64
y__ -> DebugOptions
x__ {_DebugOptions'globalStep :: Int64
_DebugOptions'globalStep = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DebugOptions "resetDiskByteUsage" Prelude.Bool where
fieldOf :: Proxy# "resetDiskByteUsage"
-> (Bool -> f Bool) -> DebugOptions -> f DebugOptions
fieldOf _
= ((Bool -> f Bool) -> DebugOptions -> f DebugOptions)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> DebugOptions
-> f DebugOptions
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebugOptions -> Bool)
-> (DebugOptions -> Bool -> DebugOptions)
-> Lens DebugOptions DebugOptions Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebugOptions -> Bool
_DebugOptions'resetDiskByteUsage
(\ x__ :: DebugOptions
x__ y__ :: Bool
y__ -> DebugOptions
x__ {_DebugOptions'resetDiskByteUsage :: Bool
_DebugOptions'resetDiskByteUsage = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DebugOptions where
messageName :: Proxy DebugOptions -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.DebugOptions"
packedMessageDescriptor :: Proxy DebugOptions -> ByteString
packedMessageDescriptor _
= "\n\
\\fDebugOptions\DC2S\n\
\\ETBdebug_tensor_watch_opts\CAN\EOT \ETX(\v2\FS.tensorflow.DebugTensorWatchR\DC4debugTensorWatchOpts\DC2\US\n\
\\vglobal_step\CAN\n\
\ \SOH(\ETXR\n\
\globalStep\DC21\n\
\\NAKreset_disk_byte_usage\CAN\v \SOH(\bR\DC2resetDiskByteUsage"
packedFileDescriptor :: Proxy DebugOptions -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor DebugOptions)
fieldsByTag
= let
debugTensorWatchOpts__field_descriptor :: FieldDescriptor DebugOptions
debugTensorWatchOpts__field_descriptor
= String
-> FieldTypeDescriptor DebugTensorWatch
-> FieldAccessor DebugOptions DebugTensorWatch
-> FieldDescriptor DebugOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"debug_tensor_watch_opts"
(MessageOrGroup -> FieldTypeDescriptor DebugTensorWatch
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor DebugTensorWatch)
(Packing
-> Lens' DebugOptions [DebugTensorWatch]
-> FieldAccessor DebugOptions DebugTensorWatch
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "debugTensorWatchOpts" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"debugTensorWatchOpts")) ::
Data.ProtoLens.FieldDescriptor DebugOptions
globalStep__field_descriptor :: FieldDescriptor DebugOptions
globalStep__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor DebugOptions Int64
-> FieldDescriptor DebugOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"global_step"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens DebugOptions DebugOptions Int64 Int64
-> FieldAccessor DebugOptions Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "globalStep" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"globalStep")) ::
Data.ProtoLens.FieldDescriptor DebugOptions
resetDiskByteUsage__field_descriptor :: FieldDescriptor DebugOptions
resetDiskByteUsage__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor DebugOptions Bool
-> FieldDescriptor DebugOptions
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"reset_disk_byte_usage"
(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 DebugOptions DebugOptions Bool Bool
-> FieldAccessor DebugOptions 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 "resetDiskByteUsage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"resetDiskByteUsage")) ::
Data.ProtoLens.FieldDescriptor DebugOptions
in
[(Tag, FieldDescriptor DebugOptions)]
-> Map Tag (FieldDescriptor DebugOptions)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor DebugOptions
debugTensorWatchOpts__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 10, FieldDescriptor DebugOptions
globalStep__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 11, FieldDescriptor DebugOptions
resetDiskByteUsage__field_descriptor)]
unknownFields :: LensLike' f DebugOptions FieldSet
unknownFields
= (DebugOptions -> FieldSet)
-> (DebugOptions -> FieldSet -> DebugOptions)
-> Lens' DebugOptions FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebugOptions -> FieldSet
_DebugOptions'_unknownFields
(\ x__ :: DebugOptions
x__ y__ :: FieldSet
y__ -> DebugOptions
x__ {_DebugOptions'_unknownFields :: FieldSet
_DebugOptions'_unknownFields = FieldSet
y__})
defMessage :: DebugOptions
defMessage
= $WDebugOptions'_constructor :: Vector DebugTensorWatch
-> Int64 -> Bool -> FieldSet -> DebugOptions
DebugOptions'_constructor
{_DebugOptions'debugTensorWatchOpts :: Vector DebugTensorWatch
_DebugOptions'debugTensorWatchOpts = Vector DebugTensorWatch
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_DebugOptions'globalStep :: Int64
_DebugOptions'globalStep = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_DebugOptions'resetDiskByteUsage :: Bool
_DebugOptions'resetDiskByteUsage = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_DebugOptions'_unknownFields :: FieldSet
_DebugOptions'_unknownFields = []}
parseMessage :: Parser DebugOptions
parseMessage
= let
loop ::
DebugOptions
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld DebugTensorWatch
-> Data.ProtoLens.Encoding.Bytes.Parser DebugOptions
loop :: DebugOptions
-> Growing Vector RealWorld DebugTensorWatch -> Parser DebugOptions
loop x :: DebugOptions
x mutable'debugTensorWatchOpts :: Growing Vector RealWorld DebugTensorWatch
mutable'debugTensorWatchOpts
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector DebugTensorWatch
frozen'debugTensorWatchOpts <- IO (Vector DebugTensorWatch) -> Parser (Vector DebugTensorWatch)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) DebugTensorWatch
-> IO (Vector DebugTensorWatch)
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 DebugTensorWatch
Growing Vector (PrimState IO) DebugTensorWatch
mutable'debugTensorWatchOpts)
(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]))))
DebugOptions -> Parser DebugOptions
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter DebugOptions DebugOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> DebugOptions -> DebugOptions
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 DebugOptions DebugOptions FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
DebugOptions
DebugOptions
(Vector DebugTensorWatch)
(Vector DebugTensorWatch)
-> Vector DebugTensorWatch -> DebugOptions -> DebugOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'debugTensorWatchOpts" a, Functor f) =>
(a -> f a) -> s -> 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'debugTensorWatchOpts")
Vector DebugTensorWatch
frozen'debugTensorWatchOpts
DebugOptions
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
34
-> do !DebugTensorWatch
y <- Parser DebugTensorWatch -> String -> Parser DebugTensorWatch
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser DebugTensorWatch -> Parser DebugTensorWatch
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 DebugTensorWatch
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"debug_tensor_watch_opts"
Growing Vector RealWorld DebugTensorWatch
v <- IO (Growing Vector RealWorld DebugTensorWatch)
-> Parser (Growing Vector RealWorld DebugTensorWatch)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) DebugTensorWatch
-> DebugTensorWatch
-> IO (Growing Vector (PrimState IO) DebugTensorWatch)
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 DebugTensorWatch
Growing Vector (PrimState IO) DebugTensorWatch
mutable'debugTensorWatchOpts DebugTensorWatch
y)
DebugOptions
-> Growing Vector RealWorld DebugTensorWatch -> Parser DebugOptions
loop DebugOptions
x Growing Vector RealWorld DebugTensorWatch
v
80
-> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"global_step"
DebugOptions
-> Growing Vector RealWorld DebugTensorWatch -> Parser DebugOptions
loop
(Setter DebugOptions DebugOptions Int64 Int64
-> Int64 -> DebugOptions -> DebugOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "globalStep" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"globalStep") Int64
y DebugOptions
x)
Growing Vector RealWorld DebugTensorWatch
mutable'debugTensorWatchOpts
88
-> 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)
"reset_disk_byte_usage"
DebugOptions
-> Growing Vector RealWorld DebugTensorWatch -> Parser DebugOptions
loop
(Setter DebugOptions DebugOptions Bool Bool
-> Bool -> DebugOptions -> DebugOptions
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "resetDiskByteUsage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"resetDiskByteUsage") Bool
y DebugOptions
x)
Growing Vector RealWorld DebugTensorWatch
mutable'debugTensorWatchOpts
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
DebugOptions
-> Growing Vector RealWorld DebugTensorWatch -> Parser DebugOptions
loop
(Setter DebugOptions DebugOptions FieldSet FieldSet
-> (FieldSet -> FieldSet) -> DebugOptions -> DebugOptions
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 DebugOptions DebugOptions FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) DebugOptions
x)
Growing Vector RealWorld DebugTensorWatch
mutable'debugTensorWatchOpts
in
Parser DebugOptions -> String -> Parser DebugOptions
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld DebugTensorWatch
mutable'debugTensorWatchOpts <- IO (Growing Vector RealWorld DebugTensorWatch)
-> Parser (Growing Vector RealWorld DebugTensorWatch)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld DebugTensorWatch)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
DebugOptions
-> Growing Vector RealWorld DebugTensorWatch -> Parser DebugOptions
loop DebugOptions
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld DebugTensorWatch
mutable'debugTensorWatchOpts)
"DebugOptions"
buildMessage :: DebugOptions -> Builder
buildMessage
= \ _x :: DebugOptions
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((DebugTensorWatch -> Builder) -> Vector DebugTensorWatch -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: DebugTensorWatch
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((ByteString -> Builder)
-> (DebugTensorWatch -> ByteString) -> DebugTensorWatch -> 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))
DebugTensorWatch -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
DebugTensorWatch
_v))
(FoldLike
(Vector DebugTensorWatch)
DebugOptions
DebugOptions
(Vector DebugTensorWatch)
(Vector DebugTensorWatch)
-> DebugOptions -> Vector DebugTensorWatch
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'debugTensorWatchOpts" a, Functor f) =>
(a -> f a) -> s -> 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'debugTensorWatchOpts") DebugOptions
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 DebugOptions DebugOptions Int64 Int64
-> DebugOptions -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "globalStep" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"globalStep") DebugOptions
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 80)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool DebugOptions DebugOptions Bool Bool
-> DebugOptions -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "resetDiskByteUsage" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"resetDiskByteUsage") DebugOptions
_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 88)
((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 DebugOptions DebugOptions FieldSet FieldSet
-> DebugOptions -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet DebugOptions DebugOptions FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields DebugOptions
_x))))
instance Control.DeepSeq.NFData DebugOptions where
rnf :: DebugOptions -> ()
rnf
= \ x__ :: DebugOptions
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebugOptions -> FieldSet
_DebugOptions'_unknownFields DebugOptions
x__)
(Vector DebugTensorWatch -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebugOptions -> Vector DebugTensorWatch
_DebugOptions'debugTensorWatchOpts DebugOptions
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebugOptions -> Int64
_DebugOptions'globalStep DebugOptions
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebugOptions -> Bool
_DebugOptions'resetDiskByteUsage DebugOptions
x__) ())))
data DebugTensorWatch
= DebugTensorWatch'_constructor {DebugTensorWatch -> Text
_DebugTensorWatch'nodeName :: !Data.Text.Text,
DebugTensorWatch -> Int32
_DebugTensorWatch'outputSlot :: !Data.Int.Int32,
DebugTensorWatch -> Vector Text
_DebugTensorWatch'debugOps :: !(Data.Vector.Vector Data.Text.Text),
DebugTensorWatch -> Vector Text
_DebugTensorWatch'debugUrls :: !(Data.Vector.Vector Data.Text.Text),
DebugTensorWatch -> Bool
_DebugTensorWatch'tolerateDebugOpCreationFailures :: !Prelude.Bool,
DebugTensorWatch -> FieldSet
_DebugTensorWatch'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (DebugTensorWatch -> DebugTensorWatch -> Bool
(DebugTensorWatch -> DebugTensorWatch -> Bool)
-> (DebugTensorWatch -> DebugTensorWatch -> Bool)
-> Eq DebugTensorWatch
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DebugTensorWatch -> DebugTensorWatch -> Bool
$c/= :: DebugTensorWatch -> DebugTensorWatch -> Bool
== :: DebugTensorWatch -> DebugTensorWatch -> Bool
$c== :: DebugTensorWatch -> DebugTensorWatch -> Bool
Prelude.Eq, Eq DebugTensorWatch
Eq DebugTensorWatch =>
(DebugTensorWatch -> DebugTensorWatch -> Ordering)
-> (DebugTensorWatch -> DebugTensorWatch -> Bool)
-> (DebugTensorWatch -> DebugTensorWatch -> Bool)
-> (DebugTensorWatch -> DebugTensorWatch -> Bool)
-> (DebugTensorWatch -> DebugTensorWatch -> Bool)
-> (DebugTensorWatch -> DebugTensorWatch -> DebugTensorWatch)
-> (DebugTensorWatch -> DebugTensorWatch -> DebugTensorWatch)
-> Ord DebugTensorWatch
DebugTensorWatch -> DebugTensorWatch -> Bool
DebugTensorWatch -> DebugTensorWatch -> Ordering
DebugTensorWatch -> DebugTensorWatch -> DebugTensorWatch
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 :: DebugTensorWatch -> DebugTensorWatch -> DebugTensorWatch
$cmin :: DebugTensorWatch -> DebugTensorWatch -> DebugTensorWatch
max :: DebugTensorWatch -> DebugTensorWatch -> DebugTensorWatch
$cmax :: DebugTensorWatch -> DebugTensorWatch -> DebugTensorWatch
>= :: DebugTensorWatch -> DebugTensorWatch -> Bool
$c>= :: DebugTensorWatch -> DebugTensorWatch -> Bool
> :: DebugTensorWatch -> DebugTensorWatch -> Bool
$c> :: DebugTensorWatch -> DebugTensorWatch -> Bool
<= :: DebugTensorWatch -> DebugTensorWatch -> Bool
$c<= :: DebugTensorWatch -> DebugTensorWatch -> Bool
< :: DebugTensorWatch -> DebugTensorWatch -> Bool
$c< :: DebugTensorWatch -> DebugTensorWatch -> Bool
compare :: DebugTensorWatch -> DebugTensorWatch -> Ordering
$ccompare :: DebugTensorWatch -> DebugTensorWatch -> Ordering
$cp1Ord :: Eq DebugTensorWatch
Prelude.Ord)
instance Prelude.Show DebugTensorWatch where
showsPrec :: Int -> DebugTensorWatch -> ShowS
showsPrec _ __x :: DebugTensorWatch
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(DebugTensorWatch -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DebugTensorWatch
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField DebugTensorWatch "nodeName" Data.Text.Text where
fieldOf :: Proxy# "nodeName"
-> (Text -> f Text) -> DebugTensorWatch -> f DebugTensorWatch
fieldOf _
= ((Text -> f Text) -> DebugTensorWatch -> f DebugTensorWatch)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DebugTensorWatch
-> f DebugTensorWatch
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebugTensorWatch -> Text)
-> (DebugTensorWatch -> Text -> DebugTensorWatch)
-> Lens DebugTensorWatch DebugTensorWatch Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebugTensorWatch -> Text
_DebugTensorWatch'nodeName
(\ x__ :: DebugTensorWatch
x__ y__ :: Text
y__ -> DebugTensorWatch
x__ {_DebugTensorWatch'nodeName :: Text
_DebugTensorWatch'nodeName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DebugTensorWatch "outputSlot" Data.Int.Int32 where
fieldOf :: Proxy# "outputSlot"
-> (Int32 -> f Int32) -> DebugTensorWatch -> f DebugTensorWatch
fieldOf _
= ((Int32 -> f Int32) -> DebugTensorWatch -> f DebugTensorWatch)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> DebugTensorWatch
-> f DebugTensorWatch
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebugTensorWatch -> Int32)
-> (DebugTensorWatch -> Int32 -> DebugTensorWatch)
-> Lens DebugTensorWatch DebugTensorWatch Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebugTensorWatch -> Int32
_DebugTensorWatch'outputSlot
(\ x__ :: DebugTensorWatch
x__ y__ :: Int32
y__ -> DebugTensorWatch
x__ {_DebugTensorWatch'outputSlot :: Int32
_DebugTensorWatch'outputSlot = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DebugTensorWatch "debugOps" [Data.Text.Text] where
fieldOf :: Proxy# "debugOps"
-> ([Text] -> f [Text]) -> DebugTensorWatch -> f DebugTensorWatch
fieldOf _
= ((Vector Text -> f (Vector Text))
-> DebugTensorWatch -> f DebugTensorWatch)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> DebugTensorWatch
-> f DebugTensorWatch
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebugTensorWatch -> Vector Text)
-> (DebugTensorWatch -> Vector Text -> DebugTensorWatch)
-> Lens
DebugTensorWatch DebugTensorWatch (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebugTensorWatch -> Vector Text
_DebugTensorWatch'debugOps
(\ x__ :: DebugTensorWatch
x__ y__ :: Vector Text
y__ -> DebugTensorWatch
x__ {_DebugTensorWatch'debugOps :: Vector Text
_DebugTensorWatch'debugOps = Vector Text
y__}))
((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField DebugTensorWatch "vec'debugOps" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: Proxy# "vec'debugOps"
-> (Vector Text -> f (Vector Text))
-> DebugTensorWatch
-> f DebugTensorWatch
fieldOf _
= ((Vector Text -> f (Vector Text))
-> DebugTensorWatch -> f DebugTensorWatch)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> DebugTensorWatch
-> f DebugTensorWatch
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebugTensorWatch -> Vector Text)
-> (DebugTensorWatch -> Vector Text -> DebugTensorWatch)
-> Lens
DebugTensorWatch DebugTensorWatch (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebugTensorWatch -> Vector Text
_DebugTensorWatch'debugOps
(\ x__ :: DebugTensorWatch
x__ y__ :: Vector Text
y__ -> DebugTensorWatch
x__ {_DebugTensorWatch'debugOps :: Vector Text
_DebugTensorWatch'debugOps = Vector Text
y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DebugTensorWatch "debugUrls" [Data.Text.Text] where
fieldOf :: Proxy# "debugUrls"
-> ([Text] -> f [Text]) -> DebugTensorWatch -> f DebugTensorWatch
fieldOf _
= ((Vector Text -> f (Vector Text))
-> DebugTensorWatch -> f DebugTensorWatch)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> DebugTensorWatch
-> f DebugTensorWatch
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebugTensorWatch -> Vector Text)
-> (DebugTensorWatch -> Vector Text -> DebugTensorWatch)
-> Lens
DebugTensorWatch DebugTensorWatch (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebugTensorWatch -> Vector Text
_DebugTensorWatch'debugUrls
(\ x__ :: DebugTensorWatch
x__ y__ :: Vector Text
y__ -> DebugTensorWatch
x__ {_DebugTensorWatch'debugUrls :: Vector Text
_DebugTensorWatch'debugUrls = Vector Text
y__}))
((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField DebugTensorWatch "vec'debugUrls" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: Proxy# "vec'debugUrls"
-> (Vector Text -> f (Vector Text))
-> DebugTensorWatch
-> f DebugTensorWatch
fieldOf _
= ((Vector Text -> f (Vector Text))
-> DebugTensorWatch -> f DebugTensorWatch)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> DebugTensorWatch
-> f DebugTensorWatch
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebugTensorWatch -> Vector Text)
-> (DebugTensorWatch -> Vector Text -> DebugTensorWatch)
-> Lens
DebugTensorWatch DebugTensorWatch (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebugTensorWatch -> Vector Text
_DebugTensorWatch'debugUrls
(\ x__ :: DebugTensorWatch
x__ y__ :: Vector Text
y__ -> DebugTensorWatch
x__ {_DebugTensorWatch'debugUrls :: Vector Text
_DebugTensorWatch'debugUrls = Vector Text
y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DebugTensorWatch "tolerateDebugOpCreationFailures" Prelude.Bool where
fieldOf :: Proxy# "tolerateDebugOpCreationFailures"
-> (Bool -> f Bool) -> DebugTensorWatch -> f DebugTensorWatch
fieldOf _
= ((Bool -> f Bool) -> DebugTensorWatch -> f DebugTensorWatch)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> DebugTensorWatch
-> f DebugTensorWatch
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebugTensorWatch -> Bool)
-> (DebugTensorWatch -> Bool -> DebugTensorWatch)
-> Lens DebugTensorWatch DebugTensorWatch Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebugTensorWatch -> Bool
_DebugTensorWatch'tolerateDebugOpCreationFailures
(\ x__ :: DebugTensorWatch
x__ y__ :: Bool
y__
-> DebugTensorWatch
x__ {_DebugTensorWatch'tolerateDebugOpCreationFailures :: Bool
_DebugTensorWatch'tolerateDebugOpCreationFailures = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DebugTensorWatch where
messageName :: Proxy DebugTensorWatch -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.DebugTensorWatch"
packedMessageDescriptor :: Proxy DebugTensorWatch -> ByteString
packedMessageDescriptor _
= "\n\
\\DLEDebugTensorWatch\DC2\ESC\n\
\\tnode_name\CAN\SOH \SOH(\tR\bnodeName\DC2\US\n\
\\voutput_slot\CAN\STX \SOH(\ENQR\n\
\outputSlot\DC2\ESC\n\
\\tdebug_ops\CAN\ETX \ETX(\tR\bdebugOps\DC2\GS\n\
\\n\
\debug_urls\CAN\EOT \ETX(\tR\tdebugUrls\DC2L\n\
\#tolerate_debug_op_creation_failures\CAN\ENQ \SOH(\bR\UStolerateDebugOpCreationFailures"
packedFileDescriptor :: Proxy DebugTensorWatch -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor DebugTensorWatch)
fieldsByTag
= let
nodeName__field_descriptor :: FieldDescriptor DebugTensorWatch
nodeName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor DebugTensorWatch Text
-> FieldDescriptor DebugTensorWatch
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"node_name"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens DebugTensorWatch DebugTensorWatch Text Text
-> FieldAccessor DebugTensorWatch Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "nodeName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodeName")) ::
Data.ProtoLens.FieldDescriptor DebugTensorWatch
outputSlot__field_descriptor :: FieldDescriptor DebugTensorWatch
outputSlot__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor DebugTensorWatch Int32
-> FieldDescriptor DebugTensorWatch
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"output_slot"
(ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(WireDefault Int32
-> Lens DebugTensorWatch DebugTensorWatch Int32 Int32
-> FieldAccessor DebugTensorWatch 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 "outputSlot" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"outputSlot")) ::
Data.ProtoLens.FieldDescriptor DebugTensorWatch
debugOps__field_descriptor :: FieldDescriptor DebugTensorWatch
debugOps__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor DebugTensorWatch Text
-> FieldDescriptor DebugTensorWatch
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"debug_ops"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Packing
-> Lens' DebugTensorWatch [Text]
-> FieldAccessor DebugTensorWatch Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "debugOps" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"debugOps")) ::
Data.ProtoLens.FieldDescriptor DebugTensorWatch
debugUrls__field_descriptor :: FieldDescriptor DebugTensorWatch
debugUrls__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor DebugTensorWatch Text
-> FieldDescriptor DebugTensorWatch
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"debug_urls"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Packing
-> Lens' DebugTensorWatch [Text]
-> FieldAccessor DebugTensorWatch Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "debugUrls" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"debugUrls")) ::
Data.ProtoLens.FieldDescriptor DebugTensorWatch
tolerateDebugOpCreationFailures__field_descriptor :: FieldDescriptor DebugTensorWatch
tolerateDebugOpCreationFailures__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor DebugTensorWatch Bool
-> FieldDescriptor DebugTensorWatch
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"tolerate_debug_op_creation_failures"
(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 DebugTensorWatch DebugTensorWatch Bool Bool
-> FieldAccessor DebugTensorWatch 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 "tolerateDebugOpCreationFailures" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tolerateDebugOpCreationFailures")) ::
Data.ProtoLens.FieldDescriptor DebugTensorWatch
in
[(Tag, FieldDescriptor DebugTensorWatch)]
-> Map Tag (FieldDescriptor DebugTensorWatch)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor DebugTensorWatch
nodeName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor DebugTensorWatch
outputSlot__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor DebugTensorWatch
debugOps__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor DebugTensorWatch
debugUrls__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5,
FieldDescriptor DebugTensorWatch
tolerateDebugOpCreationFailures__field_descriptor)]
unknownFields :: LensLike' f DebugTensorWatch FieldSet
unknownFields
= (DebugTensorWatch -> FieldSet)
-> (DebugTensorWatch -> FieldSet -> DebugTensorWatch)
-> Lens' DebugTensorWatch FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebugTensorWatch -> FieldSet
_DebugTensorWatch'_unknownFields
(\ x__ :: DebugTensorWatch
x__ y__ :: FieldSet
y__ -> DebugTensorWatch
x__ {_DebugTensorWatch'_unknownFields :: FieldSet
_DebugTensorWatch'_unknownFields = FieldSet
y__})
defMessage :: DebugTensorWatch
defMessage
= $WDebugTensorWatch'_constructor :: Text
-> Int32
-> Vector Text
-> Vector Text
-> Bool
-> FieldSet
-> DebugTensorWatch
DebugTensorWatch'_constructor
{_DebugTensorWatch'nodeName :: Text
_DebugTensorWatch'nodeName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_DebugTensorWatch'outputSlot :: Int32
_DebugTensorWatch'outputSlot = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_DebugTensorWatch'debugOps :: Vector Text
_DebugTensorWatch'debugOps = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_DebugTensorWatch'debugUrls :: Vector Text
_DebugTensorWatch'debugUrls = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_DebugTensorWatch'tolerateDebugOpCreationFailures :: Bool
_DebugTensorWatch'tolerateDebugOpCreationFailures = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_DebugTensorWatch'_unknownFields :: FieldSet
_DebugTensorWatch'_unknownFields = []}
parseMessage :: Parser DebugTensorWatch
parseMessage
= let
loop ::
DebugTensorWatch
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
-> Data.ProtoLens.Encoding.Bytes.Parser DebugTensorWatch
loop :: DebugTensorWatch
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Parser DebugTensorWatch
loop x :: DebugTensorWatch
x mutable'debugOps :: Growing Vector RealWorld Text
mutable'debugOps mutable'debugUrls :: Growing Vector RealWorld Text
mutable'debugUrls
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Text
frozen'debugOps <- IO (Vector Text) -> Parser (Vector Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Text -> IO (Vector Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'debugOps)
Vector Text
frozen'debugUrls <- IO (Vector Text) -> Parser (Vector Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Text -> IO (Vector Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'debugUrls)
(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]))))
DebugTensorWatch -> Parser DebugTensorWatch
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter DebugTensorWatch DebugTensorWatch FieldSet FieldSet
-> (FieldSet -> FieldSet) -> DebugTensorWatch -> DebugTensorWatch
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 DebugTensorWatch DebugTensorWatch FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
DebugTensorWatch DebugTensorWatch (Vector Text) (Vector Text)
-> Vector Text -> DebugTensorWatch -> DebugTensorWatch
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'debugOps" a, Functor f) =>
(a -> f a) -> s -> 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'debugOps")
Vector Text
frozen'debugOps
(Setter
DebugTensorWatch DebugTensorWatch (Vector Text) (Vector Text)
-> Vector Text -> DebugTensorWatch -> DebugTensorWatch
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'debugUrls" a, Functor f) =>
(a -> f a) -> s -> 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'debugUrls") Vector Text
frozen'debugUrls DebugTensorWatch
x)))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"node_name"
DebugTensorWatch
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Parser DebugTensorWatch
loop
(Setter DebugTensorWatch DebugTensorWatch Text Text
-> Text -> DebugTensorWatch -> DebugTensorWatch
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "nodeName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodeName") Text
y DebugTensorWatch
x)
Growing Vector RealWorld Text
mutable'debugOps
Growing Vector RealWorld Text
mutable'debugUrls
16
-> 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)
"output_slot"
DebugTensorWatch
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Parser DebugTensorWatch
loop
(Setter DebugTensorWatch DebugTensorWatch Int32 Int32
-> Int32 -> DebugTensorWatch -> DebugTensorWatch
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "outputSlot" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"outputSlot") Int32
y DebugTensorWatch
x)
Growing Vector RealWorld Text
mutable'debugOps
Growing Vector RealWorld Text
mutable'debugUrls
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))
"debug_ops"
Growing Vector RealWorld Text
v <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Text
-> Text -> IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'debugOps Text
y)
DebugTensorWatch
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Parser DebugTensorWatch
loop DebugTensorWatch
x Growing Vector RealWorld Text
v Growing Vector RealWorld Text
mutable'debugUrls
34
-> do !Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"debug_urls"
Growing Vector RealWorld Text
v <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Text
-> Text -> IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'debugUrls Text
y)
DebugTensorWatch
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Parser DebugTensorWatch
loop DebugTensorWatch
x Growing Vector RealWorld Text
mutable'debugOps Growing Vector RealWorld Text
v
40
-> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
(Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"tolerate_debug_op_creation_failures"
DebugTensorWatch
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Parser DebugTensorWatch
loop
(Setter DebugTensorWatch DebugTensorWatch Bool Bool
-> Bool -> DebugTensorWatch -> DebugTensorWatch
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "tolerateDebugOpCreationFailures" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tolerateDebugOpCreationFailures")
Bool
y
DebugTensorWatch
x)
Growing Vector RealWorld Text
mutable'debugOps
Growing Vector RealWorld Text
mutable'debugUrls
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
DebugTensorWatch
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Parser DebugTensorWatch
loop
(Setter DebugTensorWatch DebugTensorWatch FieldSet FieldSet
-> (FieldSet -> FieldSet) -> DebugTensorWatch -> DebugTensorWatch
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 DebugTensorWatch DebugTensorWatch FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) DebugTensorWatch
x)
Growing Vector RealWorld Text
mutable'debugOps
Growing Vector RealWorld Text
mutable'debugUrls
in
Parser DebugTensorWatch -> String -> Parser DebugTensorWatch
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Text
mutable'debugOps <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Text
mutable'debugUrls <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
DebugTensorWatch
-> Growing Vector RealWorld Text
-> Growing Vector RealWorld Text
-> Parser DebugTensorWatch
loop DebugTensorWatch
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Text
mutable'debugOps Growing Vector RealWorld Text
mutable'debugUrls)
"DebugTensorWatch"
buildMessage :: DebugTensorWatch -> Builder
buildMessage
= \ _x :: DebugTensorWatch
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text DebugTensorWatch DebugTensorWatch Text Text
-> DebugTensorWatch -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "nodeName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodeName") DebugTensorWatch
_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 :: Int32
_v
= FoldLike Int32 DebugTensorWatch DebugTensorWatch Int32 Int32
-> DebugTensorWatch -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "outputSlot" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"outputSlot") DebugTensorWatch
_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 16)
((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.<>)
((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: Text
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FoldLike
(Vector Text)
DebugTensorWatch
DebugTensorWatch
(Vector Text)
(Vector Text)
-> DebugTensorWatch -> Vector Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'debugOps" a, Functor f) =>
(a -> f a) -> s -> 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'debugOps") DebugTensorWatch
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: Text
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FoldLike
(Vector Text)
DebugTensorWatch
DebugTensorWatch
(Vector Text)
(Vector Text)
-> DebugTensorWatch -> Vector Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'debugUrls" a, Functor f) =>
(a -> f a) -> s -> 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'debugUrls") DebugTensorWatch
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike Bool DebugTensorWatch DebugTensorWatch Bool Bool
-> DebugTensorWatch -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "tolerateDebugOpCreationFailures" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tolerateDebugOpCreationFailures") DebugTensorWatch
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 40)
((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(\ b :: Bool
b -> if Bool
b then 1 else 0)
Bool
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet DebugTensorWatch DebugTensorWatch FieldSet FieldSet
-> DebugTensorWatch -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet DebugTensorWatch DebugTensorWatch FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields DebugTensorWatch
_x))))))
instance Control.DeepSeq.NFData DebugTensorWatch where
rnf :: DebugTensorWatch -> ()
rnf
= \ x__ :: DebugTensorWatch
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebugTensorWatch -> FieldSet
_DebugTensorWatch'_unknownFields DebugTensorWatch
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebugTensorWatch -> Text
_DebugTensorWatch'nodeName DebugTensorWatch
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebugTensorWatch -> Int32
_DebugTensorWatch'outputSlot DebugTensorWatch
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebugTensorWatch -> Vector Text
_DebugTensorWatch'debugOps DebugTensorWatch
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebugTensorWatch -> Vector Text
_DebugTensorWatch'debugUrls DebugTensorWatch
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebugTensorWatch -> Bool
_DebugTensorWatch'tolerateDebugOpCreationFailures DebugTensorWatch
x__) ())))))
data DebuggedSourceFile
= DebuggedSourceFile'_constructor {DebuggedSourceFile -> Text
_DebuggedSourceFile'host :: !Data.Text.Text,
DebuggedSourceFile -> Text
_DebuggedSourceFile'filePath :: !Data.Text.Text,
DebuggedSourceFile -> Int64
_DebuggedSourceFile'lastModified :: !Data.Int.Int64,
DebuggedSourceFile -> Int64
_DebuggedSourceFile'bytes :: !Data.Int.Int64,
DebuggedSourceFile -> Vector Text
_DebuggedSourceFile'lines :: !(Data.Vector.Vector Data.Text.Text),
DebuggedSourceFile -> FieldSet
_DebuggedSourceFile'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (DebuggedSourceFile -> DebuggedSourceFile -> Bool
(DebuggedSourceFile -> DebuggedSourceFile -> Bool)
-> (DebuggedSourceFile -> DebuggedSourceFile -> Bool)
-> Eq DebuggedSourceFile
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DebuggedSourceFile -> DebuggedSourceFile -> Bool
$c/= :: DebuggedSourceFile -> DebuggedSourceFile -> Bool
== :: DebuggedSourceFile -> DebuggedSourceFile -> Bool
$c== :: DebuggedSourceFile -> DebuggedSourceFile -> Bool
Prelude.Eq, Eq DebuggedSourceFile
Eq DebuggedSourceFile =>
(DebuggedSourceFile -> DebuggedSourceFile -> Ordering)
-> (DebuggedSourceFile -> DebuggedSourceFile -> Bool)
-> (DebuggedSourceFile -> DebuggedSourceFile -> Bool)
-> (DebuggedSourceFile -> DebuggedSourceFile -> Bool)
-> (DebuggedSourceFile -> DebuggedSourceFile -> Bool)
-> (DebuggedSourceFile -> DebuggedSourceFile -> DebuggedSourceFile)
-> (DebuggedSourceFile -> DebuggedSourceFile -> DebuggedSourceFile)
-> Ord DebuggedSourceFile
DebuggedSourceFile -> DebuggedSourceFile -> Bool
DebuggedSourceFile -> DebuggedSourceFile -> Ordering
DebuggedSourceFile -> DebuggedSourceFile -> DebuggedSourceFile
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 :: DebuggedSourceFile -> DebuggedSourceFile -> DebuggedSourceFile
$cmin :: DebuggedSourceFile -> DebuggedSourceFile -> DebuggedSourceFile
max :: DebuggedSourceFile -> DebuggedSourceFile -> DebuggedSourceFile
$cmax :: DebuggedSourceFile -> DebuggedSourceFile -> DebuggedSourceFile
>= :: DebuggedSourceFile -> DebuggedSourceFile -> Bool
$c>= :: DebuggedSourceFile -> DebuggedSourceFile -> Bool
> :: DebuggedSourceFile -> DebuggedSourceFile -> Bool
$c> :: DebuggedSourceFile -> DebuggedSourceFile -> Bool
<= :: DebuggedSourceFile -> DebuggedSourceFile -> Bool
$c<= :: DebuggedSourceFile -> DebuggedSourceFile -> Bool
< :: DebuggedSourceFile -> DebuggedSourceFile -> Bool
$c< :: DebuggedSourceFile -> DebuggedSourceFile -> Bool
compare :: DebuggedSourceFile -> DebuggedSourceFile -> Ordering
$ccompare :: DebuggedSourceFile -> DebuggedSourceFile -> Ordering
$cp1Ord :: Eq DebuggedSourceFile
Prelude.Ord)
instance Prelude.Show DebuggedSourceFile where
showsPrec :: Int -> DebuggedSourceFile -> ShowS
showsPrec _ __x :: DebuggedSourceFile
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(DebuggedSourceFile -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DebuggedSourceFile
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField DebuggedSourceFile "host" Data.Text.Text where
fieldOf :: Proxy# "host"
-> (Text -> f Text) -> DebuggedSourceFile -> f DebuggedSourceFile
fieldOf _
= ((Text -> f Text) -> DebuggedSourceFile -> f DebuggedSourceFile)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DebuggedSourceFile
-> f DebuggedSourceFile
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebuggedSourceFile -> Text)
-> (DebuggedSourceFile -> Text -> DebuggedSourceFile)
-> Lens DebuggedSourceFile DebuggedSourceFile Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebuggedSourceFile -> Text
_DebuggedSourceFile'host
(\ x__ :: DebuggedSourceFile
x__ y__ :: Text
y__ -> DebuggedSourceFile
x__ {_DebuggedSourceFile'host :: Text
_DebuggedSourceFile'host = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DebuggedSourceFile "filePath" Data.Text.Text where
fieldOf :: Proxy# "filePath"
-> (Text -> f Text) -> DebuggedSourceFile -> f DebuggedSourceFile
fieldOf _
= ((Text -> f Text) -> DebuggedSourceFile -> f DebuggedSourceFile)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> DebuggedSourceFile
-> f DebuggedSourceFile
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebuggedSourceFile -> Text)
-> (DebuggedSourceFile -> Text -> DebuggedSourceFile)
-> Lens DebuggedSourceFile DebuggedSourceFile Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebuggedSourceFile -> Text
_DebuggedSourceFile'filePath
(\ x__ :: DebuggedSourceFile
x__ y__ :: Text
y__ -> DebuggedSourceFile
x__ {_DebuggedSourceFile'filePath :: Text
_DebuggedSourceFile'filePath = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DebuggedSourceFile "lastModified" Data.Int.Int64 where
fieldOf :: Proxy# "lastModified"
-> (Int64 -> f Int64) -> DebuggedSourceFile -> f DebuggedSourceFile
fieldOf _
= ((Int64 -> f Int64) -> DebuggedSourceFile -> f DebuggedSourceFile)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> DebuggedSourceFile
-> f DebuggedSourceFile
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebuggedSourceFile -> Int64)
-> (DebuggedSourceFile -> Int64 -> DebuggedSourceFile)
-> Lens DebuggedSourceFile DebuggedSourceFile Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebuggedSourceFile -> Int64
_DebuggedSourceFile'lastModified
(\ x__ :: DebuggedSourceFile
x__ y__ :: Int64
y__ -> DebuggedSourceFile
x__ {_DebuggedSourceFile'lastModified :: Int64
_DebuggedSourceFile'lastModified = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DebuggedSourceFile "bytes" Data.Int.Int64 where
fieldOf :: Proxy# "bytes"
-> (Int64 -> f Int64) -> DebuggedSourceFile -> f DebuggedSourceFile
fieldOf _
= ((Int64 -> f Int64) -> DebuggedSourceFile -> f DebuggedSourceFile)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> DebuggedSourceFile
-> f DebuggedSourceFile
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebuggedSourceFile -> Int64)
-> (DebuggedSourceFile -> Int64 -> DebuggedSourceFile)
-> Lens DebuggedSourceFile DebuggedSourceFile Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebuggedSourceFile -> Int64
_DebuggedSourceFile'bytes
(\ x__ :: DebuggedSourceFile
x__ y__ :: Int64
y__ -> DebuggedSourceFile
x__ {_DebuggedSourceFile'bytes :: Int64
_DebuggedSourceFile'bytes = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField DebuggedSourceFile "lines" [Data.Text.Text] where
fieldOf :: Proxy# "lines"
-> ([Text] -> f [Text])
-> DebuggedSourceFile
-> f DebuggedSourceFile
fieldOf _
= ((Vector Text -> f (Vector Text))
-> DebuggedSourceFile -> f DebuggedSourceFile)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> DebuggedSourceFile
-> f DebuggedSourceFile
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebuggedSourceFile -> Vector Text)
-> (DebuggedSourceFile -> Vector Text -> DebuggedSourceFile)
-> Lens
DebuggedSourceFile DebuggedSourceFile (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebuggedSourceFile -> Vector Text
_DebuggedSourceFile'lines
(\ x__ :: DebuggedSourceFile
x__ y__ :: Vector Text
y__ -> DebuggedSourceFile
x__ {_DebuggedSourceFile'lines :: Vector Text
_DebuggedSourceFile'lines = Vector Text
y__}))
((Vector Text -> [Text])
-> (Vector Text -> [Text] -> Vector Text)
-> Lens (Vector Text) (Vector Text) [Text] [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Text -> [Text]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Text]
y__ -> [Text] -> Vector Text
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Text]
y__))
instance Data.ProtoLens.Field.HasField DebuggedSourceFile "vec'lines" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: Proxy# "vec'lines"
-> (Vector Text -> f (Vector Text))
-> DebuggedSourceFile
-> f DebuggedSourceFile
fieldOf _
= ((Vector Text -> f (Vector Text))
-> DebuggedSourceFile -> f DebuggedSourceFile)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> DebuggedSourceFile
-> f DebuggedSourceFile
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebuggedSourceFile -> Vector Text)
-> (DebuggedSourceFile -> Vector Text -> DebuggedSourceFile)
-> Lens
DebuggedSourceFile DebuggedSourceFile (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebuggedSourceFile -> Vector Text
_DebuggedSourceFile'lines
(\ x__ :: DebuggedSourceFile
x__ y__ :: Vector Text
y__ -> DebuggedSourceFile
x__ {_DebuggedSourceFile'lines :: Vector Text
_DebuggedSourceFile'lines = Vector Text
y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DebuggedSourceFile where
messageName :: Proxy DebuggedSourceFile -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.DebuggedSourceFile"
packedMessageDescriptor :: Proxy DebuggedSourceFile -> ByteString
packedMessageDescriptor _
= "\n\
\\DC2DebuggedSourceFile\DC2\DC2\n\
\\EOThost\CAN\SOH \SOH(\tR\EOThost\DC2\ESC\n\
\\tfile_path\CAN\STX \SOH(\tR\bfilePath\DC2#\n\
\\rlast_modified\CAN\ETX \SOH(\ETXR\flastModified\DC2\DC4\n\
\\ENQbytes\CAN\EOT \SOH(\ETXR\ENQbytes\DC2\DC4\n\
\\ENQlines\CAN\ENQ \ETX(\tR\ENQlines"
packedFileDescriptor :: Proxy DebuggedSourceFile -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor DebuggedSourceFile)
fieldsByTag
= let
host__field_descriptor :: FieldDescriptor DebuggedSourceFile
host__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor DebuggedSourceFile Text
-> FieldDescriptor DebuggedSourceFile
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"host"
(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 DebuggedSourceFile DebuggedSourceFile Text Text
-> FieldAccessor DebuggedSourceFile 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 "host" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"host")) ::
Data.ProtoLens.FieldDescriptor DebuggedSourceFile
filePath__field_descriptor :: FieldDescriptor DebuggedSourceFile
filePath__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor DebuggedSourceFile Text
-> FieldDescriptor DebuggedSourceFile
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"file_path"
(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 DebuggedSourceFile DebuggedSourceFile Text Text
-> FieldAccessor DebuggedSourceFile 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 "filePath" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"filePath")) ::
Data.ProtoLens.FieldDescriptor DebuggedSourceFile
lastModified__field_descriptor :: FieldDescriptor DebuggedSourceFile
lastModified__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor DebuggedSourceFile Int64
-> FieldDescriptor DebuggedSourceFile
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"last_modified"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens DebuggedSourceFile DebuggedSourceFile Int64 Int64
-> FieldAccessor DebuggedSourceFile Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "lastModified" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"lastModified")) ::
Data.ProtoLens.FieldDescriptor DebuggedSourceFile
bytes__field_descriptor :: FieldDescriptor DebuggedSourceFile
bytes__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor DebuggedSourceFile Int64
-> FieldDescriptor DebuggedSourceFile
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"bytes"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens DebuggedSourceFile DebuggedSourceFile Int64 Int64
-> FieldAccessor DebuggedSourceFile Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "bytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"bytes")) ::
Data.ProtoLens.FieldDescriptor DebuggedSourceFile
lines__field_descriptor :: FieldDescriptor DebuggedSourceFile
lines__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor DebuggedSourceFile Text
-> FieldDescriptor DebuggedSourceFile
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"lines"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Packing
-> Lens' DebuggedSourceFile [Text]
-> FieldAccessor DebuggedSourceFile Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "lines" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"lines")) ::
Data.ProtoLens.FieldDescriptor DebuggedSourceFile
in
[(Tag, FieldDescriptor DebuggedSourceFile)]
-> Map Tag (FieldDescriptor DebuggedSourceFile)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor DebuggedSourceFile
host__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor DebuggedSourceFile
filePath__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor DebuggedSourceFile
lastModified__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor DebuggedSourceFile
bytes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor DebuggedSourceFile
lines__field_descriptor)]
unknownFields :: LensLike' f DebuggedSourceFile FieldSet
unknownFields
= (DebuggedSourceFile -> FieldSet)
-> (DebuggedSourceFile -> FieldSet -> DebuggedSourceFile)
-> Lens' DebuggedSourceFile FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebuggedSourceFile -> FieldSet
_DebuggedSourceFile'_unknownFields
(\ x__ :: DebuggedSourceFile
x__ y__ :: FieldSet
y__ -> DebuggedSourceFile
x__ {_DebuggedSourceFile'_unknownFields :: FieldSet
_DebuggedSourceFile'_unknownFields = FieldSet
y__})
defMessage :: DebuggedSourceFile
defMessage
= $WDebuggedSourceFile'_constructor :: Text
-> Text
-> Int64
-> Int64
-> Vector Text
-> FieldSet
-> DebuggedSourceFile
DebuggedSourceFile'_constructor
{_DebuggedSourceFile'host :: Text
_DebuggedSourceFile'host = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_DebuggedSourceFile'filePath :: Text
_DebuggedSourceFile'filePath = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_DebuggedSourceFile'lastModified :: Int64
_DebuggedSourceFile'lastModified = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_DebuggedSourceFile'bytes :: Int64
_DebuggedSourceFile'bytes = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_DebuggedSourceFile'lines :: Vector Text
_DebuggedSourceFile'lines = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_DebuggedSourceFile'_unknownFields :: FieldSet
_DebuggedSourceFile'_unknownFields = []}
parseMessage :: Parser DebuggedSourceFile
parseMessage
= let
loop ::
DebuggedSourceFile
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
-> Data.ProtoLens.Encoding.Bytes.Parser DebuggedSourceFile
loop :: DebuggedSourceFile
-> Growing Vector RealWorld Text -> Parser DebuggedSourceFile
loop x :: DebuggedSourceFile
x mutable'lines :: Growing Vector RealWorld Text
mutable'lines
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Text
frozen'lines <- IO (Vector Text) -> Parser (Vector Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Text -> IO (Vector Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'lines)
(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]))))
DebuggedSourceFile -> Parser DebuggedSourceFile
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter DebuggedSourceFile DebuggedSourceFile FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> DebuggedSourceFile
-> DebuggedSourceFile
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 DebuggedSourceFile DebuggedSourceFile FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
DebuggedSourceFile DebuggedSourceFile (Vector Text) (Vector Text)
-> Vector Text -> DebuggedSourceFile -> DebuggedSourceFile
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'lines" a, Functor f) =>
(a -> f a) -> s -> 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'lines") Vector Text
frozen'lines DebuggedSourceFile
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))
"host"
DebuggedSourceFile
-> Growing Vector RealWorld Text -> Parser DebuggedSourceFile
loop
(Setter DebuggedSourceFile DebuggedSourceFile Text Text
-> Text -> DebuggedSourceFile -> DebuggedSourceFile
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "host" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"host") Text
y DebuggedSourceFile
x)
Growing Vector RealWorld Text
mutable'lines
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))
"file_path"
DebuggedSourceFile
-> Growing Vector RealWorld Text -> Parser DebuggedSourceFile
loop
(Setter DebuggedSourceFile DebuggedSourceFile Text Text
-> Text -> DebuggedSourceFile -> DebuggedSourceFile
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "filePath" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"filePath") Text
y DebuggedSourceFile
x)
Growing Vector RealWorld Text
mutable'lines
24
-> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"last_modified"
DebuggedSourceFile
-> Growing Vector RealWorld Text -> Parser DebuggedSourceFile
loop
(Setter DebuggedSourceFile DebuggedSourceFile Int64 Int64
-> Int64 -> DebuggedSourceFile -> DebuggedSourceFile
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "lastModified" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"lastModified") Int64
y DebuggedSourceFile
x)
Growing Vector RealWorld Text
mutable'lines
32
-> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"bytes"
DebuggedSourceFile
-> Growing Vector RealWorld Text -> Parser DebuggedSourceFile
loop
(Setter DebuggedSourceFile DebuggedSourceFile Int64 Int64
-> Int64 -> DebuggedSourceFile -> DebuggedSourceFile
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "bytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"bytes") Int64
y DebuggedSourceFile
x)
Growing Vector RealWorld Text
mutable'lines
42
-> do !Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"lines"
Growing Vector RealWorld Text
v <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Text
-> Text -> IO (Growing Vector (PrimState IO) Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Text
Growing Vector (PrimState IO) Text
mutable'lines Text
y)
DebuggedSourceFile
-> Growing Vector RealWorld Text -> Parser DebuggedSourceFile
loop DebuggedSourceFile
x Growing Vector RealWorld Text
v
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
DebuggedSourceFile
-> Growing Vector RealWorld Text -> Parser DebuggedSourceFile
loop
(Setter DebuggedSourceFile DebuggedSourceFile FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> DebuggedSourceFile
-> DebuggedSourceFile
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 DebuggedSourceFile DebuggedSourceFile FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) DebuggedSourceFile
x)
Growing Vector RealWorld Text
mutable'lines
in
Parser DebuggedSourceFile -> String -> Parser DebuggedSourceFile
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Text
mutable'lines <- IO (Growing Vector RealWorld Text)
-> Parser (Growing Vector RealWorld Text)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Text)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
DebuggedSourceFile
-> Growing Vector RealWorld Text -> Parser DebuggedSourceFile
loop DebuggedSourceFile
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Text
mutable'lines)
"DebuggedSourceFile"
buildMessage :: DebuggedSourceFile -> Builder
buildMessage
= \ _x :: DebuggedSourceFile
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text DebuggedSourceFile DebuggedSourceFile Text Text
-> DebuggedSourceFile -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "host" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"host") DebuggedSourceFile
_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 DebuggedSourceFile DebuggedSourceFile Text Text
-> DebuggedSourceFile -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "filePath" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"filePath") DebuggedSourceFile
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike Int64 DebuggedSourceFile DebuggedSourceFile Int64 Int64
-> DebuggedSourceFile -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "lastModified" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"lastModified") DebuggedSourceFile
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v = FoldLike Int64 DebuggedSourceFile DebuggedSourceFile Int64 Int64
-> DebuggedSourceFile -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "bytes" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"bytes") DebuggedSourceFile
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 32)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Text -> Builder) -> Vector Text -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: Text
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FoldLike
(Vector Text)
DebuggedSourceFile
DebuggedSourceFile
(Vector Text)
(Vector Text)
-> DebuggedSourceFile -> Vector Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'lines" a, Functor f) =>
(a -> f a) -> s -> 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'lines") DebuggedSourceFile
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet DebuggedSourceFile DebuggedSourceFile FieldSet FieldSet
-> DebuggedSourceFile -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet DebuggedSourceFile DebuggedSourceFile FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields DebuggedSourceFile
_x))))))
instance Control.DeepSeq.NFData DebuggedSourceFile where
rnf :: DebuggedSourceFile -> ()
rnf
= \ x__ :: DebuggedSourceFile
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebuggedSourceFile -> FieldSet
_DebuggedSourceFile'_unknownFields DebuggedSourceFile
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebuggedSourceFile -> Text
_DebuggedSourceFile'host DebuggedSourceFile
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebuggedSourceFile -> Text
_DebuggedSourceFile'filePath DebuggedSourceFile
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebuggedSourceFile -> Int64
_DebuggedSourceFile'lastModified DebuggedSourceFile
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebuggedSourceFile -> Int64
_DebuggedSourceFile'bytes DebuggedSourceFile
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (DebuggedSourceFile -> Vector Text
_DebuggedSourceFile'lines DebuggedSourceFile
x__) ())))))
data DebuggedSourceFiles
= DebuggedSourceFiles'_constructor {DebuggedSourceFiles -> Vector DebuggedSourceFile
_DebuggedSourceFiles'sourceFiles :: !(Data.Vector.Vector DebuggedSourceFile),
DebuggedSourceFiles -> FieldSet
_DebuggedSourceFiles'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (DebuggedSourceFiles -> DebuggedSourceFiles -> Bool
(DebuggedSourceFiles -> DebuggedSourceFiles -> Bool)
-> (DebuggedSourceFiles -> DebuggedSourceFiles -> Bool)
-> Eq DebuggedSourceFiles
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DebuggedSourceFiles -> DebuggedSourceFiles -> Bool
$c/= :: DebuggedSourceFiles -> DebuggedSourceFiles -> Bool
== :: DebuggedSourceFiles -> DebuggedSourceFiles -> Bool
$c== :: DebuggedSourceFiles -> DebuggedSourceFiles -> Bool
Prelude.Eq, Eq DebuggedSourceFiles
Eq DebuggedSourceFiles =>
(DebuggedSourceFiles -> DebuggedSourceFiles -> Ordering)
-> (DebuggedSourceFiles -> DebuggedSourceFiles -> Bool)
-> (DebuggedSourceFiles -> DebuggedSourceFiles -> Bool)
-> (DebuggedSourceFiles -> DebuggedSourceFiles -> Bool)
-> (DebuggedSourceFiles -> DebuggedSourceFiles -> Bool)
-> (DebuggedSourceFiles
-> DebuggedSourceFiles -> DebuggedSourceFiles)
-> (DebuggedSourceFiles
-> DebuggedSourceFiles -> DebuggedSourceFiles)
-> Ord DebuggedSourceFiles
DebuggedSourceFiles -> DebuggedSourceFiles -> Bool
DebuggedSourceFiles -> DebuggedSourceFiles -> Ordering
DebuggedSourceFiles -> DebuggedSourceFiles -> DebuggedSourceFiles
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 :: DebuggedSourceFiles -> DebuggedSourceFiles -> DebuggedSourceFiles
$cmin :: DebuggedSourceFiles -> DebuggedSourceFiles -> DebuggedSourceFiles
max :: DebuggedSourceFiles -> DebuggedSourceFiles -> DebuggedSourceFiles
$cmax :: DebuggedSourceFiles -> DebuggedSourceFiles -> DebuggedSourceFiles
>= :: DebuggedSourceFiles -> DebuggedSourceFiles -> Bool
$c>= :: DebuggedSourceFiles -> DebuggedSourceFiles -> Bool
> :: DebuggedSourceFiles -> DebuggedSourceFiles -> Bool
$c> :: DebuggedSourceFiles -> DebuggedSourceFiles -> Bool
<= :: DebuggedSourceFiles -> DebuggedSourceFiles -> Bool
$c<= :: DebuggedSourceFiles -> DebuggedSourceFiles -> Bool
< :: DebuggedSourceFiles -> DebuggedSourceFiles -> Bool
$c< :: DebuggedSourceFiles -> DebuggedSourceFiles -> Bool
compare :: DebuggedSourceFiles -> DebuggedSourceFiles -> Ordering
$ccompare :: DebuggedSourceFiles -> DebuggedSourceFiles -> Ordering
$cp1Ord :: Eq DebuggedSourceFiles
Prelude.Ord)
instance Prelude.Show DebuggedSourceFiles where
showsPrec :: Int -> DebuggedSourceFiles -> ShowS
showsPrec _ __x :: DebuggedSourceFiles
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(DebuggedSourceFiles -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort DebuggedSourceFiles
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField DebuggedSourceFiles "sourceFiles" [DebuggedSourceFile] where
fieldOf :: Proxy# "sourceFiles"
-> ([DebuggedSourceFile] -> f [DebuggedSourceFile])
-> DebuggedSourceFiles
-> f DebuggedSourceFiles
fieldOf _
= ((Vector DebuggedSourceFile -> f (Vector DebuggedSourceFile))
-> DebuggedSourceFiles -> f DebuggedSourceFiles)
-> (([DebuggedSourceFile] -> f [DebuggedSourceFile])
-> Vector DebuggedSourceFile -> f (Vector DebuggedSourceFile))
-> ([DebuggedSourceFile] -> f [DebuggedSourceFile])
-> DebuggedSourceFiles
-> f DebuggedSourceFiles
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebuggedSourceFiles -> Vector DebuggedSourceFile)
-> (DebuggedSourceFiles
-> Vector DebuggedSourceFile -> DebuggedSourceFiles)
-> Lens
DebuggedSourceFiles
DebuggedSourceFiles
(Vector DebuggedSourceFile)
(Vector DebuggedSourceFile)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebuggedSourceFiles -> Vector DebuggedSourceFile
_DebuggedSourceFiles'sourceFiles
(\ x__ :: DebuggedSourceFiles
x__ y__ :: Vector DebuggedSourceFile
y__ -> DebuggedSourceFiles
x__ {_DebuggedSourceFiles'sourceFiles :: Vector DebuggedSourceFile
_DebuggedSourceFiles'sourceFiles = Vector DebuggedSourceFile
y__}))
((Vector DebuggedSourceFile -> [DebuggedSourceFile])
-> (Vector DebuggedSourceFile
-> [DebuggedSourceFile] -> Vector DebuggedSourceFile)
-> Lens
(Vector DebuggedSourceFile)
(Vector DebuggedSourceFile)
[DebuggedSourceFile]
[DebuggedSourceFile]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector DebuggedSourceFile -> [DebuggedSourceFile]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [DebuggedSourceFile]
y__ -> [DebuggedSourceFile] -> Vector DebuggedSourceFile
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [DebuggedSourceFile]
y__))
instance Data.ProtoLens.Field.HasField DebuggedSourceFiles "vec'sourceFiles" (Data.Vector.Vector DebuggedSourceFile) where
fieldOf :: Proxy# "vec'sourceFiles"
-> (Vector DebuggedSourceFile -> f (Vector DebuggedSourceFile))
-> DebuggedSourceFiles
-> f DebuggedSourceFiles
fieldOf _
= ((Vector DebuggedSourceFile -> f (Vector DebuggedSourceFile))
-> DebuggedSourceFiles -> f DebuggedSourceFiles)
-> ((Vector DebuggedSourceFile -> f (Vector DebuggedSourceFile))
-> Vector DebuggedSourceFile -> f (Vector DebuggedSourceFile))
-> (Vector DebuggedSourceFile -> f (Vector DebuggedSourceFile))
-> DebuggedSourceFiles
-> f DebuggedSourceFiles
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((DebuggedSourceFiles -> Vector DebuggedSourceFile)
-> (DebuggedSourceFiles
-> Vector DebuggedSourceFile -> DebuggedSourceFiles)
-> Lens
DebuggedSourceFiles
DebuggedSourceFiles
(Vector DebuggedSourceFile)
(Vector DebuggedSourceFile)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebuggedSourceFiles -> Vector DebuggedSourceFile
_DebuggedSourceFiles'sourceFiles
(\ x__ :: DebuggedSourceFiles
x__ y__ :: Vector DebuggedSourceFile
y__ -> DebuggedSourceFiles
x__ {_DebuggedSourceFiles'sourceFiles :: Vector DebuggedSourceFile
_DebuggedSourceFiles'sourceFiles = Vector DebuggedSourceFile
y__}))
(Vector DebuggedSourceFile -> f (Vector DebuggedSourceFile))
-> Vector DebuggedSourceFile -> f (Vector DebuggedSourceFile)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message DebuggedSourceFiles where
messageName :: Proxy DebuggedSourceFiles -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.DebuggedSourceFiles"
packedMessageDescriptor :: Proxy DebuggedSourceFiles -> ByteString
packedMessageDescriptor _
= "\n\
\\DC3DebuggedSourceFiles\DC2A\n\
\\fsource_files\CAN\SOH \ETX(\v2\RS.tensorflow.DebuggedSourceFileR\vsourceFiles"
packedFileDescriptor :: Proxy DebuggedSourceFiles -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor DebuggedSourceFiles)
fieldsByTag
= let
sourceFiles__field_descriptor :: FieldDescriptor DebuggedSourceFiles
sourceFiles__field_descriptor
= String
-> FieldTypeDescriptor DebuggedSourceFile
-> FieldAccessor DebuggedSourceFiles DebuggedSourceFile
-> FieldDescriptor DebuggedSourceFiles
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"source_files"
(MessageOrGroup -> FieldTypeDescriptor DebuggedSourceFile
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor DebuggedSourceFile)
(Packing
-> Lens' DebuggedSourceFiles [DebuggedSourceFile]
-> FieldAccessor DebuggedSourceFiles DebuggedSourceFile
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "sourceFiles" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"sourceFiles")) ::
Data.ProtoLens.FieldDescriptor DebuggedSourceFiles
in
[(Tag, FieldDescriptor DebuggedSourceFiles)]
-> Map Tag (FieldDescriptor DebuggedSourceFiles)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor DebuggedSourceFiles
sourceFiles__field_descriptor)]
unknownFields :: LensLike' f DebuggedSourceFiles FieldSet
unknownFields
= (DebuggedSourceFiles -> FieldSet)
-> (DebuggedSourceFiles -> FieldSet -> DebuggedSourceFiles)
-> Lens' DebuggedSourceFiles FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
DebuggedSourceFiles -> FieldSet
_DebuggedSourceFiles'_unknownFields
(\ x__ :: DebuggedSourceFiles
x__ y__ :: FieldSet
y__ -> DebuggedSourceFiles
x__ {_DebuggedSourceFiles'_unknownFields :: FieldSet
_DebuggedSourceFiles'_unknownFields = FieldSet
y__})
defMessage :: DebuggedSourceFiles
defMessage
= $WDebuggedSourceFiles'_constructor :: Vector DebuggedSourceFile -> FieldSet -> DebuggedSourceFiles
DebuggedSourceFiles'_constructor
{_DebuggedSourceFiles'sourceFiles :: Vector DebuggedSourceFile
_DebuggedSourceFiles'sourceFiles = Vector DebuggedSourceFile
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_DebuggedSourceFiles'_unknownFields :: FieldSet
_DebuggedSourceFiles'_unknownFields = []}
parseMessage :: Parser DebuggedSourceFiles
parseMessage
= let
loop ::
DebuggedSourceFiles
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld DebuggedSourceFile
-> Data.ProtoLens.Encoding.Bytes.Parser DebuggedSourceFiles
loop :: DebuggedSourceFiles
-> Growing Vector RealWorld DebuggedSourceFile
-> Parser DebuggedSourceFiles
loop x :: DebuggedSourceFiles
x mutable'sourceFiles :: Growing Vector RealWorld DebuggedSourceFile
mutable'sourceFiles
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector DebuggedSourceFile
frozen'sourceFiles <- IO (Vector DebuggedSourceFile)
-> Parser (Vector DebuggedSourceFile)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) DebuggedSourceFile
-> IO (Vector DebuggedSourceFile)
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 DebuggedSourceFile
Growing Vector (PrimState IO) DebuggedSourceFile
mutable'sourceFiles)
(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]))))
DebuggedSourceFiles -> Parser DebuggedSourceFiles
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter DebuggedSourceFiles DebuggedSourceFiles FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> DebuggedSourceFiles
-> DebuggedSourceFiles
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 DebuggedSourceFiles DebuggedSourceFiles FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
DebuggedSourceFiles
DebuggedSourceFiles
(Vector DebuggedSourceFile)
(Vector DebuggedSourceFile)
-> Vector DebuggedSourceFile
-> DebuggedSourceFiles
-> DebuggedSourceFiles
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'sourceFiles" a, Functor f) =>
(a -> f a) -> s -> 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'sourceFiles")
Vector DebuggedSourceFile
frozen'sourceFiles
DebuggedSourceFiles
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do !DebuggedSourceFile
y <- Parser DebuggedSourceFile -> String -> Parser DebuggedSourceFile
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser DebuggedSourceFile -> Parser DebuggedSourceFile
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 DebuggedSourceFile
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"source_files"
Growing Vector RealWorld DebuggedSourceFile
v <- IO (Growing Vector RealWorld DebuggedSourceFile)
-> Parser (Growing Vector RealWorld DebuggedSourceFile)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) DebuggedSourceFile
-> DebuggedSourceFile
-> IO (Growing Vector (PrimState IO) DebuggedSourceFile)
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 DebuggedSourceFile
Growing Vector (PrimState IO) DebuggedSourceFile
mutable'sourceFiles DebuggedSourceFile
y)
DebuggedSourceFiles
-> Growing Vector RealWorld DebuggedSourceFile
-> Parser DebuggedSourceFiles
loop DebuggedSourceFiles
x Growing Vector RealWorld DebuggedSourceFile
v
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
DebuggedSourceFiles
-> Growing Vector RealWorld DebuggedSourceFile
-> Parser DebuggedSourceFiles
loop
(Setter DebuggedSourceFiles DebuggedSourceFiles FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> DebuggedSourceFiles
-> DebuggedSourceFiles
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 DebuggedSourceFiles DebuggedSourceFiles FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) DebuggedSourceFiles
x)
Growing Vector RealWorld DebuggedSourceFile
mutable'sourceFiles
in
Parser DebuggedSourceFiles -> String -> Parser DebuggedSourceFiles
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld DebuggedSourceFile
mutable'sourceFiles <- IO (Growing Vector RealWorld DebuggedSourceFile)
-> Parser (Growing Vector RealWorld DebuggedSourceFile)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld DebuggedSourceFile)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
DebuggedSourceFiles
-> Growing Vector RealWorld DebuggedSourceFile
-> Parser DebuggedSourceFiles
loop DebuggedSourceFiles
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld DebuggedSourceFile
mutable'sourceFiles)
"DebuggedSourceFiles"
buildMessage :: DebuggedSourceFiles -> Builder
buildMessage
= \ _x :: DebuggedSourceFiles
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((DebuggedSourceFile -> Builder)
-> Vector DebuggedSourceFile -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: DebuggedSourceFile
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (DebuggedSourceFile -> ByteString)
-> DebuggedSourceFile
-> 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))
DebuggedSourceFile -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
DebuggedSourceFile
_v))
(FoldLike
(Vector DebuggedSourceFile)
DebuggedSourceFiles
DebuggedSourceFiles
(Vector DebuggedSourceFile)
(Vector DebuggedSourceFile)
-> DebuggedSourceFiles -> Vector DebuggedSourceFile
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'sourceFiles" a, Functor f) =>
(a -> f a) -> s -> 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'sourceFiles") DebuggedSourceFiles
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet DebuggedSourceFiles DebuggedSourceFiles FieldSet FieldSet
-> DebuggedSourceFiles -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet DebuggedSourceFiles DebuggedSourceFiles FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields DebuggedSourceFiles
_x))
instance Control.DeepSeq.NFData DebuggedSourceFiles where
rnf :: DebuggedSourceFiles -> ()
rnf
= \ x__ :: DebuggedSourceFiles
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(DebuggedSourceFiles -> FieldSet
_DebuggedSourceFiles'_unknownFields DebuggedSourceFiles
x__)
(Vector DebuggedSourceFile -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (DebuggedSourceFiles -> Vector DebuggedSourceFile
_DebuggedSourceFiles'sourceFiles DebuggedSourceFiles
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= "\n\
\$tensorflow/core/protobuf/debug.proto\DC2\n\
\tensorflow\"\218\SOH\n\
\\DLEDebugTensorWatch\DC2\ESC\n\
\\tnode_name\CAN\SOH \SOH(\tR\bnodeName\DC2\US\n\
\\voutput_slot\CAN\STX \SOH(\ENQR\n\
\outputSlot\DC2\ESC\n\
\\tdebug_ops\CAN\ETX \ETX(\tR\bdebugOps\DC2\GS\n\
\\n\
\debug_urls\CAN\EOT \ETX(\tR\tdebugUrls\DC2L\n\
\#tolerate_debug_op_creation_failures\CAN\ENQ \SOH(\bR\UStolerateDebugOpCreationFailures\"\183\SOH\n\
\\fDebugOptions\DC2S\n\
\\ETBdebug_tensor_watch_opts\CAN\EOT \ETX(\v2\FS.tensorflow.DebugTensorWatchR\DC4debugTensorWatchOpts\DC2\US\n\
\\vglobal_step\CAN\n\
\ \SOH(\ETXR\n\
\globalStep\DC21\n\
\\NAKreset_disk_byte_usage\CAN\v \SOH(\bR\DC2resetDiskByteUsage\"\150\SOH\n\
\\DC2DebuggedSourceFile\DC2\DC2\n\
\\EOThost\CAN\SOH \SOH(\tR\EOThost\DC2\ESC\n\
\\tfile_path\CAN\STX \SOH(\tR\bfilePath\DC2#\n\
\\rlast_modified\CAN\ETX \SOH(\ETXR\flastModified\DC2\DC4\n\
\\ENQbytes\CAN\EOT \SOH(\ETXR\ENQbytes\DC2\DC4\n\
\\ENQlines\CAN\ENQ \ETX(\tR\ENQlines\"X\n\
\\DC3DebuggedSourceFiles\DC2A\n\
\\fsource_files\CAN\SOH \ETX(\v2\RS.tensorflow.DebuggedSourceFileR\vsourceFilesBv\n\
\\CANorg.tensorflow.frameworkB\vDebugProtosP\SOHZHgithub.com/tensorflow/tensorflow/tensorflow/go/core/core_protos_go_proto\248\SOH\SOHJ\192\SUB\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\b\DC2\ETX\ENQ\NUL,\n\
\\b\n\
\\SOH\b\DC2\ETX\ACK\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\ACK\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\a\NUL1\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\a\NUL1\n\
\\b\n\
\\SOH\b\DC2\ETX\b\NUL_\n\
\\t\n\
\\STX\b\v\DC2\ETX\b\NUL_\n\
\H\n\
\\STX\EOT\NUL\DC2\EOT\v\NUL6\SOH\SUB< Option for watching a node in TensorFlow Debugger (tfdbg).\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\v\b\CAN\n\
\y\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\SI\STX\ETB\SUBl Name of the node to watch.\n\
\ Use \"*\" for wildcard. But note: currently, regex is not supported in\n\
\ general.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX\SI\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\SI\t\DC2\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\SI\NAK\SYN\n\
\\228\SOH\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX\SYN\STX\CAN\SUB\214\SOH Output slot to watch.\n\
\ The semantics of output_slot == -1 is that all outputs of the node\n\
\ will be watched (i.e., a wildcard).\n\
\ Other negative values of output_slot are invalid and will lead to\n\
\ errors currently.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\SYN\STX\a\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\SYN\b\DC3\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\SYN\SYN\ETB\n\
\\130\SOH\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX\ESC\STX \SUBu Name(s) of the debugging op(s).\n\
\ One or more than one probes on a tensor.\n\
\ e.g., {\"DebugIdentity\", \"DebugNanCount\"}\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\EOT\DC2\ETX\ESC\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\ESC\v\DC1\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\ESC\DC2\ESC\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\ESC\RS\US\n\
\\203\a\n\
\\EOT\EOT\NUL\STX\ETX\DC2\ETX1\STX!\SUB\189\a URL(s) for debug targets(s).\n\
\\n\
\ Supported URL formats are:\n\
\ - file:///foo/tfdbg_dump: Writes out Event content to file\n\
\ /foo/tfdbg_dump. Assumes all directories can be created if they don't\n\
\ already exist.\n\
\ - grpc://localhost:11011: Sends an RPC request to an EventListener\n\
\ service running at localhost:11011 with the event.\n\
\ - memcbk:///event_key: Routes tensors to clients using the\n\
\ callback registered with the DebugCallbackRegistry for event_key.\n\
\\n\
\ Each debug op listed in debug_ops will publish its output tensor (debug\n\
\ signal) to all URLs in debug_urls.\n\
\\n\
\ N.B. Session::Run() supports concurrent invocations of the same inputs\n\
\ (feed keys), outputs and target nodes. If such concurrent invocations\n\
\ are to be debugged, the callers of Session::Run() must use distinct\n\
\ debug_urls to make sure that the streamed or dumped events do not overlap\n\
\ among the invocations.\n\
\ TODO(cais): More visible documentation of this in g3docs.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\EOT\DC2\ETX1\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETX1\v\DC1\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX1\DC2\FS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX1\US \n\
\\128\SOH\n\
\\EOT\EOT\NUL\STX\EOT\DC2\ETX5\STX/\SUBs Do not error out if debug op creation fails (e.g., due to dtype\n\
\ incompatibility). Instead, just log the failure.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ENQ\DC2\ETX5\STX\ACK\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX5\a*\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX5-.\n\
\T\n\
\\STX\EOT\SOH\DC2\EOT9\NULG\SOH\SUBH Options for initializing DebuggerState in TensorFlow Debugger (tfdbg).\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX9\b\DC4\n\
\ \n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX;\STX8\SUB\DC3 Debugging options\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\EOT\DC2\ETX;\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX;\v\ESC\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX;\FS3\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX;67\n\
\\135\SOH\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX@\STX\EM\SUBz Caller-specified global step count.\n\
\ Note that this is distinct from the session run count and the executor\n\
\ step count.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX@\STX\a\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX@\b\DC3\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX@\SYN\CAN\n\
\\128\STX\n\
\\EOT\EOT\SOH\STX\STX\DC2\ETXF\STX\"\SUB\242\SOH Whether the total disk usage of tfdbg is to be reset to zero\n\
\ in this Session.run call. This is used by wrappers and hooks\n\
\ such as the local CLI ones to indicate that the dumped tensors\n\
\ are cleaned up from the disk after each Session.run.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ENQ\DC2\ETXF\STX\ACK\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETXF\a\FS\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETXF\US!\n\
\\n\
\\n\
\\STX\EOT\STX\DC2\EOTI\NULX\SOH\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETXI\b\SUB\n\
\D\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETXK\STX\DC2\SUB7 The host name on which a source code file is located.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETXK\STX\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETXK\t\r\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETXK\DLE\DC1\n\
\,\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETXN\STX\ETB\SUB\US Path to the source code file.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ENQ\DC2\ETXN\STX\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETXN\t\DC2\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETXN\NAK\SYN\n\
\L\n\
\\EOT\EOT\STX\STX\STX\DC2\ETXQ\STX\SUB\SUB? The timestamp at which the source code file is last modified.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ENQ\DC2\ETXQ\STX\a\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\SOH\DC2\ETXQ\b\NAK\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ETX\DC2\ETXQ\CAN\EM\n\
\%\n\
\\EOT\EOT\STX\STX\ETX\DC2\ETXT\STX\DC2\SUB\CAN Byte size of the file.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\ENQ\DC2\ETXT\STX\a\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\SOH\DC2\ETXT\b\r\n\
\\f\n\
\\ENQ\EOT\STX\STX\ETX\ETX\DC2\ETXT\DLE\DC1\n\
\<\n\
\\EOT\EOT\STX\STX\EOT\DC2\ETXW\STX\FS\SUB/ Line-by-line content of the source code file.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\EOT\EOT\DC2\ETXW\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\EOT\ENQ\DC2\ETXW\v\DC1\n\
\\f\n\
\\ENQ\EOT\STX\STX\EOT\SOH\DC2\ETXW\DC2\ETB\n\
\\f\n\
\\ENQ\EOT\STX\STX\EOT\ETX\DC2\ETXW\SUB\ESC\n\
\\n\
\\n\
\\STX\EOT\ETX\DC2\EOTZ\NUL]\SOH\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETXZ\b\ESC\n\
\1\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETX\\\STX/\SUB$ A collection of source code files.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\EOT\DC2\ETX\\\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX\\\v\GS\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\\\RS*\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\\-.b\ACKproto3"