{-# 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.SavedObjectGraph (
FunctionSpec(), SaveableObject(), SavedAsset(),
SavedBareConcreteFunction(), SavedConcreteFunction(),
SavedConstant(), SavedFunction(), SavedObject(),
SavedObject'Kind(..), _SavedObject'UserObject, _SavedObject'Asset,
_SavedObject'Function, _SavedObject'Variable,
_SavedObject'BareConcreteFunction, _SavedObject'Constant,
_SavedObject'Resource, SavedObject'SaveableObjectsEntry(),
SavedObjectGraph(), SavedObjectGraph'ConcreteFunctionsEntry(),
SavedResource(), SavedUserObject(), SavedVariable()
) 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
import qualified Proto.Tensorflow.Core.Framework.TensorShape
import qualified Proto.Tensorflow.Core.Framework.Types
import qualified Proto.Tensorflow.Core.Framework.Variable
import qualified Proto.Tensorflow.Core.Framework.Versions
import qualified Proto.Tensorflow.Core.Protobuf.Struct
import qualified Proto.Tensorflow.Core.Protobuf.TrackableObjectGraph
data FunctionSpec
= FunctionSpec'_constructor {FunctionSpec -> Maybe StructuredValue
_FunctionSpec'fullargspec :: !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue),
FunctionSpec -> Bool
_FunctionSpec'isMethod :: !Prelude.Bool,
FunctionSpec -> Maybe StructuredValue
_FunctionSpec'inputSignature :: !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue),
FunctionSpec -> FieldSet
_FunctionSpec'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (FunctionSpec -> FunctionSpec -> Bool
(FunctionSpec -> FunctionSpec -> Bool)
-> (FunctionSpec -> FunctionSpec -> Bool) -> Eq FunctionSpec
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FunctionSpec -> FunctionSpec -> Bool
$c/= :: FunctionSpec -> FunctionSpec -> Bool
== :: FunctionSpec -> FunctionSpec -> Bool
$c== :: FunctionSpec -> FunctionSpec -> Bool
Prelude.Eq, Eq FunctionSpec
Eq FunctionSpec =>
(FunctionSpec -> FunctionSpec -> Ordering)
-> (FunctionSpec -> FunctionSpec -> Bool)
-> (FunctionSpec -> FunctionSpec -> Bool)
-> (FunctionSpec -> FunctionSpec -> Bool)
-> (FunctionSpec -> FunctionSpec -> Bool)
-> (FunctionSpec -> FunctionSpec -> FunctionSpec)
-> (FunctionSpec -> FunctionSpec -> FunctionSpec)
-> Ord FunctionSpec
FunctionSpec -> FunctionSpec -> Bool
FunctionSpec -> FunctionSpec -> Ordering
FunctionSpec -> FunctionSpec -> FunctionSpec
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 :: FunctionSpec -> FunctionSpec -> FunctionSpec
$cmin :: FunctionSpec -> FunctionSpec -> FunctionSpec
max :: FunctionSpec -> FunctionSpec -> FunctionSpec
$cmax :: FunctionSpec -> FunctionSpec -> FunctionSpec
>= :: FunctionSpec -> FunctionSpec -> Bool
$c>= :: FunctionSpec -> FunctionSpec -> Bool
> :: FunctionSpec -> FunctionSpec -> Bool
$c> :: FunctionSpec -> FunctionSpec -> Bool
<= :: FunctionSpec -> FunctionSpec -> Bool
$c<= :: FunctionSpec -> FunctionSpec -> Bool
< :: FunctionSpec -> FunctionSpec -> Bool
$c< :: FunctionSpec -> FunctionSpec -> Bool
compare :: FunctionSpec -> FunctionSpec -> Ordering
$ccompare :: FunctionSpec -> FunctionSpec -> Ordering
$cp1Ord :: Eq FunctionSpec
Prelude.Ord)
instance Prelude.Show FunctionSpec where
showsPrec :: Int -> FunctionSpec -> ShowS
showsPrec _ __x :: FunctionSpec
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(FunctionSpec -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FunctionSpec
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField FunctionSpec "fullargspec" Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue where
fieldOf :: Proxy# "fullargspec"
-> (StructuredValue -> f StructuredValue)
-> FunctionSpec
-> f FunctionSpec
fieldOf _
= ((Maybe StructuredValue -> f (Maybe StructuredValue))
-> FunctionSpec -> f FunctionSpec)
-> ((StructuredValue -> f StructuredValue)
-> Maybe StructuredValue -> f (Maybe StructuredValue))
-> (StructuredValue -> f StructuredValue)
-> FunctionSpec
-> f FunctionSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FunctionSpec -> Maybe StructuredValue)
-> (FunctionSpec -> Maybe StructuredValue -> FunctionSpec)
-> Lens
FunctionSpec
FunctionSpec
(Maybe StructuredValue)
(Maybe StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FunctionSpec -> Maybe StructuredValue
_FunctionSpec'fullargspec
(\ x__ :: FunctionSpec
x__ y__ :: Maybe StructuredValue
y__ -> FunctionSpec
x__ {_FunctionSpec'fullargspec :: Maybe StructuredValue
_FunctionSpec'fullargspec = Maybe StructuredValue
y__}))
(StructuredValue -> Lens' (Maybe StructuredValue) StructuredValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StructuredValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FunctionSpec "maybe'fullargspec" (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue) where
fieldOf :: Proxy# "maybe'fullargspec"
-> (Maybe StructuredValue -> f (Maybe StructuredValue))
-> FunctionSpec
-> f FunctionSpec
fieldOf _
= ((Maybe StructuredValue -> f (Maybe StructuredValue))
-> FunctionSpec -> f FunctionSpec)
-> ((Maybe StructuredValue -> f (Maybe StructuredValue))
-> Maybe StructuredValue -> f (Maybe StructuredValue))
-> (Maybe StructuredValue -> f (Maybe StructuredValue))
-> FunctionSpec
-> f FunctionSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FunctionSpec -> Maybe StructuredValue)
-> (FunctionSpec -> Maybe StructuredValue -> FunctionSpec)
-> Lens
FunctionSpec
FunctionSpec
(Maybe StructuredValue)
(Maybe StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FunctionSpec -> Maybe StructuredValue
_FunctionSpec'fullargspec
(\ x__ :: FunctionSpec
x__ y__ :: Maybe StructuredValue
y__ -> FunctionSpec
x__ {_FunctionSpec'fullargspec :: Maybe StructuredValue
_FunctionSpec'fullargspec = Maybe StructuredValue
y__}))
(Maybe StructuredValue -> f (Maybe StructuredValue))
-> Maybe StructuredValue -> f (Maybe StructuredValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FunctionSpec "isMethod" Prelude.Bool where
fieldOf :: Proxy# "isMethod"
-> (Bool -> f Bool) -> FunctionSpec -> f FunctionSpec
fieldOf _
= ((Bool -> f Bool) -> FunctionSpec -> f FunctionSpec)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> FunctionSpec
-> f FunctionSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FunctionSpec -> Bool)
-> (FunctionSpec -> Bool -> FunctionSpec)
-> Lens FunctionSpec FunctionSpec Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FunctionSpec -> Bool
_FunctionSpec'isMethod
(\ x__ :: FunctionSpec
x__ y__ :: Bool
y__ -> FunctionSpec
x__ {_FunctionSpec'isMethod :: Bool
_FunctionSpec'isMethod = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FunctionSpec "inputSignature" Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue where
fieldOf :: Proxy# "inputSignature"
-> (StructuredValue -> f StructuredValue)
-> FunctionSpec
-> f FunctionSpec
fieldOf _
= ((Maybe StructuredValue -> f (Maybe StructuredValue))
-> FunctionSpec -> f FunctionSpec)
-> ((StructuredValue -> f StructuredValue)
-> Maybe StructuredValue -> f (Maybe StructuredValue))
-> (StructuredValue -> f StructuredValue)
-> FunctionSpec
-> f FunctionSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FunctionSpec -> Maybe StructuredValue)
-> (FunctionSpec -> Maybe StructuredValue -> FunctionSpec)
-> Lens
FunctionSpec
FunctionSpec
(Maybe StructuredValue)
(Maybe StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FunctionSpec -> Maybe StructuredValue
_FunctionSpec'inputSignature
(\ x__ :: FunctionSpec
x__ y__ :: Maybe StructuredValue
y__ -> FunctionSpec
x__ {_FunctionSpec'inputSignature :: Maybe StructuredValue
_FunctionSpec'inputSignature = Maybe StructuredValue
y__}))
(StructuredValue -> Lens' (Maybe StructuredValue) StructuredValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StructuredValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FunctionSpec "maybe'inputSignature" (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue) where
fieldOf :: Proxy# "maybe'inputSignature"
-> (Maybe StructuredValue -> f (Maybe StructuredValue))
-> FunctionSpec
-> f FunctionSpec
fieldOf _
= ((Maybe StructuredValue -> f (Maybe StructuredValue))
-> FunctionSpec -> f FunctionSpec)
-> ((Maybe StructuredValue -> f (Maybe StructuredValue))
-> Maybe StructuredValue -> f (Maybe StructuredValue))
-> (Maybe StructuredValue -> f (Maybe StructuredValue))
-> FunctionSpec
-> f FunctionSpec
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FunctionSpec -> Maybe StructuredValue)
-> (FunctionSpec -> Maybe StructuredValue -> FunctionSpec)
-> Lens
FunctionSpec
FunctionSpec
(Maybe StructuredValue)
(Maybe StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FunctionSpec -> Maybe StructuredValue
_FunctionSpec'inputSignature
(\ x__ :: FunctionSpec
x__ y__ :: Maybe StructuredValue
y__ -> FunctionSpec
x__ {_FunctionSpec'inputSignature :: Maybe StructuredValue
_FunctionSpec'inputSignature = Maybe StructuredValue
y__}))
(Maybe StructuredValue -> f (Maybe StructuredValue))
-> Maybe StructuredValue -> f (Maybe StructuredValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FunctionSpec where
messageName :: Proxy FunctionSpec -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.FunctionSpec"
packedMessageDescriptor :: Proxy FunctionSpec -> ByteString
packedMessageDescriptor _
= "\n\
\\fFunctionSpec\DC2=\n\
\\vfullargspec\CAN\SOH \SOH(\v2\ESC.tensorflow.StructuredValueR\vfullargspec\DC2\ESC\n\
\\tis_method\CAN\STX \SOH(\bR\bisMethod\DC2D\n\
\\SIinput_signature\CAN\ENQ \SOH(\v2\ESC.tensorflow.StructuredValueR\SOinputSignatureJ\EOT\b\ETX\DLE\EOTJ\EOT\b\EOT\DLE\ENQ"
packedFileDescriptor :: Proxy FunctionSpec -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor FunctionSpec)
fieldsByTag
= let
fullargspec__field_descriptor :: FieldDescriptor FunctionSpec
fullargspec__field_descriptor
= String
-> FieldTypeDescriptor StructuredValue
-> FieldAccessor FunctionSpec StructuredValue
-> FieldDescriptor FunctionSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"fullargspec"
(MessageOrGroup -> FieldTypeDescriptor StructuredValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue)
(Lens
FunctionSpec
FunctionSpec
(Maybe StructuredValue)
(Maybe StructuredValue)
-> FieldAccessor FunctionSpec StructuredValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'fullargspec" 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'fullargspec")) ::
Data.ProtoLens.FieldDescriptor FunctionSpec
isMethod__field_descriptor :: FieldDescriptor FunctionSpec
isMethod__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor FunctionSpec Bool
-> FieldDescriptor FunctionSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"is_method"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens FunctionSpec FunctionSpec Bool Bool
-> FieldAccessor FunctionSpec Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "isMethod" 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 @"isMethod")) ::
Data.ProtoLens.FieldDescriptor FunctionSpec
inputSignature__field_descriptor :: FieldDescriptor FunctionSpec
inputSignature__field_descriptor
= String
-> FieldTypeDescriptor StructuredValue
-> FieldAccessor FunctionSpec StructuredValue
-> FieldDescriptor FunctionSpec
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"input_signature"
(MessageOrGroup -> FieldTypeDescriptor StructuredValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue)
(Lens
FunctionSpec
FunctionSpec
(Maybe StructuredValue)
(Maybe StructuredValue)
-> FieldAccessor FunctionSpec StructuredValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'inputSignature" 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'inputSignature")) ::
Data.ProtoLens.FieldDescriptor FunctionSpec
in
[(Tag, FieldDescriptor FunctionSpec)]
-> Map Tag (FieldDescriptor FunctionSpec)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FunctionSpec
fullargspec__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor FunctionSpec
isMethod__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor FunctionSpec
inputSignature__field_descriptor)]
unknownFields :: LensLike' f FunctionSpec FieldSet
unknownFields
= (FunctionSpec -> FieldSet)
-> (FunctionSpec -> FieldSet -> FunctionSpec)
-> Lens' FunctionSpec FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FunctionSpec -> FieldSet
_FunctionSpec'_unknownFields
(\ x__ :: FunctionSpec
x__ y__ :: FieldSet
y__ -> FunctionSpec
x__ {_FunctionSpec'_unknownFields :: FieldSet
_FunctionSpec'_unknownFields = FieldSet
y__})
defMessage :: FunctionSpec
defMessage
= $WFunctionSpec'_constructor :: Maybe StructuredValue
-> Bool -> Maybe StructuredValue -> FieldSet -> FunctionSpec
FunctionSpec'_constructor
{_FunctionSpec'fullargspec :: Maybe StructuredValue
_FunctionSpec'fullargspec = Maybe StructuredValue
forall a. Maybe a
Prelude.Nothing,
_FunctionSpec'isMethod :: Bool
_FunctionSpec'isMethod = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_FunctionSpec'inputSignature :: Maybe StructuredValue
_FunctionSpec'inputSignature = Maybe StructuredValue
forall a. Maybe a
Prelude.Nothing,
_FunctionSpec'_unknownFields :: FieldSet
_FunctionSpec'_unknownFields = []}
parseMessage :: Parser FunctionSpec
parseMessage
= let
loop ::
FunctionSpec -> Data.ProtoLens.Encoding.Bytes.Parser FunctionSpec
loop :: FunctionSpec -> Parser FunctionSpec
loop x :: FunctionSpec
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]))))
FunctionSpec -> Parser FunctionSpec
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter FunctionSpec FunctionSpec FieldSet FieldSet
-> (FieldSet -> FieldSet) -> FunctionSpec -> FunctionSpec
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 FunctionSpec FunctionSpec FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) FunctionSpec
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do StructuredValue
y <- Parser StructuredValue -> String -> Parser StructuredValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser StructuredValue -> Parser StructuredValue
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 StructuredValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"fullargspec"
FunctionSpec -> Parser FunctionSpec
loop
(Setter FunctionSpec FunctionSpec StructuredValue StructuredValue
-> StructuredValue -> FunctionSpec -> FunctionSpec
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "fullargspec" 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 @"fullargspec") StructuredValue
y FunctionSpec
x)
16
-> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
(Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"is_method"
FunctionSpec -> Parser FunctionSpec
loop
(Setter FunctionSpec FunctionSpec Bool Bool
-> Bool -> FunctionSpec -> FunctionSpec
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "isMethod" 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 @"isMethod") Bool
y FunctionSpec
x)
42
-> do StructuredValue
y <- Parser StructuredValue -> String -> Parser StructuredValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser StructuredValue -> Parser StructuredValue
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 StructuredValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"input_signature"
FunctionSpec -> Parser FunctionSpec
loop
(Setter FunctionSpec FunctionSpec StructuredValue StructuredValue
-> StructuredValue -> FunctionSpec -> FunctionSpec
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "inputSignature" 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 @"inputSignature") StructuredValue
y FunctionSpec
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
FunctionSpec -> Parser FunctionSpec
loop
(Setter FunctionSpec FunctionSpec FieldSet FieldSet
-> (FieldSet -> FieldSet) -> FunctionSpec -> FunctionSpec
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 FunctionSpec FunctionSpec FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FunctionSpec
x)
in
Parser FunctionSpec -> String -> Parser FunctionSpec
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do FunctionSpec -> Parser FunctionSpec
loop FunctionSpec
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "FunctionSpec"
buildMessage :: FunctionSpec -> Builder
buildMessage
= \ _x :: FunctionSpec
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe StructuredValue)
FunctionSpec
FunctionSpec
(Maybe StructuredValue)
(Maybe StructuredValue)
-> FunctionSpec -> Maybe StructuredValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'fullargspec" 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'fullargspec") FunctionSpec
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: StructuredValue
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (StructuredValue -> ByteString) -> StructuredValue -> 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))
StructuredValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
StructuredValue
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v = FoldLike Bool FunctionSpec FunctionSpec Bool Bool
-> FunctionSpec -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "isMethod" 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 @"isMethod") FunctionSpec
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 16)
((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(\ b :: Bool
b -> if Bool
b then 1 else 0)
Bool
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe StructuredValue)
FunctionSpec
FunctionSpec
(Maybe StructuredValue)
(Maybe StructuredValue)
-> FunctionSpec -> Maybe StructuredValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'inputSignature" 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'inputSignature") FunctionSpec
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: StructuredValue
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((ByteString -> Builder)
-> (StructuredValue -> ByteString) -> StructuredValue -> 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))
StructuredValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
StructuredValue
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet FunctionSpec FunctionSpec FieldSet FieldSet
-> FunctionSpec -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet FunctionSpec FunctionSpec FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FunctionSpec
_x))))
instance Control.DeepSeq.NFData FunctionSpec where
rnf :: FunctionSpec -> ()
rnf
= \ x__ :: FunctionSpec
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(FunctionSpec -> FieldSet
_FunctionSpec'_unknownFields FunctionSpec
x__)
(Maybe StructuredValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(FunctionSpec -> Maybe StructuredValue
_FunctionSpec'fullargspec FunctionSpec
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(FunctionSpec -> Bool
_FunctionSpec'isMethod FunctionSpec
x__)
(Maybe StructuredValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (FunctionSpec -> Maybe StructuredValue
_FunctionSpec'inputSignature FunctionSpec
x__) ())))
data SaveableObject
= SaveableObject'_constructor {SaveableObject -> Int32
_SaveableObject'saveFunction :: !Data.Int.Int32,
SaveableObject -> Int32
_SaveableObject'restoreFunction :: !Data.Int.Int32,
SaveableObject -> FieldSet
_SaveableObject'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SaveableObject -> SaveableObject -> Bool
(SaveableObject -> SaveableObject -> Bool)
-> (SaveableObject -> SaveableObject -> Bool) -> Eq SaveableObject
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SaveableObject -> SaveableObject -> Bool
$c/= :: SaveableObject -> SaveableObject -> Bool
== :: SaveableObject -> SaveableObject -> Bool
$c== :: SaveableObject -> SaveableObject -> Bool
Prelude.Eq, Eq SaveableObject
Eq SaveableObject =>
(SaveableObject -> SaveableObject -> Ordering)
-> (SaveableObject -> SaveableObject -> Bool)
-> (SaveableObject -> SaveableObject -> Bool)
-> (SaveableObject -> SaveableObject -> Bool)
-> (SaveableObject -> SaveableObject -> Bool)
-> (SaveableObject -> SaveableObject -> SaveableObject)
-> (SaveableObject -> SaveableObject -> SaveableObject)
-> Ord SaveableObject
SaveableObject -> SaveableObject -> Bool
SaveableObject -> SaveableObject -> Ordering
SaveableObject -> SaveableObject -> SaveableObject
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 :: SaveableObject -> SaveableObject -> SaveableObject
$cmin :: SaveableObject -> SaveableObject -> SaveableObject
max :: SaveableObject -> SaveableObject -> SaveableObject
$cmax :: SaveableObject -> SaveableObject -> SaveableObject
>= :: SaveableObject -> SaveableObject -> Bool
$c>= :: SaveableObject -> SaveableObject -> Bool
> :: SaveableObject -> SaveableObject -> Bool
$c> :: SaveableObject -> SaveableObject -> Bool
<= :: SaveableObject -> SaveableObject -> Bool
$c<= :: SaveableObject -> SaveableObject -> Bool
< :: SaveableObject -> SaveableObject -> Bool
$c< :: SaveableObject -> SaveableObject -> Bool
compare :: SaveableObject -> SaveableObject -> Ordering
$ccompare :: SaveableObject -> SaveableObject -> Ordering
$cp1Ord :: Eq SaveableObject
Prelude.Ord)
instance Prelude.Show SaveableObject where
showsPrec :: Int -> SaveableObject -> ShowS
showsPrec _ __x :: SaveableObject
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SaveableObject -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SaveableObject
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SaveableObject "saveFunction" Data.Int.Int32 where
fieldOf :: Proxy# "saveFunction"
-> (Int32 -> f Int32) -> SaveableObject -> f SaveableObject
fieldOf _
= ((Int32 -> f Int32) -> SaveableObject -> f SaveableObject)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> SaveableObject
-> f SaveableObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SaveableObject -> Int32)
-> (SaveableObject -> Int32 -> SaveableObject)
-> Lens SaveableObject SaveableObject Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SaveableObject -> Int32
_SaveableObject'saveFunction
(\ x__ :: SaveableObject
x__ y__ :: Int32
y__ -> SaveableObject
x__ {_SaveableObject'saveFunction :: Int32
_SaveableObject'saveFunction = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SaveableObject "restoreFunction" Data.Int.Int32 where
fieldOf :: Proxy# "restoreFunction"
-> (Int32 -> f Int32) -> SaveableObject -> f SaveableObject
fieldOf _
= ((Int32 -> f Int32) -> SaveableObject -> f SaveableObject)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> SaveableObject
-> f SaveableObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SaveableObject -> Int32)
-> (SaveableObject -> Int32 -> SaveableObject)
-> Lens SaveableObject SaveableObject Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SaveableObject -> Int32
_SaveableObject'restoreFunction
(\ x__ :: SaveableObject
x__ y__ :: Int32
y__ -> SaveableObject
x__ {_SaveableObject'restoreFunction :: Int32
_SaveableObject'restoreFunction = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SaveableObject where
messageName :: Proxy SaveableObject -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.SaveableObject"
packedMessageDescriptor :: Proxy SaveableObject -> ByteString
packedMessageDescriptor _
= "\n\
\\SOSaveableObject\DC2#\n\
\\rsave_function\CAN\STX \SOH(\ENQR\fsaveFunction\DC2)\n\
\\DLErestore_function\CAN\ETX \SOH(\ENQR\SIrestoreFunction"
packedFileDescriptor :: Proxy SaveableObject -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SaveableObject)
fieldsByTag
= let
saveFunction__field_descriptor :: FieldDescriptor SaveableObject
saveFunction__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor SaveableObject Int32
-> FieldDescriptor SaveableObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"save_function"
(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 SaveableObject SaveableObject Int32 Int32
-> FieldAccessor SaveableObject 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 "saveFunction" 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 @"saveFunction")) ::
Data.ProtoLens.FieldDescriptor SaveableObject
restoreFunction__field_descriptor :: FieldDescriptor SaveableObject
restoreFunction__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor SaveableObject Int32
-> FieldDescriptor SaveableObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"restore_function"
(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 SaveableObject SaveableObject Int32 Int32
-> FieldAccessor SaveableObject 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 "restoreFunction" 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 @"restoreFunction")) ::
Data.ProtoLens.FieldDescriptor SaveableObject
in
[(Tag, FieldDescriptor SaveableObject)]
-> Map Tag (FieldDescriptor SaveableObject)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SaveableObject
saveFunction__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor SaveableObject
restoreFunction__field_descriptor)]
unknownFields :: LensLike' f SaveableObject FieldSet
unknownFields
= (SaveableObject -> FieldSet)
-> (SaveableObject -> FieldSet -> SaveableObject)
-> Lens' SaveableObject FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SaveableObject -> FieldSet
_SaveableObject'_unknownFields
(\ x__ :: SaveableObject
x__ y__ :: FieldSet
y__ -> SaveableObject
x__ {_SaveableObject'_unknownFields :: FieldSet
_SaveableObject'_unknownFields = FieldSet
y__})
defMessage :: SaveableObject
defMessage
= $WSaveableObject'_constructor :: Int32 -> Int32 -> FieldSet -> SaveableObject
SaveableObject'_constructor
{_SaveableObject'saveFunction :: Int32
_SaveableObject'saveFunction = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SaveableObject'restoreFunction :: Int32
_SaveableObject'restoreFunction = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SaveableObject'_unknownFields :: FieldSet
_SaveableObject'_unknownFields = []}
parseMessage :: Parser SaveableObject
parseMessage
= let
loop ::
SaveableObject
-> Data.ProtoLens.Encoding.Bytes.Parser SaveableObject
loop :: SaveableObject -> Parser SaveableObject
loop x :: SaveableObject
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]))))
SaveableObject -> Parser SaveableObject
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SaveableObject SaveableObject FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SaveableObject -> SaveableObject
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 SaveableObject SaveableObject FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SaveableObject
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
16
-> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"save_function"
SaveableObject -> Parser SaveableObject
loop
(Setter SaveableObject SaveableObject Int32 Int32
-> Int32 -> SaveableObject -> SaveableObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "saveFunction" 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 @"saveFunction") Int32
y SaveableObject
x)
24
-> 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)
"restore_function"
SaveableObject -> Parser SaveableObject
loop
(Setter SaveableObject SaveableObject Int32 Int32
-> Int32 -> SaveableObject -> SaveableObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "restoreFunction" 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 @"restoreFunction") Int32
y SaveableObject
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SaveableObject -> Parser SaveableObject
loop
(Setter SaveableObject SaveableObject FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SaveableObject -> SaveableObject
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 SaveableObject SaveableObject FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SaveableObject
x)
in
Parser SaveableObject -> String -> Parser SaveableObject
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SaveableObject -> Parser SaveableObject
loop SaveableObject
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "SaveableObject"
buildMessage :: SaveableObject -> Builder
buildMessage
= \ _x :: SaveableObject
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v
= FoldLike Int32 SaveableObject SaveableObject Int32 Int32
-> SaveableObject -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "saveFunction" 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 @"saveFunction") SaveableObject
_x
in
if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 16)
((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v
= FoldLike Int32 SaveableObject SaveableObject Int32 Int32
-> SaveableObject -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "restoreFunction" 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 @"restoreFunction") SaveableObject
_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 24)
((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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet SaveableObject SaveableObject FieldSet FieldSet
-> SaveableObject -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SaveableObject SaveableObject FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SaveableObject
_x)))
instance Control.DeepSeq.NFData SaveableObject where
rnf :: SaveableObject -> ()
rnf
= \ x__ :: SaveableObject
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SaveableObject -> FieldSet
_SaveableObject'_unknownFields SaveableObject
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SaveableObject -> Int32
_SaveableObject'saveFunction SaveableObject
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SaveableObject -> Int32
_SaveableObject'restoreFunction SaveableObject
x__) ()))
data SavedAsset
= SavedAsset'_constructor {SavedAsset -> Int32
_SavedAsset'assetFileDefIndex :: !Data.Int.Int32,
SavedAsset -> FieldSet
_SavedAsset'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SavedAsset -> SavedAsset -> Bool
(SavedAsset -> SavedAsset -> Bool)
-> (SavedAsset -> SavedAsset -> Bool) -> Eq SavedAsset
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SavedAsset -> SavedAsset -> Bool
$c/= :: SavedAsset -> SavedAsset -> Bool
== :: SavedAsset -> SavedAsset -> Bool
$c== :: SavedAsset -> SavedAsset -> Bool
Prelude.Eq, Eq SavedAsset
Eq SavedAsset =>
(SavedAsset -> SavedAsset -> Ordering)
-> (SavedAsset -> SavedAsset -> Bool)
-> (SavedAsset -> SavedAsset -> Bool)
-> (SavedAsset -> SavedAsset -> Bool)
-> (SavedAsset -> SavedAsset -> Bool)
-> (SavedAsset -> SavedAsset -> SavedAsset)
-> (SavedAsset -> SavedAsset -> SavedAsset)
-> Ord SavedAsset
SavedAsset -> SavedAsset -> Bool
SavedAsset -> SavedAsset -> Ordering
SavedAsset -> SavedAsset -> SavedAsset
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 :: SavedAsset -> SavedAsset -> SavedAsset
$cmin :: SavedAsset -> SavedAsset -> SavedAsset
max :: SavedAsset -> SavedAsset -> SavedAsset
$cmax :: SavedAsset -> SavedAsset -> SavedAsset
>= :: SavedAsset -> SavedAsset -> Bool
$c>= :: SavedAsset -> SavedAsset -> Bool
> :: SavedAsset -> SavedAsset -> Bool
$c> :: SavedAsset -> SavedAsset -> Bool
<= :: SavedAsset -> SavedAsset -> Bool
$c<= :: SavedAsset -> SavedAsset -> Bool
< :: SavedAsset -> SavedAsset -> Bool
$c< :: SavedAsset -> SavedAsset -> Bool
compare :: SavedAsset -> SavedAsset -> Ordering
$ccompare :: SavedAsset -> SavedAsset -> Ordering
$cp1Ord :: Eq SavedAsset
Prelude.Ord)
instance Prelude.Show SavedAsset where
showsPrec :: Int -> SavedAsset -> ShowS
showsPrec _ __x :: SavedAsset
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SavedAsset -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SavedAsset
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SavedAsset "assetFileDefIndex" Data.Int.Int32 where
fieldOf :: Proxy# "assetFileDefIndex"
-> (Int32 -> f Int32) -> SavedAsset -> f SavedAsset
fieldOf _
= ((Int32 -> f Int32) -> SavedAsset -> f SavedAsset)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> SavedAsset
-> f SavedAsset
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedAsset -> Int32)
-> (SavedAsset -> Int32 -> SavedAsset)
-> Lens SavedAsset SavedAsset Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedAsset -> Int32
_SavedAsset'assetFileDefIndex
(\ x__ :: SavedAsset
x__ y__ :: Int32
y__ -> SavedAsset
x__ {_SavedAsset'assetFileDefIndex :: Int32
_SavedAsset'assetFileDefIndex = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SavedAsset where
messageName :: Proxy SavedAsset -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.SavedAsset"
packedMessageDescriptor :: Proxy SavedAsset -> ByteString
packedMessageDescriptor _
= "\n\
\\n\
\SavedAsset\DC2/\n\
\\DC4asset_file_def_index\CAN\SOH \SOH(\ENQR\DC1assetFileDefIndex"
packedFileDescriptor :: Proxy SavedAsset -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SavedAsset)
fieldsByTag
= let
assetFileDefIndex__field_descriptor :: FieldDescriptor SavedAsset
assetFileDefIndex__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor SavedAsset Int32
-> FieldDescriptor SavedAsset
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"asset_file_def_index"
(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 SavedAsset SavedAsset Int32 Int32
-> FieldAccessor SavedAsset 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 "assetFileDefIndex" 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 @"assetFileDefIndex")) ::
Data.ProtoLens.FieldDescriptor SavedAsset
in
[(Tag, FieldDescriptor SavedAsset)]
-> Map Tag (FieldDescriptor SavedAsset)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SavedAsset
assetFileDefIndex__field_descriptor)]
unknownFields :: LensLike' f SavedAsset FieldSet
unknownFields
= (SavedAsset -> FieldSet)
-> (SavedAsset -> FieldSet -> SavedAsset)
-> Lens' SavedAsset FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedAsset -> FieldSet
_SavedAsset'_unknownFields
(\ x__ :: SavedAsset
x__ y__ :: FieldSet
y__ -> SavedAsset
x__ {_SavedAsset'_unknownFields :: FieldSet
_SavedAsset'_unknownFields = FieldSet
y__})
defMessage :: SavedAsset
defMessage
= $WSavedAsset'_constructor :: Int32 -> FieldSet -> SavedAsset
SavedAsset'_constructor
{_SavedAsset'assetFileDefIndex :: Int32
_SavedAsset'assetFileDefIndex = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SavedAsset'_unknownFields :: FieldSet
_SavedAsset'_unknownFields = []}
parseMessage :: Parser SavedAsset
parseMessage
= let
loop ::
SavedAsset -> Data.ProtoLens.Encoding.Bytes.Parser SavedAsset
loop :: SavedAsset -> Parser SavedAsset
loop x :: SavedAsset
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]))))
SavedAsset -> Parser SavedAsset
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SavedAsset SavedAsset FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedAsset -> SavedAsset
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 SavedAsset SavedAsset FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SavedAsset
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)
"asset_file_def_index"
SavedAsset -> Parser SavedAsset
loop
(Setter SavedAsset SavedAsset Int32 Int32
-> Int32 -> SavedAsset -> SavedAsset
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "assetFileDefIndex" 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 @"assetFileDefIndex") Int32
y SavedAsset
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SavedAsset -> Parser SavedAsset
loop
(Setter SavedAsset SavedAsset FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedAsset -> SavedAsset
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 SavedAsset SavedAsset FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SavedAsset
x)
in
Parser SavedAsset -> String -> Parser SavedAsset
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SavedAsset -> Parser SavedAsset
loop SavedAsset
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "SavedAsset"
buildMessage :: SavedAsset -> Builder
buildMessage
= \ _x :: SavedAsset
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v
= FoldLike Int32 SavedAsset SavedAsset Int32 Int32
-> SavedAsset -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "assetFileDefIndex" 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 @"assetFileDefIndex") SavedAsset
_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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet SavedAsset SavedAsset FieldSet FieldSet
-> SavedAsset -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SavedAsset SavedAsset FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SavedAsset
_x))
instance Control.DeepSeq.NFData SavedAsset where
rnf :: SavedAsset -> ()
rnf
= \ x__ :: SavedAsset
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedAsset -> FieldSet
_SavedAsset'_unknownFields SavedAsset
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SavedAsset -> Int32
_SavedAsset'assetFileDefIndex SavedAsset
x__) ())
data SavedBareConcreteFunction
= SavedBareConcreteFunction'_constructor {SavedBareConcreteFunction -> Text
_SavedBareConcreteFunction'concreteFunctionName :: !Data.Text.Text,
SavedBareConcreteFunction -> Vector Text
_SavedBareConcreteFunction'argumentKeywords :: !(Data.Vector.Vector Data.Text.Text),
SavedBareConcreteFunction -> Int64
_SavedBareConcreteFunction'allowedPositionalArguments :: !Data.Int.Int64,
SavedBareConcreteFunction -> FieldSet
_SavedBareConcreteFunction'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool
(SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool)
-> (SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool)
-> Eq SavedBareConcreteFunction
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool
$c/= :: SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool
== :: SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool
$c== :: SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool
Prelude.Eq, Eq SavedBareConcreteFunction
Eq SavedBareConcreteFunction =>
(SavedBareConcreteFunction
-> SavedBareConcreteFunction -> Ordering)
-> (SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool)
-> (SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool)
-> (SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool)
-> (SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool)
-> (SavedBareConcreteFunction
-> SavedBareConcreteFunction -> SavedBareConcreteFunction)
-> (SavedBareConcreteFunction
-> SavedBareConcreteFunction -> SavedBareConcreteFunction)
-> Ord SavedBareConcreteFunction
SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool
SavedBareConcreteFunction -> SavedBareConcreteFunction -> Ordering
SavedBareConcreteFunction
-> SavedBareConcreteFunction -> SavedBareConcreteFunction
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 :: SavedBareConcreteFunction
-> SavedBareConcreteFunction -> SavedBareConcreteFunction
$cmin :: SavedBareConcreteFunction
-> SavedBareConcreteFunction -> SavedBareConcreteFunction
max :: SavedBareConcreteFunction
-> SavedBareConcreteFunction -> SavedBareConcreteFunction
$cmax :: SavedBareConcreteFunction
-> SavedBareConcreteFunction -> SavedBareConcreteFunction
>= :: SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool
$c>= :: SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool
> :: SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool
$c> :: SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool
<= :: SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool
$c<= :: SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool
< :: SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool
$c< :: SavedBareConcreteFunction -> SavedBareConcreteFunction -> Bool
compare :: SavedBareConcreteFunction -> SavedBareConcreteFunction -> Ordering
$ccompare :: SavedBareConcreteFunction -> SavedBareConcreteFunction -> Ordering
$cp1Ord :: Eq SavedBareConcreteFunction
Prelude.Ord)
instance Prelude.Show SavedBareConcreteFunction where
showsPrec :: Int -> SavedBareConcreteFunction -> ShowS
showsPrec _ __x :: SavedBareConcreteFunction
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SavedBareConcreteFunction -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SavedBareConcreteFunction
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SavedBareConcreteFunction "concreteFunctionName" Data.Text.Text where
fieldOf :: Proxy# "concreteFunctionName"
-> (Text -> f Text)
-> SavedBareConcreteFunction
-> f SavedBareConcreteFunction
fieldOf _
= ((Text -> f Text)
-> SavedBareConcreteFunction -> f SavedBareConcreteFunction)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SavedBareConcreteFunction
-> f SavedBareConcreteFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedBareConcreteFunction -> Text)
-> (SavedBareConcreteFunction -> Text -> SavedBareConcreteFunction)
-> Lens
SavedBareConcreteFunction SavedBareConcreteFunction Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedBareConcreteFunction -> Text
_SavedBareConcreteFunction'concreteFunctionName
(\ x__ :: SavedBareConcreteFunction
x__ y__ :: Text
y__
-> SavedBareConcreteFunction
x__ {_SavedBareConcreteFunction'concreteFunctionName :: Text
_SavedBareConcreteFunction'concreteFunctionName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedBareConcreteFunction "argumentKeywords" [Data.Text.Text] where
fieldOf :: Proxy# "argumentKeywords"
-> ([Text] -> f [Text])
-> SavedBareConcreteFunction
-> f SavedBareConcreteFunction
fieldOf _
= ((Vector Text -> f (Vector Text))
-> SavedBareConcreteFunction -> f SavedBareConcreteFunction)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> SavedBareConcreteFunction
-> f SavedBareConcreteFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedBareConcreteFunction -> Vector Text)
-> (SavedBareConcreteFunction
-> Vector Text -> SavedBareConcreteFunction)
-> Lens
SavedBareConcreteFunction
SavedBareConcreteFunction
(Vector Text)
(Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedBareConcreteFunction -> Vector Text
_SavedBareConcreteFunction'argumentKeywords
(\ x__ :: SavedBareConcreteFunction
x__ y__ :: Vector Text
y__
-> SavedBareConcreteFunction
x__ {_SavedBareConcreteFunction'argumentKeywords :: Vector Text
_SavedBareConcreteFunction'argumentKeywords = 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 SavedBareConcreteFunction "vec'argumentKeywords" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: Proxy# "vec'argumentKeywords"
-> (Vector Text -> f (Vector Text))
-> SavedBareConcreteFunction
-> f SavedBareConcreteFunction
fieldOf _
= ((Vector Text -> f (Vector Text))
-> SavedBareConcreteFunction -> f SavedBareConcreteFunction)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> SavedBareConcreteFunction
-> f SavedBareConcreteFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedBareConcreteFunction -> Vector Text)
-> (SavedBareConcreteFunction
-> Vector Text -> SavedBareConcreteFunction)
-> Lens
SavedBareConcreteFunction
SavedBareConcreteFunction
(Vector Text)
(Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedBareConcreteFunction -> Vector Text
_SavedBareConcreteFunction'argumentKeywords
(\ x__ :: SavedBareConcreteFunction
x__ y__ :: Vector Text
y__
-> SavedBareConcreteFunction
x__ {_SavedBareConcreteFunction'argumentKeywords :: Vector Text
_SavedBareConcreteFunction'argumentKeywords = Vector Text
y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedBareConcreteFunction "allowedPositionalArguments" Data.Int.Int64 where
fieldOf :: Proxy# "allowedPositionalArguments"
-> (Int64 -> f Int64)
-> SavedBareConcreteFunction
-> f SavedBareConcreteFunction
fieldOf _
= ((Int64 -> f Int64)
-> SavedBareConcreteFunction -> f SavedBareConcreteFunction)
-> ((Int64 -> f Int64) -> Int64 -> f Int64)
-> (Int64 -> f Int64)
-> SavedBareConcreteFunction
-> f SavedBareConcreteFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedBareConcreteFunction -> Int64)
-> (SavedBareConcreteFunction
-> Int64 -> SavedBareConcreteFunction)
-> Lens
SavedBareConcreteFunction SavedBareConcreteFunction Int64 Int64
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedBareConcreteFunction -> Int64
_SavedBareConcreteFunction'allowedPositionalArguments
(\ x__ :: SavedBareConcreteFunction
x__ y__ :: Int64
y__
-> SavedBareConcreteFunction
x__
{_SavedBareConcreteFunction'allowedPositionalArguments :: Int64
_SavedBareConcreteFunction'allowedPositionalArguments = Int64
y__}))
(Int64 -> f Int64) -> Int64 -> f Int64
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SavedBareConcreteFunction where
messageName :: Proxy SavedBareConcreteFunction -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.SavedBareConcreteFunction"
packedMessageDescriptor :: Proxy SavedBareConcreteFunction -> ByteString
packedMessageDescriptor _
= "\n\
\\EMSavedBareConcreteFunction\DC24\n\
\\SYNconcrete_function_name\CAN\SOH \SOH(\tR\DC4concreteFunctionName\DC2+\n\
\\DC1argument_keywords\CAN\STX \ETX(\tR\DLEargumentKeywords\DC2@\n\
\\FSallowed_positional_arguments\CAN\ETX \SOH(\ETXR\SUBallowedPositionalArguments"
packedFileDescriptor :: Proxy SavedBareConcreteFunction -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SavedBareConcreteFunction)
fieldsByTag
= let
concreteFunctionName__field_descriptor :: FieldDescriptor SavedBareConcreteFunction
concreteFunctionName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SavedBareConcreteFunction Text
-> FieldDescriptor SavedBareConcreteFunction
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"concrete_function_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
SavedBareConcreteFunction SavedBareConcreteFunction Text Text
-> FieldAccessor SavedBareConcreteFunction 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 "concreteFunctionName" 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 @"concreteFunctionName")) ::
Data.ProtoLens.FieldDescriptor SavedBareConcreteFunction
argumentKeywords__field_descriptor :: FieldDescriptor SavedBareConcreteFunction
argumentKeywords__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SavedBareConcreteFunction Text
-> FieldDescriptor SavedBareConcreteFunction
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"argument_keywords"
(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' SavedBareConcreteFunction [Text]
-> FieldAccessor SavedBareConcreteFunction Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "argumentKeywords" 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 @"argumentKeywords")) ::
Data.ProtoLens.FieldDescriptor SavedBareConcreteFunction
allowedPositionalArguments__field_descriptor :: FieldDescriptor SavedBareConcreteFunction
allowedPositionalArguments__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor SavedBareConcreteFunction Int64
-> FieldDescriptor SavedBareConcreteFunction
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"allowed_positional_arguments"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(WireDefault Int64
-> Lens
SavedBareConcreteFunction SavedBareConcreteFunction Int64 Int64
-> FieldAccessor SavedBareConcreteFunction Int64
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int64
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "allowedPositionalArguments" 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 @"allowedPositionalArguments")) ::
Data.ProtoLens.FieldDescriptor SavedBareConcreteFunction
in
[(Tag, FieldDescriptor SavedBareConcreteFunction)]
-> Map Tag (FieldDescriptor SavedBareConcreteFunction)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SavedBareConcreteFunction
concreteFunctionName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SavedBareConcreteFunction
argumentKeywords__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3,
FieldDescriptor SavedBareConcreteFunction
allowedPositionalArguments__field_descriptor)]
unknownFields :: LensLike' f SavedBareConcreteFunction FieldSet
unknownFields
= (SavedBareConcreteFunction -> FieldSet)
-> (SavedBareConcreteFunction
-> FieldSet -> SavedBareConcreteFunction)
-> Lens' SavedBareConcreteFunction FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedBareConcreteFunction -> FieldSet
_SavedBareConcreteFunction'_unknownFields
(\ x__ :: SavedBareConcreteFunction
x__ y__ :: FieldSet
y__
-> SavedBareConcreteFunction
x__ {_SavedBareConcreteFunction'_unknownFields :: FieldSet
_SavedBareConcreteFunction'_unknownFields = FieldSet
y__})
defMessage :: SavedBareConcreteFunction
defMessage
= $WSavedBareConcreteFunction'_constructor :: Text
-> Vector Text -> Int64 -> FieldSet -> SavedBareConcreteFunction
SavedBareConcreteFunction'_constructor
{_SavedBareConcreteFunction'concreteFunctionName :: Text
_SavedBareConcreteFunction'concreteFunctionName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SavedBareConcreteFunction'argumentKeywords :: Vector Text
_SavedBareConcreteFunction'argumentKeywords = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_SavedBareConcreteFunction'allowedPositionalArguments :: Int64
_SavedBareConcreteFunction'allowedPositionalArguments = Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SavedBareConcreteFunction'_unknownFields :: FieldSet
_SavedBareConcreteFunction'_unknownFields = []}
parseMessage :: Parser SavedBareConcreteFunction
parseMessage
= let
loop ::
SavedBareConcreteFunction
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
-> Data.ProtoLens.Encoding.Bytes.Parser SavedBareConcreteFunction
loop :: SavedBareConcreteFunction
-> Growing Vector RealWorld Text
-> Parser SavedBareConcreteFunction
loop x :: SavedBareConcreteFunction
x mutable'argumentKeywords :: Growing Vector RealWorld Text
mutable'argumentKeywords
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Text
frozen'argumentKeywords <- 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'argumentKeywords)
(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]))))
SavedBareConcreteFunction -> Parser SavedBareConcreteFunction
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
SavedBareConcreteFunction
SavedBareConcreteFunction
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> SavedBareConcreteFunction
-> SavedBareConcreteFunction
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
SavedBareConcreteFunction
SavedBareConcreteFunction
FieldSet
FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
SavedBareConcreteFunction
SavedBareConcreteFunction
(Vector Text)
(Vector Text)
-> Vector Text
-> SavedBareConcreteFunction
-> SavedBareConcreteFunction
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'argumentKeywords" 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'argumentKeywords")
Vector Text
frozen'argumentKeywords
SavedBareConcreteFunction
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))
"concrete_function_name"
SavedBareConcreteFunction
-> Growing Vector RealWorld Text
-> Parser SavedBareConcreteFunction
loop
(Setter
SavedBareConcreteFunction SavedBareConcreteFunction Text Text
-> Text -> SavedBareConcreteFunction -> SavedBareConcreteFunction
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "concreteFunctionName" 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 @"concreteFunctionName") Text
y SavedBareConcreteFunction
x)
Growing Vector RealWorld Text
mutable'argumentKeywords
18
-> do !Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"argument_keywords"
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'argumentKeywords Text
y)
SavedBareConcreteFunction
-> Growing Vector RealWorld Text
-> Parser SavedBareConcreteFunction
loop SavedBareConcreteFunction
x Growing Vector RealWorld Text
v
24
-> do Int64
y <- Parser Int64 -> String -> Parser Int64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int64) -> Parser Word64 -> Parser Int64
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"allowed_positional_arguments"
SavedBareConcreteFunction
-> Growing Vector RealWorld Text
-> Parser SavedBareConcreteFunction
loop
(Setter
SavedBareConcreteFunction SavedBareConcreteFunction Int64 Int64
-> Int64 -> SavedBareConcreteFunction -> SavedBareConcreteFunction
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "allowedPositionalArguments" 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 @"allowedPositionalArguments") Int64
y SavedBareConcreteFunction
x)
Growing Vector RealWorld Text
mutable'argumentKeywords
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SavedBareConcreteFunction
-> Growing Vector RealWorld Text
-> Parser SavedBareConcreteFunction
loop
(Setter
SavedBareConcreteFunction
SavedBareConcreteFunction
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> SavedBareConcreteFunction
-> SavedBareConcreteFunction
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
SavedBareConcreteFunction
SavedBareConcreteFunction
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SavedBareConcreteFunction
x)
Growing Vector RealWorld Text
mutable'argumentKeywords
in
Parser SavedBareConcreteFunction
-> String -> Parser SavedBareConcreteFunction
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Text
mutable'argumentKeywords <- 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
SavedBareConcreteFunction
-> Growing Vector RealWorld Text
-> Parser SavedBareConcreteFunction
loop SavedBareConcreteFunction
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Text
mutable'argumentKeywords)
"SavedBareConcreteFunction"
buildMessage :: SavedBareConcreteFunction -> Builder
buildMessage
= \ _x :: SavedBareConcreteFunction
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text SavedBareConcreteFunction SavedBareConcreteFunction Text Text
-> SavedBareConcreteFunction -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "concreteFunctionName" 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 @"concreteFunctionName") SavedBareConcreteFunction
_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.<>)
((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 18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FoldLike
(Vector Text)
SavedBareConcreteFunction
SavedBareConcreteFunction
(Vector Text)
(Vector Text)
-> SavedBareConcreteFunction -> 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'argumentKeywords" 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'argumentKeywords") SavedBareConcreteFunction
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int64
_v
= FoldLike
Int64
SavedBareConcreteFunction
SavedBareConcreteFunction
Int64
Int64
-> SavedBareConcreteFunction -> Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "allowedPositionalArguments" 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 @"allowedPositionalArguments") SavedBareConcreteFunction
_x
in
if Int64 -> Int64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int64
_v Int64
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Word64 -> Builder) -> (Int64 -> Word64) -> Int64 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int64 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int64
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
SavedBareConcreteFunction
SavedBareConcreteFunction
FieldSet
FieldSet
-> SavedBareConcreteFunction -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
SavedBareConcreteFunction
SavedBareConcreteFunction
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SavedBareConcreteFunction
_x))))
instance Control.DeepSeq.NFData SavedBareConcreteFunction where
rnf :: SavedBareConcreteFunction -> ()
rnf
= \ x__ :: SavedBareConcreteFunction
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedBareConcreteFunction -> FieldSet
_SavedBareConcreteFunction'_unknownFields SavedBareConcreteFunction
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedBareConcreteFunction -> Text
_SavedBareConcreteFunction'concreteFunctionName SavedBareConcreteFunction
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedBareConcreteFunction -> Vector Text
_SavedBareConcreteFunction'argumentKeywords SavedBareConcreteFunction
x__)
(Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedBareConcreteFunction -> Int64
_SavedBareConcreteFunction'allowedPositionalArguments SavedBareConcreteFunction
x__) ())))
data SavedConcreteFunction
= SavedConcreteFunction'_constructor {SavedConcreteFunction -> Vector Int32
_SavedConcreteFunction'boundInputs :: !(Data.Vector.Unboxed.Vector Data.Int.Int32),
SavedConcreteFunction -> Maybe StructuredValue
_SavedConcreteFunction'canonicalizedInputSignature :: !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue),
SavedConcreteFunction -> Maybe StructuredValue
_SavedConcreteFunction'outputSignature :: !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue),
SavedConcreteFunction -> FieldSet
_SavedConcreteFunction'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SavedConcreteFunction -> SavedConcreteFunction -> Bool
(SavedConcreteFunction -> SavedConcreteFunction -> Bool)
-> (SavedConcreteFunction -> SavedConcreteFunction -> Bool)
-> Eq SavedConcreteFunction
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SavedConcreteFunction -> SavedConcreteFunction -> Bool
$c/= :: SavedConcreteFunction -> SavedConcreteFunction -> Bool
== :: SavedConcreteFunction -> SavedConcreteFunction -> Bool
$c== :: SavedConcreteFunction -> SavedConcreteFunction -> Bool
Prelude.Eq, Eq SavedConcreteFunction
Eq SavedConcreteFunction =>
(SavedConcreteFunction -> SavedConcreteFunction -> Ordering)
-> (SavedConcreteFunction -> SavedConcreteFunction -> Bool)
-> (SavedConcreteFunction -> SavedConcreteFunction -> Bool)
-> (SavedConcreteFunction -> SavedConcreteFunction -> Bool)
-> (SavedConcreteFunction -> SavedConcreteFunction -> Bool)
-> (SavedConcreteFunction
-> SavedConcreteFunction -> SavedConcreteFunction)
-> (SavedConcreteFunction
-> SavedConcreteFunction -> SavedConcreteFunction)
-> Ord SavedConcreteFunction
SavedConcreteFunction -> SavedConcreteFunction -> Bool
SavedConcreteFunction -> SavedConcreteFunction -> Ordering
SavedConcreteFunction
-> SavedConcreteFunction -> SavedConcreteFunction
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 :: SavedConcreteFunction
-> SavedConcreteFunction -> SavedConcreteFunction
$cmin :: SavedConcreteFunction
-> SavedConcreteFunction -> SavedConcreteFunction
max :: SavedConcreteFunction
-> SavedConcreteFunction -> SavedConcreteFunction
$cmax :: SavedConcreteFunction
-> SavedConcreteFunction -> SavedConcreteFunction
>= :: SavedConcreteFunction -> SavedConcreteFunction -> Bool
$c>= :: SavedConcreteFunction -> SavedConcreteFunction -> Bool
> :: SavedConcreteFunction -> SavedConcreteFunction -> Bool
$c> :: SavedConcreteFunction -> SavedConcreteFunction -> Bool
<= :: SavedConcreteFunction -> SavedConcreteFunction -> Bool
$c<= :: SavedConcreteFunction -> SavedConcreteFunction -> Bool
< :: SavedConcreteFunction -> SavedConcreteFunction -> Bool
$c< :: SavedConcreteFunction -> SavedConcreteFunction -> Bool
compare :: SavedConcreteFunction -> SavedConcreteFunction -> Ordering
$ccompare :: SavedConcreteFunction -> SavedConcreteFunction -> Ordering
$cp1Ord :: Eq SavedConcreteFunction
Prelude.Ord)
instance Prelude.Show SavedConcreteFunction where
showsPrec :: Int -> SavedConcreteFunction -> ShowS
showsPrec _ __x :: SavedConcreteFunction
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SavedConcreteFunction -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SavedConcreteFunction
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SavedConcreteFunction "boundInputs" [Data.Int.Int32] where
fieldOf :: Proxy# "boundInputs"
-> ([Int32] -> f [Int32])
-> SavedConcreteFunction
-> f SavedConcreteFunction
fieldOf _
= ((Vector Int32 -> f (Vector Int32))
-> SavedConcreteFunction -> f SavedConcreteFunction)
-> (([Int32] -> f [Int32]) -> Vector Int32 -> f (Vector Int32))
-> ([Int32] -> f [Int32])
-> SavedConcreteFunction
-> f SavedConcreteFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedConcreteFunction -> Vector Int32)
-> (SavedConcreteFunction -> Vector Int32 -> SavedConcreteFunction)
-> Lens
SavedConcreteFunction
SavedConcreteFunction
(Vector Int32)
(Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedConcreteFunction -> Vector Int32
_SavedConcreteFunction'boundInputs
(\ x__ :: SavedConcreteFunction
x__ y__ :: Vector Int32
y__ -> SavedConcreteFunction
x__ {_SavedConcreteFunction'boundInputs :: Vector Int32
_SavedConcreteFunction'boundInputs = Vector Int32
y__}))
((Vector Int32 -> [Int32])
-> (Vector Int32 -> [Int32] -> Vector Int32)
-> Lens (Vector Int32) (Vector Int32) [Int32] [Int32]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Int32 -> [Int32]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Int32]
y__ -> [Int32] -> Vector Int32
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int32]
y__))
instance Data.ProtoLens.Field.HasField SavedConcreteFunction "vec'boundInputs" (Data.Vector.Unboxed.Vector Data.Int.Int32) where
fieldOf :: Proxy# "vec'boundInputs"
-> (Vector Int32 -> f (Vector Int32))
-> SavedConcreteFunction
-> f SavedConcreteFunction
fieldOf _
= ((Vector Int32 -> f (Vector Int32))
-> SavedConcreteFunction -> f SavedConcreteFunction)
-> ((Vector Int32 -> f (Vector Int32))
-> Vector Int32 -> f (Vector Int32))
-> (Vector Int32 -> f (Vector Int32))
-> SavedConcreteFunction
-> f SavedConcreteFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedConcreteFunction -> Vector Int32)
-> (SavedConcreteFunction -> Vector Int32 -> SavedConcreteFunction)
-> Lens
SavedConcreteFunction
SavedConcreteFunction
(Vector Int32)
(Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedConcreteFunction -> Vector Int32
_SavedConcreteFunction'boundInputs
(\ x__ :: SavedConcreteFunction
x__ y__ :: Vector Int32
y__ -> SavedConcreteFunction
x__ {_SavedConcreteFunction'boundInputs :: Vector Int32
_SavedConcreteFunction'boundInputs = Vector Int32
y__}))
(Vector Int32 -> f (Vector Int32))
-> Vector Int32 -> f (Vector Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedConcreteFunction "canonicalizedInputSignature" Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue where
fieldOf :: Proxy# "canonicalizedInputSignature"
-> (StructuredValue -> f StructuredValue)
-> SavedConcreteFunction
-> f SavedConcreteFunction
fieldOf _
= ((Maybe StructuredValue -> f (Maybe StructuredValue))
-> SavedConcreteFunction -> f SavedConcreteFunction)
-> ((StructuredValue -> f StructuredValue)
-> Maybe StructuredValue -> f (Maybe StructuredValue))
-> (StructuredValue -> f StructuredValue)
-> SavedConcreteFunction
-> f SavedConcreteFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedConcreteFunction -> Maybe StructuredValue)
-> (SavedConcreteFunction
-> Maybe StructuredValue -> SavedConcreteFunction)
-> Lens
SavedConcreteFunction
SavedConcreteFunction
(Maybe StructuredValue)
(Maybe StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedConcreteFunction -> Maybe StructuredValue
_SavedConcreteFunction'canonicalizedInputSignature
(\ x__ :: SavedConcreteFunction
x__ y__ :: Maybe StructuredValue
y__
-> SavedConcreteFunction
x__ {_SavedConcreteFunction'canonicalizedInputSignature :: Maybe StructuredValue
_SavedConcreteFunction'canonicalizedInputSignature = Maybe StructuredValue
y__}))
(StructuredValue -> Lens' (Maybe StructuredValue) StructuredValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StructuredValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SavedConcreteFunction "maybe'canonicalizedInputSignature" (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue) where
fieldOf :: Proxy# "maybe'canonicalizedInputSignature"
-> (Maybe StructuredValue -> f (Maybe StructuredValue))
-> SavedConcreteFunction
-> f SavedConcreteFunction
fieldOf _
= ((Maybe StructuredValue -> f (Maybe StructuredValue))
-> SavedConcreteFunction -> f SavedConcreteFunction)
-> ((Maybe StructuredValue -> f (Maybe StructuredValue))
-> Maybe StructuredValue -> f (Maybe StructuredValue))
-> (Maybe StructuredValue -> f (Maybe StructuredValue))
-> SavedConcreteFunction
-> f SavedConcreteFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedConcreteFunction -> Maybe StructuredValue)
-> (SavedConcreteFunction
-> Maybe StructuredValue -> SavedConcreteFunction)
-> Lens
SavedConcreteFunction
SavedConcreteFunction
(Maybe StructuredValue)
(Maybe StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedConcreteFunction -> Maybe StructuredValue
_SavedConcreteFunction'canonicalizedInputSignature
(\ x__ :: SavedConcreteFunction
x__ y__ :: Maybe StructuredValue
y__
-> SavedConcreteFunction
x__ {_SavedConcreteFunction'canonicalizedInputSignature :: Maybe StructuredValue
_SavedConcreteFunction'canonicalizedInputSignature = Maybe StructuredValue
y__}))
(Maybe StructuredValue -> f (Maybe StructuredValue))
-> Maybe StructuredValue -> f (Maybe StructuredValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedConcreteFunction "outputSignature" Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue where
fieldOf :: Proxy# "outputSignature"
-> (StructuredValue -> f StructuredValue)
-> SavedConcreteFunction
-> f SavedConcreteFunction
fieldOf _
= ((Maybe StructuredValue -> f (Maybe StructuredValue))
-> SavedConcreteFunction -> f SavedConcreteFunction)
-> ((StructuredValue -> f StructuredValue)
-> Maybe StructuredValue -> f (Maybe StructuredValue))
-> (StructuredValue -> f StructuredValue)
-> SavedConcreteFunction
-> f SavedConcreteFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedConcreteFunction -> Maybe StructuredValue)
-> (SavedConcreteFunction
-> Maybe StructuredValue -> SavedConcreteFunction)
-> Lens
SavedConcreteFunction
SavedConcreteFunction
(Maybe StructuredValue)
(Maybe StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedConcreteFunction -> Maybe StructuredValue
_SavedConcreteFunction'outputSignature
(\ x__ :: SavedConcreteFunction
x__ y__ :: Maybe StructuredValue
y__ -> SavedConcreteFunction
x__ {_SavedConcreteFunction'outputSignature :: Maybe StructuredValue
_SavedConcreteFunction'outputSignature = Maybe StructuredValue
y__}))
(StructuredValue -> Lens' (Maybe StructuredValue) StructuredValue
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens StructuredValue
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SavedConcreteFunction "maybe'outputSignature" (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue) where
fieldOf :: Proxy# "maybe'outputSignature"
-> (Maybe StructuredValue -> f (Maybe StructuredValue))
-> SavedConcreteFunction
-> f SavedConcreteFunction
fieldOf _
= ((Maybe StructuredValue -> f (Maybe StructuredValue))
-> SavedConcreteFunction -> f SavedConcreteFunction)
-> ((Maybe StructuredValue -> f (Maybe StructuredValue))
-> Maybe StructuredValue -> f (Maybe StructuredValue))
-> (Maybe StructuredValue -> f (Maybe StructuredValue))
-> SavedConcreteFunction
-> f SavedConcreteFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedConcreteFunction -> Maybe StructuredValue)
-> (SavedConcreteFunction
-> Maybe StructuredValue -> SavedConcreteFunction)
-> Lens
SavedConcreteFunction
SavedConcreteFunction
(Maybe StructuredValue)
(Maybe StructuredValue)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedConcreteFunction -> Maybe StructuredValue
_SavedConcreteFunction'outputSignature
(\ x__ :: SavedConcreteFunction
x__ y__ :: Maybe StructuredValue
y__ -> SavedConcreteFunction
x__ {_SavedConcreteFunction'outputSignature :: Maybe StructuredValue
_SavedConcreteFunction'outputSignature = Maybe StructuredValue
y__}))
(Maybe StructuredValue -> f (Maybe StructuredValue))
-> Maybe StructuredValue -> f (Maybe StructuredValue)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SavedConcreteFunction where
messageName :: Proxy SavedConcreteFunction -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.SavedConcreteFunction"
packedMessageDescriptor :: Proxy SavedConcreteFunction -> ByteString
packedMessageDescriptor _
= "\n\
\\NAKSavedConcreteFunction\DC2!\n\
\\fbound_inputs\CAN\STX \ETX(\ENQR\vboundInputs\DC2_\n\
\\GScanonicalized_input_signature\CAN\ETX \SOH(\v2\ESC.tensorflow.StructuredValueR\ESCcanonicalizedInputSignature\DC2F\n\
\\DLEoutput_signature\CAN\EOT \SOH(\v2\ESC.tensorflow.StructuredValueR\SIoutputSignature"
packedFileDescriptor :: Proxy SavedConcreteFunction -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SavedConcreteFunction)
fieldsByTag
= let
boundInputs__field_descriptor :: FieldDescriptor SavedConcreteFunction
boundInputs__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor SavedConcreteFunction Int32
-> FieldDescriptor SavedConcreteFunction
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"bound_inputs"
(ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Packing
-> Lens' SavedConcreteFunction [Int32]
-> FieldAccessor SavedConcreteFunction Int32
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed
(forall s a (f :: * -> *).
(HasField s "boundInputs" 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 @"boundInputs")) ::
Data.ProtoLens.FieldDescriptor SavedConcreteFunction
canonicalizedInputSignature__field_descriptor :: FieldDescriptor SavedConcreteFunction
canonicalizedInputSignature__field_descriptor
= String
-> FieldTypeDescriptor StructuredValue
-> FieldAccessor SavedConcreteFunction StructuredValue
-> FieldDescriptor SavedConcreteFunction
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"canonicalized_input_signature"
(MessageOrGroup -> FieldTypeDescriptor StructuredValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue)
(Lens
SavedConcreteFunction
SavedConcreteFunction
(Maybe StructuredValue)
(Maybe StructuredValue)
-> FieldAccessor SavedConcreteFunction StructuredValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'canonicalizedInputSignature" 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'canonicalizedInputSignature")) ::
Data.ProtoLens.FieldDescriptor SavedConcreteFunction
outputSignature__field_descriptor :: FieldDescriptor SavedConcreteFunction
outputSignature__field_descriptor
= String
-> FieldTypeDescriptor StructuredValue
-> FieldAccessor SavedConcreteFunction StructuredValue
-> FieldDescriptor SavedConcreteFunction
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"output_signature"
(MessageOrGroup -> FieldTypeDescriptor StructuredValue
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue)
(Lens
SavedConcreteFunction
SavedConcreteFunction
(Maybe StructuredValue)
(Maybe StructuredValue)
-> FieldAccessor SavedConcreteFunction StructuredValue
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'outputSignature" 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'outputSignature")) ::
Data.ProtoLens.FieldDescriptor SavedConcreteFunction
in
[(Tag, FieldDescriptor SavedConcreteFunction)]
-> Map Tag (FieldDescriptor SavedConcreteFunction)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SavedConcreteFunction
boundInputs__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3,
FieldDescriptor SavedConcreteFunction
canonicalizedInputSignature__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor SavedConcreteFunction
outputSignature__field_descriptor)]
unknownFields :: LensLike' f SavedConcreteFunction FieldSet
unknownFields
= (SavedConcreteFunction -> FieldSet)
-> (SavedConcreteFunction -> FieldSet -> SavedConcreteFunction)
-> Lens' SavedConcreteFunction FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedConcreteFunction -> FieldSet
_SavedConcreteFunction'_unknownFields
(\ x__ :: SavedConcreteFunction
x__ y__ :: FieldSet
y__ -> SavedConcreteFunction
x__ {_SavedConcreteFunction'_unknownFields :: FieldSet
_SavedConcreteFunction'_unknownFields = FieldSet
y__})
defMessage :: SavedConcreteFunction
defMessage
= $WSavedConcreteFunction'_constructor :: Vector Int32
-> Maybe StructuredValue
-> Maybe StructuredValue
-> FieldSet
-> SavedConcreteFunction
SavedConcreteFunction'_constructor
{_SavedConcreteFunction'boundInputs :: Vector Int32
_SavedConcreteFunction'boundInputs = Vector Int32
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_SavedConcreteFunction'canonicalizedInputSignature :: Maybe StructuredValue
_SavedConcreteFunction'canonicalizedInputSignature = Maybe StructuredValue
forall a. Maybe a
Prelude.Nothing,
_SavedConcreteFunction'outputSignature :: Maybe StructuredValue
_SavedConcreteFunction'outputSignature = Maybe StructuredValue
forall a. Maybe a
Prelude.Nothing,
_SavedConcreteFunction'_unknownFields :: FieldSet
_SavedConcreteFunction'_unknownFields = []}
parseMessage :: Parser SavedConcreteFunction
parseMessage
= let
loop ::
SavedConcreteFunction
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int32
-> Data.ProtoLens.Encoding.Bytes.Parser SavedConcreteFunction
loop :: SavedConcreteFunction
-> Growing Vector RealWorld Int32 -> Parser SavedConcreteFunction
loop x :: SavedConcreteFunction
x mutable'boundInputs :: Growing Vector RealWorld Int32
mutable'boundInputs
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Int32
frozen'boundInputs <- IO (Vector Int32) -> Parser (Vector Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Int32 -> IO (Vector Int32)
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 Int32
Growing Vector (PrimState IO) Int32
mutable'boundInputs)
(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]))))
SavedConcreteFunction -> Parser SavedConcreteFunction
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
SavedConcreteFunction SavedConcreteFunction FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> SavedConcreteFunction
-> SavedConcreteFunction
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
SavedConcreteFunction SavedConcreteFunction FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
SavedConcreteFunction
SavedConcreteFunction
(Vector Int32)
(Vector Int32)
-> Vector Int32 -> SavedConcreteFunction -> SavedConcreteFunction
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'boundInputs" 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'boundInputs")
Vector Int32
frozen'boundInputs
SavedConcreteFunction
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
16
-> do !Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"bound_inputs"
Growing Vector RealWorld Int32
v <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Int32
-> Int32 -> IO (Growing Vector (PrimState IO) Int32)
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 Int32
Growing Vector (PrimState IO) Int32
mutable'boundInputs Int32
y)
SavedConcreteFunction
-> Growing Vector RealWorld Int32 -> Parser SavedConcreteFunction
loop SavedConcreteFunction
x Growing Vector RealWorld Int32
v
18
-> do Growing Vector RealWorld Int32
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
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)
((let
ploop :: Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop qs :: Growing v RealWorld a
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld a -> Parser (Growing v RealWorld a)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld a
qs
else
do !a
q <- Parser a -> String -> Parser a
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> a) -> Parser Word64 -> Parser a
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> a
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"bound_inputs"
Growing v RealWorld a
qs' <- IO (Growing v RealWorld a) -> Parser (Growing v RealWorld a)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) a -> a -> IO (Growing v (PrimState IO) a)
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 v RealWorld a
Growing v (PrimState IO) a
qs a
q)
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop Growing v RealWorld a
qs'
in forall a (v :: * -> *).
(Num a, Vector v a) =>
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop)
Growing Vector RealWorld Int32
mutable'boundInputs)
SavedConcreteFunction
-> Growing Vector RealWorld Int32 -> Parser SavedConcreteFunction
loop SavedConcreteFunction
x Growing Vector RealWorld Int32
y
26
-> do StructuredValue
y <- Parser StructuredValue -> String -> Parser StructuredValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser StructuredValue -> Parser StructuredValue
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 StructuredValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"canonicalized_input_signature"
SavedConcreteFunction
-> Growing Vector RealWorld Int32 -> Parser SavedConcreteFunction
loop
(Setter
SavedConcreteFunction
SavedConcreteFunction
StructuredValue
StructuredValue
-> StructuredValue
-> SavedConcreteFunction
-> SavedConcreteFunction
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "canonicalizedInputSignature" 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 @"canonicalizedInputSignature")
StructuredValue
y
SavedConcreteFunction
x)
Growing Vector RealWorld Int32
mutable'boundInputs
34
-> do StructuredValue
y <- Parser StructuredValue -> String -> Parser StructuredValue
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser StructuredValue -> Parser StructuredValue
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 StructuredValue
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"output_signature"
SavedConcreteFunction
-> Growing Vector RealWorld Int32 -> Parser SavedConcreteFunction
loop
(Setter
SavedConcreteFunction
SavedConcreteFunction
StructuredValue
StructuredValue
-> StructuredValue
-> SavedConcreteFunction
-> SavedConcreteFunction
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "outputSignature" 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 @"outputSignature") StructuredValue
y SavedConcreteFunction
x)
Growing Vector RealWorld Int32
mutable'boundInputs
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SavedConcreteFunction
-> Growing Vector RealWorld Int32 -> Parser SavedConcreteFunction
loop
(Setter
SavedConcreteFunction SavedConcreteFunction FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> SavedConcreteFunction
-> SavedConcreteFunction
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
SavedConcreteFunction SavedConcreteFunction FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SavedConcreteFunction
x)
Growing Vector RealWorld Int32
mutable'boundInputs
in
Parser SavedConcreteFunction
-> String -> Parser SavedConcreteFunction
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Int32
mutable'boundInputs <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
SavedConcreteFunction
-> Growing Vector RealWorld Int32 -> Parser SavedConcreteFunction
loop SavedConcreteFunction
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Int32
mutable'boundInputs)
"SavedConcreteFunction"
buildMessage :: SavedConcreteFunction -> Builder
buildMessage
= \ _x :: SavedConcreteFunction
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Int32
p = FoldLike
(Vector Int32)
SavedConcreteFunction
SavedConcreteFunction
(Vector Int32)
(Vector Int32)
-> SavedConcreteFunction -> Vector Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'boundInputs" 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'boundInputs") SavedConcreteFunction
_x
in
if Vector Int32 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Int32
p then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((\ 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))
(Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
((Int32 -> Builder) -> Vector Int32 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((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)
Vector Int32
p))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe StructuredValue)
SavedConcreteFunction
SavedConcreteFunction
(Maybe StructuredValue)
(Maybe StructuredValue)
-> SavedConcreteFunction -> Maybe StructuredValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'canonicalizedInputSignature" 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'canonicalizedInputSignature")
SavedConcreteFunction
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: StructuredValue
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder)
-> (StructuredValue -> ByteString) -> StructuredValue -> 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))
StructuredValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
StructuredValue
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe StructuredValue)
SavedConcreteFunction
SavedConcreteFunction
(Maybe StructuredValue)
(Maybe StructuredValue)
-> SavedConcreteFunction -> Maybe StructuredValue
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'outputSignature" 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'outputSignature") SavedConcreteFunction
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: StructuredValue
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((ByteString -> Builder)
-> (StructuredValue -> ByteString) -> StructuredValue -> 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))
StructuredValue -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
StructuredValue
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
SavedConcreteFunction
SavedConcreteFunction
FieldSet
FieldSet
-> SavedConcreteFunction -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
SavedConcreteFunction
SavedConcreteFunction
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SavedConcreteFunction
_x))))
instance Control.DeepSeq.NFData SavedConcreteFunction where
rnf :: SavedConcreteFunction -> ()
rnf
= \ x__ :: SavedConcreteFunction
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedConcreteFunction -> FieldSet
_SavedConcreteFunction'_unknownFields SavedConcreteFunction
x__)
(Vector Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedConcreteFunction -> Vector Int32
_SavedConcreteFunction'boundInputs SavedConcreteFunction
x__)
(Maybe StructuredValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedConcreteFunction -> Maybe StructuredValue
_SavedConcreteFunction'canonicalizedInputSignature SavedConcreteFunction
x__)
(Maybe StructuredValue -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedConcreteFunction -> Maybe StructuredValue
_SavedConcreteFunction'outputSignature SavedConcreteFunction
x__) ())))
data SavedConstant
= SavedConstant'_constructor {SavedConstant -> Text
_SavedConstant'operation :: !Data.Text.Text,
SavedConstant -> FieldSet
_SavedConstant'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SavedConstant -> SavedConstant -> Bool
(SavedConstant -> SavedConstant -> Bool)
-> (SavedConstant -> SavedConstant -> Bool) -> Eq SavedConstant
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SavedConstant -> SavedConstant -> Bool
$c/= :: SavedConstant -> SavedConstant -> Bool
== :: SavedConstant -> SavedConstant -> Bool
$c== :: SavedConstant -> SavedConstant -> Bool
Prelude.Eq, Eq SavedConstant
Eq SavedConstant =>
(SavedConstant -> SavedConstant -> Ordering)
-> (SavedConstant -> SavedConstant -> Bool)
-> (SavedConstant -> SavedConstant -> Bool)
-> (SavedConstant -> SavedConstant -> Bool)
-> (SavedConstant -> SavedConstant -> Bool)
-> (SavedConstant -> SavedConstant -> SavedConstant)
-> (SavedConstant -> SavedConstant -> SavedConstant)
-> Ord SavedConstant
SavedConstant -> SavedConstant -> Bool
SavedConstant -> SavedConstant -> Ordering
SavedConstant -> SavedConstant -> SavedConstant
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 :: SavedConstant -> SavedConstant -> SavedConstant
$cmin :: SavedConstant -> SavedConstant -> SavedConstant
max :: SavedConstant -> SavedConstant -> SavedConstant
$cmax :: SavedConstant -> SavedConstant -> SavedConstant
>= :: SavedConstant -> SavedConstant -> Bool
$c>= :: SavedConstant -> SavedConstant -> Bool
> :: SavedConstant -> SavedConstant -> Bool
$c> :: SavedConstant -> SavedConstant -> Bool
<= :: SavedConstant -> SavedConstant -> Bool
$c<= :: SavedConstant -> SavedConstant -> Bool
< :: SavedConstant -> SavedConstant -> Bool
$c< :: SavedConstant -> SavedConstant -> Bool
compare :: SavedConstant -> SavedConstant -> Ordering
$ccompare :: SavedConstant -> SavedConstant -> Ordering
$cp1Ord :: Eq SavedConstant
Prelude.Ord)
instance Prelude.Show SavedConstant where
showsPrec :: Int -> SavedConstant -> ShowS
showsPrec _ __x :: SavedConstant
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SavedConstant -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SavedConstant
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SavedConstant "operation" Data.Text.Text where
fieldOf :: Proxy# "operation"
-> (Text -> f Text) -> SavedConstant -> f SavedConstant
fieldOf _
= ((Text -> f Text) -> SavedConstant -> f SavedConstant)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SavedConstant
-> f SavedConstant
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedConstant -> Text)
-> (SavedConstant -> Text -> SavedConstant)
-> Lens SavedConstant SavedConstant Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedConstant -> Text
_SavedConstant'operation
(\ x__ :: SavedConstant
x__ y__ :: Text
y__ -> SavedConstant
x__ {_SavedConstant'operation :: Text
_SavedConstant'operation = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SavedConstant where
messageName :: Proxy SavedConstant -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.SavedConstant"
packedMessageDescriptor :: Proxy SavedConstant -> ByteString
packedMessageDescriptor _
= "\n\
\\rSavedConstant\DC2\FS\n\
\\toperation\CAN\SOH \SOH(\tR\toperation"
packedFileDescriptor :: Proxy SavedConstant -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SavedConstant)
fieldsByTag
= let
operation__field_descriptor :: FieldDescriptor SavedConstant
operation__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SavedConstant Text
-> FieldDescriptor SavedConstant
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"operation"
(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 SavedConstant SavedConstant Text Text
-> FieldAccessor SavedConstant 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 "operation" 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 @"operation")) ::
Data.ProtoLens.FieldDescriptor SavedConstant
in
[(Tag, FieldDescriptor SavedConstant)]
-> Map Tag (FieldDescriptor SavedConstant)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SavedConstant
operation__field_descriptor)]
unknownFields :: LensLike' f SavedConstant FieldSet
unknownFields
= (SavedConstant -> FieldSet)
-> (SavedConstant -> FieldSet -> SavedConstant)
-> Lens' SavedConstant FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedConstant -> FieldSet
_SavedConstant'_unknownFields
(\ x__ :: SavedConstant
x__ y__ :: FieldSet
y__ -> SavedConstant
x__ {_SavedConstant'_unknownFields :: FieldSet
_SavedConstant'_unknownFields = FieldSet
y__})
defMessage :: SavedConstant
defMessage
= $WSavedConstant'_constructor :: Text -> FieldSet -> SavedConstant
SavedConstant'_constructor
{_SavedConstant'operation :: Text
_SavedConstant'operation = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SavedConstant'_unknownFields :: FieldSet
_SavedConstant'_unknownFields = []}
parseMessage :: Parser SavedConstant
parseMessage
= let
loop ::
SavedConstant -> Data.ProtoLens.Encoding.Bytes.Parser SavedConstant
loop :: SavedConstant -> Parser SavedConstant
loop x :: SavedConstant
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]))))
SavedConstant -> Parser SavedConstant
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SavedConstant SavedConstant FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedConstant -> SavedConstant
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 SavedConstant SavedConstant FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SavedConstant
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))
"operation"
SavedConstant -> Parser SavedConstant
loop
(Setter SavedConstant SavedConstant Text Text
-> Text -> SavedConstant -> SavedConstant
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "operation" 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 @"operation") Text
y SavedConstant
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SavedConstant -> Parser SavedConstant
loop
(Setter SavedConstant SavedConstant FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedConstant -> SavedConstant
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 SavedConstant SavedConstant FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SavedConstant
x)
in
Parser SavedConstant -> String -> Parser SavedConstant
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SavedConstant -> Parser SavedConstant
loop SavedConstant
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "SavedConstant"
buildMessage :: SavedConstant -> Builder
buildMessage
= \ _x :: SavedConstant
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text SavedConstant SavedConstant Text Text
-> SavedConstant -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "operation" 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 @"operation") SavedConstant
_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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet SavedConstant SavedConstant FieldSet FieldSet
-> SavedConstant -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SavedConstant SavedConstant FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SavedConstant
_x))
instance Control.DeepSeq.NFData SavedConstant where
rnf :: SavedConstant -> ()
rnf
= \ x__ :: SavedConstant
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedConstant -> FieldSet
_SavedConstant'_unknownFields SavedConstant
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SavedConstant -> Text
_SavedConstant'operation SavedConstant
x__) ())
data SavedFunction
= SavedFunction'_constructor {SavedFunction -> Vector Text
_SavedFunction'concreteFunctions :: !(Data.Vector.Vector Data.Text.Text),
SavedFunction -> Maybe FunctionSpec
_SavedFunction'functionSpec :: !(Prelude.Maybe FunctionSpec),
SavedFunction -> FieldSet
_SavedFunction'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SavedFunction -> SavedFunction -> Bool
(SavedFunction -> SavedFunction -> Bool)
-> (SavedFunction -> SavedFunction -> Bool) -> Eq SavedFunction
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SavedFunction -> SavedFunction -> Bool
$c/= :: SavedFunction -> SavedFunction -> Bool
== :: SavedFunction -> SavedFunction -> Bool
$c== :: SavedFunction -> SavedFunction -> Bool
Prelude.Eq, Eq SavedFunction
Eq SavedFunction =>
(SavedFunction -> SavedFunction -> Ordering)
-> (SavedFunction -> SavedFunction -> Bool)
-> (SavedFunction -> SavedFunction -> Bool)
-> (SavedFunction -> SavedFunction -> Bool)
-> (SavedFunction -> SavedFunction -> Bool)
-> (SavedFunction -> SavedFunction -> SavedFunction)
-> (SavedFunction -> SavedFunction -> SavedFunction)
-> Ord SavedFunction
SavedFunction -> SavedFunction -> Bool
SavedFunction -> SavedFunction -> Ordering
SavedFunction -> SavedFunction -> SavedFunction
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 :: SavedFunction -> SavedFunction -> SavedFunction
$cmin :: SavedFunction -> SavedFunction -> SavedFunction
max :: SavedFunction -> SavedFunction -> SavedFunction
$cmax :: SavedFunction -> SavedFunction -> SavedFunction
>= :: SavedFunction -> SavedFunction -> Bool
$c>= :: SavedFunction -> SavedFunction -> Bool
> :: SavedFunction -> SavedFunction -> Bool
$c> :: SavedFunction -> SavedFunction -> Bool
<= :: SavedFunction -> SavedFunction -> Bool
$c<= :: SavedFunction -> SavedFunction -> Bool
< :: SavedFunction -> SavedFunction -> Bool
$c< :: SavedFunction -> SavedFunction -> Bool
compare :: SavedFunction -> SavedFunction -> Ordering
$ccompare :: SavedFunction -> SavedFunction -> Ordering
$cp1Ord :: Eq SavedFunction
Prelude.Ord)
instance Prelude.Show SavedFunction where
showsPrec :: Int -> SavedFunction -> ShowS
showsPrec _ __x :: SavedFunction
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SavedFunction -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SavedFunction
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SavedFunction "concreteFunctions" [Data.Text.Text] where
fieldOf :: Proxy# "concreteFunctions"
-> ([Text] -> f [Text]) -> SavedFunction -> f SavedFunction
fieldOf _
= ((Vector Text -> f (Vector Text))
-> SavedFunction -> f SavedFunction)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> SavedFunction
-> f SavedFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedFunction -> Vector Text)
-> (SavedFunction -> Vector Text -> SavedFunction)
-> Lens SavedFunction SavedFunction (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedFunction -> Vector Text
_SavedFunction'concreteFunctions
(\ x__ :: SavedFunction
x__ y__ :: Vector Text
y__ -> SavedFunction
x__ {_SavedFunction'concreteFunctions :: Vector Text
_SavedFunction'concreteFunctions = 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 SavedFunction "vec'concreteFunctions" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: Proxy# "vec'concreteFunctions"
-> (Vector Text -> f (Vector Text))
-> SavedFunction
-> f SavedFunction
fieldOf _
= ((Vector Text -> f (Vector Text))
-> SavedFunction -> f SavedFunction)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> SavedFunction
-> f SavedFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedFunction -> Vector Text)
-> (SavedFunction -> Vector Text -> SavedFunction)
-> Lens SavedFunction SavedFunction (Vector Text) (Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedFunction -> Vector Text
_SavedFunction'concreteFunctions
(\ x__ :: SavedFunction
x__ y__ :: Vector Text
y__ -> SavedFunction
x__ {_SavedFunction'concreteFunctions :: Vector Text
_SavedFunction'concreteFunctions = Vector Text
y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedFunction "functionSpec" FunctionSpec where
fieldOf :: Proxy# "functionSpec"
-> (FunctionSpec -> f FunctionSpec)
-> SavedFunction
-> f SavedFunction
fieldOf _
= ((Maybe FunctionSpec -> f (Maybe FunctionSpec))
-> SavedFunction -> f SavedFunction)
-> ((FunctionSpec -> f FunctionSpec)
-> Maybe FunctionSpec -> f (Maybe FunctionSpec))
-> (FunctionSpec -> f FunctionSpec)
-> SavedFunction
-> f SavedFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedFunction -> Maybe FunctionSpec)
-> (SavedFunction -> Maybe FunctionSpec -> SavedFunction)
-> Lens
SavedFunction
SavedFunction
(Maybe FunctionSpec)
(Maybe FunctionSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedFunction -> Maybe FunctionSpec
_SavedFunction'functionSpec
(\ x__ :: SavedFunction
x__ y__ :: Maybe FunctionSpec
y__ -> SavedFunction
x__ {_SavedFunction'functionSpec :: Maybe FunctionSpec
_SavedFunction'functionSpec = Maybe FunctionSpec
y__}))
(FunctionSpec -> Lens' (Maybe FunctionSpec) FunctionSpec
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FunctionSpec
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SavedFunction "maybe'functionSpec" (Prelude.Maybe FunctionSpec) where
fieldOf :: Proxy# "maybe'functionSpec"
-> (Maybe FunctionSpec -> f (Maybe FunctionSpec))
-> SavedFunction
-> f SavedFunction
fieldOf _
= ((Maybe FunctionSpec -> f (Maybe FunctionSpec))
-> SavedFunction -> f SavedFunction)
-> ((Maybe FunctionSpec -> f (Maybe FunctionSpec))
-> Maybe FunctionSpec -> f (Maybe FunctionSpec))
-> (Maybe FunctionSpec -> f (Maybe FunctionSpec))
-> SavedFunction
-> f SavedFunction
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedFunction -> Maybe FunctionSpec)
-> (SavedFunction -> Maybe FunctionSpec -> SavedFunction)
-> Lens
SavedFunction
SavedFunction
(Maybe FunctionSpec)
(Maybe FunctionSpec)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedFunction -> Maybe FunctionSpec
_SavedFunction'functionSpec
(\ x__ :: SavedFunction
x__ y__ :: Maybe FunctionSpec
y__ -> SavedFunction
x__ {_SavedFunction'functionSpec :: Maybe FunctionSpec
_SavedFunction'functionSpec = Maybe FunctionSpec
y__}))
(Maybe FunctionSpec -> f (Maybe FunctionSpec))
-> Maybe FunctionSpec -> f (Maybe FunctionSpec)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SavedFunction where
messageName :: Proxy SavedFunction -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.SavedFunction"
packedMessageDescriptor :: Proxy SavedFunction -> ByteString
packedMessageDescriptor _
= "\n\
\\rSavedFunction\DC2-\n\
\\DC2concrete_functions\CAN\SOH \ETX(\tR\DC1concreteFunctions\DC2=\n\
\\rfunction_spec\CAN\STX \SOH(\v2\CAN.tensorflow.FunctionSpecR\ffunctionSpec"
packedFileDescriptor :: Proxy SavedFunction -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SavedFunction)
fieldsByTag
= let
concreteFunctions__field_descriptor :: FieldDescriptor SavedFunction
concreteFunctions__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SavedFunction Text
-> FieldDescriptor SavedFunction
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"concrete_functions"
(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' SavedFunction [Text] -> FieldAccessor SavedFunction Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "concreteFunctions" 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 @"concreteFunctions")) ::
Data.ProtoLens.FieldDescriptor SavedFunction
functionSpec__field_descriptor :: FieldDescriptor SavedFunction
functionSpec__field_descriptor
= String
-> FieldTypeDescriptor FunctionSpec
-> FieldAccessor SavedFunction FunctionSpec
-> FieldDescriptor SavedFunction
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"function_spec"
(MessageOrGroup -> FieldTypeDescriptor FunctionSpec
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor FunctionSpec)
(Lens
SavedFunction
SavedFunction
(Maybe FunctionSpec)
(Maybe FunctionSpec)
-> FieldAccessor SavedFunction FunctionSpec
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'functionSpec" 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'functionSpec")) ::
Data.ProtoLens.FieldDescriptor SavedFunction
in
[(Tag, FieldDescriptor SavedFunction)]
-> Map Tag (FieldDescriptor SavedFunction)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SavedFunction
concreteFunctions__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SavedFunction
functionSpec__field_descriptor)]
unknownFields :: LensLike' f SavedFunction FieldSet
unknownFields
= (SavedFunction -> FieldSet)
-> (SavedFunction -> FieldSet -> SavedFunction)
-> Lens' SavedFunction FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedFunction -> FieldSet
_SavedFunction'_unknownFields
(\ x__ :: SavedFunction
x__ y__ :: FieldSet
y__ -> SavedFunction
x__ {_SavedFunction'_unknownFields :: FieldSet
_SavedFunction'_unknownFields = FieldSet
y__})
defMessage :: SavedFunction
defMessage
= $WSavedFunction'_constructor :: Vector Text -> Maybe FunctionSpec -> FieldSet -> SavedFunction
SavedFunction'_constructor
{_SavedFunction'concreteFunctions :: Vector Text
_SavedFunction'concreteFunctions = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_SavedFunction'functionSpec :: Maybe FunctionSpec
_SavedFunction'functionSpec = Maybe FunctionSpec
forall a. Maybe a
Prelude.Nothing,
_SavedFunction'_unknownFields :: FieldSet
_SavedFunction'_unknownFields = []}
parseMessage :: Parser SavedFunction
parseMessage
= let
loop ::
SavedFunction
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
-> Data.ProtoLens.Encoding.Bytes.Parser SavedFunction
loop :: SavedFunction
-> Growing Vector RealWorld Text -> Parser SavedFunction
loop x :: SavedFunction
x mutable'concreteFunctions :: Growing Vector RealWorld Text
mutable'concreteFunctions
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Text
frozen'concreteFunctions <- 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'concreteFunctions)
(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]))))
SavedFunction -> Parser SavedFunction
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SavedFunction SavedFunction FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedFunction -> SavedFunction
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 SavedFunction SavedFunction FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter SavedFunction SavedFunction (Vector Text) (Vector Text)
-> Vector Text -> SavedFunction -> SavedFunction
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'concreteFunctions" 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'concreteFunctions")
Vector Text
frozen'concreteFunctions
SavedFunction
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))
"concrete_functions"
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'concreteFunctions Text
y)
SavedFunction
-> Growing Vector RealWorld Text -> Parser SavedFunction
loop SavedFunction
x Growing Vector RealWorld Text
v
18
-> do FunctionSpec
y <- Parser FunctionSpec -> String -> Parser FunctionSpec
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser FunctionSpec -> Parser FunctionSpec
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 FunctionSpec
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"function_spec"
SavedFunction
-> Growing Vector RealWorld Text -> Parser SavedFunction
loop
(Setter SavedFunction SavedFunction FunctionSpec FunctionSpec
-> FunctionSpec -> SavedFunction -> SavedFunction
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "functionSpec" 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 @"functionSpec") FunctionSpec
y SavedFunction
x)
Growing Vector RealWorld Text
mutable'concreteFunctions
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SavedFunction
-> Growing Vector RealWorld Text -> Parser SavedFunction
loop
(Setter SavedFunction SavedFunction FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedFunction -> SavedFunction
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 SavedFunction SavedFunction FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SavedFunction
x)
Growing Vector RealWorld Text
mutable'concreteFunctions
in
Parser SavedFunction -> String -> Parser SavedFunction
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Text
mutable'concreteFunctions <- 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
SavedFunction
-> Growing Vector RealWorld Text -> Parser SavedFunction
loop SavedFunction
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Text
mutable'concreteFunctions)
"SavedFunction"
buildMessage :: SavedFunction -> Builder
buildMessage
= \ _x :: SavedFunction
_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)
SavedFunction
SavedFunction
(Vector Text)
(Vector Text)
-> SavedFunction -> 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'concreteFunctions" 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'concreteFunctions") SavedFunction
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe FunctionSpec)
SavedFunction
SavedFunction
(Maybe FunctionSpec)
(Maybe FunctionSpec)
-> SavedFunction -> Maybe FunctionSpec
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'functionSpec" 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'functionSpec") SavedFunction
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: FunctionSpec
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (FunctionSpec -> ByteString) -> FunctionSpec -> 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))
FunctionSpec -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
FunctionSpec
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet SavedFunction SavedFunction FieldSet FieldSet
-> SavedFunction -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SavedFunction SavedFunction FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SavedFunction
_x)))
instance Control.DeepSeq.NFData SavedFunction where
rnf :: SavedFunction -> ()
rnf
= \ x__ :: SavedFunction
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedFunction -> FieldSet
_SavedFunction'_unknownFields SavedFunction
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedFunction -> Vector Text
_SavedFunction'concreteFunctions SavedFunction
x__)
(Maybe FunctionSpec -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SavedFunction -> Maybe FunctionSpec
_SavedFunction'functionSpec SavedFunction
x__) ()))
data SavedObject
= SavedObject'_constructor {SavedObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
_SavedObject'children :: !(Data.Vector.Vector Proto.Tensorflow.Core.Protobuf.TrackableObjectGraph.TrackableObjectGraph'TrackableObject'ObjectReference),
SavedObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
_SavedObject'slotVariables :: !(Data.Vector.Vector Proto.Tensorflow.Core.Protobuf.TrackableObjectGraph.TrackableObjectGraph'TrackableObject'SlotVariableReference),
SavedObject -> Map Text SaveableObject
_SavedObject'saveableObjects :: !(Data.Map.Map Data.Text.Text SaveableObject),
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind :: !(Prelude.Maybe SavedObject'Kind),
SavedObject -> FieldSet
_SavedObject'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SavedObject -> SavedObject -> Bool
(SavedObject -> SavedObject -> Bool)
-> (SavedObject -> SavedObject -> Bool) -> Eq SavedObject
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SavedObject -> SavedObject -> Bool
$c/= :: SavedObject -> SavedObject -> Bool
== :: SavedObject -> SavedObject -> Bool
$c== :: SavedObject -> SavedObject -> Bool
Prelude.Eq, Eq SavedObject
Eq SavedObject =>
(SavedObject -> SavedObject -> Ordering)
-> (SavedObject -> SavedObject -> Bool)
-> (SavedObject -> SavedObject -> Bool)
-> (SavedObject -> SavedObject -> Bool)
-> (SavedObject -> SavedObject -> Bool)
-> (SavedObject -> SavedObject -> SavedObject)
-> (SavedObject -> SavedObject -> SavedObject)
-> Ord SavedObject
SavedObject -> SavedObject -> Bool
SavedObject -> SavedObject -> Ordering
SavedObject -> SavedObject -> SavedObject
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 :: SavedObject -> SavedObject -> SavedObject
$cmin :: SavedObject -> SavedObject -> SavedObject
max :: SavedObject -> SavedObject -> SavedObject
$cmax :: SavedObject -> SavedObject -> SavedObject
>= :: SavedObject -> SavedObject -> Bool
$c>= :: SavedObject -> SavedObject -> Bool
> :: SavedObject -> SavedObject -> Bool
$c> :: SavedObject -> SavedObject -> Bool
<= :: SavedObject -> SavedObject -> Bool
$c<= :: SavedObject -> SavedObject -> Bool
< :: SavedObject -> SavedObject -> Bool
$c< :: SavedObject -> SavedObject -> Bool
compare :: SavedObject -> SavedObject -> Ordering
$ccompare :: SavedObject -> SavedObject -> Ordering
$cp1Ord :: Eq SavedObject
Prelude.Ord)
instance Prelude.Show SavedObject where
showsPrec :: Int -> SavedObject -> ShowS
showsPrec _ __x :: SavedObject
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SavedObject -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SavedObject
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
data SavedObject'Kind
= SavedObject'UserObject !SavedUserObject |
SavedObject'Asset !SavedAsset |
SavedObject'Function !SavedFunction |
SavedObject'Variable !SavedVariable |
SavedObject'BareConcreteFunction !SavedBareConcreteFunction |
SavedObject'Constant !SavedConstant |
SavedObject'Resource !SavedResource
deriving stock (Int -> SavedObject'Kind -> ShowS
[SavedObject'Kind] -> ShowS
SavedObject'Kind -> String
(Int -> SavedObject'Kind -> ShowS)
-> (SavedObject'Kind -> String)
-> ([SavedObject'Kind] -> ShowS)
-> Show SavedObject'Kind
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SavedObject'Kind] -> ShowS
$cshowList :: [SavedObject'Kind] -> ShowS
show :: SavedObject'Kind -> String
$cshow :: SavedObject'Kind -> String
showsPrec :: Int -> SavedObject'Kind -> ShowS
$cshowsPrec :: Int -> SavedObject'Kind -> ShowS
Prelude.Show, SavedObject'Kind -> SavedObject'Kind -> Bool
(SavedObject'Kind -> SavedObject'Kind -> Bool)
-> (SavedObject'Kind -> SavedObject'Kind -> Bool)
-> Eq SavedObject'Kind
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SavedObject'Kind -> SavedObject'Kind -> Bool
$c/= :: SavedObject'Kind -> SavedObject'Kind -> Bool
== :: SavedObject'Kind -> SavedObject'Kind -> Bool
$c== :: SavedObject'Kind -> SavedObject'Kind -> Bool
Prelude.Eq, Eq SavedObject'Kind
Eq SavedObject'Kind =>
(SavedObject'Kind -> SavedObject'Kind -> Ordering)
-> (SavedObject'Kind -> SavedObject'Kind -> Bool)
-> (SavedObject'Kind -> SavedObject'Kind -> Bool)
-> (SavedObject'Kind -> SavedObject'Kind -> Bool)
-> (SavedObject'Kind -> SavedObject'Kind -> Bool)
-> (SavedObject'Kind -> SavedObject'Kind -> SavedObject'Kind)
-> (SavedObject'Kind -> SavedObject'Kind -> SavedObject'Kind)
-> Ord SavedObject'Kind
SavedObject'Kind -> SavedObject'Kind -> Bool
SavedObject'Kind -> SavedObject'Kind -> Ordering
SavedObject'Kind -> SavedObject'Kind -> SavedObject'Kind
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 :: SavedObject'Kind -> SavedObject'Kind -> SavedObject'Kind
$cmin :: SavedObject'Kind -> SavedObject'Kind -> SavedObject'Kind
max :: SavedObject'Kind -> SavedObject'Kind -> SavedObject'Kind
$cmax :: SavedObject'Kind -> SavedObject'Kind -> SavedObject'Kind
>= :: SavedObject'Kind -> SavedObject'Kind -> Bool
$c>= :: SavedObject'Kind -> SavedObject'Kind -> Bool
> :: SavedObject'Kind -> SavedObject'Kind -> Bool
$c> :: SavedObject'Kind -> SavedObject'Kind -> Bool
<= :: SavedObject'Kind -> SavedObject'Kind -> Bool
$c<= :: SavedObject'Kind -> SavedObject'Kind -> Bool
< :: SavedObject'Kind -> SavedObject'Kind -> Bool
$c< :: SavedObject'Kind -> SavedObject'Kind -> Bool
compare :: SavedObject'Kind -> SavedObject'Kind -> Ordering
$ccompare :: SavedObject'Kind -> SavedObject'Kind -> Ordering
$cp1Ord :: Eq SavedObject'Kind
Prelude.Ord)
instance Data.ProtoLens.Field.HasField SavedObject "children" [Proto.Tensorflow.Core.Protobuf.TrackableObjectGraph.TrackableObjectGraph'TrackableObject'ObjectReference] where
fieldOf :: Proxy# "children"
-> ([TrackableObjectGraph'TrackableObject'ObjectReference]
-> f [TrackableObjectGraph'TrackableObject'ObjectReference])
-> SavedObject
-> f SavedObject
fieldOf _
= ((Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> SavedObject -> f SavedObject)
-> (([TrackableObjectGraph'TrackableObject'ObjectReference]
-> f [TrackableObjectGraph'TrackableObject'ObjectReference])
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> ([TrackableObjectGraph'TrackableObject'ObjectReference]
-> f [TrackableObjectGraph'TrackableObject'ObjectReference])
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference)
-> (SavedObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> SavedObject)
-> Lens
SavedObject
SavedObject
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
_SavedObject'children
(\ x__ :: SavedObject
x__ y__ :: Vector TrackableObjectGraph'TrackableObject'ObjectReference
y__ -> SavedObject
x__ {_SavedObject'children :: Vector TrackableObjectGraph'TrackableObject'ObjectReference
_SavedObject'children = Vector TrackableObjectGraph'TrackableObject'ObjectReference
y__}))
((Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> [TrackableObjectGraph'TrackableObject'ObjectReference])
-> (Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> [TrackableObjectGraph'TrackableObject'ObjectReference]
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference)
-> Lens
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
[TrackableObjectGraph'TrackableObject'ObjectReference]
[TrackableObjectGraph'TrackableObject'ObjectReference]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> [TrackableObjectGraph'TrackableObject'ObjectReference]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [TrackableObjectGraph'TrackableObject'ObjectReference]
y__ -> [TrackableObjectGraph'TrackableObject'ObjectReference]
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TrackableObjectGraph'TrackableObject'ObjectReference]
y__))
instance Data.ProtoLens.Field.HasField SavedObject "vec'children" (Data.Vector.Vector Proto.Tensorflow.Core.Protobuf.TrackableObjectGraph.TrackableObjectGraph'TrackableObject'ObjectReference) where
fieldOf :: Proxy# "vec'children"
-> (Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> SavedObject
-> f SavedObject
fieldOf _
= ((Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> SavedObject -> f SavedObject)
-> ((Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> (Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference)
-> (SavedObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> SavedObject)
-> Lens
SavedObject
SavedObject
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
_SavedObject'children
(\ x__ :: SavedObject
x__ y__ :: Vector TrackableObjectGraph'TrackableObject'ObjectReference
y__ -> SavedObject
x__ {_SavedObject'children :: Vector TrackableObjectGraph'TrackableObject'ObjectReference
_SavedObject'children = Vector TrackableObjectGraph'TrackableObject'ObjectReference
y__}))
(Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference))
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> f (Vector TrackableObjectGraph'TrackableObject'ObjectReference)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedObject "slotVariables" [Proto.Tensorflow.Core.Protobuf.TrackableObjectGraph.TrackableObjectGraph'TrackableObject'SlotVariableReference] where
fieldOf :: Proxy# "slotVariables"
-> ([TrackableObjectGraph'TrackableObject'SlotVariableReference]
-> f [TrackableObjectGraph'TrackableObject'SlotVariableReference])
-> SavedObject
-> f SavedObject
fieldOf _
= ((Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> SavedObject -> f SavedObject)
-> (([TrackableObjectGraph'TrackableObject'SlotVariableReference]
-> f [TrackableObjectGraph'TrackableObject'SlotVariableReference])
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> ([TrackableObjectGraph'TrackableObject'SlotVariableReference]
-> f [TrackableObjectGraph'TrackableObject'SlotVariableReference])
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> (SavedObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> SavedObject)
-> Lens
SavedObject
SavedObject
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
_SavedObject'slotVariables
(\ x__ :: SavedObject
x__ y__ :: Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
y__ -> SavedObject
x__ {_SavedObject'slotVariables :: Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
_SavedObject'slotVariables = Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
y__}))
((Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
-> [TrackableObjectGraph'TrackableObject'SlotVariableReference])
-> (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> [TrackableObjectGraph'TrackableObject'SlotVariableReference]
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> Lens
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
[TrackableObjectGraph'TrackableObject'SlotVariableReference]
[TrackableObjectGraph'TrackableObject'SlotVariableReference]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
-> [TrackableObjectGraph'TrackableObject'SlotVariableReference]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [TrackableObjectGraph'TrackableObject'SlotVariableReference]
y__ -> [TrackableObjectGraph'TrackableObject'SlotVariableReference]
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TrackableObjectGraph'TrackableObject'SlotVariableReference]
y__))
instance Data.ProtoLens.Field.HasField SavedObject "vec'slotVariables" (Data.Vector.Vector Proto.Tensorflow.Core.Protobuf.TrackableObjectGraph.TrackableObjectGraph'TrackableObject'SlotVariableReference) where
fieldOf :: Proxy# "vec'slotVariables"
-> (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> SavedObject
-> f SavedObject
fieldOf _
= ((Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> SavedObject -> f SavedObject)
-> ((Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> (SavedObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> SavedObject)
-> Lens
SavedObject
SavedObject
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
_SavedObject'slotVariables
(\ x__ :: SavedObject
x__ y__ :: Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
y__ -> SavedObject
x__ {_SavedObject'slotVariables :: Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
_SavedObject'slotVariables = Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
y__}))
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference))
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> f (Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedObject "saveableObjects" (Data.Map.Map Data.Text.Text SaveableObject) where
fieldOf :: Proxy# "saveableObjects"
-> (Map Text SaveableObject -> f (Map Text SaveableObject))
-> SavedObject
-> f SavedObject
fieldOf _
= ((Map Text SaveableObject -> f (Map Text SaveableObject))
-> SavedObject -> f SavedObject)
-> ((Map Text SaveableObject -> f (Map Text SaveableObject))
-> Map Text SaveableObject -> f (Map Text SaveableObject))
-> (Map Text SaveableObject -> f (Map Text SaveableObject))
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Map Text SaveableObject)
-> (SavedObject -> Map Text SaveableObject -> SavedObject)
-> Lens
SavedObject
SavedObject
(Map Text SaveableObject)
(Map Text SaveableObject)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Map Text SaveableObject
_SavedObject'saveableObjects
(\ x__ :: SavedObject
x__ y__ :: Map Text SaveableObject
y__ -> SavedObject
x__ {_SavedObject'saveableObjects :: Map Text SaveableObject
_SavedObject'saveableObjects = Map Text SaveableObject
y__}))
(Map Text SaveableObject -> f (Map Text SaveableObject))
-> Map Text SaveableObject -> f (Map Text SaveableObject)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedObject "maybe'kind" (Prelude.Maybe SavedObject'Kind) where
fieldOf :: Proxy# "maybe'kind"
-> (Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject
-> f SavedObject
fieldOf _
= ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject -> f SavedObject)
-> ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> (Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Maybe SavedObject'Kind)
-> (SavedObject -> Maybe SavedObject'Kind -> SavedObject)
-> Lens
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind (\ x__ :: SavedObject
x__ y__ :: Maybe SavedObject'Kind
y__ -> SavedObject
x__ {_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
y__}))
(Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedObject "maybe'userObject" (Prelude.Maybe SavedUserObject) where
fieldOf :: Proxy# "maybe'userObject"
-> (Maybe SavedUserObject -> f (Maybe SavedUserObject))
-> SavedObject
-> f SavedObject
fieldOf _
= ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject -> f SavedObject)
-> ((Maybe SavedUserObject -> f (Maybe SavedUserObject))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> (Maybe SavedUserObject -> f (Maybe SavedUserObject))
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Maybe SavedObject'Kind)
-> (SavedObject -> Maybe SavedObject'Kind -> SavedObject)
-> Lens
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind (\ x__ :: SavedObject
x__ y__ :: Maybe SavedObject'Kind
y__ -> SavedObject
x__ {_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
y__}))
((Maybe SavedObject'Kind -> Maybe SavedUserObject)
-> (Maybe SavedObject'Kind
-> Maybe SavedUserObject -> Maybe SavedObject'Kind)
-> Lens
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
(Maybe SavedUserObject)
(Maybe SavedUserObject)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe SavedObject'Kind
x__
-> case Maybe SavedObject'Kind
x__ of
(Prelude.Just (SavedObject'UserObject x__val :: SavedUserObject
x__val))
-> SavedUserObject -> Maybe SavedUserObject
forall a. a -> Maybe a
Prelude.Just SavedUserObject
x__val
_otherwise :: Maybe SavedObject'Kind
_otherwise -> Maybe SavedUserObject
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SavedUserObject
y__ -> (SavedUserObject -> SavedObject'Kind)
-> Maybe SavedUserObject -> Maybe SavedObject'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SavedUserObject -> SavedObject'Kind
SavedObject'UserObject Maybe SavedUserObject
y__))
instance Data.ProtoLens.Field.HasField SavedObject "userObject" SavedUserObject where
fieldOf :: Proxy# "userObject"
-> (SavedUserObject -> f SavedUserObject)
-> SavedObject
-> f SavedObject
fieldOf _
= ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject -> f SavedObject)
-> ((SavedUserObject -> f SavedUserObject)
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> (SavedUserObject -> f SavedUserObject)
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Maybe SavedObject'Kind)
-> (SavedObject -> Maybe SavedObject'Kind -> SavedObject)
-> Lens
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind (\ x__ :: SavedObject
x__ y__ :: Maybe SavedObject'Kind
y__ -> SavedObject
x__ {_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
y__}))
(((Maybe SavedUserObject -> f (Maybe SavedUserObject))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> ((SavedUserObject -> f SavedUserObject)
-> Maybe SavedUserObject -> f (Maybe SavedUserObject))
-> (SavedUserObject -> f SavedUserObject)
-> Maybe SavedObject'Kind
-> f (Maybe SavedObject'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe SavedObject'Kind -> Maybe SavedUserObject)
-> (Maybe SavedObject'Kind
-> Maybe SavedUserObject -> Maybe SavedObject'Kind)
-> Lens
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
(Maybe SavedUserObject)
(Maybe SavedUserObject)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe SavedObject'Kind
x__
-> case Maybe SavedObject'Kind
x__ of
(Prelude.Just (SavedObject'UserObject x__val :: SavedUserObject
x__val))
-> SavedUserObject -> Maybe SavedUserObject
forall a. a -> Maybe a
Prelude.Just SavedUserObject
x__val
_otherwise :: Maybe SavedObject'Kind
_otherwise -> Maybe SavedUserObject
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SavedUserObject
y__ -> (SavedUserObject -> SavedObject'Kind)
-> Maybe SavedUserObject -> Maybe SavedObject'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SavedUserObject -> SavedObject'Kind
SavedObject'UserObject Maybe SavedUserObject
y__))
(SavedUserObject -> Lens' (Maybe SavedUserObject) SavedUserObject
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SavedUserObject
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField SavedObject "maybe'asset" (Prelude.Maybe SavedAsset) where
fieldOf :: Proxy# "maybe'asset"
-> (Maybe SavedAsset -> f (Maybe SavedAsset))
-> SavedObject
-> f SavedObject
fieldOf _
= ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject -> f SavedObject)
-> ((Maybe SavedAsset -> f (Maybe SavedAsset))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> (Maybe SavedAsset -> f (Maybe SavedAsset))
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Maybe SavedObject'Kind)
-> (SavedObject -> Maybe SavedObject'Kind -> SavedObject)
-> Lens
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind (\ x__ :: SavedObject
x__ y__ :: Maybe SavedObject'Kind
y__ -> SavedObject
x__ {_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
y__}))
((Maybe SavedObject'Kind -> Maybe SavedAsset)
-> (Maybe SavedObject'Kind
-> Maybe SavedAsset -> Maybe SavedObject'Kind)
-> Lens
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
(Maybe SavedAsset)
(Maybe SavedAsset)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe SavedObject'Kind
x__
-> case Maybe SavedObject'Kind
x__ of
(Prelude.Just (SavedObject'Asset x__val :: SavedAsset
x__val)) -> SavedAsset -> Maybe SavedAsset
forall a. a -> Maybe a
Prelude.Just SavedAsset
x__val
_otherwise :: Maybe SavedObject'Kind
_otherwise -> Maybe SavedAsset
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SavedAsset
y__ -> (SavedAsset -> SavedObject'Kind)
-> Maybe SavedAsset -> Maybe SavedObject'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SavedAsset -> SavedObject'Kind
SavedObject'Asset Maybe SavedAsset
y__))
instance Data.ProtoLens.Field.HasField SavedObject "asset" SavedAsset where
fieldOf :: Proxy# "asset"
-> (SavedAsset -> f SavedAsset) -> SavedObject -> f SavedObject
fieldOf _
= ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject -> f SavedObject)
-> ((SavedAsset -> f SavedAsset)
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> (SavedAsset -> f SavedAsset)
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Maybe SavedObject'Kind)
-> (SavedObject -> Maybe SavedObject'Kind -> SavedObject)
-> Lens
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind (\ x__ :: SavedObject
x__ y__ :: Maybe SavedObject'Kind
y__ -> SavedObject
x__ {_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
y__}))
(((Maybe SavedAsset -> f (Maybe SavedAsset))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> ((SavedAsset -> f SavedAsset)
-> Maybe SavedAsset -> f (Maybe SavedAsset))
-> (SavedAsset -> f SavedAsset)
-> Maybe SavedObject'Kind
-> f (Maybe SavedObject'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe SavedObject'Kind -> Maybe SavedAsset)
-> (Maybe SavedObject'Kind
-> Maybe SavedAsset -> Maybe SavedObject'Kind)
-> Lens
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
(Maybe SavedAsset)
(Maybe SavedAsset)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe SavedObject'Kind
x__
-> case Maybe SavedObject'Kind
x__ of
(Prelude.Just (SavedObject'Asset x__val :: SavedAsset
x__val)) -> SavedAsset -> Maybe SavedAsset
forall a. a -> Maybe a
Prelude.Just SavedAsset
x__val
_otherwise :: Maybe SavedObject'Kind
_otherwise -> Maybe SavedAsset
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SavedAsset
y__ -> (SavedAsset -> SavedObject'Kind)
-> Maybe SavedAsset -> Maybe SavedObject'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SavedAsset -> SavedObject'Kind
SavedObject'Asset Maybe SavedAsset
y__))
(SavedAsset -> Lens' (Maybe SavedAsset) SavedAsset
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SavedAsset
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField SavedObject "maybe'function" (Prelude.Maybe SavedFunction) where
fieldOf :: Proxy# "maybe'function"
-> (Maybe SavedFunction -> f (Maybe SavedFunction))
-> SavedObject
-> f SavedObject
fieldOf _
= ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject -> f SavedObject)
-> ((Maybe SavedFunction -> f (Maybe SavedFunction))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> (Maybe SavedFunction -> f (Maybe SavedFunction))
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Maybe SavedObject'Kind)
-> (SavedObject -> Maybe SavedObject'Kind -> SavedObject)
-> Lens
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind (\ x__ :: SavedObject
x__ y__ :: Maybe SavedObject'Kind
y__ -> SavedObject
x__ {_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
y__}))
((Maybe SavedObject'Kind -> Maybe SavedFunction)
-> (Maybe SavedObject'Kind
-> Maybe SavedFunction -> Maybe SavedObject'Kind)
-> Lens
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
(Maybe SavedFunction)
(Maybe SavedFunction)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe SavedObject'Kind
x__
-> case Maybe SavedObject'Kind
x__ of
(Prelude.Just (SavedObject'Function x__val :: SavedFunction
x__val)) -> SavedFunction -> Maybe SavedFunction
forall a. a -> Maybe a
Prelude.Just SavedFunction
x__val
_otherwise :: Maybe SavedObject'Kind
_otherwise -> Maybe SavedFunction
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SavedFunction
y__ -> (SavedFunction -> SavedObject'Kind)
-> Maybe SavedFunction -> Maybe SavedObject'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SavedFunction -> SavedObject'Kind
SavedObject'Function Maybe SavedFunction
y__))
instance Data.ProtoLens.Field.HasField SavedObject "function" SavedFunction where
fieldOf :: Proxy# "function"
-> (SavedFunction -> f SavedFunction)
-> SavedObject
-> f SavedObject
fieldOf _
= ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject -> f SavedObject)
-> ((SavedFunction -> f SavedFunction)
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> (SavedFunction -> f SavedFunction)
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Maybe SavedObject'Kind)
-> (SavedObject -> Maybe SavedObject'Kind -> SavedObject)
-> Lens
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind (\ x__ :: SavedObject
x__ y__ :: Maybe SavedObject'Kind
y__ -> SavedObject
x__ {_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
y__}))
(((Maybe SavedFunction -> f (Maybe SavedFunction))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> ((SavedFunction -> f SavedFunction)
-> Maybe SavedFunction -> f (Maybe SavedFunction))
-> (SavedFunction -> f SavedFunction)
-> Maybe SavedObject'Kind
-> f (Maybe SavedObject'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe SavedObject'Kind -> Maybe SavedFunction)
-> (Maybe SavedObject'Kind
-> Maybe SavedFunction -> Maybe SavedObject'Kind)
-> Lens
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
(Maybe SavedFunction)
(Maybe SavedFunction)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe SavedObject'Kind
x__
-> case Maybe SavedObject'Kind
x__ of
(Prelude.Just (SavedObject'Function x__val :: SavedFunction
x__val)) -> SavedFunction -> Maybe SavedFunction
forall a. a -> Maybe a
Prelude.Just SavedFunction
x__val
_otherwise :: Maybe SavedObject'Kind
_otherwise -> Maybe SavedFunction
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SavedFunction
y__ -> (SavedFunction -> SavedObject'Kind)
-> Maybe SavedFunction -> Maybe SavedObject'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SavedFunction -> SavedObject'Kind
SavedObject'Function Maybe SavedFunction
y__))
(SavedFunction -> Lens' (Maybe SavedFunction) SavedFunction
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SavedFunction
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField SavedObject "maybe'variable" (Prelude.Maybe SavedVariable) where
fieldOf :: Proxy# "maybe'variable"
-> (Maybe SavedVariable -> f (Maybe SavedVariable))
-> SavedObject
-> f SavedObject
fieldOf _
= ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject -> f SavedObject)
-> ((Maybe SavedVariable -> f (Maybe SavedVariable))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> (Maybe SavedVariable -> f (Maybe SavedVariable))
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Maybe SavedObject'Kind)
-> (SavedObject -> Maybe SavedObject'Kind -> SavedObject)
-> Lens
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind (\ x__ :: SavedObject
x__ y__ :: Maybe SavedObject'Kind
y__ -> SavedObject
x__ {_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
y__}))
((Maybe SavedObject'Kind -> Maybe SavedVariable)
-> (Maybe SavedObject'Kind
-> Maybe SavedVariable -> Maybe SavedObject'Kind)
-> Lens
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
(Maybe SavedVariable)
(Maybe SavedVariable)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe SavedObject'Kind
x__
-> case Maybe SavedObject'Kind
x__ of
(Prelude.Just (SavedObject'Variable x__val :: SavedVariable
x__val)) -> SavedVariable -> Maybe SavedVariable
forall a. a -> Maybe a
Prelude.Just SavedVariable
x__val
_otherwise :: Maybe SavedObject'Kind
_otherwise -> Maybe SavedVariable
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SavedVariable
y__ -> (SavedVariable -> SavedObject'Kind)
-> Maybe SavedVariable -> Maybe SavedObject'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SavedVariable -> SavedObject'Kind
SavedObject'Variable Maybe SavedVariable
y__))
instance Data.ProtoLens.Field.HasField SavedObject "variable" SavedVariable where
fieldOf :: Proxy# "variable"
-> (SavedVariable -> f SavedVariable)
-> SavedObject
-> f SavedObject
fieldOf _
= ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject -> f SavedObject)
-> ((SavedVariable -> f SavedVariable)
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> (SavedVariable -> f SavedVariable)
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Maybe SavedObject'Kind)
-> (SavedObject -> Maybe SavedObject'Kind -> SavedObject)
-> Lens
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind (\ x__ :: SavedObject
x__ y__ :: Maybe SavedObject'Kind
y__ -> SavedObject
x__ {_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
y__}))
(((Maybe SavedVariable -> f (Maybe SavedVariable))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> ((SavedVariable -> f SavedVariable)
-> Maybe SavedVariable -> f (Maybe SavedVariable))
-> (SavedVariable -> f SavedVariable)
-> Maybe SavedObject'Kind
-> f (Maybe SavedObject'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe SavedObject'Kind -> Maybe SavedVariable)
-> (Maybe SavedObject'Kind
-> Maybe SavedVariable -> Maybe SavedObject'Kind)
-> Lens
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
(Maybe SavedVariable)
(Maybe SavedVariable)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe SavedObject'Kind
x__
-> case Maybe SavedObject'Kind
x__ of
(Prelude.Just (SavedObject'Variable x__val :: SavedVariable
x__val)) -> SavedVariable -> Maybe SavedVariable
forall a. a -> Maybe a
Prelude.Just SavedVariable
x__val
_otherwise :: Maybe SavedObject'Kind
_otherwise -> Maybe SavedVariable
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SavedVariable
y__ -> (SavedVariable -> SavedObject'Kind)
-> Maybe SavedVariable -> Maybe SavedObject'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SavedVariable -> SavedObject'Kind
SavedObject'Variable Maybe SavedVariable
y__))
(SavedVariable -> Lens' (Maybe SavedVariable) SavedVariable
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SavedVariable
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField SavedObject "maybe'bareConcreteFunction" (Prelude.Maybe SavedBareConcreteFunction) where
fieldOf :: Proxy# "maybe'bareConcreteFunction"
-> (Maybe SavedBareConcreteFunction
-> f (Maybe SavedBareConcreteFunction))
-> SavedObject
-> f SavedObject
fieldOf _
= ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject -> f SavedObject)
-> ((Maybe SavedBareConcreteFunction
-> f (Maybe SavedBareConcreteFunction))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> (Maybe SavedBareConcreteFunction
-> f (Maybe SavedBareConcreteFunction))
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Maybe SavedObject'Kind)
-> (SavedObject -> Maybe SavedObject'Kind -> SavedObject)
-> Lens
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind (\ x__ :: SavedObject
x__ y__ :: Maybe SavedObject'Kind
y__ -> SavedObject
x__ {_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
y__}))
((Maybe SavedObject'Kind -> Maybe SavedBareConcreteFunction)
-> (Maybe SavedObject'Kind
-> Maybe SavedBareConcreteFunction -> Maybe SavedObject'Kind)
-> Lens
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
(Maybe SavedBareConcreteFunction)
(Maybe SavedBareConcreteFunction)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe SavedObject'Kind
x__
-> case Maybe SavedObject'Kind
x__ of
(Prelude.Just (SavedObject'BareConcreteFunction x__val :: SavedBareConcreteFunction
x__val))
-> SavedBareConcreteFunction -> Maybe SavedBareConcreteFunction
forall a. a -> Maybe a
Prelude.Just SavedBareConcreteFunction
x__val
_otherwise :: Maybe SavedObject'Kind
_otherwise -> Maybe SavedBareConcreteFunction
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SavedBareConcreteFunction
y__ -> (SavedBareConcreteFunction -> SavedObject'Kind)
-> Maybe SavedBareConcreteFunction -> Maybe SavedObject'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SavedBareConcreteFunction -> SavedObject'Kind
SavedObject'BareConcreteFunction Maybe SavedBareConcreteFunction
y__))
instance Data.ProtoLens.Field.HasField SavedObject "bareConcreteFunction" SavedBareConcreteFunction where
fieldOf :: Proxy# "bareConcreteFunction"
-> (SavedBareConcreteFunction -> f SavedBareConcreteFunction)
-> SavedObject
-> f SavedObject
fieldOf _
= ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject -> f SavedObject)
-> ((SavedBareConcreteFunction -> f SavedBareConcreteFunction)
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> (SavedBareConcreteFunction -> f SavedBareConcreteFunction)
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Maybe SavedObject'Kind)
-> (SavedObject -> Maybe SavedObject'Kind -> SavedObject)
-> Lens
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind (\ x__ :: SavedObject
x__ y__ :: Maybe SavedObject'Kind
y__ -> SavedObject
x__ {_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
y__}))
(((Maybe SavedBareConcreteFunction
-> f (Maybe SavedBareConcreteFunction))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> ((SavedBareConcreteFunction -> f SavedBareConcreteFunction)
-> Maybe SavedBareConcreteFunction
-> f (Maybe SavedBareConcreteFunction))
-> (SavedBareConcreteFunction -> f SavedBareConcreteFunction)
-> Maybe SavedObject'Kind
-> f (Maybe SavedObject'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe SavedObject'Kind -> Maybe SavedBareConcreteFunction)
-> (Maybe SavedObject'Kind
-> Maybe SavedBareConcreteFunction -> Maybe SavedObject'Kind)
-> Lens
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
(Maybe SavedBareConcreteFunction)
(Maybe SavedBareConcreteFunction)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe SavedObject'Kind
x__
-> case Maybe SavedObject'Kind
x__ of
(Prelude.Just (SavedObject'BareConcreteFunction x__val :: SavedBareConcreteFunction
x__val))
-> SavedBareConcreteFunction -> Maybe SavedBareConcreteFunction
forall a. a -> Maybe a
Prelude.Just SavedBareConcreteFunction
x__val
_otherwise :: Maybe SavedObject'Kind
_otherwise -> Maybe SavedBareConcreteFunction
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SavedBareConcreteFunction
y__ -> (SavedBareConcreteFunction -> SavedObject'Kind)
-> Maybe SavedBareConcreteFunction -> Maybe SavedObject'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SavedBareConcreteFunction -> SavedObject'Kind
SavedObject'BareConcreteFunction Maybe SavedBareConcreteFunction
y__))
(SavedBareConcreteFunction
-> Lens'
(Maybe SavedBareConcreteFunction) SavedBareConcreteFunction
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SavedBareConcreteFunction
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField SavedObject "maybe'constant" (Prelude.Maybe SavedConstant) where
fieldOf :: Proxy# "maybe'constant"
-> (Maybe SavedConstant -> f (Maybe SavedConstant))
-> SavedObject
-> f SavedObject
fieldOf _
= ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject -> f SavedObject)
-> ((Maybe SavedConstant -> f (Maybe SavedConstant))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> (Maybe SavedConstant -> f (Maybe SavedConstant))
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Maybe SavedObject'Kind)
-> (SavedObject -> Maybe SavedObject'Kind -> SavedObject)
-> Lens
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind (\ x__ :: SavedObject
x__ y__ :: Maybe SavedObject'Kind
y__ -> SavedObject
x__ {_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
y__}))
((Maybe SavedObject'Kind -> Maybe SavedConstant)
-> (Maybe SavedObject'Kind
-> Maybe SavedConstant -> Maybe SavedObject'Kind)
-> Lens
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
(Maybe SavedConstant)
(Maybe SavedConstant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe SavedObject'Kind
x__
-> case Maybe SavedObject'Kind
x__ of
(Prelude.Just (SavedObject'Constant x__val :: SavedConstant
x__val)) -> SavedConstant -> Maybe SavedConstant
forall a. a -> Maybe a
Prelude.Just SavedConstant
x__val
_otherwise :: Maybe SavedObject'Kind
_otherwise -> Maybe SavedConstant
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SavedConstant
y__ -> (SavedConstant -> SavedObject'Kind)
-> Maybe SavedConstant -> Maybe SavedObject'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SavedConstant -> SavedObject'Kind
SavedObject'Constant Maybe SavedConstant
y__))
instance Data.ProtoLens.Field.HasField SavedObject "constant" SavedConstant where
fieldOf :: Proxy# "constant"
-> (SavedConstant -> f SavedConstant)
-> SavedObject
-> f SavedObject
fieldOf _
= ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject -> f SavedObject)
-> ((SavedConstant -> f SavedConstant)
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> (SavedConstant -> f SavedConstant)
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Maybe SavedObject'Kind)
-> (SavedObject -> Maybe SavedObject'Kind -> SavedObject)
-> Lens
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind (\ x__ :: SavedObject
x__ y__ :: Maybe SavedObject'Kind
y__ -> SavedObject
x__ {_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
y__}))
(((Maybe SavedConstant -> f (Maybe SavedConstant))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> ((SavedConstant -> f SavedConstant)
-> Maybe SavedConstant -> f (Maybe SavedConstant))
-> (SavedConstant -> f SavedConstant)
-> Maybe SavedObject'Kind
-> f (Maybe SavedObject'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe SavedObject'Kind -> Maybe SavedConstant)
-> (Maybe SavedObject'Kind
-> Maybe SavedConstant -> Maybe SavedObject'Kind)
-> Lens
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
(Maybe SavedConstant)
(Maybe SavedConstant)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe SavedObject'Kind
x__
-> case Maybe SavedObject'Kind
x__ of
(Prelude.Just (SavedObject'Constant x__val :: SavedConstant
x__val)) -> SavedConstant -> Maybe SavedConstant
forall a. a -> Maybe a
Prelude.Just SavedConstant
x__val
_otherwise :: Maybe SavedObject'Kind
_otherwise -> Maybe SavedConstant
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SavedConstant
y__ -> (SavedConstant -> SavedObject'Kind)
-> Maybe SavedConstant -> Maybe SavedObject'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SavedConstant -> SavedObject'Kind
SavedObject'Constant Maybe SavedConstant
y__))
(SavedConstant -> Lens' (Maybe SavedConstant) SavedConstant
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SavedConstant
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField SavedObject "maybe'resource" (Prelude.Maybe SavedResource) where
fieldOf :: Proxy# "maybe'resource"
-> (Maybe SavedResource -> f (Maybe SavedResource))
-> SavedObject
-> f SavedObject
fieldOf _
= ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject -> f SavedObject)
-> ((Maybe SavedResource -> f (Maybe SavedResource))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> (Maybe SavedResource -> f (Maybe SavedResource))
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Maybe SavedObject'Kind)
-> (SavedObject -> Maybe SavedObject'Kind -> SavedObject)
-> Lens
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind (\ x__ :: SavedObject
x__ y__ :: Maybe SavedObject'Kind
y__ -> SavedObject
x__ {_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
y__}))
((Maybe SavedObject'Kind -> Maybe SavedResource)
-> (Maybe SavedObject'Kind
-> Maybe SavedResource -> Maybe SavedObject'Kind)
-> Lens
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
(Maybe SavedResource)
(Maybe SavedResource)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe SavedObject'Kind
x__
-> case Maybe SavedObject'Kind
x__ of
(Prelude.Just (SavedObject'Resource x__val :: SavedResource
x__val)) -> SavedResource -> Maybe SavedResource
forall a. a -> Maybe a
Prelude.Just SavedResource
x__val
_otherwise :: Maybe SavedObject'Kind
_otherwise -> Maybe SavedResource
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SavedResource
y__ -> (SavedResource -> SavedObject'Kind)
-> Maybe SavedResource -> Maybe SavedObject'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SavedResource -> SavedObject'Kind
SavedObject'Resource Maybe SavedResource
y__))
instance Data.ProtoLens.Field.HasField SavedObject "resource" SavedResource where
fieldOf :: Proxy# "resource"
-> (SavedResource -> f SavedResource)
-> SavedObject
-> f SavedObject
fieldOf _
= ((Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> SavedObject -> f SavedObject)
-> ((SavedResource -> f SavedResource)
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> (SavedResource -> f SavedResource)
-> SavedObject
-> f SavedObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject -> Maybe SavedObject'Kind)
-> (SavedObject -> Maybe SavedObject'Kind -> SavedObject)
-> Lens
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind (\ x__ :: SavedObject
x__ y__ :: Maybe SavedObject'Kind
y__ -> SavedObject
x__ {_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
y__}))
(((Maybe SavedResource -> f (Maybe SavedResource))
-> Maybe SavedObject'Kind -> f (Maybe SavedObject'Kind))
-> ((SavedResource -> f SavedResource)
-> Maybe SavedResource -> f (Maybe SavedResource))
-> (SavedResource -> f SavedResource)
-> Maybe SavedObject'Kind
-> f (Maybe SavedObject'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe SavedObject'Kind -> Maybe SavedResource)
-> (Maybe SavedObject'Kind
-> Maybe SavedResource -> Maybe SavedObject'Kind)
-> Lens
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
(Maybe SavedResource)
(Maybe SavedResource)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe SavedObject'Kind
x__
-> case Maybe SavedObject'Kind
x__ of
(Prelude.Just (SavedObject'Resource x__val :: SavedResource
x__val)) -> SavedResource -> Maybe SavedResource
forall a. a -> Maybe a
Prelude.Just SavedResource
x__val
_otherwise :: Maybe SavedObject'Kind
_otherwise -> Maybe SavedResource
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe SavedResource
y__ -> (SavedResource -> SavedObject'Kind)
-> Maybe SavedResource -> Maybe SavedObject'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap SavedResource -> SavedObject'Kind
SavedObject'Resource Maybe SavedResource
y__))
(SavedResource -> Lens' (Maybe SavedResource) SavedResource
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SavedResource
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message SavedObject where
messageName :: Proxy SavedObject -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.SavedObject"
packedMessageDescriptor :: Proxy SavedObject -> ByteString
packedMessageDescriptor _
= "\n\
\\vSavedObject\DC2\\\n\
\\bchildren\CAN\SOH \ETX(\v2@.tensorflow.TrackableObjectGraph.TrackableObject.ObjectReferenceR\bchildren\DC2m\n\
\\SOslot_variables\CAN\ETX \ETX(\v2F.tensorflow.TrackableObjectGraph.TrackableObject.SlotVariableReferenceR\rslotVariables\DC2>\n\
\\vuser_object\CAN\EOT \SOH(\v2\ESC.tensorflow.SavedUserObjectH\NULR\n\
\userObject\DC2.\n\
\\ENQasset\CAN\ENQ \SOH(\v2\SYN.tensorflow.SavedAssetH\NULR\ENQasset\DC27\n\
\\bfunction\CAN\ACK \SOH(\v2\EM.tensorflow.SavedFunctionH\NULR\bfunction\DC27\n\
\\bvariable\CAN\a \SOH(\v2\EM.tensorflow.SavedVariableH\NULR\bvariable\DC2]\n\
\\SYNbare_concrete_function\CAN\b \SOH(\v2%.tensorflow.SavedBareConcreteFunctionH\NULR\DC4bareConcreteFunction\DC27\n\
\\bconstant\CAN\t \SOH(\v2\EM.tensorflow.SavedConstantH\NULR\bconstant\DC27\n\
\\bresource\CAN\n\
\ \SOH(\v2\EM.tensorflow.SavedResourceH\NULR\bresource\DC2W\n\
\\DLEsaveable_objects\CAN\v \ETX(\v2,.tensorflow.SavedObject.SaveableObjectsEntryR\SIsaveableObjects\SUB^\n\
\\DC4SaveableObjectsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC20\n\
\\ENQvalue\CAN\STX \SOH(\v2\SUB.tensorflow.SaveableObjectR\ENQvalue:\STX8\SOHB\ACK\n\
\\EOTkindJ\EOT\b\STX\DLE\ETXR\n\
\attributes"
packedFileDescriptor :: Proxy SavedObject -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SavedObject)
fieldsByTag
= let
children__field_descriptor :: FieldDescriptor SavedObject
children__field_descriptor
= String
-> FieldTypeDescriptor
TrackableObjectGraph'TrackableObject'ObjectReference
-> FieldAccessor
SavedObject TrackableObjectGraph'TrackableObject'ObjectReference
-> FieldDescriptor SavedObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"children"
(MessageOrGroup
-> FieldTypeDescriptor
TrackableObjectGraph'TrackableObject'ObjectReference
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Protobuf.TrackableObjectGraph.TrackableObjectGraph'TrackableObject'ObjectReference)
(Packing
-> Lens'
SavedObject [TrackableObjectGraph'TrackableObject'ObjectReference]
-> FieldAccessor
SavedObject TrackableObjectGraph'TrackableObject'ObjectReference
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "children" 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 @"children")) ::
Data.ProtoLens.FieldDescriptor SavedObject
slotVariables__field_descriptor :: FieldDescriptor SavedObject
slotVariables__field_descriptor
= String
-> FieldTypeDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> FieldAccessor
SavedObject
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> FieldDescriptor SavedObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"slot_variables"
(MessageOrGroup
-> FieldTypeDescriptor
TrackableObjectGraph'TrackableObject'SlotVariableReference
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Protobuf.TrackableObjectGraph.TrackableObjectGraph'TrackableObject'SlotVariableReference)
(Packing
-> Lens'
SavedObject
[TrackableObjectGraph'TrackableObject'SlotVariableReference]
-> FieldAccessor
SavedObject
TrackableObjectGraph'TrackableObject'SlotVariableReference
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "slotVariables" 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 @"slotVariables")) ::
Data.ProtoLens.FieldDescriptor SavedObject
saveableObjects__field_descriptor :: FieldDescriptor SavedObject
saveableObjects__field_descriptor
= String
-> FieldTypeDescriptor SavedObject'SaveableObjectsEntry
-> FieldAccessor SavedObject SavedObject'SaveableObjectsEntry
-> FieldDescriptor SavedObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"saveable_objects"
(MessageOrGroup
-> FieldTypeDescriptor SavedObject'SaveableObjectsEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SavedObject'SaveableObjectsEntry)
(Lens' SavedObject'SaveableObjectsEntry Text
-> Lens' SavedObject'SaveableObjectsEntry SaveableObject
-> Lens
SavedObject
SavedObject
(Map Text SaveableObject)
(Map Text SaveableObject)
-> FieldAccessor SavedObject SavedObject'SaveableObjectsEntry
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 "saveableObjects" 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 @"saveableObjects")) ::
Data.ProtoLens.FieldDescriptor SavedObject
userObject__field_descriptor :: FieldDescriptor SavedObject
userObject__field_descriptor
= String
-> FieldTypeDescriptor SavedUserObject
-> FieldAccessor SavedObject SavedUserObject
-> FieldDescriptor SavedObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"user_object"
(MessageOrGroup -> FieldTypeDescriptor SavedUserObject
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SavedUserObject)
(Lens' SavedObject (Maybe SavedUserObject)
-> FieldAccessor SavedObject SavedUserObject
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'userObject" 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'userObject")) ::
Data.ProtoLens.FieldDescriptor SavedObject
asset__field_descriptor :: FieldDescriptor SavedObject
asset__field_descriptor
= String
-> FieldTypeDescriptor SavedAsset
-> FieldAccessor SavedObject SavedAsset
-> FieldDescriptor SavedObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"asset"
(MessageOrGroup -> FieldTypeDescriptor SavedAsset
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SavedAsset)
(Lens' SavedObject (Maybe SavedAsset)
-> FieldAccessor SavedObject SavedAsset
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'asset" 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'asset")) ::
Data.ProtoLens.FieldDescriptor SavedObject
function__field_descriptor :: FieldDescriptor SavedObject
function__field_descriptor
= String
-> FieldTypeDescriptor SavedFunction
-> FieldAccessor SavedObject SavedFunction
-> FieldDescriptor SavedObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"function"
(MessageOrGroup -> FieldTypeDescriptor SavedFunction
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SavedFunction)
(Lens' SavedObject (Maybe SavedFunction)
-> FieldAccessor SavedObject SavedFunction
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'function" 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'function")) ::
Data.ProtoLens.FieldDescriptor SavedObject
variable__field_descriptor :: FieldDescriptor SavedObject
variable__field_descriptor
= String
-> FieldTypeDescriptor SavedVariable
-> FieldAccessor SavedObject SavedVariable
-> FieldDescriptor SavedObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"variable"
(MessageOrGroup -> FieldTypeDescriptor SavedVariable
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SavedVariable)
(Lens' SavedObject (Maybe SavedVariable)
-> FieldAccessor SavedObject SavedVariable
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'variable" 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'variable")) ::
Data.ProtoLens.FieldDescriptor SavedObject
bareConcreteFunction__field_descriptor :: FieldDescriptor SavedObject
bareConcreteFunction__field_descriptor
= String
-> FieldTypeDescriptor SavedBareConcreteFunction
-> FieldAccessor SavedObject SavedBareConcreteFunction
-> FieldDescriptor SavedObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"bare_concrete_function"
(MessageOrGroup -> FieldTypeDescriptor SavedBareConcreteFunction
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SavedBareConcreteFunction)
(Lens' SavedObject (Maybe SavedBareConcreteFunction)
-> FieldAccessor SavedObject SavedBareConcreteFunction
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'bareConcreteFunction" 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'bareConcreteFunction")) ::
Data.ProtoLens.FieldDescriptor SavedObject
constant__field_descriptor :: FieldDescriptor SavedObject
constant__field_descriptor
= String
-> FieldTypeDescriptor SavedConstant
-> FieldAccessor SavedObject SavedConstant
-> FieldDescriptor SavedObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"constant"
(MessageOrGroup -> FieldTypeDescriptor SavedConstant
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SavedConstant)
(Lens' SavedObject (Maybe SavedConstant)
-> FieldAccessor SavedObject SavedConstant
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'constant" 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'constant")) ::
Data.ProtoLens.FieldDescriptor SavedObject
resource__field_descriptor :: FieldDescriptor SavedObject
resource__field_descriptor
= String
-> FieldTypeDescriptor SavedResource
-> FieldAccessor SavedObject SavedResource
-> FieldDescriptor SavedObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"resource"
(MessageOrGroup -> FieldTypeDescriptor SavedResource
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SavedResource)
(Lens' SavedObject (Maybe SavedResource)
-> FieldAccessor SavedObject SavedResource
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'resource" 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'resource")) ::
Data.ProtoLens.FieldDescriptor SavedObject
in
[(Tag, FieldDescriptor SavedObject)]
-> Map Tag (FieldDescriptor SavedObject)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SavedObject
children__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor SavedObject
slotVariables__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 11, FieldDescriptor SavedObject
saveableObjects__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor SavedObject
userObject__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor SavedObject
asset__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor SavedObject
function__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor SavedObject
variable__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor SavedObject
bareConcreteFunction__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor SavedObject
constant__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 10, FieldDescriptor SavedObject
resource__field_descriptor)]
unknownFields :: LensLike' f SavedObject FieldSet
unknownFields
= (SavedObject -> FieldSet)
-> (SavedObject -> FieldSet -> SavedObject)
-> Lens' SavedObject FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject -> FieldSet
_SavedObject'_unknownFields
(\ x__ :: SavedObject
x__ y__ :: FieldSet
y__ -> SavedObject
x__ {_SavedObject'_unknownFields :: FieldSet
_SavedObject'_unknownFields = FieldSet
y__})
defMessage :: SavedObject
defMessage
= $WSavedObject'_constructor :: Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Map Text SaveableObject
-> Maybe SavedObject'Kind
-> FieldSet
-> SavedObject
SavedObject'_constructor
{_SavedObject'children :: Vector TrackableObjectGraph'TrackableObject'ObjectReference
_SavedObject'children = Vector TrackableObjectGraph'TrackableObject'ObjectReference
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_SavedObject'slotVariables :: Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
_SavedObject'slotVariables = Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_SavedObject'saveableObjects :: Map Text SaveableObject
_SavedObject'saveableObjects = Map Text SaveableObject
forall k a. Map k a
Data.Map.empty,
_SavedObject'kind :: Maybe SavedObject'Kind
_SavedObject'kind = Maybe SavedObject'Kind
forall a. Maybe a
Prelude.Nothing,
_SavedObject'_unknownFields :: FieldSet
_SavedObject'_unknownFields = []}
parseMessage :: Parser SavedObject
parseMessage
= let
loop ::
SavedObject
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Tensorflow.Core.Protobuf.TrackableObjectGraph.TrackableObjectGraph'TrackableObject'ObjectReference
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Tensorflow.Core.Protobuf.TrackableObjectGraph.TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Data.ProtoLens.Encoding.Bytes.Parser SavedObject
loop :: SavedObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser SavedObject
loop x :: SavedObject
x mutable'children :: Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children mutable'slotVariables :: Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector TrackableObjectGraph'TrackableObject'ObjectReference
frozen'children <- IO (Vector TrackableObjectGraph'TrackableObject'ObjectReference)
-> Parser
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'ObjectReference
-> IO (Vector TrackableObjectGraph'TrackableObject'ObjectReference)
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
TrackableObjectGraph'TrackableObject'ObjectReference
Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children)
Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
frozen'slotVariables <- IO
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> Parser
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> IO
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
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
TrackableObjectGraph'TrackableObject'SlotVariableReference
Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables)
(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]))))
SavedObject -> Parser SavedObject
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SavedObject SavedObject FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedObject -> SavedObject
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 SavedObject SavedObject FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
SavedObject
SavedObject
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> SavedObject
-> SavedObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'children" 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'children")
Vector TrackableObjectGraph'TrackableObject'ObjectReference
frozen'children
(Setter
SavedObject
SavedObject
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> SavedObject
-> SavedObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'slotVariables" 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'slotVariables")
Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
frozen'slotVariables
SavedObject
x)))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do !TrackableObjectGraph'TrackableObject'ObjectReference
y <- Parser TrackableObjectGraph'TrackableObject'ObjectReference
-> String
-> Parser TrackableObjectGraph'TrackableObject'ObjectReference
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser TrackableObjectGraph'TrackableObject'ObjectReference
-> Parser TrackableObjectGraph'TrackableObject'ObjectReference
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 TrackableObjectGraph'TrackableObject'ObjectReference
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"children"
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
v <- IO
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference)
-> Parser
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'ObjectReference
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> IO
(Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'ObjectReference)
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
TrackableObjectGraph'TrackableObject'ObjectReference
Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children TrackableObjectGraph'TrackableObject'ObjectReference
y)
SavedObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser SavedObject
loop SavedObject
x Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
v Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables
26
-> do !TrackableObjectGraph'TrackableObject'SlotVariableReference
y <- Parser TrackableObjectGraph'TrackableObject'SlotVariableReference
-> String
-> Parser
TrackableObjectGraph'TrackableObject'SlotVariableReference
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser
TrackableObjectGraph'TrackableObject'SlotVariableReference
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 TrackableObjectGraph'TrackableObject'SlotVariableReference
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"slot_variables"
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
v <- IO
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> Parser
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> IO
(Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'SlotVariableReference)
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
TrackableObjectGraph'TrackableObject'SlotVariableReference
Growing
Vector
(PrimState IO)
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables TrackableObjectGraph'TrackableObject'SlotVariableReference
y)
SavedObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser SavedObject
loop SavedObject
x Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
v
90
-> do !(SavedObject'SaveableObjectsEntry
entry :: SavedObject'SaveableObjectsEntry) <- Parser SavedObject'SaveableObjectsEntry
-> String -> Parser SavedObject'SaveableObjectsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser SavedObject'SaveableObjectsEntry
-> Parser SavedObject'SaveableObjectsEntry
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 SavedObject'SaveableObjectsEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"saveable_objects"
(let
key :: Text
key = FoldLike
Text
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
Text
Text
-> SavedObject'SaveableObjectsEntry -> Text
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") SavedObject'SaveableObjectsEntry
entry
value :: SaveableObject
value
= FoldLike
SaveableObject
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
SaveableObject
SaveableObject
-> SavedObject'SaveableObjectsEntry -> SaveableObject
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") SavedObject'SaveableObjectsEntry
entry
in
SavedObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser SavedObject
loop
(Setter
SavedObject
SavedObject
(Map Text SaveableObject)
(Map Text SaveableObject)
-> (Map Text SaveableObject -> Map Text SaveableObject)
-> SavedObject
-> SavedObject
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
(forall s a (f :: * -> *).
(HasField s "saveableObjects" 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 @"saveableObjects")
(\ !Map Text SaveableObject
t -> Text
-> SaveableObject
-> Map Text SaveableObject
-> Map Text SaveableObject
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key SaveableObject
value Map Text SaveableObject
t)
SavedObject
x)
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables)
34
-> do SavedUserObject
y <- Parser SavedUserObject -> String -> Parser SavedUserObject
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SavedUserObject -> Parser SavedUserObject
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 SavedUserObject
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"user_object"
SavedObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser SavedObject
loop
(Setter SavedObject SavedObject SavedUserObject SavedUserObject
-> SavedUserObject -> SavedObject -> SavedObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "userObject" 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 @"userObject") SavedUserObject
y SavedObject
x)
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables
42
-> do SavedAsset
y <- Parser SavedAsset -> String -> Parser SavedAsset
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SavedAsset -> Parser SavedAsset
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 SavedAsset
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"asset"
SavedObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser SavedObject
loop
(Setter SavedObject SavedObject SavedAsset SavedAsset
-> SavedAsset -> SavedObject -> SavedObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "asset" 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 @"asset") SavedAsset
y SavedObject
x)
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables
50
-> do SavedFunction
y <- Parser SavedFunction -> String -> Parser SavedFunction
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SavedFunction -> Parser SavedFunction
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 SavedFunction
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"function"
SavedObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser SavedObject
loop
(Setter SavedObject SavedObject SavedFunction SavedFunction
-> SavedFunction -> SavedObject -> SavedObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "function" 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 @"function") SavedFunction
y SavedObject
x)
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables
58
-> do SavedVariable
y <- Parser SavedVariable -> String -> Parser SavedVariable
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SavedVariable -> Parser SavedVariable
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 SavedVariable
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"variable"
SavedObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser SavedObject
loop
(Setter SavedObject SavedObject SavedVariable SavedVariable
-> SavedVariable -> SavedObject -> SavedObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "variable" 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 @"variable") SavedVariable
y SavedObject
x)
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables
66
-> do SavedBareConcreteFunction
y <- Parser SavedBareConcreteFunction
-> String -> Parser SavedBareConcreteFunction
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser SavedBareConcreteFunction
-> Parser SavedBareConcreteFunction
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 SavedBareConcreteFunction
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"bare_concrete_function"
SavedObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser SavedObject
loop
(Setter
SavedObject
SavedObject
SavedBareConcreteFunction
SavedBareConcreteFunction
-> SavedBareConcreteFunction -> SavedObject -> SavedObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "bareConcreteFunction" 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 @"bareConcreteFunction") SavedBareConcreteFunction
y SavedObject
x)
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables
74
-> do SavedConstant
y <- Parser SavedConstant -> String -> Parser SavedConstant
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SavedConstant -> Parser SavedConstant
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 SavedConstant
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"constant"
SavedObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser SavedObject
loop
(Setter SavedObject SavedObject SavedConstant SavedConstant
-> SavedConstant -> SavedObject -> SavedObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "constant" 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 @"constant") SavedConstant
y SavedObject
x)
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables
82
-> do SavedResource
y <- Parser SavedResource -> String -> Parser SavedResource
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SavedResource -> Parser SavedResource
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 SavedResource
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"resource"
SavedObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser SavedObject
loop
(Setter SavedObject SavedObject SavedResource SavedResource
-> SavedResource -> SavedObject -> SavedObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "resource" 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 @"resource") SavedResource
y SavedObject
x)
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SavedObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser SavedObject
loop
(Setter SavedObject SavedObject FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedObject -> SavedObject
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 SavedObject SavedObject FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SavedObject
x)
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables
in
Parser SavedObject -> String -> Parser SavedObject
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children <- IO
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference)
-> Parser
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables <- IO
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> Parser
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO
(Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
SavedObject
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
-> Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Parser SavedObject
loop
SavedObject
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'ObjectReference
mutable'children Growing
Vector
RealWorld
TrackableObjectGraph'TrackableObject'SlotVariableReference
mutable'slotVariables)
"SavedObject"
buildMessage :: SavedObject -> Builder
buildMessage
= \ _x :: SavedObject
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((TrackableObjectGraph'TrackableObject'ObjectReference -> Builder)
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: TrackableObjectGraph'TrackableObject'ObjectReference
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (TrackableObjectGraph'TrackableObject'ObjectReference
-> ByteString)
-> TrackableObjectGraph'TrackableObject'ObjectReference
-> 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))
TrackableObjectGraph'TrackableObject'ObjectReference -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TrackableObjectGraph'TrackableObject'ObjectReference
_v))
(FoldLike
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
SavedObject
SavedObject
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
(Vector TrackableObjectGraph'TrackableObject'ObjectReference)
-> SavedObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'children" 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'children") SavedObject
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Builder)
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: TrackableObjectGraph'TrackableObject'SlotVariableReference
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder)
-> (TrackableObjectGraph'TrackableObject'SlotVariableReference
-> ByteString)
-> TrackableObjectGraph'TrackableObject'SlotVariableReference
-> 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))
TrackableObjectGraph'TrackableObject'SlotVariableReference
-> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TrackableObjectGraph'TrackableObject'SlotVariableReference
_v))
(FoldLike
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
SavedObject
SavedObject
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference)
-> SavedObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'slotVariables" 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'slotVariables") SavedObject
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
(((Text, SaveableObject) -> Builder)
-> [(Text, SaveableObject)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ _v :: (Text, SaveableObject)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 90)
((ByteString -> Builder)
-> (SavedObject'SaveableObjectsEntry -> ByteString)
-> SavedObject'SaveableObjectsEntry
-> 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))
SavedObject'SaveableObjectsEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
Text
Text
-> Text
-> SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
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")
((Text, SaveableObject) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, SaveableObject)
_v)
(Setter
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
SaveableObject
SaveableObject
-> SaveableObject
-> SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
((Text, SaveableObject) -> SaveableObject
forall a b. (a, b) -> b
Prelude.snd (Text, SaveableObject)
_v)
(SavedObject'SaveableObjectsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
SavedObject'SaveableObjectsEntry)))))
(Map Text SaveableObject -> [(Text, SaveableObject)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text SaveableObject)
SavedObject
SavedObject
(Map Text SaveableObject)
(Map Text SaveableObject)
-> SavedObject -> Map Text SaveableObject
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "saveableObjects" 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 @"saveableObjects") SavedObject
_x))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe SavedObject'Kind)
SavedObject
SavedObject
(Maybe SavedObject'Kind)
(Maybe SavedObject'Kind)
-> SavedObject -> Maybe SavedObject'Kind
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'kind" 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'kind") SavedObject
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (SavedObject'UserObject v :: SavedUserObject
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((ByteString -> Builder)
-> (SavedUserObject -> ByteString) -> SavedUserObject -> 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))
SavedUserObject -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SavedUserObject
v)
(Prelude.Just (SavedObject'Asset v :: SavedAsset
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((ByteString -> Builder)
-> (SavedAsset -> ByteString) -> SavedAsset -> 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))
SavedAsset -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SavedAsset
v)
(Prelude.Just (SavedObject'Function v :: SavedFunction
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((ByteString -> Builder)
-> (SavedFunction -> ByteString) -> SavedFunction -> 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))
SavedFunction -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SavedFunction
v)
(Prelude.Just (SavedObject'Variable v :: SavedVariable
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
((ByteString -> Builder)
-> (SavedVariable -> ByteString) -> SavedVariable -> 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))
SavedVariable -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SavedVariable
v)
(Prelude.Just (SavedObject'BareConcreteFunction v :: SavedBareConcreteFunction
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 66)
((ByteString -> Builder)
-> (SavedBareConcreteFunction -> ByteString)
-> SavedBareConcreteFunction
-> 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))
SavedBareConcreteFunction -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SavedBareConcreteFunction
v)
(Prelude.Just (SavedObject'Constant v :: SavedConstant
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 74)
((ByteString -> Builder)
-> (SavedConstant -> ByteString) -> SavedConstant -> 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))
SavedConstant -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SavedConstant
v)
(Prelude.Just (SavedObject'Resource v :: SavedResource
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 82)
((ByteString -> Builder)
-> (SavedResource -> ByteString) -> SavedResource -> 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))
SavedResource -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SavedResource
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet SavedObject SavedObject FieldSet FieldSet
-> SavedObject -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SavedObject SavedObject FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SavedObject
_x)))))
instance Control.DeepSeq.NFData SavedObject where
rnf :: SavedObject -> ()
rnf
= \ x__ :: SavedObject
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedObject -> FieldSet
_SavedObject'_unknownFields SavedObject
x__)
(Vector TrackableObjectGraph'TrackableObject'ObjectReference
-> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedObject
-> Vector TrackableObjectGraph'TrackableObject'ObjectReference
_SavedObject'children SavedObject
x__)
(Vector TrackableObjectGraph'TrackableObject'SlotVariableReference
-> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedObject
-> Vector
TrackableObjectGraph'TrackableObject'SlotVariableReference
_SavedObject'slotVariables SavedObject
x__)
(Map Text SaveableObject -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedObject -> Map Text SaveableObject
_SavedObject'saveableObjects SavedObject
x__)
(Maybe SavedObject'Kind -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SavedObject -> Maybe SavedObject'Kind
_SavedObject'kind SavedObject
x__) ()))))
instance Control.DeepSeq.NFData SavedObject'Kind where
rnf :: SavedObject'Kind -> ()
rnf (SavedObject'UserObject x__ :: SavedUserObject
x__) = SavedUserObject -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf SavedUserObject
x__
rnf (SavedObject'Asset x__ :: SavedAsset
x__) = SavedAsset -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf SavedAsset
x__
rnf (SavedObject'Function x__ :: SavedFunction
x__) = SavedFunction -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf SavedFunction
x__
rnf (SavedObject'Variable x__ :: SavedVariable
x__) = SavedVariable -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf SavedVariable
x__
rnf (SavedObject'BareConcreteFunction x__ :: SavedBareConcreteFunction
x__)
= SavedBareConcreteFunction -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf SavedBareConcreteFunction
x__
rnf (SavedObject'Constant x__ :: SavedConstant
x__) = SavedConstant -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf SavedConstant
x__
rnf (SavedObject'Resource x__ :: SavedResource
x__) = SavedResource -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf SavedResource
x__
_SavedObject'UserObject ::
Data.ProtoLens.Prism.Prism' SavedObject'Kind SavedUserObject
_SavedObject'UserObject :: p SavedUserObject (f SavedUserObject)
-> p SavedObject'Kind (f SavedObject'Kind)
_SavedObject'UserObject
= (SavedUserObject -> SavedObject'Kind)
-> (SavedObject'Kind -> Maybe SavedUserObject)
-> Prism
SavedObject'Kind SavedObject'Kind SavedUserObject SavedUserObject
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
SavedUserObject -> SavedObject'Kind
SavedObject'UserObject
(\ p__ :: SavedObject'Kind
p__
-> case SavedObject'Kind
p__ of
(SavedObject'UserObject p__val :: SavedUserObject
p__val) -> SavedUserObject -> Maybe SavedUserObject
forall a. a -> Maybe a
Prelude.Just SavedUserObject
p__val
_otherwise :: SavedObject'Kind
_otherwise -> Maybe SavedUserObject
forall a. Maybe a
Prelude.Nothing)
_SavedObject'Asset ::
Data.ProtoLens.Prism.Prism' SavedObject'Kind SavedAsset
_SavedObject'Asset :: p SavedAsset (f SavedAsset)
-> p SavedObject'Kind (f SavedObject'Kind)
_SavedObject'Asset
= (SavedAsset -> SavedObject'Kind)
-> (SavedObject'Kind -> Maybe SavedAsset)
-> Prism SavedObject'Kind SavedObject'Kind SavedAsset SavedAsset
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
SavedAsset -> SavedObject'Kind
SavedObject'Asset
(\ p__ :: SavedObject'Kind
p__
-> case SavedObject'Kind
p__ of
(SavedObject'Asset p__val :: SavedAsset
p__val) -> SavedAsset -> Maybe SavedAsset
forall a. a -> Maybe a
Prelude.Just SavedAsset
p__val
_otherwise :: SavedObject'Kind
_otherwise -> Maybe SavedAsset
forall a. Maybe a
Prelude.Nothing)
_SavedObject'Function ::
Data.ProtoLens.Prism.Prism' SavedObject'Kind SavedFunction
_SavedObject'Function :: p SavedFunction (f SavedFunction)
-> p SavedObject'Kind (f SavedObject'Kind)
_SavedObject'Function
= (SavedFunction -> SavedObject'Kind)
-> (SavedObject'Kind -> Maybe SavedFunction)
-> Prism
SavedObject'Kind SavedObject'Kind SavedFunction SavedFunction
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
SavedFunction -> SavedObject'Kind
SavedObject'Function
(\ p__ :: SavedObject'Kind
p__
-> case SavedObject'Kind
p__ of
(SavedObject'Function p__val :: SavedFunction
p__val) -> SavedFunction -> Maybe SavedFunction
forall a. a -> Maybe a
Prelude.Just SavedFunction
p__val
_otherwise :: SavedObject'Kind
_otherwise -> Maybe SavedFunction
forall a. Maybe a
Prelude.Nothing)
_SavedObject'Variable ::
Data.ProtoLens.Prism.Prism' SavedObject'Kind SavedVariable
_SavedObject'Variable :: p SavedVariable (f SavedVariable)
-> p SavedObject'Kind (f SavedObject'Kind)
_SavedObject'Variable
= (SavedVariable -> SavedObject'Kind)
-> (SavedObject'Kind -> Maybe SavedVariable)
-> Prism
SavedObject'Kind SavedObject'Kind SavedVariable SavedVariable
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
SavedVariable -> SavedObject'Kind
SavedObject'Variable
(\ p__ :: SavedObject'Kind
p__
-> case SavedObject'Kind
p__ of
(SavedObject'Variable p__val :: SavedVariable
p__val) -> SavedVariable -> Maybe SavedVariable
forall a. a -> Maybe a
Prelude.Just SavedVariable
p__val
_otherwise :: SavedObject'Kind
_otherwise -> Maybe SavedVariable
forall a. Maybe a
Prelude.Nothing)
_SavedObject'BareConcreteFunction ::
Data.ProtoLens.Prism.Prism' SavedObject'Kind SavedBareConcreteFunction
_SavedObject'BareConcreteFunction :: p SavedBareConcreteFunction (f SavedBareConcreteFunction)
-> p SavedObject'Kind (f SavedObject'Kind)
_SavedObject'BareConcreteFunction
= (SavedBareConcreteFunction -> SavedObject'Kind)
-> (SavedObject'Kind -> Maybe SavedBareConcreteFunction)
-> Prism
SavedObject'Kind
SavedObject'Kind
SavedBareConcreteFunction
SavedBareConcreteFunction
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
SavedBareConcreteFunction -> SavedObject'Kind
SavedObject'BareConcreteFunction
(\ p__ :: SavedObject'Kind
p__
-> case SavedObject'Kind
p__ of
(SavedObject'BareConcreteFunction p__val :: SavedBareConcreteFunction
p__val) -> SavedBareConcreteFunction -> Maybe SavedBareConcreteFunction
forall a. a -> Maybe a
Prelude.Just SavedBareConcreteFunction
p__val
_otherwise :: SavedObject'Kind
_otherwise -> Maybe SavedBareConcreteFunction
forall a. Maybe a
Prelude.Nothing)
_SavedObject'Constant ::
Data.ProtoLens.Prism.Prism' SavedObject'Kind SavedConstant
_SavedObject'Constant :: p SavedConstant (f SavedConstant)
-> p SavedObject'Kind (f SavedObject'Kind)
_SavedObject'Constant
= (SavedConstant -> SavedObject'Kind)
-> (SavedObject'Kind -> Maybe SavedConstant)
-> Prism
SavedObject'Kind SavedObject'Kind SavedConstant SavedConstant
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
SavedConstant -> SavedObject'Kind
SavedObject'Constant
(\ p__ :: SavedObject'Kind
p__
-> case SavedObject'Kind
p__ of
(SavedObject'Constant p__val :: SavedConstant
p__val) -> SavedConstant -> Maybe SavedConstant
forall a. a -> Maybe a
Prelude.Just SavedConstant
p__val
_otherwise :: SavedObject'Kind
_otherwise -> Maybe SavedConstant
forall a. Maybe a
Prelude.Nothing)
_SavedObject'Resource ::
Data.ProtoLens.Prism.Prism' SavedObject'Kind SavedResource
_SavedObject'Resource :: p SavedResource (f SavedResource)
-> p SavedObject'Kind (f SavedObject'Kind)
_SavedObject'Resource
= (SavedResource -> SavedObject'Kind)
-> (SavedObject'Kind -> Maybe SavedResource)
-> Prism
SavedObject'Kind SavedObject'Kind SavedResource SavedResource
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
SavedResource -> SavedObject'Kind
SavedObject'Resource
(\ p__ :: SavedObject'Kind
p__
-> case SavedObject'Kind
p__ of
(SavedObject'Resource p__val :: SavedResource
p__val) -> SavedResource -> Maybe SavedResource
forall a. a -> Maybe a
Prelude.Just SavedResource
p__val
_otherwise :: SavedObject'Kind
_otherwise -> Maybe SavedResource
forall a. Maybe a
Prelude.Nothing)
data SavedObject'SaveableObjectsEntry
= SavedObject'SaveableObjectsEntry'_constructor {SavedObject'SaveableObjectsEntry -> Text
_SavedObject'SaveableObjectsEntry'key :: !Data.Text.Text,
SavedObject'SaveableObjectsEntry -> Maybe SaveableObject
_SavedObject'SaveableObjectsEntry'value :: !(Prelude.Maybe SaveableObject),
SavedObject'SaveableObjectsEntry -> FieldSet
_SavedObject'SaveableObjectsEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool
(SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool)
-> (SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool)
-> Eq SavedObject'SaveableObjectsEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool
$c/= :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool
== :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool
$c== :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool
Prelude.Eq, Eq SavedObject'SaveableObjectsEntry
Eq SavedObject'SaveableObjectsEntry =>
(SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Ordering)
-> (SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool)
-> (SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool)
-> (SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool)
-> (SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool)
-> (SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry)
-> (SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry)
-> Ord SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool
SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Ordering
SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
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 :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
$cmin :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
max :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
$cmax :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
>= :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool
$c>= :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool
> :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool
$c> :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool
<= :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool
$c<= :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool
< :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool
$c< :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Bool
compare :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Ordering
$ccompare :: SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry -> Ordering
$cp1Ord :: Eq SavedObject'SaveableObjectsEntry
Prelude.Ord)
instance Prelude.Show SavedObject'SaveableObjectsEntry where
showsPrec :: Int -> SavedObject'SaveableObjectsEntry -> ShowS
showsPrec _ __x :: SavedObject'SaveableObjectsEntry
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SavedObject'SaveableObjectsEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SavedObject'SaveableObjectsEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SavedObject'SaveableObjectsEntry "key" Data.Text.Text where
fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> SavedObject'SaveableObjectsEntry
-> f SavedObject'SaveableObjectsEntry
fieldOf _
= ((Text -> f Text)
-> SavedObject'SaveableObjectsEntry
-> f SavedObject'SaveableObjectsEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SavedObject'SaveableObjectsEntry
-> f SavedObject'SaveableObjectsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject'SaveableObjectsEntry -> Text)
-> (SavedObject'SaveableObjectsEntry
-> Text -> SavedObject'SaveableObjectsEntry)
-> Lens' SavedObject'SaveableObjectsEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject'SaveableObjectsEntry -> Text
_SavedObject'SaveableObjectsEntry'key
(\ x__ :: SavedObject'SaveableObjectsEntry
x__ y__ :: Text
y__ -> SavedObject'SaveableObjectsEntry
x__ {_SavedObject'SaveableObjectsEntry'key :: Text
_SavedObject'SaveableObjectsEntry'key = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedObject'SaveableObjectsEntry "value" SaveableObject where
fieldOf :: Proxy# "value"
-> (SaveableObject -> f SaveableObject)
-> SavedObject'SaveableObjectsEntry
-> f SavedObject'SaveableObjectsEntry
fieldOf _
= ((Maybe SaveableObject -> f (Maybe SaveableObject))
-> SavedObject'SaveableObjectsEntry
-> f SavedObject'SaveableObjectsEntry)
-> ((SaveableObject -> f SaveableObject)
-> Maybe SaveableObject -> f (Maybe SaveableObject))
-> (SaveableObject -> f SaveableObject)
-> SavedObject'SaveableObjectsEntry
-> f SavedObject'SaveableObjectsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject'SaveableObjectsEntry -> Maybe SaveableObject)
-> (SavedObject'SaveableObjectsEntry
-> Maybe SaveableObject -> SavedObject'SaveableObjectsEntry)
-> Lens
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
(Maybe SaveableObject)
(Maybe SaveableObject)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject'SaveableObjectsEntry -> Maybe SaveableObject
_SavedObject'SaveableObjectsEntry'value
(\ x__ :: SavedObject'SaveableObjectsEntry
x__ y__ :: Maybe SaveableObject
y__ -> SavedObject'SaveableObjectsEntry
x__ {_SavedObject'SaveableObjectsEntry'value :: Maybe SaveableObject
_SavedObject'SaveableObjectsEntry'value = Maybe SaveableObject
y__}))
(SaveableObject -> Lens' (Maybe SaveableObject) SaveableObject
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SaveableObject
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SavedObject'SaveableObjectsEntry "maybe'value" (Prelude.Maybe SaveableObject) where
fieldOf :: Proxy# "maybe'value"
-> (Maybe SaveableObject -> f (Maybe SaveableObject))
-> SavedObject'SaveableObjectsEntry
-> f SavedObject'SaveableObjectsEntry
fieldOf _
= ((Maybe SaveableObject -> f (Maybe SaveableObject))
-> SavedObject'SaveableObjectsEntry
-> f SavedObject'SaveableObjectsEntry)
-> ((Maybe SaveableObject -> f (Maybe SaveableObject))
-> Maybe SaveableObject -> f (Maybe SaveableObject))
-> (Maybe SaveableObject -> f (Maybe SaveableObject))
-> SavedObject'SaveableObjectsEntry
-> f SavedObject'SaveableObjectsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObject'SaveableObjectsEntry -> Maybe SaveableObject)
-> (SavedObject'SaveableObjectsEntry
-> Maybe SaveableObject -> SavedObject'SaveableObjectsEntry)
-> Lens
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
(Maybe SaveableObject)
(Maybe SaveableObject)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject'SaveableObjectsEntry -> Maybe SaveableObject
_SavedObject'SaveableObjectsEntry'value
(\ x__ :: SavedObject'SaveableObjectsEntry
x__ y__ :: Maybe SaveableObject
y__ -> SavedObject'SaveableObjectsEntry
x__ {_SavedObject'SaveableObjectsEntry'value :: Maybe SaveableObject
_SavedObject'SaveableObjectsEntry'value = Maybe SaveableObject
y__}))
(Maybe SaveableObject -> f (Maybe SaveableObject))
-> Maybe SaveableObject -> f (Maybe SaveableObject)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SavedObject'SaveableObjectsEntry where
messageName :: Proxy SavedObject'SaveableObjectsEntry -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.SavedObject.SaveableObjectsEntry"
packedMessageDescriptor :: Proxy SavedObject'SaveableObjectsEntry -> ByteString
packedMessageDescriptor _
= "\n\
\\DC4SaveableObjectsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC20\n\
\\ENQvalue\CAN\STX \SOH(\v2\SUB.tensorflow.SaveableObjectR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy SavedObject'SaveableObjectsEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SavedObject'SaveableObjectsEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor SavedObject'SaveableObjectsEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SavedObject'SaveableObjectsEntry Text
-> FieldDescriptor SavedObject'SaveableObjectsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"key"
(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' SavedObject'SaveableObjectsEntry Text
-> FieldAccessor SavedObject'SaveableObjectsEntry 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 "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 SavedObject'SaveableObjectsEntry
value__field_descriptor :: FieldDescriptor SavedObject'SaveableObjectsEntry
value__field_descriptor
= String
-> FieldTypeDescriptor SaveableObject
-> FieldAccessor SavedObject'SaveableObjectsEntry SaveableObject
-> FieldDescriptor SavedObject'SaveableObjectsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(MessageOrGroup -> FieldTypeDescriptor SaveableObject
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SaveableObject)
(Lens
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
(Maybe SaveableObject)
(Maybe SaveableObject)
-> FieldAccessor SavedObject'SaveableObjectsEntry SaveableObject
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 SavedObject'SaveableObjectsEntry
in
[(Tag, FieldDescriptor SavedObject'SaveableObjectsEntry)]
-> Map Tag (FieldDescriptor SavedObject'SaveableObjectsEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SavedObject'SaveableObjectsEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SavedObject'SaveableObjectsEntry
value__field_descriptor)]
unknownFields :: LensLike' f SavedObject'SaveableObjectsEntry FieldSet
unknownFields
= (SavedObject'SaveableObjectsEntry -> FieldSet)
-> (SavedObject'SaveableObjectsEntry
-> FieldSet -> SavedObject'SaveableObjectsEntry)
-> Lens' SavedObject'SaveableObjectsEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObject'SaveableObjectsEntry -> FieldSet
_SavedObject'SaveableObjectsEntry'_unknownFields
(\ x__ :: SavedObject'SaveableObjectsEntry
x__ y__ :: FieldSet
y__
-> SavedObject'SaveableObjectsEntry
x__ {_SavedObject'SaveableObjectsEntry'_unknownFields :: FieldSet
_SavedObject'SaveableObjectsEntry'_unknownFields = FieldSet
y__})
defMessage :: SavedObject'SaveableObjectsEntry
defMessage
= $WSavedObject'SaveableObjectsEntry'_constructor :: Text
-> Maybe SaveableObject
-> FieldSet
-> SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry'_constructor
{_SavedObject'SaveableObjectsEntry'key :: Text
_SavedObject'SaveableObjectsEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SavedObject'SaveableObjectsEntry'value :: Maybe SaveableObject
_SavedObject'SaveableObjectsEntry'value = Maybe SaveableObject
forall a. Maybe a
Prelude.Nothing,
_SavedObject'SaveableObjectsEntry'_unknownFields :: FieldSet
_SavedObject'SaveableObjectsEntry'_unknownFields = []}
parseMessage :: Parser SavedObject'SaveableObjectsEntry
parseMessage
= let
loop ::
SavedObject'SaveableObjectsEntry
-> Data.ProtoLens.Encoding.Bytes.Parser SavedObject'SaveableObjectsEntry
loop :: SavedObject'SaveableObjectsEntry
-> Parser SavedObject'SaveableObjectsEntry
loop x :: SavedObject'SaveableObjectsEntry
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]))))
SavedObject'SaveableObjectsEntry
-> Parser SavedObject'SaveableObjectsEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
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
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SavedObject'SaveableObjectsEntry
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))
"key"
SavedObject'SaveableObjectsEntry
-> Parser SavedObject'SaveableObjectsEntry
loop (Setter
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
Text
Text
-> Text
-> SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
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") Text
y SavedObject'SaveableObjectsEntry
x)
18
-> do SaveableObject
y <- Parser SaveableObject -> String -> Parser SaveableObject
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SaveableObject -> Parser SaveableObject
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 SaveableObject
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"value"
SavedObject'SaveableObjectsEntry
-> Parser SavedObject'SaveableObjectsEntry
loop (Setter
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
SaveableObject
SaveableObject
-> SaveableObject
-> SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
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") SaveableObject
y SavedObject'SaveableObjectsEntry
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SavedObject'SaveableObjectsEntry
-> Parser SavedObject'SaveableObjectsEntry
loop
(Setter
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> SavedObject'SaveableObjectsEntry
-> SavedObject'SaveableObjectsEntry
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
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SavedObject'SaveableObjectsEntry
x)
in
Parser SavedObject'SaveableObjectsEntry
-> String -> Parser SavedObject'SaveableObjectsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SavedObject'SaveableObjectsEntry
-> Parser SavedObject'SaveableObjectsEntry
loop SavedObject'SaveableObjectsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "SaveableObjectsEntry"
buildMessage :: SavedObject'SaveableObjectsEntry -> Builder
buildMessage
= \ _x :: SavedObject'SaveableObjectsEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
Text
Text
-> SavedObject'SaveableObjectsEntry -> Text
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") SavedObject'SaveableObjectsEntry
_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.<>)
(case
FoldLike
(Maybe SaveableObject)
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
(Maybe SaveableObject)
(Maybe SaveableObject)
-> SavedObject'SaveableObjectsEntry -> Maybe SaveableObject
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") SavedObject'SaveableObjectsEntry
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: SaveableObject
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (SaveableObject -> ByteString) -> SaveableObject -> 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))
SaveableObject -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SaveableObject
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
FieldSet
FieldSet
-> SavedObject'SaveableObjectsEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
SavedObject'SaveableObjectsEntry
SavedObject'SaveableObjectsEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SavedObject'SaveableObjectsEntry
_x)))
instance Control.DeepSeq.NFData SavedObject'SaveableObjectsEntry where
rnf :: SavedObject'SaveableObjectsEntry -> ()
rnf
= \ x__ :: SavedObject'SaveableObjectsEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedObject'SaveableObjectsEntry -> FieldSet
_SavedObject'SaveableObjectsEntry'_unknownFields SavedObject'SaveableObjectsEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedObject'SaveableObjectsEntry -> Text
_SavedObject'SaveableObjectsEntry'key SavedObject'SaveableObjectsEntry
x__)
(Maybe SaveableObject -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedObject'SaveableObjectsEntry -> Maybe SaveableObject
_SavedObject'SaveableObjectsEntry'value SavedObject'SaveableObjectsEntry
x__) ()))
data SavedObjectGraph
= SavedObjectGraph'_constructor {SavedObjectGraph -> Vector SavedObject
_SavedObjectGraph'nodes :: !(Data.Vector.Vector SavedObject),
SavedObjectGraph -> Map Text SavedConcreteFunction
_SavedObjectGraph'concreteFunctions :: !(Data.Map.Map Data.Text.Text SavedConcreteFunction),
SavedObjectGraph -> FieldSet
_SavedObjectGraph'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SavedObjectGraph -> SavedObjectGraph -> Bool
(SavedObjectGraph -> SavedObjectGraph -> Bool)
-> (SavedObjectGraph -> SavedObjectGraph -> Bool)
-> Eq SavedObjectGraph
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SavedObjectGraph -> SavedObjectGraph -> Bool
$c/= :: SavedObjectGraph -> SavedObjectGraph -> Bool
== :: SavedObjectGraph -> SavedObjectGraph -> Bool
$c== :: SavedObjectGraph -> SavedObjectGraph -> Bool
Prelude.Eq, Eq SavedObjectGraph
Eq SavedObjectGraph =>
(SavedObjectGraph -> SavedObjectGraph -> Ordering)
-> (SavedObjectGraph -> SavedObjectGraph -> Bool)
-> (SavedObjectGraph -> SavedObjectGraph -> Bool)
-> (SavedObjectGraph -> SavedObjectGraph -> Bool)
-> (SavedObjectGraph -> SavedObjectGraph -> Bool)
-> (SavedObjectGraph -> SavedObjectGraph -> SavedObjectGraph)
-> (SavedObjectGraph -> SavedObjectGraph -> SavedObjectGraph)
-> Ord SavedObjectGraph
SavedObjectGraph -> SavedObjectGraph -> Bool
SavedObjectGraph -> SavedObjectGraph -> Ordering
SavedObjectGraph -> SavedObjectGraph -> SavedObjectGraph
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 :: SavedObjectGraph -> SavedObjectGraph -> SavedObjectGraph
$cmin :: SavedObjectGraph -> SavedObjectGraph -> SavedObjectGraph
max :: SavedObjectGraph -> SavedObjectGraph -> SavedObjectGraph
$cmax :: SavedObjectGraph -> SavedObjectGraph -> SavedObjectGraph
>= :: SavedObjectGraph -> SavedObjectGraph -> Bool
$c>= :: SavedObjectGraph -> SavedObjectGraph -> Bool
> :: SavedObjectGraph -> SavedObjectGraph -> Bool
$c> :: SavedObjectGraph -> SavedObjectGraph -> Bool
<= :: SavedObjectGraph -> SavedObjectGraph -> Bool
$c<= :: SavedObjectGraph -> SavedObjectGraph -> Bool
< :: SavedObjectGraph -> SavedObjectGraph -> Bool
$c< :: SavedObjectGraph -> SavedObjectGraph -> Bool
compare :: SavedObjectGraph -> SavedObjectGraph -> Ordering
$ccompare :: SavedObjectGraph -> SavedObjectGraph -> Ordering
$cp1Ord :: Eq SavedObjectGraph
Prelude.Ord)
instance Prelude.Show SavedObjectGraph where
showsPrec :: Int -> SavedObjectGraph -> ShowS
showsPrec _ __x :: SavedObjectGraph
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SavedObjectGraph -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SavedObjectGraph
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SavedObjectGraph "nodes" [SavedObject] where
fieldOf :: Proxy# "nodes"
-> ([SavedObject] -> f [SavedObject])
-> SavedObjectGraph
-> f SavedObjectGraph
fieldOf _
= ((Vector SavedObject -> f (Vector SavedObject))
-> SavedObjectGraph -> f SavedObjectGraph)
-> (([SavedObject] -> f [SavedObject])
-> Vector SavedObject -> f (Vector SavedObject))
-> ([SavedObject] -> f [SavedObject])
-> SavedObjectGraph
-> f SavedObjectGraph
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObjectGraph -> Vector SavedObject)
-> (SavedObjectGraph -> Vector SavedObject -> SavedObjectGraph)
-> Lens
SavedObjectGraph
SavedObjectGraph
(Vector SavedObject)
(Vector SavedObject)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObjectGraph -> Vector SavedObject
_SavedObjectGraph'nodes
(\ x__ :: SavedObjectGraph
x__ y__ :: Vector SavedObject
y__ -> SavedObjectGraph
x__ {_SavedObjectGraph'nodes :: Vector SavedObject
_SavedObjectGraph'nodes = Vector SavedObject
y__}))
((Vector SavedObject -> [SavedObject])
-> (Vector SavedObject -> [SavedObject] -> Vector SavedObject)
-> Lens
(Vector SavedObject)
(Vector SavedObject)
[SavedObject]
[SavedObject]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector SavedObject -> [SavedObject]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [SavedObject]
y__ -> [SavedObject] -> Vector SavedObject
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [SavedObject]
y__))
instance Data.ProtoLens.Field.HasField SavedObjectGraph "vec'nodes" (Data.Vector.Vector SavedObject) where
fieldOf :: Proxy# "vec'nodes"
-> (Vector SavedObject -> f (Vector SavedObject))
-> SavedObjectGraph
-> f SavedObjectGraph
fieldOf _
= ((Vector SavedObject -> f (Vector SavedObject))
-> SavedObjectGraph -> f SavedObjectGraph)
-> ((Vector SavedObject -> f (Vector SavedObject))
-> Vector SavedObject -> f (Vector SavedObject))
-> (Vector SavedObject -> f (Vector SavedObject))
-> SavedObjectGraph
-> f SavedObjectGraph
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObjectGraph -> Vector SavedObject)
-> (SavedObjectGraph -> Vector SavedObject -> SavedObjectGraph)
-> Lens
SavedObjectGraph
SavedObjectGraph
(Vector SavedObject)
(Vector SavedObject)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObjectGraph -> Vector SavedObject
_SavedObjectGraph'nodes
(\ x__ :: SavedObjectGraph
x__ y__ :: Vector SavedObject
y__ -> SavedObjectGraph
x__ {_SavedObjectGraph'nodes :: Vector SavedObject
_SavedObjectGraph'nodes = Vector SavedObject
y__}))
(Vector SavedObject -> f (Vector SavedObject))
-> Vector SavedObject -> f (Vector SavedObject)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedObjectGraph "concreteFunctions" (Data.Map.Map Data.Text.Text SavedConcreteFunction) where
fieldOf :: Proxy# "concreteFunctions"
-> (Map Text SavedConcreteFunction
-> f (Map Text SavedConcreteFunction))
-> SavedObjectGraph
-> f SavedObjectGraph
fieldOf _
= ((Map Text SavedConcreteFunction
-> f (Map Text SavedConcreteFunction))
-> SavedObjectGraph -> f SavedObjectGraph)
-> ((Map Text SavedConcreteFunction
-> f (Map Text SavedConcreteFunction))
-> Map Text SavedConcreteFunction
-> f (Map Text SavedConcreteFunction))
-> (Map Text SavedConcreteFunction
-> f (Map Text SavedConcreteFunction))
-> SavedObjectGraph
-> f SavedObjectGraph
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObjectGraph -> Map Text SavedConcreteFunction)
-> (SavedObjectGraph
-> Map Text SavedConcreteFunction -> SavedObjectGraph)
-> Lens
SavedObjectGraph
SavedObjectGraph
(Map Text SavedConcreteFunction)
(Map Text SavedConcreteFunction)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObjectGraph -> Map Text SavedConcreteFunction
_SavedObjectGraph'concreteFunctions
(\ x__ :: SavedObjectGraph
x__ y__ :: Map Text SavedConcreteFunction
y__ -> SavedObjectGraph
x__ {_SavedObjectGraph'concreteFunctions :: Map Text SavedConcreteFunction
_SavedObjectGraph'concreteFunctions = Map Text SavedConcreteFunction
y__}))
(Map Text SavedConcreteFunction
-> f (Map Text SavedConcreteFunction))
-> Map Text SavedConcreteFunction
-> f (Map Text SavedConcreteFunction)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SavedObjectGraph where
messageName :: Proxy SavedObjectGraph -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.SavedObjectGraph"
packedMessageDescriptor :: Proxy SavedObjectGraph -> ByteString
packedMessageDescriptor _
= "\n\
\\DLESavedObjectGraph\DC2-\n\
\\ENQnodes\CAN\SOH \ETX(\v2\ETB.tensorflow.SavedObjectR\ENQnodes\DC2b\n\
\\DC2concrete_functions\CAN\STX \ETX(\v23.tensorflow.SavedObjectGraph.ConcreteFunctionsEntryR\DC1concreteFunctions\SUBg\n\
\\SYNConcreteFunctionsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC27\n\
\\ENQvalue\CAN\STX \SOH(\v2!.tensorflow.SavedConcreteFunctionR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy SavedObjectGraph -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SavedObjectGraph)
fieldsByTag
= let
nodes__field_descriptor :: FieldDescriptor SavedObjectGraph
nodes__field_descriptor
= String
-> FieldTypeDescriptor SavedObject
-> FieldAccessor SavedObjectGraph SavedObject
-> FieldDescriptor SavedObjectGraph
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"nodes"
(MessageOrGroup -> FieldTypeDescriptor SavedObject
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SavedObject)
(Packing
-> Lens' SavedObjectGraph [SavedObject]
-> FieldAccessor SavedObjectGraph SavedObject
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "nodes" 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 @"nodes")) ::
Data.ProtoLens.FieldDescriptor SavedObjectGraph
concreteFunctions__field_descriptor :: FieldDescriptor SavedObjectGraph
concreteFunctions__field_descriptor
= String
-> FieldTypeDescriptor SavedObjectGraph'ConcreteFunctionsEntry
-> FieldAccessor
SavedObjectGraph SavedObjectGraph'ConcreteFunctionsEntry
-> FieldDescriptor SavedObjectGraph
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"concrete_functions"
(MessageOrGroup
-> FieldTypeDescriptor SavedObjectGraph'ConcreteFunctionsEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SavedObjectGraph'ConcreteFunctionsEntry)
(Lens' SavedObjectGraph'ConcreteFunctionsEntry Text
-> Lens'
SavedObjectGraph'ConcreteFunctionsEntry SavedConcreteFunction
-> Lens
SavedObjectGraph
SavedObjectGraph
(Map Text SavedConcreteFunction)
(Map Text SavedConcreteFunction)
-> FieldAccessor
SavedObjectGraph SavedObjectGraph'ConcreteFunctionsEntry
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 "concreteFunctions" 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 @"concreteFunctions")) ::
Data.ProtoLens.FieldDescriptor SavedObjectGraph
in
[(Tag, FieldDescriptor SavedObjectGraph)]
-> Map Tag (FieldDescriptor SavedObjectGraph)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SavedObjectGraph
nodes__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SavedObjectGraph
concreteFunctions__field_descriptor)]
unknownFields :: LensLike' f SavedObjectGraph FieldSet
unknownFields
= (SavedObjectGraph -> FieldSet)
-> (SavedObjectGraph -> FieldSet -> SavedObjectGraph)
-> Lens' SavedObjectGraph FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObjectGraph -> FieldSet
_SavedObjectGraph'_unknownFields
(\ x__ :: SavedObjectGraph
x__ y__ :: FieldSet
y__ -> SavedObjectGraph
x__ {_SavedObjectGraph'_unknownFields :: FieldSet
_SavedObjectGraph'_unknownFields = FieldSet
y__})
defMessage :: SavedObjectGraph
defMessage
= $WSavedObjectGraph'_constructor :: Vector SavedObject
-> Map Text SavedConcreteFunction -> FieldSet -> SavedObjectGraph
SavedObjectGraph'_constructor
{_SavedObjectGraph'nodes :: Vector SavedObject
_SavedObjectGraph'nodes = Vector SavedObject
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_SavedObjectGraph'concreteFunctions :: Map Text SavedConcreteFunction
_SavedObjectGraph'concreteFunctions = Map Text SavedConcreteFunction
forall k a. Map k a
Data.Map.empty,
_SavedObjectGraph'_unknownFields :: FieldSet
_SavedObjectGraph'_unknownFields = []}
parseMessage :: Parser SavedObjectGraph
parseMessage
= let
loop ::
SavedObjectGraph
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld SavedObject
-> Data.ProtoLens.Encoding.Bytes.Parser SavedObjectGraph
loop :: SavedObjectGraph
-> Growing Vector RealWorld SavedObject -> Parser SavedObjectGraph
loop x :: SavedObjectGraph
x mutable'nodes :: Growing Vector RealWorld SavedObject
mutable'nodes
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector SavedObject
frozen'nodes <- IO (Vector SavedObject) -> Parser (Vector SavedObject)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) SavedObject
-> IO (Vector SavedObject)
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 SavedObject
Growing Vector (PrimState IO) SavedObject
mutable'nodes)
(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]))))
SavedObjectGraph -> Parser SavedObjectGraph
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SavedObjectGraph SavedObjectGraph FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedObjectGraph -> SavedObjectGraph
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 SavedObjectGraph SavedObjectGraph FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
SavedObjectGraph
SavedObjectGraph
(Vector SavedObject)
(Vector SavedObject)
-> Vector SavedObject -> SavedObjectGraph -> SavedObjectGraph
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'nodes" 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'nodes") Vector SavedObject
frozen'nodes SavedObjectGraph
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do !SavedObject
y <- Parser SavedObject -> String -> Parser SavedObject
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SavedObject -> Parser SavedObject
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 SavedObject
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"nodes"
Growing Vector RealWorld SavedObject
v <- IO (Growing Vector RealWorld SavedObject)
-> Parser (Growing Vector RealWorld SavedObject)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) SavedObject
-> SavedObject -> IO (Growing Vector (PrimState IO) SavedObject)
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 SavedObject
Growing Vector (PrimState IO) SavedObject
mutable'nodes SavedObject
y)
SavedObjectGraph
-> Growing Vector RealWorld SavedObject -> Parser SavedObjectGraph
loop SavedObjectGraph
x Growing Vector RealWorld SavedObject
v
18
-> do !(SavedObjectGraph'ConcreteFunctionsEntry
entry :: SavedObjectGraph'ConcreteFunctionsEntry) <- Parser SavedObjectGraph'ConcreteFunctionsEntry
-> String -> Parser SavedObjectGraph'ConcreteFunctionsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser SavedObjectGraph'ConcreteFunctionsEntry
-> Parser SavedObjectGraph'ConcreteFunctionsEntry
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 SavedObjectGraph'ConcreteFunctionsEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"concrete_functions"
(let
key :: Text
key = FoldLike
Text
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
Text
Text
-> SavedObjectGraph'ConcreteFunctionsEntry -> Text
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") SavedObjectGraph'ConcreteFunctionsEntry
entry
value :: SavedConcreteFunction
value
= FoldLike
SavedConcreteFunction
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
SavedConcreteFunction
SavedConcreteFunction
-> SavedObjectGraph'ConcreteFunctionsEntry -> SavedConcreteFunction
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") SavedObjectGraph'ConcreteFunctionsEntry
entry
in
SavedObjectGraph
-> Growing Vector RealWorld SavedObject -> Parser SavedObjectGraph
loop
(Setter
SavedObjectGraph
SavedObjectGraph
(Map Text SavedConcreteFunction)
(Map Text SavedConcreteFunction)
-> (Map Text SavedConcreteFunction
-> Map Text SavedConcreteFunction)
-> SavedObjectGraph
-> SavedObjectGraph
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
(forall s a (f :: * -> *).
(HasField s "concreteFunctions" 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 @"concreteFunctions")
(\ !Map Text SavedConcreteFunction
t -> Text
-> SavedConcreteFunction
-> Map Text SavedConcreteFunction
-> Map Text SavedConcreteFunction
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key SavedConcreteFunction
value Map Text SavedConcreteFunction
t)
SavedObjectGraph
x)
Growing Vector RealWorld SavedObject
mutable'nodes)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SavedObjectGraph
-> Growing Vector RealWorld SavedObject -> Parser SavedObjectGraph
loop
(Setter SavedObjectGraph SavedObjectGraph FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedObjectGraph -> SavedObjectGraph
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 SavedObjectGraph SavedObjectGraph FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SavedObjectGraph
x)
Growing Vector RealWorld SavedObject
mutable'nodes
in
Parser SavedObjectGraph -> String -> Parser SavedObjectGraph
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld SavedObject
mutable'nodes <- IO (Growing Vector RealWorld SavedObject)
-> Parser (Growing Vector RealWorld SavedObject)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld SavedObject)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
SavedObjectGraph
-> Growing Vector RealWorld SavedObject -> Parser SavedObjectGraph
loop SavedObjectGraph
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld SavedObject
mutable'nodes)
"SavedObjectGraph"
buildMessage :: SavedObjectGraph -> Builder
buildMessage
= \ _x :: SavedObjectGraph
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((SavedObject -> Builder) -> Vector SavedObject -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: SavedObject
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (SavedObject -> ByteString) -> SavedObject -> 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))
SavedObject -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SavedObject
_v))
(FoldLike
(Vector SavedObject)
SavedObjectGraph
SavedObjectGraph
(Vector SavedObject)
(Vector SavedObject)
-> SavedObjectGraph -> Vector SavedObject
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'nodes" 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'nodes") SavedObjectGraph
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
(((Text, SavedConcreteFunction) -> Builder)
-> [(Text, SavedConcreteFunction)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ _v :: (Text, SavedConcreteFunction)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (SavedObjectGraph'ConcreteFunctionsEntry -> ByteString)
-> SavedObjectGraph'ConcreteFunctionsEntry
-> 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))
SavedObjectGraph'ConcreteFunctionsEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
Text
Text
-> Text
-> SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
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")
((Text, SavedConcreteFunction) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, SavedConcreteFunction)
_v)
(Setter
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
SavedConcreteFunction
SavedConcreteFunction
-> SavedConcreteFunction
-> SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
((Text, SavedConcreteFunction) -> SavedConcreteFunction
forall a b. (a, b) -> b
Prelude.snd (Text, SavedConcreteFunction)
_v)
(SavedObjectGraph'ConcreteFunctionsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
SavedObjectGraph'ConcreteFunctionsEntry)))))
(Map Text SavedConcreteFunction -> [(Text, SavedConcreteFunction)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text SavedConcreteFunction)
SavedObjectGraph
SavedObjectGraph
(Map Text SavedConcreteFunction)
(Map Text SavedConcreteFunction)
-> SavedObjectGraph -> Map Text SavedConcreteFunction
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "concreteFunctions" 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 @"concreteFunctions") SavedObjectGraph
_x))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet SavedObjectGraph SavedObjectGraph FieldSet FieldSet
-> SavedObjectGraph -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet SavedObjectGraph SavedObjectGraph FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SavedObjectGraph
_x)))
instance Control.DeepSeq.NFData SavedObjectGraph where
rnf :: SavedObjectGraph -> ()
rnf
= \ x__ :: SavedObjectGraph
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedObjectGraph -> FieldSet
_SavedObjectGraph'_unknownFields SavedObjectGraph
x__)
(Vector SavedObject -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedObjectGraph -> Vector SavedObject
_SavedObjectGraph'nodes SavedObjectGraph
x__)
(Map Text SavedConcreteFunction -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedObjectGraph -> Map Text SavedConcreteFunction
_SavedObjectGraph'concreteFunctions SavedObjectGraph
x__) ()))
data SavedObjectGraph'ConcreteFunctionsEntry
= SavedObjectGraph'ConcreteFunctionsEntry'_constructor {SavedObjectGraph'ConcreteFunctionsEntry -> Text
_SavedObjectGraph'ConcreteFunctionsEntry'key :: !Data.Text.Text,
SavedObjectGraph'ConcreteFunctionsEntry
-> Maybe SavedConcreteFunction
_SavedObjectGraph'ConcreteFunctionsEntry'value :: !(Prelude.Maybe SavedConcreteFunction),
SavedObjectGraph'ConcreteFunctionsEntry -> FieldSet
_SavedObjectGraph'ConcreteFunctionsEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool
(SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool)
-> (SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool)
-> Eq SavedObjectGraph'ConcreteFunctionsEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool
$c/= :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool
== :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool
$c== :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool
Prelude.Eq, Eq SavedObjectGraph'ConcreteFunctionsEntry
Eq SavedObjectGraph'ConcreteFunctionsEntry =>
(SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Ordering)
-> (SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool)
-> (SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool)
-> (SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool)
-> (SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool)
-> (SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry)
-> (SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry)
-> Ord SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool
SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Ordering
SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
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 :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
$cmin :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
max :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
$cmax :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
>= :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool
$c>= :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool
> :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool
$c> :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool
<= :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool
$c<= :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool
< :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool
$c< :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Bool
compare :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Ordering
$ccompare :: SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry -> Ordering
$cp1Ord :: Eq SavedObjectGraph'ConcreteFunctionsEntry
Prelude.Ord)
instance Prelude.Show SavedObjectGraph'ConcreteFunctionsEntry where
showsPrec :: Int -> SavedObjectGraph'ConcreteFunctionsEntry -> ShowS
showsPrec _ __x :: SavedObjectGraph'ConcreteFunctionsEntry
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SavedObjectGraph'ConcreteFunctionsEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SavedObjectGraph'ConcreteFunctionsEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SavedObjectGraph'ConcreteFunctionsEntry "key" Data.Text.Text where
fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> SavedObjectGraph'ConcreteFunctionsEntry
-> f SavedObjectGraph'ConcreteFunctionsEntry
fieldOf _
= ((Text -> f Text)
-> SavedObjectGraph'ConcreteFunctionsEntry
-> f SavedObjectGraph'ConcreteFunctionsEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SavedObjectGraph'ConcreteFunctionsEntry
-> f SavedObjectGraph'ConcreteFunctionsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObjectGraph'ConcreteFunctionsEntry -> Text)
-> (SavedObjectGraph'ConcreteFunctionsEntry
-> Text -> SavedObjectGraph'ConcreteFunctionsEntry)
-> Lens' SavedObjectGraph'ConcreteFunctionsEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObjectGraph'ConcreteFunctionsEntry -> Text
_SavedObjectGraph'ConcreteFunctionsEntry'key
(\ x__ :: SavedObjectGraph'ConcreteFunctionsEntry
x__ y__ :: Text
y__
-> SavedObjectGraph'ConcreteFunctionsEntry
x__ {_SavedObjectGraph'ConcreteFunctionsEntry'key :: Text
_SavedObjectGraph'ConcreteFunctionsEntry'key = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedObjectGraph'ConcreteFunctionsEntry "value" SavedConcreteFunction where
fieldOf :: Proxy# "value"
-> (SavedConcreteFunction -> f SavedConcreteFunction)
-> SavedObjectGraph'ConcreteFunctionsEntry
-> f SavedObjectGraph'ConcreteFunctionsEntry
fieldOf _
= ((Maybe SavedConcreteFunction -> f (Maybe SavedConcreteFunction))
-> SavedObjectGraph'ConcreteFunctionsEntry
-> f SavedObjectGraph'ConcreteFunctionsEntry)
-> ((SavedConcreteFunction -> f SavedConcreteFunction)
-> Maybe SavedConcreteFunction -> f (Maybe SavedConcreteFunction))
-> (SavedConcreteFunction -> f SavedConcreteFunction)
-> SavedObjectGraph'ConcreteFunctionsEntry
-> f SavedObjectGraph'ConcreteFunctionsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObjectGraph'ConcreteFunctionsEntry
-> Maybe SavedConcreteFunction)
-> (SavedObjectGraph'ConcreteFunctionsEntry
-> Maybe SavedConcreteFunction
-> SavedObjectGraph'ConcreteFunctionsEntry)
-> Lens
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
(Maybe SavedConcreteFunction)
(Maybe SavedConcreteFunction)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObjectGraph'ConcreteFunctionsEntry
-> Maybe SavedConcreteFunction
_SavedObjectGraph'ConcreteFunctionsEntry'value
(\ x__ :: SavedObjectGraph'ConcreteFunctionsEntry
x__ y__ :: Maybe SavedConcreteFunction
y__
-> SavedObjectGraph'ConcreteFunctionsEntry
x__ {_SavedObjectGraph'ConcreteFunctionsEntry'value :: Maybe SavedConcreteFunction
_SavedObjectGraph'ConcreteFunctionsEntry'value = Maybe SavedConcreteFunction
y__}))
(SavedConcreteFunction
-> Lens' (Maybe SavedConcreteFunction) SavedConcreteFunction
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SavedConcreteFunction
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SavedObjectGraph'ConcreteFunctionsEntry "maybe'value" (Prelude.Maybe SavedConcreteFunction) where
fieldOf :: Proxy# "maybe'value"
-> (Maybe SavedConcreteFunction -> f (Maybe SavedConcreteFunction))
-> SavedObjectGraph'ConcreteFunctionsEntry
-> f SavedObjectGraph'ConcreteFunctionsEntry
fieldOf _
= ((Maybe SavedConcreteFunction -> f (Maybe SavedConcreteFunction))
-> SavedObjectGraph'ConcreteFunctionsEntry
-> f SavedObjectGraph'ConcreteFunctionsEntry)
-> ((Maybe SavedConcreteFunction
-> f (Maybe SavedConcreteFunction))
-> Maybe SavedConcreteFunction -> f (Maybe SavedConcreteFunction))
-> (Maybe SavedConcreteFunction -> f (Maybe SavedConcreteFunction))
-> SavedObjectGraph'ConcreteFunctionsEntry
-> f SavedObjectGraph'ConcreteFunctionsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedObjectGraph'ConcreteFunctionsEntry
-> Maybe SavedConcreteFunction)
-> (SavedObjectGraph'ConcreteFunctionsEntry
-> Maybe SavedConcreteFunction
-> SavedObjectGraph'ConcreteFunctionsEntry)
-> Lens
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
(Maybe SavedConcreteFunction)
(Maybe SavedConcreteFunction)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObjectGraph'ConcreteFunctionsEntry
-> Maybe SavedConcreteFunction
_SavedObjectGraph'ConcreteFunctionsEntry'value
(\ x__ :: SavedObjectGraph'ConcreteFunctionsEntry
x__ y__ :: Maybe SavedConcreteFunction
y__
-> SavedObjectGraph'ConcreteFunctionsEntry
x__ {_SavedObjectGraph'ConcreteFunctionsEntry'value :: Maybe SavedConcreteFunction
_SavedObjectGraph'ConcreteFunctionsEntry'value = Maybe SavedConcreteFunction
y__}))
(Maybe SavedConcreteFunction -> f (Maybe SavedConcreteFunction))
-> Maybe SavedConcreteFunction -> f (Maybe SavedConcreteFunction)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SavedObjectGraph'ConcreteFunctionsEntry where
messageName :: Proxy SavedObjectGraph'ConcreteFunctionsEntry -> Text
messageName _
= String -> Text
Data.Text.pack
"tensorflow.SavedObjectGraph.ConcreteFunctionsEntry"
packedMessageDescriptor :: Proxy SavedObjectGraph'ConcreteFunctionsEntry -> ByteString
packedMessageDescriptor _
= "\n\
\\SYNConcreteFunctionsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC27\n\
\\ENQvalue\CAN\STX \SOH(\v2!.tensorflow.SavedConcreteFunctionR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy SavedObjectGraph'ConcreteFunctionsEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SavedObjectGraph'ConcreteFunctionsEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor SavedObjectGraph'ConcreteFunctionsEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SavedObjectGraph'ConcreteFunctionsEntry Text
-> FieldDescriptor SavedObjectGraph'ConcreteFunctionsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"key"
(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' SavedObjectGraph'ConcreteFunctionsEntry Text
-> FieldAccessor SavedObjectGraph'ConcreteFunctionsEntry 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 "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 SavedObjectGraph'ConcreteFunctionsEntry
value__field_descriptor :: FieldDescriptor SavedObjectGraph'ConcreteFunctionsEntry
value__field_descriptor
= String
-> FieldTypeDescriptor SavedConcreteFunction
-> FieldAccessor
SavedObjectGraph'ConcreteFunctionsEntry SavedConcreteFunction
-> FieldDescriptor SavedObjectGraph'ConcreteFunctionsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(MessageOrGroup -> FieldTypeDescriptor SavedConcreteFunction
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SavedConcreteFunction)
(Lens
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
(Maybe SavedConcreteFunction)
(Maybe SavedConcreteFunction)
-> FieldAccessor
SavedObjectGraph'ConcreteFunctionsEntry SavedConcreteFunction
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 SavedObjectGraph'ConcreteFunctionsEntry
in
[(Tag, FieldDescriptor SavedObjectGraph'ConcreteFunctionsEntry)]
-> Map
Tag (FieldDescriptor SavedObjectGraph'ConcreteFunctionsEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SavedObjectGraph'ConcreteFunctionsEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SavedObjectGraph'ConcreteFunctionsEntry
value__field_descriptor)]
unknownFields :: LensLike' f SavedObjectGraph'ConcreteFunctionsEntry FieldSet
unknownFields
= (SavedObjectGraph'ConcreteFunctionsEntry -> FieldSet)
-> (SavedObjectGraph'ConcreteFunctionsEntry
-> FieldSet -> SavedObjectGraph'ConcreteFunctionsEntry)
-> Lens' SavedObjectGraph'ConcreteFunctionsEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedObjectGraph'ConcreteFunctionsEntry -> FieldSet
_SavedObjectGraph'ConcreteFunctionsEntry'_unknownFields
(\ x__ :: SavedObjectGraph'ConcreteFunctionsEntry
x__ y__ :: FieldSet
y__
-> SavedObjectGraph'ConcreteFunctionsEntry
x__
{_SavedObjectGraph'ConcreteFunctionsEntry'_unknownFields :: FieldSet
_SavedObjectGraph'ConcreteFunctionsEntry'_unknownFields = FieldSet
y__})
defMessage :: SavedObjectGraph'ConcreteFunctionsEntry
defMessage
= $WSavedObjectGraph'ConcreteFunctionsEntry'_constructor :: Text
-> Maybe SavedConcreteFunction
-> FieldSet
-> SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry'_constructor
{_SavedObjectGraph'ConcreteFunctionsEntry'key :: Text
_SavedObjectGraph'ConcreteFunctionsEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SavedObjectGraph'ConcreteFunctionsEntry'value :: Maybe SavedConcreteFunction
_SavedObjectGraph'ConcreteFunctionsEntry'value = Maybe SavedConcreteFunction
forall a. Maybe a
Prelude.Nothing,
_SavedObjectGraph'ConcreteFunctionsEntry'_unknownFields :: FieldSet
_SavedObjectGraph'ConcreteFunctionsEntry'_unknownFields = []}
parseMessage :: Parser SavedObjectGraph'ConcreteFunctionsEntry
parseMessage
= let
loop ::
SavedObjectGraph'ConcreteFunctionsEntry
-> Data.ProtoLens.Encoding.Bytes.Parser SavedObjectGraph'ConcreteFunctionsEntry
loop :: SavedObjectGraph'ConcreteFunctionsEntry
-> Parser SavedObjectGraph'ConcreteFunctionsEntry
loop x :: SavedObjectGraph'ConcreteFunctionsEntry
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]))))
SavedObjectGraph'ConcreteFunctionsEntry
-> Parser SavedObjectGraph'ConcreteFunctionsEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
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
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SavedObjectGraph'ConcreteFunctionsEntry
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))
"key"
SavedObjectGraph'ConcreteFunctionsEntry
-> Parser SavedObjectGraph'ConcreteFunctionsEntry
loop (Setter
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
Text
Text
-> Text
-> SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
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") Text
y SavedObjectGraph'ConcreteFunctionsEntry
x)
18
-> do SavedConcreteFunction
y <- Parser SavedConcreteFunction
-> String -> Parser SavedConcreteFunction
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SavedConcreteFunction -> Parser SavedConcreteFunction
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 SavedConcreteFunction
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"value"
SavedObjectGraph'ConcreteFunctionsEntry
-> Parser SavedObjectGraph'ConcreteFunctionsEntry
loop (Setter
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
SavedConcreteFunction
SavedConcreteFunction
-> SavedConcreteFunction
-> SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
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") SavedConcreteFunction
y SavedObjectGraph'ConcreteFunctionsEntry
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SavedObjectGraph'ConcreteFunctionsEntry
-> Parser SavedObjectGraph'ConcreteFunctionsEntry
loop
(Setter
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> SavedObjectGraph'ConcreteFunctionsEntry
-> SavedObjectGraph'ConcreteFunctionsEntry
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
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SavedObjectGraph'ConcreteFunctionsEntry
x)
in
Parser SavedObjectGraph'ConcreteFunctionsEntry
-> String -> Parser SavedObjectGraph'ConcreteFunctionsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SavedObjectGraph'ConcreteFunctionsEntry
-> Parser SavedObjectGraph'ConcreteFunctionsEntry
loop SavedObjectGraph'ConcreteFunctionsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "ConcreteFunctionsEntry"
buildMessage :: SavedObjectGraph'ConcreteFunctionsEntry -> Builder
buildMessage
= \ _x :: SavedObjectGraph'ConcreteFunctionsEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
Text
Text
-> SavedObjectGraph'ConcreteFunctionsEntry -> Text
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") SavedObjectGraph'ConcreteFunctionsEntry
_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.<>)
(case
FoldLike
(Maybe SavedConcreteFunction)
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
(Maybe SavedConcreteFunction)
(Maybe SavedConcreteFunction)
-> SavedObjectGraph'ConcreteFunctionsEntry
-> Maybe SavedConcreteFunction
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") SavedObjectGraph'ConcreteFunctionsEntry
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: SavedConcreteFunction
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (SavedConcreteFunction -> ByteString)
-> SavedConcreteFunction
-> 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))
SavedConcreteFunction -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SavedConcreteFunction
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
FieldSet
FieldSet
-> SavedObjectGraph'ConcreteFunctionsEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
SavedObjectGraph'ConcreteFunctionsEntry
SavedObjectGraph'ConcreteFunctionsEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SavedObjectGraph'ConcreteFunctionsEntry
_x)))
instance Control.DeepSeq.NFData SavedObjectGraph'ConcreteFunctionsEntry where
rnf :: SavedObjectGraph'ConcreteFunctionsEntry -> ()
rnf
= \ x__ :: SavedObjectGraph'ConcreteFunctionsEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedObjectGraph'ConcreteFunctionsEntry -> FieldSet
_SavedObjectGraph'ConcreteFunctionsEntry'_unknownFields SavedObjectGraph'ConcreteFunctionsEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedObjectGraph'ConcreteFunctionsEntry -> Text
_SavedObjectGraph'ConcreteFunctionsEntry'key SavedObjectGraph'ConcreteFunctionsEntry
x__)
(Maybe SavedConcreteFunction -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedObjectGraph'ConcreteFunctionsEntry
-> Maybe SavedConcreteFunction
_SavedObjectGraph'ConcreteFunctionsEntry'value SavedObjectGraph'ConcreteFunctionsEntry
x__) ()))
data SavedResource
= SavedResource'_constructor {SavedResource -> Text
_SavedResource'device :: !Data.Text.Text,
SavedResource -> FieldSet
_SavedResource'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SavedResource -> SavedResource -> Bool
(SavedResource -> SavedResource -> Bool)
-> (SavedResource -> SavedResource -> Bool) -> Eq SavedResource
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SavedResource -> SavedResource -> Bool
$c/= :: SavedResource -> SavedResource -> Bool
== :: SavedResource -> SavedResource -> Bool
$c== :: SavedResource -> SavedResource -> Bool
Prelude.Eq, Eq SavedResource
Eq SavedResource =>
(SavedResource -> SavedResource -> Ordering)
-> (SavedResource -> SavedResource -> Bool)
-> (SavedResource -> SavedResource -> Bool)
-> (SavedResource -> SavedResource -> Bool)
-> (SavedResource -> SavedResource -> Bool)
-> (SavedResource -> SavedResource -> SavedResource)
-> (SavedResource -> SavedResource -> SavedResource)
-> Ord SavedResource
SavedResource -> SavedResource -> Bool
SavedResource -> SavedResource -> Ordering
SavedResource -> SavedResource -> SavedResource
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 :: SavedResource -> SavedResource -> SavedResource
$cmin :: SavedResource -> SavedResource -> SavedResource
max :: SavedResource -> SavedResource -> SavedResource
$cmax :: SavedResource -> SavedResource -> SavedResource
>= :: SavedResource -> SavedResource -> Bool
$c>= :: SavedResource -> SavedResource -> Bool
> :: SavedResource -> SavedResource -> Bool
$c> :: SavedResource -> SavedResource -> Bool
<= :: SavedResource -> SavedResource -> Bool
$c<= :: SavedResource -> SavedResource -> Bool
< :: SavedResource -> SavedResource -> Bool
$c< :: SavedResource -> SavedResource -> Bool
compare :: SavedResource -> SavedResource -> Ordering
$ccompare :: SavedResource -> SavedResource -> Ordering
$cp1Ord :: Eq SavedResource
Prelude.Ord)
instance Prelude.Show SavedResource where
showsPrec :: Int -> SavedResource -> ShowS
showsPrec _ __x :: SavedResource
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SavedResource -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SavedResource
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SavedResource "device" Data.Text.Text where
fieldOf :: Proxy# "device"
-> (Text -> f Text) -> SavedResource -> f SavedResource
fieldOf _
= ((Text -> f Text) -> SavedResource -> f SavedResource)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SavedResource
-> f SavedResource
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedResource -> Text)
-> (SavedResource -> Text -> SavedResource)
-> Lens SavedResource SavedResource Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedResource -> Text
_SavedResource'device
(\ x__ :: SavedResource
x__ y__ :: Text
y__ -> SavedResource
x__ {_SavedResource'device :: Text
_SavedResource'device = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SavedResource where
messageName :: Proxy SavedResource -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.SavedResource"
packedMessageDescriptor :: Proxy SavedResource -> ByteString
packedMessageDescriptor _
= "\n\
\\rSavedResource\DC2\SYN\n\
\\ACKdevice\CAN\SOH \SOH(\tR\ACKdevice"
packedFileDescriptor :: Proxy SavedResource -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SavedResource)
fieldsByTag
= let
device__field_descriptor :: FieldDescriptor SavedResource
device__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SavedResource Text
-> FieldDescriptor SavedResource
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"device"
(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 SavedResource SavedResource Text Text
-> FieldAccessor SavedResource 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 "device" 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 @"device")) ::
Data.ProtoLens.FieldDescriptor SavedResource
in
[(Tag, FieldDescriptor SavedResource)]
-> Map Tag (FieldDescriptor SavedResource)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SavedResource
device__field_descriptor)]
unknownFields :: LensLike' f SavedResource FieldSet
unknownFields
= (SavedResource -> FieldSet)
-> (SavedResource -> FieldSet -> SavedResource)
-> Lens' SavedResource FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedResource -> FieldSet
_SavedResource'_unknownFields
(\ x__ :: SavedResource
x__ y__ :: FieldSet
y__ -> SavedResource
x__ {_SavedResource'_unknownFields :: FieldSet
_SavedResource'_unknownFields = FieldSet
y__})
defMessage :: SavedResource
defMessage
= $WSavedResource'_constructor :: Text -> FieldSet -> SavedResource
SavedResource'_constructor
{_SavedResource'device :: Text
_SavedResource'device = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SavedResource'_unknownFields :: FieldSet
_SavedResource'_unknownFields = []}
parseMessage :: Parser SavedResource
parseMessage
= let
loop ::
SavedResource -> Data.ProtoLens.Encoding.Bytes.Parser SavedResource
loop :: SavedResource -> Parser SavedResource
loop x :: SavedResource
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]))))
SavedResource -> Parser SavedResource
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SavedResource SavedResource FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedResource -> SavedResource
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 SavedResource SavedResource FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SavedResource
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"
SavedResource -> Parser SavedResource
loop (Setter SavedResource SavedResource Text Text
-> Text -> SavedResource -> SavedResource
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "device" 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 @"device") Text
y SavedResource
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SavedResource -> Parser SavedResource
loop
(Setter SavedResource SavedResource FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedResource -> SavedResource
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 SavedResource SavedResource FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SavedResource
x)
in
Parser SavedResource -> String -> Parser SavedResource
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SavedResource -> Parser SavedResource
loop SavedResource
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "SavedResource"
buildMessage :: SavedResource -> Builder
buildMessage
= \ _x :: SavedResource
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text SavedResource SavedResource Text Text
-> SavedResource -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "device" 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 @"device") SavedResource
_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))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet SavedResource SavedResource FieldSet FieldSet
-> SavedResource -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SavedResource SavedResource FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SavedResource
_x))
instance Control.DeepSeq.NFData SavedResource where
rnf :: SavedResource -> ()
rnf
= \ x__ :: SavedResource
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedResource -> FieldSet
_SavedResource'_unknownFields SavedResource
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SavedResource -> Text
_SavedResource'device SavedResource
x__) ())
data SavedUserObject
= SavedUserObject'_constructor {SavedUserObject -> Text
_SavedUserObject'identifier :: !Data.Text.Text,
SavedUserObject -> Maybe VersionDef
_SavedUserObject'version :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.Versions.VersionDef),
SavedUserObject -> Text
_SavedUserObject'metadata :: !Data.Text.Text,
SavedUserObject -> FieldSet
_SavedUserObject'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SavedUserObject -> SavedUserObject -> Bool
(SavedUserObject -> SavedUserObject -> Bool)
-> (SavedUserObject -> SavedUserObject -> Bool)
-> Eq SavedUserObject
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SavedUserObject -> SavedUserObject -> Bool
$c/= :: SavedUserObject -> SavedUserObject -> Bool
== :: SavedUserObject -> SavedUserObject -> Bool
$c== :: SavedUserObject -> SavedUserObject -> Bool
Prelude.Eq, Eq SavedUserObject
Eq SavedUserObject =>
(SavedUserObject -> SavedUserObject -> Ordering)
-> (SavedUserObject -> SavedUserObject -> Bool)
-> (SavedUserObject -> SavedUserObject -> Bool)
-> (SavedUserObject -> SavedUserObject -> Bool)
-> (SavedUserObject -> SavedUserObject -> Bool)
-> (SavedUserObject -> SavedUserObject -> SavedUserObject)
-> (SavedUserObject -> SavedUserObject -> SavedUserObject)
-> Ord SavedUserObject
SavedUserObject -> SavedUserObject -> Bool
SavedUserObject -> SavedUserObject -> Ordering
SavedUserObject -> SavedUserObject -> SavedUserObject
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 :: SavedUserObject -> SavedUserObject -> SavedUserObject
$cmin :: SavedUserObject -> SavedUserObject -> SavedUserObject
max :: SavedUserObject -> SavedUserObject -> SavedUserObject
$cmax :: SavedUserObject -> SavedUserObject -> SavedUserObject
>= :: SavedUserObject -> SavedUserObject -> Bool
$c>= :: SavedUserObject -> SavedUserObject -> Bool
> :: SavedUserObject -> SavedUserObject -> Bool
$c> :: SavedUserObject -> SavedUserObject -> Bool
<= :: SavedUserObject -> SavedUserObject -> Bool
$c<= :: SavedUserObject -> SavedUserObject -> Bool
< :: SavedUserObject -> SavedUserObject -> Bool
$c< :: SavedUserObject -> SavedUserObject -> Bool
compare :: SavedUserObject -> SavedUserObject -> Ordering
$ccompare :: SavedUserObject -> SavedUserObject -> Ordering
$cp1Ord :: Eq SavedUserObject
Prelude.Ord)
instance Prelude.Show SavedUserObject where
showsPrec :: Int -> SavedUserObject -> ShowS
showsPrec _ __x :: SavedUserObject
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SavedUserObject -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SavedUserObject
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SavedUserObject "identifier" Data.Text.Text where
fieldOf :: Proxy# "identifier"
-> (Text -> f Text) -> SavedUserObject -> f SavedUserObject
fieldOf _
= ((Text -> f Text) -> SavedUserObject -> f SavedUserObject)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SavedUserObject
-> f SavedUserObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedUserObject -> Text)
-> (SavedUserObject -> Text -> SavedUserObject)
-> Lens SavedUserObject SavedUserObject Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedUserObject -> Text
_SavedUserObject'identifier
(\ x__ :: SavedUserObject
x__ y__ :: Text
y__ -> SavedUserObject
x__ {_SavedUserObject'identifier :: Text
_SavedUserObject'identifier = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedUserObject "version" Proto.Tensorflow.Core.Framework.Versions.VersionDef where
fieldOf :: Proxy# "version"
-> (VersionDef -> f VersionDef)
-> SavedUserObject
-> f SavedUserObject
fieldOf _
= ((Maybe VersionDef -> f (Maybe VersionDef))
-> SavedUserObject -> f SavedUserObject)
-> ((VersionDef -> f VersionDef)
-> Maybe VersionDef -> f (Maybe VersionDef))
-> (VersionDef -> f VersionDef)
-> SavedUserObject
-> f SavedUserObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedUserObject -> Maybe VersionDef)
-> (SavedUserObject -> Maybe VersionDef -> SavedUserObject)
-> Lens
SavedUserObject
SavedUserObject
(Maybe VersionDef)
(Maybe VersionDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedUserObject -> Maybe VersionDef
_SavedUserObject'version
(\ x__ :: SavedUserObject
x__ y__ :: Maybe VersionDef
y__ -> SavedUserObject
x__ {_SavedUserObject'version :: Maybe VersionDef
_SavedUserObject'version = Maybe VersionDef
y__}))
(VersionDef -> Lens' (Maybe VersionDef) VersionDef
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens VersionDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SavedUserObject "maybe'version" (Prelude.Maybe Proto.Tensorflow.Core.Framework.Versions.VersionDef) where
fieldOf :: Proxy# "maybe'version"
-> (Maybe VersionDef -> f (Maybe VersionDef))
-> SavedUserObject
-> f SavedUserObject
fieldOf _
= ((Maybe VersionDef -> f (Maybe VersionDef))
-> SavedUserObject -> f SavedUserObject)
-> ((Maybe VersionDef -> f (Maybe VersionDef))
-> Maybe VersionDef -> f (Maybe VersionDef))
-> (Maybe VersionDef -> f (Maybe VersionDef))
-> SavedUserObject
-> f SavedUserObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedUserObject -> Maybe VersionDef)
-> (SavedUserObject -> Maybe VersionDef -> SavedUserObject)
-> Lens
SavedUserObject
SavedUserObject
(Maybe VersionDef)
(Maybe VersionDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedUserObject -> Maybe VersionDef
_SavedUserObject'version
(\ x__ :: SavedUserObject
x__ y__ :: Maybe VersionDef
y__ -> SavedUserObject
x__ {_SavedUserObject'version :: Maybe VersionDef
_SavedUserObject'version = Maybe VersionDef
y__}))
(Maybe VersionDef -> f (Maybe VersionDef))
-> Maybe VersionDef -> f (Maybe VersionDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedUserObject "metadata" Data.Text.Text where
fieldOf :: Proxy# "metadata"
-> (Text -> f Text) -> SavedUserObject -> f SavedUserObject
fieldOf _
= ((Text -> f Text) -> SavedUserObject -> f SavedUserObject)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SavedUserObject
-> f SavedUserObject
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedUserObject -> Text)
-> (SavedUserObject -> Text -> SavedUserObject)
-> Lens SavedUserObject SavedUserObject Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedUserObject -> Text
_SavedUserObject'metadata
(\ x__ :: SavedUserObject
x__ y__ :: Text
y__ -> SavedUserObject
x__ {_SavedUserObject'metadata :: Text
_SavedUserObject'metadata = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SavedUserObject where
messageName :: Proxy SavedUserObject -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.SavedUserObject"
packedMessageDescriptor :: Proxy SavedUserObject -> ByteString
packedMessageDescriptor _
= "\n\
\\SISavedUserObject\DC2\RS\n\
\\n\
\identifier\CAN\SOH \SOH(\tR\n\
\identifier\DC20\n\
\\aversion\CAN\STX \SOH(\v2\SYN.tensorflow.VersionDefR\aversion\DC2\SUB\n\
\\bmetadata\CAN\ETX \SOH(\tR\bmetadata"
packedFileDescriptor :: Proxy SavedUserObject -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SavedUserObject)
fieldsByTag
= let
identifier__field_descriptor :: FieldDescriptor SavedUserObject
identifier__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SavedUserObject Text
-> FieldDescriptor SavedUserObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"identifier"
(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 SavedUserObject SavedUserObject Text Text
-> FieldAccessor SavedUserObject 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 "identifier" 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 @"identifier")) ::
Data.ProtoLens.FieldDescriptor SavedUserObject
version__field_descriptor :: FieldDescriptor SavedUserObject
version__field_descriptor
= String
-> FieldTypeDescriptor VersionDef
-> FieldAccessor SavedUserObject VersionDef
-> FieldDescriptor SavedUserObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"version"
(MessageOrGroup -> FieldTypeDescriptor VersionDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Versions.VersionDef)
(Lens
SavedUserObject
SavedUserObject
(Maybe VersionDef)
(Maybe VersionDef)
-> FieldAccessor SavedUserObject VersionDef
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'version" 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'version")) ::
Data.ProtoLens.FieldDescriptor SavedUserObject
metadata__field_descriptor :: FieldDescriptor SavedUserObject
metadata__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SavedUserObject Text
-> FieldDescriptor SavedUserObject
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"metadata"
(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 SavedUserObject SavedUserObject Text Text
-> FieldAccessor SavedUserObject 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 "metadata" 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 @"metadata")) ::
Data.ProtoLens.FieldDescriptor SavedUserObject
in
[(Tag, FieldDescriptor SavedUserObject)]
-> Map Tag (FieldDescriptor SavedUserObject)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SavedUserObject
identifier__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SavedUserObject
version__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor SavedUserObject
metadata__field_descriptor)]
unknownFields :: LensLike' f SavedUserObject FieldSet
unknownFields
= (SavedUserObject -> FieldSet)
-> (SavedUserObject -> FieldSet -> SavedUserObject)
-> Lens' SavedUserObject FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedUserObject -> FieldSet
_SavedUserObject'_unknownFields
(\ x__ :: SavedUserObject
x__ y__ :: FieldSet
y__ -> SavedUserObject
x__ {_SavedUserObject'_unknownFields :: FieldSet
_SavedUserObject'_unknownFields = FieldSet
y__})
defMessage :: SavedUserObject
defMessage
= $WSavedUserObject'_constructor :: Text -> Maybe VersionDef -> Text -> FieldSet -> SavedUserObject
SavedUserObject'_constructor
{_SavedUserObject'identifier :: Text
_SavedUserObject'identifier = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SavedUserObject'version :: Maybe VersionDef
_SavedUserObject'version = Maybe VersionDef
forall a. Maybe a
Prelude.Nothing,
_SavedUserObject'metadata :: Text
_SavedUserObject'metadata = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SavedUserObject'_unknownFields :: FieldSet
_SavedUserObject'_unknownFields = []}
parseMessage :: Parser SavedUserObject
parseMessage
= let
loop ::
SavedUserObject
-> Data.ProtoLens.Encoding.Bytes.Parser SavedUserObject
loop :: SavedUserObject -> Parser SavedUserObject
loop x :: SavedUserObject
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]))))
SavedUserObject -> Parser SavedUserObject
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SavedUserObject SavedUserObject FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedUserObject -> SavedUserObject
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 SavedUserObject SavedUserObject FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SavedUserObject
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))
"identifier"
SavedUserObject -> Parser SavedUserObject
loop
(Setter SavedUserObject SavedUserObject Text Text
-> Text -> SavedUserObject -> SavedUserObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "identifier" 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 @"identifier") Text
y SavedUserObject
x)
18
-> do VersionDef
y <- Parser VersionDef -> String -> Parser VersionDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser VersionDef -> Parser VersionDef
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 VersionDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"version"
SavedUserObject -> Parser SavedUserObject
loop (Setter SavedUserObject SavedUserObject VersionDef VersionDef
-> VersionDef -> SavedUserObject -> SavedUserObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "version" 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 @"version") VersionDef
y SavedUserObject
x)
26
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"metadata"
SavedUserObject -> Parser SavedUserObject
loop
(Setter SavedUserObject SavedUserObject Text Text
-> Text -> SavedUserObject -> SavedUserObject
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "metadata" 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 @"metadata") Text
y SavedUserObject
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SavedUserObject -> Parser SavedUserObject
loop
(Setter SavedUserObject SavedUserObject FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedUserObject -> SavedUserObject
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 SavedUserObject SavedUserObject FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SavedUserObject
x)
in
Parser SavedUserObject -> String -> Parser SavedUserObject
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SavedUserObject -> Parser SavedUserObject
loop SavedUserObject
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "SavedUserObject"
buildMessage :: SavedUserObject -> Builder
buildMessage
= \ _x :: SavedUserObject
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text SavedUserObject SavedUserObject Text Text
-> SavedUserObject -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "identifier" 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 @"identifier") SavedUserObject
_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.<>)
(case
FoldLike
(Maybe VersionDef)
SavedUserObject
SavedUserObject
(Maybe VersionDef)
(Maybe VersionDef)
-> SavedUserObject -> Maybe VersionDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'version" 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'version") SavedUserObject
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: VersionDef
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (VersionDef -> ByteString) -> VersionDef -> 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))
VersionDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
VersionDef
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text SavedUserObject SavedUserObject Text Text
-> SavedUserObject -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "metadata" 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 @"metadata") SavedUserObject
_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 26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet SavedUserObject SavedUserObject FieldSet FieldSet
-> SavedUserObject -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SavedUserObject SavedUserObject FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SavedUserObject
_x))))
instance Control.DeepSeq.NFData SavedUserObject where
rnf :: SavedUserObject -> ()
rnf
= \ x__ :: SavedUserObject
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedUserObject -> FieldSet
_SavedUserObject'_unknownFields SavedUserObject
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedUserObject -> Text
_SavedUserObject'identifier SavedUserObject
x__)
(Maybe VersionDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedUserObject -> Maybe VersionDef
_SavedUserObject'version SavedUserObject
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SavedUserObject -> Text
_SavedUserObject'metadata SavedUserObject
x__) ())))
data SavedVariable
= SavedVariable'_constructor {SavedVariable -> DataType
_SavedVariable'dtype :: !Proto.Tensorflow.Core.Framework.Types.DataType,
SavedVariable -> Maybe TensorShapeProto
_SavedVariable'shape :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto),
SavedVariable -> Bool
_SavedVariable'trainable :: !Prelude.Bool,
SavedVariable -> VariableSynchronization
_SavedVariable'synchronization :: !Proto.Tensorflow.Core.Framework.Variable.VariableSynchronization,
SavedVariable -> VariableAggregation
_SavedVariable'aggregation :: !Proto.Tensorflow.Core.Framework.Variable.VariableAggregation,
SavedVariable -> Text
_SavedVariable'name :: !Data.Text.Text,
SavedVariable -> FieldSet
_SavedVariable'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SavedVariable -> SavedVariable -> Bool
(SavedVariable -> SavedVariable -> Bool)
-> (SavedVariable -> SavedVariable -> Bool) -> Eq SavedVariable
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SavedVariable -> SavedVariable -> Bool
$c/= :: SavedVariable -> SavedVariable -> Bool
== :: SavedVariable -> SavedVariable -> Bool
$c== :: SavedVariable -> SavedVariable -> Bool
Prelude.Eq, Eq SavedVariable
Eq SavedVariable =>
(SavedVariable -> SavedVariable -> Ordering)
-> (SavedVariable -> SavedVariable -> Bool)
-> (SavedVariable -> SavedVariable -> Bool)
-> (SavedVariable -> SavedVariable -> Bool)
-> (SavedVariable -> SavedVariable -> Bool)
-> (SavedVariable -> SavedVariable -> SavedVariable)
-> (SavedVariable -> SavedVariable -> SavedVariable)
-> Ord SavedVariable
SavedVariable -> SavedVariable -> Bool
SavedVariable -> SavedVariable -> Ordering
SavedVariable -> SavedVariable -> SavedVariable
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 :: SavedVariable -> SavedVariable -> SavedVariable
$cmin :: SavedVariable -> SavedVariable -> SavedVariable
max :: SavedVariable -> SavedVariable -> SavedVariable
$cmax :: SavedVariable -> SavedVariable -> SavedVariable
>= :: SavedVariable -> SavedVariable -> Bool
$c>= :: SavedVariable -> SavedVariable -> Bool
> :: SavedVariable -> SavedVariable -> Bool
$c> :: SavedVariable -> SavedVariable -> Bool
<= :: SavedVariable -> SavedVariable -> Bool
$c<= :: SavedVariable -> SavedVariable -> Bool
< :: SavedVariable -> SavedVariable -> Bool
$c< :: SavedVariable -> SavedVariable -> Bool
compare :: SavedVariable -> SavedVariable -> Ordering
$ccompare :: SavedVariable -> SavedVariable -> Ordering
$cp1Ord :: Eq SavedVariable
Prelude.Ord)
instance Prelude.Show SavedVariable where
showsPrec :: Int -> SavedVariable -> ShowS
showsPrec _ __x :: SavedVariable
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SavedVariable -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SavedVariable
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SavedVariable "dtype" Proto.Tensorflow.Core.Framework.Types.DataType where
fieldOf :: Proxy# "dtype"
-> (DataType -> f DataType) -> SavedVariable -> f SavedVariable
fieldOf _
= ((DataType -> f DataType) -> SavedVariable -> f SavedVariable)
-> ((DataType -> f DataType) -> DataType -> f DataType)
-> (DataType -> f DataType)
-> SavedVariable
-> f SavedVariable
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedVariable -> DataType)
-> (SavedVariable -> DataType -> SavedVariable)
-> Lens SavedVariable SavedVariable DataType DataType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedVariable -> DataType
_SavedVariable'dtype
(\ x__ :: SavedVariable
x__ y__ :: DataType
y__ -> SavedVariable
x__ {_SavedVariable'dtype :: DataType
_SavedVariable'dtype = DataType
y__}))
(DataType -> f DataType) -> DataType -> f DataType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedVariable "shape" Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto where
fieldOf :: Proxy# "shape"
-> (TensorShapeProto -> f TensorShapeProto)
-> SavedVariable
-> f SavedVariable
fieldOf _
= ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> SavedVariable -> f SavedVariable)
-> ((TensorShapeProto -> f TensorShapeProto)
-> Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> (TensorShapeProto -> f TensorShapeProto)
-> SavedVariable
-> f SavedVariable
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedVariable -> Maybe TensorShapeProto)
-> (SavedVariable -> Maybe TensorShapeProto -> SavedVariable)
-> Lens
SavedVariable
SavedVariable
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedVariable -> Maybe TensorShapeProto
_SavedVariable'shape
(\ x__ :: SavedVariable
x__ y__ :: Maybe TensorShapeProto
y__ -> SavedVariable
x__ {_SavedVariable'shape :: Maybe TensorShapeProto
_SavedVariable'shape = Maybe TensorShapeProto
y__}))
(TensorShapeProto -> Lens' (Maybe TensorShapeProto) TensorShapeProto
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TensorShapeProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SavedVariable "maybe'shape" (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) where
fieldOf :: Proxy# "maybe'shape"
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> SavedVariable
-> f SavedVariable
fieldOf _
= ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> SavedVariable -> f SavedVariable)
-> ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> SavedVariable
-> f SavedVariable
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedVariable -> Maybe TensorShapeProto)
-> (SavedVariable -> Maybe TensorShapeProto -> SavedVariable)
-> Lens
SavedVariable
SavedVariable
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedVariable -> Maybe TensorShapeProto
_SavedVariable'shape
(\ x__ :: SavedVariable
x__ y__ :: Maybe TensorShapeProto
y__ -> SavedVariable
x__ {_SavedVariable'shape :: Maybe TensorShapeProto
_SavedVariable'shape = Maybe TensorShapeProto
y__}))
(Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> Maybe TensorShapeProto -> f (Maybe TensorShapeProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedVariable "trainable" Prelude.Bool where
fieldOf :: Proxy# "trainable"
-> (Bool -> f Bool) -> SavedVariable -> f SavedVariable
fieldOf _
= ((Bool -> f Bool) -> SavedVariable -> f SavedVariable)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> SavedVariable
-> f SavedVariable
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedVariable -> Bool)
-> (SavedVariable -> Bool -> SavedVariable)
-> Lens SavedVariable SavedVariable Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedVariable -> Bool
_SavedVariable'trainable
(\ x__ :: SavedVariable
x__ y__ :: Bool
y__ -> SavedVariable
x__ {_SavedVariable'trainable :: Bool
_SavedVariable'trainable = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedVariable "synchronization" Proto.Tensorflow.Core.Framework.Variable.VariableSynchronization where
fieldOf :: Proxy# "synchronization"
-> (VariableSynchronization -> f VariableSynchronization)
-> SavedVariable
-> f SavedVariable
fieldOf _
= ((VariableSynchronization -> f VariableSynchronization)
-> SavedVariable -> f SavedVariable)
-> ((VariableSynchronization -> f VariableSynchronization)
-> VariableSynchronization -> f VariableSynchronization)
-> (VariableSynchronization -> f VariableSynchronization)
-> SavedVariable
-> f SavedVariable
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedVariable -> VariableSynchronization)
-> (SavedVariable -> VariableSynchronization -> SavedVariable)
-> Lens
SavedVariable
SavedVariable
VariableSynchronization
VariableSynchronization
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedVariable -> VariableSynchronization
_SavedVariable'synchronization
(\ x__ :: SavedVariable
x__ y__ :: VariableSynchronization
y__ -> SavedVariable
x__ {_SavedVariable'synchronization :: VariableSynchronization
_SavedVariable'synchronization = VariableSynchronization
y__}))
(VariableSynchronization -> f VariableSynchronization)
-> VariableSynchronization -> f VariableSynchronization
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedVariable "aggregation" Proto.Tensorflow.Core.Framework.Variable.VariableAggregation where
fieldOf :: Proxy# "aggregation"
-> (VariableAggregation -> f VariableAggregation)
-> SavedVariable
-> f SavedVariable
fieldOf _
= ((VariableAggregation -> f VariableAggregation)
-> SavedVariable -> f SavedVariable)
-> ((VariableAggregation -> f VariableAggregation)
-> VariableAggregation -> f VariableAggregation)
-> (VariableAggregation -> f VariableAggregation)
-> SavedVariable
-> f SavedVariable
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedVariable -> VariableAggregation)
-> (SavedVariable -> VariableAggregation -> SavedVariable)
-> Lens
SavedVariable SavedVariable VariableAggregation VariableAggregation
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedVariable -> VariableAggregation
_SavedVariable'aggregation
(\ x__ :: SavedVariable
x__ y__ :: VariableAggregation
y__ -> SavedVariable
x__ {_SavedVariable'aggregation :: VariableAggregation
_SavedVariable'aggregation = VariableAggregation
y__}))
(VariableAggregation -> f VariableAggregation)
-> VariableAggregation -> f VariableAggregation
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SavedVariable "name" Data.Text.Text where
fieldOf :: Proxy# "name"
-> (Text -> f Text) -> SavedVariable -> f SavedVariable
fieldOf _
= ((Text -> f Text) -> SavedVariable -> f SavedVariable)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SavedVariable
-> f SavedVariable
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SavedVariable -> Text)
-> (SavedVariable -> Text -> SavedVariable)
-> Lens SavedVariable SavedVariable Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedVariable -> Text
_SavedVariable'name (\ x__ :: SavedVariable
x__ y__ :: Text
y__ -> SavedVariable
x__ {_SavedVariable'name :: Text
_SavedVariable'name = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SavedVariable where
messageName :: Proxy SavedVariable -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.SavedVariable"
packedMessageDescriptor :: Proxy SavedVariable -> ByteString
packedMessageDescriptor _
= "\n\
\\rSavedVariable\DC2*\n\
\\ENQdtype\CAN\SOH \SOH(\SO2\DC4.tensorflow.DataTypeR\ENQdtype\DC22\n\
\\ENQshape\CAN\STX \SOH(\v2\FS.tensorflow.TensorShapeProtoR\ENQshape\DC2\FS\n\
\\ttrainable\CAN\ETX \SOH(\bR\ttrainable\DC2M\n\
\\SIsynchronization\CAN\EOT \SOH(\SO2#.tensorflow.VariableSynchronizationR\SIsynchronization\DC2A\n\
\\vaggregation\CAN\ENQ \SOH(\SO2\US.tensorflow.VariableAggregationR\vaggregation\DC2\DC2\n\
\\EOTname\CAN\ACK \SOH(\tR\EOTname"
packedFileDescriptor :: Proxy SavedVariable -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SavedVariable)
fieldsByTag
= let
dtype__field_descriptor :: FieldDescriptor SavedVariable
dtype__field_descriptor
= String
-> FieldTypeDescriptor DataType
-> FieldAccessor SavedVariable DataType
-> FieldDescriptor SavedVariable
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"dtype"
(ScalarField DataType -> FieldTypeDescriptor DataType
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField DataType
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Types.DataType)
(WireDefault DataType
-> Lens SavedVariable SavedVariable DataType DataType
-> FieldAccessor SavedVariable DataType
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault DataType
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "dtype" 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 @"dtype")) ::
Data.ProtoLens.FieldDescriptor SavedVariable
shape__field_descriptor :: FieldDescriptor SavedVariable
shape__field_descriptor
= String
-> FieldTypeDescriptor TensorShapeProto
-> FieldAccessor SavedVariable TensorShapeProto
-> FieldDescriptor SavedVariable
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"shape"
(MessageOrGroup -> FieldTypeDescriptor TensorShapeProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto)
(Lens
SavedVariable
SavedVariable
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
-> FieldAccessor SavedVariable TensorShapeProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'shape" 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'shape")) ::
Data.ProtoLens.FieldDescriptor SavedVariable
trainable__field_descriptor :: FieldDescriptor SavedVariable
trainable__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor SavedVariable Bool
-> FieldDescriptor SavedVariable
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"trainable"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(WireDefault Bool
-> Lens SavedVariable SavedVariable Bool Bool
-> FieldAccessor SavedVariable Bool
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Bool
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "trainable" 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 @"trainable")) ::
Data.ProtoLens.FieldDescriptor SavedVariable
synchronization__field_descriptor :: FieldDescriptor SavedVariable
synchronization__field_descriptor
= String
-> FieldTypeDescriptor VariableSynchronization
-> FieldAccessor SavedVariable VariableSynchronization
-> FieldDescriptor SavedVariable
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"synchronization"
(ScalarField VariableSynchronization
-> FieldTypeDescriptor VariableSynchronization
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField VariableSynchronization
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Variable.VariableSynchronization)
(WireDefault VariableSynchronization
-> Lens
SavedVariable
SavedVariable
VariableSynchronization
VariableSynchronization
-> FieldAccessor SavedVariable VariableSynchronization
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault VariableSynchronization
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "synchronization" 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 @"synchronization")) ::
Data.ProtoLens.FieldDescriptor SavedVariable
aggregation__field_descriptor :: FieldDescriptor SavedVariable
aggregation__field_descriptor
= String
-> FieldTypeDescriptor VariableAggregation
-> FieldAccessor SavedVariable VariableAggregation
-> FieldDescriptor SavedVariable
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"aggregation"
(ScalarField VariableAggregation
-> FieldTypeDescriptor VariableAggregation
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField VariableAggregation
forall t. MessageEnum t => ScalarField t
Data.ProtoLens.EnumField ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Variable.VariableAggregation)
(WireDefault VariableAggregation
-> Lens
SavedVariable SavedVariable VariableAggregation VariableAggregation
-> FieldAccessor SavedVariable VariableAggregation
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault VariableAggregation
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "aggregation" 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 @"aggregation")) ::
Data.ProtoLens.FieldDescriptor SavedVariable
name__field_descriptor :: FieldDescriptor SavedVariable
name__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SavedVariable Text
-> FieldDescriptor SavedVariable
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 SavedVariable SavedVariable Text Text
-> FieldAccessor SavedVariable 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 SavedVariable
in
[(Tag, FieldDescriptor SavedVariable)]
-> Map Tag (FieldDescriptor SavedVariable)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SavedVariable
dtype__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SavedVariable
shape__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor SavedVariable
trainable__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor SavedVariable
synchronization__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor SavedVariable
aggregation__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor SavedVariable
name__field_descriptor)]
unknownFields :: LensLike' f SavedVariable FieldSet
unknownFields
= (SavedVariable -> FieldSet)
-> (SavedVariable -> FieldSet -> SavedVariable)
-> Lens' SavedVariable FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SavedVariable -> FieldSet
_SavedVariable'_unknownFields
(\ x__ :: SavedVariable
x__ y__ :: FieldSet
y__ -> SavedVariable
x__ {_SavedVariable'_unknownFields :: FieldSet
_SavedVariable'_unknownFields = FieldSet
y__})
defMessage :: SavedVariable
defMessage
= $WSavedVariable'_constructor :: DataType
-> Maybe TensorShapeProto
-> Bool
-> VariableSynchronization
-> VariableAggregation
-> Text
-> FieldSet
-> SavedVariable
SavedVariable'_constructor
{_SavedVariable'dtype :: DataType
_SavedVariable'dtype = DataType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SavedVariable'shape :: Maybe TensorShapeProto
_SavedVariable'shape = Maybe TensorShapeProto
forall a. Maybe a
Prelude.Nothing,
_SavedVariable'trainable :: Bool
_SavedVariable'trainable = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SavedVariable'synchronization :: VariableSynchronization
_SavedVariable'synchronization = VariableSynchronization
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SavedVariable'aggregation :: VariableAggregation
_SavedVariable'aggregation = VariableAggregation
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SavedVariable'name :: Text
_SavedVariable'name = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SavedVariable'_unknownFields :: FieldSet
_SavedVariable'_unknownFields = []}
parseMessage :: Parser SavedVariable
parseMessage
= let
loop ::
SavedVariable -> Data.ProtoLens.Encoding.Bytes.Parser SavedVariable
loop :: SavedVariable -> Parser SavedVariable
loop x :: SavedVariable
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]))))
SavedVariable -> Parser SavedVariable
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SavedVariable SavedVariable FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedVariable -> SavedVariable
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 SavedVariable SavedVariable FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SavedVariable
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> do DataType
y <- Parser DataType -> String -> Parser DataType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> DataType) -> Parser Int -> Parser DataType
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> DataType
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
"dtype"
SavedVariable -> Parser SavedVariable
loop (Setter SavedVariable SavedVariable DataType DataType
-> DataType -> SavedVariable -> SavedVariable
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "dtype" 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 @"dtype") DataType
y SavedVariable
x)
18
-> do TensorShapeProto
y <- Parser TensorShapeProto -> String -> Parser TensorShapeProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TensorShapeProto -> Parser TensorShapeProto
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 TensorShapeProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"shape"
SavedVariable -> Parser SavedVariable
loop (Setter
SavedVariable SavedVariable TensorShapeProto TensorShapeProto
-> TensorShapeProto -> SavedVariable -> SavedVariable
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "shape" 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 @"shape") TensorShapeProto
y SavedVariable
x)
24
-> do Bool
y <- Parser Bool -> String -> Parser Bool
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Bool) -> Parser Word64 -> Parser Bool
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
(Word64 -> Word64 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude./=) 0) Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"trainable"
SavedVariable -> Parser SavedVariable
loop
(Setter SavedVariable SavedVariable Bool Bool
-> Bool -> SavedVariable -> SavedVariable
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "trainable" 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 @"trainable") Bool
y SavedVariable
x)
32
-> do VariableSynchronization
y <- Parser VariableSynchronization
-> String -> Parser VariableSynchronization
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> VariableSynchronization)
-> Parser Int -> Parser VariableSynchronization
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> VariableSynchronization
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
"synchronization"
SavedVariable -> Parser SavedVariable
loop
(Setter
SavedVariable
SavedVariable
VariableSynchronization
VariableSynchronization
-> VariableSynchronization -> SavedVariable -> SavedVariable
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "synchronization" 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 @"synchronization") VariableSynchronization
y SavedVariable
x)
40
-> do VariableAggregation
y <- Parser VariableAggregation -> String -> Parser VariableAggregation
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> VariableAggregation)
-> Parser Int -> Parser VariableAggregation
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> VariableAggregation
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
"aggregation"
SavedVariable -> Parser SavedVariable
loop
(Setter
SavedVariable SavedVariable VariableAggregation VariableAggregation
-> VariableAggregation -> SavedVariable -> SavedVariable
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "aggregation" 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 @"aggregation") VariableAggregation
y SavedVariable
x)
50
-> 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"
SavedVariable -> Parser SavedVariable
loop (Setter SavedVariable SavedVariable Text Text
-> Text -> SavedVariable -> SavedVariable
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 SavedVariable
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SavedVariable -> Parser SavedVariable
loop
(Setter SavedVariable SavedVariable FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SavedVariable -> SavedVariable
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 SavedVariable SavedVariable FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SavedVariable
x)
in
Parser SavedVariable -> String -> Parser SavedVariable
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SavedVariable -> Parser SavedVariable
loop SavedVariable
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "SavedVariable"
buildMessage :: SavedVariable -> Builder
buildMessage
= \ _x :: SavedVariable
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: DataType
_v = FoldLike DataType SavedVariable SavedVariable DataType DataType
-> SavedVariable -> DataType
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "dtype" 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 @"dtype") SavedVariable
_x
in
if DataType -> DataType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) DataType
_v DataType
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)
((Int -> Builder) -> (DataType -> Int) -> DataType -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
DataType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
DataType
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe TensorShapeProto)
SavedVariable
SavedVariable
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
-> SavedVariable -> Maybe TensorShapeProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'shape" 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'shape") SavedVariable
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: TensorShapeProto
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (TensorShapeProto -> ByteString) -> TensorShapeProto -> 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))
TensorShapeProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TensorShapeProto
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v = FoldLike Bool SavedVariable SavedVariable Bool Bool
-> SavedVariable -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "trainable" 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 @"trainable") SavedVariable
_x
in
if Bool -> Bool -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Bool
_v Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Word64 -> Builder) -> (Bool -> Word64) -> Bool -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(\ b :: Bool
b -> if Bool
b then 1 else 0)
Bool
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: VariableSynchronization
_v
= FoldLike
VariableSynchronization
SavedVariable
SavedVariable
VariableSynchronization
VariableSynchronization
-> SavedVariable -> VariableSynchronization
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "synchronization" 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 @"synchronization") SavedVariable
_x
in
if VariableSynchronization -> VariableSynchronization -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) VariableSynchronization
_v VariableSynchronization
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 32)
((Int -> Builder)
-> (VariableSynchronization -> Int)
-> VariableSynchronization
-> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
VariableSynchronization -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
VariableSynchronization
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: VariableAggregation
_v
= FoldLike
VariableAggregation
SavedVariable
SavedVariable
VariableAggregation
VariableAggregation
-> SavedVariable -> VariableAggregation
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "aggregation" 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 @"aggregation") SavedVariable
_x
in
if VariableAggregation -> VariableAggregation -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) VariableAggregation
_v VariableAggregation
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 40)
((Int -> Builder)
-> (VariableAggregation -> Int) -> VariableAggregation -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
VariableAggregation -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
VariableAggregation
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike Text SavedVariable SavedVariable Text Text
-> SavedVariable -> 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") SavedVariable
_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 50)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet SavedVariable SavedVariable FieldSet FieldSet
-> SavedVariable -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SavedVariable SavedVariable FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SavedVariable
_x)))))))
instance Control.DeepSeq.NFData SavedVariable where
rnf :: SavedVariable -> ()
rnf
= \ x__ :: SavedVariable
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedVariable -> FieldSet
_SavedVariable'_unknownFields SavedVariable
x__)
(DataType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedVariable -> DataType
_SavedVariable'dtype SavedVariable
x__)
(Maybe TensorShapeProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedVariable -> Maybe TensorShapeProto
_SavedVariable'shape SavedVariable
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedVariable -> Bool
_SavedVariable'trainable SavedVariable
x__)
(VariableSynchronization -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedVariable -> VariableSynchronization
_SavedVariable'synchronization SavedVariable
x__)
(VariableAggregation -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SavedVariable -> VariableAggregation
_SavedVariable'aggregation SavedVariable
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SavedVariable -> Text
_SavedVariable'name SavedVariable
x__) ()))))))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= "\n\
\1tensorflow/core/protobuf/saved_object_graph.proto\DC2\n\
\tensorflow\SUB,tensorflow/core/framework/tensor_shape.proto\SUB%tensorflow/core/framework/types.proto\SUB(tensorflow/core/framework/variable.proto\SUB(tensorflow/core/framework/versions.proto\SUB%tensorflow/core/protobuf/struct.proto\SUB5tensorflow/core/protobuf/trackable_object_graph.proto\"\142\STX\n\
\\DLESavedObjectGraph\DC2-\n\
\\ENQnodes\CAN\SOH \ETX(\v2\ETB.tensorflow.SavedObjectR\ENQnodes\DC2b\n\
\\DC2concrete_functions\CAN\STX \ETX(\v23.tensorflow.SavedObjectGraph.ConcreteFunctionsEntryR\DC1concreteFunctions\SUBg\n\
\\SYNConcreteFunctionsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC27\n\
\\ENQvalue\CAN\STX \SOH(\v2!.tensorflow.SavedConcreteFunctionR\ENQvalue:\STX8\SOH\"\224\ACK\n\
\\vSavedObject\DC2\\\n\
\\bchildren\CAN\SOH \ETX(\v2@.tensorflow.TrackableObjectGraph.TrackableObject.ObjectReferenceR\bchildren\DC2m\n\
\\SOslot_variables\CAN\ETX \ETX(\v2F.tensorflow.TrackableObjectGraph.TrackableObject.SlotVariableReferenceR\rslotVariables\DC2>\n\
\\vuser_object\CAN\EOT \SOH(\v2\ESC.tensorflow.SavedUserObjectH\NULR\n\
\userObject\DC2.\n\
\\ENQasset\CAN\ENQ \SOH(\v2\SYN.tensorflow.SavedAssetH\NULR\ENQasset\DC27\n\
\\bfunction\CAN\ACK \SOH(\v2\EM.tensorflow.SavedFunctionH\NULR\bfunction\DC27\n\
\\bvariable\CAN\a \SOH(\v2\EM.tensorflow.SavedVariableH\NULR\bvariable\DC2]\n\
\\SYNbare_concrete_function\CAN\b \SOH(\v2%.tensorflow.SavedBareConcreteFunctionH\NULR\DC4bareConcreteFunction\DC27\n\
\\bconstant\CAN\t \SOH(\v2\EM.tensorflow.SavedConstantH\NULR\bconstant\DC27\n\
\\bresource\CAN\n\
\ \SOH(\v2\EM.tensorflow.SavedResourceH\NULR\bresource\DC2W\n\
\\DLEsaveable_objects\CAN\v \ETX(\v2,.tensorflow.SavedObject.SaveableObjectsEntryR\SIsaveableObjects\SUB^\n\
\\DC4SaveableObjectsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC20\n\
\\ENQvalue\CAN\STX \SOH(\v2\SUB.tensorflow.SaveableObjectR\ENQvalue:\STX8\SOHB\ACK\n\
\\EOTkindJ\EOT\b\STX\DLE\ETXR\n\
\attributes\"\DEL\n\
\\SISavedUserObject\DC2\RS\n\
\\n\
\identifier\CAN\SOH \SOH(\tR\n\
\identifier\DC20\n\
\\aversion\CAN\STX \SOH(\v2\SYN.tensorflow.VersionDefR\aversion\DC2\SUB\n\
\\bmetadata\CAN\ETX \SOH(\tR\bmetadata\"=\n\
\\n\
\SavedAsset\DC2/\n\
\\DC4asset_file_def_index\CAN\SOH \SOH(\ENQR\DC1assetFileDefIndex\"}\n\
\\rSavedFunction\DC2-\n\
\\DC2concrete_functions\CAN\SOH \ETX(\tR\DC1concreteFunctions\DC2=\n\
\\rfunction_spec\CAN\STX \SOH(\v2\CAN.tensorflow.FunctionSpecR\ffunctionSpec\"\227\SOH\n\
\\NAKSavedConcreteFunction\DC2!\n\
\\fbound_inputs\CAN\STX \ETX(\ENQR\vboundInputs\DC2_\n\
\\GScanonicalized_input_signature\CAN\ETX \SOH(\v2\ESC.tensorflow.StructuredValueR\ESCcanonicalizedInputSignature\DC2F\n\
\\DLEoutput_signature\CAN\EOT \SOH(\v2\ESC.tensorflow.StructuredValueR\SIoutputSignature\"\192\SOH\n\
\\EMSavedBareConcreteFunction\DC24\n\
\\SYNconcrete_function_name\CAN\SOH \SOH(\tR\DC4concreteFunctionName\DC2+\n\
\\DC1argument_keywords\CAN\STX \ETX(\tR\DLEargumentKeywords\DC2@\n\
\\FSallowed_positional_arguments\CAN\ETX \SOH(\ETXR\SUBallowedPositionalArguments\"-\n\
\\rSavedConstant\DC2\FS\n\
\\toperation\CAN\SOH \SOH(\tR\toperation\"\179\STX\n\
\\rSavedVariable\DC2*\n\
\\ENQdtype\CAN\SOH \SOH(\SO2\DC4.tensorflow.DataTypeR\ENQdtype\DC22\n\
\\ENQshape\CAN\STX \SOH(\v2\FS.tensorflow.TensorShapeProtoR\ENQshape\DC2\FS\n\
\\ttrainable\CAN\ETX \SOH(\bR\ttrainable\DC2M\n\
\\SIsynchronization\CAN\EOT \SOH(\SO2#.tensorflow.VariableSynchronizationR\SIsynchronization\DC2A\n\
\\vaggregation\CAN\ENQ \SOH(\SO2\US.tensorflow.VariableAggregationR\vaggregation\DC2\DC2\n\
\\EOTname\CAN\ACK \SOH(\tR\EOTname\"\188\SOH\n\
\\fFunctionSpec\DC2=\n\
\\vfullargspec\CAN\SOH \SOH(\v2\ESC.tensorflow.StructuredValueR\vfullargspec\DC2\ESC\n\
\\tis_method\CAN\STX \SOH(\bR\bisMethod\DC2D\n\
\\SIinput_signature\CAN\ENQ \SOH(\v2\ESC.tensorflow.StructuredValueR\SOinputSignatureJ\EOT\b\ETX\DLE\EOTJ\EOT\b\EOT\DLE\ENQ\"'\n\
\\rSavedResource\DC2\SYN\n\
\\ACKdevice\CAN\SOH \SOH(\tR\ACKdevice\"`\n\
\\SOSaveableObject\DC2#\n\
\\rsave_function\CAN\STX \SOH(\ENQR\fsaveFunction\DC2)\n\
\\DLErestore_function\CAN\ETX \SOH(\ENQR\SIrestoreFunctionBMZHgithub.com/tensorflow/tensorflow/tensorflow/go/core/core_protos_go_proto\248\SOH\SOHJ\198\&4\n\
\\a\DC2\ENQ\NUL\NUL\171\SOH\SOH\n\
\\b\n\
\\SOH\f\DC2\ETX\NUL\NUL\DC2\n\
\\b\n\
\\SOH\STX\DC2\ETX\STX\NUL\DC3\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX\EOT\NUL6\n\
\\t\n\
\\STX\ETX\SOH\DC2\ETX\ENQ\NUL/\n\
\\t\n\
\\STX\ETX\STX\DC2\ETX\ACK\NUL2\n\
\\t\n\
\\STX\ETX\ETX\DC2\ETX\a\NUL2\n\
\\t\n\
\\STX\ETX\EOT\DC2\ETX\b\NUL/\n\
\\t\n\
\\STX\ETX\ENQ\DC2\ETX\t\NUL?\n\
\\b\n\
\\SOH\b\DC2\ETX\v\NUL\US\n\
\\t\n\
\\STX\b\US\DC2\ETX\v\NUL\US\n\
\\b\n\
\\SOH\b\DC2\ETX\f\NUL_\n\
\\t\n\
\\STX\b\v\DC2\ETX\f\NUL_\n\
\\234\ETX\n\
\\STX\EOT\NUL\DC2\EOT\ETB\NUL!\SOH2\203\SOH A SavedObjectGraph is part of object-based SavedModels in TF 2.0. It\n\
\ describes the directed graph of Python objects (or equivalent in other\n\
\ languages) that make up a model, with nodes[0] at the root.\n\
\2\143\STX SavedObjectGraph shares some structure with TrackableObjectGraph, but\n\
\ SavedObjectGraph belongs to the MetaGraph and contains pointers to functions\n\
\ and type information, while TrackableObjectGraph lives in the checkpoint\n\
\ and contains pointers only to variable values.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\ETB\b\CAN\n\
\\161\SOH\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\FS\STX!\SUB\147\SOH Flattened list of objects in the object graph.\n\
\\n\
\ The position of the object in this list indicates its id.\n\
\ Nodes[0] is considered the root node.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\EOT\DC2\ETX\FS\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\FS\v\SYN\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\FS\ETB\FS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\FS\US \n\
\\149\SOH\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX \STX<\SUB\135\SOH Information about captures and output structures in concrete functions.\n\
\ Referenced from SavedBareConcreteFunction and SavedFunction.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX \STX$\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX %7\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX :;\n\
\\n\
\\n\
\\STX\EOT\SOH\DC2\EOT#\NULA\SOH\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX#\b\DC3\n\
\\146\SOH\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX(\STXM\SUB\132\SOH Objects which this object depends on: named edges in the dependency\n\
\ graph.\n\
\\n\
\ Note: currently only valid if kind == \"user_object\".\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\EOT\DC2\ETX(\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX(\v?\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX(@H\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX(KL\n\
\I\n\
\\ETX\EOT\SOH\n\
\\DC2\ETX+\STX\CAN\SUB= Removed when forking SavedObject from TrackableObjectGraph.\n\
\\n\
\\v\n\
\\EOT\EOT\SOH\n\
\\NUL\DC2\ETX+\v\ETB\n\
\\n\
\\n\
\\ETX\EOT\SOH\t\DC2\ETX,\STX\r\n\
\\v\n\
\\EOT\EOT\SOH\t\NUL\DC2\ETX,\v\f\n\
\\f\n\
\\ENQ\EOT\SOH\t\NUL\SOH\DC2\ETX,\v\f\n\
\\f\n\
\\ENQ\EOT\SOH\t\NUL\STX\DC2\ETX,\v\f\n\
\\239\SOH\n\
\\EOT\EOT\SOH\STX\SOH\DC2\EOT3\STX4\EM\SUB\224\SOH Slot variables owned by this object. This describes the three-way\n\
\ (optimizer, variable, slot variable) relationship; none of the three\n\
\ depend on the others directly.\n\
\\n\
\ Note: currently only valid if kind == \"user_object\".\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\EOT\DC2\ETX3\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX3\vE\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX4\ACK\DC4\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX4\ETB\CAN\n\
\\f\n\
\\EOT\EOT\SOH\b\NUL\DC2\EOT6\STX>\ETX\n\
\\f\n\
\\ENQ\EOT\SOH\b\NUL\SOH\DC2\ETX6\b\f\n\
\\v\n\
\\EOT\EOT\SOH\STX\STX\DC2\ETX7\EOT$\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ACK\DC2\ETX7\EOT\DC3\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX7\DC4\US\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX7\"#\n\
\\v\n\
\\EOT\EOT\SOH\STX\ETX\DC2\ETX8\EOT\EM\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\ACK\DC2\ETX8\EOT\SO\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETX8\SI\DC4\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETX8\ETB\CAN\n\
\\v\n\
\\EOT\EOT\SOH\STX\EOT\DC2\ETX9\EOT\US\n\
\\f\n\
\\ENQ\EOT\SOH\STX\EOT\ACK\DC2\ETX9\EOT\DC1\n\
\\f\n\
\\ENQ\EOT\SOH\STX\EOT\SOH\DC2\ETX9\DC2\SUB\n\
\\f\n\
\\ENQ\EOT\SOH\STX\EOT\ETX\DC2\ETX9\GS\RS\n\
\\v\n\
\\EOT\EOT\SOH\STX\ENQ\DC2\ETX:\EOT\US\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ENQ\ACK\DC2\ETX:\EOT\DC1\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ENQ\SOH\DC2\ETX:\DC2\SUB\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ENQ\ETX\DC2\ETX:\GS\RS\n\
\\v\n\
\\EOT\EOT\SOH\STX\ACK\DC2\ETX;\EOT9\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ACK\ACK\DC2\ETX;\EOT\GS\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ACK\SOH\DC2\ETX;\RS4\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ACK\ETX\DC2\ETX;78\n\
\\v\n\
\\EOT\EOT\SOH\STX\a\DC2\ETX<\EOT\US\n\
\\f\n\
\\ENQ\EOT\SOH\STX\a\ACK\DC2\ETX<\EOT\DC1\n\
\\f\n\
\\ENQ\EOT\SOH\STX\a\SOH\DC2\ETX<\DC2\SUB\n\
\\f\n\
\\ENQ\EOT\SOH\STX\a\ETX\DC2\ETX<\GS\RS\n\
\\v\n\
\\EOT\EOT\SOH\STX\b\DC2\ETX=\EOT \n\
\\f\n\
\\ENQ\EOT\SOH\STX\b\ACK\DC2\ETX=\EOT\DC1\n\
\\f\n\
\\ENQ\EOT\SOH\STX\b\SOH\DC2\ETX=\DC2\SUB\n\
\\f\n\
\\ENQ\EOT\SOH\STX\b\ETX\DC2\ETX=\GS\US\n\
\\v\n\
\\EOT\EOT\SOH\STX\t\DC2\ETX@\STX4\n\
\\f\n\
\\ENQ\EOT\SOH\STX\t\ACK\DC2\ETX@\STX\GS\n\
\\f\n\
\\ENQ\EOT\SOH\STX\t\SOH\DC2\ETX@\RS.\n\
\\f\n\
\\ENQ\EOT\SOH\STX\t\ETX\DC2\ETX@13\n\
\\199\STX\n\
\\STX\EOT\STX\DC2\EOTI\NULP\SOH\SUB\186\STX A SavedUserObject is an object (in the object-oriented language of the\n\
\ TensorFlow program) of some user- or framework-defined class other than\n\
\ those handled specifically by the other kinds of SavedObjects.\n\
\\n\
\ This object cannot be evaluated as a tensor, and therefore cannot be bound\n\
\ to an input of a function.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETXI\b\ETB\n\
\W\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETXK\STX\CAN\SUBJ Corresponds to a registration of the type to use in the loading program.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ENQ\DC2\ETXK\STX\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETXK\t\DC3\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETXK\SYN\ETB\n\
\M\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETXM\STX\EM\SUB@ Version information from the producer of this SavedUserObject.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETXM\STX\f\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETXM\r\DC4\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETXM\ETB\CAN\n\
\/\n\
\\EOT\EOT\STX\STX\STX\DC2\ETXO\STX\SYN\SUB\" Initialization-related metadata.\n\
\\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ENQ\DC2\ETXO\STX\b\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\SOH\DC2\ETXO\t\DC1\n\
\\f\n\
\\ENQ\EOT\STX\STX\STX\ETX\DC2\ETXO\DC4\NAK\n\
\\139\STX\n\
\\STX\EOT\ETX\DC2\EOTW\NUL]\SOH\SUB\254\SOH A SavedAsset points to an asset in the MetaGraph.\n\
\\n\
\ When bound to a function this object evaluates to a tensor with the absolute\n\
\ filename. Users should not depend on a particular part of the filename to\n\
\ remain stable (e.g. basename could be changed).\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETXW\b\DC2\n\
\\202\SOH\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETX\\\STX!\SUB\188\SOH Index into `MetaGraphDef.asset_file_def[]` that describes the Asset.\n\
\\n\
\ Only the field `AssetFileDef.filename` is used. Other fields, such as\n\
\ `AssetFileDef.tensor_info`, MUST be ignored.\n\
\\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ENQ\DC2\ETX\\\STX\a\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX\\\b\FS\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX\\\US \n\
\V\n\
\\STX\EOT\EOT\DC2\EOT`\NULc\SOH\SUBJ A function with multiple signatures, possibly with non-Tensor arguments.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\EOT\SOH\DC2\ETX`\b\NAK\n\
\\v\n\
\\EOT\EOT\EOT\STX\NUL\DC2\ETXa\STX)\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\EOT\DC2\ETXa\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ENQ\DC2\ETXa\v\DC1\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\ETXa\DC2$\n\
\\f\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\ETXa'(\n\
\\v\n\
\\EOT\EOT\EOT\STX\SOH\DC2\ETXb\STX!\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\ACK\DC2\ETXb\STX\SO\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\SOH\DC2\ETXb\SI\FS\n\
\\f\n\
\\ENQ\EOT\EOT\STX\SOH\ETX\DC2\ETXb\US \n\
\\139\SOH\n\
\\STX\EOT\ENQ\DC2\EOTg\NULt\SOH\SUB\DEL Stores low-level information about a concrete function. Referenced in either\n\
\ a SavedFunction or a SavedBareConcreteFunction.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\ENQ\SOH\DC2\ETXg\b\GS\n\
\\254\SOH\n\
\\EOT\EOT\ENQ\STX\NUL\DC2\ETXl\STX\"\SUB\240\SOH Bound inputs to the function. The SavedObjects identified by the node ids\n\
\ given here are appended as extra inputs to the caller-supplied inputs.\n\
\ The only types of SavedObjects valid here are SavedVariable, SavedResource\n\
\ and SavedAsset.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\EOT\DC2\ETXl\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ENQ\DC2\ETXl\v\DLE\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\SOH\DC2\ETXl\DC1\GS\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\NUL\ETX\DC2\ETXl !\n\
\_\n\
\\EOT\EOT\ENQ\STX\SOH\DC2\ETXo\STX4\SUBR Input in canonicalized form that was received to create this concrete\n\
\ function.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\ACK\DC2\ETXo\STX\DC1\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\SOH\DC2\ETXo\DC2/\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\SOH\ETX\DC2\ETXo23\n\
\\224\SOH\n\
\\EOT\EOT\ENQ\STX\STX\DC2\ETXs\STX'\SUB\210\SOH Output that was the return value of this function after replacing all\n\
\ Tensors with TensorSpecs. This can be an arbitrary nested function and will\n\
\ be used to reconstruct the full structure from pure tensors.\n\
\\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\ACK\DC2\ETXs\STX\DC1\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\SOH\DC2\ETXs\DC2\"\n\
\\f\n\
\\ENQ\EOT\ENQ\STX\STX\ETX\DC2\ETXs%&\n\
\\n\
\\n\
\\STX\EOT\ACK\DC2\EOTv\NUL~\SOH\n\
\\n\
\\n\
\\ETX\EOT\ACK\SOH\DC2\ETXv\b!\n\
\2\n\
\\EOT\EOT\ACK\STX\NUL\DC2\ETXx\STX$\SUB% Identifies a SavedConcreteFunction.\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ENQ\DC2\ETXx\STX\b\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\SOH\DC2\ETXx\t\US\n\
\\f\n\
\\ENQ\EOT\ACK\STX\NUL\ETX\DC2\ETXx\"#\n\
\E\n\
\\EOT\EOT\ACK\STX\SOH\DC2\ETX{\STX(\SUB8 A sequence of unique strings, one per Tensor argument.\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\EOT\DC2\ETX{\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ENQ\DC2\ETX{\v\DC1\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\SOH\DC2\ETX{\DC2#\n\
\\f\n\
\\ENQ\EOT\ACK\STX\SOH\ETX\DC2\ETX{&'\n\
\U\n\
\\EOT\EOT\ACK\STX\STX\DC2\ETX}\STX)\SUBH The prefix of `argument_keywords` which may be identified by position.\n\
\\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\ENQ\DC2\ETX}\STX\a\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\SOH\DC2\ETX}\b$\n\
\\f\n\
\\ENQ\EOT\ACK\STX\STX\ETX\DC2\ETX}'(\n\
\\f\n\
\\STX\EOT\a\DC2\ACK\128\SOH\NUL\131\SOH\SOH\n\
\\v\n\
\\ETX\EOT\a\SOH\DC2\EOT\128\SOH\b\NAK\n\
\X\n\
\\EOT\EOT\a\STX\NUL\DC2\EOT\130\SOH\STX\ETB\SUBJ An Operation name for a ConstantOp in this SavedObjectGraph's MetaGraph.\n\
\\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\ENQ\DC2\EOT\130\SOH\STX\b\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\SOH\DC2\EOT\130\SOH\t\DC2\n\
\\r\n\
\\ENQ\EOT\a\STX\NUL\ETX\DC2\EOT\130\SOH\NAK\SYN\n\
\g\n\
\\STX\EOT\b\DC2\ACK\135\SOH\NUL\142\SOH\SOH\SUBY Represents a Variable that is initialized by loading the contents from the\n\
\ checkpoint.\n\
\\n\
\\v\n\
\\ETX\EOT\b\SOH\DC2\EOT\135\SOH\b\NAK\n\
\\f\n\
\\EOT\EOT\b\STX\NUL\DC2\EOT\136\SOH\STX\NAK\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\ACK\DC2\EOT\136\SOH\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\SOH\DC2\EOT\136\SOH\v\DLE\n\
\\r\n\
\\ENQ\EOT\b\STX\NUL\ETX\DC2\EOT\136\SOH\DC3\DC4\n\
\\f\n\
\\EOT\EOT\b\STX\SOH\DC2\EOT\137\SOH\STX\GS\n\
\\r\n\
\\ENQ\EOT\b\STX\SOH\ACK\DC2\EOT\137\SOH\STX\DC2\n\
\\r\n\
\\ENQ\EOT\b\STX\SOH\SOH\DC2\EOT\137\SOH\DC3\CAN\n\
\\r\n\
\\ENQ\EOT\b\STX\SOH\ETX\DC2\EOT\137\SOH\ESC\FS\n\
\\f\n\
\\EOT\EOT\b\STX\STX\DC2\EOT\138\SOH\STX\NAK\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\ENQ\DC2\EOT\138\SOH\STX\ACK\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\SOH\DC2\EOT\138\SOH\a\DLE\n\
\\r\n\
\\ENQ\EOT\b\STX\STX\ETX\DC2\EOT\138\SOH\DC3\DC4\n\
\\f\n\
\\EOT\EOT\b\STX\ETX\DC2\EOT\139\SOH\STX.\n\
\\r\n\
\\ENQ\EOT\b\STX\ETX\ACK\DC2\EOT\139\SOH\STX\EM\n\
\\r\n\
\\ENQ\EOT\b\STX\ETX\SOH\DC2\EOT\139\SOH\SUB)\n\
\\r\n\
\\ENQ\EOT\b\STX\ETX\ETX\DC2\EOT\139\SOH,-\n\
\\f\n\
\\EOT\EOT\b\STX\EOT\DC2\EOT\140\SOH\STX&\n\
\\r\n\
\\ENQ\EOT\b\STX\EOT\ACK\DC2\EOT\140\SOH\STX\NAK\n\
\\r\n\
\\ENQ\EOT\b\STX\EOT\SOH\DC2\EOT\140\SOH\SYN!\n\
\\r\n\
\\ENQ\EOT\b\STX\EOT\ETX\DC2\EOT\140\SOH$%\n\
\\f\n\
\\EOT\EOT\b\STX\ENQ\DC2\EOT\141\SOH\STX\DC2\n\
\\r\n\
\\ENQ\EOT\b\STX\ENQ\ENQ\DC2\EOT\141\SOH\STX\b\n\
\\r\n\
\\ENQ\EOT\b\STX\ENQ\SOH\DC2\EOT\141\SOH\t\r\n\
\\r\n\
\\ENQ\EOT\b\STX\ENQ\ETX\DC2\EOT\141\SOH\DLE\DC1\n\
\\139\SOH\n\
\\STX\EOT\t\DC2\ACK\146\SOH\NUL\155\SOH\SOH\SUB} Represents `FunctionSpec` used in `Function`. This represents a\n\
\ function that has been wrapped as a TensorFlow `Function`.\n\
\\n\
\\v\n\
\\ETX\EOT\t\SOH\DC2\EOT\146\SOH\b\DC4\n\
\<\n\
\\EOT\EOT\t\STX\NUL\DC2\EOT\148\SOH\STX\"\SUB. Full arg spec from inspect.getfullargspec().\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\ACK\DC2\EOT\148\SOH\STX\DC1\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\SOH\DC2\EOT\148\SOH\DC2\GS\n\
\\r\n\
\\ENQ\EOT\t\STX\NUL\ETX\DC2\EOT\148\SOH !\n\
\7\n\
\\EOT\EOT\t\STX\SOH\DC2\EOT\150\SOH\STX\NAK\SUB) Whether this represents a class method.\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\SOH\ENQ\DC2\EOT\150\SOH\STX\ACK\n\
\\r\n\
\\ENQ\EOT\t\STX\SOH\SOH\DC2\EOT\150\SOH\a\DLE\n\
\\r\n\
\\ENQ\EOT\t\STX\SOH\ETX\DC2\EOT\150\SOH\DC3\DC4\n\
\2\n\
\\EOT\EOT\t\STX\STX\DC2\EOT\152\SOH\STX&\SUB$ The input signature, if specified.\n\
\\n\
\\r\n\
\\ENQ\EOT\t\STX\STX\ACK\DC2\EOT\152\SOH\STX\DC1\n\
\\r\n\
\\ENQ\EOT\t\STX\STX\SOH\DC2\EOT\152\SOH\DC2!\n\
\\r\n\
\\ENQ\EOT\t\STX\STX\ETX\DC2\EOT\152\SOH$%\n\
\\v\n\
\\ETX\EOT\t\t\DC2\EOT\154\SOH\STX\DLE\n\
\\f\n\
\\EOT\EOT\t\t\NUL\DC2\EOT\154\SOH\v\f\n\
\\r\n\
\\ENQ\EOT\t\t\NUL\SOH\DC2\EOT\154\SOH\v\f\n\
\\r\n\
\\ENQ\EOT\t\t\NUL\STX\DC2\EOT\154\SOH\v\f\n\
\\f\n\
\\EOT\EOT\t\t\SOH\DC2\EOT\154\SOH\SO\SI\n\
\\r\n\
\\ENQ\EOT\t\t\SOH\SOH\DC2\EOT\154\SOH\SO\SI\n\
\\r\n\
\\ENQ\EOT\t\t\SOH\STX\DC2\EOT\154\SOH\SO\SI\n\
\\193\SOH\n\
\\STX\EOT\n\
\\DC2\ACK\160\SOH\NUL\165\SOH\SOH\SUB\178\SOH A SavedResource represents a TF object that holds state during its lifetime.\n\
\ An object of this type can have a reference to a:\n\
\ create_resource() and an initialize() function.\n\
\\n\
\\v\n\
\\ETX\EOT\n\
\\SOH\DC2\EOT\160\SOH\b\NAK\n\
\\173\SOH\n\
\\EOT\EOT\n\
\\STX\NUL\DC2\EOT\164\SOH\STX\DC4\SUB\158\SOH A device specification indicating a required placement for the resource\n\
\ creation function, e.g. \"CPU\". An empty string allows the user to select a\n\
\ device.\n\
\\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\ENQ\DC2\EOT\164\SOH\STX\b\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\SOH\DC2\EOT\164\SOH\t\SI\n\
\\r\n\
\\ENQ\EOT\n\
\\STX\NUL\ETX\DC2\EOT\164\SOH\DC2\DC3\n\
\\f\n\
\\STX\EOT\v\DC2\ACK\167\SOH\NUL\171\SOH\SOH\n\
\\v\n\
\\ETX\EOT\v\SOH\DC2\EOT\167\SOH\b\SYN\n\
\X\n\
\\EOT\EOT\v\STX\NUL\DC2\EOT\169\SOH\STX\SUB\SUBJ Node ids of concrete functions for saving and loading from a checkpoint.\n\
\\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\ENQ\DC2\EOT\169\SOH\STX\a\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\SOH\DC2\EOT\169\SOH\b\NAK\n\
\\r\n\
\\ENQ\EOT\v\STX\NUL\ETX\DC2\EOT\169\SOH\CAN\EM\n\
\\f\n\
\\EOT\EOT\v\STX\SOH\DC2\EOT\170\SOH\STX\GS\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\ENQ\DC2\EOT\170\SOH\STX\a\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\SOH\DC2\EOT\170\SOH\b\CAN\n\
\\r\n\
\\ENQ\EOT\v\STX\SOH\ETX\DC2\EOT\170\SOH\ESC\FSb\ACKproto3"