{-# 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
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__) ())
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__) ()))
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__) ()))
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"