{- This file was auto-generated from tensorflow/core/protobuf/saved_object_graph.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Tensorflow.Core.Protobuf.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
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.fullargspec' @:: Lens' FunctionSpec Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'fullargspec' @:: Lens' FunctionSpec (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.isMethod' @:: Lens' FunctionSpec Prelude.Bool@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.inputSignature' @:: Lens' FunctionSpec Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'inputSignature' @:: Lens' FunctionSpec (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue)@ -}
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__) ())))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.saveFunction' @:: Lens' SaveableObject Data.Int.Int32@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.restoreFunction' @:: Lens' SaveableObject Data.Int.Int32@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.assetFileDefIndex' @:: Lens' SavedAsset Data.Int.Int32@ -}
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__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.concreteFunctionName' @:: Lens' SavedBareConcreteFunction Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.argumentKeywords' @:: Lens' SavedBareConcreteFunction [Data.Text.Text]@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.vec'argumentKeywords' @:: Lens' SavedBareConcreteFunction (Data.Vector.Vector Data.Text.Text)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.allowedPositionalArguments' @:: Lens' SavedBareConcreteFunction Data.Int.Int64@ -}
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__) ())))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.boundInputs' @:: Lens' SavedConcreteFunction [Data.Int.Int32]@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.vec'boundInputs' @:: Lens' SavedConcreteFunction (Data.Vector.Unboxed.Vector Data.Int.Int32)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.canonicalizedInputSignature' @:: Lens' SavedConcreteFunction Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'canonicalizedInputSignature' @:: Lens' SavedConcreteFunction (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.outputSignature' @:: Lens' SavedConcreteFunction Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'outputSignature' @:: Lens' SavedConcreteFunction (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Struct.StructuredValue)@ -}
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__) ())))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.operation' @:: Lens' SavedConstant Data.Text.Text@ -}
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__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.concreteFunctions' @:: Lens' SavedFunction [Data.Text.Text]@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.vec'concreteFunctions' @:: Lens' SavedFunction (Data.Vector.Vector Data.Text.Text)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.functionSpec' @:: Lens' SavedFunction FunctionSpec@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'functionSpec' @:: Lens' SavedFunction (Prelude.Maybe FunctionSpec)@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.children' @:: Lens' SavedObject [Proto.Tensorflow.Core.Protobuf.TrackableObjectGraph.TrackableObjectGraph'TrackableObject'ObjectReference]@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.vec'children' @:: Lens' SavedObject (Data.Vector.Vector Proto.Tensorflow.Core.Protobuf.TrackableObjectGraph.TrackableObjectGraph'TrackableObject'ObjectReference)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.slotVariables' @:: Lens' SavedObject [Proto.Tensorflow.Core.Protobuf.TrackableObjectGraph.TrackableObjectGraph'TrackableObject'SlotVariableReference]@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.vec'slotVariables' @:: Lens' SavedObject (Data.Vector.Vector Proto.Tensorflow.Core.Protobuf.TrackableObjectGraph.TrackableObjectGraph'TrackableObject'SlotVariableReference)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.saveableObjects' @:: Lens' SavedObject (Data.Map.Map Data.Text.Text SaveableObject)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'kind' @:: Lens' SavedObject (Prelude.Maybe SavedObject'Kind)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'userObject' @:: Lens' SavedObject (Prelude.Maybe SavedUserObject)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.userObject' @:: Lens' SavedObject SavedUserObject@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'asset' @:: Lens' SavedObject (Prelude.Maybe SavedAsset)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.asset' @:: Lens' SavedObject SavedAsset@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'function' @:: Lens' SavedObject (Prelude.Maybe SavedFunction)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.function' @:: Lens' SavedObject SavedFunction@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'variable' @:: Lens' SavedObject (Prelude.Maybe SavedVariable)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.variable' @:: Lens' SavedObject SavedVariable@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'bareConcreteFunction' @:: Lens' SavedObject (Prelude.Maybe SavedBareConcreteFunction)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.bareConcreteFunction' @:: Lens' SavedObject SavedBareConcreteFunction@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'constant' @:: Lens' SavedObject (Prelude.Maybe SavedConstant)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.constant' @:: Lens' SavedObject SavedConstant@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'resource' @:: Lens' SavedObject (Prelude.Maybe SavedResource)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.resource' @:: Lens' SavedObject SavedResource@ -}
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)
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.key' @:: Lens' SavedObject'SaveableObjectsEntry Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.value' @:: Lens' SavedObject'SaveableObjectsEntry SaveableObject@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'value' @:: Lens' SavedObject'SaveableObjectsEntry (Prelude.Maybe SaveableObject)@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.nodes' @:: Lens' SavedObjectGraph [SavedObject]@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.vec'nodes' @:: Lens' SavedObjectGraph (Data.Vector.Vector SavedObject)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.concreteFunctions' @:: Lens' SavedObjectGraph (Data.Map.Map Data.Text.Text SavedConcreteFunction)@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.key' @:: Lens' SavedObjectGraph'ConcreteFunctionsEntry Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.value' @:: Lens' SavedObjectGraph'ConcreteFunctionsEntry SavedConcreteFunction@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'value' @:: Lens' SavedObjectGraph'ConcreteFunctionsEntry (Prelude.Maybe SavedConcreteFunction)@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.device' @:: Lens' SavedResource Data.Text.Text@ -}
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__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.identifier' @:: Lens' SavedUserObject Data.Text.Text@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.version' @:: Lens' SavedUserObject Proto.Tensorflow.Core.Framework.Versions.VersionDef@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'version' @:: Lens' SavedUserObject (Prelude.Maybe Proto.Tensorflow.Core.Framework.Versions.VersionDef)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.metadata' @:: Lens' SavedUserObject Data.Text.Text@ -}
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__) ())))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.dtype' @:: Lens' SavedVariable Proto.Tensorflow.Core.Framework.Types.DataType@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.shape' @:: Lens' SavedVariable Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.maybe'shape' @:: Lens' SavedVariable (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto)@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.trainable' @:: Lens' SavedVariable Prelude.Bool@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.synchronization' @:: Lens' SavedVariable Proto.Tensorflow.Core.Framework.Variable.VariableSynchronization@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.aggregation' @:: Lens' SavedVariable Proto.Tensorflow.Core.Framework.Variable.VariableAggregation@
         * 'Proto.Tensorflow.Core.Protobuf.SavedObjectGraph_Fields.name' @:: Lens' SavedVariable Data.Text.Text@ -}
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"