{-# 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.MetaGraph (
AssetFileDef(), CollectionDef(), CollectionDef'Kind(..),
_CollectionDef'NodeList', _CollectionDef'BytesList',
_CollectionDef'Int64List', _CollectionDef'FloatList',
_CollectionDef'AnyList', CollectionDef'AnyList(),
CollectionDef'BytesList(), CollectionDef'FloatList(),
CollectionDef'Int64List(), CollectionDef'NodeList(),
MetaGraphDef(), MetaGraphDef'CollectionDefEntry(),
MetaGraphDef'MetaInfoDef(),
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry(),
MetaGraphDef'SignatureDefEntry(), SignatureDef(),
SignatureDef'InputsEntry(), SignatureDef'OutputsEntry(),
TensorInfo(), TensorInfo'Encoding(..), _TensorInfo'Name,
_TensorInfo'CooSparse', _TensorInfo'CompositeTensor',
TensorInfo'CompositeTensor(), TensorInfo'CooSparse()
) 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.Google.Protobuf.Any
import qualified Proto.Tensorflow.Core.Framework.Graph
import qualified Proto.Tensorflow.Core.Framework.OpDef
import qualified Proto.Tensorflow.Core.Framework.TensorShape
import qualified Proto.Tensorflow.Core.Framework.Types
import qualified Proto.Tensorflow.Core.Protobuf.SavedObjectGraph
import qualified Proto.Tensorflow.Core.Protobuf.Saver
import qualified Proto.Tensorflow.Core.Protobuf.Struct
data AssetFileDef
= AssetFileDef'_constructor {AssetFileDef -> Maybe TensorInfo
_AssetFileDef'tensorInfo :: !(Prelude.Maybe TensorInfo),
AssetFileDef -> Text
_AssetFileDef'filename :: !Data.Text.Text,
AssetFileDef -> FieldSet
_AssetFileDef'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (AssetFileDef -> AssetFileDef -> Bool
(AssetFileDef -> AssetFileDef -> Bool)
-> (AssetFileDef -> AssetFileDef -> Bool) -> Eq AssetFileDef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: AssetFileDef -> AssetFileDef -> Bool
$c/= :: AssetFileDef -> AssetFileDef -> Bool
== :: AssetFileDef -> AssetFileDef -> Bool
$c== :: AssetFileDef -> AssetFileDef -> Bool
Prelude.Eq, Eq AssetFileDef
Eq AssetFileDef =>
(AssetFileDef -> AssetFileDef -> Ordering)
-> (AssetFileDef -> AssetFileDef -> Bool)
-> (AssetFileDef -> AssetFileDef -> Bool)
-> (AssetFileDef -> AssetFileDef -> Bool)
-> (AssetFileDef -> AssetFileDef -> Bool)
-> (AssetFileDef -> AssetFileDef -> AssetFileDef)
-> (AssetFileDef -> AssetFileDef -> AssetFileDef)
-> Ord AssetFileDef
AssetFileDef -> AssetFileDef -> Bool
AssetFileDef -> AssetFileDef -> Ordering
AssetFileDef -> AssetFileDef -> AssetFileDef
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 :: AssetFileDef -> AssetFileDef -> AssetFileDef
$cmin :: AssetFileDef -> AssetFileDef -> AssetFileDef
max :: AssetFileDef -> AssetFileDef -> AssetFileDef
$cmax :: AssetFileDef -> AssetFileDef -> AssetFileDef
>= :: AssetFileDef -> AssetFileDef -> Bool
$c>= :: AssetFileDef -> AssetFileDef -> Bool
> :: AssetFileDef -> AssetFileDef -> Bool
$c> :: AssetFileDef -> AssetFileDef -> Bool
<= :: AssetFileDef -> AssetFileDef -> Bool
$c<= :: AssetFileDef -> AssetFileDef -> Bool
< :: AssetFileDef -> AssetFileDef -> Bool
$c< :: AssetFileDef -> AssetFileDef -> Bool
compare :: AssetFileDef -> AssetFileDef -> Ordering
$ccompare :: AssetFileDef -> AssetFileDef -> Ordering
$cp1Ord :: Eq AssetFileDef
Prelude.Ord)
instance Prelude.Show AssetFileDef where
showsPrec :: Int -> AssetFileDef -> ShowS
showsPrec _ __x :: AssetFileDef
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(AssetFileDef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort AssetFileDef
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField AssetFileDef "tensorInfo" TensorInfo where
fieldOf :: Proxy# "tensorInfo"
-> (TensorInfo -> f TensorInfo) -> AssetFileDef -> f AssetFileDef
fieldOf _
= ((Maybe TensorInfo -> f (Maybe TensorInfo))
-> AssetFileDef -> f AssetFileDef)
-> ((TensorInfo -> f TensorInfo)
-> Maybe TensorInfo -> f (Maybe TensorInfo))
-> (TensorInfo -> f TensorInfo)
-> AssetFileDef
-> f AssetFileDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AssetFileDef -> Maybe TensorInfo)
-> (AssetFileDef -> Maybe TensorInfo -> AssetFileDef)
-> Lens
AssetFileDef AssetFileDef (Maybe TensorInfo) (Maybe TensorInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AssetFileDef -> Maybe TensorInfo
_AssetFileDef'tensorInfo
(\ x__ :: AssetFileDef
x__ y__ :: Maybe TensorInfo
y__ -> AssetFileDef
x__ {_AssetFileDef'tensorInfo :: Maybe TensorInfo
_AssetFileDef'tensorInfo = Maybe TensorInfo
y__}))
(TensorInfo -> Lens' (Maybe TensorInfo) TensorInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TensorInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField AssetFileDef "maybe'tensorInfo" (Prelude.Maybe TensorInfo) where
fieldOf :: Proxy# "maybe'tensorInfo"
-> (Maybe TensorInfo -> f (Maybe TensorInfo))
-> AssetFileDef
-> f AssetFileDef
fieldOf _
= ((Maybe TensorInfo -> f (Maybe TensorInfo))
-> AssetFileDef -> f AssetFileDef)
-> ((Maybe TensorInfo -> f (Maybe TensorInfo))
-> Maybe TensorInfo -> f (Maybe TensorInfo))
-> (Maybe TensorInfo -> f (Maybe TensorInfo))
-> AssetFileDef
-> f AssetFileDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AssetFileDef -> Maybe TensorInfo)
-> (AssetFileDef -> Maybe TensorInfo -> AssetFileDef)
-> Lens
AssetFileDef AssetFileDef (Maybe TensorInfo) (Maybe TensorInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AssetFileDef -> Maybe TensorInfo
_AssetFileDef'tensorInfo
(\ x__ :: AssetFileDef
x__ y__ :: Maybe TensorInfo
y__ -> AssetFileDef
x__ {_AssetFileDef'tensorInfo :: Maybe TensorInfo
_AssetFileDef'tensorInfo = Maybe TensorInfo
y__}))
(Maybe TensorInfo -> f (Maybe TensorInfo))
-> Maybe TensorInfo -> f (Maybe TensorInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField AssetFileDef "filename" Data.Text.Text where
fieldOf :: Proxy# "filename"
-> (Text -> f Text) -> AssetFileDef -> f AssetFileDef
fieldOf _
= ((Text -> f Text) -> AssetFileDef -> f AssetFileDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> AssetFileDef
-> f AssetFileDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((AssetFileDef -> Text)
-> (AssetFileDef -> Text -> AssetFileDef)
-> Lens AssetFileDef AssetFileDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AssetFileDef -> Text
_AssetFileDef'filename
(\ x__ :: AssetFileDef
x__ y__ :: Text
y__ -> AssetFileDef
x__ {_AssetFileDef'filename :: Text
_AssetFileDef'filename = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message AssetFileDef where
messageName :: Proxy AssetFileDef -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.AssetFileDef"
packedMessageDescriptor :: Proxy AssetFileDef -> ByteString
packedMessageDescriptor _
= "\n\
\\fAssetFileDef\DC27\n\
\\vtensor_info\CAN\SOH \SOH(\v2\SYN.tensorflow.TensorInfoR\n\
\tensorInfo\DC2\SUB\n\
\\bfilename\CAN\STX \SOH(\tR\bfilename"
packedFileDescriptor :: Proxy AssetFileDef -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor AssetFileDef)
fieldsByTag
= let
tensorInfo__field_descriptor :: FieldDescriptor AssetFileDef
tensorInfo__field_descriptor
= String
-> FieldTypeDescriptor TensorInfo
-> FieldAccessor AssetFileDef TensorInfo
-> FieldDescriptor AssetFileDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"tensor_info"
(MessageOrGroup -> FieldTypeDescriptor TensorInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TensorInfo)
(Lens
AssetFileDef AssetFileDef (Maybe TensorInfo) (Maybe TensorInfo)
-> FieldAccessor AssetFileDef TensorInfo
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'tensorInfo" a, Functor f) =>
(a -> f a) -> s -> 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'tensorInfo")) ::
Data.ProtoLens.FieldDescriptor AssetFileDef
filename__field_descriptor :: FieldDescriptor AssetFileDef
filename__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor AssetFileDef Text
-> FieldDescriptor AssetFileDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"filename"
(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 AssetFileDef AssetFileDef Text Text
-> FieldAccessor AssetFileDef 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 "filename" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"filename")) ::
Data.ProtoLens.FieldDescriptor AssetFileDef
in
[(Tag, FieldDescriptor AssetFileDef)]
-> Map Tag (FieldDescriptor AssetFileDef)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor AssetFileDef
tensorInfo__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor AssetFileDef
filename__field_descriptor)]
unknownFields :: LensLike' f AssetFileDef FieldSet
unknownFields
= (AssetFileDef -> FieldSet)
-> (AssetFileDef -> FieldSet -> AssetFileDef)
-> Lens' AssetFileDef FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
AssetFileDef -> FieldSet
_AssetFileDef'_unknownFields
(\ x__ :: AssetFileDef
x__ y__ :: FieldSet
y__ -> AssetFileDef
x__ {_AssetFileDef'_unknownFields :: FieldSet
_AssetFileDef'_unknownFields = FieldSet
y__})
defMessage :: AssetFileDef
defMessage
= $WAssetFileDef'_constructor :: Maybe TensorInfo -> Text -> FieldSet -> AssetFileDef
AssetFileDef'_constructor
{_AssetFileDef'tensorInfo :: Maybe TensorInfo
_AssetFileDef'tensorInfo = Maybe TensorInfo
forall a. Maybe a
Prelude.Nothing,
_AssetFileDef'filename :: Text
_AssetFileDef'filename = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_AssetFileDef'_unknownFields :: FieldSet
_AssetFileDef'_unknownFields = []}
parseMessage :: Parser AssetFileDef
parseMessage
= let
loop ::
AssetFileDef -> Data.ProtoLens.Encoding.Bytes.Parser AssetFileDef
loop :: AssetFileDef -> Parser AssetFileDef
loop x :: AssetFileDef
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]))))
AssetFileDef -> Parser AssetFileDef
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter AssetFileDef AssetFileDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AssetFileDef -> AssetFileDef
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 AssetFileDef AssetFileDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) AssetFileDef
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do TensorInfo
y <- Parser TensorInfo -> String -> Parser TensorInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TensorInfo -> Parser TensorInfo
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 TensorInfo
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"tensor_info"
AssetFileDef -> Parser AssetFileDef
loop
(Setter AssetFileDef AssetFileDef TensorInfo TensorInfo
-> TensorInfo -> AssetFileDef -> AssetFileDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "tensorInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorInfo") TensorInfo
y AssetFileDef
x)
18
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"filename"
AssetFileDef -> Parser AssetFileDef
loop
(Setter AssetFileDef AssetFileDef Text Text
-> Text -> AssetFileDef -> AssetFileDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "filename" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"filename") Text
y AssetFileDef
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
AssetFileDef -> Parser AssetFileDef
loop
(Setter AssetFileDef AssetFileDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> AssetFileDef -> AssetFileDef
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 AssetFileDef AssetFileDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) AssetFileDef
x)
in
Parser AssetFileDef -> String -> Parser AssetFileDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do AssetFileDef -> Parser AssetFileDef
loop AssetFileDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "AssetFileDef"
buildMessage :: AssetFileDef -> Builder
buildMessage
= \ _x :: AssetFileDef
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe TensorInfo)
AssetFileDef
AssetFileDef
(Maybe TensorInfo)
(Maybe TensorInfo)
-> AssetFileDef -> Maybe TensorInfo
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'tensorInfo" a, Functor f) =>
(a -> f a) -> s -> 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'tensorInfo") AssetFileDef
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: TensorInfo
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (TensorInfo -> ByteString) -> TensorInfo -> 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))
TensorInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TensorInfo
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike Text AssetFileDef AssetFileDef Text Text
-> AssetFileDef -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "filename" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"filename") AssetFileDef
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet AssetFileDef AssetFileDef FieldSet FieldSet
-> AssetFileDef -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet AssetFileDef AssetFileDef FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields AssetFileDef
_x)))
instance Control.DeepSeq.NFData AssetFileDef where
rnf :: AssetFileDef -> ()
rnf
= \ x__ :: AssetFileDef
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AssetFileDef -> FieldSet
_AssetFileDef'_unknownFields AssetFileDef
x__)
(Maybe TensorInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(AssetFileDef -> Maybe TensorInfo
_AssetFileDef'tensorInfo AssetFileDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (AssetFileDef -> Text
_AssetFileDef'filename AssetFileDef
x__) ()))
data CollectionDef
= CollectionDef'_constructor {CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind :: !(Prelude.Maybe CollectionDef'Kind),
CollectionDef -> FieldSet
_CollectionDef'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CollectionDef -> CollectionDef -> Bool
(CollectionDef -> CollectionDef -> Bool)
-> (CollectionDef -> CollectionDef -> Bool) -> Eq CollectionDef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CollectionDef -> CollectionDef -> Bool
$c/= :: CollectionDef -> CollectionDef -> Bool
== :: CollectionDef -> CollectionDef -> Bool
$c== :: CollectionDef -> CollectionDef -> Bool
Prelude.Eq, Eq CollectionDef
Eq CollectionDef =>
(CollectionDef -> CollectionDef -> Ordering)
-> (CollectionDef -> CollectionDef -> Bool)
-> (CollectionDef -> CollectionDef -> Bool)
-> (CollectionDef -> CollectionDef -> Bool)
-> (CollectionDef -> CollectionDef -> Bool)
-> (CollectionDef -> CollectionDef -> CollectionDef)
-> (CollectionDef -> CollectionDef -> CollectionDef)
-> Ord CollectionDef
CollectionDef -> CollectionDef -> Bool
CollectionDef -> CollectionDef -> Ordering
CollectionDef -> CollectionDef -> CollectionDef
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 :: CollectionDef -> CollectionDef -> CollectionDef
$cmin :: CollectionDef -> CollectionDef -> CollectionDef
max :: CollectionDef -> CollectionDef -> CollectionDef
$cmax :: CollectionDef -> CollectionDef -> CollectionDef
>= :: CollectionDef -> CollectionDef -> Bool
$c>= :: CollectionDef -> CollectionDef -> Bool
> :: CollectionDef -> CollectionDef -> Bool
$c> :: CollectionDef -> CollectionDef -> Bool
<= :: CollectionDef -> CollectionDef -> Bool
$c<= :: CollectionDef -> CollectionDef -> Bool
< :: CollectionDef -> CollectionDef -> Bool
$c< :: CollectionDef -> CollectionDef -> Bool
compare :: CollectionDef -> CollectionDef -> Ordering
$ccompare :: CollectionDef -> CollectionDef -> Ordering
$cp1Ord :: Eq CollectionDef
Prelude.Ord)
instance Prelude.Show CollectionDef where
showsPrec :: Int -> CollectionDef -> ShowS
showsPrec _ __x :: CollectionDef
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(CollectionDef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CollectionDef
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
data CollectionDef'Kind
= CollectionDef'NodeList' !CollectionDef'NodeList |
CollectionDef'BytesList' !CollectionDef'BytesList |
CollectionDef'Int64List' !CollectionDef'Int64List |
CollectionDef'FloatList' !CollectionDef'FloatList |
CollectionDef'AnyList' !CollectionDef'AnyList
deriving stock (Int -> CollectionDef'Kind -> ShowS
[CollectionDef'Kind] -> ShowS
CollectionDef'Kind -> String
(Int -> CollectionDef'Kind -> ShowS)
-> (CollectionDef'Kind -> String)
-> ([CollectionDef'Kind] -> ShowS)
-> Show CollectionDef'Kind
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CollectionDef'Kind] -> ShowS
$cshowList :: [CollectionDef'Kind] -> ShowS
show :: CollectionDef'Kind -> String
$cshow :: CollectionDef'Kind -> String
showsPrec :: Int -> CollectionDef'Kind -> ShowS
$cshowsPrec :: Int -> CollectionDef'Kind -> ShowS
Prelude.Show, CollectionDef'Kind -> CollectionDef'Kind -> Bool
(CollectionDef'Kind -> CollectionDef'Kind -> Bool)
-> (CollectionDef'Kind -> CollectionDef'Kind -> Bool)
-> Eq CollectionDef'Kind
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
$c/= :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
== :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
$c== :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
Prelude.Eq, Eq CollectionDef'Kind
Eq CollectionDef'Kind =>
(CollectionDef'Kind -> CollectionDef'Kind -> Ordering)
-> (CollectionDef'Kind -> CollectionDef'Kind -> Bool)
-> (CollectionDef'Kind -> CollectionDef'Kind -> Bool)
-> (CollectionDef'Kind -> CollectionDef'Kind -> Bool)
-> (CollectionDef'Kind -> CollectionDef'Kind -> Bool)
-> (CollectionDef'Kind -> CollectionDef'Kind -> CollectionDef'Kind)
-> (CollectionDef'Kind -> CollectionDef'Kind -> CollectionDef'Kind)
-> Ord CollectionDef'Kind
CollectionDef'Kind -> CollectionDef'Kind -> Bool
CollectionDef'Kind -> CollectionDef'Kind -> Ordering
CollectionDef'Kind -> CollectionDef'Kind -> CollectionDef'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 :: CollectionDef'Kind -> CollectionDef'Kind -> CollectionDef'Kind
$cmin :: CollectionDef'Kind -> CollectionDef'Kind -> CollectionDef'Kind
max :: CollectionDef'Kind -> CollectionDef'Kind -> CollectionDef'Kind
$cmax :: CollectionDef'Kind -> CollectionDef'Kind -> CollectionDef'Kind
>= :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
$c>= :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
> :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
$c> :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
<= :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
$c<= :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
< :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
$c< :: CollectionDef'Kind -> CollectionDef'Kind -> Bool
compare :: CollectionDef'Kind -> CollectionDef'Kind -> Ordering
$ccompare :: CollectionDef'Kind -> CollectionDef'Kind -> Ordering
$cp1Ord :: Eq CollectionDef'Kind
Prelude.Ord)
instance Data.ProtoLens.Field.HasField CollectionDef "maybe'kind" (Prelude.Maybe CollectionDef'Kind) where
fieldOf :: Proxy# "maybe'kind"
-> (Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> CollectionDef
-> f CollectionDef
fieldOf _
= ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> CollectionDef -> f CollectionDef)
-> ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
CollectionDef
CollectionDef
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
(Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField CollectionDef "maybe'nodeList" (Prelude.Maybe CollectionDef'NodeList) where
fieldOf :: Proxy# "maybe'nodeList"
-> (Maybe CollectionDef'NodeList
-> f (Maybe CollectionDef'NodeList))
-> CollectionDef
-> f CollectionDef
fieldOf _
= ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> CollectionDef -> f CollectionDef)
-> ((Maybe CollectionDef'NodeList
-> f (Maybe CollectionDef'NodeList))
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (Maybe CollectionDef'NodeList
-> f (Maybe CollectionDef'NodeList))
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
CollectionDef
CollectionDef
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
((Maybe CollectionDef'Kind -> Maybe CollectionDef'NodeList)
-> (Maybe CollectionDef'Kind
-> Maybe CollectionDef'NodeList -> Maybe CollectionDef'Kind)
-> Lens
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'NodeList)
(Maybe CollectionDef'NodeList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe CollectionDef'Kind
x__
-> case Maybe CollectionDef'Kind
x__ of
(Prelude.Just (CollectionDef'NodeList' x__val :: CollectionDef'NodeList
x__val))
-> CollectionDef'NodeList -> Maybe CollectionDef'NodeList
forall a. a -> Maybe a
Prelude.Just CollectionDef'NodeList
x__val
_otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'NodeList
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe CollectionDef'NodeList
y__ -> (CollectionDef'NodeList -> CollectionDef'Kind)
-> Maybe CollectionDef'NodeList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'NodeList -> CollectionDef'Kind
CollectionDef'NodeList' Maybe CollectionDef'NodeList
y__))
instance Data.ProtoLens.Field.HasField CollectionDef "nodeList" CollectionDef'NodeList where
fieldOf :: Proxy# "nodeList"
-> (CollectionDef'NodeList -> f CollectionDef'NodeList)
-> CollectionDef
-> f CollectionDef
fieldOf _
= ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> CollectionDef -> f CollectionDef)
-> ((CollectionDef'NodeList -> f CollectionDef'NodeList)
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (CollectionDef'NodeList -> f CollectionDef'NodeList)
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
CollectionDef
CollectionDef
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
(((Maybe CollectionDef'NodeList -> f (Maybe CollectionDef'NodeList))
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> ((CollectionDef'NodeList -> f CollectionDef'NodeList)
-> Maybe CollectionDef'NodeList
-> f (Maybe CollectionDef'NodeList))
-> (CollectionDef'NodeList -> f CollectionDef'NodeList)
-> Maybe CollectionDef'Kind
-> f (Maybe CollectionDef'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe CollectionDef'Kind -> Maybe CollectionDef'NodeList)
-> (Maybe CollectionDef'Kind
-> Maybe CollectionDef'NodeList -> Maybe CollectionDef'Kind)
-> Lens
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'NodeList)
(Maybe CollectionDef'NodeList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe CollectionDef'Kind
x__
-> case Maybe CollectionDef'Kind
x__ of
(Prelude.Just (CollectionDef'NodeList' x__val :: CollectionDef'NodeList
x__val))
-> CollectionDef'NodeList -> Maybe CollectionDef'NodeList
forall a. a -> Maybe a
Prelude.Just CollectionDef'NodeList
x__val
_otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'NodeList
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe CollectionDef'NodeList
y__ -> (CollectionDef'NodeList -> CollectionDef'Kind)
-> Maybe CollectionDef'NodeList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'NodeList -> CollectionDef'Kind
CollectionDef'NodeList' Maybe CollectionDef'NodeList
y__))
(CollectionDef'NodeList
-> Lens' (Maybe CollectionDef'NodeList) CollectionDef'NodeList
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CollectionDef'NodeList
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField CollectionDef "maybe'bytesList" (Prelude.Maybe CollectionDef'BytesList) where
fieldOf :: Proxy# "maybe'bytesList"
-> (Maybe CollectionDef'BytesList
-> f (Maybe CollectionDef'BytesList))
-> CollectionDef
-> f CollectionDef
fieldOf _
= ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> CollectionDef -> f CollectionDef)
-> ((Maybe CollectionDef'BytesList
-> f (Maybe CollectionDef'BytesList))
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (Maybe CollectionDef'BytesList
-> f (Maybe CollectionDef'BytesList))
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
CollectionDef
CollectionDef
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
((Maybe CollectionDef'Kind -> Maybe CollectionDef'BytesList)
-> (Maybe CollectionDef'Kind
-> Maybe CollectionDef'BytesList -> Maybe CollectionDef'Kind)
-> Lens
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'BytesList)
(Maybe CollectionDef'BytesList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe CollectionDef'Kind
x__
-> case Maybe CollectionDef'Kind
x__ of
(Prelude.Just (CollectionDef'BytesList' x__val :: CollectionDef'BytesList
x__val))
-> CollectionDef'BytesList -> Maybe CollectionDef'BytesList
forall a. a -> Maybe a
Prelude.Just CollectionDef'BytesList
x__val
_otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'BytesList
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe CollectionDef'BytesList
y__ -> (CollectionDef'BytesList -> CollectionDef'Kind)
-> Maybe CollectionDef'BytesList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'BytesList -> CollectionDef'Kind
CollectionDef'BytesList' Maybe CollectionDef'BytesList
y__))
instance Data.ProtoLens.Field.HasField CollectionDef "bytesList" CollectionDef'BytesList where
fieldOf :: Proxy# "bytesList"
-> (CollectionDef'BytesList -> f CollectionDef'BytesList)
-> CollectionDef
-> f CollectionDef
fieldOf _
= ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> CollectionDef -> f CollectionDef)
-> ((CollectionDef'BytesList -> f CollectionDef'BytesList)
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (CollectionDef'BytesList -> f CollectionDef'BytesList)
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
CollectionDef
CollectionDef
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
(((Maybe CollectionDef'BytesList
-> f (Maybe CollectionDef'BytesList))
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> ((CollectionDef'BytesList -> f CollectionDef'BytesList)
-> Maybe CollectionDef'BytesList
-> f (Maybe CollectionDef'BytesList))
-> (CollectionDef'BytesList -> f CollectionDef'BytesList)
-> Maybe CollectionDef'Kind
-> f (Maybe CollectionDef'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe CollectionDef'Kind -> Maybe CollectionDef'BytesList)
-> (Maybe CollectionDef'Kind
-> Maybe CollectionDef'BytesList -> Maybe CollectionDef'Kind)
-> Lens
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'BytesList)
(Maybe CollectionDef'BytesList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe CollectionDef'Kind
x__
-> case Maybe CollectionDef'Kind
x__ of
(Prelude.Just (CollectionDef'BytesList' x__val :: CollectionDef'BytesList
x__val))
-> CollectionDef'BytesList -> Maybe CollectionDef'BytesList
forall a. a -> Maybe a
Prelude.Just CollectionDef'BytesList
x__val
_otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'BytesList
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe CollectionDef'BytesList
y__ -> (CollectionDef'BytesList -> CollectionDef'Kind)
-> Maybe CollectionDef'BytesList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'BytesList -> CollectionDef'Kind
CollectionDef'BytesList' Maybe CollectionDef'BytesList
y__))
(CollectionDef'BytesList
-> Lens' (Maybe CollectionDef'BytesList) CollectionDef'BytesList
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CollectionDef'BytesList
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField CollectionDef "maybe'int64List" (Prelude.Maybe CollectionDef'Int64List) where
fieldOf :: Proxy# "maybe'int64List"
-> (Maybe CollectionDef'Int64List
-> f (Maybe CollectionDef'Int64List))
-> CollectionDef
-> f CollectionDef
fieldOf _
= ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> CollectionDef -> f CollectionDef)
-> ((Maybe CollectionDef'Int64List
-> f (Maybe CollectionDef'Int64List))
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (Maybe CollectionDef'Int64List
-> f (Maybe CollectionDef'Int64List))
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
CollectionDef
CollectionDef
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
((Maybe CollectionDef'Kind -> Maybe CollectionDef'Int64List)
-> (Maybe CollectionDef'Kind
-> Maybe CollectionDef'Int64List -> Maybe CollectionDef'Kind)
-> Lens
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Int64List)
(Maybe CollectionDef'Int64List)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe CollectionDef'Kind
x__
-> case Maybe CollectionDef'Kind
x__ of
(Prelude.Just (CollectionDef'Int64List' x__val :: CollectionDef'Int64List
x__val))
-> CollectionDef'Int64List -> Maybe CollectionDef'Int64List
forall a. a -> Maybe a
Prelude.Just CollectionDef'Int64List
x__val
_otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'Int64List
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe CollectionDef'Int64List
y__ -> (CollectionDef'Int64List -> CollectionDef'Kind)
-> Maybe CollectionDef'Int64List -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'Int64List -> CollectionDef'Kind
CollectionDef'Int64List' Maybe CollectionDef'Int64List
y__))
instance Data.ProtoLens.Field.HasField CollectionDef "int64List" CollectionDef'Int64List where
fieldOf :: Proxy# "int64List"
-> (CollectionDef'Int64List -> f CollectionDef'Int64List)
-> CollectionDef
-> f CollectionDef
fieldOf _
= ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> CollectionDef -> f CollectionDef)
-> ((CollectionDef'Int64List -> f CollectionDef'Int64List)
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (CollectionDef'Int64List -> f CollectionDef'Int64List)
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
CollectionDef
CollectionDef
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
(((Maybe CollectionDef'Int64List
-> f (Maybe CollectionDef'Int64List))
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> ((CollectionDef'Int64List -> f CollectionDef'Int64List)
-> Maybe CollectionDef'Int64List
-> f (Maybe CollectionDef'Int64List))
-> (CollectionDef'Int64List -> f CollectionDef'Int64List)
-> Maybe CollectionDef'Kind
-> f (Maybe CollectionDef'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe CollectionDef'Kind -> Maybe CollectionDef'Int64List)
-> (Maybe CollectionDef'Kind
-> Maybe CollectionDef'Int64List -> Maybe CollectionDef'Kind)
-> Lens
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Int64List)
(Maybe CollectionDef'Int64List)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe CollectionDef'Kind
x__
-> case Maybe CollectionDef'Kind
x__ of
(Prelude.Just (CollectionDef'Int64List' x__val :: CollectionDef'Int64List
x__val))
-> CollectionDef'Int64List -> Maybe CollectionDef'Int64List
forall a. a -> Maybe a
Prelude.Just CollectionDef'Int64List
x__val
_otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'Int64List
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe CollectionDef'Int64List
y__ -> (CollectionDef'Int64List -> CollectionDef'Kind)
-> Maybe CollectionDef'Int64List -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'Int64List -> CollectionDef'Kind
CollectionDef'Int64List' Maybe CollectionDef'Int64List
y__))
(CollectionDef'Int64List
-> Lens' (Maybe CollectionDef'Int64List) CollectionDef'Int64List
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CollectionDef'Int64List
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField CollectionDef "maybe'floatList" (Prelude.Maybe CollectionDef'FloatList) where
fieldOf :: Proxy# "maybe'floatList"
-> (Maybe CollectionDef'FloatList
-> f (Maybe CollectionDef'FloatList))
-> CollectionDef
-> f CollectionDef
fieldOf _
= ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> CollectionDef -> f CollectionDef)
-> ((Maybe CollectionDef'FloatList
-> f (Maybe CollectionDef'FloatList))
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (Maybe CollectionDef'FloatList
-> f (Maybe CollectionDef'FloatList))
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
CollectionDef
CollectionDef
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
((Maybe CollectionDef'Kind -> Maybe CollectionDef'FloatList)
-> (Maybe CollectionDef'Kind
-> Maybe CollectionDef'FloatList -> Maybe CollectionDef'Kind)
-> Lens
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'FloatList)
(Maybe CollectionDef'FloatList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe CollectionDef'Kind
x__
-> case Maybe CollectionDef'Kind
x__ of
(Prelude.Just (CollectionDef'FloatList' x__val :: CollectionDef'FloatList
x__val))
-> CollectionDef'FloatList -> Maybe CollectionDef'FloatList
forall a. a -> Maybe a
Prelude.Just CollectionDef'FloatList
x__val
_otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'FloatList
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe CollectionDef'FloatList
y__ -> (CollectionDef'FloatList -> CollectionDef'Kind)
-> Maybe CollectionDef'FloatList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'FloatList -> CollectionDef'Kind
CollectionDef'FloatList' Maybe CollectionDef'FloatList
y__))
instance Data.ProtoLens.Field.HasField CollectionDef "floatList" CollectionDef'FloatList where
fieldOf :: Proxy# "floatList"
-> (CollectionDef'FloatList -> f CollectionDef'FloatList)
-> CollectionDef
-> f CollectionDef
fieldOf _
= ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> CollectionDef -> f CollectionDef)
-> ((CollectionDef'FloatList -> f CollectionDef'FloatList)
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (CollectionDef'FloatList -> f CollectionDef'FloatList)
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
CollectionDef
CollectionDef
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
(((Maybe CollectionDef'FloatList
-> f (Maybe CollectionDef'FloatList))
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> ((CollectionDef'FloatList -> f CollectionDef'FloatList)
-> Maybe CollectionDef'FloatList
-> f (Maybe CollectionDef'FloatList))
-> (CollectionDef'FloatList -> f CollectionDef'FloatList)
-> Maybe CollectionDef'Kind
-> f (Maybe CollectionDef'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe CollectionDef'Kind -> Maybe CollectionDef'FloatList)
-> (Maybe CollectionDef'Kind
-> Maybe CollectionDef'FloatList -> Maybe CollectionDef'Kind)
-> Lens
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'FloatList)
(Maybe CollectionDef'FloatList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe CollectionDef'Kind
x__
-> case Maybe CollectionDef'Kind
x__ of
(Prelude.Just (CollectionDef'FloatList' x__val :: CollectionDef'FloatList
x__val))
-> CollectionDef'FloatList -> Maybe CollectionDef'FloatList
forall a. a -> Maybe a
Prelude.Just CollectionDef'FloatList
x__val
_otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'FloatList
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe CollectionDef'FloatList
y__ -> (CollectionDef'FloatList -> CollectionDef'Kind)
-> Maybe CollectionDef'FloatList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'FloatList -> CollectionDef'Kind
CollectionDef'FloatList' Maybe CollectionDef'FloatList
y__))
(CollectionDef'FloatList
-> Lens' (Maybe CollectionDef'FloatList) CollectionDef'FloatList
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CollectionDef'FloatList
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField CollectionDef "maybe'anyList" (Prelude.Maybe CollectionDef'AnyList) where
fieldOf :: Proxy# "maybe'anyList"
-> (Maybe CollectionDef'AnyList -> f (Maybe CollectionDef'AnyList))
-> CollectionDef
-> f CollectionDef
fieldOf _
= ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> CollectionDef -> f CollectionDef)
-> ((Maybe CollectionDef'AnyList
-> f (Maybe CollectionDef'AnyList))
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (Maybe CollectionDef'AnyList -> f (Maybe CollectionDef'AnyList))
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
CollectionDef
CollectionDef
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
((Maybe CollectionDef'Kind -> Maybe CollectionDef'AnyList)
-> (Maybe CollectionDef'Kind
-> Maybe CollectionDef'AnyList -> Maybe CollectionDef'Kind)
-> Lens
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'AnyList)
(Maybe CollectionDef'AnyList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe CollectionDef'Kind
x__
-> case Maybe CollectionDef'Kind
x__ of
(Prelude.Just (CollectionDef'AnyList' x__val :: CollectionDef'AnyList
x__val))
-> CollectionDef'AnyList -> Maybe CollectionDef'AnyList
forall a. a -> Maybe a
Prelude.Just CollectionDef'AnyList
x__val
_otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'AnyList
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe CollectionDef'AnyList
y__ -> (CollectionDef'AnyList -> CollectionDef'Kind)
-> Maybe CollectionDef'AnyList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'AnyList -> CollectionDef'Kind
CollectionDef'AnyList' Maybe CollectionDef'AnyList
y__))
instance Data.ProtoLens.Field.HasField CollectionDef "anyList" CollectionDef'AnyList where
fieldOf :: Proxy# "anyList"
-> (CollectionDef'AnyList -> f CollectionDef'AnyList)
-> CollectionDef
-> f CollectionDef
fieldOf _
= ((Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> CollectionDef -> f CollectionDef)
-> ((CollectionDef'AnyList -> f CollectionDef'AnyList)
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> (CollectionDef'AnyList -> f CollectionDef'AnyList)
-> CollectionDef
-> f CollectionDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef -> Maybe CollectionDef'Kind)
-> (CollectionDef -> Maybe CollectionDef'Kind -> CollectionDef)
-> Lens
CollectionDef
CollectionDef
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind (\ x__ :: CollectionDef
x__ y__ :: Maybe CollectionDef'Kind
y__ -> CollectionDef
x__ {_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
y__}))
(((Maybe CollectionDef'AnyList -> f (Maybe CollectionDef'AnyList))
-> Maybe CollectionDef'Kind -> f (Maybe CollectionDef'Kind))
-> ((CollectionDef'AnyList -> f CollectionDef'AnyList)
-> Maybe CollectionDef'AnyList -> f (Maybe CollectionDef'AnyList))
-> (CollectionDef'AnyList -> f CollectionDef'AnyList)
-> Maybe CollectionDef'Kind
-> f (Maybe CollectionDef'Kind)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe CollectionDef'Kind -> Maybe CollectionDef'AnyList)
-> (Maybe CollectionDef'Kind
-> Maybe CollectionDef'AnyList -> Maybe CollectionDef'Kind)
-> Lens
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'AnyList)
(Maybe CollectionDef'AnyList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe CollectionDef'Kind
x__
-> case Maybe CollectionDef'Kind
x__ of
(Prelude.Just (CollectionDef'AnyList' x__val :: CollectionDef'AnyList
x__val))
-> CollectionDef'AnyList -> Maybe CollectionDef'AnyList
forall a. a -> Maybe a
Prelude.Just CollectionDef'AnyList
x__val
_otherwise :: Maybe CollectionDef'Kind
_otherwise -> Maybe CollectionDef'AnyList
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe CollectionDef'AnyList
y__ -> (CollectionDef'AnyList -> CollectionDef'Kind)
-> Maybe CollectionDef'AnyList -> Maybe CollectionDef'Kind
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap CollectionDef'AnyList -> CollectionDef'Kind
CollectionDef'AnyList' Maybe CollectionDef'AnyList
y__))
(CollectionDef'AnyList
-> Lens' (Maybe CollectionDef'AnyList) CollectionDef'AnyList
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CollectionDef'AnyList
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message CollectionDef where
messageName :: Proxy CollectionDef -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CollectionDef"
packedMessageDescriptor :: Proxy CollectionDef -> ByteString
packedMessageDescriptor _
= "\n\
\\rCollectionDef\DC2A\n\
\\tnode_list\CAN\SOH \SOH(\v2\".tensorflow.CollectionDef.NodeListH\NULR\bnodeList\DC2D\n\
\\n\
\bytes_list\CAN\STX \SOH(\v2#.tensorflow.CollectionDef.BytesListH\NULR\tbytesList\DC2D\n\
\\n\
\int64_list\CAN\ETX \SOH(\v2#.tensorflow.CollectionDef.Int64ListH\NULR\tint64List\DC2D\n\
\\n\
\float_list\CAN\EOT \SOH(\v2#.tensorflow.CollectionDef.FloatListH\NULR\tfloatList\DC2>\n\
\\bany_list\CAN\ENQ \SOH(\v2!.tensorflow.CollectionDef.AnyListH\NULR\aanyList\SUB \n\
\\bNodeList\DC2\DC4\n\
\\ENQvalue\CAN\SOH \ETX(\tR\ENQvalue\SUB!\n\
\\tBytesList\DC2\DC4\n\
\\ENQvalue\CAN\SOH \ETX(\fR\ENQvalue\SUB%\n\
\\tInt64List\DC2\CAN\n\
\\ENQvalue\CAN\SOH \ETX(\ETXR\ENQvalueB\STX\DLE\SOH\SUB%\n\
\\tFloatList\DC2\CAN\n\
\\ENQvalue\CAN\SOH \ETX(\STXR\ENQvalueB\STX\DLE\SOH\SUB5\n\
\\aAnyList\DC2*\n\
\\ENQvalue\CAN\SOH \ETX(\v2\DC4.google.protobuf.AnyR\ENQvalueB\ACK\n\
\\EOTkind"
packedFileDescriptor :: Proxy CollectionDef -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CollectionDef)
fieldsByTag
= let
nodeList__field_descriptor :: FieldDescriptor CollectionDef
nodeList__field_descriptor
= String
-> FieldTypeDescriptor CollectionDef'NodeList
-> FieldAccessor CollectionDef CollectionDef'NodeList
-> FieldDescriptor CollectionDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"node_list"
(MessageOrGroup -> FieldTypeDescriptor CollectionDef'NodeList
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CollectionDef'NodeList)
(Lens' CollectionDef (Maybe CollectionDef'NodeList)
-> FieldAccessor CollectionDef CollectionDef'NodeList
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'nodeList" a, Functor f) =>
(a -> f a) -> s -> 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'nodeList")) ::
Data.ProtoLens.FieldDescriptor CollectionDef
bytesList__field_descriptor :: FieldDescriptor CollectionDef
bytesList__field_descriptor
= String
-> FieldTypeDescriptor CollectionDef'BytesList
-> FieldAccessor CollectionDef CollectionDef'BytesList
-> FieldDescriptor CollectionDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"bytes_list"
(MessageOrGroup -> FieldTypeDescriptor CollectionDef'BytesList
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CollectionDef'BytesList)
(Lens' CollectionDef (Maybe CollectionDef'BytesList)
-> FieldAccessor CollectionDef CollectionDef'BytesList
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'bytesList" a, Functor f) =>
(a -> f a) -> s -> 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'bytesList")) ::
Data.ProtoLens.FieldDescriptor CollectionDef
int64List__field_descriptor :: FieldDescriptor CollectionDef
int64List__field_descriptor
= String
-> FieldTypeDescriptor CollectionDef'Int64List
-> FieldAccessor CollectionDef CollectionDef'Int64List
-> FieldDescriptor CollectionDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"int64_list"
(MessageOrGroup -> FieldTypeDescriptor CollectionDef'Int64List
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CollectionDef'Int64List)
(Lens' CollectionDef (Maybe CollectionDef'Int64List)
-> FieldAccessor CollectionDef CollectionDef'Int64List
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'int64List" a, Functor f) =>
(a -> f a) -> s -> 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'int64List")) ::
Data.ProtoLens.FieldDescriptor CollectionDef
floatList__field_descriptor :: FieldDescriptor CollectionDef
floatList__field_descriptor
= String
-> FieldTypeDescriptor CollectionDef'FloatList
-> FieldAccessor CollectionDef CollectionDef'FloatList
-> FieldDescriptor CollectionDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"float_list"
(MessageOrGroup -> FieldTypeDescriptor CollectionDef'FloatList
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CollectionDef'FloatList)
(Lens' CollectionDef (Maybe CollectionDef'FloatList)
-> FieldAccessor CollectionDef CollectionDef'FloatList
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'floatList" a, Functor f) =>
(a -> f a) -> s -> 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'floatList")) ::
Data.ProtoLens.FieldDescriptor CollectionDef
anyList__field_descriptor :: FieldDescriptor CollectionDef
anyList__field_descriptor
= String
-> FieldTypeDescriptor CollectionDef'AnyList
-> FieldAccessor CollectionDef CollectionDef'AnyList
-> FieldDescriptor CollectionDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"any_list"
(MessageOrGroup -> FieldTypeDescriptor CollectionDef'AnyList
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CollectionDef'AnyList)
(Lens' CollectionDef (Maybe CollectionDef'AnyList)
-> FieldAccessor CollectionDef CollectionDef'AnyList
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'anyList" a, Functor f) =>
(a -> f a) -> s -> 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'anyList")) ::
Data.ProtoLens.FieldDescriptor CollectionDef
in
[(Tag, FieldDescriptor CollectionDef)]
-> Map Tag (FieldDescriptor CollectionDef)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CollectionDef
nodeList__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor CollectionDef
bytesList__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor CollectionDef
int64List__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor CollectionDef
floatList__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor CollectionDef
anyList__field_descriptor)]
unknownFields :: LensLike' f CollectionDef FieldSet
unknownFields
= (CollectionDef -> FieldSet)
-> (CollectionDef -> FieldSet -> CollectionDef)
-> Lens' CollectionDef FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef -> FieldSet
_CollectionDef'_unknownFields
(\ x__ :: CollectionDef
x__ y__ :: FieldSet
y__ -> CollectionDef
x__ {_CollectionDef'_unknownFields :: FieldSet
_CollectionDef'_unknownFields = FieldSet
y__})
defMessage :: CollectionDef
defMessage
= $WCollectionDef'_constructor :: Maybe CollectionDef'Kind -> FieldSet -> CollectionDef
CollectionDef'_constructor
{_CollectionDef'kind :: Maybe CollectionDef'Kind
_CollectionDef'kind = Maybe CollectionDef'Kind
forall a. Maybe a
Prelude.Nothing,
_CollectionDef'_unknownFields :: FieldSet
_CollectionDef'_unknownFields = []}
parseMessage :: Parser CollectionDef
parseMessage
= let
loop ::
CollectionDef -> Data.ProtoLens.Encoding.Bytes.Parser CollectionDef
loop :: CollectionDef -> Parser CollectionDef
loop x :: CollectionDef
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]))))
CollectionDef -> Parser CollectionDef
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter CollectionDef CollectionDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CollectionDef -> CollectionDef
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 CollectionDef CollectionDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) CollectionDef
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do CollectionDef'NodeList
y <- Parser CollectionDef'NodeList
-> String -> Parser CollectionDef'NodeList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser CollectionDef'NodeList -> Parser CollectionDef'NodeList
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 CollectionDef'NodeList
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"node_list"
CollectionDef -> Parser CollectionDef
loop
(Setter
CollectionDef
CollectionDef
CollectionDef'NodeList
CollectionDef'NodeList
-> CollectionDef'NodeList -> CollectionDef -> CollectionDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "nodeList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"nodeList") CollectionDef'NodeList
y CollectionDef
x)
18
-> do CollectionDef'BytesList
y <- Parser CollectionDef'BytesList
-> String -> Parser CollectionDef'BytesList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser CollectionDef'BytesList -> Parser CollectionDef'BytesList
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 CollectionDef'BytesList
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"bytes_list"
CollectionDef -> Parser CollectionDef
loop
(Setter
CollectionDef
CollectionDef
CollectionDef'BytesList
CollectionDef'BytesList
-> CollectionDef'BytesList -> CollectionDef -> CollectionDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "bytesList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"bytesList") CollectionDef'BytesList
y CollectionDef
x)
26
-> do CollectionDef'Int64List
y <- Parser CollectionDef'Int64List
-> String -> Parser CollectionDef'Int64List
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser CollectionDef'Int64List -> Parser CollectionDef'Int64List
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 CollectionDef'Int64List
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"int64_list"
CollectionDef -> Parser CollectionDef
loop
(Setter
CollectionDef
CollectionDef
CollectionDef'Int64List
CollectionDef'Int64List
-> CollectionDef'Int64List -> CollectionDef -> CollectionDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "int64List" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"int64List") CollectionDef'Int64List
y CollectionDef
x)
34
-> do CollectionDef'FloatList
y <- Parser CollectionDef'FloatList
-> String -> Parser CollectionDef'FloatList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser CollectionDef'FloatList -> Parser CollectionDef'FloatList
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 CollectionDef'FloatList
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"float_list"
CollectionDef -> Parser CollectionDef
loop
(Setter
CollectionDef
CollectionDef
CollectionDef'FloatList
CollectionDef'FloatList
-> CollectionDef'FloatList -> CollectionDef -> CollectionDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "floatList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"floatList") CollectionDef'FloatList
y CollectionDef
x)
42
-> do CollectionDef'AnyList
y <- Parser CollectionDef'AnyList
-> String -> Parser CollectionDef'AnyList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser CollectionDef'AnyList -> Parser CollectionDef'AnyList
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 CollectionDef'AnyList
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"any_list"
CollectionDef -> Parser CollectionDef
loop (Setter
CollectionDef
CollectionDef
CollectionDef'AnyList
CollectionDef'AnyList
-> CollectionDef'AnyList -> CollectionDef -> CollectionDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "anyList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"anyList") CollectionDef'AnyList
y CollectionDef
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
CollectionDef -> Parser CollectionDef
loop
(Setter CollectionDef CollectionDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> CollectionDef -> CollectionDef
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 CollectionDef CollectionDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CollectionDef
x)
in
Parser CollectionDef -> String -> Parser CollectionDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do CollectionDef -> Parser CollectionDef
loop CollectionDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "CollectionDef"
buildMessage :: CollectionDef -> Builder
buildMessage
= \ _x :: CollectionDef
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe CollectionDef'Kind)
CollectionDef
CollectionDef
(Maybe CollectionDef'Kind)
(Maybe CollectionDef'Kind)
-> CollectionDef -> Maybe CollectionDef'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") CollectionDef
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (CollectionDef'NodeList' v :: CollectionDef'NodeList
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (CollectionDef'NodeList -> ByteString)
-> CollectionDef'NodeList
-> 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))
CollectionDef'NodeList -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
CollectionDef'NodeList
v)
(Prelude.Just (CollectionDef'BytesList' v :: CollectionDef'BytesList
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (CollectionDef'BytesList -> ByteString)
-> CollectionDef'BytesList
-> 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))
CollectionDef'BytesList -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
CollectionDef'BytesList
v)
(Prelude.Just (CollectionDef'Int64List' v :: CollectionDef'Int64List
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder)
-> (CollectionDef'Int64List -> ByteString)
-> CollectionDef'Int64List
-> 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))
CollectionDef'Int64List -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
CollectionDef'Int64List
v)
(Prelude.Just (CollectionDef'FloatList' v :: CollectionDef'FloatList
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((ByteString -> Builder)
-> (CollectionDef'FloatList -> ByteString)
-> CollectionDef'FloatList
-> 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))
CollectionDef'FloatList -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
CollectionDef'FloatList
v)
(Prelude.Just (CollectionDef'AnyList' v :: CollectionDef'AnyList
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((ByteString -> Builder)
-> (CollectionDef'AnyList -> ByteString)
-> CollectionDef'AnyList
-> 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))
CollectionDef'AnyList -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
CollectionDef'AnyList
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet CollectionDef CollectionDef FieldSet FieldSet
-> CollectionDef -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet CollectionDef CollectionDef FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CollectionDef
_x))
instance Control.DeepSeq.NFData CollectionDef where
rnf :: CollectionDef -> ()
rnf
= \ x__ :: CollectionDef
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CollectionDef -> FieldSet
_CollectionDef'_unknownFields CollectionDef
x__)
(Maybe CollectionDef'Kind -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CollectionDef -> Maybe CollectionDef'Kind
_CollectionDef'kind CollectionDef
x__) ())
instance Control.DeepSeq.NFData CollectionDef'Kind where
rnf :: CollectionDef'Kind -> ()
rnf (CollectionDef'NodeList' x__ :: CollectionDef'NodeList
x__) = CollectionDef'NodeList -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CollectionDef'NodeList
x__
rnf (CollectionDef'BytesList' x__ :: CollectionDef'BytesList
x__) = CollectionDef'BytesList -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CollectionDef'BytesList
x__
rnf (CollectionDef'Int64List' x__ :: CollectionDef'Int64List
x__) = CollectionDef'Int64List -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CollectionDef'Int64List
x__
rnf (CollectionDef'FloatList' x__ :: CollectionDef'FloatList
x__) = CollectionDef'FloatList -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CollectionDef'FloatList
x__
rnf (CollectionDef'AnyList' x__ :: CollectionDef'AnyList
x__) = CollectionDef'AnyList -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf CollectionDef'AnyList
x__
_CollectionDef'NodeList' ::
Data.ProtoLens.Prism.Prism' CollectionDef'Kind CollectionDef'NodeList
_CollectionDef'NodeList' :: p CollectionDef'NodeList (f CollectionDef'NodeList)
-> p CollectionDef'Kind (f CollectionDef'Kind)
_CollectionDef'NodeList'
= (CollectionDef'NodeList -> CollectionDef'Kind)
-> (CollectionDef'Kind -> Maybe CollectionDef'NodeList)
-> Prism
CollectionDef'Kind
CollectionDef'Kind
CollectionDef'NodeList
CollectionDef'NodeList
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
CollectionDef'NodeList -> CollectionDef'Kind
CollectionDef'NodeList'
(\ p__ :: CollectionDef'Kind
p__
-> case CollectionDef'Kind
p__ of
(CollectionDef'NodeList' p__val :: CollectionDef'NodeList
p__val) -> CollectionDef'NodeList -> Maybe CollectionDef'NodeList
forall a. a -> Maybe a
Prelude.Just CollectionDef'NodeList
p__val
_otherwise :: CollectionDef'Kind
_otherwise -> Maybe CollectionDef'NodeList
forall a. Maybe a
Prelude.Nothing)
_CollectionDef'BytesList' ::
Data.ProtoLens.Prism.Prism' CollectionDef'Kind CollectionDef'BytesList
_CollectionDef'BytesList' :: p CollectionDef'BytesList (f CollectionDef'BytesList)
-> p CollectionDef'Kind (f CollectionDef'Kind)
_CollectionDef'BytesList'
= (CollectionDef'BytesList -> CollectionDef'Kind)
-> (CollectionDef'Kind -> Maybe CollectionDef'BytesList)
-> Prism
CollectionDef'Kind
CollectionDef'Kind
CollectionDef'BytesList
CollectionDef'BytesList
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
CollectionDef'BytesList -> CollectionDef'Kind
CollectionDef'BytesList'
(\ p__ :: CollectionDef'Kind
p__
-> case CollectionDef'Kind
p__ of
(CollectionDef'BytesList' p__val :: CollectionDef'BytesList
p__val) -> CollectionDef'BytesList -> Maybe CollectionDef'BytesList
forall a. a -> Maybe a
Prelude.Just CollectionDef'BytesList
p__val
_otherwise :: CollectionDef'Kind
_otherwise -> Maybe CollectionDef'BytesList
forall a. Maybe a
Prelude.Nothing)
_CollectionDef'Int64List' ::
Data.ProtoLens.Prism.Prism' CollectionDef'Kind CollectionDef'Int64List
_CollectionDef'Int64List' :: p CollectionDef'Int64List (f CollectionDef'Int64List)
-> p CollectionDef'Kind (f CollectionDef'Kind)
_CollectionDef'Int64List'
= (CollectionDef'Int64List -> CollectionDef'Kind)
-> (CollectionDef'Kind -> Maybe CollectionDef'Int64List)
-> Prism
CollectionDef'Kind
CollectionDef'Kind
CollectionDef'Int64List
CollectionDef'Int64List
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
CollectionDef'Int64List -> CollectionDef'Kind
CollectionDef'Int64List'
(\ p__ :: CollectionDef'Kind
p__
-> case CollectionDef'Kind
p__ of
(CollectionDef'Int64List' p__val :: CollectionDef'Int64List
p__val) -> CollectionDef'Int64List -> Maybe CollectionDef'Int64List
forall a. a -> Maybe a
Prelude.Just CollectionDef'Int64List
p__val
_otherwise :: CollectionDef'Kind
_otherwise -> Maybe CollectionDef'Int64List
forall a. Maybe a
Prelude.Nothing)
_CollectionDef'FloatList' ::
Data.ProtoLens.Prism.Prism' CollectionDef'Kind CollectionDef'FloatList
_CollectionDef'FloatList' :: p CollectionDef'FloatList (f CollectionDef'FloatList)
-> p CollectionDef'Kind (f CollectionDef'Kind)
_CollectionDef'FloatList'
= (CollectionDef'FloatList -> CollectionDef'Kind)
-> (CollectionDef'Kind -> Maybe CollectionDef'FloatList)
-> Prism
CollectionDef'Kind
CollectionDef'Kind
CollectionDef'FloatList
CollectionDef'FloatList
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
CollectionDef'FloatList -> CollectionDef'Kind
CollectionDef'FloatList'
(\ p__ :: CollectionDef'Kind
p__
-> case CollectionDef'Kind
p__ of
(CollectionDef'FloatList' p__val :: CollectionDef'FloatList
p__val) -> CollectionDef'FloatList -> Maybe CollectionDef'FloatList
forall a. a -> Maybe a
Prelude.Just CollectionDef'FloatList
p__val
_otherwise :: CollectionDef'Kind
_otherwise -> Maybe CollectionDef'FloatList
forall a. Maybe a
Prelude.Nothing)
_CollectionDef'AnyList' ::
Data.ProtoLens.Prism.Prism' CollectionDef'Kind CollectionDef'AnyList
_CollectionDef'AnyList' :: p CollectionDef'AnyList (f CollectionDef'AnyList)
-> p CollectionDef'Kind (f CollectionDef'Kind)
_CollectionDef'AnyList'
= (CollectionDef'AnyList -> CollectionDef'Kind)
-> (CollectionDef'Kind -> Maybe CollectionDef'AnyList)
-> Prism
CollectionDef'Kind
CollectionDef'Kind
CollectionDef'AnyList
CollectionDef'AnyList
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
CollectionDef'AnyList -> CollectionDef'Kind
CollectionDef'AnyList'
(\ p__ :: CollectionDef'Kind
p__
-> case CollectionDef'Kind
p__ of
(CollectionDef'AnyList' p__val :: CollectionDef'AnyList
p__val) -> CollectionDef'AnyList -> Maybe CollectionDef'AnyList
forall a. a -> Maybe a
Prelude.Just CollectionDef'AnyList
p__val
_otherwise :: CollectionDef'Kind
_otherwise -> Maybe CollectionDef'AnyList
forall a. Maybe a
Prelude.Nothing)
data CollectionDef'AnyList
= CollectionDef'AnyList'_constructor {CollectionDef'AnyList -> Vector Any
_CollectionDef'AnyList'value :: !(Data.Vector.Vector Proto.Google.Protobuf.Any.Any),
CollectionDef'AnyList -> FieldSet
_CollectionDef'AnyList'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
(CollectionDef'AnyList -> CollectionDef'AnyList -> Bool)
-> (CollectionDef'AnyList -> CollectionDef'AnyList -> Bool)
-> Eq CollectionDef'AnyList
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
$c/= :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
== :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
$c== :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
Prelude.Eq, Eq CollectionDef'AnyList
Eq CollectionDef'AnyList =>
(CollectionDef'AnyList -> CollectionDef'AnyList -> Ordering)
-> (CollectionDef'AnyList -> CollectionDef'AnyList -> Bool)
-> (CollectionDef'AnyList -> CollectionDef'AnyList -> Bool)
-> (CollectionDef'AnyList -> CollectionDef'AnyList -> Bool)
-> (CollectionDef'AnyList -> CollectionDef'AnyList -> Bool)
-> (CollectionDef'AnyList
-> CollectionDef'AnyList -> CollectionDef'AnyList)
-> (CollectionDef'AnyList
-> CollectionDef'AnyList -> CollectionDef'AnyList)
-> Ord CollectionDef'AnyList
CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
CollectionDef'AnyList -> CollectionDef'AnyList -> Ordering
CollectionDef'AnyList
-> CollectionDef'AnyList -> CollectionDef'AnyList
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 :: CollectionDef'AnyList
-> CollectionDef'AnyList -> CollectionDef'AnyList
$cmin :: CollectionDef'AnyList
-> CollectionDef'AnyList -> CollectionDef'AnyList
max :: CollectionDef'AnyList
-> CollectionDef'AnyList -> CollectionDef'AnyList
$cmax :: CollectionDef'AnyList
-> CollectionDef'AnyList -> CollectionDef'AnyList
>= :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
$c>= :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
> :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
$c> :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
<= :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
$c<= :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
< :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
$c< :: CollectionDef'AnyList -> CollectionDef'AnyList -> Bool
compare :: CollectionDef'AnyList -> CollectionDef'AnyList -> Ordering
$ccompare :: CollectionDef'AnyList -> CollectionDef'AnyList -> Ordering
$cp1Ord :: Eq CollectionDef'AnyList
Prelude.Ord)
instance Prelude.Show CollectionDef'AnyList where
showsPrec :: Int -> CollectionDef'AnyList -> ShowS
showsPrec _ __x :: CollectionDef'AnyList
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(CollectionDef'AnyList -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CollectionDef'AnyList
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CollectionDef'AnyList "value" [Proto.Google.Protobuf.Any.Any] where
fieldOf :: Proxy# "value"
-> ([Any] -> f [Any])
-> CollectionDef'AnyList
-> f CollectionDef'AnyList
fieldOf _
= ((Vector Any -> f (Vector Any))
-> CollectionDef'AnyList -> f CollectionDef'AnyList)
-> (([Any] -> f [Any]) -> Vector Any -> f (Vector Any))
-> ([Any] -> f [Any])
-> CollectionDef'AnyList
-> f CollectionDef'AnyList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef'AnyList -> Vector Any)
-> (CollectionDef'AnyList -> Vector Any -> CollectionDef'AnyList)
-> Lens
CollectionDef'AnyList
CollectionDef'AnyList
(Vector Any)
(Vector Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef'AnyList -> Vector Any
_CollectionDef'AnyList'value
(\ x__ :: CollectionDef'AnyList
x__ y__ :: Vector Any
y__ -> CollectionDef'AnyList
x__ {_CollectionDef'AnyList'value :: Vector Any
_CollectionDef'AnyList'value = Vector Any
y__}))
((Vector Any -> [Any])
-> (Vector Any -> [Any] -> Vector Any)
-> Lens (Vector Any) (Vector Any) [Any] [Any]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Any -> [Any]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Any]
y__ -> [Any] -> Vector Any
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Any]
y__))
instance Data.ProtoLens.Field.HasField CollectionDef'AnyList "vec'value" (Data.Vector.Vector Proto.Google.Protobuf.Any.Any) where
fieldOf :: Proxy# "vec'value"
-> (Vector Any -> f (Vector Any))
-> CollectionDef'AnyList
-> f CollectionDef'AnyList
fieldOf _
= ((Vector Any -> f (Vector Any))
-> CollectionDef'AnyList -> f CollectionDef'AnyList)
-> ((Vector Any -> f (Vector Any)) -> Vector Any -> f (Vector Any))
-> (Vector Any -> f (Vector Any))
-> CollectionDef'AnyList
-> f CollectionDef'AnyList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef'AnyList -> Vector Any)
-> (CollectionDef'AnyList -> Vector Any -> CollectionDef'AnyList)
-> Lens
CollectionDef'AnyList
CollectionDef'AnyList
(Vector Any)
(Vector Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef'AnyList -> Vector Any
_CollectionDef'AnyList'value
(\ x__ :: CollectionDef'AnyList
x__ y__ :: Vector Any
y__ -> CollectionDef'AnyList
x__ {_CollectionDef'AnyList'value :: Vector Any
_CollectionDef'AnyList'value = Vector Any
y__}))
(Vector Any -> f (Vector Any)) -> Vector Any -> f (Vector Any)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CollectionDef'AnyList where
messageName :: Proxy CollectionDef'AnyList -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CollectionDef.AnyList"
packedMessageDescriptor :: Proxy CollectionDef'AnyList -> ByteString
packedMessageDescriptor _
= "\n\
\\aAnyList\DC2*\n\
\\ENQvalue\CAN\SOH \ETX(\v2\DC4.google.protobuf.AnyR\ENQvalue"
packedFileDescriptor :: Proxy CollectionDef'AnyList -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CollectionDef'AnyList)
fieldsByTag
= let
value__field_descriptor :: FieldDescriptor CollectionDef'AnyList
value__field_descriptor
= String
-> FieldTypeDescriptor Any
-> FieldAccessor CollectionDef'AnyList Any
-> FieldDescriptor CollectionDef'AnyList
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(MessageOrGroup -> FieldTypeDescriptor Any
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Any.Any)
(Packing
-> Lens' CollectionDef'AnyList [Any]
-> FieldAccessor CollectionDef'AnyList Any
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor CollectionDef'AnyList
in
[(Tag, FieldDescriptor CollectionDef'AnyList)]
-> Map Tag (FieldDescriptor CollectionDef'AnyList)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CollectionDef'AnyList
value__field_descriptor)]
unknownFields :: LensLike' f CollectionDef'AnyList FieldSet
unknownFields
= (CollectionDef'AnyList -> FieldSet)
-> (CollectionDef'AnyList -> FieldSet -> CollectionDef'AnyList)
-> Lens' CollectionDef'AnyList FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef'AnyList -> FieldSet
_CollectionDef'AnyList'_unknownFields
(\ x__ :: CollectionDef'AnyList
x__ y__ :: FieldSet
y__ -> CollectionDef'AnyList
x__ {_CollectionDef'AnyList'_unknownFields :: FieldSet
_CollectionDef'AnyList'_unknownFields = FieldSet
y__})
defMessage :: CollectionDef'AnyList
defMessage
= $WCollectionDef'AnyList'_constructor :: Vector Any -> FieldSet -> CollectionDef'AnyList
CollectionDef'AnyList'_constructor
{_CollectionDef'AnyList'value :: Vector Any
_CollectionDef'AnyList'value = Vector Any
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_CollectionDef'AnyList'_unknownFields :: FieldSet
_CollectionDef'AnyList'_unknownFields = []}
parseMessage :: Parser CollectionDef'AnyList
parseMessage
= let
loop ::
CollectionDef'AnyList
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Google.Protobuf.Any.Any
-> Data.ProtoLens.Encoding.Bytes.Parser CollectionDef'AnyList
loop :: CollectionDef'AnyList
-> Growing Vector RealWorld Any -> Parser CollectionDef'AnyList
loop x :: CollectionDef'AnyList
x mutable'value :: Growing Vector RealWorld Any
mutable'value
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Any
frozen'value <- IO (Vector Any) -> Parser (Vector Any)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Any -> IO (Vector Any)
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 Any
Growing Vector (PrimState IO) Any
mutable'value)
(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]))))
CollectionDef'AnyList -> Parser CollectionDef'AnyList
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
CollectionDef'AnyList CollectionDef'AnyList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'AnyList
-> CollectionDef'AnyList
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
CollectionDef'AnyList CollectionDef'AnyList FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
CollectionDef'AnyList
CollectionDef'AnyList
(Vector Any)
(Vector Any)
-> Vector Any -> CollectionDef'AnyList -> CollectionDef'AnyList
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'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 @"vec'value") Vector Any
frozen'value CollectionDef'AnyList
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do !Any
y <- Parser Any -> String -> Parser Any
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Any -> Parser Any
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 Any
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"value"
Growing Vector RealWorld Any
v <- IO (Growing Vector RealWorld Any)
-> Parser (Growing Vector RealWorld Any)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Any
-> Any -> IO (Growing Vector (PrimState IO) Any)
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 Any
Growing Vector (PrimState IO) Any
mutable'value Any
y)
CollectionDef'AnyList
-> Growing Vector RealWorld Any -> Parser CollectionDef'AnyList
loop CollectionDef'AnyList
x Growing Vector RealWorld Any
v
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
CollectionDef'AnyList
-> Growing Vector RealWorld Any -> Parser CollectionDef'AnyList
loop
(Setter
CollectionDef'AnyList CollectionDef'AnyList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'AnyList
-> CollectionDef'AnyList
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
CollectionDef'AnyList CollectionDef'AnyList FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CollectionDef'AnyList
x)
Growing Vector RealWorld Any
mutable'value
in
Parser CollectionDef'AnyList
-> String -> Parser CollectionDef'AnyList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Any
mutable'value <- IO (Growing Vector RealWorld Any)
-> Parser (Growing Vector RealWorld Any)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Any)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
CollectionDef'AnyList
-> Growing Vector RealWorld Any -> Parser CollectionDef'AnyList
loop CollectionDef'AnyList
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Any
mutable'value)
"AnyList"
buildMessage :: CollectionDef'AnyList -> Builder
buildMessage
= \ _x :: CollectionDef'AnyList
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((Any -> Builder) -> Vector Any -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: Any
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder) -> (Any -> ByteString) -> Any -> 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))
Any -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
Any
_v))
(FoldLike
(Vector Any)
CollectionDef'AnyList
CollectionDef'AnyList
(Vector Any)
(Vector Any)
-> CollectionDef'AnyList -> Vector Any
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'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 @"vec'value") CollectionDef'AnyList
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
CollectionDef'AnyList
CollectionDef'AnyList
FieldSet
FieldSet
-> CollectionDef'AnyList -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
CollectionDef'AnyList
CollectionDef'AnyList
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CollectionDef'AnyList
_x))
instance Control.DeepSeq.NFData CollectionDef'AnyList where
rnf :: CollectionDef'AnyList -> ()
rnf
= \ x__ :: CollectionDef'AnyList
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CollectionDef'AnyList -> FieldSet
_CollectionDef'AnyList'_unknownFields CollectionDef'AnyList
x__)
(Vector Any -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CollectionDef'AnyList -> Vector Any
_CollectionDef'AnyList'value CollectionDef'AnyList
x__) ())
data CollectionDef'BytesList
= CollectionDef'BytesList'_constructor {CollectionDef'BytesList -> Vector ByteString
_CollectionDef'BytesList'value :: !(Data.Vector.Vector Data.ByteString.ByteString),
CollectionDef'BytesList -> FieldSet
_CollectionDef'BytesList'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
(CollectionDef'BytesList -> CollectionDef'BytesList -> Bool)
-> (CollectionDef'BytesList -> CollectionDef'BytesList -> Bool)
-> Eq CollectionDef'BytesList
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
$c/= :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
== :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
$c== :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
Prelude.Eq, Eq CollectionDef'BytesList
Eq CollectionDef'BytesList =>
(CollectionDef'BytesList -> CollectionDef'BytesList -> Ordering)
-> (CollectionDef'BytesList -> CollectionDef'BytesList -> Bool)
-> (CollectionDef'BytesList -> CollectionDef'BytesList -> Bool)
-> (CollectionDef'BytesList -> CollectionDef'BytesList -> Bool)
-> (CollectionDef'BytesList -> CollectionDef'BytesList -> Bool)
-> (CollectionDef'BytesList
-> CollectionDef'BytesList -> CollectionDef'BytesList)
-> (CollectionDef'BytesList
-> CollectionDef'BytesList -> CollectionDef'BytesList)
-> Ord CollectionDef'BytesList
CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
CollectionDef'BytesList -> CollectionDef'BytesList -> Ordering
CollectionDef'BytesList
-> CollectionDef'BytesList -> CollectionDef'BytesList
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 :: CollectionDef'BytesList
-> CollectionDef'BytesList -> CollectionDef'BytesList
$cmin :: CollectionDef'BytesList
-> CollectionDef'BytesList -> CollectionDef'BytesList
max :: CollectionDef'BytesList
-> CollectionDef'BytesList -> CollectionDef'BytesList
$cmax :: CollectionDef'BytesList
-> CollectionDef'BytesList -> CollectionDef'BytesList
>= :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
$c>= :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
> :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
$c> :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
<= :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
$c<= :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
< :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
$c< :: CollectionDef'BytesList -> CollectionDef'BytesList -> Bool
compare :: CollectionDef'BytesList -> CollectionDef'BytesList -> Ordering
$ccompare :: CollectionDef'BytesList -> CollectionDef'BytesList -> Ordering
$cp1Ord :: Eq CollectionDef'BytesList
Prelude.Ord)
instance Prelude.Show CollectionDef'BytesList where
showsPrec :: Int -> CollectionDef'BytesList -> ShowS
showsPrec _ __x :: CollectionDef'BytesList
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(CollectionDef'BytesList -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CollectionDef'BytesList
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CollectionDef'BytesList "value" [Data.ByteString.ByteString] where
fieldOf :: Proxy# "value"
-> ([ByteString] -> f [ByteString])
-> CollectionDef'BytesList
-> f CollectionDef'BytesList
fieldOf _
= ((Vector ByteString -> f (Vector ByteString))
-> CollectionDef'BytesList -> f CollectionDef'BytesList)
-> (([ByteString] -> f [ByteString])
-> Vector ByteString -> f (Vector ByteString))
-> ([ByteString] -> f [ByteString])
-> CollectionDef'BytesList
-> f CollectionDef'BytesList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef'BytesList -> Vector ByteString)
-> (CollectionDef'BytesList
-> Vector ByteString -> CollectionDef'BytesList)
-> Lens
CollectionDef'BytesList
CollectionDef'BytesList
(Vector ByteString)
(Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef'BytesList -> Vector ByteString
_CollectionDef'BytesList'value
(\ x__ :: CollectionDef'BytesList
x__ y__ :: Vector ByteString
y__ -> CollectionDef'BytesList
x__ {_CollectionDef'BytesList'value :: Vector ByteString
_CollectionDef'BytesList'value = Vector ByteString
y__}))
((Vector ByteString -> [ByteString])
-> (Vector ByteString -> [ByteString] -> Vector ByteString)
-> Lens
(Vector ByteString) (Vector ByteString) [ByteString] [ByteString]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector ByteString -> [ByteString]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [ByteString]
y__ -> [ByteString] -> Vector ByteString
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ByteString]
y__))
instance Data.ProtoLens.Field.HasField CollectionDef'BytesList "vec'value" (Data.Vector.Vector Data.ByteString.ByteString) where
fieldOf :: Proxy# "vec'value"
-> (Vector ByteString -> f (Vector ByteString))
-> CollectionDef'BytesList
-> f CollectionDef'BytesList
fieldOf _
= ((Vector ByteString -> f (Vector ByteString))
-> CollectionDef'BytesList -> f CollectionDef'BytesList)
-> ((Vector ByteString -> f (Vector ByteString))
-> Vector ByteString -> f (Vector ByteString))
-> (Vector ByteString -> f (Vector ByteString))
-> CollectionDef'BytesList
-> f CollectionDef'BytesList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef'BytesList -> Vector ByteString)
-> (CollectionDef'BytesList
-> Vector ByteString -> CollectionDef'BytesList)
-> Lens
CollectionDef'BytesList
CollectionDef'BytesList
(Vector ByteString)
(Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef'BytesList -> Vector ByteString
_CollectionDef'BytesList'value
(\ x__ :: CollectionDef'BytesList
x__ y__ :: Vector ByteString
y__ -> CollectionDef'BytesList
x__ {_CollectionDef'BytesList'value :: Vector ByteString
_CollectionDef'BytesList'value = Vector ByteString
y__}))
(Vector ByteString -> f (Vector ByteString))
-> Vector ByteString -> f (Vector ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CollectionDef'BytesList where
messageName :: Proxy CollectionDef'BytesList -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CollectionDef.BytesList"
packedMessageDescriptor :: Proxy CollectionDef'BytesList -> ByteString
packedMessageDescriptor _
= "\n\
\\tBytesList\DC2\DC4\n\
\\ENQvalue\CAN\SOH \ETX(\fR\ENQvalue"
packedFileDescriptor :: Proxy CollectionDef'BytesList -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CollectionDef'BytesList)
fieldsByTag
= let
value__field_descriptor :: FieldDescriptor CollectionDef'BytesList
value__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor CollectionDef'BytesList ByteString
-> FieldDescriptor CollectionDef'BytesList
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(Packing
-> Lens' CollectionDef'BytesList [ByteString]
-> FieldAccessor CollectionDef'BytesList ByteString
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor CollectionDef'BytesList
in
[(Tag, FieldDescriptor CollectionDef'BytesList)]
-> Map Tag (FieldDescriptor CollectionDef'BytesList)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CollectionDef'BytesList
value__field_descriptor)]
unknownFields :: LensLike' f CollectionDef'BytesList FieldSet
unknownFields
= (CollectionDef'BytesList -> FieldSet)
-> (CollectionDef'BytesList -> FieldSet -> CollectionDef'BytesList)
-> Lens' CollectionDef'BytesList FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef'BytesList -> FieldSet
_CollectionDef'BytesList'_unknownFields
(\ x__ :: CollectionDef'BytesList
x__ y__ :: FieldSet
y__ -> CollectionDef'BytesList
x__ {_CollectionDef'BytesList'_unknownFields :: FieldSet
_CollectionDef'BytesList'_unknownFields = FieldSet
y__})
defMessage :: CollectionDef'BytesList
defMessage
= $WCollectionDef'BytesList'_constructor :: Vector ByteString -> FieldSet -> CollectionDef'BytesList
CollectionDef'BytesList'_constructor
{_CollectionDef'BytesList'value :: Vector ByteString
_CollectionDef'BytesList'value = Vector ByteString
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_CollectionDef'BytesList'_unknownFields :: FieldSet
_CollectionDef'BytesList'_unknownFields = []}
parseMessage :: Parser CollectionDef'BytesList
parseMessage
= let
loop ::
CollectionDef'BytesList
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString
-> Data.ProtoLens.Encoding.Bytes.Parser CollectionDef'BytesList
loop :: CollectionDef'BytesList
-> Growing Vector RealWorld ByteString
-> Parser CollectionDef'BytesList
loop x :: CollectionDef'BytesList
x mutable'value :: Growing Vector RealWorld ByteString
mutable'value
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector ByteString
frozen'value <- IO (Vector ByteString) -> Parser (Vector ByteString)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) ByteString -> IO (Vector ByteString)
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 ByteString
Growing Vector (PrimState IO) ByteString
mutable'value)
(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]))))
CollectionDef'BytesList -> Parser CollectionDef'BytesList
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
CollectionDef'BytesList CollectionDef'BytesList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'BytesList
-> CollectionDef'BytesList
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
CollectionDef'BytesList CollectionDef'BytesList FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
CollectionDef'BytesList
CollectionDef'BytesList
(Vector ByteString)
(Vector ByteString)
-> Vector ByteString
-> CollectionDef'BytesList
-> CollectionDef'BytesList
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'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 @"vec'value") Vector ByteString
frozen'value CollectionDef'BytesList
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do !ByteString
y <- Parser ByteString -> String -> Parser ByteString
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(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))
"value"
Growing Vector RealWorld ByteString
v <- IO (Growing Vector RealWorld ByteString)
-> Parser (Growing Vector RealWorld ByteString)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) ByteString
-> ByteString -> IO (Growing Vector (PrimState IO) ByteString)
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 ByteString
Growing Vector (PrimState IO) ByteString
mutable'value ByteString
y)
CollectionDef'BytesList
-> Growing Vector RealWorld ByteString
-> Parser CollectionDef'BytesList
loop CollectionDef'BytesList
x Growing Vector RealWorld ByteString
v
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
CollectionDef'BytesList
-> Growing Vector RealWorld ByteString
-> Parser CollectionDef'BytesList
loop
(Setter
CollectionDef'BytesList CollectionDef'BytesList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'BytesList
-> CollectionDef'BytesList
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
CollectionDef'BytesList CollectionDef'BytesList FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CollectionDef'BytesList
x)
Growing Vector RealWorld ByteString
mutable'value
in
Parser CollectionDef'BytesList
-> String -> Parser CollectionDef'BytesList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld ByteString
mutable'value <- IO (Growing Vector RealWorld ByteString)
-> Parser (Growing Vector RealWorld ByteString)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld ByteString)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
CollectionDef'BytesList
-> Growing Vector RealWorld ByteString
-> Parser CollectionDef'BytesList
loop CollectionDef'BytesList
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld ByteString
mutable'value)
"BytesList"
buildMessage :: CollectionDef'BytesList -> Builder
buildMessage
= \ _x :: CollectionDef'BytesList
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((ByteString -> Builder) -> Vector ByteString -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: ByteString
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((\ 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))
ByteString
_v))
(FoldLike
(Vector ByteString)
CollectionDef'BytesList
CollectionDef'BytesList
(Vector ByteString)
(Vector ByteString)
-> CollectionDef'BytesList -> Vector ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'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 @"vec'value") CollectionDef'BytesList
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
CollectionDef'BytesList
CollectionDef'BytesList
FieldSet
FieldSet
-> CollectionDef'BytesList -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
CollectionDef'BytesList
CollectionDef'BytesList
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CollectionDef'BytesList
_x))
instance Control.DeepSeq.NFData CollectionDef'BytesList where
rnf :: CollectionDef'BytesList -> ()
rnf
= \ x__ :: CollectionDef'BytesList
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CollectionDef'BytesList -> FieldSet
_CollectionDef'BytesList'_unknownFields CollectionDef'BytesList
x__)
(Vector ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CollectionDef'BytesList -> Vector ByteString
_CollectionDef'BytesList'value CollectionDef'BytesList
x__) ())
data CollectionDef'FloatList
= CollectionDef'FloatList'_constructor {CollectionDef'FloatList -> Vector Float
_CollectionDef'FloatList'value :: !(Data.Vector.Unboxed.Vector Prelude.Float),
CollectionDef'FloatList -> FieldSet
_CollectionDef'FloatList'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
(CollectionDef'FloatList -> CollectionDef'FloatList -> Bool)
-> (CollectionDef'FloatList -> CollectionDef'FloatList -> Bool)
-> Eq CollectionDef'FloatList
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
$c/= :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
== :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
$c== :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
Prelude.Eq, Eq CollectionDef'FloatList
Eq CollectionDef'FloatList =>
(CollectionDef'FloatList -> CollectionDef'FloatList -> Ordering)
-> (CollectionDef'FloatList -> CollectionDef'FloatList -> Bool)
-> (CollectionDef'FloatList -> CollectionDef'FloatList -> Bool)
-> (CollectionDef'FloatList -> CollectionDef'FloatList -> Bool)
-> (CollectionDef'FloatList -> CollectionDef'FloatList -> Bool)
-> (CollectionDef'FloatList
-> CollectionDef'FloatList -> CollectionDef'FloatList)
-> (CollectionDef'FloatList
-> CollectionDef'FloatList -> CollectionDef'FloatList)
-> Ord CollectionDef'FloatList
CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
CollectionDef'FloatList -> CollectionDef'FloatList -> Ordering
CollectionDef'FloatList
-> CollectionDef'FloatList -> CollectionDef'FloatList
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 :: CollectionDef'FloatList
-> CollectionDef'FloatList -> CollectionDef'FloatList
$cmin :: CollectionDef'FloatList
-> CollectionDef'FloatList -> CollectionDef'FloatList
max :: CollectionDef'FloatList
-> CollectionDef'FloatList -> CollectionDef'FloatList
$cmax :: CollectionDef'FloatList
-> CollectionDef'FloatList -> CollectionDef'FloatList
>= :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
$c>= :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
> :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
$c> :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
<= :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
$c<= :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
< :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
$c< :: CollectionDef'FloatList -> CollectionDef'FloatList -> Bool
compare :: CollectionDef'FloatList -> CollectionDef'FloatList -> Ordering
$ccompare :: CollectionDef'FloatList -> CollectionDef'FloatList -> Ordering
$cp1Ord :: Eq CollectionDef'FloatList
Prelude.Ord)
instance Prelude.Show CollectionDef'FloatList where
showsPrec :: Int -> CollectionDef'FloatList -> ShowS
showsPrec _ __x :: CollectionDef'FloatList
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(CollectionDef'FloatList -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CollectionDef'FloatList
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CollectionDef'FloatList "value" [Prelude.Float] where
fieldOf :: Proxy# "value"
-> ([Float] -> f [Float])
-> CollectionDef'FloatList
-> f CollectionDef'FloatList
fieldOf _
= ((Vector Float -> f (Vector Float))
-> CollectionDef'FloatList -> f CollectionDef'FloatList)
-> (([Float] -> f [Float]) -> Vector Float -> f (Vector Float))
-> ([Float] -> f [Float])
-> CollectionDef'FloatList
-> f CollectionDef'FloatList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef'FloatList -> Vector Float)
-> (CollectionDef'FloatList
-> Vector Float -> CollectionDef'FloatList)
-> Lens
CollectionDef'FloatList
CollectionDef'FloatList
(Vector Float)
(Vector Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef'FloatList -> Vector Float
_CollectionDef'FloatList'value
(\ x__ :: CollectionDef'FloatList
x__ y__ :: Vector Float
y__ -> CollectionDef'FloatList
x__ {_CollectionDef'FloatList'value :: Vector Float
_CollectionDef'FloatList'value = Vector Float
y__}))
((Vector Float -> [Float])
-> (Vector Float -> [Float] -> Vector Float)
-> Lens (Vector Float) (Vector Float) [Float] [Float]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Float -> [Float]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Float]
y__ -> [Float] -> Vector Float
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Float]
y__))
instance Data.ProtoLens.Field.HasField CollectionDef'FloatList "vec'value" (Data.Vector.Unboxed.Vector Prelude.Float) where
fieldOf :: Proxy# "vec'value"
-> (Vector Float -> f (Vector Float))
-> CollectionDef'FloatList
-> f CollectionDef'FloatList
fieldOf _
= ((Vector Float -> f (Vector Float))
-> CollectionDef'FloatList -> f CollectionDef'FloatList)
-> ((Vector Float -> f (Vector Float))
-> Vector Float -> f (Vector Float))
-> (Vector Float -> f (Vector Float))
-> CollectionDef'FloatList
-> f CollectionDef'FloatList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef'FloatList -> Vector Float)
-> (CollectionDef'FloatList
-> Vector Float -> CollectionDef'FloatList)
-> Lens
CollectionDef'FloatList
CollectionDef'FloatList
(Vector Float)
(Vector Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef'FloatList -> Vector Float
_CollectionDef'FloatList'value
(\ x__ :: CollectionDef'FloatList
x__ y__ :: Vector Float
y__ -> CollectionDef'FloatList
x__ {_CollectionDef'FloatList'value :: Vector Float
_CollectionDef'FloatList'value = Vector Float
y__}))
(Vector Float -> f (Vector Float))
-> Vector Float -> f (Vector Float)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CollectionDef'FloatList where
messageName :: Proxy CollectionDef'FloatList -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CollectionDef.FloatList"
packedMessageDescriptor :: Proxy CollectionDef'FloatList -> ByteString
packedMessageDescriptor _
= "\n\
\\tFloatList\DC2\CAN\n\
\\ENQvalue\CAN\SOH \ETX(\STXR\ENQvalueB\STX\DLE\SOH"
packedFileDescriptor :: Proxy CollectionDef'FloatList -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CollectionDef'FloatList)
fieldsByTag
= let
value__field_descriptor :: FieldDescriptor CollectionDef'FloatList
value__field_descriptor
= String
-> FieldTypeDescriptor Float
-> FieldAccessor CollectionDef'FloatList Float
-> FieldDescriptor CollectionDef'FloatList
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(ScalarField Float -> FieldTypeDescriptor Float
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Float
Data.ProtoLens.FloatField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Float)
(Packing
-> Lens' CollectionDef'FloatList [Float]
-> FieldAccessor CollectionDef'FloatList Float
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor CollectionDef'FloatList
in
[(Tag, FieldDescriptor CollectionDef'FloatList)]
-> Map Tag (FieldDescriptor CollectionDef'FloatList)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CollectionDef'FloatList
value__field_descriptor)]
unknownFields :: LensLike' f CollectionDef'FloatList FieldSet
unknownFields
= (CollectionDef'FloatList -> FieldSet)
-> (CollectionDef'FloatList -> FieldSet -> CollectionDef'FloatList)
-> Lens' CollectionDef'FloatList FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef'FloatList -> FieldSet
_CollectionDef'FloatList'_unknownFields
(\ x__ :: CollectionDef'FloatList
x__ y__ :: FieldSet
y__ -> CollectionDef'FloatList
x__ {_CollectionDef'FloatList'_unknownFields :: FieldSet
_CollectionDef'FloatList'_unknownFields = FieldSet
y__})
defMessage :: CollectionDef'FloatList
defMessage
= $WCollectionDef'FloatList'_constructor :: Vector Float -> FieldSet -> CollectionDef'FloatList
CollectionDef'FloatList'_constructor
{_CollectionDef'FloatList'value :: Vector Float
_CollectionDef'FloatList'value = Vector Float
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_CollectionDef'FloatList'_unknownFields :: FieldSet
_CollectionDef'FloatList'_unknownFields = []}
parseMessage :: Parser CollectionDef'FloatList
parseMessage
= let
loop ::
CollectionDef'FloatList
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Prelude.Float
-> Data.ProtoLens.Encoding.Bytes.Parser CollectionDef'FloatList
loop :: CollectionDef'FloatList
-> Growing Vector RealWorld Float -> Parser CollectionDef'FloatList
loop x :: CollectionDef'FloatList
x mutable'value :: Growing Vector RealWorld Float
mutable'value
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Float
frozen'value <- IO (Vector Float) -> Parser (Vector Float)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Float -> IO (Vector Float)
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 Float
Growing Vector (PrimState IO) Float
mutable'value)
(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]))))
CollectionDef'FloatList -> Parser CollectionDef'FloatList
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
CollectionDef'FloatList CollectionDef'FloatList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'FloatList
-> CollectionDef'FloatList
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
CollectionDef'FloatList CollectionDef'FloatList FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
CollectionDef'FloatList
CollectionDef'FloatList
(Vector Float)
(Vector Float)
-> Vector Float
-> CollectionDef'FloatList
-> CollectionDef'FloatList
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'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 @"vec'value") Vector Float
frozen'value CollectionDef'FloatList
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
13
-> do !Float
y <- Parser Float -> String -> Parser Float
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word32 -> Float) -> Parser Word32 -> Parser Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word32 -> Float
Data.ProtoLens.Encoding.Bytes.wordToFloat
Parser Word32
Data.ProtoLens.Encoding.Bytes.getFixed32)
"value"
Growing Vector RealWorld Float
v <- IO (Growing Vector RealWorld Float)
-> Parser (Growing Vector RealWorld Float)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Float
-> Float -> IO (Growing Vector (PrimState IO) Float)
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 Float
Growing Vector (PrimState IO) Float
mutable'value Float
y)
CollectionDef'FloatList
-> Growing Vector RealWorld Float -> Parser CollectionDef'FloatList
loop CollectionDef'FloatList
x Growing Vector RealWorld Float
v
10
-> do Growing Vector RealWorld Float
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Float)
-> Parser (Growing Vector RealWorld Float)
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 Float -> Parser (Growing v RealWorld Float)
ploop qs :: Growing v RealWorld Float
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld Float -> Parser (Growing v RealWorld Float)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld Float
qs
else
do !Float
q <- Parser Float -> String -> Parser Float
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word32 -> Float) -> Parser Word32 -> Parser Float
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word32 -> Float
Data.ProtoLens.Encoding.Bytes.wordToFloat
Parser Word32
Data.ProtoLens.Encoding.Bytes.getFixed32)
"value"
Growing v RealWorld Float
qs' <- IO (Growing v RealWorld Float)
-> Parser (Growing v RealWorld Float)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) Float
-> Float -> IO (Growing v (PrimState IO) Float)
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 Float
Growing v (PrimState IO) Float
qs Float
q)
Growing v RealWorld Float -> Parser (Growing v RealWorld Float)
ploop Growing v RealWorld Float
qs'
in forall (v :: * -> *).
Vector v Float =>
Growing v RealWorld Float -> Parser (Growing v RealWorld Float)
ploop)
Growing Vector RealWorld Float
mutable'value)
CollectionDef'FloatList
-> Growing Vector RealWorld Float -> Parser CollectionDef'FloatList
loop CollectionDef'FloatList
x Growing Vector RealWorld Float
y
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
CollectionDef'FloatList
-> Growing Vector RealWorld Float -> Parser CollectionDef'FloatList
loop
(Setter
CollectionDef'FloatList CollectionDef'FloatList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'FloatList
-> CollectionDef'FloatList
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
CollectionDef'FloatList CollectionDef'FloatList FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CollectionDef'FloatList
x)
Growing Vector RealWorld Float
mutable'value
in
Parser CollectionDef'FloatList
-> String -> Parser CollectionDef'FloatList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Float
mutable'value <- IO (Growing Vector RealWorld Float)
-> Parser (Growing Vector RealWorld Float)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Float)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
CollectionDef'FloatList
-> Growing Vector RealWorld Float -> Parser CollectionDef'FloatList
loop CollectionDef'FloatList
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Float
mutable'value)
"FloatList"
buildMessage :: CollectionDef'FloatList -> Builder
buildMessage
= \ _x :: CollectionDef'FloatList
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Float
p = FoldLike
(Vector Float)
CollectionDef'FloatList
CollectionDef'FloatList
(Vector Float)
(Vector Float)
-> CollectionDef'FloatList -> Vector Float
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'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 @"vec'value") CollectionDef'FloatList
_x
in
if Vector Float -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Float
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 10)
((\ 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
((Float -> Builder) -> Vector Float -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((Word32 -> Builder) -> (Float -> Word32) -> Float -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word32 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed32
Float -> Word32
Data.ProtoLens.Encoding.Bytes.floatToWord)
Vector Float
p))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
CollectionDef'FloatList
CollectionDef'FloatList
FieldSet
FieldSet
-> CollectionDef'FloatList -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
CollectionDef'FloatList
CollectionDef'FloatList
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CollectionDef'FloatList
_x))
instance Control.DeepSeq.NFData CollectionDef'FloatList where
rnf :: CollectionDef'FloatList -> ()
rnf
= \ x__ :: CollectionDef'FloatList
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CollectionDef'FloatList -> FieldSet
_CollectionDef'FloatList'_unknownFields CollectionDef'FloatList
x__)
(Vector Float -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CollectionDef'FloatList -> Vector Float
_CollectionDef'FloatList'value CollectionDef'FloatList
x__) ())
data CollectionDef'Int64List
= CollectionDef'Int64List'_constructor {CollectionDef'Int64List -> Vector Int64
_CollectionDef'Int64List'value :: !(Data.Vector.Unboxed.Vector Data.Int.Int64),
CollectionDef'Int64List -> FieldSet
_CollectionDef'Int64List'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
(CollectionDef'Int64List -> CollectionDef'Int64List -> Bool)
-> (CollectionDef'Int64List -> CollectionDef'Int64List -> Bool)
-> Eq CollectionDef'Int64List
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
$c/= :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
== :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
$c== :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
Prelude.Eq, Eq CollectionDef'Int64List
Eq CollectionDef'Int64List =>
(CollectionDef'Int64List -> CollectionDef'Int64List -> Ordering)
-> (CollectionDef'Int64List -> CollectionDef'Int64List -> Bool)
-> (CollectionDef'Int64List -> CollectionDef'Int64List -> Bool)
-> (CollectionDef'Int64List -> CollectionDef'Int64List -> Bool)
-> (CollectionDef'Int64List -> CollectionDef'Int64List -> Bool)
-> (CollectionDef'Int64List
-> CollectionDef'Int64List -> CollectionDef'Int64List)
-> (CollectionDef'Int64List
-> CollectionDef'Int64List -> CollectionDef'Int64List)
-> Ord CollectionDef'Int64List
CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
CollectionDef'Int64List -> CollectionDef'Int64List -> Ordering
CollectionDef'Int64List
-> CollectionDef'Int64List -> CollectionDef'Int64List
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 :: CollectionDef'Int64List
-> CollectionDef'Int64List -> CollectionDef'Int64List
$cmin :: CollectionDef'Int64List
-> CollectionDef'Int64List -> CollectionDef'Int64List
max :: CollectionDef'Int64List
-> CollectionDef'Int64List -> CollectionDef'Int64List
$cmax :: CollectionDef'Int64List
-> CollectionDef'Int64List -> CollectionDef'Int64List
>= :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
$c>= :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
> :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
$c> :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
<= :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
$c<= :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
< :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
$c< :: CollectionDef'Int64List -> CollectionDef'Int64List -> Bool
compare :: CollectionDef'Int64List -> CollectionDef'Int64List -> Ordering
$ccompare :: CollectionDef'Int64List -> CollectionDef'Int64List -> Ordering
$cp1Ord :: Eq CollectionDef'Int64List
Prelude.Ord)
instance Prelude.Show CollectionDef'Int64List where
showsPrec :: Int -> CollectionDef'Int64List -> ShowS
showsPrec _ __x :: CollectionDef'Int64List
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(CollectionDef'Int64List -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CollectionDef'Int64List
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CollectionDef'Int64List "value" [Data.Int.Int64] where
fieldOf :: Proxy# "value"
-> ([Int64] -> f [Int64])
-> CollectionDef'Int64List
-> f CollectionDef'Int64List
fieldOf _
= ((Vector Int64 -> f (Vector Int64))
-> CollectionDef'Int64List -> f CollectionDef'Int64List)
-> (([Int64] -> f [Int64]) -> Vector Int64 -> f (Vector Int64))
-> ([Int64] -> f [Int64])
-> CollectionDef'Int64List
-> f CollectionDef'Int64List
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef'Int64List -> Vector Int64)
-> (CollectionDef'Int64List
-> Vector Int64 -> CollectionDef'Int64List)
-> Lens
CollectionDef'Int64List
CollectionDef'Int64List
(Vector Int64)
(Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef'Int64List -> Vector Int64
_CollectionDef'Int64List'value
(\ x__ :: CollectionDef'Int64List
x__ y__ :: Vector Int64
y__ -> CollectionDef'Int64List
x__ {_CollectionDef'Int64List'value :: Vector Int64
_CollectionDef'Int64List'value = Vector Int64
y__}))
((Vector Int64 -> [Int64])
-> (Vector Int64 -> [Int64] -> Vector Int64)
-> Lens (Vector Int64) (Vector Int64) [Int64] [Int64]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Int64 -> [Int64]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Int64]
y__ -> [Int64] -> Vector Int64
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int64]
y__))
instance Data.ProtoLens.Field.HasField CollectionDef'Int64List "vec'value" (Data.Vector.Unboxed.Vector Data.Int.Int64) where
fieldOf :: Proxy# "vec'value"
-> (Vector Int64 -> f (Vector Int64))
-> CollectionDef'Int64List
-> f CollectionDef'Int64List
fieldOf _
= ((Vector Int64 -> f (Vector Int64))
-> CollectionDef'Int64List -> f CollectionDef'Int64List)
-> ((Vector Int64 -> f (Vector Int64))
-> Vector Int64 -> f (Vector Int64))
-> (Vector Int64 -> f (Vector Int64))
-> CollectionDef'Int64List
-> f CollectionDef'Int64List
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef'Int64List -> Vector Int64)
-> (CollectionDef'Int64List
-> Vector Int64 -> CollectionDef'Int64List)
-> Lens
CollectionDef'Int64List
CollectionDef'Int64List
(Vector Int64)
(Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef'Int64List -> Vector Int64
_CollectionDef'Int64List'value
(\ x__ :: CollectionDef'Int64List
x__ y__ :: Vector Int64
y__ -> CollectionDef'Int64List
x__ {_CollectionDef'Int64List'value :: Vector Int64
_CollectionDef'Int64List'value = Vector Int64
y__}))
(Vector Int64 -> f (Vector Int64))
-> Vector Int64 -> f (Vector Int64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CollectionDef'Int64List where
messageName :: Proxy CollectionDef'Int64List -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CollectionDef.Int64List"
packedMessageDescriptor :: Proxy CollectionDef'Int64List -> ByteString
packedMessageDescriptor _
= "\n\
\\tInt64List\DC2\CAN\n\
\\ENQvalue\CAN\SOH \ETX(\ETXR\ENQvalueB\STX\DLE\SOH"
packedFileDescriptor :: Proxy CollectionDef'Int64List -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CollectionDef'Int64List)
fieldsByTag
= let
value__field_descriptor :: FieldDescriptor CollectionDef'Int64List
value__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor CollectionDef'Int64List Int64
-> FieldDescriptor CollectionDef'Int64List
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(ScalarField Int64 -> FieldTypeDescriptor Int64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int64
Data.ProtoLens.Int64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int64)
(Packing
-> Lens' CollectionDef'Int64List [Int64]
-> FieldAccessor CollectionDef'Int64List Int64
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor CollectionDef'Int64List
in
[(Tag, FieldDescriptor CollectionDef'Int64List)]
-> Map Tag (FieldDescriptor CollectionDef'Int64List)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CollectionDef'Int64List
value__field_descriptor)]
unknownFields :: LensLike' f CollectionDef'Int64List FieldSet
unknownFields
= (CollectionDef'Int64List -> FieldSet)
-> (CollectionDef'Int64List -> FieldSet -> CollectionDef'Int64List)
-> Lens' CollectionDef'Int64List FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef'Int64List -> FieldSet
_CollectionDef'Int64List'_unknownFields
(\ x__ :: CollectionDef'Int64List
x__ y__ :: FieldSet
y__ -> CollectionDef'Int64List
x__ {_CollectionDef'Int64List'_unknownFields :: FieldSet
_CollectionDef'Int64List'_unknownFields = FieldSet
y__})
defMessage :: CollectionDef'Int64List
defMessage
= $WCollectionDef'Int64List'_constructor :: Vector Int64 -> FieldSet -> CollectionDef'Int64List
CollectionDef'Int64List'_constructor
{_CollectionDef'Int64List'value :: Vector Int64
_CollectionDef'Int64List'value = Vector Int64
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_CollectionDef'Int64List'_unknownFields :: FieldSet
_CollectionDef'Int64List'_unknownFields = []}
parseMessage :: Parser CollectionDef'Int64List
parseMessage
= let
loop ::
CollectionDef'Int64List
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int64
-> Data.ProtoLens.Encoding.Bytes.Parser CollectionDef'Int64List
loop :: CollectionDef'Int64List
-> Growing Vector RealWorld Int64 -> Parser CollectionDef'Int64List
loop x :: CollectionDef'Int64List
x mutable'value :: Growing Vector RealWorld Int64
mutable'value
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Int64
frozen'value <- IO (Vector Int64) -> Parser (Vector Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Int64 -> IO (Vector Int64)
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 Int64
Growing Vector (PrimState IO) Int64
mutable'value)
(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]))))
CollectionDef'Int64List -> Parser CollectionDef'Int64List
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
CollectionDef'Int64List CollectionDef'Int64List FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'Int64List
-> CollectionDef'Int64List
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
CollectionDef'Int64List CollectionDef'Int64List FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
CollectionDef'Int64List
CollectionDef'Int64List
(Vector Int64)
(Vector Int64)
-> Vector Int64
-> CollectionDef'Int64List
-> CollectionDef'Int64List
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'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 @"vec'value") Vector Int64
frozen'value CollectionDef'Int64List
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> 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)
"value"
Growing Vector RealWorld Int64
v <- IO (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Int64
-> Int64 -> IO (Growing Vector (PrimState IO) Int64)
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 Int64
Growing Vector (PrimState IO) Int64
mutable'value Int64
y)
CollectionDef'Int64List
-> Growing Vector RealWorld Int64 -> Parser CollectionDef'Int64List
loop CollectionDef'Int64List
x Growing Vector RealWorld Int64
v
10
-> do Growing Vector RealWorld Int64
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
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)
"value"
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 Int64
mutable'value)
CollectionDef'Int64List
-> Growing Vector RealWorld Int64 -> Parser CollectionDef'Int64List
loop CollectionDef'Int64List
x Growing Vector RealWorld Int64
y
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
CollectionDef'Int64List
-> Growing Vector RealWorld Int64 -> Parser CollectionDef'Int64List
loop
(Setter
CollectionDef'Int64List CollectionDef'Int64List FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'Int64List
-> CollectionDef'Int64List
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
CollectionDef'Int64List CollectionDef'Int64List FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CollectionDef'Int64List
x)
Growing Vector RealWorld Int64
mutable'value
in
Parser CollectionDef'Int64List
-> String -> Parser CollectionDef'Int64List
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Int64
mutable'value <- IO (Growing Vector RealWorld Int64)
-> Parser (Growing Vector RealWorld Int64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Int64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
CollectionDef'Int64List
-> Growing Vector RealWorld Int64 -> Parser CollectionDef'Int64List
loop CollectionDef'Int64List
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Int64
mutable'value)
"Int64List"
buildMessage :: CollectionDef'Int64List -> Builder
buildMessage
= \ _x :: CollectionDef'Int64List
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Int64
p = FoldLike
(Vector Int64)
CollectionDef'Int64List
CollectionDef'Int64List
(Vector Int64)
(Vector Int64)
-> CollectionDef'Int64List -> Vector Int64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'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 @"vec'value") CollectionDef'Int64List
_x
in
if Vector Int64 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Int64
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 10)
((\ 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
((Int64 -> Builder) -> Vector Int64 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((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)
Vector Int64
p))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
CollectionDef'Int64List
CollectionDef'Int64List
FieldSet
FieldSet
-> CollectionDef'Int64List -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
CollectionDef'Int64List
CollectionDef'Int64List
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CollectionDef'Int64List
_x))
instance Control.DeepSeq.NFData CollectionDef'Int64List where
rnf :: CollectionDef'Int64List -> ()
rnf
= \ x__ :: CollectionDef'Int64List
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CollectionDef'Int64List -> FieldSet
_CollectionDef'Int64List'_unknownFields CollectionDef'Int64List
x__)
(Vector Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CollectionDef'Int64List -> Vector Int64
_CollectionDef'Int64List'value CollectionDef'Int64List
x__) ())
data CollectionDef'NodeList
= CollectionDef'NodeList'_constructor {CollectionDef'NodeList -> Vector Text
_CollectionDef'NodeList'value :: !(Data.Vector.Vector Data.Text.Text),
CollectionDef'NodeList -> FieldSet
_CollectionDef'NodeList'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
(CollectionDef'NodeList -> CollectionDef'NodeList -> Bool)
-> (CollectionDef'NodeList -> CollectionDef'NodeList -> Bool)
-> Eq CollectionDef'NodeList
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
$c/= :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
== :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
$c== :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
Prelude.Eq, Eq CollectionDef'NodeList
Eq CollectionDef'NodeList =>
(CollectionDef'NodeList -> CollectionDef'NodeList -> Ordering)
-> (CollectionDef'NodeList -> CollectionDef'NodeList -> Bool)
-> (CollectionDef'NodeList -> CollectionDef'NodeList -> Bool)
-> (CollectionDef'NodeList -> CollectionDef'NodeList -> Bool)
-> (CollectionDef'NodeList -> CollectionDef'NodeList -> Bool)
-> (CollectionDef'NodeList
-> CollectionDef'NodeList -> CollectionDef'NodeList)
-> (CollectionDef'NodeList
-> CollectionDef'NodeList -> CollectionDef'NodeList)
-> Ord CollectionDef'NodeList
CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
CollectionDef'NodeList -> CollectionDef'NodeList -> Ordering
CollectionDef'NodeList
-> CollectionDef'NodeList -> CollectionDef'NodeList
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 :: CollectionDef'NodeList
-> CollectionDef'NodeList -> CollectionDef'NodeList
$cmin :: CollectionDef'NodeList
-> CollectionDef'NodeList -> CollectionDef'NodeList
max :: CollectionDef'NodeList
-> CollectionDef'NodeList -> CollectionDef'NodeList
$cmax :: CollectionDef'NodeList
-> CollectionDef'NodeList -> CollectionDef'NodeList
>= :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
$c>= :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
> :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
$c> :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
<= :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
$c<= :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
< :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
$c< :: CollectionDef'NodeList -> CollectionDef'NodeList -> Bool
compare :: CollectionDef'NodeList -> CollectionDef'NodeList -> Ordering
$ccompare :: CollectionDef'NodeList -> CollectionDef'NodeList -> Ordering
$cp1Ord :: Eq CollectionDef'NodeList
Prelude.Ord)
instance Prelude.Show CollectionDef'NodeList where
showsPrec :: Int -> CollectionDef'NodeList -> ShowS
showsPrec _ __x :: CollectionDef'NodeList
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(CollectionDef'NodeList -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort CollectionDef'NodeList
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField CollectionDef'NodeList "value" [Data.Text.Text] where
fieldOf :: Proxy# "value"
-> ([Text] -> f [Text])
-> CollectionDef'NodeList
-> f CollectionDef'NodeList
fieldOf _
= ((Vector Text -> f (Vector Text))
-> CollectionDef'NodeList -> f CollectionDef'NodeList)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> CollectionDef'NodeList
-> f CollectionDef'NodeList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef'NodeList -> Vector Text)
-> (CollectionDef'NodeList
-> Vector Text -> CollectionDef'NodeList)
-> Lens
CollectionDef'NodeList
CollectionDef'NodeList
(Vector Text)
(Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef'NodeList -> Vector Text
_CollectionDef'NodeList'value
(\ x__ :: CollectionDef'NodeList
x__ y__ :: Vector Text
y__ -> CollectionDef'NodeList
x__ {_CollectionDef'NodeList'value :: Vector Text
_CollectionDef'NodeList'value = 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 CollectionDef'NodeList "vec'value" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: Proxy# "vec'value"
-> (Vector Text -> f (Vector Text))
-> CollectionDef'NodeList
-> f CollectionDef'NodeList
fieldOf _
= ((Vector Text -> f (Vector Text))
-> CollectionDef'NodeList -> f CollectionDef'NodeList)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> CollectionDef'NodeList
-> f CollectionDef'NodeList
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((CollectionDef'NodeList -> Vector Text)
-> (CollectionDef'NodeList
-> Vector Text -> CollectionDef'NodeList)
-> Lens
CollectionDef'NodeList
CollectionDef'NodeList
(Vector Text)
(Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef'NodeList -> Vector Text
_CollectionDef'NodeList'value
(\ x__ :: CollectionDef'NodeList
x__ y__ :: Vector Text
y__ -> CollectionDef'NodeList
x__ {_CollectionDef'NodeList'value :: Vector Text
_CollectionDef'NodeList'value = Vector Text
y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message CollectionDef'NodeList where
messageName :: Proxy CollectionDef'NodeList -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.CollectionDef.NodeList"
packedMessageDescriptor :: Proxy CollectionDef'NodeList -> ByteString
packedMessageDescriptor _
= "\n\
\\bNodeList\DC2\DC4\n\
\\ENQvalue\CAN\SOH \ETX(\tR\ENQvalue"
packedFileDescriptor :: Proxy CollectionDef'NodeList -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor CollectionDef'NodeList)
fieldsByTag
= let
value__field_descriptor :: FieldDescriptor CollectionDef'NodeList
value__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor CollectionDef'NodeList Text
-> FieldDescriptor CollectionDef'NodeList
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(Packing
-> Lens' CollectionDef'NodeList [Text]
-> FieldAccessor CollectionDef'NodeList Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor CollectionDef'NodeList
in
[(Tag, FieldDescriptor CollectionDef'NodeList)]
-> Map Tag (FieldDescriptor CollectionDef'NodeList)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList [(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor CollectionDef'NodeList
value__field_descriptor)]
unknownFields :: LensLike' f CollectionDef'NodeList FieldSet
unknownFields
= (CollectionDef'NodeList -> FieldSet)
-> (CollectionDef'NodeList -> FieldSet -> CollectionDef'NodeList)
-> Lens' CollectionDef'NodeList FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
CollectionDef'NodeList -> FieldSet
_CollectionDef'NodeList'_unknownFields
(\ x__ :: CollectionDef'NodeList
x__ y__ :: FieldSet
y__ -> CollectionDef'NodeList
x__ {_CollectionDef'NodeList'_unknownFields :: FieldSet
_CollectionDef'NodeList'_unknownFields = FieldSet
y__})
defMessage :: CollectionDef'NodeList
defMessage
= $WCollectionDef'NodeList'_constructor :: Vector Text -> FieldSet -> CollectionDef'NodeList
CollectionDef'NodeList'_constructor
{_CollectionDef'NodeList'value :: Vector Text
_CollectionDef'NodeList'value = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_CollectionDef'NodeList'_unknownFields :: FieldSet
_CollectionDef'NodeList'_unknownFields = []}
parseMessage :: Parser CollectionDef'NodeList
parseMessage
= let
loop ::
CollectionDef'NodeList
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
-> Data.ProtoLens.Encoding.Bytes.Parser CollectionDef'NodeList
loop :: CollectionDef'NodeList
-> Growing Vector RealWorld Text -> Parser CollectionDef'NodeList
loop x :: CollectionDef'NodeList
x mutable'value :: Growing Vector RealWorld Text
mutable'value
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Text
frozen'value <- 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'value)
(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]))))
CollectionDef'NodeList -> Parser CollectionDef'NodeList
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
CollectionDef'NodeList CollectionDef'NodeList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'NodeList
-> CollectionDef'NodeList
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
CollectionDef'NodeList CollectionDef'NodeList FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
CollectionDef'NodeList
CollectionDef'NodeList
(Vector Text)
(Vector Text)
-> Vector Text -> CollectionDef'NodeList -> CollectionDef'NodeList
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'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 @"vec'value") Vector Text
frozen'value CollectionDef'NodeList
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))
"value"
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'value Text
y)
CollectionDef'NodeList
-> Growing Vector RealWorld Text -> Parser CollectionDef'NodeList
loop CollectionDef'NodeList
x Growing Vector RealWorld Text
v
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
CollectionDef'NodeList
-> Growing Vector RealWorld Text -> Parser CollectionDef'NodeList
loop
(Setter
CollectionDef'NodeList CollectionDef'NodeList FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> CollectionDef'NodeList
-> CollectionDef'NodeList
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
CollectionDef'NodeList CollectionDef'NodeList FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) CollectionDef'NodeList
x)
Growing Vector RealWorld Text
mutable'value
in
Parser CollectionDef'NodeList
-> String -> Parser CollectionDef'NodeList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Text
mutable'value <- 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
CollectionDef'NodeList
-> Growing Vector RealWorld Text -> Parser CollectionDef'NodeList
loop CollectionDef'NodeList
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Text
mutable'value)
"NodeList"
buildMessage :: CollectionDef'NodeList -> Builder
buildMessage
= \ _x :: CollectionDef'NodeList
_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)
CollectionDef'NodeList
CollectionDef'NodeList
(Vector Text)
(Vector Text)
-> CollectionDef'NodeList -> 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'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 @"vec'value") CollectionDef'NodeList
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
CollectionDef'NodeList
CollectionDef'NodeList
FieldSet
FieldSet
-> CollectionDef'NodeList -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
CollectionDef'NodeList
CollectionDef'NodeList
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields CollectionDef'NodeList
_x))
instance Control.DeepSeq.NFData CollectionDef'NodeList where
rnf :: CollectionDef'NodeList -> ()
rnf
= \ x__ :: CollectionDef'NodeList
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(CollectionDef'NodeList -> FieldSet
_CollectionDef'NodeList'_unknownFields CollectionDef'NodeList
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (CollectionDef'NodeList -> Vector Text
_CollectionDef'NodeList'value CollectionDef'NodeList
x__) ())
data MetaGraphDef
= MetaGraphDef'_constructor {MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef
_MetaGraphDef'metaInfoDef :: !(Prelude.Maybe MetaGraphDef'MetaInfoDef),
MetaGraphDef -> Maybe GraphDef
_MetaGraphDef'graphDef :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.Graph.GraphDef),
MetaGraphDef -> Maybe SaverDef
_MetaGraphDef'saverDef :: !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Saver.SaverDef),
MetaGraphDef -> Map Text CollectionDef
_MetaGraphDef'collectionDef :: !(Data.Map.Map Data.Text.Text CollectionDef),
MetaGraphDef -> Map Text SignatureDef
_MetaGraphDef'signatureDef :: !(Data.Map.Map Data.Text.Text SignatureDef),
MetaGraphDef -> Vector AssetFileDef
_MetaGraphDef'assetFileDef :: !(Data.Vector.Vector AssetFileDef),
MetaGraphDef -> Maybe SavedObjectGraph
_MetaGraphDef'objectGraphDef :: !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.SavedObjectGraph.SavedObjectGraph),
MetaGraphDef -> FieldSet
_MetaGraphDef'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MetaGraphDef -> MetaGraphDef -> Bool
(MetaGraphDef -> MetaGraphDef -> Bool)
-> (MetaGraphDef -> MetaGraphDef -> Bool) -> Eq MetaGraphDef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetaGraphDef -> MetaGraphDef -> Bool
$c/= :: MetaGraphDef -> MetaGraphDef -> Bool
== :: MetaGraphDef -> MetaGraphDef -> Bool
$c== :: MetaGraphDef -> MetaGraphDef -> Bool
Prelude.Eq, Eq MetaGraphDef
Eq MetaGraphDef =>
(MetaGraphDef -> MetaGraphDef -> Ordering)
-> (MetaGraphDef -> MetaGraphDef -> Bool)
-> (MetaGraphDef -> MetaGraphDef -> Bool)
-> (MetaGraphDef -> MetaGraphDef -> Bool)
-> (MetaGraphDef -> MetaGraphDef -> Bool)
-> (MetaGraphDef -> MetaGraphDef -> MetaGraphDef)
-> (MetaGraphDef -> MetaGraphDef -> MetaGraphDef)
-> Ord MetaGraphDef
MetaGraphDef -> MetaGraphDef -> Bool
MetaGraphDef -> MetaGraphDef -> Ordering
MetaGraphDef -> MetaGraphDef -> MetaGraphDef
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 :: MetaGraphDef -> MetaGraphDef -> MetaGraphDef
$cmin :: MetaGraphDef -> MetaGraphDef -> MetaGraphDef
max :: MetaGraphDef -> MetaGraphDef -> MetaGraphDef
$cmax :: MetaGraphDef -> MetaGraphDef -> MetaGraphDef
>= :: MetaGraphDef -> MetaGraphDef -> Bool
$c>= :: MetaGraphDef -> MetaGraphDef -> Bool
> :: MetaGraphDef -> MetaGraphDef -> Bool
$c> :: MetaGraphDef -> MetaGraphDef -> Bool
<= :: MetaGraphDef -> MetaGraphDef -> Bool
$c<= :: MetaGraphDef -> MetaGraphDef -> Bool
< :: MetaGraphDef -> MetaGraphDef -> Bool
$c< :: MetaGraphDef -> MetaGraphDef -> Bool
compare :: MetaGraphDef -> MetaGraphDef -> Ordering
$ccompare :: MetaGraphDef -> MetaGraphDef -> Ordering
$cp1Ord :: Eq MetaGraphDef
Prelude.Ord)
instance Prelude.Show MetaGraphDef where
showsPrec :: Int -> MetaGraphDef -> ShowS
showsPrec _ __x :: MetaGraphDef
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(MetaGraphDef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetaGraphDef
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MetaGraphDef "metaInfoDef" MetaGraphDef'MetaInfoDef where
fieldOf :: Proxy# "metaInfoDef"
-> (MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
= ((Maybe MetaGraphDef'MetaInfoDef
-> f (Maybe MetaGraphDef'MetaInfoDef))
-> MetaGraphDef -> f MetaGraphDef)
-> ((MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> Maybe MetaGraphDef'MetaInfoDef
-> f (Maybe MetaGraphDef'MetaInfoDef))
-> (MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef)
-> (MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef -> MetaGraphDef)
-> Lens
MetaGraphDef
MetaGraphDef
(Maybe MetaGraphDef'MetaInfoDef)
(Maybe MetaGraphDef'MetaInfoDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef
_MetaGraphDef'metaInfoDef
(\ x__ :: MetaGraphDef
x__ y__ :: Maybe MetaGraphDef'MetaInfoDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'metaInfoDef :: Maybe MetaGraphDef'MetaInfoDef
_MetaGraphDef'metaInfoDef = Maybe MetaGraphDef'MetaInfoDef
y__}))
(MetaGraphDef'MetaInfoDef
-> Lens' (Maybe MetaGraphDef'MetaInfoDef) MetaGraphDef'MetaInfoDef
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens MetaGraphDef'MetaInfoDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetaGraphDef "maybe'metaInfoDef" (Prelude.Maybe MetaGraphDef'MetaInfoDef) where
fieldOf :: Proxy# "maybe'metaInfoDef"
-> (Maybe MetaGraphDef'MetaInfoDef
-> f (Maybe MetaGraphDef'MetaInfoDef))
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
= ((Maybe MetaGraphDef'MetaInfoDef
-> f (Maybe MetaGraphDef'MetaInfoDef))
-> MetaGraphDef -> f MetaGraphDef)
-> ((Maybe MetaGraphDef'MetaInfoDef
-> f (Maybe MetaGraphDef'MetaInfoDef))
-> Maybe MetaGraphDef'MetaInfoDef
-> f (Maybe MetaGraphDef'MetaInfoDef))
-> (Maybe MetaGraphDef'MetaInfoDef
-> f (Maybe MetaGraphDef'MetaInfoDef))
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef)
-> (MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef -> MetaGraphDef)
-> Lens
MetaGraphDef
MetaGraphDef
(Maybe MetaGraphDef'MetaInfoDef)
(Maybe MetaGraphDef'MetaInfoDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef
_MetaGraphDef'metaInfoDef
(\ x__ :: MetaGraphDef
x__ y__ :: Maybe MetaGraphDef'MetaInfoDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'metaInfoDef :: Maybe MetaGraphDef'MetaInfoDef
_MetaGraphDef'metaInfoDef = Maybe MetaGraphDef'MetaInfoDef
y__}))
(Maybe MetaGraphDef'MetaInfoDef
-> f (Maybe MetaGraphDef'MetaInfoDef))
-> Maybe MetaGraphDef'MetaInfoDef
-> f (Maybe MetaGraphDef'MetaInfoDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef "graphDef" Proto.Tensorflow.Core.Framework.Graph.GraphDef where
fieldOf :: Proxy# "graphDef"
-> (GraphDef -> f GraphDef) -> MetaGraphDef -> f MetaGraphDef
fieldOf _
= ((Maybe GraphDef -> f (Maybe GraphDef))
-> MetaGraphDef -> f MetaGraphDef)
-> ((GraphDef -> f GraphDef)
-> Maybe GraphDef -> f (Maybe GraphDef))
-> (GraphDef -> f GraphDef)
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef -> Maybe GraphDef)
-> (MetaGraphDef -> Maybe GraphDef -> MetaGraphDef)
-> Lens MetaGraphDef MetaGraphDef (Maybe GraphDef) (Maybe GraphDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef -> Maybe GraphDef
_MetaGraphDef'graphDef
(\ x__ :: MetaGraphDef
x__ y__ :: Maybe GraphDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'graphDef :: Maybe GraphDef
_MetaGraphDef'graphDef = Maybe GraphDef
y__}))
(GraphDef -> Lens' (Maybe GraphDef) GraphDef
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens GraphDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetaGraphDef "maybe'graphDef" (Prelude.Maybe Proto.Tensorflow.Core.Framework.Graph.GraphDef) where
fieldOf :: Proxy# "maybe'graphDef"
-> (Maybe GraphDef -> f (Maybe GraphDef))
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
= ((Maybe GraphDef -> f (Maybe GraphDef))
-> MetaGraphDef -> f MetaGraphDef)
-> ((Maybe GraphDef -> f (Maybe GraphDef))
-> Maybe GraphDef -> f (Maybe GraphDef))
-> (Maybe GraphDef -> f (Maybe GraphDef))
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef -> Maybe GraphDef)
-> (MetaGraphDef -> Maybe GraphDef -> MetaGraphDef)
-> Lens MetaGraphDef MetaGraphDef (Maybe GraphDef) (Maybe GraphDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef -> Maybe GraphDef
_MetaGraphDef'graphDef
(\ x__ :: MetaGraphDef
x__ y__ :: Maybe GraphDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'graphDef :: Maybe GraphDef
_MetaGraphDef'graphDef = Maybe GraphDef
y__}))
(Maybe GraphDef -> f (Maybe GraphDef))
-> Maybe GraphDef -> f (Maybe GraphDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef "saverDef" Proto.Tensorflow.Core.Protobuf.Saver.SaverDef where
fieldOf :: Proxy# "saverDef"
-> (SaverDef -> f SaverDef) -> MetaGraphDef -> f MetaGraphDef
fieldOf _
= ((Maybe SaverDef -> f (Maybe SaverDef))
-> MetaGraphDef -> f MetaGraphDef)
-> ((SaverDef -> f SaverDef)
-> Maybe SaverDef -> f (Maybe SaverDef))
-> (SaverDef -> f SaverDef)
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef -> Maybe SaverDef)
-> (MetaGraphDef -> Maybe SaverDef -> MetaGraphDef)
-> Lens MetaGraphDef MetaGraphDef (Maybe SaverDef) (Maybe SaverDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef -> Maybe SaverDef
_MetaGraphDef'saverDef
(\ x__ :: MetaGraphDef
x__ y__ :: Maybe SaverDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'saverDef :: Maybe SaverDef
_MetaGraphDef'saverDef = Maybe SaverDef
y__}))
(SaverDef -> Lens' (Maybe SaverDef) SaverDef
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SaverDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetaGraphDef "maybe'saverDef" (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Saver.SaverDef) where
fieldOf :: Proxy# "maybe'saverDef"
-> (Maybe SaverDef -> f (Maybe SaverDef))
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
= ((Maybe SaverDef -> f (Maybe SaverDef))
-> MetaGraphDef -> f MetaGraphDef)
-> ((Maybe SaverDef -> f (Maybe SaverDef))
-> Maybe SaverDef -> f (Maybe SaverDef))
-> (Maybe SaverDef -> f (Maybe SaverDef))
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef -> Maybe SaverDef)
-> (MetaGraphDef -> Maybe SaverDef -> MetaGraphDef)
-> Lens MetaGraphDef MetaGraphDef (Maybe SaverDef) (Maybe SaverDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef -> Maybe SaverDef
_MetaGraphDef'saverDef
(\ x__ :: MetaGraphDef
x__ y__ :: Maybe SaverDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'saverDef :: Maybe SaverDef
_MetaGraphDef'saverDef = Maybe SaverDef
y__}))
(Maybe SaverDef -> f (Maybe SaverDef))
-> Maybe SaverDef -> f (Maybe SaverDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef "collectionDef" (Data.Map.Map Data.Text.Text CollectionDef) where
fieldOf :: Proxy# "collectionDef"
-> (Map Text CollectionDef -> f (Map Text CollectionDef))
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
= ((Map Text CollectionDef -> f (Map Text CollectionDef))
-> MetaGraphDef -> f MetaGraphDef)
-> ((Map Text CollectionDef -> f (Map Text CollectionDef))
-> Map Text CollectionDef -> f (Map Text CollectionDef))
-> (Map Text CollectionDef -> f (Map Text CollectionDef))
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef -> Map Text CollectionDef)
-> (MetaGraphDef -> Map Text CollectionDef -> MetaGraphDef)
-> Lens
MetaGraphDef
MetaGraphDef
(Map Text CollectionDef)
(Map Text CollectionDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef -> Map Text CollectionDef
_MetaGraphDef'collectionDef
(\ x__ :: MetaGraphDef
x__ y__ :: Map Text CollectionDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'collectionDef :: Map Text CollectionDef
_MetaGraphDef'collectionDef = Map Text CollectionDef
y__}))
(Map Text CollectionDef -> f (Map Text CollectionDef))
-> Map Text CollectionDef -> f (Map Text CollectionDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef "signatureDef" (Data.Map.Map Data.Text.Text SignatureDef) where
fieldOf :: Proxy# "signatureDef"
-> (Map Text SignatureDef -> f (Map Text SignatureDef))
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
= ((Map Text SignatureDef -> f (Map Text SignatureDef))
-> MetaGraphDef -> f MetaGraphDef)
-> ((Map Text SignatureDef -> f (Map Text SignatureDef))
-> Map Text SignatureDef -> f (Map Text SignatureDef))
-> (Map Text SignatureDef -> f (Map Text SignatureDef))
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef -> Map Text SignatureDef)
-> (MetaGraphDef -> Map Text SignatureDef -> MetaGraphDef)
-> Lens
MetaGraphDef
MetaGraphDef
(Map Text SignatureDef)
(Map Text SignatureDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef -> Map Text SignatureDef
_MetaGraphDef'signatureDef
(\ x__ :: MetaGraphDef
x__ y__ :: Map Text SignatureDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'signatureDef :: Map Text SignatureDef
_MetaGraphDef'signatureDef = Map Text SignatureDef
y__}))
(Map Text SignatureDef -> f (Map Text SignatureDef))
-> Map Text SignatureDef -> f (Map Text SignatureDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef "assetFileDef" [AssetFileDef] where
fieldOf :: Proxy# "assetFileDef"
-> ([AssetFileDef] -> f [AssetFileDef])
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
= ((Vector AssetFileDef -> f (Vector AssetFileDef))
-> MetaGraphDef -> f MetaGraphDef)
-> (([AssetFileDef] -> f [AssetFileDef])
-> Vector AssetFileDef -> f (Vector AssetFileDef))
-> ([AssetFileDef] -> f [AssetFileDef])
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef -> Vector AssetFileDef)
-> (MetaGraphDef -> Vector AssetFileDef -> MetaGraphDef)
-> Lens
MetaGraphDef
MetaGraphDef
(Vector AssetFileDef)
(Vector AssetFileDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef -> Vector AssetFileDef
_MetaGraphDef'assetFileDef
(\ x__ :: MetaGraphDef
x__ y__ :: Vector AssetFileDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'assetFileDef :: Vector AssetFileDef
_MetaGraphDef'assetFileDef = Vector AssetFileDef
y__}))
((Vector AssetFileDef -> [AssetFileDef])
-> (Vector AssetFileDef -> [AssetFileDef] -> Vector AssetFileDef)
-> Lens
(Vector AssetFileDef)
(Vector AssetFileDef)
[AssetFileDef]
[AssetFileDef]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector AssetFileDef -> [AssetFileDef]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [AssetFileDef]
y__ -> [AssetFileDef] -> Vector AssetFileDef
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [AssetFileDef]
y__))
instance Data.ProtoLens.Field.HasField MetaGraphDef "vec'assetFileDef" (Data.Vector.Vector AssetFileDef) where
fieldOf :: Proxy# "vec'assetFileDef"
-> (Vector AssetFileDef -> f (Vector AssetFileDef))
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
= ((Vector AssetFileDef -> f (Vector AssetFileDef))
-> MetaGraphDef -> f MetaGraphDef)
-> ((Vector AssetFileDef -> f (Vector AssetFileDef))
-> Vector AssetFileDef -> f (Vector AssetFileDef))
-> (Vector AssetFileDef -> f (Vector AssetFileDef))
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef -> Vector AssetFileDef)
-> (MetaGraphDef -> Vector AssetFileDef -> MetaGraphDef)
-> Lens
MetaGraphDef
MetaGraphDef
(Vector AssetFileDef)
(Vector AssetFileDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef -> Vector AssetFileDef
_MetaGraphDef'assetFileDef
(\ x__ :: MetaGraphDef
x__ y__ :: Vector AssetFileDef
y__ -> MetaGraphDef
x__ {_MetaGraphDef'assetFileDef :: Vector AssetFileDef
_MetaGraphDef'assetFileDef = Vector AssetFileDef
y__}))
(Vector AssetFileDef -> f (Vector AssetFileDef))
-> Vector AssetFileDef -> f (Vector AssetFileDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef "objectGraphDef" Proto.Tensorflow.Core.Protobuf.SavedObjectGraph.SavedObjectGraph where
fieldOf :: Proxy# "objectGraphDef"
-> (SavedObjectGraph -> f SavedObjectGraph)
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
= ((Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
-> MetaGraphDef -> f MetaGraphDef)
-> ((SavedObjectGraph -> f SavedObjectGraph)
-> Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
-> (SavedObjectGraph -> f SavedObjectGraph)
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef -> Maybe SavedObjectGraph)
-> (MetaGraphDef -> Maybe SavedObjectGraph -> MetaGraphDef)
-> Lens
MetaGraphDef
MetaGraphDef
(Maybe SavedObjectGraph)
(Maybe SavedObjectGraph)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef -> Maybe SavedObjectGraph
_MetaGraphDef'objectGraphDef
(\ x__ :: MetaGraphDef
x__ y__ :: Maybe SavedObjectGraph
y__ -> MetaGraphDef
x__ {_MetaGraphDef'objectGraphDef :: Maybe SavedObjectGraph
_MetaGraphDef'objectGraphDef = Maybe SavedObjectGraph
y__}))
(SavedObjectGraph -> Lens' (Maybe SavedObjectGraph) SavedObjectGraph
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SavedObjectGraph
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetaGraphDef "maybe'objectGraphDef" (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.SavedObjectGraph.SavedObjectGraph) where
fieldOf :: Proxy# "maybe'objectGraphDef"
-> (Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
-> MetaGraphDef
-> f MetaGraphDef
fieldOf _
= ((Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
-> MetaGraphDef -> f MetaGraphDef)
-> ((Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
-> Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
-> (Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
-> MetaGraphDef
-> f MetaGraphDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef -> Maybe SavedObjectGraph)
-> (MetaGraphDef -> Maybe SavedObjectGraph -> MetaGraphDef)
-> Lens
MetaGraphDef
MetaGraphDef
(Maybe SavedObjectGraph)
(Maybe SavedObjectGraph)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef -> Maybe SavedObjectGraph
_MetaGraphDef'objectGraphDef
(\ x__ :: MetaGraphDef
x__ y__ :: Maybe SavedObjectGraph
y__ -> MetaGraphDef
x__ {_MetaGraphDef'objectGraphDef :: Maybe SavedObjectGraph
_MetaGraphDef'objectGraphDef = Maybe SavedObjectGraph
y__}))
(Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph))
-> Maybe SavedObjectGraph -> f (Maybe SavedObjectGraph)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MetaGraphDef where
messageName :: Proxy MetaGraphDef -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.MetaGraphDef"
packedMessageDescriptor :: Proxy MetaGraphDef -> ByteString
packedMessageDescriptor _
= "\n\
\\fMetaGraphDef\DC2H\n\
\\rmeta_info_def\CAN\SOH \SOH(\v2$.tensorflow.MetaGraphDef.MetaInfoDefR\vmetaInfoDef\DC21\n\
\\tgraph_def\CAN\STX \SOH(\v2\DC4.tensorflow.GraphDefR\bgraphDef\DC21\n\
\\tsaver_def\CAN\ETX \SOH(\v2\DC4.tensorflow.SaverDefR\bsaverDef\DC2R\n\
\\SOcollection_def\CAN\EOT \ETX(\v2+.tensorflow.MetaGraphDef.CollectionDefEntryR\rcollectionDef\DC2O\n\
\\rsignature_def\CAN\ENQ \ETX(\v2*.tensorflow.MetaGraphDef.SignatureDefEntryR\fsignatureDef\DC2>\n\
\\SOasset_file_def\CAN\ACK \ETX(\v2\CAN.tensorflow.AssetFileDefR\fassetFileDef\DC2F\n\
\\DLEobject_graph_def\CAN\a \SOH(\v2\FS.tensorflow.SavedObjectGraphR\SOobjectGraphDef\SUB\131\EOT\n\
\\vMetaInfoDef\DC2,\n\
\\DC2meta_graph_version\CAN\SOH \SOH(\tR\DLEmetaGraphVersion\DC2<\n\
\\DLEstripped_op_list\CAN\STX \SOH(\v2\DC2.tensorflow.OpListR\SOstrippedOpList\DC2/\n\
\\bany_info\CAN\ETX \SOH(\v2\DC4.google.protobuf.AnyR\aanyInfo\DC2\DC2\n\
\\EOTtags\CAN\EOT \ETX(\tR\EOTtags\DC2-\n\
\\DC2tensorflow_version\CAN\ENQ \SOH(\tR\DC1tensorflowVersion\DC24\n\
\\SYNtensorflow_git_version\CAN\ACK \SOH(\tR\DC4tensorflowGitVersion\DC24\n\
\\SYNstripped_default_attrs\CAN\a \SOH(\bR\DC4strippedDefaultAttrs\DC2d\n\
\\DLEfunction_aliases\CAN\b \ETX(\v29.tensorflow.MetaGraphDef.MetaInfoDef.FunctionAliasesEntryR\SIfunctionAliases\SUBB\n\
\\DC4FunctionAliasesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\SUB[\n\
\\DC2CollectionDefEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2/\n\
\\ENQvalue\CAN\STX \SOH(\v2\EM.tensorflow.CollectionDefR\ENQvalue:\STX8\SOH\SUBY\n\
\\DC1SignatureDefEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2.\n\
\\ENQvalue\CAN\STX \SOH(\v2\CAN.tensorflow.SignatureDefR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy MetaGraphDef -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MetaGraphDef)
fieldsByTag
= let
metaInfoDef__field_descriptor :: FieldDescriptor MetaGraphDef
metaInfoDef__field_descriptor
= String
-> FieldTypeDescriptor MetaGraphDef'MetaInfoDef
-> FieldAccessor MetaGraphDef MetaGraphDef'MetaInfoDef
-> FieldDescriptor MetaGraphDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"meta_info_def"
(MessageOrGroup -> FieldTypeDescriptor MetaGraphDef'MetaInfoDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor MetaGraphDef'MetaInfoDef)
(Lens
MetaGraphDef
MetaGraphDef
(Maybe MetaGraphDef'MetaInfoDef)
(Maybe MetaGraphDef'MetaInfoDef)
-> FieldAccessor MetaGraphDef MetaGraphDef'MetaInfoDef
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'metaInfoDef" a, Functor f) =>
(a -> f a) -> s -> 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'metaInfoDef")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef
graphDef__field_descriptor :: FieldDescriptor MetaGraphDef
graphDef__field_descriptor
= String
-> FieldTypeDescriptor GraphDef
-> FieldAccessor MetaGraphDef GraphDef
-> FieldDescriptor MetaGraphDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"graph_def"
(MessageOrGroup -> FieldTypeDescriptor GraphDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Graph.GraphDef)
(Lens MetaGraphDef MetaGraphDef (Maybe GraphDef) (Maybe GraphDef)
-> FieldAccessor MetaGraphDef GraphDef
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'graphDef" a, Functor f) =>
(a -> f a) -> s -> 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'graphDef")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef
saverDef__field_descriptor :: FieldDescriptor MetaGraphDef
saverDef__field_descriptor
= String
-> FieldTypeDescriptor SaverDef
-> FieldAccessor MetaGraphDef SaverDef
-> FieldDescriptor MetaGraphDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"saver_def"
(MessageOrGroup -> FieldTypeDescriptor SaverDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Protobuf.Saver.SaverDef)
(Lens MetaGraphDef MetaGraphDef (Maybe SaverDef) (Maybe SaverDef)
-> FieldAccessor MetaGraphDef SaverDef
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'saverDef" a, Functor f) =>
(a -> f a) -> s -> 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'saverDef")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef
collectionDef__field_descriptor :: FieldDescriptor MetaGraphDef
collectionDef__field_descriptor
= String
-> FieldTypeDescriptor MetaGraphDef'CollectionDefEntry
-> FieldAccessor MetaGraphDef MetaGraphDef'CollectionDefEntry
-> FieldDescriptor MetaGraphDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"collection_def"
(MessageOrGroup
-> FieldTypeDescriptor MetaGraphDef'CollectionDefEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor MetaGraphDef'CollectionDefEntry)
(Lens' MetaGraphDef'CollectionDefEntry Text
-> Lens' MetaGraphDef'CollectionDefEntry CollectionDef
-> Lens
MetaGraphDef
MetaGraphDef
(Map Text CollectionDef)
(Map Text CollectionDef)
-> FieldAccessor MetaGraphDef MetaGraphDef'CollectionDefEntry
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 "collectionDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectionDef")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef
signatureDef__field_descriptor :: FieldDescriptor MetaGraphDef
signatureDef__field_descriptor
= String
-> FieldTypeDescriptor MetaGraphDef'SignatureDefEntry
-> FieldAccessor MetaGraphDef MetaGraphDef'SignatureDefEntry
-> FieldDescriptor MetaGraphDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"signature_def"
(MessageOrGroup
-> FieldTypeDescriptor MetaGraphDef'SignatureDefEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor MetaGraphDef'SignatureDefEntry)
(Lens' MetaGraphDef'SignatureDefEntry Text
-> Lens' MetaGraphDef'SignatureDefEntry SignatureDef
-> Lens
MetaGraphDef
MetaGraphDef
(Map Text SignatureDef)
(Map Text SignatureDef)
-> FieldAccessor MetaGraphDef MetaGraphDef'SignatureDefEntry
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 "signatureDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"signatureDef")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef
assetFileDef__field_descriptor :: FieldDescriptor MetaGraphDef
assetFileDef__field_descriptor
= String
-> FieldTypeDescriptor AssetFileDef
-> FieldAccessor MetaGraphDef AssetFileDef
-> FieldDescriptor MetaGraphDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"asset_file_def"
(MessageOrGroup -> FieldTypeDescriptor AssetFileDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor AssetFileDef)
(Packing
-> Lens' MetaGraphDef [AssetFileDef]
-> FieldAccessor MetaGraphDef AssetFileDef
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "assetFileDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"assetFileDef")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef
objectGraphDef__field_descriptor :: FieldDescriptor MetaGraphDef
objectGraphDef__field_descriptor
= String
-> FieldTypeDescriptor SavedObjectGraph
-> FieldAccessor MetaGraphDef SavedObjectGraph
-> FieldDescriptor MetaGraphDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"object_graph_def"
(MessageOrGroup -> FieldTypeDescriptor SavedObjectGraph
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Protobuf.SavedObjectGraph.SavedObjectGraph)
(Lens
MetaGraphDef
MetaGraphDef
(Maybe SavedObjectGraph)
(Maybe SavedObjectGraph)
-> FieldAccessor MetaGraphDef SavedObjectGraph
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'objectGraphDef" a, Functor f) =>
(a -> f a) -> s -> 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'objectGraphDef")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef
in
[(Tag, FieldDescriptor MetaGraphDef)]
-> Map Tag (FieldDescriptor MetaGraphDef)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MetaGraphDef
metaInfoDef__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MetaGraphDef
graphDef__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor MetaGraphDef
saverDef__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor MetaGraphDef
collectionDef__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor MetaGraphDef
signatureDef__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor MetaGraphDef
assetFileDef__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor MetaGraphDef
objectGraphDef__field_descriptor)]
unknownFields :: LensLike' f MetaGraphDef FieldSet
unknownFields
= (MetaGraphDef -> FieldSet)
-> (MetaGraphDef -> FieldSet -> MetaGraphDef)
-> Lens' MetaGraphDef FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef -> FieldSet
_MetaGraphDef'_unknownFields
(\ x__ :: MetaGraphDef
x__ y__ :: FieldSet
y__ -> MetaGraphDef
x__ {_MetaGraphDef'_unknownFields :: FieldSet
_MetaGraphDef'_unknownFields = FieldSet
y__})
defMessage :: MetaGraphDef
defMessage
= $WMetaGraphDef'_constructor :: Maybe MetaGraphDef'MetaInfoDef
-> Maybe GraphDef
-> Maybe SaverDef
-> Map Text CollectionDef
-> Map Text SignatureDef
-> Vector AssetFileDef
-> Maybe SavedObjectGraph
-> FieldSet
-> MetaGraphDef
MetaGraphDef'_constructor
{_MetaGraphDef'metaInfoDef :: Maybe MetaGraphDef'MetaInfoDef
_MetaGraphDef'metaInfoDef = Maybe MetaGraphDef'MetaInfoDef
forall a. Maybe a
Prelude.Nothing,
_MetaGraphDef'graphDef :: Maybe GraphDef
_MetaGraphDef'graphDef = Maybe GraphDef
forall a. Maybe a
Prelude.Nothing,
_MetaGraphDef'saverDef :: Maybe SaverDef
_MetaGraphDef'saverDef = Maybe SaverDef
forall a. Maybe a
Prelude.Nothing,
_MetaGraphDef'collectionDef :: Map Text CollectionDef
_MetaGraphDef'collectionDef = Map Text CollectionDef
forall k a. Map k a
Data.Map.empty,
_MetaGraphDef'signatureDef :: Map Text SignatureDef
_MetaGraphDef'signatureDef = Map Text SignatureDef
forall k a. Map k a
Data.Map.empty,
_MetaGraphDef'assetFileDef :: Vector AssetFileDef
_MetaGraphDef'assetFileDef = Vector AssetFileDef
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_MetaGraphDef'objectGraphDef :: Maybe SavedObjectGraph
_MetaGraphDef'objectGraphDef = Maybe SavedObjectGraph
forall a. Maybe a
Prelude.Nothing,
_MetaGraphDef'_unknownFields :: FieldSet
_MetaGraphDef'_unknownFields = []}
parseMessage :: Parser MetaGraphDef
parseMessage
= let
loop ::
MetaGraphDef
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld AssetFileDef
-> Data.ProtoLens.Encoding.Bytes.Parser MetaGraphDef
loop :: MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop x :: MetaGraphDef
x mutable'assetFileDef :: Growing Vector RealWorld AssetFileDef
mutable'assetFileDef
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector AssetFileDef
frozen'assetFileDef <- IO (Vector AssetFileDef) -> Parser (Vector AssetFileDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) AssetFileDef
-> IO (Vector AssetFileDef)
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 AssetFileDef
Growing Vector (PrimState IO) AssetFileDef
mutable'assetFileDef)
(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]))))
MetaGraphDef -> Parser MetaGraphDef
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter MetaGraphDef MetaGraphDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MetaGraphDef -> MetaGraphDef
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 MetaGraphDef MetaGraphDef FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
MetaGraphDef
MetaGraphDef
(Vector AssetFileDef)
(Vector AssetFileDef)
-> Vector AssetFileDef -> MetaGraphDef -> MetaGraphDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'assetFileDef" a, Functor f) =>
(a -> f a) -> s -> 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'assetFileDef")
Vector AssetFileDef
frozen'assetFileDef
MetaGraphDef
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do MetaGraphDef'MetaInfoDef
y <- Parser MetaGraphDef'MetaInfoDef
-> String -> Parser MetaGraphDef'MetaInfoDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser MetaGraphDef'MetaInfoDef
-> Parser MetaGraphDef'MetaInfoDef
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 MetaGraphDef'MetaInfoDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"meta_info_def"
MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop
(Setter
MetaGraphDef
MetaGraphDef
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef -> MetaGraphDef -> MetaGraphDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "metaInfoDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"metaInfoDef") MetaGraphDef'MetaInfoDef
y MetaGraphDef
x)
Growing Vector RealWorld AssetFileDef
mutable'assetFileDef
18
-> do GraphDef
y <- Parser GraphDef -> String -> Parser GraphDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser GraphDef -> Parser GraphDef
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 GraphDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"graph_def"
MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop
(Setter MetaGraphDef MetaGraphDef GraphDef GraphDef
-> GraphDef -> MetaGraphDef -> MetaGraphDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "graphDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"graphDef") GraphDef
y MetaGraphDef
x)
Growing Vector RealWorld AssetFileDef
mutable'assetFileDef
26
-> do SaverDef
y <- Parser SaverDef -> String -> Parser SaverDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SaverDef -> Parser SaverDef
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 SaverDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"saver_def"
MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop
(Setter MetaGraphDef MetaGraphDef SaverDef SaverDef
-> SaverDef -> MetaGraphDef -> MetaGraphDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "saverDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"saverDef") SaverDef
y MetaGraphDef
x)
Growing Vector RealWorld AssetFileDef
mutable'assetFileDef
34
-> do !(MetaGraphDef'CollectionDefEntry
entry :: MetaGraphDef'CollectionDefEntry) <- Parser MetaGraphDef'CollectionDefEntry
-> String -> Parser MetaGraphDef'CollectionDefEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser MetaGraphDef'CollectionDefEntry
-> Parser MetaGraphDef'CollectionDefEntry
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 MetaGraphDef'CollectionDefEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"collection_def"
(let
key :: Text
key = FoldLike
Text
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
Text
Text
-> MetaGraphDef'CollectionDefEntry -> 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") MetaGraphDef'CollectionDefEntry
entry
value :: CollectionDef
value
= FoldLike
CollectionDef
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
CollectionDef
CollectionDef
-> MetaGraphDef'CollectionDefEntry -> CollectionDef
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") MetaGraphDef'CollectionDefEntry
entry
in
MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop
(Setter
MetaGraphDef
MetaGraphDef
(Map Text CollectionDef)
(Map Text CollectionDef)
-> (Map Text CollectionDef -> Map Text CollectionDef)
-> MetaGraphDef
-> MetaGraphDef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
(forall s a (f :: * -> *).
(HasField s "collectionDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectionDef")
(\ !Map Text CollectionDef
t -> Text
-> CollectionDef
-> Map Text CollectionDef
-> Map Text CollectionDef
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key CollectionDef
value Map Text CollectionDef
t)
MetaGraphDef
x)
Growing Vector RealWorld AssetFileDef
mutable'assetFileDef)
42
-> do !(MetaGraphDef'SignatureDefEntry
entry :: MetaGraphDef'SignatureDefEntry) <- Parser MetaGraphDef'SignatureDefEntry
-> String -> Parser MetaGraphDef'SignatureDefEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser MetaGraphDef'SignatureDefEntry
-> Parser MetaGraphDef'SignatureDefEntry
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 MetaGraphDef'SignatureDefEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"signature_def"
(let
key :: Text
key = FoldLike
Text
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
Text
Text
-> MetaGraphDef'SignatureDefEntry -> 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") MetaGraphDef'SignatureDefEntry
entry
value :: SignatureDef
value
= FoldLike
SignatureDef
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
SignatureDef
SignatureDef
-> MetaGraphDef'SignatureDefEntry -> SignatureDef
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") MetaGraphDef'SignatureDefEntry
entry
in
MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop
(Setter
MetaGraphDef
MetaGraphDef
(Map Text SignatureDef)
(Map Text SignatureDef)
-> (Map Text SignatureDef -> Map Text SignatureDef)
-> MetaGraphDef
-> MetaGraphDef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
(forall s a (f :: * -> *).
(HasField s "signatureDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"signatureDef")
(\ !Map Text SignatureDef
t -> Text
-> SignatureDef -> Map Text SignatureDef -> Map Text SignatureDef
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key SignatureDef
value Map Text SignatureDef
t)
MetaGraphDef
x)
Growing Vector RealWorld AssetFileDef
mutable'assetFileDef)
50
-> do !AssetFileDef
y <- Parser AssetFileDef -> String -> Parser AssetFileDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser AssetFileDef -> Parser AssetFileDef
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 AssetFileDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"asset_file_def"
Growing Vector RealWorld AssetFileDef
v <- IO (Growing Vector RealWorld AssetFileDef)
-> Parser (Growing Vector RealWorld AssetFileDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) AssetFileDef
-> AssetFileDef -> IO (Growing Vector (PrimState IO) AssetFileDef)
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 AssetFileDef
Growing Vector (PrimState IO) AssetFileDef
mutable'assetFileDef AssetFileDef
y)
MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop MetaGraphDef
x Growing Vector RealWorld AssetFileDef
v
58
-> do SavedObjectGraph
y <- Parser SavedObjectGraph -> String -> Parser SavedObjectGraph
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SavedObjectGraph -> Parser SavedObjectGraph
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
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"object_graph_def"
MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop
(Setter MetaGraphDef MetaGraphDef SavedObjectGraph SavedObjectGraph
-> SavedObjectGraph -> MetaGraphDef -> MetaGraphDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "objectGraphDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"objectGraphDef") SavedObjectGraph
y MetaGraphDef
x)
Growing Vector RealWorld AssetFileDef
mutable'assetFileDef
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop
(Setter MetaGraphDef MetaGraphDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> MetaGraphDef -> MetaGraphDef
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 MetaGraphDef MetaGraphDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetaGraphDef
x)
Growing Vector RealWorld AssetFileDef
mutable'assetFileDef
in
Parser MetaGraphDef -> String -> Parser MetaGraphDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld AssetFileDef
mutable'assetFileDef <- IO (Growing Vector RealWorld AssetFileDef)
-> Parser (Growing Vector RealWorld AssetFileDef)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld AssetFileDef)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
MetaGraphDef
-> Growing Vector RealWorld AssetFileDef -> Parser MetaGraphDef
loop MetaGraphDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld AssetFileDef
mutable'assetFileDef)
"MetaGraphDef"
buildMessage :: MetaGraphDef -> Builder
buildMessage
= \ _x :: MetaGraphDef
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe MetaGraphDef'MetaInfoDef)
MetaGraphDef
MetaGraphDef
(Maybe MetaGraphDef'MetaInfoDef)
(Maybe MetaGraphDef'MetaInfoDef)
-> MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'metaInfoDef" a, Functor f) =>
(a -> f a) -> s -> 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'metaInfoDef") MetaGraphDef
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: MetaGraphDef'MetaInfoDef
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (MetaGraphDef'MetaInfoDef -> ByteString)
-> MetaGraphDef'MetaInfoDef
-> 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))
MetaGraphDef'MetaInfoDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
MetaGraphDef'MetaInfoDef
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe GraphDef)
MetaGraphDef
MetaGraphDef
(Maybe GraphDef)
(Maybe GraphDef)
-> MetaGraphDef -> Maybe GraphDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'graphDef" a, Functor f) =>
(a -> f a) -> s -> 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'graphDef") MetaGraphDef
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: GraphDef
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (GraphDef -> ByteString) -> GraphDef -> 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))
GraphDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
GraphDef
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe SaverDef)
MetaGraphDef
MetaGraphDef
(Maybe SaverDef)
(Maybe SaverDef)
-> MetaGraphDef -> Maybe SaverDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'saverDef" a, Functor f) =>
(a -> f a) -> s -> 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'saverDef") MetaGraphDef
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: SaverDef
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder)
-> (SaverDef -> ByteString) -> SaverDef -> 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))
SaverDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SaverDef
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
(((Text, CollectionDef) -> Builder)
-> [(Text, CollectionDef)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ _v :: (Text, CollectionDef)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((ByteString -> Builder)
-> (MetaGraphDef'CollectionDefEntry -> ByteString)
-> MetaGraphDef'CollectionDefEntry
-> 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))
MetaGraphDef'CollectionDefEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
Text
Text
-> Text
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
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, CollectionDef) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, CollectionDef)
_v)
(Setter
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
CollectionDef
CollectionDef
-> CollectionDef
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
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, CollectionDef) -> CollectionDef
forall a b. (a, b) -> b
Prelude.snd (Text, CollectionDef)
_v)
(MetaGraphDef'CollectionDefEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
MetaGraphDef'CollectionDefEntry)))))
(Map Text CollectionDef -> [(Text, CollectionDef)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text CollectionDef)
MetaGraphDef
MetaGraphDef
(Map Text CollectionDef)
(Map Text CollectionDef)
-> MetaGraphDef -> Map Text CollectionDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "collectionDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"collectionDef") MetaGraphDef
_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, SignatureDef) -> Builder)
-> [(Text, SignatureDef)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ _v :: (Text, SignatureDef)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((ByteString -> Builder)
-> (MetaGraphDef'SignatureDefEntry -> ByteString)
-> MetaGraphDef'SignatureDefEntry
-> 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))
MetaGraphDef'SignatureDefEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
Text
Text
-> Text
-> MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry
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, SignatureDef) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, SignatureDef)
_v)
(Setter
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
SignatureDef
SignatureDef
-> SignatureDef
-> MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry
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, SignatureDef) -> SignatureDef
forall a b. (a, b) -> b
Prelude.snd (Text, SignatureDef)
_v)
(MetaGraphDef'SignatureDefEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
MetaGraphDef'SignatureDefEntry)))))
(Map Text SignatureDef -> [(Text, SignatureDef)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text SignatureDef)
MetaGraphDef
MetaGraphDef
(Map Text SignatureDef)
(Map Text SignatureDef)
-> MetaGraphDef -> Map Text SignatureDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "signatureDef" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"signatureDef") MetaGraphDef
_x))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((AssetFileDef -> Builder) -> Vector AssetFileDef -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: AssetFileDef
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 50)
((ByteString -> Builder)
-> (AssetFileDef -> ByteString) -> AssetFileDef -> 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))
AssetFileDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
AssetFileDef
_v))
(FoldLike
(Vector AssetFileDef)
MetaGraphDef
MetaGraphDef
(Vector AssetFileDef)
(Vector AssetFileDef)
-> MetaGraphDef -> Vector AssetFileDef
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'assetFileDef" a, Functor f) =>
(a -> f a) -> s -> 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'assetFileDef") MetaGraphDef
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe SavedObjectGraph)
MetaGraphDef
MetaGraphDef
(Maybe SavedObjectGraph)
(Maybe SavedObjectGraph)
-> MetaGraphDef -> Maybe SavedObjectGraph
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'objectGraphDef" a, Functor f) =>
(a -> f a) -> s -> 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'objectGraphDef") MetaGraphDef
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: SavedObjectGraph
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
((ByteString -> Builder)
-> (SavedObjectGraph -> ByteString) -> SavedObjectGraph -> 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 -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SavedObjectGraph
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet MetaGraphDef MetaGraphDef FieldSet FieldSet
-> MetaGraphDef -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet MetaGraphDef MetaGraphDef FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MetaGraphDef
_x))))))))
instance Control.DeepSeq.NFData MetaGraphDef where
rnf :: MetaGraphDef -> ()
rnf
= \ x__ :: MetaGraphDef
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef -> FieldSet
_MetaGraphDef'_unknownFields MetaGraphDef
x__)
(Maybe MetaGraphDef'MetaInfoDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef -> Maybe MetaGraphDef'MetaInfoDef
_MetaGraphDef'metaInfoDef MetaGraphDef
x__)
(Maybe GraphDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef -> Maybe GraphDef
_MetaGraphDef'graphDef MetaGraphDef
x__)
(Maybe SaverDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef -> Maybe SaverDef
_MetaGraphDef'saverDef MetaGraphDef
x__)
(Map Text CollectionDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef -> Map Text CollectionDef
_MetaGraphDef'collectionDef MetaGraphDef
x__)
(Map Text SignatureDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef -> Map Text SignatureDef
_MetaGraphDef'signatureDef MetaGraphDef
x__)
(Vector AssetFileDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef -> Vector AssetFileDef
_MetaGraphDef'assetFileDef MetaGraphDef
x__)
(Maybe SavedObjectGraph -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef -> Maybe SavedObjectGraph
_MetaGraphDef'objectGraphDef MetaGraphDef
x__) ())))))))
data MetaGraphDef'CollectionDefEntry
= MetaGraphDef'CollectionDefEntry'_constructor {MetaGraphDef'CollectionDefEntry -> Text
_MetaGraphDef'CollectionDefEntry'key :: !Data.Text.Text,
MetaGraphDef'CollectionDefEntry -> Maybe CollectionDef
_MetaGraphDef'CollectionDefEntry'value :: !(Prelude.Maybe CollectionDef),
MetaGraphDef'CollectionDefEntry -> FieldSet
_MetaGraphDef'CollectionDefEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
(MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool)
-> (MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool)
-> Eq MetaGraphDef'CollectionDefEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
$c/= :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
== :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
$c== :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
Prelude.Eq, Eq MetaGraphDef'CollectionDefEntry
Eq MetaGraphDef'CollectionDefEntry =>
(MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Ordering)
-> (MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool)
-> (MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool)
-> (MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool)
-> (MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool)
-> (MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry)
-> (MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry)
-> Ord MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Ordering
MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
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 :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
$cmin :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
max :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
$cmax :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
>= :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
$c>= :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
> :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
$c> :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
<= :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
$c<= :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
< :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
$c< :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Bool
compare :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Ordering
$ccompare :: MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry -> Ordering
$cp1Ord :: Eq MetaGraphDef'CollectionDefEntry
Prelude.Ord)
instance Prelude.Show MetaGraphDef'CollectionDefEntry where
showsPrec :: Int -> MetaGraphDef'CollectionDefEntry -> ShowS
showsPrec _ __x :: MetaGraphDef'CollectionDefEntry
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(MetaGraphDef'CollectionDefEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetaGraphDef'CollectionDefEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MetaGraphDef'CollectionDefEntry "key" Data.Text.Text where
fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> MetaGraphDef'CollectionDefEntry
-> f MetaGraphDef'CollectionDefEntry
fieldOf _
= ((Text -> f Text)
-> MetaGraphDef'CollectionDefEntry
-> f MetaGraphDef'CollectionDefEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MetaGraphDef'CollectionDefEntry
-> f MetaGraphDef'CollectionDefEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'CollectionDefEntry -> Text)
-> (MetaGraphDef'CollectionDefEntry
-> Text -> MetaGraphDef'CollectionDefEntry)
-> Lens' MetaGraphDef'CollectionDefEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'CollectionDefEntry -> Text
_MetaGraphDef'CollectionDefEntry'key
(\ x__ :: MetaGraphDef'CollectionDefEntry
x__ y__ :: Text
y__ -> MetaGraphDef'CollectionDefEntry
x__ {_MetaGraphDef'CollectionDefEntry'key :: Text
_MetaGraphDef'CollectionDefEntry'key = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef'CollectionDefEntry "value" CollectionDef where
fieldOf :: Proxy# "value"
-> (CollectionDef -> f CollectionDef)
-> MetaGraphDef'CollectionDefEntry
-> f MetaGraphDef'CollectionDefEntry
fieldOf _
= ((Maybe CollectionDef -> f (Maybe CollectionDef))
-> MetaGraphDef'CollectionDefEntry
-> f MetaGraphDef'CollectionDefEntry)
-> ((CollectionDef -> f CollectionDef)
-> Maybe CollectionDef -> f (Maybe CollectionDef))
-> (CollectionDef -> f CollectionDef)
-> MetaGraphDef'CollectionDefEntry
-> f MetaGraphDef'CollectionDefEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'CollectionDefEntry -> Maybe CollectionDef)
-> (MetaGraphDef'CollectionDefEntry
-> Maybe CollectionDef -> MetaGraphDef'CollectionDefEntry)
-> Lens
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
(Maybe CollectionDef)
(Maybe CollectionDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'CollectionDefEntry -> Maybe CollectionDef
_MetaGraphDef'CollectionDefEntry'value
(\ x__ :: MetaGraphDef'CollectionDefEntry
x__ y__ :: Maybe CollectionDef
y__ -> MetaGraphDef'CollectionDefEntry
x__ {_MetaGraphDef'CollectionDefEntry'value :: Maybe CollectionDef
_MetaGraphDef'CollectionDefEntry'value = Maybe CollectionDef
y__}))
(CollectionDef -> Lens' (Maybe CollectionDef) CollectionDef
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens CollectionDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetaGraphDef'CollectionDefEntry "maybe'value" (Prelude.Maybe CollectionDef) where
fieldOf :: Proxy# "maybe'value"
-> (Maybe CollectionDef -> f (Maybe CollectionDef))
-> MetaGraphDef'CollectionDefEntry
-> f MetaGraphDef'CollectionDefEntry
fieldOf _
= ((Maybe CollectionDef -> f (Maybe CollectionDef))
-> MetaGraphDef'CollectionDefEntry
-> f MetaGraphDef'CollectionDefEntry)
-> ((Maybe CollectionDef -> f (Maybe CollectionDef))
-> Maybe CollectionDef -> f (Maybe CollectionDef))
-> (Maybe CollectionDef -> f (Maybe CollectionDef))
-> MetaGraphDef'CollectionDefEntry
-> f MetaGraphDef'CollectionDefEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'CollectionDefEntry -> Maybe CollectionDef)
-> (MetaGraphDef'CollectionDefEntry
-> Maybe CollectionDef -> MetaGraphDef'CollectionDefEntry)
-> Lens
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
(Maybe CollectionDef)
(Maybe CollectionDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'CollectionDefEntry -> Maybe CollectionDef
_MetaGraphDef'CollectionDefEntry'value
(\ x__ :: MetaGraphDef'CollectionDefEntry
x__ y__ :: Maybe CollectionDef
y__ -> MetaGraphDef'CollectionDefEntry
x__ {_MetaGraphDef'CollectionDefEntry'value :: Maybe CollectionDef
_MetaGraphDef'CollectionDefEntry'value = Maybe CollectionDef
y__}))
(Maybe CollectionDef -> f (Maybe CollectionDef))
-> Maybe CollectionDef -> f (Maybe CollectionDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MetaGraphDef'CollectionDefEntry where
messageName :: Proxy MetaGraphDef'CollectionDefEntry -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.MetaGraphDef.CollectionDefEntry"
packedMessageDescriptor :: Proxy MetaGraphDef'CollectionDefEntry -> ByteString
packedMessageDescriptor _
= "\n\
\\DC2CollectionDefEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2/\n\
\\ENQvalue\CAN\STX \SOH(\v2\EM.tensorflow.CollectionDefR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy MetaGraphDef'CollectionDefEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MetaGraphDef'CollectionDefEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor MetaGraphDef'CollectionDefEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MetaGraphDef'CollectionDefEntry Text
-> FieldDescriptor MetaGraphDef'CollectionDefEntry
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' MetaGraphDef'CollectionDefEntry Text
-> FieldAccessor MetaGraphDef'CollectionDefEntry 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 MetaGraphDef'CollectionDefEntry
value__field_descriptor :: FieldDescriptor MetaGraphDef'CollectionDefEntry
value__field_descriptor
= String
-> FieldTypeDescriptor CollectionDef
-> FieldAccessor MetaGraphDef'CollectionDefEntry CollectionDef
-> FieldDescriptor MetaGraphDef'CollectionDefEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(MessageOrGroup -> FieldTypeDescriptor CollectionDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor CollectionDef)
(Lens
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
(Maybe CollectionDef)
(Maybe CollectionDef)
-> FieldAccessor MetaGraphDef'CollectionDefEntry CollectionDef
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 MetaGraphDef'CollectionDefEntry
in
[(Tag, FieldDescriptor MetaGraphDef'CollectionDefEntry)]
-> Map Tag (FieldDescriptor MetaGraphDef'CollectionDefEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MetaGraphDef'CollectionDefEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MetaGraphDef'CollectionDefEntry
value__field_descriptor)]
unknownFields :: LensLike' f MetaGraphDef'CollectionDefEntry FieldSet
unknownFields
= (MetaGraphDef'CollectionDefEntry -> FieldSet)
-> (MetaGraphDef'CollectionDefEntry
-> FieldSet -> MetaGraphDef'CollectionDefEntry)
-> Lens' MetaGraphDef'CollectionDefEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'CollectionDefEntry -> FieldSet
_MetaGraphDef'CollectionDefEntry'_unknownFields
(\ x__ :: MetaGraphDef'CollectionDefEntry
x__ y__ :: FieldSet
y__
-> MetaGraphDef'CollectionDefEntry
x__ {_MetaGraphDef'CollectionDefEntry'_unknownFields :: FieldSet
_MetaGraphDef'CollectionDefEntry'_unknownFields = FieldSet
y__})
defMessage :: MetaGraphDef'CollectionDefEntry
defMessage
= $WMetaGraphDef'CollectionDefEntry'_constructor :: Text
-> Maybe CollectionDef
-> FieldSet
-> MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry'_constructor
{_MetaGraphDef'CollectionDefEntry'key :: Text
_MetaGraphDef'CollectionDefEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MetaGraphDef'CollectionDefEntry'value :: Maybe CollectionDef
_MetaGraphDef'CollectionDefEntry'value = Maybe CollectionDef
forall a. Maybe a
Prelude.Nothing,
_MetaGraphDef'CollectionDefEntry'_unknownFields :: FieldSet
_MetaGraphDef'CollectionDefEntry'_unknownFields = []}
parseMessage :: Parser MetaGraphDef'CollectionDefEntry
parseMessage
= let
loop ::
MetaGraphDef'CollectionDefEntry
-> Data.ProtoLens.Encoding.Bytes.Parser MetaGraphDef'CollectionDefEntry
loop :: MetaGraphDef'CollectionDefEntry
-> Parser MetaGraphDef'CollectionDefEntry
loop x :: MetaGraphDef'CollectionDefEntry
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]))))
MetaGraphDef'CollectionDefEntry
-> Parser MetaGraphDef'CollectionDefEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
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
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MetaGraphDef'CollectionDefEntry
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"
MetaGraphDef'CollectionDefEntry
-> Parser MetaGraphDef'CollectionDefEntry
loop (Setter
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
Text
Text
-> Text
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
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 MetaGraphDef'CollectionDefEntry
x)
18
-> do CollectionDef
y <- Parser CollectionDef -> String -> Parser CollectionDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser CollectionDef -> Parser CollectionDef
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 CollectionDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"value"
MetaGraphDef'CollectionDefEntry
-> Parser MetaGraphDef'CollectionDefEntry
loop (Setter
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
CollectionDef
CollectionDef
-> CollectionDef
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
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") CollectionDef
y MetaGraphDef'CollectionDefEntry
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MetaGraphDef'CollectionDefEntry
-> Parser MetaGraphDef'CollectionDefEntry
loop
(Setter
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> MetaGraphDef'CollectionDefEntry
-> MetaGraphDef'CollectionDefEntry
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
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetaGraphDef'CollectionDefEntry
x)
in
Parser MetaGraphDef'CollectionDefEntry
-> String -> Parser MetaGraphDef'CollectionDefEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do MetaGraphDef'CollectionDefEntry
-> Parser MetaGraphDef'CollectionDefEntry
loop MetaGraphDef'CollectionDefEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "CollectionDefEntry"
buildMessage :: MetaGraphDef'CollectionDefEntry -> Builder
buildMessage
= \ _x :: MetaGraphDef'CollectionDefEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
Text
Text
-> MetaGraphDef'CollectionDefEntry -> 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") MetaGraphDef'CollectionDefEntry
_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 CollectionDef)
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
(Maybe CollectionDef)
(Maybe CollectionDef)
-> MetaGraphDef'CollectionDefEntry -> Maybe CollectionDef
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") MetaGraphDef'CollectionDefEntry
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: CollectionDef
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (CollectionDef -> ByteString) -> CollectionDef -> 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))
CollectionDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
CollectionDef
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
FieldSet
FieldSet
-> MetaGraphDef'CollectionDefEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
MetaGraphDef'CollectionDefEntry
MetaGraphDef'CollectionDefEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MetaGraphDef'CollectionDefEntry
_x)))
instance Control.DeepSeq.NFData MetaGraphDef'CollectionDefEntry where
rnf :: MetaGraphDef'CollectionDefEntry -> ()
rnf
= \ x__ :: MetaGraphDef'CollectionDefEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'CollectionDefEntry -> FieldSet
_MetaGraphDef'CollectionDefEntry'_unknownFields MetaGraphDef'CollectionDefEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'CollectionDefEntry -> Text
_MetaGraphDef'CollectionDefEntry'key MetaGraphDef'CollectionDefEntry
x__)
(Maybe CollectionDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'CollectionDefEntry -> Maybe CollectionDef
_MetaGraphDef'CollectionDefEntry'value MetaGraphDef'CollectionDefEntry
x__) ()))
data MetaGraphDef'MetaInfoDef
= MetaGraphDef'MetaInfoDef'_constructor {MetaGraphDef'MetaInfoDef -> Text
_MetaGraphDef'MetaInfoDef'metaGraphVersion :: !Data.Text.Text,
MetaGraphDef'MetaInfoDef -> Maybe OpList
_MetaGraphDef'MetaInfoDef'strippedOpList :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.OpDef.OpList),
MetaGraphDef'MetaInfoDef -> Maybe Any
_MetaGraphDef'MetaInfoDef'anyInfo :: !(Prelude.Maybe Proto.Google.Protobuf.Any.Any),
MetaGraphDef'MetaInfoDef -> Vector Text
_MetaGraphDef'MetaInfoDef'tags :: !(Data.Vector.Vector Data.Text.Text),
MetaGraphDef'MetaInfoDef -> Text
_MetaGraphDef'MetaInfoDef'tensorflowVersion :: !Data.Text.Text,
MetaGraphDef'MetaInfoDef -> Text
_MetaGraphDef'MetaInfoDef'tensorflowGitVersion :: !Data.Text.Text,
MetaGraphDef'MetaInfoDef -> Bool
_MetaGraphDef'MetaInfoDef'strippedDefaultAttrs :: !Prelude.Bool,
MetaGraphDef'MetaInfoDef -> Map Text Text
_MetaGraphDef'MetaInfoDef'functionAliases :: !(Data.Map.Map Data.Text.Text Data.Text.Text),
MetaGraphDef'MetaInfoDef -> FieldSet
_MetaGraphDef'MetaInfoDef'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
(MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool)
-> (MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool)
-> Eq MetaGraphDef'MetaInfoDef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
$c/= :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
== :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
$c== :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
Prelude.Eq, Eq MetaGraphDef'MetaInfoDef
Eq MetaGraphDef'MetaInfoDef =>
(MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Ordering)
-> (MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool)
-> (MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool)
-> (MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool)
-> (MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool)
-> (MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef)
-> (MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef)
-> Ord MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Ordering
MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
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 :: MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
$cmin :: MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
max :: MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
$cmax :: MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
>= :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
$c>= :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
> :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
$c> :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
<= :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
$c<= :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
< :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
$c< :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Bool
compare :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Ordering
$ccompare :: MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef -> Ordering
$cp1Ord :: Eq MetaGraphDef'MetaInfoDef
Prelude.Ord)
instance Prelude.Show MetaGraphDef'MetaInfoDef where
showsPrec :: Int -> MetaGraphDef'MetaInfoDef -> ShowS
showsPrec _ __x :: MetaGraphDef'MetaInfoDef
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(MetaGraphDef'MetaInfoDef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetaGraphDef'MetaInfoDef
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MetaGraphDef'MetaInfoDef "metaGraphVersion" Data.Text.Text where
fieldOf :: Proxy# "metaGraphVersion"
-> (Text -> f Text)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
fieldOf _
= ((Text -> f Text)
-> MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'MetaInfoDef -> Text)
-> (MetaGraphDef'MetaInfoDef -> Text -> MetaGraphDef'MetaInfoDef)
-> Lens MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'MetaInfoDef -> Text
_MetaGraphDef'MetaInfoDef'metaGraphVersion
(\ x__ :: MetaGraphDef'MetaInfoDef
x__ y__ :: Text
y__
-> MetaGraphDef'MetaInfoDef
x__ {_MetaGraphDef'MetaInfoDef'metaGraphVersion :: Text
_MetaGraphDef'MetaInfoDef'metaGraphVersion = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef'MetaInfoDef "strippedOpList" Proto.Tensorflow.Core.Framework.OpDef.OpList where
fieldOf :: Proxy# "strippedOpList"
-> (OpList -> f OpList)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
fieldOf _
= ((Maybe OpList -> f (Maybe OpList))
-> MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> ((OpList -> f OpList) -> Maybe OpList -> f (Maybe OpList))
-> (OpList -> f OpList)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'MetaInfoDef -> Maybe OpList)
-> (MetaGraphDef'MetaInfoDef
-> Maybe OpList -> MetaGraphDef'MetaInfoDef)
-> Lens
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Maybe OpList)
(Maybe OpList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'MetaInfoDef -> Maybe OpList
_MetaGraphDef'MetaInfoDef'strippedOpList
(\ x__ :: MetaGraphDef'MetaInfoDef
x__ y__ :: Maybe OpList
y__
-> MetaGraphDef'MetaInfoDef
x__ {_MetaGraphDef'MetaInfoDef'strippedOpList :: Maybe OpList
_MetaGraphDef'MetaInfoDef'strippedOpList = Maybe OpList
y__}))
(OpList -> Lens' (Maybe OpList) OpList
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens OpList
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetaGraphDef'MetaInfoDef "maybe'strippedOpList" (Prelude.Maybe Proto.Tensorflow.Core.Framework.OpDef.OpList) where
fieldOf :: Proxy# "maybe'strippedOpList"
-> (Maybe OpList -> f (Maybe OpList))
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
fieldOf _
= ((Maybe OpList -> f (Maybe OpList))
-> MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> ((Maybe OpList -> f (Maybe OpList))
-> Maybe OpList -> f (Maybe OpList))
-> (Maybe OpList -> f (Maybe OpList))
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'MetaInfoDef -> Maybe OpList)
-> (MetaGraphDef'MetaInfoDef
-> Maybe OpList -> MetaGraphDef'MetaInfoDef)
-> Lens
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Maybe OpList)
(Maybe OpList)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'MetaInfoDef -> Maybe OpList
_MetaGraphDef'MetaInfoDef'strippedOpList
(\ x__ :: MetaGraphDef'MetaInfoDef
x__ y__ :: Maybe OpList
y__
-> MetaGraphDef'MetaInfoDef
x__ {_MetaGraphDef'MetaInfoDef'strippedOpList :: Maybe OpList
_MetaGraphDef'MetaInfoDef'strippedOpList = Maybe OpList
y__}))
(Maybe OpList -> f (Maybe OpList))
-> Maybe OpList -> f (Maybe OpList)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef'MetaInfoDef "anyInfo" Proto.Google.Protobuf.Any.Any where
fieldOf :: Proxy# "anyInfo"
-> (Any -> f Any)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
fieldOf _
= ((Maybe Any -> f (Maybe Any))
-> MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> ((Any -> f Any) -> Maybe Any -> f (Maybe Any))
-> (Any -> f Any)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'MetaInfoDef -> Maybe Any)
-> (MetaGraphDef'MetaInfoDef
-> Maybe Any -> MetaGraphDef'MetaInfoDef)
-> Lens
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Maybe Any)
(Maybe Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'MetaInfoDef -> Maybe Any
_MetaGraphDef'MetaInfoDef'anyInfo
(\ x__ :: MetaGraphDef'MetaInfoDef
x__ y__ :: Maybe Any
y__ -> MetaGraphDef'MetaInfoDef
x__ {_MetaGraphDef'MetaInfoDef'anyInfo :: Maybe Any
_MetaGraphDef'MetaInfoDef'anyInfo = Maybe Any
y__}))
(Any -> Lens' (Maybe Any) Any
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Any
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetaGraphDef'MetaInfoDef "maybe'anyInfo" (Prelude.Maybe Proto.Google.Protobuf.Any.Any) where
fieldOf :: Proxy# "maybe'anyInfo"
-> (Maybe Any -> f (Maybe Any))
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
fieldOf _
= ((Maybe Any -> f (Maybe Any))
-> MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> ((Maybe Any -> f (Maybe Any)) -> Maybe Any -> f (Maybe Any))
-> (Maybe Any -> f (Maybe Any))
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'MetaInfoDef -> Maybe Any)
-> (MetaGraphDef'MetaInfoDef
-> Maybe Any -> MetaGraphDef'MetaInfoDef)
-> Lens
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Maybe Any)
(Maybe Any)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'MetaInfoDef -> Maybe Any
_MetaGraphDef'MetaInfoDef'anyInfo
(\ x__ :: MetaGraphDef'MetaInfoDef
x__ y__ :: Maybe Any
y__ -> MetaGraphDef'MetaInfoDef
x__ {_MetaGraphDef'MetaInfoDef'anyInfo :: Maybe Any
_MetaGraphDef'MetaInfoDef'anyInfo = Maybe Any
y__}))
(Maybe Any -> f (Maybe Any)) -> Maybe Any -> f (Maybe Any)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef'MetaInfoDef "tags" [Data.Text.Text] where
fieldOf :: Proxy# "tags"
-> ([Text] -> f [Text])
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
fieldOf _
= ((Vector Text -> f (Vector Text))
-> MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> (([Text] -> f [Text]) -> Vector Text -> f (Vector Text))
-> ([Text] -> f [Text])
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'MetaInfoDef -> Vector Text)
-> (MetaGraphDef'MetaInfoDef
-> Vector Text -> MetaGraphDef'MetaInfoDef)
-> Lens
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Vector Text)
(Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'MetaInfoDef -> Vector Text
_MetaGraphDef'MetaInfoDef'tags
(\ x__ :: MetaGraphDef'MetaInfoDef
x__ y__ :: Vector Text
y__ -> MetaGraphDef'MetaInfoDef
x__ {_MetaGraphDef'MetaInfoDef'tags :: Vector Text
_MetaGraphDef'MetaInfoDef'tags = 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 MetaGraphDef'MetaInfoDef "vec'tags" (Data.Vector.Vector Data.Text.Text) where
fieldOf :: Proxy# "vec'tags"
-> (Vector Text -> f (Vector Text))
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
fieldOf _
= ((Vector Text -> f (Vector Text))
-> MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> ((Vector Text -> f (Vector Text))
-> Vector Text -> f (Vector Text))
-> (Vector Text -> f (Vector Text))
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'MetaInfoDef -> Vector Text)
-> (MetaGraphDef'MetaInfoDef
-> Vector Text -> MetaGraphDef'MetaInfoDef)
-> Lens
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Vector Text)
(Vector Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'MetaInfoDef -> Vector Text
_MetaGraphDef'MetaInfoDef'tags
(\ x__ :: MetaGraphDef'MetaInfoDef
x__ y__ :: Vector Text
y__ -> MetaGraphDef'MetaInfoDef
x__ {_MetaGraphDef'MetaInfoDef'tags :: Vector Text
_MetaGraphDef'MetaInfoDef'tags = Vector Text
y__}))
(Vector Text -> f (Vector Text)) -> Vector Text -> f (Vector Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef'MetaInfoDef "tensorflowVersion" Data.Text.Text where
fieldOf :: Proxy# "tensorflowVersion"
-> (Text -> f Text)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
fieldOf _
= ((Text -> f Text)
-> MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'MetaInfoDef -> Text)
-> (MetaGraphDef'MetaInfoDef -> Text -> MetaGraphDef'MetaInfoDef)
-> Lens MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'MetaInfoDef -> Text
_MetaGraphDef'MetaInfoDef'tensorflowVersion
(\ x__ :: MetaGraphDef'MetaInfoDef
x__ y__ :: Text
y__
-> MetaGraphDef'MetaInfoDef
x__ {_MetaGraphDef'MetaInfoDef'tensorflowVersion :: Text
_MetaGraphDef'MetaInfoDef'tensorflowVersion = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef'MetaInfoDef "tensorflowGitVersion" Data.Text.Text where
fieldOf :: Proxy# "tensorflowGitVersion"
-> (Text -> f Text)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
fieldOf _
= ((Text -> f Text)
-> MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'MetaInfoDef -> Text)
-> (MetaGraphDef'MetaInfoDef -> Text -> MetaGraphDef'MetaInfoDef)
-> Lens MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'MetaInfoDef -> Text
_MetaGraphDef'MetaInfoDef'tensorflowGitVersion
(\ x__ :: MetaGraphDef'MetaInfoDef
x__ y__ :: Text
y__
-> MetaGraphDef'MetaInfoDef
x__ {_MetaGraphDef'MetaInfoDef'tensorflowGitVersion :: Text
_MetaGraphDef'MetaInfoDef'tensorflowGitVersion = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef'MetaInfoDef "strippedDefaultAttrs" Prelude.Bool where
fieldOf :: Proxy# "strippedDefaultAttrs"
-> (Bool -> f Bool)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
fieldOf _
= ((Bool -> f Bool)
-> MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> ((Bool -> f Bool) -> Bool -> f Bool)
-> (Bool -> f Bool)
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'MetaInfoDef -> Bool)
-> (MetaGraphDef'MetaInfoDef -> Bool -> MetaGraphDef'MetaInfoDef)
-> Lens MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Bool Bool
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'MetaInfoDef -> Bool
_MetaGraphDef'MetaInfoDef'strippedDefaultAttrs
(\ x__ :: MetaGraphDef'MetaInfoDef
x__ y__ :: Bool
y__
-> MetaGraphDef'MetaInfoDef
x__ {_MetaGraphDef'MetaInfoDef'strippedDefaultAttrs :: Bool
_MetaGraphDef'MetaInfoDef'strippedDefaultAttrs = Bool
y__}))
(Bool -> f Bool) -> Bool -> f Bool
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef'MetaInfoDef "functionAliases" (Data.Map.Map Data.Text.Text Data.Text.Text) where
fieldOf :: Proxy# "functionAliases"
-> (Map Text Text -> f (Map Text Text))
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
fieldOf _
= ((Map Text Text -> f (Map Text Text))
-> MetaGraphDef'MetaInfoDef -> f MetaGraphDef'MetaInfoDef)
-> ((Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text))
-> (Map Text Text -> f (Map Text Text))
-> MetaGraphDef'MetaInfoDef
-> f MetaGraphDef'MetaInfoDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'MetaInfoDef -> Map Text Text)
-> (MetaGraphDef'MetaInfoDef
-> Map Text Text -> MetaGraphDef'MetaInfoDef)
-> Lens
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Map Text Text)
(Map Text Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'MetaInfoDef -> Map Text Text
_MetaGraphDef'MetaInfoDef'functionAliases
(\ x__ :: MetaGraphDef'MetaInfoDef
x__ y__ :: Map Text Text
y__
-> MetaGraphDef'MetaInfoDef
x__ {_MetaGraphDef'MetaInfoDef'functionAliases :: Map Text Text
_MetaGraphDef'MetaInfoDef'functionAliases = Map Text Text
y__}))
(Map Text Text -> f (Map Text Text))
-> Map Text Text -> f (Map Text Text)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MetaGraphDef'MetaInfoDef where
messageName :: Proxy MetaGraphDef'MetaInfoDef -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.MetaGraphDef.MetaInfoDef"
packedMessageDescriptor :: Proxy MetaGraphDef'MetaInfoDef -> ByteString
packedMessageDescriptor _
= "\n\
\\vMetaInfoDef\DC2,\n\
\\DC2meta_graph_version\CAN\SOH \SOH(\tR\DLEmetaGraphVersion\DC2<\n\
\\DLEstripped_op_list\CAN\STX \SOH(\v2\DC2.tensorflow.OpListR\SOstrippedOpList\DC2/\n\
\\bany_info\CAN\ETX \SOH(\v2\DC4.google.protobuf.AnyR\aanyInfo\DC2\DC2\n\
\\EOTtags\CAN\EOT \ETX(\tR\EOTtags\DC2-\n\
\\DC2tensorflow_version\CAN\ENQ \SOH(\tR\DC1tensorflowVersion\DC24\n\
\\SYNtensorflow_git_version\CAN\ACK \SOH(\tR\DC4tensorflowGitVersion\DC24\n\
\\SYNstripped_default_attrs\CAN\a \SOH(\bR\DC4strippedDefaultAttrs\DC2d\n\
\\DLEfunction_aliases\CAN\b \ETX(\v29.tensorflow.MetaGraphDef.MetaInfoDef.FunctionAliasesEntryR\SIfunctionAliases\SUBB\n\
\\DC4FunctionAliasesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy MetaGraphDef'MetaInfoDef -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MetaGraphDef'MetaInfoDef)
fieldsByTag
= let
metaGraphVersion__field_descriptor :: FieldDescriptor MetaGraphDef'MetaInfoDef
metaGraphVersion__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MetaGraphDef'MetaInfoDef Text
-> FieldDescriptor MetaGraphDef'MetaInfoDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"meta_graph_version"
(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 MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Text Text
-> FieldAccessor MetaGraphDef'MetaInfoDef 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 "metaGraphVersion" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"metaGraphVersion")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef
strippedOpList__field_descriptor :: FieldDescriptor MetaGraphDef'MetaInfoDef
strippedOpList__field_descriptor
= String
-> FieldTypeDescriptor OpList
-> FieldAccessor MetaGraphDef'MetaInfoDef OpList
-> FieldDescriptor MetaGraphDef'MetaInfoDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"stripped_op_list"
(MessageOrGroup -> FieldTypeDescriptor OpList
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.OpDef.OpList)
(Lens
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Maybe OpList)
(Maybe OpList)
-> FieldAccessor MetaGraphDef'MetaInfoDef OpList
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'strippedOpList" a, Functor f) =>
(a -> f a) -> s -> 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'strippedOpList")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef
anyInfo__field_descriptor :: FieldDescriptor MetaGraphDef'MetaInfoDef
anyInfo__field_descriptor
= String
-> FieldTypeDescriptor Any
-> FieldAccessor MetaGraphDef'MetaInfoDef Any
-> FieldDescriptor MetaGraphDef'MetaInfoDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"any_info"
(MessageOrGroup -> FieldTypeDescriptor Any
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Google.Protobuf.Any.Any)
(Lens
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Maybe Any)
(Maybe Any)
-> FieldAccessor MetaGraphDef'MetaInfoDef Any
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'anyInfo" a, Functor f) =>
(a -> f a) -> s -> 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'anyInfo")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef
tags__field_descriptor :: FieldDescriptor MetaGraphDef'MetaInfoDef
tags__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MetaGraphDef'MetaInfoDef Text
-> FieldDescriptor MetaGraphDef'MetaInfoDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"tags"
(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' MetaGraphDef'MetaInfoDef [Text]
-> FieldAccessor MetaGraphDef'MetaInfoDef Text
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "tags" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tags")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef
tensorflowVersion__field_descriptor :: FieldDescriptor MetaGraphDef'MetaInfoDef
tensorflowVersion__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MetaGraphDef'MetaInfoDef Text
-> FieldDescriptor MetaGraphDef'MetaInfoDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"tensorflow_version"
(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 MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Text Text
-> FieldAccessor MetaGraphDef'MetaInfoDef 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 "tensorflowVersion" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorflowVersion")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef
tensorflowGitVersion__field_descriptor :: FieldDescriptor MetaGraphDef'MetaInfoDef
tensorflowGitVersion__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MetaGraphDef'MetaInfoDef Text
-> FieldDescriptor MetaGraphDef'MetaInfoDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"tensorflow_git_version"
(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 MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Text Text
-> FieldAccessor MetaGraphDef'MetaInfoDef 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 "tensorflowGitVersion" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorflowGitVersion")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef
strippedDefaultAttrs__field_descriptor :: FieldDescriptor MetaGraphDef'MetaInfoDef
strippedDefaultAttrs__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor MetaGraphDef'MetaInfoDef Bool
-> FieldDescriptor MetaGraphDef'MetaInfoDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"stripped_default_attrs"
(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 MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Bool Bool
-> FieldAccessor MetaGraphDef'MetaInfoDef 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 "strippedDefaultAttrs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"strippedDefaultAttrs")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef
functionAliases__field_descriptor :: FieldDescriptor MetaGraphDef'MetaInfoDef
functionAliases__field_descriptor
= String
-> FieldTypeDescriptor
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> FieldAccessor
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> FieldDescriptor MetaGraphDef'MetaInfoDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"function_aliases"
(MessageOrGroup
-> FieldTypeDescriptor
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor MetaGraphDef'MetaInfoDef'FunctionAliasesEntry)
(Lens' MetaGraphDef'MetaInfoDef'FunctionAliasesEntry Text
-> Lens' MetaGraphDef'MetaInfoDef'FunctionAliasesEntry Text
-> Lens
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Map Text Text)
(Map Text Text)
-> FieldAccessor
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
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 "functionAliases" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"functionAliases")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef
in
[(Tag, FieldDescriptor MetaGraphDef'MetaInfoDef)]
-> Map Tag (FieldDescriptor MetaGraphDef'MetaInfoDef)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MetaGraphDef'MetaInfoDef
metaGraphVersion__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MetaGraphDef'MetaInfoDef
strippedOpList__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor MetaGraphDef'MetaInfoDef
anyInfo__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor MetaGraphDef'MetaInfoDef
tags__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor MetaGraphDef'MetaInfoDef
tensorflowVersion__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor MetaGraphDef'MetaInfoDef
tensorflowGitVersion__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor MetaGraphDef'MetaInfoDef
strippedDefaultAttrs__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor MetaGraphDef'MetaInfoDef
functionAliases__field_descriptor)]
unknownFields :: LensLike' f MetaGraphDef'MetaInfoDef FieldSet
unknownFields
= (MetaGraphDef'MetaInfoDef -> FieldSet)
-> (MetaGraphDef'MetaInfoDef
-> FieldSet -> MetaGraphDef'MetaInfoDef)
-> Lens' MetaGraphDef'MetaInfoDef FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'MetaInfoDef -> FieldSet
_MetaGraphDef'MetaInfoDef'_unknownFields
(\ x__ :: MetaGraphDef'MetaInfoDef
x__ y__ :: FieldSet
y__ -> MetaGraphDef'MetaInfoDef
x__ {_MetaGraphDef'MetaInfoDef'_unknownFields :: FieldSet
_MetaGraphDef'MetaInfoDef'_unknownFields = FieldSet
y__})
defMessage :: MetaGraphDef'MetaInfoDef
defMessage
= $WMetaGraphDef'MetaInfoDef'_constructor :: Text
-> Maybe OpList
-> Maybe Any
-> Vector Text
-> Text
-> Text
-> Bool
-> Map Text Text
-> FieldSet
-> MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef'_constructor
{_MetaGraphDef'MetaInfoDef'metaGraphVersion :: Text
_MetaGraphDef'MetaInfoDef'metaGraphVersion = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MetaGraphDef'MetaInfoDef'strippedOpList :: Maybe OpList
_MetaGraphDef'MetaInfoDef'strippedOpList = Maybe OpList
forall a. Maybe a
Prelude.Nothing,
_MetaGraphDef'MetaInfoDef'anyInfo :: Maybe Any
_MetaGraphDef'MetaInfoDef'anyInfo = Maybe Any
forall a. Maybe a
Prelude.Nothing,
_MetaGraphDef'MetaInfoDef'tags :: Vector Text
_MetaGraphDef'MetaInfoDef'tags = Vector Text
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_MetaGraphDef'MetaInfoDef'tensorflowVersion :: Text
_MetaGraphDef'MetaInfoDef'tensorflowVersion = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MetaGraphDef'MetaInfoDef'tensorflowGitVersion :: Text
_MetaGraphDef'MetaInfoDef'tensorflowGitVersion = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MetaGraphDef'MetaInfoDef'strippedDefaultAttrs :: Bool
_MetaGraphDef'MetaInfoDef'strippedDefaultAttrs = Bool
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MetaGraphDef'MetaInfoDef'functionAliases :: Map Text Text
_MetaGraphDef'MetaInfoDef'functionAliases = Map Text Text
forall k a. Map k a
Data.Map.empty,
_MetaGraphDef'MetaInfoDef'_unknownFields :: FieldSet
_MetaGraphDef'MetaInfoDef'_unknownFields = []}
parseMessage :: Parser MetaGraphDef'MetaInfoDef
parseMessage
= let
loop ::
MetaGraphDef'MetaInfoDef
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Text.Text
-> Data.ProtoLens.Encoding.Bytes.Parser MetaGraphDef'MetaInfoDef
loop :: MetaGraphDef'MetaInfoDef
-> Growing Vector RealWorld Text -> Parser MetaGraphDef'MetaInfoDef
loop x :: MetaGraphDef'MetaInfoDef
x mutable'tags :: Growing Vector RealWorld Text
mutable'tags
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Text
frozen'tags <- 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'tags)
(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]))))
MetaGraphDef'MetaInfoDef -> Parser MetaGraphDef'MetaInfoDef
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef
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
MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Vector Text)
(Vector Text)
-> Vector Text
-> MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'tags" a, Functor f) =>
(a -> f a) -> s -> 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'tags") Vector Text
frozen'tags MetaGraphDef'MetaInfoDef
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))
"meta_graph_version"
MetaGraphDef'MetaInfoDef
-> Growing Vector RealWorld Text -> Parser MetaGraphDef'MetaInfoDef
loop
(Setter MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Text Text
-> Text -> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "metaGraphVersion" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"metaGraphVersion") Text
y MetaGraphDef'MetaInfoDef
x)
Growing Vector RealWorld Text
mutable'tags
18
-> do OpList
y <- Parser OpList -> String -> Parser OpList
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser OpList -> Parser OpList
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 OpList
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"stripped_op_list"
MetaGraphDef'MetaInfoDef
-> Growing Vector RealWorld Text -> Parser MetaGraphDef'MetaInfoDef
loop
(Setter
MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef OpList OpList
-> OpList -> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "strippedOpList" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"strippedOpList") OpList
y MetaGraphDef'MetaInfoDef
x)
Growing Vector RealWorld Text
mutable'tags
26
-> do Any
y <- Parser Any -> String -> Parser Any
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser Any -> Parser Any
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 Any
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"any_info"
MetaGraphDef'MetaInfoDef
-> Growing Vector RealWorld Text -> Parser MetaGraphDef'MetaInfoDef
loop
(Setter MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Any Any
-> Any -> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "anyInfo" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"anyInfo") Any
y MetaGraphDef'MetaInfoDef
x)
Growing Vector RealWorld Text
mutable'tags
34
-> 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))
"tags"
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'tags Text
y)
MetaGraphDef'MetaInfoDef
-> Growing Vector RealWorld Text -> Parser MetaGraphDef'MetaInfoDef
loop MetaGraphDef'MetaInfoDef
x Growing Vector RealWorld Text
v
42
-> 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))
"tensorflow_version"
MetaGraphDef'MetaInfoDef
-> Growing Vector RealWorld Text -> Parser MetaGraphDef'MetaInfoDef
loop
(Setter MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Text Text
-> Text -> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "tensorflowVersion" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorflowVersion") Text
y MetaGraphDef'MetaInfoDef
x)
Growing Vector RealWorld Text
mutable'tags
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))
"tensorflow_git_version"
MetaGraphDef'MetaInfoDef
-> Growing Vector RealWorld Text -> Parser MetaGraphDef'MetaInfoDef
loop
(Setter MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Text Text
-> Text -> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "tensorflowGitVersion" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorflowGitVersion") Text
y MetaGraphDef'MetaInfoDef
x)
Growing Vector RealWorld Text
mutable'tags
56
-> 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)
"stripped_default_attrs"
MetaGraphDef'MetaInfoDef
-> Growing Vector RealWorld Text -> Parser MetaGraphDef'MetaInfoDef
loop
(Setter MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Bool Bool
-> Bool -> MetaGraphDef'MetaInfoDef -> MetaGraphDef'MetaInfoDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "strippedDefaultAttrs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"strippedDefaultAttrs") Bool
y MetaGraphDef'MetaInfoDef
x)
Growing Vector RealWorld Text
mutable'tags
66
-> do !(MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
entry :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry) <- Parser MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> String -> Parser MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> Parser MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
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 MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"function_aliases"
(let
key :: Text
key = FoldLike
Text
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
Text
Text
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> 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") MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
entry
value :: Text
value
= FoldLike
Text
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
Text
Text
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
entry
in
MetaGraphDef'MetaInfoDef
-> Growing Vector RealWorld Text -> Parser MetaGraphDef'MetaInfoDef
loop
(Setter
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Map Text Text)
(Map Text Text)
-> (Map Text Text -> Map Text Text)
-> MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
(forall s a (f :: * -> *).
(HasField s "functionAliases" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"functionAliases")
(\ !Map Text Text
t -> Text -> Text -> Map Text Text -> Map Text Text
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key Text
value Map Text Text
t)
MetaGraphDef'MetaInfoDef
x)
Growing Vector RealWorld Text
mutable'tags)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MetaGraphDef'MetaInfoDef
-> Growing Vector RealWorld Text -> Parser MetaGraphDef'MetaInfoDef
loop
(Setter
MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> MetaGraphDef'MetaInfoDef
-> MetaGraphDef'MetaInfoDef
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
MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetaGraphDef'MetaInfoDef
x)
Growing Vector RealWorld Text
mutable'tags
in
Parser MetaGraphDef'MetaInfoDef
-> String -> Parser MetaGraphDef'MetaInfoDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Text
mutable'tags <- 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
MetaGraphDef'MetaInfoDef
-> Growing Vector RealWorld Text -> Parser MetaGraphDef'MetaInfoDef
loop MetaGraphDef'MetaInfoDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld Text
mutable'tags)
"MetaInfoDef"
buildMessage :: MetaGraphDef'MetaInfoDef -> Builder
buildMessage
= \ _x :: MetaGraphDef'MetaInfoDef
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Text Text
-> MetaGraphDef'MetaInfoDef -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "metaGraphVersion" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"metaGraphVersion") MetaGraphDef'MetaInfoDef
_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 OpList)
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Maybe OpList)
(Maybe OpList)
-> MetaGraphDef'MetaInfoDef -> Maybe OpList
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'strippedOpList" a, Functor f) =>
(a -> f a) -> s -> 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'strippedOpList") MetaGraphDef'MetaInfoDef
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: OpList
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (OpList -> ByteString) -> OpList -> 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))
OpList -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
OpList
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe Any)
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Maybe Any)
(Maybe Any)
-> MetaGraphDef'MetaInfoDef -> Maybe Any
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'anyInfo" a, Functor f) =>
(a -> f a) -> s -> 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'anyInfo") MetaGraphDef'MetaInfoDef
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: Any
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder) -> (Any -> ByteString) -> Any -> 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))
Any -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
Any
_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 34)
((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)
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Vector Text)
(Vector Text)
-> MetaGraphDef'MetaInfoDef -> 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'tags" a, Functor f) =>
(a -> f a) -> s -> 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'tags") MetaGraphDef'MetaInfoDef
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike
Text MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Text Text
-> MetaGraphDef'MetaInfoDef -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "tensorflowVersion" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorflowVersion") MetaGraphDef'MetaInfoDef
_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 42)
((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.<>)
(let
_v :: Text
_v
= FoldLike
Text MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Text Text
-> MetaGraphDef'MetaInfoDef -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "tensorflowGitVersion" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorflowGitVersion") MetaGraphDef'MetaInfoDef
_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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Bool
_v
= FoldLike
Bool MetaGraphDef'MetaInfoDef MetaGraphDef'MetaInfoDef Bool Bool
-> MetaGraphDef'MetaInfoDef -> Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "strippedDefaultAttrs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"strippedDefaultAttrs") MetaGraphDef'MetaInfoDef
_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 56)
((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.<>)
([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
(((Text, Text) -> Builder) -> [(Text, Text)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ _v :: (Text, Text)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 66)
((ByteString -> Builder)
-> (MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> ByteString)
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> 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))
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
Text
Text
-> Text
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
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, Text) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, Text)
_v)
(Setter
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
Text
Text
-> Text
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
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, Text) -> Text
forall a b. (a, b) -> b
Prelude.snd (Text, Text)
_v)
(MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry)))))
(Map Text Text -> [(Text, Text)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text Text)
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
(Map Text Text)
(Map Text Text)
-> MetaGraphDef'MetaInfoDef -> Map Text Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "functionAliases" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"functionAliases") MetaGraphDef'MetaInfoDef
_x))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
FieldSet
FieldSet
-> MetaGraphDef'MetaInfoDef -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
MetaGraphDef'MetaInfoDef
MetaGraphDef'MetaInfoDef
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MetaGraphDef'MetaInfoDef
_x)))))))))
instance Control.DeepSeq.NFData MetaGraphDef'MetaInfoDef where
rnf :: MetaGraphDef'MetaInfoDef -> ()
rnf
= \ x__ :: MetaGraphDef'MetaInfoDef
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'MetaInfoDef -> FieldSet
_MetaGraphDef'MetaInfoDef'_unknownFields MetaGraphDef'MetaInfoDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'MetaInfoDef -> Text
_MetaGraphDef'MetaInfoDef'metaGraphVersion MetaGraphDef'MetaInfoDef
x__)
(Maybe OpList -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'MetaInfoDef -> Maybe OpList
_MetaGraphDef'MetaInfoDef'strippedOpList MetaGraphDef'MetaInfoDef
x__)
(Maybe Any -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'MetaInfoDef -> Maybe Any
_MetaGraphDef'MetaInfoDef'anyInfo MetaGraphDef'MetaInfoDef
x__)
(Vector Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'MetaInfoDef -> Vector Text
_MetaGraphDef'MetaInfoDef'tags MetaGraphDef'MetaInfoDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'MetaInfoDef -> Text
_MetaGraphDef'MetaInfoDef'tensorflowVersion MetaGraphDef'MetaInfoDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'MetaInfoDef -> Text
_MetaGraphDef'MetaInfoDef'tensorflowGitVersion MetaGraphDef'MetaInfoDef
x__)
(Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'MetaInfoDef -> Bool
_MetaGraphDef'MetaInfoDef'strippedDefaultAttrs MetaGraphDef'MetaInfoDef
x__)
(Map Text Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'MetaInfoDef -> Map Text Text
_MetaGraphDef'MetaInfoDef'functionAliases MetaGraphDef'MetaInfoDef
x__) ()))))))))
data MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
= MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'_constructor {MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Text
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'key :: !Data.Text.Text,
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Text
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'value :: !Data.Text.Text,
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> FieldSet
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool
(MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool)
-> (MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool)
-> Eq MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool
$c/= :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool
== :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool
$c== :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool
Prelude.Eq, Eq MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
Eq MetaGraphDef'MetaInfoDef'FunctionAliasesEntry =>
(MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Ordering)
-> (MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool)
-> (MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool)
-> (MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool)
-> (MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool)
-> (MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry)
-> (MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry)
-> Ord MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Ordering
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
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 :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
$cmin :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
max :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
$cmax :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
>= :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool
$c>= :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool
> :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool
$c> :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool
<= :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool
$c<= :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool
< :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool
$c< :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Bool
compare :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Ordering
$ccompare :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Ordering
$cp1Ord :: Eq MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
Prelude.Ord)
instance Prelude.Show MetaGraphDef'MetaInfoDef'FunctionAliasesEntry where
showsPrec :: Int -> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> ShowS
showsPrec _ __x :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MetaGraphDef'MetaInfoDef'FunctionAliasesEntry "key" Data.Text.Text where
fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> f MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
fieldOf _
= ((Text -> f Text)
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> f MetaGraphDef'MetaInfoDef'FunctionAliasesEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> f MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Text)
-> (MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> Text -> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry)
-> Lens' MetaGraphDef'MetaInfoDef'FunctionAliasesEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Text
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'key
(\ x__ :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
x__ y__ :: Text
y__
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
x__ {_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'key :: Text
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'key = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef'MetaInfoDef'FunctionAliasesEntry "value" Data.Text.Text where
fieldOf :: Proxy# "value"
-> (Text -> f Text)
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> f MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
fieldOf _
= ((Text -> f Text)
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> f MetaGraphDef'MetaInfoDef'FunctionAliasesEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> f MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Text)
-> (MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> Text -> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry)
-> Lens' MetaGraphDef'MetaInfoDef'FunctionAliasesEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Text
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'value
(\ x__ :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
x__ y__ :: Text
y__
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
x__
{_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'value :: Text
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'value = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MetaGraphDef'MetaInfoDef'FunctionAliasesEntry where
messageName :: Proxy MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Text
messageName _
= String -> Text
Data.Text.pack
"tensorflow.MetaGraphDef.MetaInfoDef.FunctionAliasesEntry"
packedMessageDescriptor :: Proxy MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> ByteString
packedMessageDescriptor _
= "\n\
\\DC4FunctionAliasesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag (FieldDescriptor MetaGraphDef'MetaInfoDef'FunctionAliasesEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MetaGraphDef'MetaInfoDef'FunctionAliasesEntry Text
-> FieldDescriptor MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
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' MetaGraphDef'MetaInfoDef'FunctionAliasesEntry Text
-> FieldAccessor MetaGraphDef'MetaInfoDef'FunctionAliasesEntry 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 MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
value__field_descriptor :: FieldDescriptor MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
value__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MetaGraphDef'MetaInfoDef'FunctionAliasesEntry Text
-> FieldDescriptor MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens' MetaGraphDef'MetaInfoDef'FunctionAliasesEntry Text
-> FieldAccessor MetaGraphDef'MetaInfoDef'FunctionAliasesEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")) ::
Data.ProtoLens.FieldDescriptor MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
in
[(Tag,
FieldDescriptor MetaGraphDef'MetaInfoDef'FunctionAliasesEntry)]
-> Map
Tag (FieldDescriptor MetaGraphDef'MetaInfoDef'FunctionAliasesEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
value__field_descriptor)]
unknownFields :: LensLike' f MetaGraphDef'MetaInfoDef'FunctionAliasesEntry FieldSet
unknownFields
= (MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> FieldSet)
-> (MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> FieldSet -> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry)
-> Lens' MetaGraphDef'MetaInfoDef'FunctionAliasesEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> FieldSet
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'_unknownFields
(\ x__ :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
x__ y__ :: FieldSet
y__
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
x__
{_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'_unknownFields :: FieldSet
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'_unknownFields = FieldSet
y__})
defMessage :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
defMessage
= $WMetaGraphDef'MetaInfoDef'FunctionAliasesEntry'_constructor :: Text
-> Text
-> FieldSet
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'_constructor
{_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'key :: Text
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'value :: Text
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'value = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'_unknownFields :: FieldSet
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'_unknownFields = []}
parseMessage :: Parser MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
parseMessage
= let
loop ::
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> Data.ProtoLens.Encoding.Bytes.Parser MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
loop :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> Parser MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
loop x :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
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]))))
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> Parser MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
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
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
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"
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> Parser MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
loop (Setter
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
Text
Text
-> Text
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
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 MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
x)
18
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"value"
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> Parser MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
loop (Setter
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
Text
Text
-> Text
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") Text
y MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> Parser MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
loop
(Setter
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
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
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
x)
in
Parser MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> String -> Parser MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
-> Parser MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
loop MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "FunctionAliasesEntry"
buildMessage :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Builder
buildMessage
= \ _x :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
Text
Text
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> 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") MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
_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.<>)
(let
_v :: Text
_v = FoldLike
Text
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
Text
Text
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
FieldSet
FieldSet
-> MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
_x)))
instance Control.DeepSeq.NFData MetaGraphDef'MetaInfoDef'FunctionAliasesEntry where
rnf :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> ()
rnf
= \ x__ :: MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> FieldSet
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'_unknownFields MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Text
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'key MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'MetaInfoDef'FunctionAliasesEntry -> Text
_MetaGraphDef'MetaInfoDef'FunctionAliasesEntry'value MetaGraphDef'MetaInfoDef'FunctionAliasesEntry
x__) ()))
data MetaGraphDef'SignatureDefEntry
= MetaGraphDef'SignatureDefEntry'_constructor {MetaGraphDef'SignatureDefEntry -> Text
_MetaGraphDef'SignatureDefEntry'key :: !Data.Text.Text,
MetaGraphDef'SignatureDefEntry -> Maybe SignatureDef
_MetaGraphDef'SignatureDefEntry'value :: !(Prelude.Maybe SignatureDef),
MetaGraphDef'SignatureDefEntry -> FieldSet
_MetaGraphDef'SignatureDefEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool
(MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool)
-> (MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool)
-> Eq MetaGraphDef'SignatureDefEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool
$c/= :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool
== :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool
$c== :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool
Prelude.Eq, Eq MetaGraphDef'SignatureDefEntry
Eq MetaGraphDef'SignatureDefEntry =>
(MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Ordering)
-> (MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool)
-> (MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool)
-> (MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool)
-> (MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool)
-> (MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry)
-> (MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry)
-> Ord MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool
MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Ordering
MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> MetaGraphDef'SignatureDefEntry
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 :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> MetaGraphDef'SignatureDefEntry
$cmin :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> MetaGraphDef'SignatureDefEntry
max :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> MetaGraphDef'SignatureDefEntry
$cmax :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> MetaGraphDef'SignatureDefEntry
>= :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool
$c>= :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool
> :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool
$c> :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool
<= :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool
$c<= :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool
< :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool
$c< :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Bool
compare :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Ordering
$ccompare :: MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry -> Ordering
$cp1Ord :: Eq MetaGraphDef'SignatureDefEntry
Prelude.Ord)
instance Prelude.Show MetaGraphDef'SignatureDefEntry where
showsPrec :: Int -> MetaGraphDef'SignatureDefEntry -> ShowS
showsPrec _ __x :: MetaGraphDef'SignatureDefEntry
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(MetaGraphDef'SignatureDefEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort MetaGraphDef'SignatureDefEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField MetaGraphDef'SignatureDefEntry "key" Data.Text.Text where
fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> MetaGraphDef'SignatureDefEntry
-> f MetaGraphDef'SignatureDefEntry
fieldOf _
= ((Text -> f Text)
-> MetaGraphDef'SignatureDefEntry
-> f MetaGraphDef'SignatureDefEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> MetaGraphDef'SignatureDefEntry
-> f MetaGraphDef'SignatureDefEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'SignatureDefEntry -> Text)
-> (MetaGraphDef'SignatureDefEntry
-> Text -> MetaGraphDef'SignatureDefEntry)
-> Lens' MetaGraphDef'SignatureDefEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'SignatureDefEntry -> Text
_MetaGraphDef'SignatureDefEntry'key
(\ x__ :: MetaGraphDef'SignatureDefEntry
x__ y__ :: Text
y__ -> MetaGraphDef'SignatureDefEntry
x__ {_MetaGraphDef'SignatureDefEntry'key :: Text
_MetaGraphDef'SignatureDefEntry'key = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField MetaGraphDef'SignatureDefEntry "value" SignatureDef where
fieldOf :: Proxy# "value"
-> (SignatureDef -> f SignatureDef)
-> MetaGraphDef'SignatureDefEntry
-> f MetaGraphDef'SignatureDefEntry
fieldOf _
= ((Maybe SignatureDef -> f (Maybe SignatureDef))
-> MetaGraphDef'SignatureDefEntry
-> f MetaGraphDef'SignatureDefEntry)
-> ((SignatureDef -> f SignatureDef)
-> Maybe SignatureDef -> f (Maybe SignatureDef))
-> (SignatureDef -> f SignatureDef)
-> MetaGraphDef'SignatureDefEntry
-> f MetaGraphDef'SignatureDefEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'SignatureDefEntry -> Maybe SignatureDef)
-> (MetaGraphDef'SignatureDefEntry
-> Maybe SignatureDef -> MetaGraphDef'SignatureDefEntry)
-> Lens
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
(Maybe SignatureDef)
(Maybe SignatureDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'SignatureDefEntry -> Maybe SignatureDef
_MetaGraphDef'SignatureDefEntry'value
(\ x__ :: MetaGraphDef'SignatureDefEntry
x__ y__ :: Maybe SignatureDef
y__ -> MetaGraphDef'SignatureDefEntry
x__ {_MetaGraphDef'SignatureDefEntry'value :: Maybe SignatureDef
_MetaGraphDef'SignatureDefEntry'value = Maybe SignatureDef
y__}))
(SignatureDef -> Lens' (Maybe SignatureDef) SignatureDef
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens SignatureDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField MetaGraphDef'SignatureDefEntry "maybe'value" (Prelude.Maybe SignatureDef) where
fieldOf :: Proxy# "maybe'value"
-> (Maybe SignatureDef -> f (Maybe SignatureDef))
-> MetaGraphDef'SignatureDefEntry
-> f MetaGraphDef'SignatureDefEntry
fieldOf _
= ((Maybe SignatureDef -> f (Maybe SignatureDef))
-> MetaGraphDef'SignatureDefEntry
-> f MetaGraphDef'SignatureDefEntry)
-> ((Maybe SignatureDef -> f (Maybe SignatureDef))
-> Maybe SignatureDef -> f (Maybe SignatureDef))
-> (Maybe SignatureDef -> f (Maybe SignatureDef))
-> MetaGraphDef'SignatureDefEntry
-> f MetaGraphDef'SignatureDefEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((MetaGraphDef'SignatureDefEntry -> Maybe SignatureDef)
-> (MetaGraphDef'SignatureDefEntry
-> Maybe SignatureDef -> MetaGraphDef'SignatureDefEntry)
-> Lens
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
(Maybe SignatureDef)
(Maybe SignatureDef)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'SignatureDefEntry -> Maybe SignatureDef
_MetaGraphDef'SignatureDefEntry'value
(\ x__ :: MetaGraphDef'SignatureDefEntry
x__ y__ :: Maybe SignatureDef
y__ -> MetaGraphDef'SignatureDefEntry
x__ {_MetaGraphDef'SignatureDefEntry'value :: Maybe SignatureDef
_MetaGraphDef'SignatureDefEntry'value = Maybe SignatureDef
y__}))
(Maybe SignatureDef -> f (Maybe SignatureDef))
-> Maybe SignatureDef -> f (Maybe SignatureDef)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message MetaGraphDef'SignatureDefEntry where
messageName :: Proxy MetaGraphDef'SignatureDefEntry -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.MetaGraphDef.SignatureDefEntry"
packedMessageDescriptor :: Proxy MetaGraphDef'SignatureDefEntry -> ByteString
packedMessageDescriptor _
= "\n\
\\DC1SignatureDefEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2.\n\
\\ENQvalue\CAN\STX \SOH(\v2\CAN.tensorflow.SignatureDefR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy MetaGraphDef'SignatureDefEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor MetaGraphDef'SignatureDefEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor MetaGraphDef'SignatureDefEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor MetaGraphDef'SignatureDefEntry Text
-> FieldDescriptor MetaGraphDef'SignatureDefEntry
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' MetaGraphDef'SignatureDefEntry Text
-> FieldAccessor MetaGraphDef'SignatureDefEntry 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 MetaGraphDef'SignatureDefEntry
value__field_descriptor :: FieldDescriptor MetaGraphDef'SignatureDefEntry
value__field_descriptor
= String
-> FieldTypeDescriptor SignatureDef
-> FieldAccessor MetaGraphDef'SignatureDefEntry SignatureDef
-> FieldDescriptor MetaGraphDef'SignatureDefEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(MessageOrGroup -> FieldTypeDescriptor SignatureDef
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SignatureDef)
(Lens
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
(Maybe SignatureDef)
(Maybe SignatureDef)
-> FieldAccessor MetaGraphDef'SignatureDefEntry SignatureDef
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 MetaGraphDef'SignatureDefEntry
in
[(Tag, FieldDescriptor MetaGraphDef'SignatureDefEntry)]
-> Map Tag (FieldDescriptor MetaGraphDef'SignatureDefEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor MetaGraphDef'SignatureDefEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor MetaGraphDef'SignatureDefEntry
value__field_descriptor)]
unknownFields :: LensLike' f MetaGraphDef'SignatureDefEntry FieldSet
unknownFields
= (MetaGraphDef'SignatureDefEntry -> FieldSet)
-> (MetaGraphDef'SignatureDefEntry
-> FieldSet -> MetaGraphDef'SignatureDefEntry)
-> Lens' MetaGraphDef'SignatureDefEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
MetaGraphDef'SignatureDefEntry -> FieldSet
_MetaGraphDef'SignatureDefEntry'_unknownFields
(\ x__ :: MetaGraphDef'SignatureDefEntry
x__ y__ :: FieldSet
y__
-> MetaGraphDef'SignatureDefEntry
x__ {_MetaGraphDef'SignatureDefEntry'_unknownFields :: FieldSet
_MetaGraphDef'SignatureDefEntry'_unknownFields = FieldSet
y__})
defMessage :: MetaGraphDef'SignatureDefEntry
defMessage
= $WMetaGraphDef'SignatureDefEntry'_constructor :: Text
-> Maybe SignatureDef -> FieldSet -> MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry'_constructor
{_MetaGraphDef'SignatureDefEntry'key :: Text
_MetaGraphDef'SignatureDefEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_MetaGraphDef'SignatureDefEntry'value :: Maybe SignatureDef
_MetaGraphDef'SignatureDefEntry'value = Maybe SignatureDef
forall a. Maybe a
Prelude.Nothing,
_MetaGraphDef'SignatureDefEntry'_unknownFields :: FieldSet
_MetaGraphDef'SignatureDefEntry'_unknownFields = []}
parseMessage :: Parser MetaGraphDef'SignatureDefEntry
parseMessage
= let
loop ::
MetaGraphDef'SignatureDefEntry
-> Data.ProtoLens.Encoding.Bytes.Parser MetaGraphDef'SignatureDefEntry
loop :: MetaGraphDef'SignatureDefEntry
-> Parser MetaGraphDef'SignatureDefEntry
loop x :: MetaGraphDef'SignatureDefEntry
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]))))
MetaGraphDef'SignatureDefEntry
-> Parser MetaGraphDef'SignatureDefEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry
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
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) MetaGraphDef'SignatureDefEntry
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"
MetaGraphDef'SignatureDefEntry
-> Parser MetaGraphDef'SignatureDefEntry
loop (Setter
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
Text
Text
-> Text
-> MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry
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 MetaGraphDef'SignatureDefEntry
x)
18
-> do SignatureDef
y <- Parser SignatureDef -> String -> Parser SignatureDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser SignatureDef -> Parser SignatureDef
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 SignatureDef
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"value"
MetaGraphDef'SignatureDefEntry
-> Parser MetaGraphDef'SignatureDefEntry
loop (Setter
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
SignatureDef
SignatureDef
-> SignatureDef
-> MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry
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") SignatureDef
y MetaGraphDef'SignatureDefEntry
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
MetaGraphDef'SignatureDefEntry
-> Parser MetaGraphDef'SignatureDefEntry
loop
(Setter
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> MetaGraphDef'SignatureDefEntry
-> MetaGraphDef'SignatureDefEntry
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
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) MetaGraphDef'SignatureDefEntry
x)
in
Parser MetaGraphDef'SignatureDefEntry
-> String -> Parser MetaGraphDef'SignatureDefEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do MetaGraphDef'SignatureDefEntry
-> Parser MetaGraphDef'SignatureDefEntry
loop MetaGraphDef'SignatureDefEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "SignatureDefEntry"
buildMessage :: MetaGraphDef'SignatureDefEntry -> Builder
buildMessage
= \ _x :: MetaGraphDef'SignatureDefEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
Text
Text
-> MetaGraphDef'SignatureDefEntry -> 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") MetaGraphDef'SignatureDefEntry
_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 SignatureDef)
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
(Maybe SignatureDef)
(Maybe SignatureDef)
-> MetaGraphDef'SignatureDefEntry -> Maybe SignatureDef
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") MetaGraphDef'SignatureDefEntry
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: SignatureDef
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (SignatureDef -> ByteString) -> SignatureDef -> 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))
SignatureDef -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
SignatureDef
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
FieldSet
FieldSet
-> MetaGraphDef'SignatureDefEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
MetaGraphDef'SignatureDefEntry
MetaGraphDef'SignatureDefEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields MetaGraphDef'SignatureDefEntry
_x)))
instance Control.DeepSeq.NFData MetaGraphDef'SignatureDefEntry where
rnf :: MetaGraphDef'SignatureDefEntry -> ()
rnf
= \ x__ :: MetaGraphDef'SignatureDefEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'SignatureDefEntry -> FieldSet
_MetaGraphDef'SignatureDefEntry'_unknownFields MetaGraphDef'SignatureDefEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'SignatureDefEntry -> Text
_MetaGraphDef'SignatureDefEntry'key MetaGraphDef'SignatureDefEntry
x__)
(Maybe SignatureDef -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(MetaGraphDef'SignatureDefEntry -> Maybe SignatureDef
_MetaGraphDef'SignatureDefEntry'value MetaGraphDef'SignatureDefEntry
x__) ()))
data SignatureDef
= SignatureDef'_constructor {SignatureDef -> Map Text TensorInfo
_SignatureDef'inputs :: !(Data.Map.Map Data.Text.Text TensorInfo),
SignatureDef -> Map Text TensorInfo
_SignatureDef'outputs :: !(Data.Map.Map Data.Text.Text TensorInfo),
SignatureDef -> Text
_SignatureDef'methodName :: !Data.Text.Text,
SignatureDef -> FieldSet
_SignatureDef'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SignatureDef -> SignatureDef -> Bool
(SignatureDef -> SignatureDef -> Bool)
-> (SignatureDef -> SignatureDef -> Bool) -> Eq SignatureDef
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SignatureDef -> SignatureDef -> Bool
$c/= :: SignatureDef -> SignatureDef -> Bool
== :: SignatureDef -> SignatureDef -> Bool
$c== :: SignatureDef -> SignatureDef -> Bool
Prelude.Eq, Eq SignatureDef
Eq SignatureDef =>
(SignatureDef -> SignatureDef -> Ordering)
-> (SignatureDef -> SignatureDef -> Bool)
-> (SignatureDef -> SignatureDef -> Bool)
-> (SignatureDef -> SignatureDef -> Bool)
-> (SignatureDef -> SignatureDef -> Bool)
-> (SignatureDef -> SignatureDef -> SignatureDef)
-> (SignatureDef -> SignatureDef -> SignatureDef)
-> Ord SignatureDef
SignatureDef -> SignatureDef -> Bool
SignatureDef -> SignatureDef -> Ordering
SignatureDef -> SignatureDef -> SignatureDef
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 :: SignatureDef -> SignatureDef -> SignatureDef
$cmin :: SignatureDef -> SignatureDef -> SignatureDef
max :: SignatureDef -> SignatureDef -> SignatureDef
$cmax :: SignatureDef -> SignatureDef -> SignatureDef
>= :: SignatureDef -> SignatureDef -> Bool
$c>= :: SignatureDef -> SignatureDef -> Bool
> :: SignatureDef -> SignatureDef -> Bool
$c> :: SignatureDef -> SignatureDef -> Bool
<= :: SignatureDef -> SignatureDef -> Bool
$c<= :: SignatureDef -> SignatureDef -> Bool
< :: SignatureDef -> SignatureDef -> Bool
$c< :: SignatureDef -> SignatureDef -> Bool
compare :: SignatureDef -> SignatureDef -> Ordering
$ccompare :: SignatureDef -> SignatureDef -> Ordering
$cp1Ord :: Eq SignatureDef
Prelude.Ord)
instance Prelude.Show SignatureDef where
showsPrec :: Int -> SignatureDef -> ShowS
showsPrec _ __x :: SignatureDef
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SignatureDef -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SignatureDef
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SignatureDef "inputs" (Data.Map.Map Data.Text.Text TensorInfo) where
fieldOf :: Proxy# "inputs"
-> (Map Text TensorInfo -> f (Map Text TensorInfo))
-> SignatureDef
-> f SignatureDef
fieldOf _
= ((Map Text TensorInfo -> f (Map Text TensorInfo))
-> SignatureDef -> f SignatureDef)
-> ((Map Text TensorInfo -> f (Map Text TensorInfo))
-> Map Text TensorInfo -> f (Map Text TensorInfo))
-> (Map Text TensorInfo -> f (Map Text TensorInfo))
-> SignatureDef
-> f SignatureDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignatureDef -> Map Text TensorInfo)
-> (SignatureDef -> Map Text TensorInfo -> SignatureDef)
-> Lens
SignatureDef
SignatureDef
(Map Text TensorInfo)
(Map Text TensorInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignatureDef -> Map Text TensorInfo
_SignatureDef'inputs
(\ x__ :: SignatureDef
x__ y__ :: Map Text TensorInfo
y__ -> SignatureDef
x__ {_SignatureDef'inputs :: Map Text TensorInfo
_SignatureDef'inputs = Map Text TensorInfo
y__}))
(Map Text TensorInfo -> f (Map Text TensorInfo))
-> Map Text TensorInfo -> f (Map Text TensorInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SignatureDef "outputs" (Data.Map.Map Data.Text.Text TensorInfo) where
fieldOf :: Proxy# "outputs"
-> (Map Text TensorInfo -> f (Map Text TensorInfo))
-> SignatureDef
-> f SignatureDef
fieldOf _
= ((Map Text TensorInfo -> f (Map Text TensorInfo))
-> SignatureDef -> f SignatureDef)
-> ((Map Text TensorInfo -> f (Map Text TensorInfo))
-> Map Text TensorInfo -> f (Map Text TensorInfo))
-> (Map Text TensorInfo -> f (Map Text TensorInfo))
-> SignatureDef
-> f SignatureDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignatureDef -> Map Text TensorInfo)
-> (SignatureDef -> Map Text TensorInfo -> SignatureDef)
-> Lens
SignatureDef
SignatureDef
(Map Text TensorInfo)
(Map Text TensorInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignatureDef -> Map Text TensorInfo
_SignatureDef'outputs
(\ x__ :: SignatureDef
x__ y__ :: Map Text TensorInfo
y__ -> SignatureDef
x__ {_SignatureDef'outputs :: Map Text TensorInfo
_SignatureDef'outputs = Map Text TensorInfo
y__}))
(Map Text TensorInfo -> f (Map Text TensorInfo))
-> Map Text TensorInfo -> f (Map Text TensorInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SignatureDef "methodName" Data.Text.Text where
fieldOf :: Proxy# "methodName"
-> (Text -> f Text) -> SignatureDef -> f SignatureDef
fieldOf _
= ((Text -> f Text) -> SignatureDef -> f SignatureDef)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SignatureDef
-> f SignatureDef
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignatureDef -> Text)
-> (SignatureDef -> Text -> SignatureDef)
-> Lens SignatureDef SignatureDef Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignatureDef -> Text
_SignatureDef'methodName
(\ x__ :: SignatureDef
x__ y__ :: Text
y__ -> SignatureDef
x__ {_SignatureDef'methodName :: Text
_SignatureDef'methodName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SignatureDef where
messageName :: Proxy SignatureDef -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.SignatureDef"
packedMessageDescriptor :: Proxy SignatureDef -> ByteString
packedMessageDescriptor _
= "\n\
\\fSignatureDef\DC2<\n\
\\ACKinputs\CAN\SOH \ETX(\v2$.tensorflow.SignatureDef.InputsEntryR\ACKinputs\DC2?\n\
\\aoutputs\CAN\STX \ETX(\v2%.tensorflow.SignatureDef.OutputsEntryR\aoutputs\DC2\US\n\
\\vmethod_name\CAN\ETX \SOH(\tR\n\
\methodName\SUBQ\n\
\\vInputsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2,\n\
\\ENQvalue\CAN\STX \SOH(\v2\SYN.tensorflow.TensorInfoR\ENQvalue:\STX8\SOH\SUBR\n\
\\fOutputsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2,\n\
\\ENQvalue\CAN\STX \SOH(\v2\SYN.tensorflow.TensorInfoR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy SignatureDef -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SignatureDef)
fieldsByTag
= let
inputs__field_descriptor :: FieldDescriptor SignatureDef
inputs__field_descriptor
= String
-> FieldTypeDescriptor SignatureDef'InputsEntry
-> FieldAccessor SignatureDef SignatureDef'InputsEntry
-> FieldDescriptor SignatureDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"inputs"
(MessageOrGroup -> FieldTypeDescriptor SignatureDef'InputsEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SignatureDef'InputsEntry)
(Lens' SignatureDef'InputsEntry Text
-> Lens' SignatureDef'InputsEntry TensorInfo
-> Lens
SignatureDef
SignatureDef
(Map Text TensorInfo)
(Map Text TensorInfo)
-> FieldAccessor SignatureDef SignatureDef'InputsEntry
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 "inputs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"inputs")) ::
Data.ProtoLens.FieldDescriptor SignatureDef
outputs__field_descriptor :: FieldDescriptor SignatureDef
outputs__field_descriptor
= String
-> FieldTypeDescriptor SignatureDef'OutputsEntry
-> FieldAccessor SignatureDef SignatureDef'OutputsEntry
-> FieldDescriptor SignatureDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"outputs"
(MessageOrGroup -> FieldTypeDescriptor SignatureDef'OutputsEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor SignatureDef'OutputsEntry)
(Lens' SignatureDef'OutputsEntry Text
-> Lens' SignatureDef'OutputsEntry TensorInfo
-> Lens
SignatureDef
SignatureDef
(Map Text TensorInfo)
(Map Text TensorInfo)
-> FieldAccessor SignatureDef SignatureDef'OutputsEntry
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 "outputs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"outputs")) ::
Data.ProtoLens.FieldDescriptor SignatureDef
methodName__field_descriptor :: FieldDescriptor SignatureDef
methodName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SignatureDef Text
-> FieldDescriptor SignatureDef
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"method_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 SignatureDef SignatureDef Text Text
-> FieldAccessor SignatureDef 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 "methodName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"methodName")) ::
Data.ProtoLens.FieldDescriptor SignatureDef
in
[(Tag, FieldDescriptor SignatureDef)]
-> Map Tag (FieldDescriptor SignatureDef)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SignatureDef
inputs__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SignatureDef
outputs__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor SignatureDef
methodName__field_descriptor)]
unknownFields :: LensLike' f SignatureDef FieldSet
unknownFields
= (SignatureDef -> FieldSet)
-> (SignatureDef -> FieldSet -> SignatureDef)
-> Lens' SignatureDef FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignatureDef -> FieldSet
_SignatureDef'_unknownFields
(\ x__ :: SignatureDef
x__ y__ :: FieldSet
y__ -> SignatureDef
x__ {_SignatureDef'_unknownFields :: FieldSet
_SignatureDef'_unknownFields = FieldSet
y__})
defMessage :: SignatureDef
defMessage
= $WSignatureDef'_constructor :: Map Text TensorInfo
-> Map Text TensorInfo -> Text -> FieldSet -> SignatureDef
SignatureDef'_constructor
{_SignatureDef'inputs :: Map Text TensorInfo
_SignatureDef'inputs = Map Text TensorInfo
forall k a. Map k a
Data.Map.empty,
_SignatureDef'outputs :: Map Text TensorInfo
_SignatureDef'outputs = Map Text TensorInfo
forall k a. Map k a
Data.Map.empty,
_SignatureDef'methodName :: Text
_SignatureDef'methodName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SignatureDef'_unknownFields :: FieldSet
_SignatureDef'_unknownFields = []}
parseMessage :: Parser SignatureDef
parseMessage
= let
loop ::
SignatureDef -> Data.ProtoLens.Encoding.Bytes.Parser SignatureDef
loop :: SignatureDef -> Parser SignatureDef
loop x :: SignatureDef
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]))))
SignatureDef -> Parser SignatureDef
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter SignatureDef SignatureDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SignatureDef -> SignatureDef
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 SignatureDef SignatureDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SignatureDef
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do !(SignatureDef'InputsEntry
entry :: SignatureDef'InputsEntry) <- Parser SignatureDef'InputsEntry
-> String -> Parser SignatureDef'InputsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser SignatureDef'InputsEntry
-> Parser SignatureDef'InputsEntry
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 SignatureDef'InputsEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"inputs"
(let
key :: Text
key = FoldLike
Text SignatureDef'InputsEntry SignatureDef'InputsEntry Text Text
-> SignatureDef'InputsEntry -> 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") SignatureDef'InputsEntry
entry
value :: TensorInfo
value
= FoldLike
TensorInfo
SignatureDef'InputsEntry
SignatureDef'InputsEntry
TensorInfo
TensorInfo
-> SignatureDef'InputsEntry -> TensorInfo
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") SignatureDef'InputsEntry
entry
in
SignatureDef -> Parser SignatureDef
loop
(Setter
SignatureDef
SignatureDef
(Map Text TensorInfo)
(Map Text TensorInfo)
-> (Map Text TensorInfo -> Map Text TensorInfo)
-> SignatureDef
-> SignatureDef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
(forall s a (f :: * -> *).
(HasField s "inputs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"inputs")
(\ !Map Text TensorInfo
t -> Text -> TensorInfo -> Map Text TensorInfo -> Map Text TensorInfo
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key TensorInfo
value Map Text TensorInfo
t)
SignatureDef
x))
18
-> do !(SignatureDef'OutputsEntry
entry :: SignatureDef'OutputsEntry) <- Parser SignatureDef'OutputsEntry
-> String -> Parser SignatureDef'OutputsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser SignatureDef'OutputsEntry
-> Parser SignatureDef'OutputsEntry
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 SignatureDef'OutputsEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"outputs"
(let
key :: Text
key = FoldLike
Text SignatureDef'OutputsEntry SignatureDef'OutputsEntry Text Text
-> SignatureDef'OutputsEntry -> 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") SignatureDef'OutputsEntry
entry
value :: TensorInfo
value
= FoldLike
TensorInfo
SignatureDef'OutputsEntry
SignatureDef'OutputsEntry
TensorInfo
TensorInfo
-> SignatureDef'OutputsEntry -> TensorInfo
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") SignatureDef'OutputsEntry
entry
in
SignatureDef -> Parser SignatureDef
loop
(Setter
SignatureDef
SignatureDef
(Map Text TensorInfo)
(Map Text TensorInfo)
-> (Map Text TensorInfo -> Map Text TensorInfo)
-> SignatureDef
-> SignatureDef
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
(forall s a (f :: * -> *).
(HasField s "outputs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"outputs")
(\ !Map Text TensorInfo
t -> Text -> TensorInfo -> Map Text TensorInfo -> Map Text TensorInfo
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key TensorInfo
value Map Text TensorInfo
t)
SignatureDef
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))
"method_name"
SignatureDef -> Parser SignatureDef
loop
(Setter SignatureDef SignatureDef Text Text
-> Text -> SignatureDef -> SignatureDef
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "methodName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"methodName") Text
y SignatureDef
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SignatureDef -> Parser SignatureDef
loop
(Setter SignatureDef SignatureDef FieldSet FieldSet
-> (FieldSet -> FieldSet) -> SignatureDef -> SignatureDef
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 SignatureDef SignatureDef FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SignatureDef
x)
in
Parser SignatureDef -> String -> Parser SignatureDef
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SignatureDef -> Parser SignatureDef
loop SignatureDef
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "SignatureDef"
buildMessage :: SignatureDef -> Builder
buildMessage
= \ _x :: SignatureDef
_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, TensorInfo) -> Builder)
-> [(Text, TensorInfo)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ _v :: (Text, TensorInfo)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (SignatureDef'InputsEntry -> ByteString)
-> SignatureDef'InputsEntry
-> 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))
SignatureDef'InputsEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter SignatureDef'InputsEntry SignatureDef'InputsEntry Text Text
-> Text -> SignatureDef'InputsEntry -> SignatureDef'InputsEntry
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, TensorInfo) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, TensorInfo)
_v)
(Setter
SignatureDef'InputsEntry
SignatureDef'InputsEntry
TensorInfo
TensorInfo
-> TensorInfo
-> SignatureDef'InputsEntry
-> SignatureDef'InputsEntry
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, TensorInfo) -> TensorInfo
forall a b. (a, b) -> b
Prelude.snd (Text, TensorInfo)
_v)
(SignatureDef'InputsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage :: SignatureDef'InputsEntry)))))
(Map Text TensorInfo -> [(Text, TensorInfo)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text TensorInfo)
SignatureDef
SignatureDef
(Map Text TensorInfo)
(Map Text TensorInfo)
-> SignatureDef -> Map Text TensorInfo
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "inputs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"inputs") SignatureDef
_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, TensorInfo) -> Builder)
-> [(Text, TensorInfo)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ _v :: (Text, TensorInfo)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (SignatureDef'OutputsEntry -> ByteString)
-> SignatureDef'OutputsEntry
-> 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))
SignatureDef'OutputsEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
SignatureDef'OutputsEntry SignatureDef'OutputsEntry Text Text
-> Text -> SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry
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, TensorInfo) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, TensorInfo)
_v)
(Setter
SignatureDef'OutputsEntry
SignatureDef'OutputsEntry
TensorInfo
TensorInfo
-> TensorInfo
-> SignatureDef'OutputsEntry
-> SignatureDef'OutputsEntry
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, TensorInfo) -> TensorInfo
forall a b. (a, b) -> b
Prelude.snd (Text, TensorInfo)
_v)
(SignatureDef'OutputsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage :: SignatureDef'OutputsEntry)))))
(Map Text TensorInfo -> [(Text, TensorInfo)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text TensorInfo)
SignatureDef
SignatureDef
(Map Text TensorInfo)
(Map Text TensorInfo)
-> SignatureDef -> Map Text TensorInfo
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "outputs" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"outputs") SignatureDef
_x))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text SignatureDef SignatureDef Text Text
-> SignatureDef -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "methodName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"methodName") SignatureDef
_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 SignatureDef SignatureDef FieldSet FieldSet
-> SignatureDef -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet SignatureDef SignatureDef FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SignatureDef
_x))))
instance Control.DeepSeq.NFData SignatureDef where
rnf :: SignatureDef -> ()
rnf
= \ x__ :: SignatureDef
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignatureDef -> FieldSet
_SignatureDef'_unknownFields SignatureDef
x__)
(Map Text TensorInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignatureDef -> Map Text TensorInfo
_SignatureDef'inputs SignatureDef
x__)
(Map Text TensorInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignatureDef -> Map Text TensorInfo
_SignatureDef'outputs SignatureDef
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SignatureDef -> Text
_SignatureDef'methodName SignatureDef
x__) ())))
data SignatureDef'InputsEntry
= SignatureDef'InputsEntry'_constructor {SignatureDef'InputsEntry -> Text
_SignatureDef'InputsEntry'key :: !Data.Text.Text,
SignatureDef'InputsEntry -> Maybe TensorInfo
_SignatureDef'InputsEntry'value :: !(Prelude.Maybe TensorInfo),
SignatureDef'InputsEntry -> FieldSet
_SignatureDef'InputsEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool
(SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool)
-> (SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool)
-> Eq SignatureDef'InputsEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool
$c/= :: SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool
== :: SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool
$c== :: SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool
Prelude.Eq, Eq SignatureDef'InputsEntry
Eq SignatureDef'InputsEntry =>
(SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Ordering)
-> (SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool)
-> (SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool)
-> (SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool)
-> (SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool)
-> (SignatureDef'InputsEntry
-> SignatureDef'InputsEntry -> SignatureDef'InputsEntry)
-> (SignatureDef'InputsEntry
-> SignatureDef'InputsEntry -> SignatureDef'InputsEntry)
-> Ord SignatureDef'InputsEntry
SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool
SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Ordering
SignatureDef'InputsEntry
-> SignatureDef'InputsEntry -> SignatureDef'InputsEntry
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 :: SignatureDef'InputsEntry
-> SignatureDef'InputsEntry -> SignatureDef'InputsEntry
$cmin :: SignatureDef'InputsEntry
-> SignatureDef'InputsEntry -> SignatureDef'InputsEntry
max :: SignatureDef'InputsEntry
-> SignatureDef'InputsEntry -> SignatureDef'InputsEntry
$cmax :: SignatureDef'InputsEntry
-> SignatureDef'InputsEntry -> SignatureDef'InputsEntry
>= :: SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool
$c>= :: SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool
> :: SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool
$c> :: SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool
<= :: SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool
$c<= :: SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool
< :: SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool
$c< :: SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Bool
compare :: SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Ordering
$ccompare :: SignatureDef'InputsEntry -> SignatureDef'InputsEntry -> Ordering
$cp1Ord :: Eq SignatureDef'InputsEntry
Prelude.Ord)
instance Prelude.Show SignatureDef'InputsEntry where
showsPrec :: Int -> SignatureDef'InputsEntry -> ShowS
showsPrec _ __x :: SignatureDef'InputsEntry
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SignatureDef'InputsEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SignatureDef'InputsEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SignatureDef'InputsEntry "key" Data.Text.Text where
fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> SignatureDef'InputsEntry
-> f SignatureDef'InputsEntry
fieldOf _
= ((Text -> f Text)
-> SignatureDef'InputsEntry -> f SignatureDef'InputsEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SignatureDef'InputsEntry
-> f SignatureDef'InputsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignatureDef'InputsEntry -> Text)
-> (SignatureDef'InputsEntry -> Text -> SignatureDef'InputsEntry)
-> Lens' SignatureDef'InputsEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignatureDef'InputsEntry -> Text
_SignatureDef'InputsEntry'key
(\ x__ :: SignatureDef'InputsEntry
x__ y__ :: Text
y__ -> SignatureDef'InputsEntry
x__ {_SignatureDef'InputsEntry'key :: Text
_SignatureDef'InputsEntry'key = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SignatureDef'InputsEntry "value" TensorInfo where
fieldOf :: Proxy# "value"
-> (TensorInfo -> f TensorInfo)
-> SignatureDef'InputsEntry
-> f SignatureDef'InputsEntry
fieldOf _
= ((Maybe TensorInfo -> f (Maybe TensorInfo))
-> SignatureDef'InputsEntry -> f SignatureDef'InputsEntry)
-> ((TensorInfo -> f TensorInfo)
-> Maybe TensorInfo -> f (Maybe TensorInfo))
-> (TensorInfo -> f TensorInfo)
-> SignatureDef'InputsEntry
-> f SignatureDef'InputsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignatureDef'InputsEntry -> Maybe TensorInfo)
-> (SignatureDef'InputsEntry
-> Maybe TensorInfo -> SignatureDef'InputsEntry)
-> Lens
SignatureDef'InputsEntry
SignatureDef'InputsEntry
(Maybe TensorInfo)
(Maybe TensorInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignatureDef'InputsEntry -> Maybe TensorInfo
_SignatureDef'InputsEntry'value
(\ x__ :: SignatureDef'InputsEntry
x__ y__ :: Maybe TensorInfo
y__ -> SignatureDef'InputsEntry
x__ {_SignatureDef'InputsEntry'value :: Maybe TensorInfo
_SignatureDef'InputsEntry'value = Maybe TensorInfo
y__}))
(TensorInfo -> Lens' (Maybe TensorInfo) TensorInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TensorInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SignatureDef'InputsEntry "maybe'value" (Prelude.Maybe TensorInfo) where
fieldOf :: Proxy# "maybe'value"
-> (Maybe TensorInfo -> f (Maybe TensorInfo))
-> SignatureDef'InputsEntry
-> f SignatureDef'InputsEntry
fieldOf _
= ((Maybe TensorInfo -> f (Maybe TensorInfo))
-> SignatureDef'InputsEntry -> f SignatureDef'InputsEntry)
-> ((Maybe TensorInfo -> f (Maybe TensorInfo))
-> Maybe TensorInfo -> f (Maybe TensorInfo))
-> (Maybe TensorInfo -> f (Maybe TensorInfo))
-> SignatureDef'InputsEntry
-> f SignatureDef'InputsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignatureDef'InputsEntry -> Maybe TensorInfo)
-> (SignatureDef'InputsEntry
-> Maybe TensorInfo -> SignatureDef'InputsEntry)
-> Lens
SignatureDef'InputsEntry
SignatureDef'InputsEntry
(Maybe TensorInfo)
(Maybe TensorInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignatureDef'InputsEntry -> Maybe TensorInfo
_SignatureDef'InputsEntry'value
(\ x__ :: SignatureDef'InputsEntry
x__ y__ :: Maybe TensorInfo
y__ -> SignatureDef'InputsEntry
x__ {_SignatureDef'InputsEntry'value :: Maybe TensorInfo
_SignatureDef'InputsEntry'value = Maybe TensorInfo
y__}))
(Maybe TensorInfo -> f (Maybe TensorInfo))
-> Maybe TensorInfo -> f (Maybe TensorInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SignatureDef'InputsEntry where
messageName :: Proxy SignatureDef'InputsEntry -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.SignatureDef.InputsEntry"
packedMessageDescriptor :: Proxy SignatureDef'InputsEntry -> ByteString
packedMessageDescriptor _
= "\n\
\\vInputsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2,\n\
\\ENQvalue\CAN\STX \SOH(\v2\SYN.tensorflow.TensorInfoR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy SignatureDef'InputsEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SignatureDef'InputsEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor SignatureDef'InputsEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SignatureDef'InputsEntry Text
-> FieldDescriptor SignatureDef'InputsEntry
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' SignatureDef'InputsEntry Text
-> FieldAccessor SignatureDef'InputsEntry 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 SignatureDef'InputsEntry
value__field_descriptor :: FieldDescriptor SignatureDef'InputsEntry
value__field_descriptor
= String
-> FieldTypeDescriptor TensorInfo
-> FieldAccessor SignatureDef'InputsEntry TensorInfo
-> FieldDescriptor SignatureDef'InputsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(MessageOrGroup -> FieldTypeDescriptor TensorInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TensorInfo)
(Lens
SignatureDef'InputsEntry
SignatureDef'InputsEntry
(Maybe TensorInfo)
(Maybe TensorInfo)
-> FieldAccessor SignatureDef'InputsEntry TensorInfo
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 SignatureDef'InputsEntry
in
[(Tag, FieldDescriptor SignatureDef'InputsEntry)]
-> Map Tag (FieldDescriptor SignatureDef'InputsEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SignatureDef'InputsEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SignatureDef'InputsEntry
value__field_descriptor)]
unknownFields :: LensLike' f SignatureDef'InputsEntry FieldSet
unknownFields
= (SignatureDef'InputsEntry -> FieldSet)
-> (SignatureDef'InputsEntry
-> FieldSet -> SignatureDef'InputsEntry)
-> Lens' SignatureDef'InputsEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignatureDef'InputsEntry -> FieldSet
_SignatureDef'InputsEntry'_unknownFields
(\ x__ :: SignatureDef'InputsEntry
x__ y__ :: FieldSet
y__ -> SignatureDef'InputsEntry
x__ {_SignatureDef'InputsEntry'_unknownFields :: FieldSet
_SignatureDef'InputsEntry'_unknownFields = FieldSet
y__})
defMessage :: SignatureDef'InputsEntry
defMessage
= $WSignatureDef'InputsEntry'_constructor :: Text -> Maybe TensorInfo -> FieldSet -> SignatureDef'InputsEntry
SignatureDef'InputsEntry'_constructor
{_SignatureDef'InputsEntry'key :: Text
_SignatureDef'InputsEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SignatureDef'InputsEntry'value :: Maybe TensorInfo
_SignatureDef'InputsEntry'value = Maybe TensorInfo
forall a. Maybe a
Prelude.Nothing,
_SignatureDef'InputsEntry'_unknownFields :: FieldSet
_SignatureDef'InputsEntry'_unknownFields = []}
parseMessage :: Parser SignatureDef'InputsEntry
parseMessage
= let
loop ::
SignatureDef'InputsEntry
-> Data.ProtoLens.Encoding.Bytes.Parser SignatureDef'InputsEntry
loop :: SignatureDef'InputsEntry -> Parser SignatureDef'InputsEntry
loop x :: SignatureDef'InputsEntry
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]))))
SignatureDef'InputsEntry -> Parser SignatureDef'InputsEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
SignatureDef'InputsEntry SignatureDef'InputsEntry FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> SignatureDef'InputsEntry
-> SignatureDef'InputsEntry
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
SignatureDef'InputsEntry SignatureDef'InputsEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SignatureDef'InputsEntry
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"
SignatureDef'InputsEntry -> Parser SignatureDef'InputsEntry
loop (Setter SignatureDef'InputsEntry SignatureDef'InputsEntry Text Text
-> Text -> SignatureDef'InputsEntry -> SignatureDef'InputsEntry
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 SignatureDef'InputsEntry
x)
18
-> do TensorInfo
y <- Parser TensorInfo -> String -> Parser TensorInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TensorInfo -> Parser TensorInfo
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 TensorInfo
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"value"
SignatureDef'InputsEntry -> Parser SignatureDef'InputsEntry
loop (Setter
SignatureDef'InputsEntry
SignatureDef'InputsEntry
TensorInfo
TensorInfo
-> TensorInfo
-> SignatureDef'InputsEntry
-> SignatureDef'InputsEntry
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") TensorInfo
y SignatureDef'InputsEntry
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SignatureDef'InputsEntry -> Parser SignatureDef'InputsEntry
loop
(Setter
SignatureDef'InputsEntry SignatureDef'InputsEntry FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> SignatureDef'InputsEntry
-> SignatureDef'InputsEntry
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
SignatureDef'InputsEntry SignatureDef'InputsEntry FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SignatureDef'InputsEntry
x)
in
Parser SignatureDef'InputsEntry
-> String -> Parser SignatureDef'InputsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SignatureDef'InputsEntry -> Parser SignatureDef'InputsEntry
loop SignatureDef'InputsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "InputsEntry"
buildMessage :: SignatureDef'InputsEntry -> Builder
buildMessage
= \ _x :: SignatureDef'InputsEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text SignatureDef'InputsEntry SignatureDef'InputsEntry Text Text
-> SignatureDef'InputsEntry -> 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") SignatureDef'InputsEntry
_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 TensorInfo)
SignatureDef'InputsEntry
SignatureDef'InputsEntry
(Maybe TensorInfo)
(Maybe TensorInfo)
-> SignatureDef'InputsEntry -> Maybe TensorInfo
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") SignatureDef'InputsEntry
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: TensorInfo
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (TensorInfo -> ByteString) -> TensorInfo -> 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))
TensorInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TensorInfo
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
SignatureDef'InputsEntry
SignatureDef'InputsEntry
FieldSet
FieldSet
-> SignatureDef'InputsEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
SignatureDef'InputsEntry
SignatureDef'InputsEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SignatureDef'InputsEntry
_x)))
instance Control.DeepSeq.NFData SignatureDef'InputsEntry where
rnf :: SignatureDef'InputsEntry -> ()
rnf
= \ x__ :: SignatureDef'InputsEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignatureDef'InputsEntry -> FieldSet
_SignatureDef'InputsEntry'_unknownFields SignatureDef'InputsEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignatureDef'InputsEntry -> Text
_SignatureDef'InputsEntry'key SignatureDef'InputsEntry
x__)
(Maybe TensorInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (SignatureDef'InputsEntry -> Maybe TensorInfo
_SignatureDef'InputsEntry'value SignatureDef'InputsEntry
x__) ()))
data SignatureDef'OutputsEntry
= SignatureDef'OutputsEntry'_constructor {SignatureDef'OutputsEntry -> Text
_SignatureDef'OutputsEntry'key :: !Data.Text.Text,
SignatureDef'OutputsEntry -> Maybe TensorInfo
_SignatureDef'OutputsEntry'value :: !(Prelude.Maybe TensorInfo),
SignatureDef'OutputsEntry -> FieldSet
_SignatureDef'OutputsEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool
(SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool)
-> (SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool)
-> Eq SignatureDef'OutputsEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool
$c/= :: SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool
== :: SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool
$c== :: SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool
Prelude.Eq, Eq SignatureDef'OutputsEntry
Eq SignatureDef'OutputsEntry =>
(SignatureDef'OutputsEntry
-> SignatureDef'OutputsEntry -> Ordering)
-> (SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool)
-> (SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool)
-> (SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool)
-> (SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool)
-> (SignatureDef'OutputsEntry
-> SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry)
-> (SignatureDef'OutputsEntry
-> SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry)
-> Ord SignatureDef'OutputsEntry
SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool
SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Ordering
SignatureDef'OutputsEntry
-> SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry
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 :: SignatureDef'OutputsEntry
-> SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry
$cmin :: SignatureDef'OutputsEntry
-> SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry
max :: SignatureDef'OutputsEntry
-> SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry
$cmax :: SignatureDef'OutputsEntry
-> SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry
>= :: SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool
$c>= :: SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool
> :: SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool
$c> :: SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool
<= :: SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool
$c<= :: SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool
< :: SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool
$c< :: SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Bool
compare :: SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Ordering
$ccompare :: SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry -> Ordering
$cp1Ord :: Eq SignatureDef'OutputsEntry
Prelude.Ord)
instance Prelude.Show SignatureDef'OutputsEntry where
showsPrec :: Int -> SignatureDef'OutputsEntry -> ShowS
showsPrec _ __x :: SignatureDef'OutputsEntry
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(SignatureDef'OutputsEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort SignatureDef'OutputsEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField SignatureDef'OutputsEntry "key" Data.Text.Text where
fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> SignatureDef'OutputsEntry
-> f SignatureDef'OutputsEntry
fieldOf _
= ((Text -> f Text)
-> SignatureDef'OutputsEntry -> f SignatureDef'OutputsEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> SignatureDef'OutputsEntry
-> f SignatureDef'OutputsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignatureDef'OutputsEntry -> Text)
-> (SignatureDef'OutputsEntry -> Text -> SignatureDef'OutputsEntry)
-> Lens' SignatureDef'OutputsEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignatureDef'OutputsEntry -> Text
_SignatureDef'OutputsEntry'key
(\ x__ :: SignatureDef'OutputsEntry
x__ y__ :: Text
y__ -> SignatureDef'OutputsEntry
x__ {_SignatureDef'OutputsEntry'key :: Text
_SignatureDef'OutputsEntry'key = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField SignatureDef'OutputsEntry "value" TensorInfo where
fieldOf :: Proxy# "value"
-> (TensorInfo -> f TensorInfo)
-> SignatureDef'OutputsEntry
-> f SignatureDef'OutputsEntry
fieldOf _
= ((Maybe TensorInfo -> f (Maybe TensorInfo))
-> SignatureDef'OutputsEntry -> f SignatureDef'OutputsEntry)
-> ((TensorInfo -> f TensorInfo)
-> Maybe TensorInfo -> f (Maybe TensorInfo))
-> (TensorInfo -> f TensorInfo)
-> SignatureDef'OutputsEntry
-> f SignatureDef'OutputsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignatureDef'OutputsEntry -> Maybe TensorInfo)
-> (SignatureDef'OutputsEntry
-> Maybe TensorInfo -> SignatureDef'OutputsEntry)
-> Lens
SignatureDef'OutputsEntry
SignatureDef'OutputsEntry
(Maybe TensorInfo)
(Maybe TensorInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignatureDef'OutputsEntry -> Maybe TensorInfo
_SignatureDef'OutputsEntry'value
(\ x__ :: SignatureDef'OutputsEntry
x__ y__ :: Maybe TensorInfo
y__ -> SignatureDef'OutputsEntry
x__ {_SignatureDef'OutputsEntry'value :: Maybe TensorInfo
_SignatureDef'OutputsEntry'value = Maybe TensorInfo
y__}))
(TensorInfo -> Lens' (Maybe TensorInfo) TensorInfo
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TensorInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField SignatureDef'OutputsEntry "maybe'value" (Prelude.Maybe TensorInfo) where
fieldOf :: Proxy# "maybe'value"
-> (Maybe TensorInfo -> f (Maybe TensorInfo))
-> SignatureDef'OutputsEntry
-> f SignatureDef'OutputsEntry
fieldOf _
= ((Maybe TensorInfo -> f (Maybe TensorInfo))
-> SignatureDef'OutputsEntry -> f SignatureDef'OutputsEntry)
-> ((Maybe TensorInfo -> f (Maybe TensorInfo))
-> Maybe TensorInfo -> f (Maybe TensorInfo))
-> (Maybe TensorInfo -> f (Maybe TensorInfo))
-> SignatureDef'OutputsEntry
-> f SignatureDef'OutputsEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((SignatureDef'OutputsEntry -> Maybe TensorInfo)
-> (SignatureDef'OutputsEntry
-> Maybe TensorInfo -> SignatureDef'OutputsEntry)
-> Lens
SignatureDef'OutputsEntry
SignatureDef'OutputsEntry
(Maybe TensorInfo)
(Maybe TensorInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignatureDef'OutputsEntry -> Maybe TensorInfo
_SignatureDef'OutputsEntry'value
(\ x__ :: SignatureDef'OutputsEntry
x__ y__ :: Maybe TensorInfo
y__ -> SignatureDef'OutputsEntry
x__ {_SignatureDef'OutputsEntry'value :: Maybe TensorInfo
_SignatureDef'OutputsEntry'value = Maybe TensorInfo
y__}))
(Maybe TensorInfo -> f (Maybe TensorInfo))
-> Maybe TensorInfo -> f (Maybe TensorInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message SignatureDef'OutputsEntry where
messageName :: Proxy SignatureDef'OutputsEntry -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.SignatureDef.OutputsEntry"
packedMessageDescriptor :: Proxy SignatureDef'OutputsEntry -> ByteString
packedMessageDescriptor _
= "\n\
\\fOutputsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2,\n\
\\ENQvalue\CAN\STX \SOH(\v2\SYN.tensorflow.TensorInfoR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy SignatureDef'OutputsEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor SignatureDef'OutputsEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor SignatureDef'OutputsEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor SignatureDef'OutputsEntry Text
-> FieldDescriptor SignatureDef'OutputsEntry
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' SignatureDef'OutputsEntry Text
-> FieldAccessor SignatureDef'OutputsEntry 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 SignatureDef'OutputsEntry
value__field_descriptor :: FieldDescriptor SignatureDef'OutputsEntry
value__field_descriptor
= String
-> FieldTypeDescriptor TensorInfo
-> FieldAccessor SignatureDef'OutputsEntry TensorInfo
-> FieldDescriptor SignatureDef'OutputsEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(MessageOrGroup -> FieldTypeDescriptor TensorInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TensorInfo)
(Lens
SignatureDef'OutputsEntry
SignatureDef'OutputsEntry
(Maybe TensorInfo)
(Maybe TensorInfo)
-> FieldAccessor SignatureDef'OutputsEntry TensorInfo
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 SignatureDef'OutputsEntry
in
[(Tag, FieldDescriptor SignatureDef'OutputsEntry)]
-> Map Tag (FieldDescriptor SignatureDef'OutputsEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor SignatureDef'OutputsEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor SignatureDef'OutputsEntry
value__field_descriptor)]
unknownFields :: LensLike' f SignatureDef'OutputsEntry FieldSet
unknownFields
= (SignatureDef'OutputsEntry -> FieldSet)
-> (SignatureDef'OutputsEntry
-> FieldSet -> SignatureDef'OutputsEntry)
-> Lens' SignatureDef'OutputsEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
SignatureDef'OutputsEntry -> FieldSet
_SignatureDef'OutputsEntry'_unknownFields
(\ x__ :: SignatureDef'OutputsEntry
x__ y__ :: FieldSet
y__
-> SignatureDef'OutputsEntry
x__ {_SignatureDef'OutputsEntry'_unknownFields :: FieldSet
_SignatureDef'OutputsEntry'_unknownFields = FieldSet
y__})
defMessage :: SignatureDef'OutputsEntry
defMessage
= $WSignatureDef'OutputsEntry'_constructor :: Text -> Maybe TensorInfo -> FieldSet -> SignatureDef'OutputsEntry
SignatureDef'OutputsEntry'_constructor
{_SignatureDef'OutputsEntry'key :: Text
_SignatureDef'OutputsEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_SignatureDef'OutputsEntry'value :: Maybe TensorInfo
_SignatureDef'OutputsEntry'value = Maybe TensorInfo
forall a. Maybe a
Prelude.Nothing,
_SignatureDef'OutputsEntry'_unknownFields :: FieldSet
_SignatureDef'OutputsEntry'_unknownFields = []}
parseMessage :: Parser SignatureDef'OutputsEntry
parseMessage
= let
loop ::
SignatureDef'OutputsEntry
-> Data.ProtoLens.Encoding.Bytes.Parser SignatureDef'OutputsEntry
loop :: SignatureDef'OutputsEntry -> Parser SignatureDef'OutputsEntry
loop x :: SignatureDef'OutputsEntry
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]))))
SignatureDef'OutputsEntry -> Parser SignatureDef'OutputsEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
SignatureDef'OutputsEntry
SignatureDef'OutputsEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> SignatureDef'OutputsEntry
-> SignatureDef'OutputsEntry
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
SignatureDef'OutputsEntry
SignatureDef'OutputsEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) SignatureDef'OutputsEntry
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"
SignatureDef'OutputsEntry -> Parser SignatureDef'OutputsEntry
loop (Setter
SignatureDef'OutputsEntry SignatureDef'OutputsEntry Text Text
-> Text -> SignatureDef'OutputsEntry -> SignatureDef'OutputsEntry
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 SignatureDef'OutputsEntry
x)
18
-> do TensorInfo
y <- Parser TensorInfo -> String -> Parser TensorInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TensorInfo -> Parser TensorInfo
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 TensorInfo
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"value"
SignatureDef'OutputsEntry -> Parser SignatureDef'OutputsEntry
loop (Setter
SignatureDef'OutputsEntry
SignatureDef'OutputsEntry
TensorInfo
TensorInfo
-> TensorInfo
-> SignatureDef'OutputsEntry
-> SignatureDef'OutputsEntry
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") TensorInfo
y SignatureDef'OutputsEntry
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
SignatureDef'OutputsEntry -> Parser SignatureDef'OutputsEntry
loop
(Setter
SignatureDef'OutputsEntry
SignatureDef'OutputsEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> SignatureDef'OutputsEntry
-> SignatureDef'OutputsEntry
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
SignatureDef'OutputsEntry
SignatureDef'OutputsEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) SignatureDef'OutputsEntry
x)
in
Parser SignatureDef'OutputsEntry
-> String -> Parser SignatureDef'OutputsEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do SignatureDef'OutputsEntry -> Parser SignatureDef'OutputsEntry
loop SignatureDef'OutputsEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "OutputsEntry"
buildMessage :: SignatureDef'OutputsEntry -> Builder
buildMessage
= \ _x :: SignatureDef'OutputsEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text SignatureDef'OutputsEntry SignatureDef'OutputsEntry Text Text
-> SignatureDef'OutputsEntry -> 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") SignatureDef'OutputsEntry
_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 TensorInfo)
SignatureDef'OutputsEntry
SignatureDef'OutputsEntry
(Maybe TensorInfo)
(Maybe TensorInfo)
-> SignatureDef'OutputsEntry -> Maybe TensorInfo
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") SignatureDef'OutputsEntry
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: TensorInfo
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (TensorInfo -> ByteString) -> TensorInfo -> 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))
TensorInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TensorInfo
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
SignatureDef'OutputsEntry
SignatureDef'OutputsEntry
FieldSet
FieldSet
-> SignatureDef'OutputsEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
SignatureDef'OutputsEntry
SignatureDef'OutputsEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields SignatureDef'OutputsEntry
_x)))
instance Control.DeepSeq.NFData SignatureDef'OutputsEntry where
rnf :: SignatureDef'OutputsEntry -> ()
rnf
= \ x__ :: SignatureDef'OutputsEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignatureDef'OutputsEntry -> FieldSet
_SignatureDef'OutputsEntry'_unknownFields SignatureDef'OutputsEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignatureDef'OutputsEntry -> Text
_SignatureDef'OutputsEntry'key SignatureDef'OutputsEntry
x__)
(Maybe TensorInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(SignatureDef'OutputsEntry -> Maybe TensorInfo
_SignatureDef'OutputsEntry'value SignatureDef'OutputsEntry
x__) ()))
data TensorInfo
= TensorInfo'_constructor {TensorInfo -> DataType
_TensorInfo'dtype :: !Proto.Tensorflow.Core.Framework.Types.DataType,
TensorInfo -> Maybe TensorShapeProto
_TensorInfo'tensorShape :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto),
TensorInfo -> Maybe TensorInfo'Encoding
_TensorInfo'encoding :: !(Prelude.Maybe TensorInfo'Encoding),
TensorInfo -> FieldSet
_TensorInfo'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TensorInfo -> TensorInfo -> Bool
(TensorInfo -> TensorInfo -> Bool)
-> (TensorInfo -> TensorInfo -> Bool) -> Eq TensorInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TensorInfo -> TensorInfo -> Bool
$c/= :: TensorInfo -> TensorInfo -> Bool
== :: TensorInfo -> TensorInfo -> Bool
$c== :: TensorInfo -> TensorInfo -> Bool
Prelude.Eq, Eq TensorInfo
Eq TensorInfo =>
(TensorInfo -> TensorInfo -> Ordering)
-> (TensorInfo -> TensorInfo -> Bool)
-> (TensorInfo -> TensorInfo -> Bool)
-> (TensorInfo -> TensorInfo -> Bool)
-> (TensorInfo -> TensorInfo -> Bool)
-> (TensorInfo -> TensorInfo -> TensorInfo)
-> (TensorInfo -> TensorInfo -> TensorInfo)
-> Ord TensorInfo
TensorInfo -> TensorInfo -> Bool
TensorInfo -> TensorInfo -> Ordering
TensorInfo -> TensorInfo -> TensorInfo
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 :: TensorInfo -> TensorInfo -> TensorInfo
$cmin :: TensorInfo -> TensorInfo -> TensorInfo
max :: TensorInfo -> TensorInfo -> TensorInfo
$cmax :: TensorInfo -> TensorInfo -> TensorInfo
>= :: TensorInfo -> TensorInfo -> Bool
$c>= :: TensorInfo -> TensorInfo -> Bool
> :: TensorInfo -> TensorInfo -> Bool
$c> :: TensorInfo -> TensorInfo -> Bool
<= :: TensorInfo -> TensorInfo -> Bool
$c<= :: TensorInfo -> TensorInfo -> Bool
< :: TensorInfo -> TensorInfo -> Bool
$c< :: TensorInfo -> TensorInfo -> Bool
compare :: TensorInfo -> TensorInfo -> Ordering
$ccompare :: TensorInfo -> TensorInfo -> Ordering
$cp1Ord :: Eq TensorInfo
Prelude.Ord)
instance Prelude.Show TensorInfo where
showsPrec :: Int -> TensorInfo -> ShowS
showsPrec _ __x :: TensorInfo
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(TensorInfo -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TensorInfo
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
data TensorInfo'Encoding
= TensorInfo'Name !Data.Text.Text |
TensorInfo'CooSparse' !TensorInfo'CooSparse |
TensorInfo'CompositeTensor' !TensorInfo'CompositeTensor
deriving stock (Int -> TensorInfo'Encoding -> ShowS
[TensorInfo'Encoding] -> ShowS
TensorInfo'Encoding -> String
(Int -> TensorInfo'Encoding -> ShowS)
-> (TensorInfo'Encoding -> String)
-> ([TensorInfo'Encoding] -> ShowS)
-> Show TensorInfo'Encoding
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TensorInfo'Encoding] -> ShowS
$cshowList :: [TensorInfo'Encoding] -> ShowS
show :: TensorInfo'Encoding -> String
$cshow :: TensorInfo'Encoding -> String
showsPrec :: Int -> TensorInfo'Encoding -> ShowS
$cshowsPrec :: Int -> TensorInfo'Encoding -> ShowS
Prelude.Show, TensorInfo'Encoding -> TensorInfo'Encoding -> Bool
(TensorInfo'Encoding -> TensorInfo'Encoding -> Bool)
-> (TensorInfo'Encoding -> TensorInfo'Encoding -> Bool)
-> Eq TensorInfo'Encoding
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TensorInfo'Encoding -> TensorInfo'Encoding -> Bool
$c/= :: TensorInfo'Encoding -> TensorInfo'Encoding -> Bool
== :: TensorInfo'Encoding -> TensorInfo'Encoding -> Bool
$c== :: TensorInfo'Encoding -> TensorInfo'Encoding -> Bool
Prelude.Eq, Eq TensorInfo'Encoding
Eq TensorInfo'Encoding =>
(TensorInfo'Encoding -> TensorInfo'Encoding -> Ordering)
-> (TensorInfo'Encoding -> TensorInfo'Encoding -> Bool)
-> (TensorInfo'Encoding -> TensorInfo'Encoding -> Bool)
-> (TensorInfo'Encoding -> TensorInfo'Encoding -> Bool)
-> (TensorInfo'Encoding -> TensorInfo'Encoding -> Bool)
-> (TensorInfo'Encoding
-> TensorInfo'Encoding -> TensorInfo'Encoding)
-> (TensorInfo'Encoding
-> TensorInfo'Encoding -> TensorInfo'Encoding)
-> Ord TensorInfo'Encoding
TensorInfo'Encoding -> TensorInfo'Encoding -> Bool
TensorInfo'Encoding -> TensorInfo'Encoding -> Ordering
TensorInfo'Encoding -> TensorInfo'Encoding -> TensorInfo'Encoding
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 :: TensorInfo'Encoding -> TensorInfo'Encoding -> TensorInfo'Encoding
$cmin :: TensorInfo'Encoding -> TensorInfo'Encoding -> TensorInfo'Encoding
max :: TensorInfo'Encoding -> TensorInfo'Encoding -> TensorInfo'Encoding
$cmax :: TensorInfo'Encoding -> TensorInfo'Encoding -> TensorInfo'Encoding
>= :: TensorInfo'Encoding -> TensorInfo'Encoding -> Bool
$c>= :: TensorInfo'Encoding -> TensorInfo'Encoding -> Bool
> :: TensorInfo'Encoding -> TensorInfo'Encoding -> Bool
$c> :: TensorInfo'Encoding -> TensorInfo'Encoding -> Bool
<= :: TensorInfo'Encoding -> TensorInfo'Encoding -> Bool
$c<= :: TensorInfo'Encoding -> TensorInfo'Encoding -> Bool
< :: TensorInfo'Encoding -> TensorInfo'Encoding -> Bool
$c< :: TensorInfo'Encoding -> TensorInfo'Encoding -> Bool
compare :: TensorInfo'Encoding -> TensorInfo'Encoding -> Ordering
$ccompare :: TensorInfo'Encoding -> TensorInfo'Encoding -> Ordering
$cp1Ord :: Eq TensorInfo'Encoding
Prelude.Ord)
instance Data.ProtoLens.Field.HasField TensorInfo "dtype" Proto.Tensorflow.Core.Framework.Types.DataType where
fieldOf :: Proxy# "dtype"
-> (DataType -> f DataType) -> TensorInfo -> f TensorInfo
fieldOf _
= ((DataType -> f DataType) -> TensorInfo -> f TensorInfo)
-> ((DataType -> f DataType) -> DataType -> f DataType)
-> (DataType -> f DataType)
-> TensorInfo
-> f TensorInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo -> DataType)
-> (TensorInfo -> DataType -> TensorInfo)
-> Lens TensorInfo TensorInfo DataType DataType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo -> DataType
_TensorInfo'dtype (\ x__ :: TensorInfo
x__ y__ :: DataType
y__ -> TensorInfo
x__ {_TensorInfo'dtype :: DataType
_TensorInfo'dtype = DataType
y__}))
(DataType -> f DataType) -> DataType -> f DataType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorInfo "tensorShape" Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto where
fieldOf :: Proxy# "tensorShape"
-> (TensorShapeProto -> f TensorShapeProto)
-> TensorInfo
-> f TensorInfo
fieldOf _
= ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> TensorInfo -> f TensorInfo)
-> ((TensorShapeProto -> f TensorShapeProto)
-> Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> (TensorShapeProto -> f TensorShapeProto)
-> TensorInfo
-> f TensorInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo -> Maybe TensorShapeProto)
-> (TensorInfo -> Maybe TensorShapeProto -> TensorInfo)
-> Lens
TensorInfo
TensorInfo
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo -> Maybe TensorShapeProto
_TensorInfo'tensorShape
(\ x__ :: TensorInfo
x__ y__ :: Maybe TensorShapeProto
y__ -> TensorInfo
x__ {_TensorInfo'tensorShape :: Maybe TensorShapeProto
_TensorInfo'tensorShape = 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 TensorInfo "maybe'tensorShape" (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) where
fieldOf :: Proxy# "maybe'tensorShape"
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> TensorInfo
-> f TensorInfo
fieldOf _
= ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> TensorInfo -> f TensorInfo)
-> ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> TensorInfo
-> f TensorInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo -> Maybe TensorShapeProto)
-> (TensorInfo -> Maybe TensorShapeProto -> TensorInfo)
-> Lens
TensorInfo
TensorInfo
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo -> Maybe TensorShapeProto
_TensorInfo'tensorShape
(\ x__ :: TensorInfo
x__ y__ :: Maybe TensorShapeProto
y__ -> TensorInfo
x__ {_TensorInfo'tensorShape :: Maybe TensorShapeProto
_TensorInfo'tensorShape = Maybe TensorShapeProto
y__}))
(Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> Maybe TensorShapeProto -> f (Maybe TensorShapeProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorInfo "maybe'encoding" (Prelude.Maybe TensorInfo'Encoding) where
fieldOf :: Proxy# "maybe'encoding"
-> (Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> TensorInfo
-> f TensorInfo
fieldOf _
= ((Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> TensorInfo -> f TensorInfo)
-> ((Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> (Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> TensorInfo
-> f TensorInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo -> Maybe TensorInfo'Encoding)
-> (TensorInfo -> Maybe TensorInfo'Encoding -> TensorInfo)
-> Lens
TensorInfo
TensorInfo
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'Encoding)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo -> Maybe TensorInfo'Encoding
_TensorInfo'encoding
(\ x__ :: TensorInfo
x__ y__ :: Maybe TensorInfo'Encoding
y__ -> TensorInfo
x__ {_TensorInfo'encoding :: Maybe TensorInfo'Encoding
_TensorInfo'encoding = Maybe TensorInfo'Encoding
y__}))
(Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorInfo "maybe'name" (Prelude.Maybe Data.Text.Text) where
fieldOf :: Proxy# "maybe'name"
-> (Maybe Text -> f (Maybe Text)) -> TensorInfo -> f TensorInfo
fieldOf _
= ((Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> TensorInfo -> f TensorInfo)
-> ((Maybe Text -> f (Maybe Text))
-> Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> (Maybe Text -> f (Maybe Text))
-> TensorInfo
-> f TensorInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo -> Maybe TensorInfo'Encoding)
-> (TensorInfo -> Maybe TensorInfo'Encoding -> TensorInfo)
-> Lens
TensorInfo
TensorInfo
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'Encoding)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo -> Maybe TensorInfo'Encoding
_TensorInfo'encoding
(\ x__ :: TensorInfo
x__ y__ :: Maybe TensorInfo'Encoding
y__ -> TensorInfo
x__ {_TensorInfo'encoding :: Maybe TensorInfo'Encoding
_TensorInfo'encoding = Maybe TensorInfo'Encoding
y__}))
((Maybe TensorInfo'Encoding -> Maybe Text)
-> (Maybe TensorInfo'Encoding
-> Maybe Text -> Maybe TensorInfo'Encoding)
-> Lens
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'Encoding)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe TensorInfo'Encoding
x__
-> case Maybe TensorInfo'Encoding
x__ of
(Prelude.Just (TensorInfo'Name x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
_otherwise :: Maybe TensorInfo'Encoding
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe Text
y__ -> (Text -> TensorInfo'Encoding)
-> Maybe Text -> Maybe TensorInfo'Encoding
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> TensorInfo'Encoding
TensorInfo'Name Maybe Text
y__))
instance Data.ProtoLens.Field.HasField TensorInfo "name" Data.Text.Text where
fieldOf :: Proxy# "name" -> (Text -> f Text) -> TensorInfo -> f TensorInfo
fieldOf _
= ((Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> TensorInfo -> f TensorInfo)
-> ((Text -> f Text)
-> Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> (Text -> f Text)
-> TensorInfo
-> f TensorInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo -> Maybe TensorInfo'Encoding)
-> (TensorInfo -> Maybe TensorInfo'Encoding -> TensorInfo)
-> Lens
TensorInfo
TensorInfo
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'Encoding)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo -> Maybe TensorInfo'Encoding
_TensorInfo'encoding
(\ x__ :: TensorInfo
x__ y__ :: Maybe TensorInfo'Encoding
y__ -> TensorInfo
x__ {_TensorInfo'encoding :: Maybe TensorInfo'Encoding
_TensorInfo'encoding = Maybe TensorInfo'Encoding
y__}))
(((Maybe Text -> f (Maybe Text))
-> Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> ((Text -> f Text) -> Maybe Text -> f (Maybe Text))
-> (Text -> f Text)
-> Maybe TensorInfo'Encoding
-> f (Maybe TensorInfo'Encoding)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe TensorInfo'Encoding -> Maybe Text)
-> (Maybe TensorInfo'Encoding
-> Maybe Text -> Maybe TensorInfo'Encoding)
-> Lens
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'Encoding)
(Maybe Text)
(Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe TensorInfo'Encoding
x__
-> case Maybe TensorInfo'Encoding
x__ of
(Prelude.Just (TensorInfo'Name x__val :: Text
x__val)) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
x__val
_otherwise :: Maybe TensorInfo'Encoding
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe Text
y__ -> (Text -> TensorInfo'Encoding)
-> Maybe Text -> Maybe TensorInfo'Encoding
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap Text -> TensorInfo'Encoding
TensorInfo'Name Maybe Text
y__))
(Text -> Lens' (Maybe Text) Text
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault))
instance Data.ProtoLens.Field.HasField TensorInfo "maybe'cooSparse" (Prelude.Maybe TensorInfo'CooSparse) where
fieldOf :: Proxy# "maybe'cooSparse"
-> (Maybe TensorInfo'CooSparse -> f (Maybe TensorInfo'CooSparse))
-> TensorInfo
-> f TensorInfo
fieldOf _
= ((Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> TensorInfo -> f TensorInfo)
-> ((Maybe TensorInfo'CooSparse -> f (Maybe TensorInfo'CooSparse))
-> Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> (Maybe TensorInfo'CooSparse -> f (Maybe TensorInfo'CooSparse))
-> TensorInfo
-> f TensorInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo -> Maybe TensorInfo'Encoding)
-> (TensorInfo -> Maybe TensorInfo'Encoding -> TensorInfo)
-> Lens
TensorInfo
TensorInfo
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'Encoding)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo -> Maybe TensorInfo'Encoding
_TensorInfo'encoding
(\ x__ :: TensorInfo
x__ y__ :: Maybe TensorInfo'Encoding
y__ -> TensorInfo
x__ {_TensorInfo'encoding :: Maybe TensorInfo'Encoding
_TensorInfo'encoding = Maybe TensorInfo'Encoding
y__}))
((Maybe TensorInfo'Encoding -> Maybe TensorInfo'CooSparse)
-> (Maybe TensorInfo'Encoding
-> Maybe TensorInfo'CooSparse -> Maybe TensorInfo'Encoding)
-> Lens
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'CooSparse)
(Maybe TensorInfo'CooSparse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe TensorInfo'Encoding
x__
-> case Maybe TensorInfo'Encoding
x__ of
(Prelude.Just (TensorInfo'CooSparse' x__val :: TensorInfo'CooSparse
x__val))
-> TensorInfo'CooSparse -> Maybe TensorInfo'CooSparse
forall a. a -> Maybe a
Prelude.Just TensorInfo'CooSparse
x__val
_otherwise :: Maybe TensorInfo'Encoding
_otherwise -> Maybe TensorInfo'CooSparse
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe TensorInfo'CooSparse
y__ -> (TensorInfo'CooSparse -> TensorInfo'Encoding)
-> Maybe TensorInfo'CooSparse -> Maybe TensorInfo'Encoding
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TensorInfo'CooSparse -> TensorInfo'Encoding
TensorInfo'CooSparse' Maybe TensorInfo'CooSparse
y__))
instance Data.ProtoLens.Field.HasField TensorInfo "cooSparse" TensorInfo'CooSparse where
fieldOf :: Proxy# "cooSparse"
-> (TensorInfo'CooSparse -> f TensorInfo'CooSparse)
-> TensorInfo
-> f TensorInfo
fieldOf _
= ((Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> TensorInfo -> f TensorInfo)
-> ((TensorInfo'CooSparse -> f TensorInfo'CooSparse)
-> Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> (TensorInfo'CooSparse -> f TensorInfo'CooSparse)
-> TensorInfo
-> f TensorInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo -> Maybe TensorInfo'Encoding)
-> (TensorInfo -> Maybe TensorInfo'Encoding -> TensorInfo)
-> Lens
TensorInfo
TensorInfo
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'Encoding)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo -> Maybe TensorInfo'Encoding
_TensorInfo'encoding
(\ x__ :: TensorInfo
x__ y__ :: Maybe TensorInfo'Encoding
y__ -> TensorInfo
x__ {_TensorInfo'encoding :: Maybe TensorInfo'Encoding
_TensorInfo'encoding = Maybe TensorInfo'Encoding
y__}))
(((Maybe TensorInfo'CooSparse -> f (Maybe TensorInfo'CooSparse))
-> Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> ((TensorInfo'CooSparse -> f TensorInfo'CooSparse)
-> Maybe TensorInfo'CooSparse -> f (Maybe TensorInfo'CooSparse))
-> (TensorInfo'CooSparse -> f TensorInfo'CooSparse)
-> Maybe TensorInfo'Encoding
-> f (Maybe TensorInfo'Encoding)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe TensorInfo'Encoding -> Maybe TensorInfo'CooSparse)
-> (Maybe TensorInfo'Encoding
-> Maybe TensorInfo'CooSparse -> Maybe TensorInfo'Encoding)
-> Lens
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'CooSparse)
(Maybe TensorInfo'CooSparse)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe TensorInfo'Encoding
x__
-> case Maybe TensorInfo'Encoding
x__ of
(Prelude.Just (TensorInfo'CooSparse' x__val :: TensorInfo'CooSparse
x__val))
-> TensorInfo'CooSparse -> Maybe TensorInfo'CooSparse
forall a. a -> Maybe a
Prelude.Just TensorInfo'CooSparse
x__val
_otherwise :: Maybe TensorInfo'Encoding
_otherwise -> Maybe TensorInfo'CooSparse
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe TensorInfo'CooSparse
y__ -> (TensorInfo'CooSparse -> TensorInfo'Encoding)
-> Maybe TensorInfo'CooSparse -> Maybe TensorInfo'Encoding
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TensorInfo'CooSparse -> TensorInfo'Encoding
TensorInfo'CooSparse' Maybe TensorInfo'CooSparse
y__))
(TensorInfo'CooSparse
-> Lens' (Maybe TensorInfo'CooSparse) TensorInfo'CooSparse
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TensorInfo'CooSparse
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField TensorInfo "maybe'compositeTensor" (Prelude.Maybe TensorInfo'CompositeTensor) where
fieldOf :: Proxy# "maybe'compositeTensor"
-> (Maybe TensorInfo'CompositeTensor
-> f (Maybe TensorInfo'CompositeTensor))
-> TensorInfo
-> f TensorInfo
fieldOf _
= ((Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> TensorInfo -> f TensorInfo)
-> ((Maybe TensorInfo'CompositeTensor
-> f (Maybe TensorInfo'CompositeTensor))
-> Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> (Maybe TensorInfo'CompositeTensor
-> f (Maybe TensorInfo'CompositeTensor))
-> TensorInfo
-> f TensorInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo -> Maybe TensorInfo'Encoding)
-> (TensorInfo -> Maybe TensorInfo'Encoding -> TensorInfo)
-> Lens
TensorInfo
TensorInfo
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'Encoding)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo -> Maybe TensorInfo'Encoding
_TensorInfo'encoding
(\ x__ :: TensorInfo
x__ y__ :: Maybe TensorInfo'Encoding
y__ -> TensorInfo
x__ {_TensorInfo'encoding :: Maybe TensorInfo'Encoding
_TensorInfo'encoding = Maybe TensorInfo'Encoding
y__}))
((Maybe TensorInfo'Encoding -> Maybe TensorInfo'CompositeTensor)
-> (Maybe TensorInfo'Encoding
-> Maybe TensorInfo'CompositeTensor -> Maybe TensorInfo'Encoding)
-> Lens
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'CompositeTensor)
(Maybe TensorInfo'CompositeTensor)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe TensorInfo'Encoding
x__
-> case Maybe TensorInfo'Encoding
x__ of
(Prelude.Just (TensorInfo'CompositeTensor' x__val :: TensorInfo'CompositeTensor
x__val))
-> TensorInfo'CompositeTensor -> Maybe TensorInfo'CompositeTensor
forall a. a -> Maybe a
Prelude.Just TensorInfo'CompositeTensor
x__val
_otherwise :: Maybe TensorInfo'Encoding
_otherwise -> Maybe TensorInfo'CompositeTensor
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe TensorInfo'CompositeTensor
y__ -> (TensorInfo'CompositeTensor -> TensorInfo'Encoding)
-> Maybe TensorInfo'CompositeTensor -> Maybe TensorInfo'Encoding
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TensorInfo'CompositeTensor -> TensorInfo'Encoding
TensorInfo'CompositeTensor' Maybe TensorInfo'CompositeTensor
y__))
instance Data.ProtoLens.Field.HasField TensorInfo "compositeTensor" TensorInfo'CompositeTensor where
fieldOf :: Proxy# "compositeTensor"
-> (TensorInfo'CompositeTensor -> f TensorInfo'CompositeTensor)
-> TensorInfo
-> f TensorInfo
fieldOf _
= ((Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> TensorInfo -> f TensorInfo)
-> ((TensorInfo'CompositeTensor -> f TensorInfo'CompositeTensor)
-> Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> (TensorInfo'CompositeTensor -> f TensorInfo'CompositeTensor)
-> TensorInfo
-> f TensorInfo
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo -> Maybe TensorInfo'Encoding)
-> (TensorInfo -> Maybe TensorInfo'Encoding -> TensorInfo)
-> Lens
TensorInfo
TensorInfo
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'Encoding)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo -> Maybe TensorInfo'Encoding
_TensorInfo'encoding
(\ x__ :: TensorInfo
x__ y__ :: Maybe TensorInfo'Encoding
y__ -> TensorInfo
x__ {_TensorInfo'encoding :: Maybe TensorInfo'Encoding
_TensorInfo'encoding = Maybe TensorInfo'Encoding
y__}))
(((Maybe TensorInfo'CompositeTensor
-> f (Maybe TensorInfo'CompositeTensor))
-> Maybe TensorInfo'Encoding -> f (Maybe TensorInfo'Encoding))
-> ((TensorInfo'CompositeTensor -> f TensorInfo'CompositeTensor)
-> Maybe TensorInfo'CompositeTensor
-> f (Maybe TensorInfo'CompositeTensor))
-> (TensorInfo'CompositeTensor -> f TensorInfo'CompositeTensor)
-> Maybe TensorInfo'Encoding
-> f (Maybe TensorInfo'Encoding)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe TensorInfo'Encoding -> Maybe TensorInfo'CompositeTensor)
-> (Maybe TensorInfo'Encoding
-> Maybe TensorInfo'CompositeTensor -> Maybe TensorInfo'Encoding)
-> Lens
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'CompositeTensor)
(Maybe TensorInfo'CompositeTensor)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe TensorInfo'Encoding
x__
-> case Maybe TensorInfo'Encoding
x__ of
(Prelude.Just (TensorInfo'CompositeTensor' x__val :: TensorInfo'CompositeTensor
x__val))
-> TensorInfo'CompositeTensor -> Maybe TensorInfo'CompositeTensor
forall a. a -> Maybe a
Prelude.Just TensorInfo'CompositeTensor
x__val
_otherwise :: Maybe TensorInfo'Encoding
_otherwise -> Maybe TensorInfo'CompositeTensor
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe TensorInfo'CompositeTensor
y__ -> (TensorInfo'CompositeTensor -> TensorInfo'Encoding)
-> Maybe TensorInfo'CompositeTensor -> Maybe TensorInfo'Encoding
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap TensorInfo'CompositeTensor -> TensorInfo'Encoding
TensorInfo'CompositeTensor' Maybe TensorInfo'CompositeTensor
y__))
(TensorInfo'CompositeTensor
-> Lens'
(Maybe TensorInfo'CompositeTensor) TensorInfo'CompositeTensor
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TensorInfo'CompositeTensor
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message TensorInfo where
messageName :: Proxy TensorInfo -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.TensorInfo"
packedMessageDescriptor :: Proxy TensorInfo -> ByteString
packedMessageDescriptor _
= "\n\
\\n\
\TensorInfo\DC2\DC4\n\
\\EOTname\CAN\SOH \SOH(\tH\NULR\EOTname\DC2A\n\
\\n\
\coo_sparse\CAN\EOT \SOH(\v2 .tensorflow.TensorInfo.CooSparseH\NULR\tcooSparse\DC2S\n\
\\DLEcomposite_tensor\CAN\ENQ \SOH(\v2&.tensorflow.TensorInfo.CompositeTensorH\NULR\SIcompositeTensor\DC2*\n\
\\ENQdtype\CAN\STX \SOH(\SO2\DC4.tensorflow.DataTypeR\ENQdtype\DC2?\n\
\\ftensor_shape\CAN\ETX \SOH(\v2\FS.tensorflow.TensorShapeProtoR\vtensorShape\SUB\160\SOH\n\
\\tCooSparse\DC2,\n\
\\DC2values_tensor_name\CAN\SOH \SOH(\tR\DLEvaluesTensorName\DC2.\n\
\\DC3indices_tensor_name\CAN\STX \SOH(\tR\DC1indicesTensorName\DC25\n\
\\ETBdense_shape_tensor_name\CAN\ETX \SOH(\tR\DC4denseShapeTensorName\SUB\129\SOH\n\
\\SICompositeTensor\DC26\n\
\\ttype_spec\CAN\SOH \SOH(\v2\EM.tensorflow.TypeSpecProtoR\btypeSpec\DC26\n\
\\n\
\components\CAN\STX \ETX(\v2\SYN.tensorflow.TensorInfoR\n\
\componentsB\n\
\\n\
\\bencoding"
packedFileDescriptor :: Proxy TensorInfo -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TensorInfo)
fieldsByTag
= let
dtype__field_descriptor :: FieldDescriptor TensorInfo
dtype__field_descriptor
= String
-> FieldTypeDescriptor DataType
-> FieldAccessor TensorInfo DataType
-> FieldDescriptor TensorInfo
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 TensorInfo TensorInfo DataType DataType
-> FieldAccessor TensorInfo 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 TensorInfo
tensorShape__field_descriptor :: FieldDescriptor TensorInfo
tensorShape__field_descriptor
= String
-> FieldTypeDescriptor TensorShapeProto
-> FieldAccessor TensorInfo TensorShapeProto
-> FieldDescriptor TensorInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"tensor_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
TensorInfo
TensorInfo
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
-> FieldAccessor TensorInfo TensorShapeProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'tensorShape" a, Functor f) =>
(a -> f a) -> s -> 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'tensorShape")) ::
Data.ProtoLens.FieldDescriptor TensorInfo
name__field_descriptor :: FieldDescriptor TensorInfo
name__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor TensorInfo Text
-> FieldDescriptor TensorInfo
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)
(Lens' TensorInfo (Maybe Text) -> FieldAccessor TensorInfo Text
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'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 @"maybe'name")) ::
Data.ProtoLens.FieldDescriptor TensorInfo
cooSparse__field_descriptor :: FieldDescriptor TensorInfo
cooSparse__field_descriptor
= String
-> FieldTypeDescriptor TensorInfo'CooSparse
-> FieldAccessor TensorInfo TensorInfo'CooSparse
-> FieldDescriptor TensorInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"coo_sparse"
(MessageOrGroup -> FieldTypeDescriptor TensorInfo'CooSparse
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TensorInfo'CooSparse)
(Lens' TensorInfo (Maybe TensorInfo'CooSparse)
-> FieldAccessor TensorInfo TensorInfo'CooSparse
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'cooSparse" a, Functor f) =>
(a -> f a) -> s -> 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'cooSparse")) ::
Data.ProtoLens.FieldDescriptor TensorInfo
compositeTensor__field_descriptor :: FieldDescriptor TensorInfo
compositeTensor__field_descriptor
= String
-> FieldTypeDescriptor TensorInfo'CompositeTensor
-> FieldAccessor TensorInfo TensorInfo'CompositeTensor
-> FieldDescriptor TensorInfo
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"composite_tensor"
(MessageOrGroup -> FieldTypeDescriptor TensorInfo'CompositeTensor
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TensorInfo'CompositeTensor)
(Lens' TensorInfo (Maybe TensorInfo'CompositeTensor)
-> FieldAccessor TensorInfo TensorInfo'CompositeTensor
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'compositeTensor" a, Functor f) =>
(a -> f a) -> s -> 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'compositeTensor")) ::
Data.ProtoLens.FieldDescriptor TensorInfo
in
[(Tag, FieldDescriptor TensorInfo)]
-> Map Tag (FieldDescriptor TensorInfo)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor TensorInfo
dtype__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor TensorInfo
tensorShape__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor TensorInfo
name__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor TensorInfo
cooSparse__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor TensorInfo
compositeTensor__field_descriptor)]
unknownFields :: LensLike' f TensorInfo FieldSet
unknownFields
= (TensorInfo -> FieldSet)
-> (TensorInfo -> FieldSet -> TensorInfo)
-> Lens' TensorInfo FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo -> FieldSet
_TensorInfo'_unknownFields
(\ x__ :: TensorInfo
x__ y__ :: FieldSet
y__ -> TensorInfo
x__ {_TensorInfo'_unknownFields :: FieldSet
_TensorInfo'_unknownFields = FieldSet
y__})
defMessage :: TensorInfo
defMessage
= $WTensorInfo'_constructor :: DataType
-> Maybe TensorShapeProto
-> Maybe TensorInfo'Encoding
-> FieldSet
-> TensorInfo
TensorInfo'_constructor
{_TensorInfo'dtype :: DataType
_TensorInfo'dtype = DataType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TensorInfo'tensorShape :: Maybe TensorShapeProto
_TensorInfo'tensorShape = Maybe TensorShapeProto
forall a. Maybe a
Prelude.Nothing,
_TensorInfo'encoding :: Maybe TensorInfo'Encoding
_TensorInfo'encoding = Maybe TensorInfo'Encoding
forall a. Maybe a
Prelude.Nothing,
_TensorInfo'_unknownFields :: FieldSet
_TensorInfo'_unknownFields = []}
parseMessage :: Parser TensorInfo
parseMessage
= let
loop ::
TensorInfo -> Data.ProtoLens.Encoding.Bytes.Parser TensorInfo
loop :: TensorInfo -> Parser TensorInfo
loop x :: TensorInfo
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]))))
TensorInfo -> Parser TensorInfo
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter TensorInfo TensorInfo FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TensorInfo -> TensorInfo
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 TensorInfo TensorInfo FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TensorInfo
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
16
-> 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"
TensorInfo -> Parser TensorInfo
loop (Setter TensorInfo TensorInfo DataType DataType
-> DataType -> TensorInfo -> TensorInfo
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 TensorInfo
x)
26
-> 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)
"tensor_shape"
TensorInfo -> Parser TensorInfo
loop
(Setter TensorInfo TensorInfo TensorShapeProto TensorShapeProto
-> TensorShapeProto -> TensorInfo -> TensorInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "tensorShape" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorShape") TensorShapeProto
y TensorInfo
x)
10
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"name"
TensorInfo -> Parser TensorInfo
loop (Setter TensorInfo TensorInfo Text Text
-> Text -> TensorInfo -> TensorInfo
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 TensorInfo
x)
34
-> do TensorInfo'CooSparse
y <- Parser TensorInfo'CooSparse
-> String -> Parser TensorInfo'CooSparse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TensorInfo'CooSparse -> Parser TensorInfo'CooSparse
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 TensorInfo'CooSparse
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"coo_sparse"
TensorInfo -> Parser TensorInfo
loop
(Setter
TensorInfo TensorInfo TensorInfo'CooSparse TensorInfo'CooSparse
-> TensorInfo'CooSparse -> TensorInfo -> TensorInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "cooSparse" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"cooSparse") TensorInfo'CooSparse
y TensorInfo
x)
42
-> do TensorInfo'CompositeTensor
y <- Parser TensorInfo'CompositeTensor
-> String -> Parser TensorInfo'CompositeTensor
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser TensorInfo'CompositeTensor
-> Parser TensorInfo'CompositeTensor
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 TensorInfo'CompositeTensor
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"composite_tensor"
TensorInfo -> Parser TensorInfo
loop
(Setter
TensorInfo
TensorInfo
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> TensorInfo -> TensorInfo
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "compositeTensor" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"compositeTensor") TensorInfo'CompositeTensor
y TensorInfo
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
TensorInfo -> Parser TensorInfo
loop
(Setter TensorInfo TensorInfo FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TensorInfo -> TensorInfo
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 TensorInfo TensorInfo FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TensorInfo
x)
in
Parser TensorInfo -> String -> Parser TensorInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TensorInfo -> Parser TensorInfo
loop TensorInfo
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "TensorInfo"
buildMessage :: TensorInfo -> Builder
buildMessage
= \ _x :: TensorInfo
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: DataType
_v = FoldLike DataType TensorInfo TensorInfo DataType DataType
-> TensorInfo -> 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") TensorInfo
_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 16)
((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)
TensorInfo
TensorInfo
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
-> TensorInfo -> 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'tensorShape" a, Functor f) =>
(a -> f a) -> s -> 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'tensorShape") TensorInfo
_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 26)
((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.<>)
(case
FoldLike
(Maybe TensorInfo'Encoding)
TensorInfo
TensorInfo
(Maybe TensorInfo'Encoding)
(Maybe TensorInfo'Encoding)
-> TensorInfo -> Maybe TensorInfo'Encoding
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'encoding" a, Functor f) =>
(a -> f a) -> s -> 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'encoding") TensorInfo
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (TensorInfo'Name 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)
(Prelude.Just (TensorInfo'CooSparse' v :: TensorInfo'CooSparse
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 34)
((ByteString -> Builder)
-> (TensorInfo'CooSparse -> ByteString)
-> TensorInfo'CooSparse
-> 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))
TensorInfo'CooSparse -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TensorInfo'CooSparse
v)
(Prelude.Just (TensorInfo'CompositeTensor' v :: TensorInfo'CompositeTensor
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 42)
((ByteString -> Builder)
-> (TensorInfo'CompositeTensor -> ByteString)
-> TensorInfo'CompositeTensor
-> 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))
TensorInfo'CompositeTensor -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TensorInfo'CompositeTensor
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet TensorInfo TensorInfo FieldSet FieldSet
-> TensorInfo -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike FieldSet TensorInfo TensorInfo FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TensorInfo
_x))))
instance Control.DeepSeq.NFData TensorInfo where
rnf :: TensorInfo -> ()
rnf
= \ x__ :: TensorInfo
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorInfo -> FieldSet
_TensorInfo'_unknownFields TensorInfo
x__)
(DataType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorInfo -> DataType
_TensorInfo'dtype TensorInfo
x__)
(Maybe TensorShapeProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorInfo -> Maybe TensorShapeProto
_TensorInfo'tensorShape TensorInfo
x__)
(Maybe TensorInfo'Encoding -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (TensorInfo -> Maybe TensorInfo'Encoding
_TensorInfo'encoding TensorInfo
x__) ())))
instance Control.DeepSeq.NFData TensorInfo'Encoding where
rnf :: TensorInfo'Encoding -> ()
rnf (TensorInfo'Name x__ :: Text
x__) = Text -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf Text
x__
rnf (TensorInfo'CooSparse' x__ :: TensorInfo'CooSparse
x__) = TensorInfo'CooSparse -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TensorInfo'CooSparse
x__
rnf (TensorInfo'CompositeTensor' x__ :: TensorInfo'CompositeTensor
x__) = TensorInfo'CompositeTensor -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf TensorInfo'CompositeTensor
x__
_TensorInfo'Name ::
Data.ProtoLens.Prism.Prism' TensorInfo'Encoding Data.Text.Text
_TensorInfo'Name :: p Text (f Text) -> p TensorInfo'Encoding (f TensorInfo'Encoding)
_TensorInfo'Name
= (Text -> TensorInfo'Encoding)
-> (TensorInfo'Encoding -> Maybe Text)
-> Prism TensorInfo'Encoding TensorInfo'Encoding Text Text
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
Text -> TensorInfo'Encoding
TensorInfo'Name
(\ p__ :: TensorInfo'Encoding
p__
-> case TensorInfo'Encoding
p__ of
(TensorInfo'Name p__val :: Text
p__val) -> Text -> Maybe Text
forall a. a -> Maybe a
Prelude.Just Text
p__val
_otherwise :: TensorInfo'Encoding
_otherwise -> Maybe Text
forall a. Maybe a
Prelude.Nothing)
_TensorInfo'CooSparse' ::
Data.ProtoLens.Prism.Prism' TensorInfo'Encoding TensorInfo'CooSparse
_TensorInfo'CooSparse' :: p TensorInfo'CooSparse (f TensorInfo'CooSparse)
-> p TensorInfo'Encoding (f TensorInfo'Encoding)
_TensorInfo'CooSparse'
= (TensorInfo'CooSparse -> TensorInfo'Encoding)
-> (TensorInfo'Encoding -> Maybe TensorInfo'CooSparse)
-> Prism
TensorInfo'Encoding
TensorInfo'Encoding
TensorInfo'CooSparse
TensorInfo'CooSparse
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
TensorInfo'CooSparse -> TensorInfo'Encoding
TensorInfo'CooSparse'
(\ p__ :: TensorInfo'Encoding
p__
-> case TensorInfo'Encoding
p__ of
(TensorInfo'CooSparse' p__val :: TensorInfo'CooSparse
p__val) -> TensorInfo'CooSparse -> Maybe TensorInfo'CooSparse
forall a. a -> Maybe a
Prelude.Just TensorInfo'CooSparse
p__val
_otherwise :: TensorInfo'Encoding
_otherwise -> Maybe TensorInfo'CooSparse
forall a. Maybe a
Prelude.Nothing)
_TensorInfo'CompositeTensor' ::
Data.ProtoLens.Prism.Prism' TensorInfo'Encoding TensorInfo'CompositeTensor
_TensorInfo'CompositeTensor' :: p TensorInfo'CompositeTensor (f TensorInfo'CompositeTensor)
-> p TensorInfo'Encoding (f TensorInfo'Encoding)
_TensorInfo'CompositeTensor'
= (TensorInfo'CompositeTensor -> TensorInfo'Encoding)
-> (TensorInfo'Encoding -> Maybe TensorInfo'CompositeTensor)
-> Prism
TensorInfo'Encoding
TensorInfo'Encoding
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
TensorInfo'CompositeTensor -> TensorInfo'Encoding
TensorInfo'CompositeTensor'
(\ p__ :: TensorInfo'Encoding
p__
-> case TensorInfo'Encoding
p__ of
(TensorInfo'CompositeTensor' p__val :: TensorInfo'CompositeTensor
p__val) -> TensorInfo'CompositeTensor -> Maybe TensorInfo'CompositeTensor
forall a. a -> Maybe a
Prelude.Just TensorInfo'CompositeTensor
p__val
_otherwise :: TensorInfo'Encoding
_otherwise -> Maybe TensorInfo'CompositeTensor
forall a. Maybe a
Prelude.Nothing)
data TensorInfo'CompositeTensor
= TensorInfo'CompositeTensor'_constructor {TensorInfo'CompositeTensor -> Maybe TypeSpecProto
_TensorInfo'CompositeTensor'typeSpec :: !(Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Struct.TypeSpecProto),
TensorInfo'CompositeTensor -> Vector TensorInfo
_TensorInfo'CompositeTensor'components :: !(Data.Vector.Vector TensorInfo),
TensorInfo'CompositeTensor -> FieldSet
_TensorInfo'CompositeTensor'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor -> Bool
(TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor -> Bool)
-> (TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> Bool)
-> Eq TensorInfo'CompositeTensor
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor -> Bool
$c/= :: TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor -> Bool
== :: TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor -> Bool
$c== :: TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor -> Bool
Prelude.Eq, Eq TensorInfo'CompositeTensor
Eq TensorInfo'CompositeTensor =>
(TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> Ordering)
-> (TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> Bool)
-> (TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> Bool)
-> (TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> Bool)
-> (TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> Bool)
-> (TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor)
-> (TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor)
-> Ord TensorInfo'CompositeTensor
TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor -> Bool
TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> Ordering
TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor
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 :: TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor
$cmin :: TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor
max :: TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor
$cmax :: TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor
>= :: TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor -> Bool
$c>= :: TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor -> Bool
> :: TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor -> Bool
$c> :: TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor -> Bool
<= :: TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor -> Bool
$c<= :: TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor -> Bool
< :: TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor -> Bool
$c< :: TensorInfo'CompositeTensor -> TensorInfo'CompositeTensor -> Bool
compare :: TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> Ordering
$ccompare :: TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor -> Ordering
$cp1Ord :: Eq TensorInfo'CompositeTensor
Prelude.Ord)
instance Prelude.Show TensorInfo'CompositeTensor where
showsPrec :: Int -> TensorInfo'CompositeTensor -> ShowS
showsPrec _ __x :: TensorInfo'CompositeTensor
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(TensorInfo'CompositeTensor -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TensorInfo'CompositeTensor
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TensorInfo'CompositeTensor "typeSpec" Proto.Tensorflow.Core.Protobuf.Struct.TypeSpecProto where
fieldOf :: Proxy# "typeSpec"
-> (TypeSpecProto -> f TypeSpecProto)
-> TensorInfo'CompositeTensor
-> f TensorInfo'CompositeTensor
fieldOf _
= ((Maybe TypeSpecProto -> f (Maybe TypeSpecProto))
-> TensorInfo'CompositeTensor -> f TensorInfo'CompositeTensor)
-> ((TypeSpecProto -> f TypeSpecProto)
-> Maybe TypeSpecProto -> f (Maybe TypeSpecProto))
-> (TypeSpecProto -> f TypeSpecProto)
-> TensorInfo'CompositeTensor
-> f TensorInfo'CompositeTensor
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo'CompositeTensor -> Maybe TypeSpecProto)
-> (TensorInfo'CompositeTensor
-> Maybe TypeSpecProto -> TensorInfo'CompositeTensor)
-> Lens
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
(Maybe TypeSpecProto)
(Maybe TypeSpecProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo'CompositeTensor -> Maybe TypeSpecProto
_TensorInfo'CompositeTensor'typeSpec
(\ x__ :: TensorInfo'CompositeTensor
x__ y__ :: Maybe TypeSpecProto
y__ -> TensorInfo'CompositeTensor
x__ {_TensorInfo'CompositeTensor'typeSpec :: Maybe TypeSpecProto
_TensorInfo'CompositeTensor'typeSpec = Maybe TypeSpecProto
y__}))
(TypeSpecProto -> Lens' (Maybe TypeSpecProto) TypeSpecProto
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TypeSpecProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField TensorInfo'CompositeTensor "maybe'typeSpec" (Prelude.Maybe Proto.Tensorflow.Core.Protobuf.Struct.TypeSpecProto) where
fieldOf :: Proxy# "maybe'typeSpec"
-> (Maybe TypeSpecProto -> f (Maybe TypeSpecProto))
-> TensorInfo'CompositeTensor
-> f TensorInfo'CompositeTensor
fieldOf _
= ((Maybe TypeSpecProto -> f (Maybe TypeSpecProto))
-> TensorInfo'CompositeTensor -> f TensorInfo'CompositeTensor)
-> ((Maybe TypeSpecProto -> f (Maybe TypeSpecProto))
-> Maybe TypeSpecProto -> f (Maybe TypeSpecProto))
-> (Maybe TypeSpecProto -> f (Maybe TypeSpecProto))
-> TensorInfo'CompositeTensor
-> f TensorInfo'CompositeTensor
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo'CompositeTensor -> Maybe TypeSpecProto)
-> (TensorInfo'CompositeTensor
-> Maybe TypeSpecProto -> TensorInfo'CompositeTensor)
-> Lens
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
(Maybe TypeSpecProto)
(Maybe TypeSpecProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo'CompositeTensor -> Maybe TypeSpecProto
_TensorInfo'CompositeTensor'typeSpec
(\ x__ :: TensorInfo'CompositeTensor
x__ y__ :: Maybe TypeSpecProto
y__ -> TensorInfo'CompositeTensor
x__ {_TensorInfo'CompositeTensor'typeSpec :: Maybe TypeSpecProto
_TensorInfo'CompositeTensor'typeSpec = Maybe TypeSpecProto
y__}))
(Maybe TypeSpecProto -> f (Maybe TypeSpecProto))
-> Maybe TypeSpecProto -> f (Maybe TypeSpecProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorInfo'CompositeTensor "components" [TensorInfo] where
fieldOf :: Proxy# "components"
-> ([TensorInfo] -> f [TensorInfo])
-> TensorInfo'CompositeTensor
-> f TensorInfo'CompositeTensor
fieldOf _
= ((Vector TensorInfo -> f (Vector TensorInfo))
-> TensorInfo'CompositeTensor -> f TensorInfo'CompositeTensor)
-> (([TensorInfo] -> f [TensorInfo])
-> Vector TensorInfo -> f (Vector TensorInfo))
-> ([TensorInfo] -> f [TensorInfo])
-> TensorInfo'CompositeTensor
-> f TensorInfo'CompositeTensor
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo'CompositeTensor -> Vector TensorInfo)
-> (TensorInfo'CompositeTensor
-> Vector TensorInfo -> TensorInfo'CompositeTensor)
-> Lens
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
(Vector TensorInfo)
(Vector TensorInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo'CompositeTensor -> Vector TensorInfo
_TensorInfo'CompositeTensor'components
(\ x__ :: TensorInfo'CompositeTensor
x__ y__ :: Vector TensorInfo
y__ -> TensorInfo'CompositeTensor
x__ {_TensorInfo'CompositeTensor'components :: Vector TensorInfo
_TensorInfo'CompositeTensor'components = Vector TensorInfo
y__}))
((Vector TensorInfo -> [TensorInfo])
-> (Vector TensorInfo -> [TensorInfo] -> Vector TensorInfo)
-> Lens
(Vector TensorInfo) (Vector TensorInfo) [TensorInfo] [TensorInfo]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector TensorInfo -> [TensorInfo]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [TensorInfo]
y__ -> [TensorInfo] -> Vector TensorInfo
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TensorInfo]
y__))
instance Data.ProtoLens.Field.HasField TensorInfo'CompositeTensor "vec'components" (Data.Vector.Vector TensorInfo) where
fieldOf :: Proxy# "vec'components"
-> (Vector TensorInfo -> f (Vector TensorInfo))
-> TensorInfo'CompositeTensor
-> f TensorInfo'CompositeTensor
fieldOf _
= ((Vector TensorInfo -> f (Vector TensorInfo))
-> TensorInfo'CompositeTensor -> f TensorInfo'CompositeTensor)
-> ((Vector TensorInfo -> f (Vector TensorInfo))
-> Vector TensorInfo -> f (Vector TensorInfo))
-> (Vector TensorInfo -> f (Vector TensorInfo))
-> TensorInfo'CompositeTensor
-> f TensorInfo'CompositeTensor
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo'CompositeTensor -> Vector TensorInfo)
-> (TensorInfo'CompositeTensor
-> Vector TensorInfo -> TensorInfo'CompositeTensor)
-> Lens
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
(Vector TensorInfo)
(Vector TensorInfo)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo'CompositeTensor -> Vector TensorInfo
_TensorInfo'CompositeTensor'components
(\ x__ :: TensorInfo'CompositeTensor
x__ y__ :: Vector TensorInfo
y__ -> TensorInfo'CompositeTensor
x__ {_TensorInfo'CompositeTensor'components :: Vector TensorInfo
_TensorInfo'CompositeTensor'components = Vector TensorInfo
y__}))
(Vector TensorInfo -> f (Vector TensorInfo))
-> Vector TensorInfo -> f (Vector TensorInfo)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TensorInfo'CompositeTensor where
messageName :: Proxy TensorInfo'CompositeTensor -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.TensorInfo.CompositeTensor"
packedMessageDescriptor :: Proxy TensorInfo'CompositeTensor -> ByteString
packedMessageDescriptor _
= "\n\
\\SICompositeTensor\DC26\n\
\\ttype_spec\CAN\SOH \SOH(\v2\EM.tensorflow.TypeSpecProtoR\btypeSpec\DC26\n\
\\n\
\components\CAN\STX \ETX(\v2\SYN.tensorflow.TensorInfoR\n\
\components"
packedFileDescriptor :: Proxy TensorInfo'CompositeTensor -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TensorInfo'CompositeTensor)
fieldsByTag
= let
typeSpec__field_descriptor :: FieldDescriptor TensorInfo'CompositeTensor
typeSpec__field_descriptor
= String
-> FieldTypeDescriptor TypeSpecProto
-> FieldAccessor TensorInfo'CompositeTensor TypeSpecProto
-> FieldDescriptor TensorInfo'CompositeTensor
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"type_spec"
(MessageOrGroup -> FieldTypeDescriptor TypeSpecProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Protobuf.Struct.TypeSpecProto)
(Lens
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
(Maybe TypeSpecProto)
(Maybe TypeSpecProto)
-> FieldAccessor TensorInfo'CompositeTensor TypeSpecProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'typeSpec" a, Functor f) =>
(a -> f a) -> s -> 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'typeSpec")) ::
Data.ProtoLens.FieldDescriptor TensorInfo'CompositeTensor
components__field_descriptor :: FieldDescriptor TensorInfo'CompositeTensor
components__field_descriptor
= String
-> FieldTypeDescriptor TensorInfo
-> FieldAccessor TensorInfo'CompositeTensor TensorInfo
-> FieldDescriptor TensorInfo'CompositeTensor
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"components"
(MessageOrGroup -> FieldTypeDescriptor TensorInfo
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TensorInfo)
(Packing
-> Lens' TensorInfo'CompositeTensor [TensorInfo]
-> FieldAccessor TensorInfo'CompositeTensor TensorInfo
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "components" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"components")) ::
Data.ProtoLens.FieldDescriptor TensorInfo'CompositeTensor
in
[(Tag, FieldDescriptor TensorInfo'CompositeTensor)]
-> Map Tag (FieldDescriptor TensorInfo'CompositeTensor)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor TensorInfo'CompositeTensor
typeSpec__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor TensorInfo'CompositeTensor
components__field_descriptor)]
unknownFields :: LensLike' f TensorInfo'CompositeTensor FieldSet
unknownFields
= (TensorInfo'CompositeTensor -> FieldSet)
-> (TensorInfo'CompositeTensor
-> FieldSet -> TensorInfo'CompositeTensor)
-> Lens' TensorInfo'CompositeTensor FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo'CompositeTensor -> FieldSet
_TensorInfo'CompositeTensor'_unknownFields
(\ x__ :: TensorInfo'CompositeTensor
x__ y__ :: FieldSet
y__
-> TensorInfo'CompositeTensor
x__ {_TensorInfo'CompositeTensor'_unknownFields :: FieldSet
_TensorInfo'CompositeTensor'_unknownFields = FieldSet
y__})
defMessage :: TensorInfo'CompositeTensor
defMessage
= $WTensorInfo'CompositeTensor'_constructor :: Maybe TypeSpecProto
-> Vector TensorInfo -> FieldSet -> TensorInfo'CompositeTensor
TensorInfo'CompositeTensor'_constructor
{_TensorInfo'CompositeTensor'typeSpec :: Maybe TypeSpecProto
_TensorInfo'CompositeTensor'typeSpec = Maybe TypeSpecProto
forall a. Maybe a
Prelude.Nothing,
_TensorInfo'CompositeTensor'components :: Vector TensorInfo
_TensorInfo'CompositeTensor'components = Vector TensorInfo
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TensorInfo'CompositeTensor'_unknownFields :: FieldSet
_TensorInfo'CompositeTensor'_unknownFields = []}
parseMessage :: Parser TensorInfo'CompositeTensor
parseMessage
= let
loop ::
TensorInfo'CompositeTensor
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TensorInfo
-> Data.ProtoLens.Encoding.Bytes.Parser TensorInfo'CompositeTensor
loop :: TensorInfo'CompositeTensor
-> Growing Vector RealWorld TensorInfo
-> Parser TensorInfo'CompositeTensor
loop x :: TensorInfo'CompositeTensor
x mutable'components :: Growing Vector RealWorld TensorInfo
mutable'components
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector TensorInfo
frozen'components <- IO (Vector TensorInfo) -> Parser (Vector TensorInfo)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) TensorInfo -> IO (Vector TensorInfo)
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 TensorInfo
Growing Vector (PrimState IO) TensorInfo
mutable'components)
(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]))))
TensorInfo'CompositeTensor -> Parser TensorInfo'CompositeTensor
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor
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
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
FieldSet
FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
(Vector TensorInfo)
(Vector TensorInfo)
-> Vector TensorInfo
-> TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'components" a, Functor f) =>
(a -> f a) -> s -> 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'components")
Vector TensorInfo
frozen'components
TensorInfo'CompositeTensor
x))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do TypeSpecProto
y <- Parser TypeSpecProto -> String -> Parser TypeSpecProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TypeSpecProto -> Parser TypeSpecProto
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 TypeSpecProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"type_spec"
TensorInfo'CompositeTensor
-> Growing Vector RealWorld TensorInfo
-> Parser TensorInfo'CompositeTensor
loop
(Setter
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
TypeSpecProto
TypeSpecProto
-> TypeSpecProto
-> TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "typeSpec" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeSpec") TypeSpecProto
y TensorInfo'CompositeTensor
x)
Growing Vector RealWorld TensorInfo
mutable'components
18
-> do !TensorInfo
y <- Parser TensorInfo -> String -> Parser TensorInfo
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TensorInfo -> Parser TensorInfo
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 TensorInfo
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"components"
Growing Vector RealWorld TensorInfo
v <- IO (Growing Vector RealWorld TensorInfo)
-> Parser (Growing Vector RealWorld TensorInfo)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) TensorInfo
-> TensorInfo -> IO (Growing Vector (PrimState IO) TensorInfo)
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 TensorInfo
Growing Vector (PrimState IO) TensorInfo
mutable'components TensorInfo
y)
TensorInfo'CompositeTensor
-> Growing Vector RealWorld TensorInfo
-> Parser TensorInfo'CompositeTensor
loop TensorInfo'CompositeTensor
x Growing Vector RealWorld TensorInfo
v
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
TensorInfo'CompositeTensor
-> Growing Vector RealWorld TensorInfo
-> Parser TensorInfo'CompositeTensor
loop
(Setter
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> TensorInfo'CompositeTensor
-> TensorInfo'CompositeTensor
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
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TensorInfo'CompositeTensor
x)
Growing Vector RealWorld TensorInfo
mutable'components
in
Parser TensorInfo'CompositeTensor
-> String -> Parser TensorInfo'CompositeTensor
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld TensorInfo
mutable'components <- IO (Growing Vector RealWorld TensorInfo)
-> Parser (Growing Vector RealWorld TensorInfo)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld TensorInfo)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
TensorInfo'CompositeTensor
-> Growing Vector RealWorld TensorInfo
-> Parser TensorInfo'CompositeTensor
loop TensorInfo'CompositeTensor
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld TensorInfo
mutable'components)
"CompositeTensor"
buildMessage :: TensorInfo'CompositeTensor -> Builder
buildMessage
= \ _x :: TensorInfo'CompositeTensor
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe TypeSpecProto)
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
(Maybe TypeSpecProto)
(Maybe TypeSpecProto)
-> TensorInfo'CompositeTensor -> Maybe TypeSpecProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'typeSpec" a, Functor f) =>
(a -> f a) -> s -> 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'typeSpec") TensorInfo'CompositeTensor
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: TypeSpecProto
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (TypeSpecProto -> ByteString) -> TypeSpecProto -> 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))
TypeSpecProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TypeSpecProto
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((TensorInfo -> Builder) -> Vector TensorInfo -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: TensorInfo
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (TensorInfo -> ByteString) -> TensorInfo -> 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))
TensorInfo -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TensorInfo
_v))
(FoldLike
(Vector TensorInfo)
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
(Vector TensorInfo)
(Vector TensorInfo)
-> TensorInfo'CompositeTensor -> Vector TensorInfo
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'components" a, Functor f) =>
(a -> f a) -> s -> 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'components") TensorInfo'CompositeTensor
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
FieldSet
FieldSet
-> TensorInfo'CompositeTensor -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TensorInfo'CompositeTensor
TensorInfo'CompositeTensor
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TensorInfo'CompositeTensor
_x)))
instance Control.DeepSeq.NFData TensorInfo'CompositeTensor where
rnf :: TensorInfo'CompositeTensor -> ()
rnf
= \ x__ :: TensorInfo'CompositeTensor
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorInfo'CompositeTensor -> FieldSet
_TensorInfo'CompositeTensor'_unknownFields TensorInfo'CompositeTensor
x__)
(Maybe TypeSpecProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorInfo'CompositeTensor -> Maybe TypeSpecProto
_TensorInfo'CompositeTensor'typeSpec TensorInfo'CompositeTensor
x__)
(Vector TensorInfo -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorInfo'CompositeTensor -> Vector TensorInfo
_TensorInfo'CompositeTensor'components TensorInfo'CompositeTensor
x__) ()))
data TensorInfo'CooSparse
= TensorInfo'CooSparse'_constructor {TensorInfo'CooSparse -> Text
_TensorInfo'CooSparse'valuesTensorName :: !Data.Text.Text,
TensorInfo'CooSparse -> Text
_TensorInfo'CooSparse'indicesTensorName :: !Data.Text.Text,
TensorInfo'CooSparse -> Text
_TensorInfo'CooSparse'denseShapeTensorName :: !Data.Text.Text,
TensorInfo'CooSparse -> FieldSet
_TensorInfo'CooSparse'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool
(TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool)
-> (TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool)
-> Eq TensorInfo'CooSparse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool
$c/= :: TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool
== :: TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool
$c== :: TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool
Prelude.Eq, Eq TensorInfo'CooSparse
Eq TensorInfo'CooSparse =>
(TensorInfo'CooSparse -> TensorInfo'CooSparse -> Ordering)
-> (TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool)
-> (TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool)
-> (TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool)
-> (TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool)
-> (TensorInfo'CooSparse
-> TensorInfo'CooSparse -> TensorInfo'CooSparse)
-> (TensorInfo'CooSparse
-> TensorInfo'CooSparse -> TensorInfo'CooSparse)
-> Ord TensorInfo'CooSparse
TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool
TensorInfo'CooSparse -> TensorInfo'CooSparse -> Ordering
TensorInfo'CooSparse
-> TensorInfo'CooSparse -> TensorInfo'CooSparse
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 :: TensorInfo'CooSparse
-> TensorInfo'CooSparse -> TensorInfo'CooSparse
$cmin :: TensorInfo'CooSparse
-> TensorInfo'CooSparse -> TensorInfo'CooSparse
max :: TensorInfo'CooSparse
-> TensorInfo'CooSparse -> TensorInfo'CooSparse
$cmax :: TensorInfo'CooSparse
-> TensorInfo'CooSparse -> TensorInfo'CooSparse
>= :: TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool
$c>= :: TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool
> :: TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool
$c> :: TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool
<= :: TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool
$c<= :: TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool
< :: TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool
$c< :: TensorInfo'CooSparse -> TensorInfo'CooSparse -> Bool
compare :: TensorInfo'CooSparse -> TensorInfo'CooSparse -> Ordering
$ccompare :: TensorInfo'CooSparse -> TensorInfo'CooSparse -> Ordering
$cp1Ord :: Eq TensorInfo'CooSparse
Prelude.Ord)
instance Prelude.Show TensorInfo'CooSparse where
showsPrec :: Int -> TensorInfo'CooSparse -> ShowS
showsPrec _ __x :: TensorInfo'CooSparse
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(TensorInfo'CooSparse -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TensorInfo'CooSparse
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TensorInfo'CooSparse "valuesTensorName" Data.Text.Text where
fieldOf :: Proxy# "valuesTensorName"
-> (Text -> f Text)
-> TensorInfo'CooSparse
-> f TensorInfo'CooSparse
fieldOf _
= ((Text -> f Text)
-> TensorInfo'CooSparse -> f TensorInfo'CooSparse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TensorInfo'CooSparse
-> f TensorInfo'CooSparse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo'CooSparse -> Text)
-> (TensorInfo'CooSparse -> Text -> TensorInfo'CooSparse)
-> Lens TensorInfo'CooSparse TensorInfo'CooSparse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo'CooSparse -> Text
_TensorInfo'CooSparse'valuesTensorName
(\ x__ :: TensorInfo'CooSparse
x__ y__ :: Text
y__ -> TensorInfo'CooSparse
x__ {_TensorInfo'CooSparse'valuesTensorName :: Text
_TensorInfo'CooSparse'valuesTensorName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorInfo'CooSparse "indicesTensorName" Data.Text.Text where
fieldOf :: Proxy# "indicesTensorName"
-> (Text -> f Text)
-> TensorInfo'CooSparse
-> f TensorInfo'CooSparse
fieldOf _
= ((Text -> f Text)
-> TensorInfo'CooSparse -> f TensorInfo'CooSparse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TensorInfo'CooSparse
-> f TensorInfo'CooSparse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo'CooSparse -> Text)
-> (TensorInfo'CooSparse -> Text -> TensorInfo'CooSparse)
-> Lens TensorInfo'CooSparse TensorInfo'CooSparse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo'CooSparse -> Text
_TensorInfo'CooSparse'indicesTensorName
(\ x__ :: TensorInfo'CooSparse
x__ y__ :: Text
y__ -> TensorInfo'CooSparse
x__ {_TensorInfo'CooSparse'indicesTensorName :: Text
_TensorInfo'CooSparse'indicesTensorName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorInfo'CooSparse "denseShapeTensorName" Data.Text.Text where
fieldOf :: Proxy# "denseShapeTensorName"
-> (Text -> f Text)
-> TensorInfo'CooSparse
-> f TensorInfo'CooSparse
fieldOf _
= ((Text -> f Text)
-> TensorInfo'CooSparse -> f TensorInfo'CooSparse)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> TensorInfo'CooSparse
-> f TensorInfo'CooSparse
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorInfo'CooSparse -> Text)
-> (TensorInfo'CooSparse -> Text -> TensorInfo'CooSparse)
-> Lens TensorInfo'CooSparse TensorInfo'CooSparse Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo'CooSparse -> Text
_TensorInfo'CooSparse'denseShapeTensorName
(\ x__ :: TensorInfo'CooSparse
x__ y__ :: Text
y__
-> TensorInfo'CooSparse
x__ {_TensorInfo'CooSparse'denseShapeTensorName :: Text
_TensorInfo'CooSparse'denseShapeTensorName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TensorInfo'CooSparse where
messageName :: Proxy TensorInfo'CooSparse -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.TensorInfo.CooSparse"
packedMessageDescriptor :: Proxy TensorInfo'CooSparse -> ByteString
packedMessageDescriptor _
= "\n\
\\tCooSparse\DC2,\n\
\\DC2values_tensor_name\CAN\SOH \SOH(\tR\DLEvaluesTensorName\DC2.\n\
\\DC3indices_tensor_name\CAN\STX \SOH(\tR\DC1indicesTensorName\DC25\n\
\\ETBdense_shape_tensor_name\CAN\ETX \SOH(\tR\DC4denseShapeTensorName"
packedFileDescriptor :: Proxy TensorInfo'CooSparse -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TensorInfo'CooSparse)
fieldsByTag
= let
valuesTensorName__field_descriptor :: FieldDescriptor TensorInfo'CooSparse
valuesTensorName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor TensorInfo'CooSparse Text
-> FieldDescriptor TensorInfo'CooSparse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"values_tensor_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 TensorInfo'CooSparse TensorInfo'CooSparse Text Text
-> FieldAccessor TensorInfo'CooSparse 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 "valuesTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"valuesTensorName")) ::
Data.ProtoLens.FieldDescriptor TensorInfo'CooSparse
indicesTensorName__field_descriptor :: FieldDescriptor TensorInfo'CooSparse
indicesTensorName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor TensorInfo'CooSparse Text
-> FieldDescriptor TensorInfo'CooSparse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"indices_tensor_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 TensorInfo'CooSparse TensorInfo'CooSparse Text Text
-> FieldAccessor TensorInfo'CooSparse 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 "indicesTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"indicesTensorName")) ::
Data.ProtoLens.FieldDescriptor TensorInfo'CooSparse
denseShapeTensorName__field_descriptor :: FieldDescriptor TensorInfo'CooSparse
denseShapeTensorName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor TensorInfo'CooSparse Text
-> FieldDescriptor TensorInfo'CooSparse
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"dense_shape_tensor_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 TensorInfo'CooSparse TensorInfo'CooSparse Text Text
-> FieldAccessor TensorInfo'CooSparse 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 "denseShapeTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"denseShapeTensorName")) ::
Data.ProtoLens.FieldDescriptor TensorInfo'CooSparse
in
[(Tag, FieldDescriptor TensorInfo'CooSparse)]
-> Map Tag (FieldDescriptor TensorInfo'CooSparse)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor TensorInfo'CooSparse
valuesTensorName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor TensorInfo'CooSparse
indicesTensorName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor TensorInfo'CooSparse
denseShapeTensorName__field_descriptor)]
unknownFields :: LensLike' f TensorInfo'CooSparse FieldSet
unknownFields
= (TensorInfo'CooSparse -> FieldSet)
-> (TensorInfo'CooSparse -> FieldSet -> TensorInfo'CooSparse)
-> Lens' TensorInfo'CooSparse FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorInfo'CooSparse -> FieldSet
_TensorInfo'CooSparse'_unknownFields
(\ x__ :: TensorInfo'CooSparse
x__ y__ :: FieldSet
y__ -> TensorInfo'CooSparse
x__ {_TensorInfo'CooSparse'_unknownFields :: FieldSet
_TensorInfo'CooSparse'_unknownFields = FieldSet
y__})
defMessage :: TensorInfo'CooSparse
defMessage
= $WTensorInfo'CooSparse'_constructor :: Text -> Text -> Text -> FieldSet -> TensorInfo'CooSparse
TensorInfo'CooSparse'_constructor
{_TensorInfo'CooSparse'valuesTensorName :: Text
_TensorInfo'CooSparse'valuesTensorName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TensorInfo'CooSparse'indicesTensorName :: Text
_TensorInfo'CooSparse'indicesTensorName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TensorInfo'CooSparse'denseShapeTensorName :: Text
_TensorInfo'CooSparse'denseShapeTensorName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TensorInfo'CooSparse'_unknownFields :: FieldSet
_TensorInfo'CooSparse'_unknownFields = []}
parseMessage :: Parser TensorInfo'CooSparse
parseMessage
= let
loop ::
TensorInfo'CooSparse
-> Data.ProtoLens.Encoding.Bytes.Parser TensorInfo'CooSparse
loop :: TensorInfo'CooSparse -> Parser TensorInfo'CooSparse
loop x :: TensorInfo'CooSparse
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]))))
TensorInfo'CooSparse -> Parser TensorInfo'CooSparse
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter TensorInfo'CooSparse TensorInfo'CooSparse FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> TensorInfo'CooSparse
-> TensorInfo'CooSparse
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 TensorInfo'CooSparse TensorInfo'CooSparse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) TensorInfo'CooSparse
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))
"values_tensor_name"
TensorInfo'CooSparse -> Parser TensorInfo'CooSparse
loop
(Setter TensorInfo'CooSparse TensorInfo'CooSparse Text Text
-> Text -> TensorInfo'CooSparse -> TensorInfo'CooSparse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "valuesTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"valuesTensorName") Text
y TensorInfo'CooSparse
x)
18
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"indices_tensor_name"
TensorInfo'CooSparse -> Parser TensorInfo'CooSparse
loop
(Setter TensorInfo'CooSparse TensorInfo'CooSparse Text Text
-> Text -> TensorInfo'CooSparse -> TensorInfo'CooSparse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "indicesTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"indicesTensorName") Text
y TensorInfo'CooSparse
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))
"dense_shape_tensor_name"
TensorInfo'CooSparse -> Parser TensorInfo'CooSparse
loop
(Setter TensorInfo'CooSparse TensorInfo'CooSparse Text Text
-> Text -> TensorInfo'CooSparse -> TensorInfo'CooSparse
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "denseShapeTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"denseShapeTensorName") Text
y TensorInfo'CooSparse
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
TensorInfo'CooSparse -> Parser TensorInfo'CooSparse
loop
(Setter TensorInfo'CooSparse TensorInfo'CooSparse FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> TensorInfo'CooSparse
-> TensorInfo'CooSparse
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 TensorInfo'CooSparse TensorInfo'CooSparse FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TensorInfo'CooSparse
x)
in
Parser TensorInfo'CooSparse
-> String -> Parser TensorInfo'CooSparse
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do TensorInfo'CooSparse -> Parser TensorInfo'CooSparse
loop TensorInfo'CooSparse
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "CooSparse"
buildMessage :: TensorInfo'CooSparse -> Builder
buildMessage
= \ _x :: TensorInfo'CooSparse
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text TensorInfo'CooSparse TensorInfo'CooSparse Text Text
-> TensorInfo'CooSparse -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "valuesTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"valuesTensorName") TensorInfo'CooSparse
_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.<>)
(let
_v :: Text
_v
= FoldLike Text TensorInfo'CooSparse TensorInfo'CooSparse Text Text
-> TensorInfo'CooSparse -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "indicesTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"indicesTensorName") TensorInfo'CooSparse
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text TensorInfo'CooSparse TensorInfo'CooSparse Text Text
-> TensorInfo'CooSparse -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "denseShapeTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"denseShapeTensorName") TensorInfo'CooSparse
_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
TensorInfo'CooSparse
TensorInfo'CooSparse
FieldSet
FieldSet
-> TensorInfo'CooSparse -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
TensorInfo'CooSparse
TensorInfo'CooSparse
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields TensorInfo'CooSparse
_x))))
instance Control.DeepSeq.NFData TensorInfo'CooSparse where
rnf :: TensorInfo'CooSparse -> ()
rnf
= \ x__ :: TensorInfo'CooSparse
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorInfo'CooSparse -> FieldSet
_TensorInfo'CooSparse'_unknownFields TensorInfo'CooSparse
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorInfo'CooSparse -> Text
_TensorInfo'CooSparse'valuesTensorName TensorInfo'CooSparse
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorInfo'CooSparse -> Text
_TensorInfo'CooSparse'indicesTensorName TensorInfo'CooSparse
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorInfo'CooSparse -> Text
_TensorInfo'CooSparse'denseShapeTensorName TensorInfo'CooSparse
x__) ())))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= "\n\
\)tensorflow/core/protobuf/meta_graph.proto\DC2\n\
\tensorflow\SUB\EMgoogle/protobuf/any.proto\SUB%tensorflow/core/framework/graph.proto\SUB&tensorflow/core/framework/op_def.proto\SUB,tensorflow/core/framework/tensor_shape.proto\SUB%tensorflow/core/framework/types.proto\SUB1tensorflow/core/protobuf/saved_object_graph.proto\SUB$tensorflow/core/protobuf/saver.proto\SUB%tensorflow/core/protobuf/struct.proto\"\169\t\n\
\\fMetaGraphDef\DC2H\n\
\\rmeta_info_def\CAN\SOH \SOH(\v2$.tensorflow.MetaGraphDef.MetaInfoDefR\vmetaInfoDef\DC21\n\
\\tgraph_def\CAN\STX \SOH(\v2\DC4.tensorflow.GraphDefR\bgraphDef\DC21\n\
\\tsaver_def\CAN\ETX \SOH(\v2\DC4.tensorflow.SaverDefR\bsaverDef\DC2R\n\
\\SOcollection_def\CAN\EOT \ETX(\v2+.tensorflow.MetaGraphDef.CollectionDefEntryR\rcollectionDef\DC2O\n\
\\rsignature_def\CAN\ENQ \ETX(\v2*.tensorflow.MetaGraphDef.SignatureDefEntryR\fsignatureDef\DC2>\n\
\\SOasset_file_def\CAN\ACK \ETX(\v2\CAN.tensorflow.AssetFileDefR\fassetFileDef\DC2F\n\
\\DLEobject_graph_def\CAN\a \SOH(\v2\FS.tensorflow.SavedObjectGraphR\SOobjectGraphDef\SUB\131\EOT\n\
\\vMetaInfoDef\DC2,\n\
\\DC2meta_graph_version\CAN\SOH \SOH(\tR\DLEmetaGraphVersion\DC2<\n\
\\DLEstripped_op_list\CAN\STX \SOH(\v2\DC2.tensorflow.OpListR\SOstrippedOpList\DC2/\n\
\\bany_info\CAN\ETX \SOH(\v2\DC4.google.protobuf.AnyR\aanyInfo\DC2\DC2\n\
\\EOTtags\CAN\EOT \ETX(\tR\EOTtags\DC2-\n\
\\DC2tensorflow_version\CAN\ENQ \SOH(\tR\DC1tensorflowVersion\DC24\n\
\\SYNtensorflow_git_version\CAN\ACK \SOH(\tR\DC4tensorflowGitVersion\DC24\n\
\\SYNstripped_default_attrs\CAN\a \SOH(\bR\DC4strippedDefaultAttrs\DC2d\n\
\\DLEfunction_aliases\CAN\b \ETX(\v29.tensorflow.MetaGraphDef.MetaInfoDef.FunctionAliasesEntryR\SIfunctionAliases\SUBB\n\
\\DC4FunctionAliasesEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2\DC4\n\
\\ENQvalue\CAN\STX \SOH(\tR\ENQvalue:\STX8\SOH\SUB[\n\
\\DC2CollectionDefEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2/\n\
\\ENQvalue\CAN\STX \SOH(\v2\EM.tensorflow.CollectionDefR\ENQvalue:\STX8\SOH\SUBY\n\
\\DC1SignatureDefEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2.\n\
\\ENQvalue\CAN\STX \SOH(\v2\CAN.tensorflow.SignatureDefR\ENQvalue:\STX8\SOH\"\182\EOT\n\
\\rCollectionDef\DC2A\n\
\\tnode_list\CAN\SOH \SOH(\v2\".tensorflow.CollectionDef.NodeListH\NULR\bnodeList\DC2D\n\
\\n\
\bytes_list\CAN\STX \SOH(\v2#.tensorflow.CollectionDef.BytesListH\NULR\tbytesList\DC2D\n\
\\n\
\int64_list\CAN\ETX \SOH(\v2#.tensorflow.CollectionDef.Int64ListH\NULR\tint64List\DC2D\n\
\\n\
\float_list\CAN\EOT \SOH(\v2#.tensorflow.CollectionDef.FloatListH\NULR\tfloatList\DC2>\n\
\\bany_list\CAN\ENQ \SOH(\v2!.tensorflow.CollectionDef.AnyListH\NULR\aanyList\SUB \n\
\\bNodeList\DC2\DC4\n\
\\ENQvalue\CAN\SOH \ETX(\tR\ENQvalue\SUB!\n\
\\tBytesList\DC2\DC4\n\
\\ENQvalue\CAN\SOH \ETX(\fR\ENQvalue\SUB%\n\
\\tInt64List\DC2\CAN\n\
\\ENQvalue\CAN\SOH \ETX(\ETXR\ENQvalueB\STX\DLE\SOH\SUB%\n\
\\tFloatList\DC2\CAN\n\
\\ENQvalue\CAN\SOH \ETX(\STXR\ENQvalueB\STX\DLE\SOH\SUB5\n\
\\aAnyList\DC2*\n\
\\ENQvalue\CAN\SOH \ETX(\v2\DC4.google.protobuf.AnyR\ENQvalueB\ACK\n\
\\EOTkind\"\218\EOT\n\
\\n\
\TensorInfo\DC2\DC4\n\
\\EOTname\CAN\SOH \SOH(\tH\NULR\EOTname\DC2A\n\
\\n\
\coo_sparse\CAN\EOT \SOH(\v2 .tensorflow.TensorInfo.CooSparseH\NULR\tcooSparse\DC2S\n\
\\DLEcomposite_tensor\CAN\ENQ \SOH(\v2&.tensorflow.TensorInfo.CompositeTensorH\NULR\SIcompositeTensor\DC2*\n\
\\ENQdtype\CAN\STX \SOH(\SO2\DC4.tensorflow.DataTypeR\ENQdtype\DC2?\n\
\\ftensor_shape\CAN\ETX \SOH(\v2\FS.tensorflow.TensorShapeProtoR\vtensorShape\SUB\160\SOH\n\
\\tCooSparse\DC2,\n\
\\DC2values_tensor_name\CAN\SOH \SOH(\tR\DLEvaluesTensorName\DC2.\n\
\\DC3indices_tensor_name\CAN\STX \SOH(\tR\DC1indicesTensorName\DC25\n\
\\ETBdense_shape_tensor_name\CAN\ETX \SOH(\tR\DC4denseShapeTensorName\SUB\129\SOH\n\
\\SICompositeTensor\DC26\n\
\\ttype_spec\CAN\SOH \SOH(\v2\EM.tensorflow.TypeSpecProtoR\btypeSpec\DC26\n\
\\n\
\components\CAN\STX \ETX(\v2\SYN.tensorflow.TensorInfoR\n\
\componentsB\n\
\\n\
\\bencoding\"\213\STX\n\
\\fSignatureDef\DC2<\n\
\\ACKinputs\CAN\SOH \ETX(\v2$.tensorflow.SignatureDef.InputsEntryR\ACKinputs\DC2?\n\
\\aoutputs\CAN\STX \ETX(\v2%.tensorflow.SignatureDef.OutputsEntryR\aoutputs\DC2\US\n\
\\vmethod_name\CAN\ETX \SOH(\tR\n\
\methodName\SUBQ\n\
\\vInputsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2,\n\
\\ENQvalue\CAN\STX \SOH(\v2\SYN.tensorflow.TensorInfoR\ENQvalue:\STX8\SOH\SUBR\n\
\\fOutputsEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC2,\n\
\\ENQvalue\CAN\STX \SOH(\v2\SYN.tensorflow.TensorInfoR\ENQvalue:\STX8\SOH\"c\n\
\\fAssetFileDef\DC27\n\
\\vtensor_info\CAN\SOH \SOH(\v2\SYN.tensorflow.TensorInfoR\n\
\tensorInfo\DC2\SUB\n\
\\bfilename\CAN\STX \SOH(\tR\bfilenameBz\n\
\\CANorg.tensorflow.frameworkB\SIMetaGraphProtosP\SOHZHgithub.com/tensorflow/tensorflow/tensorflow/go/core/core_protos_go_proto\248\SOH\SOHJ\168[\n\
\\a\DC2\ENQ\NUL\NUL\213\STX\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\NUL#\n\
\\t\n\
\\STX\ETX\SOH\DC2\ETX\ENQ\NUL/\n\
\\t\n\
\\STX\ETX\STX\DC2\ETX\ACK\NUL0\n\
\\t\n\
\\STX\ETX\ETX\DC2\ETX\a\NUL6\n\
\\t\n\
\\STX\ETX\EOT\DC2\ETX\b\NUL/\n\
\\t\n\
\\STX\ETX\ENQ\DC2\ETX\t\NUL;\n\
\\t\n\
\\STX\ETX\ACK\DC2\ETX\n\
\\NUL.\n\
\\t\n\
\\STX\ETX\a\DC2\ETX\v\NUL/\n\
\\b\n\
\\SOH\b\DC2\ETX\r\NUL\US\n\
\\t\n\
\\STX\b\US\DC2\ETX\r\NUL\US\n\
\\b\n\
\\SOH\b\DC2\ETX\SO\NUL0\n\
\\t\n\
\\STX\b\b\DC2\ETX\SO\NUL0\n\
\\b\n\
\\SOH\b\DC2\ETX\SI\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\SI\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\DLE\NUL1\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\DLE\NUL1\n\
\\b\n\
\\SOH\b\DC2\ETX\DC1\NUL_\n\
\\t\n\
\\STX\b\v\DC2\ETX\DC1\NUL_\n\
\\138\EOT\n\
\\STX\EOT\NUL\DC2\EOT!\NUL_\SOH\SUB\253\ETX NOTE: This protocol buffer is evolving, and will go through revisions in the\n\
\ coming months.\n\
\\n\
\ Protocol buffer containing the following which are necessary to restart\n\
\ training, run inference. It can be used to serialize/de-serialize memory\n\
\ objects necessary for running computation in a graph when crossing the\n\
\ process boundary. It can be used for long term storage of graphs,\n\
\ cross-language execution of graphs, etc.\n\
\ MetaInfoDef\n\
\ GraphDef\n\
\ SaverDef\n\
\ CollectionDef\n\
\ TensorInfo\n\
\ SignatureDef\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX!\b\DC4\n\
\\165\SOH\n\
\\EOT\EOT\NUL\ETX\NUL\DC2\EOT$\STXI\ETX\SUB\150\SOH Meta information regarding the graph to be exported. To be used by users\n\
\ of this protocol buffer to encode information regarding their meta graph.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\ETX\NUL\SOH\DC2\ETX$\n\
\\NAK\n\
\\134\SOH\n\
\\ACK\EOT\NUL\ETX\NUL\STX\NUL\DC2\ETX'\EOT\"\SUBw User specified Version string. Can be the name of the model and revision,\n\
\ steps this model has been trained to, etc.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\NUL\ENQ\DC2\ETX'\EOT\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\NUL\SOH\DC2\ETX'\v\GS\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\NUL\ETX\DC2\ETX' !\n\
\\139\SOH\n\
\\ACK\EOT\NUL\ETX\NUL\STX\SOH\DC2\ETX+\EOT \SUB| A copy of the OpDefs used by the producer of this graph_def.\n\
\ Descriptions and Ops not used in graph_def are stripped out.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\SOH\ACK\DC2\ETX+\EOT\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\SOH\SOH\DC2\ETX+\v\ESC\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\SOH\ETX\DC2\ETX+\RS\US\n\
\w\n\
\\ACK\EOT\NUL\ETX\NUL\STX\STX\DC2\ETX/\EOT%\SUBh A serialized protobuf. Can be the time this meta graph is created, or\n\
\ modified, or name of the model.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\STX\ACK\DC2\ETX/\EOT\ETB\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\STX\SOH\DC2\ETX/\CAN \n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\STX\ETX\DC2\ETX/#$\n\
\\186\STX\n\
\\ACK\EOT\NUL\ETX\NUL\STX\ETX\DC2\ETX7\EOT\GS\SUB\170\STX User supplied tag(s) on the meta_graph and included graph_def.\n\
\\n\
\ MetaGraphDefs should be tagged with their capabilities or use-cases.\n\
\ Examples: \"train\", \"serve\", \"gpu\", \"tpu\", etc.\n\
\ These tags enable loaders to access the MetaGraph(s) appropriate for a\n\
\ specific use-case or runtime environment.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ETX\EOT\DC2\ETX7\EOT\f\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ETX\ENQ\DC2\ETX7\r\DC3\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ETX\SOH\DC2\ETX7\DC4\CAN\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ETX\ETX\DC2\ETX7\ESC\FS\n\
\\179\SOH\n\
\\ACK\EOT\NUL\ETX\NUL\STX\EOT\DC2\ETX<\EOT\"\SUB\163\SOH The __version__ string of the tensorflow build used to write this graph.\n\
\ This will be populated by the framework, which will overwrite any user\n\
\ supplied value.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\EOT\ENQ\DC2\ETX<\EOT\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\EOT\SOH\DC2\ETX<\v\GS\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\EOT\ETX\DC2\ETX< !\n\
\\183\SOH\n\
\\ACK\EOT\NUL\ETX\NUL\STX\ENQ\DC2\ETXA\EOT&\SUB\167\SOH The __git_version__ string of the tensorflow build used to write this\n\
\ graph. This will be populated by the framework, which will overwrite any\n\
\ user supplied value.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ENQ\ENQ\DC2\ETXA\EOT\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ENQ\SOH\DC2\ETXA\v!\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ENQ\ETX\DC2\ETXA$%\n\
\t\n\
\\ACK\EOT\NUL\ETX\NUL\STX\ACK\DC2\ETXE\EOT$\SUBe A flag to denote whether default-valued attrs have been stripped from\n\
\ the nodes in this graph_def.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ACK\ENQ\DC2\ETXE\EOT\b\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ACK\SOH\DC2\ETXE\t\US\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\ACK\ETX\DC2\ETXE\"#\n\
\5\n\
\\ACK\EOT\NUL\ETX\NUL\STX\a\DC2\ETXH\EOT-\SUB& FunctionDef name to aliases mapping.\n\
\\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\a\ACK\DC2\ETXH\EOT\ETB\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\a\SOH\DC2\ETXH\CAN(\n\
\\SO\n\
\\a\EOT\NUL\ETX\NUL\STX\a\ETX\DC2\ETXH+,\n\
\\v\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETXJ\STX \n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETXJ\STX\r\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETXJ\SO\ESC\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETXJ\RS\US\n\
\\CAN\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETXM\STX\EM\SUB\v GraphDef.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETXM\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETXM\v\DC4\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETXM\ETB\CAN\n\
\\CAN\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETXP\STX\EM\SUB\v SaverDef.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ACK\DC2\ETXP\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETXP\v\DC4\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETXP\ETB\CAN\n\
\o\n\
\\EOT\EOT\NUL\STX\ETX\DC2\ETXT\STX0\SUBb collection_def: Map from collection name to collections.\n\
\ See CollectionDef section for details.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ACK\DC2\ETXT\STX\FS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETXT\GS+\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETXT./\n\
\c\n\
\\EOT\EOT\NUL\STX\EOT\DC2\ETXX\STX.\SUBV signature_def: Map from user supplied key for a signature to a single\n\
\ SignatureDef.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ACK\DC2\ETXX\STX\ESC\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETXX\FS)\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETXX,-\n\
\@\n\
\\EOT\EOT\NUL\STX\ENQ\DC2\ETX[\STX+\SUB3 Asset file def to be used with the defined graph.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\EOT\DC2\ETX[\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\ACK\DC2\ETX[\v\ETB\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\SOH\DC2\ETX[\CAN&\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\ETX\DC2\ETX[)*\n\
\W\n\
\\EOT\EOT\NUL\STX\ACK\DC2\ETX^\STX(\SUBJ Extra information about the structure of functions and stateful objects.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\ACK\DC2\ETX^\STX\DC2\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\SOH\DC2\ETX^\DC3#\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\ETX\DC2\ETX^&'\n\
\\223\SI\n\
\\STX\EOT\SOH\DC2\ACK\159\SOH\NUL\213\SOH\SOH\SUB\208\SI CollectionDef should cover most collections.\n\
\ To add a user-defined collection, do one of the following:\n\
\ 1. For simple data types, such as string, int, float:\n\
\ tf.add_to_collection(\"your_collection_name\", your_simple_value)\n\
\ strings will be stored as bytes_list.\n\
\\n\
\ 2. For Protobuf types, there are three ways to add them:\n\
\ 1) tf.add_to_collection(\"your_collection_name\",\n\
\ your_proto.SerializeToString())\n\
\\n\
\ collection_def {\n\
\ key: \"user_defined_bytes_collection\"\n\
\ value {\n\
\ bytes_list {\n\
\ value: \"queue_name: \\\"test_queue\\\"\\n\"\n\
\ }\n\
\ }\n\
\ }\n\
\\n\
\ or\n\
\\n\
\ 2) tf.add_to_collection(\"your_collection_name\", str(your_proto))\n\
\\n\
\ collection_def {\n\
\ key: \"user_defined_string_collection\"\n\
\ value {\n\
\ bytes_list {\n\
\ value: \"\\n\\ntest_queue\"\n\
\ }\n\
\ }\n\
\ }\n\
\\n\
\ or\n\
\\n\
\ 3) any_buf = any_pb2.Any()\n\
\ tf.add_to_collection(\"your_collection_name\",\n\
\ any_buf.Pack(your_proto))\n\
\\n\
\ collection_def {\n\
\ key: \"user_defined_any_collection\"\n\
\ value {\n\
\ any_list {\n\
\ value {\n\
\ type_url: \"type.googleapis.com/tensorflow.QueueRunnerDef\"\n\
\ value: \"\\n\\ntest_queue\"\n\
\ }\n\
\ }\n\
\ }\n\
\ }\n\
\\n\
\ 3. For Python objects, implement to_proto() and from_proto(), and register\n\
\ them in the following manner:\n\
\ ops.register_proto_function(\"your_collection_name\",\n\
\ proto_type,\n\
\ to_proto=YourPythonObject.to_proto,\n\
\ from_proto=YourPythonObject.from_proto)\n\
\ These functions will be invoked to serialize and de-serialize the\n\
\ collection. For example,\n\
\ ops.register_proto_function(ops.GraphKeys.GLOBAL_VARIABLES,\n\
\ proto_type=variable_pb2.VariableDef,\n\
\ to_proto=Variable.to_proto,\n\
\ from_proto=Variable.from_proto)\n\
\\n\
\\v\n\
\\ETX\EOT\SOH\SOH\DC2\EOT\159\SOH\b\NAK\n\
\\152\STX\n\
\\EOT\EOT\SOH\ETX\NUL\DC2\ACK\170\SOH\STX\172\SOH\ETX\SUB\135\STX NodeList is used for collecting nodes in graph. For example\n\
\ collection_def {\n\
\ key: \"summaries\"\n\
\ value {\n\
\ node_list {\n\
\ value: \"input_producer/ScalarSummary:0\"\n\
\ value: \"shuffle_batch/ScalarSummary:0\"\n\
\ value: \"ImageSummary:0\"\n\
\ }\n\
\ }\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\ETX\NUL\SOH\DC2\EOT\170\SOH\n\
\\DC2\n\
\\SO\n\
\\ACK\EOT\SOH\ETX\NUL\STX\NUL\DC2\EOT\171\SOH\EOT\RS\n\
\\SI\n\
\\a\EOT\SOH\ETX\NUL\STX\NUL\EOT\DC2\EOT\171\SOH\EOT\f\n\
\\SI\n\
\\a\EOT\SOH\ETX\NUL\STX\NUL\ENQ\DC2\EOT\171\SOH\r\DC3\n\
\\SI\n\
\\a\EOT\SOH\ETX\NUL\STX\NUL\SOH\DC2\EOT\171\SOH\DC4\EM\n\
\\SI\n\
\\a\EOT\SOH\ETX\NUL\STX\NUL\ETX\DC2\EOT\171\SOH\FS\GS\n\
\\150\ETX\n\
\\EOT\EOT\SOH\ETX\SOH\DC2\ACK\187\SOH\STX\189\SOH\ETX\SUB\133\ETX BytesList is used for collecting strings and serialized protobufs. For\n\
\ example:\n\
\ collection_def {\n\
\ key: \"trainable_variables\"\n\
\ value {\n\
\ bytes_list {\n\
\ value: \"\\n\\017conv1/weights:0\\022\\024conv1/weights/Assign\n\
\ \\032\\024conv1/weights/read:0\"\n\
\ value: \"\\n\\016conv1/biases:0\\022\\023conv1/biases/Assign\\032\n\
\ \\023conv1/biases/read:0\"\n\
\ }\n\
\ }\n\
\ }\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\ETX\SOH\SOH\DC2\EOT\187\SOH\n\
\\DC3\n\
\\SO\n\
\\ACK\EOT\SOH\ETX\SOH\STX\NUL\DC2\EOT\188\SOH\EOT\GS\n\
\\SI\n\
\\a\EOT\SOH\ETX\SOH\STX\NUL\EOT\DC2\EOT\188\SOH\EOT\f\n\
\\SI\n\
\\a\EOT\SOH\ETX\SOH\STX\NUL\ENQ\DC2\EOT\188\SOH\r\DC2\n\
\\SI\n\
\\a\EOT\SOH\ETX\SOH\STX\NUL\SOH\DC2\EOT\188\SOH\DC3\CAN\n\
\\SI\n\
\\a\EOT\SOH\ETX\SOH\STX\NUL\ETX\DC2\EOT\188\SOH\ESC\FS\n\
\N\n\
\\EOT\EOT\SOH\ETX\STX\DC2\ACK\192\SOH\STX\194\SOH\ETX\SUB> Int64List is used for collecting int, int64 and long values.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\ETX\STX\SOH\DC2\EOT\192\SOH\n\
\\DC3\n\
\\SO\n\
\\ACK\EOT\SOH\ETX\STX\STX\NUL\DC2\EOT\193\SOH\EOT-\n\
\\SI\n\
\\a\EOT\SOH\ETX\STX\STX\NUL\EOT\DC2\EOT\193\SOH\EOT\f\n\
\\SI\n\
\\a\EOT\SOH\ETX\STX\STX\NUL\ENQ\DC2\EOT\193\SOH\r\DC2\n\
\\SI\n\
\\a\EOT\SOH\ETX\STX\STX\NUL\SOH\DC2\EOT\193\SOH\DC3\CAN\n\
\\SI\n\
\\a\EOT\SOH\ETX\STX\STX\NUL\ETX\DC2\EOT\193\SOH\ESC\FS\n\
\\SI\n\
\\a\EOT\SOH\ETX\STX\STX\NUL\b\DC2\EOT\193\SOH\GS,\n\
\\DLE\n\
\\b\EOT\SOH\ETX\STX\STX\NUL\b\STX\DC2\EOT\193\SOH\RS+\n\
\@\n\
\\EOT\EOT\SOH\ETX\ETX\DC2\ACK\197\SOH\STX\199\SOH\ETX\SUB0 FloatList is used for collecting float values.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\ETX\ETX\SOH\DC2\EOT\197\SOH\n\
\\DC3\n\
\\SO\n\
\\ACK\EOT\SOH\ETX\ETX\STX\NUL\DC2\EOT\198\SOH\EOT-\n\
\\SI\n\
\\a\EOT\SOH\ETX\ETX\STX\NUL\EOT\DC2\EOT\198\SOH\EOT\f\n\
\\SI\n\
\\a\EOT\SOH\ETX\ETX\STX\NUL\ENQ\DC2\EOT\198\SOH\r\DC2\n\
\\SI\n\
\\a\EOT\SOH\ETX\ETX\STX\NUL\SOH\DC2\EOT\198\SOH\DC3\CAN\n\
\\SI\n\
\\a\EOT\SOH\ETX\ETX\STX\NUL\ETX\DC2\EOT\198\SOH\ESC\FS\n\
\\SI\n\
\\a\EOT\SOH\ETX\ETX\STX\NUL\b\DC2\EOT\198\SOH\GS,\n\
\\DLE\n\
\\b\EOT\SOH\ETX\ETX\STX\NUL\b\STX\DC2\EOT\198\SOH\RS+\n\
\<\n\
\\EOT\EOT\SOH\ETX\EOT\DC2\ACK\202\SOH\STX\204\SOH\ETX\SUB, AnyList is used for collecting Any protos.\n\
\\n\
\\r\n\
\\ENQ\EOT\SOH\ETX\EOT\SOH\DC2\EOT\202\SOH\n\
\\DC1\n\
\\SO\n\
\\ACK\EOT\SOH\ETX\EOT\STX\NUL\DC2\EOT\203\SOH\EOT+\n\
\\SI\n\
\\a\EOT\SOH\ETX\EOT\STX\NUL\EOT\DC2\EOT\203\SOH\EOT\f\n\
\\SI\n\
\\a\EOT\SOH\ETX\EOT\STX\NUL\ACK\DC2\EOT\203\SOH\r \n\
\\SI\n\
\\a\EOT\SOH\ETX\EOT\STX\NUL\SOH\DC2\EOT\203\SOH!&\n\
\\SI\n\
\\a\EOT\SOH\ETX\EOT\STX\NUL\ETX\DC2\EOT\203\SOH)*\n\
\\SO\n\
\\EOT\EOT\SOH\b\NUL\DC2\ACK\206\SOH\STX\212\SOH\ETX\n\
\\r\n\
\\ENQ\EOT\SOH\b\NUL\SOH\DC2\EOT\206\SOH\b\f\n\
\\f\n\
\\EOT\EOT\SOH\STX\NUL\DC2\EOT\207\SOH\EOT\ESC\n\
\\r\n\
\\ENQ\EOT\SOH\STX\NUL\ACK\DC2\EOT\207\SOH\EOT\f\n\
\\r\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\EOT\207\SOH\r\SYN\n\
\\r\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\EOT\207\SOH\EM\SUB\n\
\\f\n\
\\EOT\EOT\SOH\STX\SOH\DC2\EOT\208\SOH\EOT\GS\n\
\\r\n\
\\ENQ\EOT\SOH\STX\SOH\ACK\DC2\EOT\208\SOH\EOT\r\n\
\\r\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\EOT\208\SOH\SO\CAN\n\
\\r\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\EOT\208\SOH\ESC\FS\n\
\\f\n\
\\EOT\EOT\SOH\STX\STX\DC2\EOT\209\SOH\EOT\GS\n\
\\r\n\
\\ENQ\EOT\SOH\STX\STX\ACK\DC2\EOT\209\SOH\EOT\r\n\
\\r\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\EOT\209\SOH\SO\CAN\n\
\\r\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\EOT\209\SOH\ESC\FS\n\
\\f\n\
\\EOT\EOT\SOH\STX\ETX\DC2\EOT\210\SOH\EOT\GS\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ETX\ACK\DC2\EOT\210\SOH\EOT\r\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ETX\SOH\DC2\EOT\210\SOH\SO\CAN\n\
\\r\n\
\\ENQ\EOT\SOH\STX\ETX\ETX\DC2\EOT\210\SOH\ESC\FS\n\
\\f\n\
\\EOT\EOT\SOH\STX\EOT\DC2\EOT\211\SOH\EOT\EM\n\
\\r\n\
\\ENQ\EOT\SOH\STX\EOT\ACK\DC2\EOT\211\SOH\EOT\v\n\
\\r\n\
\\ENQ\EOT\SOH\STX\EOT\SOH\DC2\EOT\211\SOH\f\DC4\n\
\\r\n\
\\ENQ\EOT\SOH\STX\EOT\ETX\DC2\EOT\211\SOH\ETB\CAN\n\
\N\n\
\\STX\EOT\STX\DC2\ACK\216\SOH\NUL\129\STX\SOH\SUB@ Information about a Tensor necessary for feeding or retrieval.\n\
\\n\
\\v\n\
\\ETX\EOT\STX\SOH\DC2\EOT\216\SOH\b\DC2\n\
\f\n\
\\EOT\EOT\STX\ETX\NUL\DC2\ACK\219\SOH\STX\230\SOH\ETX\SUBV For sparse tensors, The COO encoding stores a triple of values, indices,\n\
\ and shape.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\ETX\NUL\SOH\DC2\EOT\219\SOH\n\
\\DC3\n\
\\154\SOH\n\
\\ACK\EOT\STX\ETX\NUL\STX\NUL\DC2\EOT\222\SOH\EOT\"\SUB\137\SOH The shape of the values Tensor is [?]. Its dtype must be the dtype of\n\
\ the SparseTensor as a whole, given in the enclosing TensorInfo.\n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\NUL\STX\NUL\ENQ\DC2\EOT\222\SOH\EOT\n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\NUL\STX\NUL\SOH\DC2\EOT\222\SOH\v\GS\n\
\\SI\n\
\\a\EOT\STX\ETX\NUL\STX\NUL\ETX\DC2\EOT\222\SOH !\n\
\L\n\
\\ACK\EOT\STX\ETX\NUL\STX\SOH\DC2\EOT\225\SOH\EOT#\SUB< The indices Tensor must have dtype int64 and shape [?, ?].\n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\NUL\STX\SOH\ENQ\DC2\EOT\225\SOH\EOT\n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\NUL\STX\SOH\SOH\DC2\EOT\225\SOH\v\RS\n\
\\SI\n\
\\a\EOT\STX\ETX\NUL\STX\SOH\ETX\DC2\EOT\225\SOH!\"\n\
\\161\SOH\n\
\\ACK\EOT\STX\ETX\NUL\STX\STX\DC2\EOT\229\SOH\EOT'\SUB\144\SOH The dynamic logical shape represented by the SparseTensor is recorded in\n\
\ the Tensor referenced here. It must have dtype int64 and shape [?].\n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\NUL\STX\STX\ENQ\DC2\EOT\229\SOH\EOT\n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\NUL\STX\STX\SOH\DC2\EOT\229\SOH\v\"\n\
\\SI\n\
\\a\EOT\STX\ETX\NUL\STX\STX\ETX\DC2\EOT\229\SOH%&\n\
\9\n\
\\EOT\EOT\STX\ETX\SOH\DC2\ACK\233\SOH\STX\239\SOH\ETX\SUB) Generic encoding for composite tensors.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\ETX\SOH\SOH\DC2\EOT\233\SOH\n\
\\EM\n\
\C\n\
\\ACK\EOT\STX\ETX\SOH\STX\NUL\DC2\EOT\235\SOH\EOT \SUB3 The serialized TypeSpec for the composite tensor.\n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\SOH\STX\NUL\ACK\DC2\EOT\235\SOH\EOT\DC1\n\
\\SI\n\
\\a\EOT\STX\ETX\SOH\STX\NUL\SOH\DC2\EOT\235\SOH\DC2\ESC\n\
\\SI\n\
\\a\EOT\STX\ETX\SOH\STX\NUL\ETX\DC2\EOT\235\SOH\RS\US\n\
\C\n\
\\ACK\EOT\STX\ETX\SOH\STX\SOH\DC2\EOT\238\SOH\EOT'\SUB3 A TensorInfo for each flattened component tensor.\n\
\\n\
\\SI\n\
\\a\EOT\STX\ETX\SOH\STX\SOH\EOT\DC2\EOT\238\SOH\EOT\f\n\
\\SI\n\
\\a\EOT\STX\ETX\SOH\STX\SOH\ACK\DC2\EOT\238\SOH\r\ETB\n\
\\SI\n\
\\a\EOT\STX\ETX\SOH\STX\SOH\SOH\DC2\EOT\238\SOH\CAN\"\n\
\\SI\n\
\\a\EOT\STX\ETX\SOH\STX\SOH\ETX\DC2\EOT\238\SOH%&\n\
\\SO\n\
\\EOT\EOT\STX\b\NUL\DC2\ACK\241\SOH\STX\251\SOH\ETX\n\
\\r\n\
\\ENQ\EOT\STX\b\NUL\SOH\DC2\EOT\241\SOH\b\DLE\n\
\I\n\
\\EOT\EOT\STX\STX\NUL\DC2\EOT\243\SOH\EOT\DC4\SUB; For dense `Tensor`s, the name of the tensor in the graph.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\ENQ\DC2\EOT\243\SOH\EOT\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\EOT\243\SOH\v\SI\n\
\\r\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\EOT\243\SOH\DC2\DC3\n\
\\238\SOH\n\
\\EOT\EOT\STX\STX\SOH\DC2\EOT\248\SOH\EOT\GS\SUB\223\SOH There are many possible encodings of sparse matrices\n\
\ (https://en.wikipedia.org/wiki/Sparse_matrix). Currently, TensorFlow\n\
\ uses only the COO encoding. This is supported and documented in the\n\
\ SparseTensor Python class.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\SOH\ACK\DC2\EOT\248\SOH\EOT\r\n\
\\r\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\EOT\248\SOH\SO\CAN\n\
\\r\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\EOT\248\SOH\ESC\FS\n\
\6\n\
\\EOT\EOT\STX\STX\STX\DC2\EOT\250\SOH\EOT)\SUB( Generic encoding for CompositeTensors.\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\STX\ACK\DC2\EOT\250\SOH\EOT\DC3\n\
\\r\n\
\\ENQ\EOT\STX\STX\STX\SOH\DC2\EOT\250\SOH\DC4$\n\
\\r\n\
\\ENQ\EOT\STX\STX\STX\ETX\DC2\EOT\250\SOH'(\n\
\\f\n\
\\EOT\EOT\STX\STX\ETX\DC2\EOT\252\SOH\STX\NAK\n\
\\r\n\
\\ENQ\EOT\STX\STX\ETX\ACK\DC2\EOT\252\SOH\STX\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\ETX\SOH\DC2\EOT\252\SOH\v\DLE\n\
\\r\n\
\\ENQ\EOT\STX\STX\ETX\ETX\DC2\EOT\252\SOH\DC3\DC4\n\
\\223\SOH\n\
\\EOT\EOT\STX\STX\EOT\DC2\EOT\128\STX\STX$\SUB\208\SOH The static shape should be recorded here, to the extent that it can\n\
\ be known in advance. In the case of a SparseTensor, this field describes\n\
\ the logical shape of the represented tensor (aka dense_shape).\n\
\\n\
\\r\n\
\\ENQ\EOT\STX\STX\EOT\ACK\DC2\EOT\128\STX\STX\DC2\n\
\\r\n\
\\ENQ\EOT\STX\STX\EOT\SOH\DC2\EOT\128\STX\DC3\US\n\
\\r\n\
\\ENQ\EOT\STX\STX\EOT\ETX\DC2\EOT\128\STX\"#\n\
\\190\n\
\\n\
\\STX\EOT\ETX\DC2\ACK\188\STX\NUL\202\STX\SOH\SUB\175\n\
\ SignatureDef defines the signature of a computation supported by a TensorFlow\n\
\ graph.\n\
\\n\
\ For example, a model with two loss computations, sharing a single input,\n\
\ might have the following signature_def map.\n\
\\n\
\ Note that across the two SignatureDefs \"loss_A\" and \"loss_B\", the input key,\n\
\ output key, and method_name are identical, and will be used by system(s) that\n\
\ implement or rely upon this particular loss method. The output tensor names\n\
\ differ, demonstrating how different outputs can exist for the same method.\n\
\\n\
\ signature_def {\n\
\ key: \"loss_A\"\n\
\ value {\n\
\ inputs {\n\
\ key: \"input\"\n\
\ value {\n\
\ name: \"input:0\"\n\
\ dtype: DT_STRING\n\
\ tensor_shape: ...\n\
\ }\n\
\ }\n\
\ outputs {\n\
\ key: \"loss_output\"\n\
\ value {\n\
\ name: \"loss_output_A:0\"\n\
\ dtype: DT_FLOAT\n\
\ tensor_shape: ...\n\
\ }\n\
\ }\n\
\ }\n\
\ ...\n\
\ method_name: \"some/package/compute_loss\"\n\
\ }\n\
\ signature_def {\n\
\ key: \"loss_B\"\n\
\ value {\n\
\ inputs {\n\
\ key: \"input\"\n\
\ value {\n\
\ name: \"input:0\"\n\
\ dtype: DT_STRING\n\
\ tensor_shape: ...\n\
\ }\n\
\ }\n\
\ outputs {\n\
\ key: \"loss_output\"\n\
\ value {\n\
\ name: \"loss_output_B:0\"\n\
\ dtype: DT_FLOAT\n\
\ tensor_shape: ...\n\
\ }\n\
\ }\n\
\ }\n\
\ ...\n\
\ method_name: \"some/package/compute_loss\"\n\
\ }\n\
\\n\
\\v\n\
\\ETX\EOT\ETX\SOH\DC2\EOT\188\STX\b\DC4\n\
\'\n\
\\EOT\EOT\ETX\STX\NUL\DC2\EOT\190\STX\STX%\SUB\EM Named input parameters.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\ACK\DC2\EOT\190\STX\STX\EM\n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\EOT\190\STX\SUB \n\
\\r\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\EOT\190\STX#$\n\
\(\n\
\\EOT\EOT\ETX\STX\SOH\DC2\EOT\192\STX\STX&\SUB\SUB Named output parameters.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\SOH\ACK\DC2\EOT\192\STX\STX\EM\n\
\\r\n\
\\ENQ\EOT\ETX\STX\SOH\SOH\DC2\EOT\192\STX\SUB!\n\
\\r\n\
\\ENQ\EOT\ETX\STX\SOH\ETX\DC2\EOT\192\STX$%\n\
\\145\EOT\n\
\\EOT\EOT\ETX\STX\STX\DC2\EOT\201\STX\STX\EM\SUB\130\EOT Extensible method_name information enabling third-party users to mark a\n\
\ SignatureDef as supporting a particular method. This enables producers and\n\
\ consumers of SignatureDefs, e.g. a model definition library and a serving\n\
\ library to have a clear hand-off regarding the semantics of a computation.\n\
\\n\
\ Note that multiple SignatureDefs in a single MetaGraphDef may have the same\n\
\ method_name. This is commonly used to support multi-headed computation,\n\
\ where a single graph computation may return multiple results.\n\
\\n\
\\r\n\
\\ENQ\EOT\ETX\STX\STX\ENQ\DC2\EOT\201\STX\STX\b\n\
\\r\n\
\\ENQ\EOT\ETX\STX\STX\SOH\DC2\EOT\201\STX\t\DC4\n\
\\r\n\
\\ENQ\EOT\ETX\STX\STX\ETX\DC2\EOT\201\STX\ETB\CAN\n\
\b\n\
\\STX\EOT\EOT\DC2\ACK\206\STX\NUL\213\STX\SOH\SUBT An asset file def for a single file or a set of sharded files with the same\n\
\ name.\n\
\\n\
\\v\n\
\\ETX\EOT\EOT\SOH\DC2\EOT\206\STX\b\DC4\n\
\9\n\
\\EOT\EOT\EOT\STX\NUL\DC2\EOT\208\STX\STX\GS\SUB+ The tensor to bind the asset filename to.\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\ACK\DC2\EOT\208\STX\STX\f\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\SOH\DC2\EOT\208\STX\r\CAN\n\
\\r\n\
\\ENQ\EOT\EOT\STX\NUL\ETX\DC2\EOT\208\STX\ESC\FS\n\
\\189\SOH\n\
\\EOT\EOT\EOT\STX\SOH\DC2\EOT\212\STX\STX\SYN\SUB\174\SOH The filename within an assets directory. Note: does not include the path\n\
\ prefix, i.e. directories. For an asset at /tmp/path/vocab.txt, the filename\n\
\ would be \"vocab.txt\".\n\
\\n\
\\r\n\
\\ENQ\EOT\EOT\STX\SOH\ENQ\DC2\EOT\212\STX\STX\b\n\
\\r\n\
\\ENQ\EOT\EOT\STX\SOH\SOH\DC2\EOT\212\STX\t\DC1\n\
\\r\n\
\\ENQ\EOT\EOT\STX\SOH\ETX\DC2\EOT\212\STX\DC4\NAKb\ACKproto3"