{- This file was auto-generated from tensorflow/core/protobuf/cluster.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.Cluster (
        ClusterDef(), JobDef(), JobDef'TasksEntry()
    ) 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.Cluster_Fields.job' @:: Lens' ClusterDef [JobDef]@
         * 'Proto.Tensorflow.Core.Protobuf.Cluster_Fields.vec'job' @:: Lens' ClusterDef (Data.Vector.Vector JobDef)@ -}
data ClusterDef
  = ClusterDef'_constructor {ClusterDef -> Vector JobDef
_ClusterDef'job :: !(Data.Vector.Vector JobDef),
                             ClusterDef -> FieldSet
_ClusterDef'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ClusterDef -> ClusterDef -> Bool
(ClusterDef -> ClusterDef -> Bool)
-> (ClusterDef -> ClusterDef -> Bool) -> Eq ClusterDef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ClusterDef -> ClusterDef -> Bool
$c/= :: ClusterDef -> ClusterDef -> Bool
== :: ClusterDef -> ClusterDef -> Bool
$c== :: ClusterDef -> ClusterDef -> Bool
Prelude.Eq, Eq ClusterDef
Eq ClusterDef =>
(ClusterDef -> ClusterDef -> Ordering)
-> (ClusterDef -> ClusterDef -> Bool)
-> (ClusterDef -> ClusterDef -> Bool)
-> (ClusterDef -> ClusterDef -> Bool)
-> (ClusterDef -> ClusterDef -> Bool)
-> (ClusterDef -> ClusterDef -> ClusterDef)
-> (ClusterDef -> ClusterDef -> ClusterDef)
-> Ord ClusterDef
ClusterDef -> ClusterDef -> Bool
ClusterDef -> ClusterDef -> Ordering
ClusterDef -> ClusterDef -> ClusterDef
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 :: ClusterDef -> ClusterDef -> ClusterDef
$cmin :: ClusterDef -> ClusterDef -> ClusterDef
max :: ClusterDef -> ClusterDef -> ClusterDef
$cmax :: ClusterDef -> ClusterDef -> ClusterDef
>= :: ClusterDef -> ClusterDef -> Bool
$c>= :: ClusterDef -> ClusterDef -> Bool
> :: ClusterDef -> ClusterDef -> Bool
$c> :: ClusterDef -> ClusterDef -> Bool
<= :: ClusterDef -> ClusterDef -> Bool
$c<= :: ClusterDef -> ClusterDef -> Bool
< :: ClusterDef -> ClusterDef -> Bool
$c< :: ClusterDef -> ClusterDef -> Bool
compare :: ClusterDef -> ClusterDef -> Ordering
$ccompare :: ClusterDef -> ClusterDef -> Ordering
$cp1Ord :: Eq ClusterDef
Prelude.Ord)
instance Prelude.Show ClusterDef where
  showsPrec :: Int -> ClusterDef -> ShowS
showsPrec _ __x :: ClusterDef
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (ClusterDef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ClusterDef
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField ClusterDef "job" [JobDef] where
  fieldOf :: Proxy# "job"
-> ([JobDef] -> f [JobDef]) -> ClusterDef -> f ClusterDef
fieldOf _
    = ((Vector JobDef -> f (Vector JobDef))
 -> ClusterDef -> f ClusterDef)
-> (([JobDef] -> f [JobDef]) -> Vector JobDef -> f (Vector JobDef))
-> ([JobDef] -> f [JobDef])
-> ClusterDef
-> f ClusterDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClusterDef -> Vector JobDef)
-> (ClusterDef -> Vector JobDef -> ClusterDef)
-> Lens ClusterDef ClusterDef (Vector JobDef) (Vector JobDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClusterDef -> Vector JobDef
_ClusterDef'job (\ x__ :: ClusterDef
x__ y__ :: Vector JobDef
y__ -> ClusterDef
x__ {_ClusterDef'job :: Vector JobDef
_ClusterDef'job = Vector JobDef
y__}))
        ((Vector JobDef -> [JobDef])
-> (Vector JobDef -> [JobDef] -> Vector JobDef)
-> Lens (Vector JobDef) (Vector JobDef) [JobDef] [JobDef]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector JobDef -> [JobDef]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [JobDef]
y__ -> [JobDef] -> Vector JobDef
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [JobDef]
y__))
instance Data.ProtoLens.Field.HasField ClusterDef "vec'job" (Data.Vector.Vector JobDef) where
  fieldOf :: Proxy# "vec'job"
-> (Vector JobDef -> f (Vector JobDef))
-> ClusterDef
-> f ClusterDef
fieldOf _
    = ((Vector JobDef -> f (Vector JobDef))
 -> ClusterDef -> f ClusterDef)
-> ((Vector JobDef -> f (Vector JobDef))
    -> Vector JobDef -> f (Vector JobDef))
-> (Vector JobDef -> f (Vector JobDef))
-> ClusterDef
-> f ClusterDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClusterDef -> Vector JobDef)
-> (ClusterDef -> Vector JobDef -> ClusterDef)
-> Lens ClusterDef ClusterDef (Vector JobDef) (Vector JobDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClusterDef -> Vector JobDef
_ClusterDef'job (\ x__ :: ClusterDef
x__ y__ :: Vector JobDef
y__ -> ClusterDef
x__ {_ClusterDef'job :: Vector JobDef
_ClusterDef'job = Vector JobDef
y__}))
        (Vector JobDef -> f (Vector JobDef))
-> Vector JobDef -> f (Vector JobDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ClusterDef where
  messageName :: Proxy ClusterDef -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.ClusterDef"
  packedMessageDescriptor :: Proxy ClusterDef -> ByteString
packedMessageDescriptor _
    = "\n\
      \\n\
      \ClusterDef\DC2$\n\
      \\ETXjob\CAN\SOH \ETX(\v2\DC2.tensorflow.JobDefR\ETXjob"
  packedFileDescriptor :: Proxy ClusterDef -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ClusterDef)
fieldsByTag
    = let
        job__field_descriptor :: FieldDescriptor ClusterDef
job__field_descriptor
          = String
-> FieldTypeDescriptor JobDef
-> FieldAccessor ClusterDef JobDef
-> FieldDescriptor ClusterDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "job"
              (MessageOrGroup -> FieldTypeDescriptor JobDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor JobDef)
              (Packing
-> Lens' ClusterDef [JobDef] -> FieldAccessor ClusterDef JobDef
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "job" 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 @"job")) ::
              Data.ProtoLens.FieldDescriptor ClusterDef
      in
        [(Tag, FieldDescriptor ClusterDef)]
-> Map Tag (FieldDescriptor ClusterDef)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor ClusterDef
job__field_descriptor)]
  unknownFields :: LensLike' f ClusterDef FieldSet
unknownFields
    = (ClusterDef -> FieldSet)
-> (ClusterDef -> FieldSet -> ClusterDef)
-> Lens' ClusterDef FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ClusterDef -> FieldSet
_ClusterDef'_unknownFields
        (\ x__ :: ClusterDef
x__ y__ :: FieldSet
y__ -> ClusterDef
x__ {_ClusterDef'_unknownFields :: FieldSet
_ClusterDef'_unknownFields = FieldSet
y__})
  defMessage :: ClusterDef
defMessage
    = $WClusterDef'_constructor :: Vector JobDef -> FieldSet -> ClusterDef
ClusterDef'_constructor
        {_ClusterDef'job :: Vector JobDef
_ClusterDef'job = Vector JobDef
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ClusterDef'_unknownFields :: FieldSet
_ClusterDef'_unknownFields = []}
  parseMessage :: Parser ClusterDef
parseMessage
    = let
        loop ::
          ClusterDef
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld JobDef
             -> Data.ProtoLens.Encoding.Bytes.Parser ClusterDef
        loop :: ClusterDef -> Growing Vector RealWorld JobDef -> Parser ClusterDef
loop x :: ClusterDef
x mutable'job :: Growing Vector RealWorld JobDef
mutable'job
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector JobDef
frozen'job <- IO (Vector JobDef) -> Parser (Vector JobDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                      (Growing Vector (PrimState IO) JobDef -> IO (Vector JobDef)
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 JobDef
Growing Vector (PrimState IO) JobDef
mutable'job)
                      (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]))))
                      ClusterDef -> Parser ClusterDef
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter ClusterDef ClusterDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ClusterDef -> ClusterDef
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 ClusterDef ClusterDef FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter ClusterDef ClusterDef (Vector JobDef) (Vector JobDef)
-> Vector JobDef -> ClusterDef -> ClusterDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'job" 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'job") Vector JobDef
frozen'job ClusterDef
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !JobDef
y <- Parser JobDef -> String -> Parser JobDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser JobDef -> Parser JobDef
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 JobDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "job"
                                Growing Vector RealWorld JobDef
v <- IO (Growing Vector RealWorld JobDef)
-> Parser (Growing Vector RealWorld JobDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) JobDef
-> JobDef -> IO (Growing Vector (PrimState IO) JobDef)
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 JobDef
Growing Vector (PrimState IO) JobDef
mutable'job JobDef
y)
                                ClusterDef -> Growing Vector RealWorld JobDef -> Parser ClusterDef
loop ClusterDef
x Growing Vector RealWorld JobDef
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ClusterDef -> Growing Vector RealWorld JobDef -> Parser ClusterDef
loop
                                  (Setter ClusterDef ClusterDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> ClusterDef -> ClusterDef
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 ClusterDef ClusterDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ClusterDef
x)
                                  Growing Vector RealWorld JobDef
mutable'job
      in
        Parser ClusterDef -> String -> Parser ClusterDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld JobDef
mutable'job <- IO (Growing Vector RealWorld JobDef)
-> Parser (Growing Vector RealWorld JobDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                               IO (Growing Vector RealWorld JobDef)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              ClusterDef -> Growing Vector RealWorld JobDef -> Parser ClusterDef
loop ClusterDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld JobDef
mutable'job)
          "ClusterDef"
  buildMessage :: ClusterDef -> Builder
buildMessage
    = \ _x :: ClusterDef
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((JobDef -> Builder) -> Vector JobDef -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: JobDef
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((ByteString -> Builder)
-> (JobDef -> ByteString) -> JobDef -> 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))
                           JobDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                           JobDef
_v))
                (FoldLike
  (Vector JobDef)
  ClusterDef
  ClusterDef
  (Vector JobDef)
  (Vector JobDef)
-> ClusterDef -> Vector JobDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'job" 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'job") ClusterDef
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike FieldSet ClusterDef ClusterDef FieldSet FieldSet
-> ClusterDef -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet ClusterDef ClusterDef FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ClusterDef
_x))
instance Control.DeepSeq.NFData ClusterDef where
  rnf :: ClusterDef -> ()
rnf
    = \ x__ :: ClusterDef
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ClusterDef -> FieldSet
_ClusterDef'_unknownFields ClusterDef
x__)
             (Vector JobDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ClusterDef -> Vector JobDef
_ClusterDef'job ClusterDef
x__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.Cluster_Fields.name' @:: Lens' JobDef Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.Cluster_Fields.tasks' @:: Lens' JobDef (Data.Map.Map Data.Int.Int32 Data.Text.Text)@ -}
data JobDef
  = JobDef'_constructor {JobDef -> Text
_JobDef'name :: !Data.Text.Text,
                         JobDef -> Map Int32 Text
_JobDef'tasks :: !(Data.Map.Map Data.Int.Int32 Data.Text.Text),
                         JobDef -> FieldSet
_JobDef'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (JobDef -> JobDef -> Bool
(JobDef -> JobDef -> Bool)
-> (JobDef -> JobDef -> Bool) -> Eq JobDef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: JobDef -> JobDef -> Bool
$c/= :: JobDef -> JobDef -> Bool
== :: JobDef -> JobDef -> Bool
$c== :: JobDef -> JobDef -> Bool
Prelude.Eq, Eq JobDef
Eq JobDef =>
(JobDef -> JobDef -> Ordering)
-> (JobDef -> JobDef -> Bool)
-> (JobDef -> JobDef -> Bool)
-> (JobDef -> JobDef -> Bool)
-> (JobDef -> JobDef -> Bool)
-> (JobDef -> JobDef -> JobDef)
-> (JobDef -> JobDef -> JobDef)
-> Ord JobDef
JobDef -> JobDef -> Bool
JobDef -> JobDef -> Ordering
JobDef -> JobDef -> JobDef
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 :: JobDef -> JobDef -> JobDef
$cmin :: JobDef -> JobDef -> JobDef
max :: JobDef -> JobDef -> JobDef
$cmax :: JobDef -> JobDef -> JobDef
>= :: JobDef -> JobDef -> Bool
$c>= :: JobDef -> JobDef -> Bool
> :: JobDef -> JobDef -> Bool
$c> :: JobDef -> JobDef -> Bool
<= :: JobDef -> JobDef -> Bool
$c<= :: JobDef -> JobDef -> Bool
< :: JobDef -> JobDef -> Bool
$c< :: JobDef -> JobDef -> Bool
compare :: JobDef -> JobDef -> Ordering
$ccompare :: JobDef -> JobDef -> Ordering
$cp1Ord :: Eq JobDef
Prelude.Ord)
instance Prelude.Show JobDef where
  showsPrec :: Int -> JobDef -> ShowS
showsPrec _ __x :: JobDef
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (JobDef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort JobDef
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField JobDef "name" Data.Text.Text where
  fieldOf :: Proxy# "name" -> (Text -> f Text) -> JobDef -> f JobDef
fieldOf _
    = ((Text -> f Text) -> JobDef -> f JobDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> JobDef
-> f JobDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((JobDef -> Text)
-> (JobDef -> Text -> JobDef) -> Lens JobDef JobDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           JobDef -> Text
_JobDef'name (\ x__ :: JobDef
x__ y__ :: Text
y__ -> JobDef
x__ {_JobDef'name :: Text
_JobDef'name = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField JobDef "tasks" (Data.Map.Map Data.Int.Int32 Data.Text.Text) where
  fieldOf :: Proxy# "tasks"
-> (Map Int32 Text -> f (Map Int32 Text)) -> JobDef -> f JobDef
fieldOf _
    = ((Map Int32 Text -> f (Map Int32 Text)) -> JobDef -> f JobDef)
-> ((Map Int32 Text -> f (Map Int32 Text))
    -> Map Int32 Text -> f (Map Int32 Text))
-> (Map Int32 Text -> f (Map Int32 Text))
-> JobDef
-> f JobDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((JobDef -> Map Int32 Text)
-> (JobDef -> Map Int32 Text -> JobDef)
-> Lens JobDef JobDef (Map Int32 Text) (Map Int32 Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           JobDef -> Map Int32 Text
_JobDef'tasks (\ x__ :: JobDef
x__ y__ :: Map Int32 Text
y__ -> JobDef
x__ {_JobDef'tasks :: Map Int32 Text
_JobDef'tasks = Map Int32 Text
y__}))
        (Map Int32 Text -> f (Map Int32 Text))
-> Map Int32 Text -> f (Map Int32 Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message JobDef where
  messageName :: Proxy JobDef -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.JobDef"
  packedMessageDescriptor :: Proxy JobDef -> ByteString
packedMessageDescriptor _
    = "\n\
      \\ACKJobDef\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC23\n\
      \\ENQtasks\CAN\STX \ETX(\v2\GS.tensorflow.JobDef.TasksEntryR\ENQtasks\SUB8\n\
      \\n\
      \TasksEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\ENQR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy JobDef -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor JobDef)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor JobDef
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor JobDef Text
-> FieldDescriptor JobDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "name"
              (ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
                 Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
              (WireDefault Text
-> Lens JobDef JobDef Text Text -> FieldAccessor JobDef Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
                 WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name")) ::
              Data.ProtoLens.FieldDescriptor JobDef
        tasks__field_descriptor :: FieldDescriptor JobDef
tasks__field_descriptor
          = String
-> FieldTypeDescriptor JobDef'TasksEntry
-> FieldAccessor JobDef JobDef'TasksEntry
-> FieldDescriptor JobDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "tasks"
              (MessageOrGroup -> FieldTypeDescriptor JobDef'TasksEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor JobDef'TasksEntry)
              (Lens' JobDef'TasksEntry Int32
-> Lens' JobDef'TasksEntry Text
-> Lens JobDef JobDef (Map Int32 Text) (Map Int32 Text)
-> FieldAccessor JobDef JobDef'TasksEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
                 (forall s a (f :: * -> *).
(HasField s "key" 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 @"key")
                 (forall s a (f :: * -> *).
(HasField s "value" 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 @"value")
                 (forall s a (f :: * -> *).
(HasField s "tasks" 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 @"tasks")) ::
              Data.ProtoLens.FieldDescriptor JobDef
      in
        [(Tag, FieldDescriptor JobDef)] -> Map Tag (FieldDescriptor JobDef)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor JobDef
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor JobDef
tasks__field_descriptor)]
  unknownFields :: LensLike' f JobDef FieldSet
unknownFields
    = (JobDef -> FieldSet)
-> (JobDef -> FieldSet -> JobDef) -> Lens' JobDef FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        JobDef -> FieldSet
_JobDef'_unknownFields
        (\ x__ :: JobDef
x__ y__ :: FieldSet
y__ -> JobDef
x__ {_JobDef'_unknownFields :: FieldSet
_JobDef'_unknownFields = FieldSet
y__})
  defMessage :: JobDef
defMessage
    = $WJobDef'_constructor :: Text -> Map Int32 Text -> FieldSet -> JobDef
JobDef'_constructor
        {_JobDef'name :: Text
_JobDef'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _JobDef'tasks :: Map Int32 Text
_JobDef'tasks = Map Int32 Text
forall k a. Map k a
Data.Map.empty, _JobDef'_unknownFields :: FieldSet
_JobDef'_unknownFields = []}
  parseMessage :: Parser JobDef
parseMessage
    = let
        loop :: JobDef -> Data.ProtoLens.Encoding.Bytes.Parser JobDef
        loop :: JobDef -> Parser JobDef
loop x :: JobDef
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      JobDef -> Parser JobDef
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter JobDef JobDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> JobDef -> JobDef
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 JobDef JobDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) JobDef
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "name"
                                JobDef -> Parser JobDef
loop (Setter JobDef JobDef Text Text -> Text -> JobDef -> JobDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") Text
y JobDef
x)
                        18
                          -> do !(JobDef'TasksEntry
entry :: JobDef'TasksEntry) <- Parser JobDef'TasksEntry -> String -> Parser JobDef'TasksEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                   (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                                       Int -> Parser JobDef'TasksEntry -> Parser JobDef'TasksEntry
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 JobDef'TasksEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                                                   "tasks"
                                (let
                                   key :: Int32
key = FoldLike Int32 JobDef'TasksEntry JobDef'TasksEntry Int32 Int32
-> JobDef'TasksEntry -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" 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 @"key") JobDef'TasksEntry
entry
                                   value :: Text
value
                                     = FoldLike Text JobDef'TasksEntry JobDef'TasksEntry Text Text
-> JobDef'TasksEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" 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 @"value") JobDef'TasksEntry
entry
                                 in
                                   JobDef -> Parser JobDef
loop
                                     (Setter JobDef JobDef (Map Int32 Text) (Map Int32 Text)
-> (Map Int32 Text -> Map Int32 Text) -> JobDef -> JobDef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
                                        (forall s a (f :: * -> *).
(HasField s "tasks" 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 @"tasks")
                                        (\ !Map Int32 Text
t -> Int32 -> Text -> Map Int32 Text -> Map Int32 Text
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Int32
key Text
value Map Int32 Text
t)
                                        JobDef
x))
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                JobDef -> Parser JobDef
loop
                                  (Setter JobDef JobDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> JobDef -> JobDef
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 JobDef JobDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) JobDef
x)
      in
        Parser JobDef -> String -> Parser JobDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do JobDef -> Parser JobDef
loop JobDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "JobDef"
  buildMessage :: JobDef -> Builder
buildMessage
    = \ _x :: JobDef
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text JobDef JobDef Text Text -> JobDef -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "name" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"name") JobDef
_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.<>)
                ([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
                   (((Int32, Text) -> Builder) -> [(Int32, Text)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                      (\ _v :: (Int32, Text)
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                              ((ByteString -> Builder)
-> (JobDef'TasksEntry -> ByteString)
-> JobDef'TasksEntry
-> 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))
                                 JobDef'TasksEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                 (Setter JobDef'TasksEntry JobDef'TasksEntry Int32 Int32
-> Int32 -> JobDef'TasksEntry -> JobDef'TasksEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                    (forall s a (f :: * -> *).
(HasField s "key" 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 @"key")
                                    ((Int32, Text) -> Int32
forall a b. (a, b) -> a
Prelude.fst (Int32, Text)
_v)
                                    (Setter JobDef'TasksEntry JobDef'TasksEntry Text Text
-> Text -> JobDef'TasksEntry -> JobDef'TasksEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                                       (forall s a (f :: * -> *).
(HasField s "value" 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 @"value")
                                       ((Int32, Text) -> Text
forall a b. (a, b) -> b
Prelude.snd (Int32, Text)
_v)
                                       (JobDef'TasksEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage :: JobDef'TasksEntry)))))
                      (Map Int32 Text -> [(Int32, Text)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                         (FoldLike
  (Map Int32 Text) JobDef JobDef (Map Int32 Text) (Map Int32 Text)
-> JobDef -> Map Int32 Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "tasks" 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 @"tasks") JobDef
_x))))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike FieldSet JobDef JobDef FieldSet FieldSet
-> JobDef -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet JobDef JobDef FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields JobDef
_x)))
instance Control.DeepSeq.NFData JobDef where
  rnf :: JobDef -> ()
rnf
    = \ x__ :: JobDef
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (JobDef -> FieldSet
_JobDef'_unknownFields JobDef
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (JobDef -> Text
_JobDef'name JobDef
x__)
                (Map Int32 Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (JobDef -> Map Int32 Text
_JobDef'tasks JobDef
x__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.Cluster_Fields.key' @:: Lens' JobDef'TasksEntry Data.Int.Int32@
         * 'Proto.Tensorflow.Core.Protobuf.Cluster_Fields.value' @:: Lens' JobDef'TasksEntry Data.Text.Text@ -}
data JobDef'TasksEntry
  = JobDef'TasksEntry'_constructor {JobDef'TasksEntry -> Int32
_JobDef'TasksEntry'key :: !Data.Int.Int32,
                                    JobDef'TasksEntry -> Text
_JobDef'TasksEntry'value :: !Data.Text.Text,
                                    JobDef'TasksEntry -> FieldSet
_JobDef'TasksEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (JobDef'TasksEntry -> JobDef'TasksEntry -> Bool
(JobDef'TasksEntry -> JobDef'TasksEntry -> Bool)
-> (JobDef'TasksEntry -> JobDef'TasksEntry -> Bool)
-> Eq JobDef'TasksEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: JobDef'TasksEntry -> JobDef'TasksEntry -> Bool
$c/= :: JobDef'TasksEntry -> JobDef'TasksEntry -> Bool
== :: JobDef'TasksEntry -> JobDef'TasksEntry -> Bool
$c== :: JobDef'TasksEntry -> JobDef'TasksEntry -> Bool
Prelude.Eq, Eq JobDef'TasksEntry
Eq JobDef'TasksEntry =>
(JobDef'TasksEntry -> JobDef'TasksEntry -> Ordering)
-> (JobDef'TasksEntry -> JobDef'TasksEntry -> Bool)
-> (JobDef'TasksEntry -> JobDef'TasksEntry -> Bool)
-> (JobDef'TasksEntry -> JobDef'TasksEntry -> Bool)
-> (JobDef'TasksEntry -> JobDef'TasksEntry -> Bool)
-> (JobDef'TasksEntry -> JobDef'TasksEntry -> JobDef'TasksEntry)
-> (JobDef'TasksEntry -> JobDef'TasksEntry -> JobDef'TasksEntry)
-> Ord JobDef'TasksEntry
JobDef'TasksEntry -> JobDef'TasksEntry -> Bool
JobDef'TasksEntry -> JobDef'TasksEntry -> Ordering
JobDef'TasksEntry -> JobDef'TasksEntry -> JobDef'TasksEntry
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 :: JobDef'TasksEntry -> JobDef'TasksEntry -> JobDef'TasksEntry
$cmin :: JobDef'TasksEntry -> JobDef'TasksEntry -> JobDef'TasksEntry
max :: JobDef'TasksEntry -> JobDef'TasksEntry -> JobDef'TasksEntry
$cmax :: JobDef'TasksEntry -> JobDef'TasksEntry -> JobDef'TasksEntry
>= :: JobDef'TasksEntry -> JobDef'TasksEntry -> Bool
$c>= :: JobDef'TasksEntry -> JobDef'TasksEntry -> Bool
> :: JobDef'TasksEntry -> JobDef'TasksEntry -> Bool
$c> :: JobDef'TasksEntry -> JobDef'TasksEntry -> Bool
<= :: JobDef'TasksEntry -> JobDef'TasksEntry -> Bool
$c<= :: JobDef'TasksEntry -> JobDef'TasksEntry -> Bool
< :: JobDef'TasksEntry -> JobDef'TasksEntry -> Bool
$c< :: JobDef'TasksEntry -> JobDef'TasksEntry -> Bool
compare :: JobDef'TasksEntry -> JobDef'TasksEntry -> Ordering
$ccompare :: JobDef'TasksEntry -> JobDef'TasksEntry -> Ordering
$cp1Ord :: Eq JobDef'TasksEntry
Prelude.Ord)
instance Prelude.Show JobDef'TasksEntry where
  showsPrec :: Int -> JobDef'TasksEntry -> ShowS
showsPrec _ __x :: JobDef'TasksEntry
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (JobDef'TasksEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort JobDef'TasksEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField JobDef'TasksEntry "key" Data.Int.Int32 where
  fieldOf :: Proxy# "key"
-> (Int32 -> f Int32) -> JobDef'TasksEntry -> f JobDef'TasksEntry
fieldOf _
    = ((Int32 -> f Int32) -> JobDef'TasksEntry -> f JobDef'TasksEntry)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> JobDef'TasksEntry
-> f JobDef'TasksEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((JobDef'TasksEntry -> Int32)
-> (JobDef'TasksEntry -> Int32 -> JobDef'TasksEntry)
-> Lens' JobDef'TasksEntry Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           JobDef'TasksEntry -> Int32
_JobDef'TasksEntry'key
           (\ x__ :: JobDef'TasksEntry
x__ y__ :: Int32
y__ -> JobDef'TasksEntry
x__ {_JobDef'TasksEntry'key :: Int32
_JobDef'TasksEntry'key = Int32
y__}))
        (Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField JobDef'TasksEntry "value" Data.Text.Text where
  fieldOf :: Proxy# "value"
-> (Text -> f Text) -> JobDef'TasksEntry -> f JobDef'TasksEntry
fieldOf _
    = ((Text -> f Text) -> JobDef'TasksEntry -> f JobDef'TasksEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> JobDef'TasksEntry
-> f JobDef'TasksEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((JobDef'TasksEntry -> Text)
-> (JobDef'TasksEntry -> Text -> JobDef'TasksEntry)
-> Lens' JobDef'TasksEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           JobDef'TasksEntry -> Text
_JobDef'TasksEntry'value
           (\ x__ :: JobDef'TasksEntry
x__ y__ :: Text
y__ -> JobDef'TasksEntry
x__ {_JobDef'TasksEntry'value :: Text
_JobDef'TasksEntry'value = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message JobDef'TasksEntry where
  messageName :: Proxy JobDef'TasksEntry -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.JobDef.TasksEntry"
  packedMessageDescriptor :: Proxy JobDef'TasksEntry -> ByteString
packedMessageDescriptor _
    = "\n\
      \\n\
      \TasksEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\ENQR\ETXkey\DC2\DC4\n\
      \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy JobDef'TasksEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor JobDef'TasksEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor JobDef'TasksEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor JobDef'TasksEntry Int32
-> FieldDescriptor JobDef'TasksEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "key"
              (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' JobDef'TasksEntry Int32
-> FieldAccessor JobDef'TasksEntry 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 "key" 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 @"key")) ::
              Data.ProtoLens.FieldDescriptor JobDef'TasksEntry
        value__field_descriptor :: FieldDescriptor JobDef'TasksEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor JobDef'TasksEntry Text
-> FieldDescriptor JobDef'TasksEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (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' JobDef'TasksEntry Text
-> FieldAccessor JobDef'TasksEntry 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 "value" 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 @"value")) ::
              Data.ProtoLens.FieldDescriptor JobDef'TasksEntry
      in
        [(Tag, FieldDescriptor JobDef'TasksEntry)]
-> Map Tag (FieldDescriptor JobDef'TasksEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor JobDef'TasksEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor JobDef'TasksEntry
value__field_descriptor)]
  unknownFields :: LensLike' f JobDef'TasksEntry FieldSet
unknownFields
    = (JobDef'TasksEntry -> FieldSet)
-> (JobDef'TasksEntry -> FieldSet -> JobDef'TasksEntry)
-> Lens' JobDef'TasksEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        JobDef'TasksEntry -> FieldSet
_JobDef'TasksEntry'_unknownFields
        (\ x__ :: JobDef'TasksEntry
x__ y__ :: FieldSet
y__ -> JobDef'TasksEntry
x__ {_JobDef'TasksEntry'_unknownFields :: FieldSet
_JobDef'TasksEntry'_unknownFields = FieldSet
y__})
  defMessage :: JobDef'TasksEntry
defMessage
    = $WJobDef'TasksEntry'_constructor :: Int32 -> Text -> FieldSet -> JobDef'TasksEntry
JobDef'TasksEntry'_constructor
        {_JobDef'TasksEntry'key :: Int32
_JobDef'TasksEntry'key = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _JobDef'TasksEntry'value :: Text
_JobDef'TasksEntry'value = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _JobDef'TasksEntry'_unknownFields :: FieldSet
_JobDef'TasksEntry'_unknownFields = []}
  parseMessage :: Parser JobDef'TasksEntry
parseMessage
    = let
        loop ::
          JobDef'TasksEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser JobDef'TasksEntry
        loop :: JobDef'TasksEntry -> Parser JobDef'TasksEntry
loop x :: JobDef'TasksEntry
x
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do (let missing :: [a]
missing = []
                       in
                         if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
                             () -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
                         else
                             String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
                               (String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
                                  "Missing required fields: "
                                  ([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
                      JobDef'TasksEntry -> Parser JobDef'TasksEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter JobDef'TasksEntry JobDef'TasksEntry FieldSet FieldSet
-> (FieldSet -> FieldSet) -> JobDef'TasksEntry -> JobDef'TasksEntry
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 JobDef'TasksEntry JobDef'TasksEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) JobDef'TasksEntry
x)
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        8 -> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       ((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
                                          Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
                                          Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
                                       "key"
                                JobDef'TasksEntry -> Parser JobDef'TasksEntry
loop (Setter JobDef'TasksEntry JobDef'TasksEntry Int32 Int32
-> Int32 -> JobDef'TasksEntry -> JobDef'TasksEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "key" 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 @"key") Int32
y JobDef'TasksEntry
x)
                        18
                          -> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                       Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
                                                         (Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
                                           Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
                                             (case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
                                                (Prelude.Left err :: UnicodeException
err)
                                                  -> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
                                                (Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
                                       "value"
                                JobDef'TasksEntry -> Parser JobDef'TasksEntry
loop (Setter JobDef'TasksEntry JobDef'TasksEntry Text Text
-> Text -> JobDef'TasksEntry -> JobDef'TasksEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "value" 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 @"value") Text
y JobDef'TasksEntry
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                JobDef'TasksEntry -> Parser JobDef'TasksEntry
loop
                                  (Setter JobDef'TasksEntry JobDef'TasksEntry FieldSet FieldSet
-> (FieldSet -> FieldSet) -> JobDef'TasksEntry -> JobDef'TasksEntry
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 JobDef'TasksEntry JobDef'TasksEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) JobDef'TasksEntry
x)
      in
        Parser JobDef'TasksEntry -> String -> Parser JobDef'TasksEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do JobDef'TasksEntry -> Parser JobDef'TasksEntry
loop JobDef'TasksEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "TasksEntry"
  buildMessage :: JobDef'TasksEntry -> Builder
buildMessage
    = \ _x :: JobDef'TasksEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Int32
_v = FoldLike Int32 JobDef'TasksEntry JobDef'TasksEntry Int32 Int32
-> JobDef'TasksEntry -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" 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 @"key") JobDef'TasksEntry
_x
              in
                if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                    Builder
forall a. Monoid a => a
Data.Monoid.mempty
                else
                    Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                      (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 8)
                      ((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                         Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
             (Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                (let
                   _v :: Text
_v = FoldLike Text JobDef'TasksEntry JobDef'TasksEntry Text Text
-> JobDef'TasksEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" 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 @"value") JobDef'TasksEntry
_x
                 in
                   if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
                       Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   else
                       Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                         (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                         ((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
                            (\ bs :: ByteString
bs
                               -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                                    (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
                                       (Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
                                    (ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
                            Text -> ByteString
Data.Text.Encoding.encodeUtf8
                            Text
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet JobDef'TasksEntry JobDef'TasksEntry FieldSet FieldSet
-> JobDef'TasksEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet JobDef'TasksEntry JobDef'TasksEntry FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields JobDef'TasksEntry
_x)))
instance Control.DeepSeq.NFData JobDef'TasksEntry where
  rnf :: JobDef'TasksEntry -> ()
rnf
    = \ x__ :: JobDef'TasksEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (JobDef'TasksEntry -> FieldSet
_JobDef'TasksEntry'_unknownFields JobDef'TasksEntry
x__)
             (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (JobDef'TasksEntry -> Int32
_JobDef'TasksEntry'key JobDef'TasksEntry
x__)
                (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (JobDef'TasksEntry -> Text
_JobDef'TasksEntry'value JobDef'TasksEntry
x__) ()))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = "\n\
    \&tensorflow/core/protobuf/cluster.proto\DC2\n\
    \tensorflow\"\139\SOH\n\
    \\ACKJobDef\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC23\n\
    \\ENQtasks\CAN\STX \ETX(\v2\GS.tensorflow.JobDef.TasksEntryR\ENQtasks\SUB8\n\
    \\n\
    \TasksEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\ENQR\ETXkey\DC2\DC4\n\
    \\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\"2\n\
    \\n\
    \ClusterDef\DC2$\n\
    \\ETXjob\CAN\SOH \ETX(\v2\DC2.tensorflow.JobDefR\ETXjobBz\n\
    \\SUBorg.tensorflow.distruntimeB\rClusterProtosP\SOHZHgithub.com/tensorflow/tensorflow/tensorflow/go/core/core_protos_go_proto\248\SOH\SOHJ\158\SYN\n\
    \\ACK\DC2\EOT\SI\NULS\SOH\n\
    \\159\ENQ\n\
    \\SOH\f\DC2\ETX\SI\NUL\DC22\148\ENQ Copyright 2016 The TensorFlow Authors. All Rights Reserved.\n\
    \\n\
    \Licensed under the Apache License, Version 2.0 (the \"License\");\n\
    \you may not use this file except in compliance with the License.\n\
    \You may obtain a copy of the License at\n\
    \\n\
    \http://www.apache.org/licenses/LICENSE-2.0\n\
    \\n\
    \Unless required by applicable law or agreed to in writing, software\n\
    \distributed under the License is distributed on an \"AS IS\" BASIS,\n\
    \WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.\n\
    \See the License for the specific language governing permissions and\n\
    \limitations under the License.\n\
    \==============================================================================\n\
    \\b\n\
    \\SOH\STX\DC2\ETX\DC1\NUL\DC3\n\
    \\b\n\
    \\SOH\b\DC2\ETX\DC3\NUL\US\n\
    \\t\n\
    \\STX\b\US\DC2\ETX\DC3\NUL\US\n\
    \\b\n\
    \\SOH\b\DC2\ETX\DC4\NUL.\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\DC4\NUL.\n\
    \\b\n\
    \\SOH\b\DC2\ETX\NAK\NUL\"\n\
    \\t\n\
    \\STX\b\n\
    \\DC2\ETX\NAK\NUL\"\n\
    \\b\n\
    \\SOH\b\DC2\ETX\SYN\NUL3\n\
    \\t\n\
    \\STX\b\SOH\DC2\ETX\SYN\NUL3\n\
    \\b\n\
    \\SOH\b\DC2\ETX\ETB\NUL_\n\
    \\t\n\
    \\STX\b\v\DC2\ETX\ETB\NUL_\n\
    \\188\v\n\
    \\STX\EOT\NUL\DC2\EOTC\NULM\SOH\SUB/ Defines a single job in a TensorFlow cluster.\n\
    \2\254\n\
    \ This file contains protos to be used when defining a TensorFlow\n\
    \ cluster.\n\
    \\n\
    \ EXAMPLES\n\
    \ --------\n\
    \\n\
    \ 1. A single-process cluster, containing \"/job:local/task:0\".\n\
    \\n\
    \    Cluster:\n\
    \      job { name: 'local' tasks { key: 0 value: 'localhost:2222' } }\n\
    \\n\
    \    Server:\n\
    \      cluster { $CLUSTER } job_name: 'local' task_index: 0\n\
    \\n\
    \ 2. A two-process cluster, containing \"/job:local/task:{0,1}\".\n\
    \\n\
    \    Cluster:\n\
    \      job { name: 'local' tasks { key: 0 value: 'localhost:2222' }\n\
    \                          tasks { key: 1 value: 'localhost:2223' } }\n\
    \\n\
    \    Servers:\n\
    \      cluster { $CLUSTER } job_name: 'local' task_index: 0\n\
    \      cluster { $CLUSTER } job_name: 'local' task_index: 1\n\
    \\n\
    \ 3. A two-job cluster, containing \"/job:worker/task:{0,1,2}\" and\n\
    \    \"/job:ps/task:{0,1}\".\n\
    \\n\
    \    Cluster:\n\
    \      job { name: 'worker' tasks { key: 0 value: 'worker1:2222' }\n\
    \                           tasks { key: 1 value: 'worker2:2222' }\n\
    \                           tasks { key: 2 value: 'worker3:2222' } }\n\
    \      job { name: 'ps'     tasks { key: 0 value: 'ps0:2222' }\n\
    \                           tasks { key: 1 value: 'ps1:2222' } }\n\
    \\n\
    \    Servers:\n\
    \      cluster { $CLUSTER } job_name: 'worker' task_index: 0\n\
    \      cluster { $CLUSTER } job_name: 'worker' task_index: 1\n\
    \      cluster { $CLUSTER } job_name: 'worker' task_index: 2\n\
    \      cluster { $CLUSTER } job_name: 'ps'     task_index: 0\n\
    \      cluster { $CLUSTER } job_name: 'ps'     task_index: 1\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETXC\b\SO\n\
    \$\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETXE\STX\DC2\SUB\ETB The name of this job.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETXE\STX\b\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETXE\t\r\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETXE\DLE\DC1\n\
    \\131\STX\n\
    \\EOT\EOT\NUL\STX\SOH\DC2\ETXL\STX\US\SUB\245\SOH Mapping from task ID to \"hostname:port\" string.\n\
    \\n\
    \ If the `name` field contains \"worker\", and the `tasks` map contains a\n\
    \ mapping from 7 to \"example.org:2222\", then the device prefix\n\
    \ \"/job:worker/task:7\" will be assigned to \"example.org:2222\".\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETXL\STX\DC4\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETXL\NAK\SUB\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETXL\GS\RS\n\
    \<\n\
    \\STX\EOT\SOH\DC2\EOTP\NULS\SOH\SUB0 Defines a TensorFlow cluster as a set of jobs.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETXP\b\DC2\n\
    \2\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETXR\STX\SUB\SUB% The jobs that comprise the cluster.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\EOT\DC2\ETXR\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETXR\v\DC1\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETXR\DC2\NAK\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETXR\CAN\EMb\ACKproto3"