{- This file was auto-generated from tensorflow/core/protobuf/debug.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Tensorflow.Core.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
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.debugTensorWatchOpts' @:: Lens' DebugOptions [DebugTensorWatch]@
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.vec'debugTensorWatchOpts' @:: Lens' DebugOptions (Data.Vector.Vector DebugTensorWatch)@
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.globalStep' @:: Lens' DebugOptions Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.resetDiskByteUsage' @:: Lens' DebugOptions Prelude.Bool@ -}
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__) ())))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.nodeName' @:: Lens' DebugTensorWatch Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.outputSlot' @:: Lens' DebugTensorWatch Data.Int.Int32@
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.debugOps' @:: Lens' DebugTensorWatch [Data.Text.Text]@
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.vec'debugOps' @:: Lens' DebugTensorWatch (Data.Vector.Vector Data.Text.Text)@
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.debugUrls' @:: Lens' DebugTensorWatch [Data.Text.Text]@
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.vec'debugUrls' @:: Lens' DebugTensorWatch (Data.Vector.Vector Data.Text.Text)@
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.tolerateDebugOpCreationFailures' @:: Lens' DebugTensorWatch Prelude.Bool@ -}
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__) ())))))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.host' @:: Lens' DebuggedSourceFile Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.filePath' @:: Lens' DebuggedSourceFile Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.lastModified' @:: Lens' DebuggedSourceFile Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.bytes' @:: Lens' DebuggedSourceFile Data.Int.Int64@
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.lines' @:: Lens' DebuggedSourceFile [Data.Text.Text]@
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.vec'lines' @:: Lens' DebuggedSourceFile (Data.Vector.Vector Data.Text.Text)@ -}
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__) ())))))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.sourceFiles' @:: Lens' DebuggedSourceFiles [DebuggedSourceFile]@
         * 'Proto.Tensorflow.Core.Protobuf.Debug_Fields.vec'sourceFiles' @:: Lens' DebuggedSourceFiles (Data.Vector.Vector DebuggedSourceFile)@ -}
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"