{- This file was auto-generated from tensorflow/core/protobuf/device_filters.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.DeviceFilters (
        ClusterDeviceFilters(), JobDeviceFilters(),
        JobDeviceFilters'TasksEntry(), TaskDeviceFilters()
    ) 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.DeviceFilters_Fields.jobs' @:: Lens' ClusterDeviceFilters [JobDeviceFilters]@
         * 'Proto.Tensorflow.Core.Protobuf.DeviceFilters_Fields.vec'jobs' @:: Lens' ClusterDeviceFilters (Data.Vector.Vector JobDeviceFilters)@ -}
data ClusterDeviceFilters
  = ClusterDeviceFilters'_constructor {ClusterDeviceFilters -> Vector JobDeviceFilters
_ClusterDeviceFilters'jobs :: !(Data.Vector.Vector JobDeviceFilters),
                                       ClusterDeviceFilters -> FieldSet
_ClusterDeviceFilters'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (ClusterDeviceFilters -> ClusterDeviceFilters -> Bool
(ClusterDeviceFilters -> ClusterDeviceFilters -> Bool)
-> (ClusterDeviceFilters -> ClusterDeviceFilters -> Bool)
-> Eq ClusterDeviceFilters
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ClusterDeviceFilters -> ClusterDeviceFilters -> Bool
$c/= :: ClusterDeviceFilters -> ClusterDeviceFilters -> Bool
== :: ClusterDeviceFilters -> ClusterDeviceFilters -> Bool
$c== :: ClusterDeviceFilters -> ClusterDeviceFilters -> Bool
Prelude.Eq, Eq ClusterDeviceFilters
Eq ClusterDeviceFilters =>
(ClusterDeviceFilters -> ClusterDeviceFilters -> Ordering)
-> (ClusterDeviceFilters -> ClusterDeviceFilters -> Bool)
-> (ClusterDeviceFilters -> ClusterDeviceFilters -> Bool)
-> (ClusterDeviceFilters -> ClusterDeviceFilters -> Bool)
-> (ClusterDeviceFilters -> ClusterDeviceFilters -> Bool)
-> (ClusterDeviceFilters
    -> ClusterDeviceFilters -> ClusterDeviceFilters)
-> (ClusterDeviceFilters
    -> ClusterDeviceFilters -> ClusterDeviceFilters)
-> Ord ClusterDeviceFilters
ClusterDeviceFilters -> ClusterDeviceFilters -> Bool
ClusterDeviceFilters -> ClusterDeviceFilters -> Ordering
ClusterDeviceFilters
-> ClusterDeviceFilters -> ClusterDeviceFilters
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 :: ClusterDeviceFilters
-> ClusterDeviceFilters -> ClusterDeviceFilters
$cmin :: ClusterDeviceFilters
-> ClusterDeviceFilters -> ClusterDeviceFilters
max :: ClusterDeviceFilters
-> ClusterDeviceFilters -> ClusterDeviceFilters
$cmax :: ClusterDeviceFilters
-> ClusterDeviceFilters -> ClusterDeviceFilters
>= :: ClusterDeviceFilters -> ClusterDeviceFilters -> Bool
$c>= :: ClusterDeviceFilters -> ClusterDeviceFilters -> Bool
> :: ClusterDeviceFilters -> ClusterDeviceFilters -> Bool
$c> :: ClusterDeviceFilters -> ClusterDeviceFilters -> Bool
<= :: ClusterDeviceFilters -> ClusterDeviceFilters -> Bool
$c<= :: ClusterDeviceFilters -> ClusterDeviceFilters -> Bool
< :: ClusterDeviceFilters -> ClusterDeviceFilters -> Bool
$c< :: ClusterDeviceFilters -> ClusterDeviceFilters -> Bool
compare :: ClusterDeviceFilters -> ClusterDeviceFilters -> Ordering
$ccompare :: ClusterDeviceFilters -> ClusterDeviceFilters -> Ordering
$cp1Ord :: Eq ClusterDeviceFilters
Prelude.Ord)
instance Prelude.Show ClusterDeviceFilters where
  showsPrec :: Int -> ClusterDeviceFilters -> ShowS
showsPrec _ __x :: ClusterDeviceFilters
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (ClusterDeviceFilters -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ClusterDeviceFilters
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField ClusterDeviceFilters "jobs" [JobDeviceFilters] where
  fieldOf :: Proxy# "jobs"
-> ([JobDeviceFilters] -> f [JobDeviceFilters])
-> ClusterDeviceFilters
-> f ClusterDeviceFilters
fieldOf _
    = ((Vector JobDeviceFilters -> f (Vector JobDeviceFilters))
 -> ClusterDeviceFilters -> f ClusterDeviceFilters)
-> (([JobDeviceFilters] -> f [JobDeviceFilters])
    -> Vector JobDeviceFilters -> f (Vector JobDeviceFilters))
-> ([JobDeviceFilters] -> f [JobDeviceFilters])
-> ClusterDeviceFilters
-> f ClusterDeviceFilters
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClusterDeviceFilters -> Vector JobDeviceFilters)
-> (ClusterDeviceFilters
    -> Vector JobDeviceFilters -> ClusterDeviceFilters)
-> Lens
     ClusterDeviceFilters
     ClusterDeviceFilters
     (Vector JobDeviceFilters)
     (Vector JobDeviceFilters)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClusterDeviceFilters -> Vector JobDeviceFilters
_ClusterDeviceFilters'jobs
           (\ x__ :: ClusterDeviceFilters
x__ y__ :: Vector JobDeviceFilters
y__ -> ClusterDeviceFilters
x__ {_ClusterDeviceFilters'jobs :: Vector JobDeviceFilters
_ClusterDeviceFilters'jobs = Vector JobDeviceFilters
y__}))
        ((Vector JobDeviceFilters -> [JobDeviceFilters])
-> (Vector JobDeviceFilters
    -> [JobDeviceFilters] -> Vector JobDeviceFilters)
-> Lens
     (Vector JobDeviceFilters)
     (Vector JobDeviceFilters)
     [JobDeviceFilters]
     [JobDeviceFilters]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           Vector JobDeviceFilters -> [JobDeviceFilters]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
           (\ _ y__ :: [JobDeviceFilters]
y__ -> [JobDeviceFilters] -> Vector JobDeviceFilters
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [JobDeviceFilters]
y__))
instance Data.ProtoLens.Field.HasField ClusterDeviceFilters "vec'jobs" (Data.Vector.Vector JobDeviceFilters) where
  fieldOf :: Proxy# "vec'jobs"
-> (Vector JobDeviceFilters -> f (Vector JobDeviceFilters))
-> ClusterDeviceFilters
-> f ClusterDeviceFilters
fieldOf _
    = ((Vector JobDeviceFilters -> f (Vector JobDeviceFilters))
 -> ClusterDeviceFilters -> f ClusterDeviceFilters)
-> ((Vector JobDeviceFilters -> f (Vector JobDeviceFilters))
    -> Vector JobDeviceFilters -> f (Vector JobDeviceFilters))
-> (Vector JobDeviceFilters -> f (Vector JobDeviceFilters))
-> ClusterDeviceFilters
-> f ClusterDeviceFilters
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((ClusterDeviceFilters -> Vector JobDeviceFilters)
-> (ClusterDeviceFilters
    -> Vector JobDeviceFilters -> ClusterDeviceFilters)
-> Lens
     ClusterDeviceFilters
     ClusterDeviceFilters
     (Vector JobDeviceFilters)
     (Vector JobDeviceFilters)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           ClusterDeviceFilters -> Vector JobDeviceFilters
_ClusterDeviceFilters'jobs
           (\ x__ :: ClusterDeviceFilters
x__ y__ :: Vector JobDeviceFilters
y__ -> ClusterDeviceFilters
x__ {_ClusterDeviceFilters'jobs :: Vector JobDeviceFilters
_ClusterDeviceFilters'jobs = Vector JobDeviceFilters
y__}))
        (Vector JobDeviceFilters -> f (Vector JobDeviceFilters))
-> Vector JobDeviceFilters -> f (Vector JobDeviceFilters)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ClusterDeviceFilters where
  messageName :: Proxy ClusterDeviceFilters -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.ClusterDeviceFilters"
  packedMessageDescriptor :: Proxy ClusterDeviceFilters -> ByteString
packedMessageDescriptor _
    = "\n\
      \\DC4ClusterDeviceFilters\DC20\n\
      \\EOTjobs\CAN\SOH \ETX(\v2\FS.tensorflow.JobDeviceFiltersR\EOTjobs"
  packedFileDescriptor :: Proxy ClusterDeviceFilters -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor ClusterDeviceFilters)
fieldsByTag
    = let
        jobs__field_descriptor :: FieldDescriptor ClusterDeviceFilters
jobs__field_descriptor
          = String
-> FieldTypeDescriptor JobDeviceFilters
-> FieldAccessor ClusterDeviceFilters JobDeviceFilters
-> FieldDescriptor ClusterDeviceFilters
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "jobs"
              (MessageOrGroup -> FieldTypeDescriptor JobDeviceFilters
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor JobDeviceFilters)
              (Packing
-> Lens' ClusterDeviceFilters [JobDeviceFilters]
-> FieldAccessor ClusterDeviceFilters JobDeviceFilters
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "jobs" 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 @"jobs")) ::
              Data.ProtoLens.FieldDescriptor ClusterDeviceFilters
      in
        [(Tag, FieldDescriptor ClusterDeviceFilters)]
-> Map Tag (FieldDescriptor ClusterDeviceFilters)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor ClusterDeviceFilters
jobs__field_descriptor)]
  unknownFields :: LensLike' f ClusterDeviceFilters FieldSet
unknownFields
    = (ClusterDeviceFilters -> FieldSet)
-> (ClusterDeviceFilters -> FieldSet -> ClusterDeviceFilters)
-> Lens' ClusterDeviceFilters FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        ClusterDeviceFilters -> FieldSet
_ClusterDeviceFilters'_unknownFields
        (\ x__ :: ClusterDeviceFilters
x__ y__ :: FieldSet
y__ -> ClusterDeviceFilters
x__ {_ClusterDeviceFilters'_unknownFields :: FieldSet
_ClusterDeviceFilters'_unknownFields = FieldSet
y__})
  defMessage :: ClusterDeviceFilters
defMessage
    = $WClusterDeviceFilters'_constructor :: Vector JobDeviceFilters -> FieldSet -> ClusterDeviceFilters
ClusterDeviceFilters'_constructor
        {_ClusterDeviceFilters'jobs :: Vector JobDeviceFilters
_ClusterDeviceFilters'jobs = Vector JobDeviceFilters
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _ClusterDeviceFilters'_unknownFields :: FieldSet
_ClusterDeviceFilters'_unknownFields = []}
  parseMessage :: Parser ClusterDeviceFilters
parseMessage
    = let
        loop ::
          ClusterDeviceFilters
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld JobDeviceFilters
             -> Data.ProtoLens.Encoding.Bytes.Parser ClusterDeviceFilters
        loop :: ClusterDeviceFilters
-> Growing Vector RealWorld JobDeviceFilters
-> Parser ClusterDeviceFilters
loop x :: ClusterDeviceFilters
x mutable'jobs :: Growing Vector RealWorld JobDeviceFilters
mutable'jobs
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector JobDeviceFilters
frozen'jobs <- IO (Vector JobDeviceFilters) -> Parser (Vector JobDeviceFilters)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) JobDeviceFilters
-> IO (Vector JobDeviceFilters)
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 JobDeviceFilters
Growing Vector (PrimState IO) JobDeviceFilters
mutable'jobs)
                      (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]))))
                      ClusterDeviceFilters -> Parser ClusterDeviceFilters
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter ClusterDeviceFilters ClusterDeviceFilters FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ClusterDeviceFilters
-> ClusterDeviceFilters
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 ClusterDeviceFilters ClusterDeviceFilters FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  ClusterDeviceFilters
  ClusterDeviceFilters
  (Vector JobDeviceFilters)
  (Vector JobDeviceFilters)
-> Vector JobDeviceFilters
-> ClusterDeviceFilters
-> ClusterDeviceFilters
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'jobs" 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'jobs") Vector JobDeviceFilters
frozen'jobs ClusterDeviceFilters
x))
               else
                   do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                      case Word64
tag of
                        10
                          -> do !JobDeviceFilters
y <- Parser JobDeviceFilters -> String -> Parser JobDeviceFilters
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                        (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                            Int -> Parser JobDeviceFilters -> Parser JobDeviceFilters
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 JobDeviceFilters
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                        "jobs"
                                Growing Vector RealWorld JobDeviceFilters
v <- IO (Growing Vector RealWorld JobDeviceFilters)
-> Parser (Growing Vector RealWorld JobDeviceFilters)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                       (Growing Vector (PrimState IO) JobDeviceFilters
-> JobDeviceFilters
-> IO (Growing Vector (PrimState IO) JobDeviceFilters)
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 JobDeviceFilters
Growing Vector (PrimState IO) JobDeviceFilters
mutable'jobs JobDeviceFilters
y)
                                ClusterDeviceFilters
-> Growing Vector RealWorld JobDeviceFilters
-> Parser ClusterDeviceFilters
loop ClusterDeviceFilters
x Growing Vector RealWorld JobDeviceFilters
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                ClusterDeviceFilters
-> Growing Vector RealWorld JobDeviceFilters
-> Parser ClusterDeviceFilters
loop
                                  (Setter ClusterDeviceFilters ClusterDeviceFilters FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> ClusterDeviceFilters
-> ClusterDeviceFilters
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 ClusterDeviceFilters ClusterDeviceFilters FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ClusterDeviceFilters
x)
                                  Growing Vector RealWorld JobDeviceFilters
mutable'jobs
      in
        Parser ClusterDeviceFilters
-> String -> Parser ClusterDeviceFilters
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld JobDeviceFilters
mutable'jobs <- IO (Growing Vector RealWorld JobDeviceFilters)
-> Parser (Growing Vector RealWorld JobDeviceFilters)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
                                IO (Growing Vector RealWorld JobDeviceFilters)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
              ClusterDeviceFilters
-> Growing Vector RealWorld JobDeviceFilters
-> Parser ClusterDeviceFilters
loop ClusterDeviceFilters
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld JobDeviceFilters
mutable'jobs)
          "ClusterDeviceFilters"
  buildMessage :: ClusterDeviceFilters -> Builder
buildMessage
    = \ _x :: ClusterDeviceFilters
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             ((JobDeviceFilters -> Builder) -> Vector JobDeviceFilters -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
                (\ _v :: JobDeviceFilters
_v
                   -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                        (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
                        ((ByteString -> Builder)
-> (JobDeviceFilters -> ByteString) -> JobDeviceFilters -> 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))
                           JobDeviceFilters -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                           JobDeviceFilters
_v))
                (FoldLike
  (Vector JobDeviceFilters)
  ClusterDeviceFilters
  ClusterDeviceFilters
  (Vector JobDeviceFilters)
  (Vector JobDeviceFilters)
-> ClusterDeviceFilters -> Vector JobDeviceFilters
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'jobs" 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'jobs") ClusterDeviceFilters
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet
  ClusterDeviceFilters
  ClusterDeviceFilters
  FieldSet
  FieldSet
-> ClusterDeviceFilters -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  ClusterDeviceFilters
  ClusterDeviceFilters
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ClusterDeviceFilters
_x))
instance Control.DeepSeq.NFData ClusterDeviceFilters where
  rnf :: ClusterDeviceFilters -> ()
rnf
    = \ x__ :: ClusterDeviceFilters
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (ClusterDeviceFilters -> FieldSet
_ClusterDeviceFilters'_unknownFields ClusterDeviceFilters
x__)
             (Vector JobDeviceFilters -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (ClusterDeviceFilters -> Vector JobDeviceFilters
_ClusterDeviceFilters'jobs ClusterDeviceFilters
x__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.DeviceFilters_Fields.name' @:: Lens' JobDeviceFilters Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.DeviceFilters_Fields.tasks' @:: Lens' JobDeviceFilters (Data.Map.Map Data.Int.Int32 TaskDeviceFilters)@ -}
data JobDeviceFilters
  = JobDeviceFilters'_constructor {JobDeviceFilters -> Text
_JobDeviceFilters'name :: !Data.Text.Text,
                                   JobDeviceFilters -> Map Int32 TaskDeviceFilters
_JobDeviceFilters'tasks :: !(Data.Map.Map Data.Int.Int32 TaskDeviceFilters),
                                   JobDeviceFilters -> FieldSet
_JobDeviceFilters'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (JobDeviceFilters -> JobDeviceFilters -> Bool
(JobDeviceFilters -> JobDeviceFilters -> Bool)
-> (JobDeviceFilters -> JobDeviceFilters -> Bool)
-> Eq JobDeviceFilters
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: JobDeviceFilters -> JobDeviceFilters -> Bool
$c/= :: JobDeviceFilters -> JobDeviceFilters -> Bool
== :: JobDeviceFilters -> JobDeviceFilters -> Bool
$c== :: JobDeviceFilters -> JobDeviceFilters -> Bool
Prelude.Eq, Eq JobDeviceFilters
Eq JobDeviceFilters =>
(JobDeviceFilters -> JobDeviceFilters -> Ordering)
-> (JobDeviceFilters -> JobDeviceFilters -> Bool)
-> (JobDeviceFilters -> JobDeviceFilters -> Bool)
-> (JobDeviceFilters -> JobDeviceFilters -> Bool)
-> (JobDeviceFilters -> JobDeviceFilters -> Bool)
-> (JobDeviceFilters -> JobDeviceFilters -> JobDeviceFilters)
-> (JobDeviceFilters -> JobDeviceFilters -> JobDeviceFilters)
-> Ord JobDeviceFilters
JobDeviceFilters -> JobDeviceFilters -> Bool
JobDeviceFilters -> JobDeviceFilters -> Ordering
JobDeviceFilters -> JobDeviceFilters -> JobDeviceFilters
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 :: JobDeviceFilters -> JobDeviceFilters -> JobDeviceFilters
$cmin :: JobDeviceFilters -> JobDeviceFilters -> JobDeviceFilters
max :: JobDeviceFilters -> JobDeviceFilters -> JobDeviceFilters
$cmax :: JobDeviceFilters -> JobDeviceFilters -> JobDeviceFilters
>= :: JobDeviceFilters -> JobDeviceFilters -> Bool
$c>= :: JobDeviceFilters -> JobDeviceFilters -> Bool
> :: JobDeviceFilters -> JobDeviceFilters -> Bool
$c> :: JobDeviceFilters -> JobDeviceFilters -> Bool
<= :: JobDeviceFilters -> JobDeviceFilters -> Bool
$c<= :: JobDeviceFilters -> JobDeviceFilters -> Bool
< :: JobDeviceFilters -> JobDeviceFilters -> Bool
$c< :: JobDeviceFilters -> JobDeviceFilters -> Bool
compare :: JobDeviceFilters -> JobDeviceFilters -> Ordering
$ccompare :: JobDeviceFilters -> JobDeviceFilters -> Ordering
$cp1Ord :: Eq JobDeviceFilters
Prelude.Ord)
instance Prelude.Show JobDeviceFilters where
  showsPrec :: Int -> JobDeviceFilters -> ShowS
showsPrec _ __x :: JobDeviceFilters
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (JobDeviceFilters -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort JobDeviceFilters
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField JobDeviceFilters "name" Data.Text.Text where
  fieldOf :: Proxy# "name"
-> (Text -> f Text) -> JobDeviceFilters -> f JobDeviceFilters
fieldOf _
    = ((Text -> f Text) -> JobDeviceFilters -> f JobDeviceFilters)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> JobDeviceFilters
-> f JobDeviceFilters
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((JobDeviceFilters -> Text)
-> (JobDeviceFilters -> Text -> JobDeviceFilters)
-> Lens JobDeviceFilters JobDeviceFilters Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           JobDeviceFilters -> Text
_JobDeviceFilters'name
           (\ x__ :: JobDeviceFilters
x__ y__ :: Text
y__ -> JobDeviceFilters
x__ {_JobDeviceFilters'name :: Text
_JobDeviceFilters'name = Text
y__}))
        (Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField JobDeviceFilters "tasks" (Data.Map.Map Data.Int.Int32 TaskDeviceFilters) where
  fieldOf :: Proxy# "tasks"
-> (Map Int32 TaskDeviceFilters -> f (Map Int32 TaskDeviceFilters))
-> JobDeviceFilters
-> f JobDeviceFilters
fieldOf _
    = ((Map Int32 TaskDeviceFilters -> f (Map Int32 TaskDeviceFilters))
 -> JobDeviceFilters -> f JobDeviceFilters)
-> ((Map Int32 TaskDeviceFilters
     -> f (Map Int32 TaskDeviceFilters))
    -> Map Int32 TaskDeviceFilters -> f (Map Int32 TaskDeviceFilters))
-> (Map Int32 TaskDeviceFilters -> f (Map Int32 TaskDeviceFilters))
-> JobDeviceFilters
-> f JobDeviceFilters
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((JobDeviceFilters -> Map Int32 TaskDeviceFilters)
-> (JobDeviceFilters
    -> Map Int32 TaskDeviceFilters -> JobDeviceFilters)
-> Lens
     JobDeviceFilters
     JobDeviceFilters
     (Map Int32 TaskDeviceFilters)
     (Map Int32 TaskDeviceFilters)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           JobDeviceFilters -> Map Int32 TaskDeviceFilters
_JobDeviceFilters'tasks
           (\ x__ :: JobDeviceFilters
x__ y__ :: Map Int32 TaskDeviceFilters
y__ -> JobDeviceFilters
x__ {_JobDeviceFilters'tasks :: Map Int32 TaskDeviceFilters
_JobDeviceFilters'tasks = Map Int32 TaskDeviceFilters
y__}))
        (Map Int32 TaskDeviceFilters -> f (Map Int32 TaskDeviceFilters))
-> Map Int32 TaskDeviceFilters -> f (Map Int32 TaskDeviceFilters)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message JobDeviceFilters where
  messageName :: Proxy JobDeviceFilters -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.JobDeviceFilters"
  packedMessageDescriptor :: Proxy JobDeviceFilters -> ByteString
packedMessageDescriptor _
    = "\n\
      \\DLEJobDeviceFilters\DC2\DC2\n\
      \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2=\n\
      \\ENQtasks\CAN\STX \ETX(\v2'.tensorflow.JobDeviceFilters.TasksEntryR\ENQtasks\SUBW\n\
      \\n\
      \TasksEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\ENQR\ETXkey\DC23\n\
      \\ENQvalue\CAN\STX \SOH(\v2\GS.tensorflow.TaskDeviceFiltersR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy JobDeviceFilters -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor JobDeviceFilters)
fieldsByTag
    = let
        name__field_descriptor :: FieldDescriptor JobDeviceFilters
name__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor JobDeviceFilters Text
-> FieldDescriptor JobDeviceFilters
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 JobDeviceFilters JobDeviceFilters Text Text
-> FieldAccessor JobDeviceFilters 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 JobDeviceFilters
        tasks__field_descriptor :: FieldDescriptor JobDeviceFilters
tasks__field_descriptor
          = String
-> FieldTypeDescriptor JobDeviceFilters'TasksEntry
-> FieldAccessor JobDeviceFilters JobDeviceFilters'TasksEntry
-> FieldDescriptor JobDeviceFilters
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "tasks"
              (MessageOrGroup -> FieldTypeDescriptor JobDeviceFilters'TasksEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor JobDeviceFilters'TasksEntry)
              (Lens' JobDeviceFilters'TasksEntry Int32
-> Lens' JobDeviceFilters'TasksEntry TaskDeviceFilters
-> Lens
     JobDeviceFilters
     JobDeviceFilters
     (Map Int32 TaskDeviceFilters)
     (Map Int32 TaskDeviceFilters)
-> FieldAccessor JobDeviceFilters JobDeviceFilters'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 JobDeviceFilters
      in
        [(Tag, FieldDescriptor JobDeviceFilters)]
-> Map Tag (FieldDescriptor JobDeviceFilters)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor JobDeviceFilters
name__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor JobDeviceFilters
tasks__field_descriptor)]
  unknownFields :: LensLike' f JobDeviceFilters FieldSet
unknownFields
    = (JobDeviceFilters -> FieldSet)
-> (JobDeviceFilters -> FieldSet -> JobDeviceFilters)
-> Lens' JobDeviceFilters FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        JobDeviceFilters -> FieldSet
_JobDeviceFilters'_unknownFields
        (\ x__ :: JobDeviceFilters
x__ y__ :: FieldSet
y__ -> JobDeviceFilters
x__ {_JobDeviceFilters'_unknownFields :: FieldSet
_JobDeviceFilters'_unknownFields = FieldSet
y__})
  defMessage :: JobDeviceFilters
defMessage
    = $WJobDeviceFilters'_constructor :: Text -> Map Int32 TaskDeviceFilters -> FieldSet -> JobDeviceFilters
JobDeviceFilters'_constructor
        {_JobDeviceFilters'name :: Text
_JobDeviceFilters'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _JobDeviceFilters'tasks :: Map Int32 TaskDeviceFilters
_JobDeviceFilters'tasks = Map Int32 TaskDeviceFilters
forall k a. Map k a
Data.Map.empty,
         _JobDeviceFilters'_unknownFields :: FieldSet
_JobDeviceFilters'_unknownFields = []}
  parseMessage :: Parser JobDeviceFilters
parseMessage
    = let
        loop ::
          JobDeviceFilters
          -> Data.ProtoLens.Encoding.Bytes.Parser JobDeviceFilters
        loop :: JobDeviceFilters -> Parser JobDeviceFilters
loop x :: JobDeviceFilters
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]))))
                      JobDeviceFilters -> Parser JobDeviceFilters
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter JobDeviceFilters JobDeviceFilters FieldSet FieldSet
-> (FieldSet -> FieldSet) -> JobDeviceFilters -> JobDeviceFilters
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 JobDeviceFilters JobDeviceFilters FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) JobDeviceFilters
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"
                                JobDeviceFilters -> Parser JobDeviceFilters
loop (Setter JobDeviceFilters JobDeviceFilters Text Text
-> Text -> JobDeviceFilters -> JobDeviceFilters
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 JobDeviceFilters
x)
                        18
                          -> do !(JobDeviceFilters'TasksEntry
entry :: JobDeviceFilters'TasksEntry) <- Parser JobDeviceFilters'TasksEntry
-> String -> Parser JobDeviceFilters'TasksEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                                                             (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                                                                 Int
-> Parser JobDeviceFilters'TasksEntry
-> Parser JobDeviceFilters'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 JobDeviceFilters'TasksEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                                                             "tasks"
                                (let
                                   key :: Int32
key = FoldLike
  Int32
  JobDeviceFilters'TasksEntry
  JobDeviceFilters'TasksEntry
  Int32
  Int32
-> JobDeviceFilters'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") JobDeviceFilters'TasksEntry
entry
                                   value :: TaskDeviceFilters
value
                                     = FoldLike
  TaskDeviceFilters
  JobDeviceFilters'TasksEntry
  JobDeviceFilters'TasksEntry
  TaskDeviceFilters
  TaskDeviceFilters
-> JobDeviceFilters'TasksEntry -> TaskDeviceFilters
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") JobDeviceFilters'TasksEntry
entry
                                 in
                                   JobDeviceFilters -> Parser JobDeviceFilters
loop
                                     (Setter
  JobDeviceFilters
  JobDeviceFilters
  (Map Int32 TaskDeviceFilters)
  (Map Int32 TaskDeviceFilters)
-> (Map Int32 TaskDeviceFilters -> Map Int32 TaskDeviceFilters)
-> JobDeviceFilters
-> JobDeviceFilters
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 TaskDeviceFilters
t -> Int32
-> TaskDeviceFilters
-> Map Int32 TaskDeviceFilters
-> Map Int32 TaskDeviceFilters
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Int32
key TaskDeviceFilters
value Map Int32 TaskDeviceFilters
t)
                                        JobDeviceFilters
x))
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                JobDeviceFilters -> Parser JobDeviceFilters
loop
                                  (Setter JobDeviceFilters JobDeviceFilters FieldSet FieldSet
-> (FieldSet -> FieldSet) -> JobDeviceFilters -> JobDeviceFilters
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 JobDeviceFilters JobDeviceFilters FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) JobDeviceFilters
x)
      in
        Parser JobDeviceFilters -> String -> Parser JobDeviceFilters
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do JobDeviceFilters -> Parser JobDeviceFilters
loop JobDeviceFilters
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "JobDeviceFilters"
  buildMessage :: JobDeviceFilters -> Builder
buildMessage
    = \ _x :: JobDeviceFilters
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Text
_v = FoldLike Text JobDeviceFilters JobDeviceFilters Text Text
-> JobDeviceFilters -> 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") JobDeviceFilters
_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, TaskDeviceFilters) -> Builder)
-> [(Int32, TaskDeviceFilters)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
                      (\ _v :: (Int32, TaskDeviceFilters)
_v
                         -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                              (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                              ((ByteString -> Builder)
-> (JobDeviceFilters'TasksEntry -> ByteString)
-> JobDeviceFilters'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))
                                 JobDeviceFilters'TasksEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                                 (Setter
  JobDeviceFilters'TasksEntry JobDeviceFilters'TasksEntry Int32 Int32
-> Int32
-> JobDeviceFilters'TasksEntry
-> JobDeviceFilters'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, TaskDeviceFilters) -> Int32
forall a b. (a, b) -> a
Prelude.fst (Int32, TaskDeviceFilters)
_v)
                                    (Setter
  JobDeviceFilters'TasksEntry
  JobDeviceFilters'TasksEntry
  TaskDeviceFilters
  TaskDeviceFilters
-> TaskDeviceFilters
-> JobDeviceFilters'TasksEntry
-> JobDeviceFilters'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, TaskDeviceFilters) -> TaskDeviceFilters
forall a b. (a, b) -> b
Prelude.snd (Int32, TaskDeviceFilters)
_v)
                                       (JobDeviceFilters'TasksEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
                                          JobDeviceFilters'TasksEntry)))))
                      (Map Int32 TaskDeviceFilters -> [(Int32, TaskDeviceFilters)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
                         (FoldLike
  (Map Int32 TaskDeviceFilters)
  JobDeviceFilters
  JobDeviceFilters
  (Map Int32 TaskDeviceFilters)
  (Map Int32 TaskDeviceFilters)
-> JobDeviceFilters -> Map Int32 TaskDeviceFilters
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") JobDeviceFilters
_x))))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet JobDeviceFilters JobDeviceFilters FieldSet FieldSet
-> JobDeviceFilters -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet JobDeviceFilters JobDeviceFilters FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields JobDeviceFilters
_x)))
instance Control.DeepSeq.NFData JobDeviceFilters where
  rnf :: JobDeviceFilters -> ()
rnf
    = \ x__ :: JobDeviceFilters
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (JobDeviceFilters -> FieldSet
_JobDeviceFilters'_unknownFields JobDeviceFilters
x__)
             (Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (JobDeviceFilters -> Text
_JobDeviceFilters'name JobDeviceFilters
x__)
                (Map Int32 TaskDeviceFilters -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (JobDeviceFilters -> Map Int32 TaskDeviceFilters
_JobDeviceFilters'tasks JobDeviceFilters
x__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.DeviceFilters_Fields.key' @:: Lens' JobDeviceFilters'TasksEntry Data.Int.Int32@
         * 'Proto.Tensorflow.Core.Protobuf.DeviceFilters_Fields.value' @:: Lens' JobDeviceFilters'TasksEntry TaskDeviceFilters@
         * 'Proto.Tensorflow.Core.Protobuf.DeviceFilters_Fields.maybe'value' @:: Lens' JobDeviceFilters'TasksEntry (Prelude.Maybe TaskDeviceFilters)@ -}
data JobDeviceFilters'TasksEntry
  = JobDeviceFilters'TasksEntry'_constructor {JobDeviceFilters'TasksEntry -> Int32
_JobDeviceFilters'TasksEntry'key :: !Data.Int.Int32,
                                              JobDeviceFilters'TasksEntry -> Maybe TaskDeviceFilters
_JobDeviceFilters'TasksEntry'value :: !(Prelude.Maybe TaskDeviceFilters),
                                              JobDeviceFilters'TasksEntry -> FieldSet
_JobDeviceFilters'TasksEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry -> Bool
(JobDeviceFilters'TasksEntry
 -> JobDeviceFilters'TasksEntry -> Bool)
-> (JobDeviceFilters'TasksEntry
    -> JobDeviceFilters'TasksEntry -> Bool)
-> Eq JobDeviceFilters'TasksEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry -> Bool
$c/= :: JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry -> Bool
== :: JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry -> Bool
$c== :: JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry -> Bool
Prelude.Eq, Eq JobDeviceFilters'TasksEntry
Eq JobDeviceFilters'TasksEntry =>
(JobDeviceFilters'TasksEntry
 -> JobDeviceFilters'TasksEntry -> Ordering)
-> (JobDeviceFilters'TasksEntry
    -> JobDeviceFilters'TasksEntry -> Bool)
-> (JobDeviceFilters'TasksEntry
    -> JobDeviceFilters'TasksEntry -> Bool)
-> (JobDeviceFilters'TasksEntry
    -> JobDeviceFilters'TasksEntry -> Bool)
-> (JobDeviceFilters'TasksEntry
    -> JobDeviceFilters'TasksEntry -> Bool)
-> (JobDeviceFilters'TasksEntry
    -> JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry)
-> (JobDeviceFilters'TasksEntry
    -> JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry)
-> Ord JobDeviceFilters'TasksEntry
JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry -> Bool
JobDeviceFilters'TasksEntry
-> JobDeviceFilters'TasksEntry -> Ordering
JobDeviceFilters'TasksEntry
-> JobDeviceFilters'TasksEntry -> JobDeviceFilters'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 :: JobDeviceFilters'TasksEntry
-> JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry
$cmin :: JobDeviceFilters'TasksEntry
-> JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry
max :: JobDeviceFilters'TasksEntry
-> JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry
$cmax :: JobDeviceFilters'TasksEntry
-> JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry
>= :: JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry -> Bool
$c>= :: JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry -> Bool
> :: JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry -> Bool
$c> :: JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry -> Bool
<= :: JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry -> Bool
$c<= :: JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry -> Bool
< :: JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry -> Bool
$c< :: JobDeviceFilters'TasksEntry -> JobDeviceFilters'TasksEntry -> Bool
compare :: JobDeviceFilters'TasksEntry
-> JobDeviceFilters'TasksEntry -> Ordering
$ccompare :: JobDeviceFilters'TasksEntry
-> JobDeviceFilters'TasksEntry -> Ordering
$cp1Ord :: Eq JobDeviceFilters'TasksEntry
Prelude.Ord)
instance Prelude.Show JobDeviceFilters'TasksEntry where
  showsPrec :: Int -> JobDeviceFilters'TasksEntry -> ShowS
showsPrec _ __x :: JobDeviceFilters'TasksEntry
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (JobDeviceFilters'TasksEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort JobDeviceFilters'TasksEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField JobDeviceFilters'TasksEntry "key" Data.Int.Int32 where
  fieldOf :: Proxy# "key"
-> (Int32 -> f Int32)
-> JobDeviceFilters'TasksEntry
-> f JobDeviceFilters'TasksEntry
fieldOf _
    = ((Int32 -> f Int32)
 -> JobDeviceFilters'TasksEntry -> f JobDeviceFilters'TasksEntry)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> JobDeviceFilters'TasksEntry
-> f JobDeviceFilters'TasksEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((JobDeviceFilters'TasksEntry -> Int32)
-> (JobDeviceFilters'TasksEntry
    -> Int32 -> JobDeviceFilters'TasksEntry)
-> Lens' JobDeviceFilters'TasksEntry Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           JobDeviceFilters'TasksEntry -> Int32
_JobDeviceFilters'TasksEntry'key
           (\ x__ :: JobDeviceFilters'TasksEntry
x__ y__ :: Int32
y__ -> JobDeviceFilters'TasksEntry
x__ {_JobDeviceFilters'TasksEntry'key :: Int32
_JobDeviceFilters'TasksEntry'key = Int32
y__}))
        (Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField JobDeviceFilters'TasksEntry "value" TaskDeviceFilters where
  fieldOf :: Proxy# "value"
-> (TaskDeviceFilters -> f TaskDeviceFilters)
-> JobDeviceFilters'TasksEntry
-> f JobDeviceFilters'TasksEntry
fieldOf _
    = ((Maybe TaskDeviceFilters -> f (Maybe TaskDeviceFilters))
 -> JobDeviceFilters'TasksEntry -> f JobDeviceFilters'TasksEntry)
-> ((TaskDeviceFilters -> f TaskDeviceFilters)
    -> Maybe TaskDeviceFilters -> f (Maybe TaskDeviceFilters))
-> (TaskDeviceFilters -> f TaskDeviceFilters)
-> JobDeviceFilters'TasksEntry
-> f JobDeviceFilters'TasksEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((JobDeviceFilters'TasksEntry -> Maybe TaskDeviceFilters)
-> (JobDeviceFilters'TasksEntry
    -> Maybe TaskDeviceFilters -> JobDeviceFilters'TasksEntry)
-> Lens
     JobDeviceFilters'TasksEntry
     JobDeviceFilters'TasksEntry
     (Maybe TaskDeviceFilters)
     (Maybe TaskDeviceFilters)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           JobDeviceFilters'TasksEntry -> Maybe TaskDeviceFilters
_JobDeviceFilters'TasksEntry'value
           (\ x__ :: JobDeviceFilters'TasksEntry
x__ y__ :: Maybe TaskDeviceFilters
y__ -> JobDeviceFilters'TasksEntry
x__ {_JobDeviceFilters'TasksEntry'value :: Maybe TaskDeviceFilters
_JobDeviceFilters'TasksEntry'value = Maybe TaskDeviceFilters
y__}))
        (TaskDeviceFilters
-> Lens' (Maybe TaskDeviceFilters) TaskDeviceFilters
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TaskDeviceFilters
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField JobDeviceFilters'TasksEntry "maybe'value" (Prelude.Maybe TaskDeviceFilters) where
  fieldOf :: Proxy# "maybe'value"
-> (Maybe TaskDeviceFilters -> f (Maybe TaskDeviceFilters))
-> JobDeviceFilters'TasksEntry
-> f JobDeviceFilters'TasksEntry
fieldOf _
    = ((Maybe TaskDeviceFilters -> f (Maybe TaskDeviceFilters))
 -> JobDeviceFilters'TasksEntry -> f JobDeviceFilters'TasksEntry)
-> ((Maybe TaskDeviceFilters -> f (Maybe TaskDeviceFilters))
    -> Maybe TaskDeviceFilters -> f (Maybe TaskDeviceFilters))
-> (Maybe TaskDeviceFilters -> f (Maybe TaskDeviceFilters))
-> JobDeviceFilters'TasksEntry
-> f JobDeviceFilters'TasksEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((JobDeviceFilters'TasksEntry -> Maybe TaskDeviceFilters)
-> (JobDeviceFilters'TasksEntry
    -> Maybe TaskDeviceFilters -> JobDeviceFilters'TasksEntry)
-> Lens
     JobDeviceFilters'TasksEntry
     JobDeviceFilters'TasksEntry
     (Maybe TaskDeviceFilters)
     (Maybe TaskDeviceFilters)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           JobDeviceFilters'TasksEntry -> Maybe TaskDeviceFilters
_JobDeviceFilters'TasksEntry'value
           (\ x__ :: JobDeviceFilters'TasksEntry
x__ y__ :: Maybe TaskDeviceFilters
y__ -> JobDeviceFilters'TasksEntry
x__ {_JobDeviceFilters'TasksEntry'value :: Maybe TaskDeviceFilters
_JobDeviceFilters'TasksEntry'value = Maybe TaskDeviceFilters
y__}))
        (Maybe TaskDeviceFilters -> f (Maybe TaskDeviceFilters))
-> Maybe TaskDeviceFilters -> f (Maybe TaskDeviceFilters)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message JobDeviceFilters'TasksEntry where
  messageName :: Proxy JobDeviceFilters'TasksEntry -> Text
messageName _
    = String -> Text
Data.Text.pack "tensorflow.JobDeviceFilters.TasksEntry"
  packedMessageDescriptor :: Proxy JobDeviceFilters'TasksEntry -> ByteString
packedMessageDescriptor _
    = "\n\
      \\n\
      \TasksEntry\DC2\DLE\n\
      \\ETXkey\CAN\SOH \SOH(\ENQR\ETXkey\DC23\n\
      \\ENQvalue\CAN\STX \SOH(\v2\GS.tensorflow.TaskDeviceFiltersR\ENQvalue:\STX8\SOH"
  packedFileDescriptor :: Proxy JobDeviceFilters'TasksEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor JobDeviceFilters'TasksEntry)
fieldsByTag
    = let
        key__field_descriptor :: FieldDescriptor JobDeviceFilters'TasksEntry
key__field_descriptor
          = String
-> FieldTypeDescriptor Int32
-> FieldAccessor JobDeviceFilters'TasksEntry Int32
-> FieldDescriptor JobDeviceFilters'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' JobDeviceFilters'TasksEntry Int32
-> FieldAccessor JobDeviceFilters'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 JobDeviceFilters'TasksEntry
        value__field_descriptor :: FieldDescriptor JobDeviceFilters'TasksEntry
value__field_descriptor
          = String
-> FieldTypeDescriptor TaskDeviceFilters
-> FieldAccessor JobDeviceFilters'TasksEntry TaskDeviceFilters
-> FieldDescriptor JobDeviceFilters'TasksEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "value"
              (MessageOrGroup -> FieldTypeDescriptor TaskDeviceFilters
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
                 Data.ProtoLens.FieldTypeDescriptor TaskDeviceFilters)
              (Lens
  JobDeviceFilters'TasksEntry
  JobDeviceFilters'TasksEntry
  (Maybe TaskDeviceFilters)
  (Maybe TaskDeviceFilters)
-> FieldAccessor JobDeviceFilters'TasksEntry TaskDeviceFilters
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
                 (forall s a (f :: * -> *).
(HasField s "maybe'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 @"maybe'value")) ::
              Data.ProtoLens.FieldDescriptor JobDeviceFilters'TasksEntry
      in
        [(Tag, FieldDescriptor JobDeviceFilters'TasksEntry)]
-> Map Tag (FieldDescriptor JobDeviceFilters'TasksEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor JobDeviceFilters'TasksEntry
key__field_descriptor),
           (Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor JobDeviceFilters'TasksEntry
value__field_descriptor)]
  unknownFields :: LensLike' f JobDeviceFilters'TasksEntry FieldSet
unknownFields
    = (JobDeviceFilters'TasksEntry -> FieldSet)
-> (JobDeviceFilters'TasksEntry
    -> FieldSet -> JobDeviceFilters'TasksEntry)
-> Lens' JobDeviceFilters'TasksEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        JobDeviceFilters'TasksEntry -> FieldSet
_JobDeviceFilters'TasksEntry'_unknownFields
        (\ x__ :: JobDeviceFilters'TasksEntry
x__ y__ :: FieldSet
y__
           -> JobDeviceFilters'TasksEntry
x__ {_JobDeviceFilters'TasksEntry'_unknownFields :: FieldSet
_JobDeviceFilters'TasksEntry'_unknownFields = FieldSet
y__})
  defMessage :: JobDeviceFilters'TasksEntry
defMessage
    = $WJobDeviceFilters'TasksEntry'_constructor :: Int32
-> Maybe TaskDeviceFilters
-> FieldSet
-> JobDeviceFilters'TasksEntry
JobDeviceFilters'TasksEntry'_constructor
        {_JobDeviceFilters'TasksEntry'key :: Int32
_JobDeviceFilters'TasksEntry'key = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
         _JobDeviceFilters'TasksEntry'value :: Maybe TaskDeviceFilters
_JobDeviceFilters'TasksEntry'value = Maybe TaskDeviceFilters
forall a. Maybe a
Prelude.Nothing,
         _JobDeviceFilters'TasksEntry'_unknownFields :: FieldSet
_JobDeviceFilters'TasksEntry'_unknownFields = []}
  parseMessage :: Parser JobDeviceFilters'TasksEntry
parseMessage
    = let
        loop ::
          JobDeviceFilters'TasksEntry
          -> Data.ProtoLens.Encoding.Bytes.Parser JobDeviceFilters'TasksEntry
        loop :: JobDeviceFilters'TasksEntry -> Parser JobDeviceFilters'TasksEntry
loop x :: JobDeviceFilters'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]))))
                      JobDeviceFilters'TasksEntry -> Parser JobDeviceFilters'TasksEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter
  JobDeviceFilters'TasksEntry
  JobDeviceFilters'TasksEntry
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> JobDeviceFilters'TasksEntry
-> JobDeviceFilters'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
  JobDeviceFilters'TasksEntry
  JobDeviceFilters'TasksEntry
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) JobDeviceFilters'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"
                                JobDeviceFilters'TasksEntry -> Parser JobDeviceFilters'TasksEntry
loop (Setter
  JobDeviceFilters'TasksEntry JobDeviceFilters'TasksEntry Int32 Int32
-> Int32
-> JobDeviceFilters'TasksEntry
-> JobDeviceFilters'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 JobDeviceFilters'TasksEntry
x)
                        18
                          -> do TaskDeviceFilters
y <- Parser TaskDeviceFilters -> String -> Parser TaskDeviceFilters
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
                                       (do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
                                           Int -> Parser TaskDeviceFilters -> Parser TaskDeviceFilters
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 TaskDeviceFilters
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
                                       "value"
                                JobDeviceFilters'TasksEntry -> Parser JobDeviceFilters'TasksEntry
loop (Setter
  JobDeviceFilters'TasksEntry
  JobDeviceFilters'TasksEntry
  TaskDeviceFilters
  TaskDeviceFilters
-> TaskDeviceFilters
-> JobDeviceFilters'TasksEntry
-> JobDeviceFilters'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") TaskDeviceFilters
y JobDeviceFilters'TasksEntry
x)
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                JobDeviceFilters'TasksEntry -> Parser JobDeviceFilters'TasksEntry
loop
                                  (Setter
  JobDeviceFilters'TasksEntry
  JobDeviceFilters'TasksEntry
  FieldSet
  FieldSet
-> (FieldSet -> FieldSet)
-> JobDeviceFilters'TasksEntry
-> JobDeviceFilters'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
  JobDeviceFilters'TasksEntry
  JobDeviceFilters'TasksEntry
  FieldSet
  FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) JobDeviceFilters'TasksEntry
x)
      in
        Parser JobDeviceFilters'TasksEntry
-> String -> Parser JobDeviceFilters'TasksEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do JobDeviceFilters'TasksEntry -> Parser JobDeviceFilters'TasksEntry
loop JobDeviceFilters'TasksEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "TasksEntry"
  buildMessage :: JobDeviceFilters'TasksEntry -> Builder
buildMessage
    = \ _x :: JobDeviceFilters'TasksEntry
_x
        -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
             (let _v :: Int32
_v = FoldLike
  Int32
  JobDeviceFilters'TasksEntry
  JobDeviceFilters'TasksEntry
  Int32
  Int32
-> JobDeviceFilters'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") JobDeviceFilters'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.<>)
                (case
                     FoldLike
  (Maybe TaskDeviceFilters)
  JobDeviceFilters'TasksEntry
  JobDeviceFilters'TasksEntry
  (Maybe TaskDeviceFilters)
  (Maybe TaskDeviceFilters)
-> JobDeviceFilters'TasksEntry -> Maybe TaskDeviceFilters
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'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 @"maybe'value") JobDeviceFilters'TasksEntry
_x
                 of
                   Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
                   (Prelude.Just _v :: TaskDeviceFilters
_v)
                     -> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
                          (Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
                          ((ByteString -> Builder)
-> (TaskDeviceFilters -> ByteString)
-> TaskDeviceFilters
-> 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))
                             TaskDeviceFilters -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
                             TaskDeviceFilters
_v))
                (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                   (FoldLike
  FieldSet
  JobDeviceFilters'TasksEntry
  JobDeviceFilters'TasksEntry
  FieldSet
  FieldSet
-> JobDeviceFilters'TasksEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet
  JobDeviceFilters'TasksEntry
  JobDeviceFilters'TasksEntry
  FieldSet
  FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields JobDeviceFilters'TasksEntry
_x)))
instance Control.DeepSeq.NFData JobDeviceFilters'TasksEntry where
  rnf :: JobDeviceFilters'TasksEntry -> ()
rnf
    = \ x__ :: JobDeviceFilters'TasksEntry
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (JobDeviceFilters'TasksEntry -> FieldSet
_JobDeviceFilters'TasksEntry'_unknownFields JobDeviceFilters'TasksEntry
x__)
             (Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                (JobDeviceFilters'TasksEntry -> Int32
_JobDeviceFilters'TasksEntry'key JobDeviceFilters'TasksEntry
x__)
                (Maybe TaskDeviceFilters -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
                   (JobDeviceFilters'TasksEntry -> Maybe TaskDeviceFilters
_JobDeviceFilters'TasksEntry'value JobDeviceFilters'TasksEntry
x__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.DeviceFilters_Fields.deviceFilters' @:: Lens' TaskDeviceFilters [Data.Text.Text]@
         * 'Proto.Tensorflow.Core.Protobuf.DeviceFilters_Fields.vec'deviceFilters' @:: Lens' TaskDeviceFilters (Data.Vector.Vector Data.Text.Text)@ -}
data TaskDeviceFilters
  = TaskDeviceFilters'_constructor {TaskDeviceFilters -> Vector Text
_TaskDeviceFilters'deviceFilters :: !(Data.Vector.Vector Data.Text.Text),
                                    TaskDeviceFilters -> FieldSet
_TaskDeviceFilters'_unknownFields :: !Data.ProtoLens.FieldSet}
  deriving stock (TaskDeviceFilters -> TaskDeviceFilters -> Bool
(TaskDeviceFilters -> TaskDeviceFilters -> Bool)
-> (TaskDeviceFilters -> TaskDeviceFilters -> Bool)
-> Eq TaskDeviceFilters
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TaskDeviceFilters -> TaskDeviceFilters -> Bool
$c/= :: TaskDeviceFilters -> TaskDeviceFilters -> Bool
== :: TaskDeviceFilters -> TaskDeviceFilters -> Bool
$c== :: TaskDeviceFilters -> TaskDeviceFilters -> Bool
Prelude.Eq, Eq TaskDeviceFilters
Eq TaskDeviceFilters =>
(TaskDeviceFilters -> TaskDeviceFilters -> Ordering)
-> (TaskDeviceFilters -> TaskDeviceFilters -> Bool)
-> (TaskDeviceFilters -> TaskDeviceFilters -> Bool)
-> (TaskDeviceFilters -> TaskDeviceFilters -> Bool)
-> (TaskDeviceFilters -> TaskDeviceFilters -> Bool)
-> (TaskDeviceFilters -> TaskDeviceFilters -> TaskDeviceFilters)
-> (TaskDeviceFilters -> TaskDeviceFilters -> TaskDeviceFilters)
-> Ord TaskDeviceFilters
TaskDeviceFilters -> TaskDeviceFilters -> Bool
TaskDeviceFilters -> TaskDeviceFilters -> Ordering
TaskDeviceFilters -> TaskDeviceFilters -> TaskDeviceFilters
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 :: TaskDeviceFilters -> TaskDeviceFilters -> TaskDeviceFilters
$cmin :: TaskDeviceFilters -> TaskDeviceFilters -> TaskDeviceFilters
max :: TaskDeviceFilters -> TaskDeviceFilters -> TaskDeviceFilters
$cmax :: TaskDeviceFilters -> TaskDeviceFilters -> TaskDeviceFilters
>= :: TaskDeviceFilters -> TaskDeviceFilters -> Bool
$c>= :: TaskDeviceFilters -> TaskDeviceFilters -> Bool
> :: TaskDeviceFilters -> TaskDeviceFilters -> Bool
$c> :: TaskDeviceFilters -> TaskDeviceFilters -> Bool
<= :: TaskDeviceFilters -> TaskDeviceFilters -> Bool
$c<= :: TaskDeviceFilters -> TaskDeviceFilters -> Bool
< :: TaskDeviceFilters -> TaskDeviceFilters -> Bool
$c< :: TaskDeviceFilters -> TaskDeviceFilters -> Bool
compare :: TaskDeviceFilters -> TaskDeviceFilters -> Ordering
$ccompare :: TaskDeviceFilters -> TaskDeviceFilters -> Ordering
$cp1Ord :: Eq TaskDeviceFilters
Prelude.Ord)
instance Prelude.Show TaskDeviceFilters where
  showsPrec :: Int -> TaskDeviceFilters -> ShowS
showsPrec _ __x :: TaskDeviceFilters
__x __s :: String
__s
    = Char -> ShowS
Prelude.showChar
        '{'
        (String -> ShowS
Prelude.showString
           (TaskDeviceFilters -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TaskDeviceFilters
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TaskDeviceFilters "deviceFilters" [Data.Text.Text] where
  fieldOf :: Proxy# "deviceFilters"
-> ([Text] -> f [Text]) -> TaskDeviceFilters -> f TaskDeviceFilters
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> TaskDeviceFilters -> f TaskDeviceFilters)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> TaskDeviceFilters
-> f TaskDeviceFilters
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TaskDeviceFilters -> Vector Text)
-> (TaskDeviceFilters -> Vector Text -> TaskDeviceFilters)
-> Lens
     TaskDeviceFilters TaskDeviceFilters (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TaskDeviceFilters -> Vector Text
_TaskDeviceFilters'deviceFilters
           (\ x__ :: TaskDeviceFilters
x__ y__ :: Vector Text
y__ -> TaskDeviceFilters
x__ {_TaskDeviceFilters'deviceFilters :: Vector Text
_TaskDeviceFilters'deviceFilters = 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 TaskDeviceFilters "vec'deviceFilters" (Data.Vector.Vector Data.Text.Text) where
  fieldOf :: Proxy# "vec'deviceFilters"
-> (Vector Text -> f (Vector Text))
-> TaskDeviceFilters
-> f TaskDeviceFilters
fieldOf _
    = ((Vector Text -> f (Vector Text))
 -> TaskDeviceFilters -> f TaskDeviceFilters)
-> ((Vector Text -> f (Vector Text))
    -> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> TaskDeviceFilters
-> f TaskDeviceFilters
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
        ((TaskDeviceFilters -> Vector Text)
-> (TaskDeviceFilters -> Vector Text -> TaskDeviceFilters)
-> Lens
     TaskDeviceFilters TaskDeviceFilters (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
           TaskDeviceFilters -> Vector Text
_TaskDeviceFilters'deviceFilters
           (\ x__ :: TaskDeviceFilters
x__ y__ :: Vector Text
y__ -> TaskDeviceFilters
x__ {_TaskDeviceFilters'deviceFilters :: Vector Text
_TaskDeviceFilters'deviceFilters = Vector Text
y__}))
        (Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TaskDeviceFilters where
  messageName :: Proxy TaskDeviceFilters -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.TaskDeviceFilters"
  packedMessageDescriptor :: Proxy TaskDeviceFilters -> ByteString
packedMessageDescriptor _
    = "\n\
      \\DC1TaskDeviceFilters\DC2%\n\
      \\SOdevice_filters\CAN\SOH \ETX(\tR\rdeviceFilters"
  packedFileDescriptor :: Proxy TaskDeviceFilters -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
  fieldsByTag :: Map Tag (FieldDescriptor TaskDeviceFilters)
fieldsByTag
    = let
        deviceFilters__field_descriptor :: FieldDescriptor TaskDeviceFilters
deviceFilters__field_descriptor
          = String
-> FieldTypeDescriptor Text
-> FieldAccessor TaskDeviceFilters Text
-> FieldDescriptor TaskDeviceFilters
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
              "device_filters"
              (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' TaskDeviceFilters [Text]
-> FieldAccessor TaskDeviceFilters Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
                 Packing
Data.ProtoLens.Unpacked
                 (forall s a (f :: * -> *).
(HasField s "deviceFilters" 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 @"deviceFilters")) ::
              Data.ProtoLens.FieldDescriptor TaskDeviceFilters
      in
        [(Tag, FieldDescriptor TaskDeviceFilters)]
-> Map Tag (FieldDescriptor TaskDeviceFilters)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
          [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor TaskDeviceFilters
deviceFilters__field_descriptor)]
  unknownFields :: LensLike' f TaskDeviceFilters FieldSet
unknownFields
    = (TaskDeviceFilters -> FieldSet)
-> (TaskDeviceFilters -> FieldSet -> TaskDeviceFilters)
-> Lens' TaskDeviceFilters FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
        TaskDeviceFilters -> FieldSet
_TaskDeviceFilters'_unknownFields
        (\ x__ :: TaskDeviceFilters
x__ y__ :: FieldSet
y__ -> TaskDeviceFilters
x__ {_TaskDeviceFilters'_unknownFields :: FieldSet
_TaskDeviceFilters'_unknownFields = FieldSet
y__})
  defMessage :: TaskDeviceFilters
defMessage
    = $WTaskDeviceFilters'_constructor :: Vector Text -> FieldSet -> TaskDeviceFilters
TaskDeviceFilters'_constructor
        {_TaskDeviceFilters'deviceFilters :: Vector Text
_TaskDeviceFilters'deviceFilters = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
         _TaskDeviceFilters'_unknownFields :: FieldSet
_TaskDeviceFilters'_unknownFields = []}
  parseMessage :: Parser TaskDeviceFilters
parseMessage
    = let
        loop ::
          TaskDeviceFilters
          -> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
             -> Data.ProtoLens.Encoding.Bytes.Parser TaskDeviceFilters
        loop :: TaskDeviceFilters
-> Growing Vector RealWorld Text -> Parser TaskDeviceFilters
loop x :: TaskDeviceFilters
x mutable'deviceFilters :: Growing Vector RealWorld Text
mutable'deviceFilters
          = do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
               if Bool
end then
                   do Vector Text
frozen'deviceFilters <- 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'deviceFilters)
                      (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]))))
                      TaskDeviceFilters -> Parser TaskDeviceFilters
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
                        (Setter TaskDeviceFilters TaskDeviceFilters FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TaskDeviceFilters -> TaskDeviceFilters
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 TaskDeviceFilters TaskDeviceFilters FieldSet FieldSet
Data.ProtoLens.unknownFields
                           (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
                           (Setter
  TaskDeviceFilters TaskDeviceFilters (Vector Text) (Vector Text)
-> Vector Text -> TaskDeviceFilters -> TaskDeviceFilters
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
                              (forall s a (f :: * -> *).
(HasField s "vec'deviceFilters" 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'deviceFilters")
                              Vector Text
frozen'deviceFilters
                              TaskDeviceFilters
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))
                                        "device_filters"
                                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'deviceFilters Text
y)
                                TaskDeviceFilters
-> Growing Vector RealWorld Text -> Parser TaskDeviceFilters
loop TaskDeviceFilters
x Growing Vector RealWorld Text
v
                        wire :: Word64
wire
                          -> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
                                        Word64
wire
                                TaskDeviceFilters
-> Growing Vector RealWorld Text -> Parser TaskDeviceFilters
loop
                                  (Setter TaskDeviceFilters TaskDeviceFilters FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TaskDeviceFilters -> TaskDeviceFilters
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 TaskDeviceFilters TaskDeviceFilters FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TaskDeviceFilters
x)
                                  Growing Vector RealWorld Text
mutable'deviceFilters
      in
        Parser TaskDeviceFilters -> String -> Parser TaskDeviceFilters
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
          (do Growing Vector RealWorld Text
mutable'deviceFilters <- 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
              TaskDeviceFilters
-> Growing Vector RealWorld Text -> Parser TaskDeviceFilters
loop TaskDeviceFilters
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Text
mutable'deviceFilters)
          "TaskDeviceFilters"
  buildMessage :: TaskDeviceFilters -> Builder
buildMessage
    = \ _x :: TaskDeviceFilters
_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 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))
                (FoldLike
  (Vector Text)
  TaskDeviceFilters
  TaskDeviceFilters
  (Vector Text)
  (Vector Text)
-> TaskDeviceFilters -> 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'deviceFilters" 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'deviceFilters") TaskDeviceFilters
_x))
             (FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
                (FoldLike
  FieldSet TaskDeviceFilters TaskDeviceFilters FieldSet FieldSet
-> TaskDeviceFilters -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
  FieldSet TaskDeviceFilters TaskDeviceFilters FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TaskDeviceFilters
_x))
instance Control.DeepSeq.NFData TaskDeviceFilters where
  rnf :: TaskDeviceFilters -> ()
rnf
    = \ x__ :: TaskDeviceFilters
x__
        -> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
             (TaskDeviceFilters -> FieldSet
_TaskDeviceFilters'_unknownFields TaskDeviceFilters
x__)
             (Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TaskDeviceFilters -> Vector Text
_TaskDeviceFilters'deviceFilters TaskDeviceFilters
x__) ())
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
  = "\n\
    \-tensorflow/core/protobuf/device_filters.proto\DC2\n\
    \tensorflow\":\n\
    \\DC1TaskDeviceFilters\DC2%\n\
    \\SOdevice_filters\CAN\SOH \ETX(\tR\rdeviceFilters\"\190\SOH\n\
    \\DLEJobDeviceFilters\DC2\DC2\n\
    \\EOTname\CAN\SOH \SOH(\tR\EOTname\DC2=\n\
    \\ENQtasks\CAN\STX \ETX(\v2'.tensorflow.JobDeviceFilters.TasksEntryR\ENQtasks\SUBW\n\
    \\n\
    \TasksEntry\DC2\DLE\n\
    \\ETXkey\CAN\SOH \SOH(\ENQR\ETXkey\DC23\n\
    \\ENQvalue\CAN\STX \SOH(\v2\GS.tensorflow.TaskDeviceFiltersR\ENQvalue:\STX8\SOH\"H\n\
    \\DC4ClusterDeviceFilters\DC20\n\
    \\EOTjobs\CAN\SOH \ETX(\v2\FS.tensorflow.JobDeviceFiltersR\EOTjobsB\128\SOH\n\
    \\SUBorg.tensorflow.distruntimeB\DC3DeviceFiltersProtosP\SOHZHgithub.com/tensorflow/tensorflow/tensorflow/go/core/core_protos_go_proto\248\SOH\SOHJ\206\DC3\n\
    \\ACK\DC2\EOT\SI\NULH\SOH\n\
    \\159\ENQ\n\
    \\SOH\f\DC2\ETX\SI\NUL\DC22\148\ENQ Copyright 2020 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\NUL4\n\
    \\t\n\
    \\STX\b\b\DC2\ETX\DC4\NUL4\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\
    \\202\t\n\
    \\STX\EOT\NUL\DC2\EOT8\NUL:\SOH\SUB/ Defines the device filters for a remote task.\n\
    \2\140\t This file contains protos to be used when defining a TensorFlow\n\
    \ cluster.\n\
    \\n\
    \ Configure device filters for remote tasks in the cluster. When associated\n\
    \ with a ClusterDef in setting up the cluster, a remote task will ignore all\n\
    \ devices which do not match any of its filters. Device filters must be\n\
    \ configured at the cluster startup, and cannot be updated once the cluster is\n\
    \ up and running.\n\
    \\n\
    \ EXAMPLES\n\
    \ --------\n\
    \\n\
    \ A two-job cluster with the following ClusterDef:\n\
    \\n\
    \  Cluster:\n\
    \    job { name: 'worker' tasks { key: 0 value: 'worker1:2222' }\n\
    \                         tasks { key: 1 value: 'worker2:2222' } }\n\
    \    job { name: 'ps'     tasks { key: 0 value: 'ps0:2222' }\n\
    \                         tasks { key: 1 value: 'ps1:2222' } }\n\
    \\n\
    \ Set device filters to isolate worker tasks:\n\
    \\n\
    \  ClusterDeviceFilters:\n\
    \    job { name: 'worker' tasks { key: 0\n\
    \                                 value: device_filter '/job:ps'\n\
    \                                        device_filter '/job:worker/task:0' }\n\
    \                         tasks { key: 1\n\
    \                                 value: device_filter '/job:ps'\n\
    \                                        device_filter '/job:worker/task:1' } }\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\NUL\SOH\DC2\ETX8\b\EM\n\
    \\v\n\
    \\EOT\EOT\NUL\STX\NUL\DC2\ETX9\STX%\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\EOT\DC2\ETX9\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ENQ\DC2\ETX9\v\DC1\n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX9\DC2 \n\
    \\f\n\
    \\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX9#$\n\
    \<\n\
    \\STX\EOT\SOH\DC2\EOT=\NULC\SOH\SUB0 Defines the device filters for tasks in a job.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\SOH\SOH\DC2\ETX=\b\CAN\n\
    \$\n\
    \\EOT\EOT\SOH\STX\NUL\DC2\ETX?\STX\DC2\SUB\ETB The name of this job.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETX?\STX\b\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX?\t\r\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX?\DLE\DC1\n\
    \;\n\
    \\EOT\EOT\SOH\STX\SOH\DC2\ETXB\STX*\SUB. Mapping from task ID to task device filters.\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETXB\STX\US\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETXB %\n\
    \\f\n\
    \\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETXB()\n\
    \?\n\
    \\STX\EOT\STX\DC2\EOTF\NULH\SOH\SUB3 Defines the device filters for jobs in a cluster.\n\
    \\n\
    \\n\
    \\n\
    \\ETX\EOT\STX\SOH\DC2\ETXF\b\FS\n\
    \\v\n\
    \\EOT\EOT\STX\STX\NUL\DC2\ETXG\STX%\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\EOT\DC2\ETXG\STX\n\
    \\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETXG\v\ESC\n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETXG\FS \n\
    \\f\n\
    \\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETXG#$b\ACKproto3"