{-# 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.Framework.Tensor (
TensorProto(), VariantTensorDataProto()
) where
import qualified Data.ProtoLens.Runtime.Control.DeepSeq as Control.DeepSeq
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Prism as Data.ProtoLens.Prism
import qualified Data.ProtoLens.Runtime.Prelude as Prelude
import qualified Data.ProtoLens.Runtime.Data.Int as Data.Int
import qualified Data.ProtoLens.Runtime.Data.Monoid as Data.Monoid
import qualified Data.ProtoLens.Runtime.Data.Word as Data.Word
import qualified Data.ProtoLens.Runtime.Data.ProtoLens as Data.ProtoLens
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Bytes as Data.ProtoLens.Encoding.Bytes
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Growing as Data.ProtoLens.Encoding.Growing
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Parser.Unsafe as Data.ProtoLens.Encoding.Parser.Unsafe
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Encoding.Wire as Data.ProtoLens.Encoding.Wire
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Field as Data.ProtoLens.Field
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Message.Enum as Data.ProtoLens.Message.Enum
import qualified Data.ProtoLens.Runtime.Data.ProtoLens.Service.Types as Data.ProtoLens.Service.Types
import qualified Data.ProtoLens.Runtime.Lens.Family2 as Lens.Family2
import qualified Data.ProtoLens.Runtime.Lens.Family2.Unchecked as Lens.Family2.Unchecked
import qualified Data.ProtoLens.Runtime.Data.Text as Data.Text
import qualified Data.ProtoLens.Runtime.Data.Map as Data.Map
import qualified Data.ProtoLens.Runtime.Data.ByteString as Data.ByteString
import qualified Data.ProtoLens.Runtime.Data.ByteString.Char8 as Data.ByteString.Char8
import qualified Data.ProtoLens.Runtime.Data.Text.Encoding as Data.Text.Encoding
import qualified Data.ProtoLens.Runtime.Data.Vector as Data.Vector
import qualified Data.ProtoLens.Runtime.Data.Vector.Generic as Data.Vector.Generic
import qualified Data.ProtoLens.Runtime.Data.Vector.Unboxed as Data.Vector.Unboxed
import qualified Data.ProtoLens.Runtime.Text.Read as Text.Read
import qualified Proto.Tensorflow.Core.Framework.ResourceHandle
import qualified Proto.Tensorflow.Core.Framework.TensorShape
import qualified Proto.Tensorflow.Core.Framework.Types
data TensorProto
= TensorProto'_constructor {TensorProto -> DataType
_TensorProto'dtype :: !Proto.Tensorflow.Core.Framework.Types.DataType,
TensorProto -> Maybe TensorShapeProto
_TensorProto'tensorShape :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto),
TensorProto -> Int32
_TensorProto'versionNumber :: !Data.Int.Int32,
TensorProto -> ByteString
_TensorProto'tensorContent :: !Data.ByteString.ByteString,
TensorProto -> Vector Int32
_TensorProto'halfVal :: !(Data.Vector.Unboxed.Vector Data.Int.Int32),
TensorProto -> Vector Float
_TensorProto'floatVal :: !(Data.Vector.Unboxed.Vector Prelude.Float),
TensorProto -> Vector Double
_TensorProto'doubleVal :: !(Data.Vector.Unboxed.Vector Prelude.Double),
TensorProto -> Vector Int32
_TensorProto'intVal :: !(Data.Vector.Unboxed.Vector Data.Int.Int32),
TensorProto -> Vector ByteString
_TensorProto'stringVal :: !(Data.Vector.Vector Data.ByteString.ByteString),
TensorProto -> Vector Float
_TensorProto'scomplexVal :: !(Data.Vector.Unboxed.Vector Prelude.Float),
TensorProto -> Vector Int64
_TensorProto'int64Val :: !(Data.Vector.Unboxed.Vector Data.Int.Int64),
TensorProto -> Vector Bool
_TensorProto'boolVal :: !(Data.Vector.Unboxed.Vector Prelude.Bool),
TensorProto -> Vector Double
_TensorProto'dcomplexVal :: !(Data.Vector.Unboxed.Vector Prelude.Double),
TensorProto -> Vector ResourceHandleProto
_TensorProto'resourceHandleVal :: !(Data.Vector.Vector Proto.Tensorflow.Core.Framework.ResourceHandle.ResourceHandleProto),
TensorProto -> Vector VariantTensorDataProto
_TensorProto'variantVal :: !(Data.Vector.Vector VariantTensorDataProto),
TensorProto -> Vector Word32
_TensorProto'uint32Val :: !(Data.Vector.Unboxed.Vector Data.Word.Word32),
TensorProto -> Vector Word64
_TensorProto'uint64Val :: !(Data.Vector.Unboxed.Vector Data.Word.Word64),
TensorProto -> FieldSet
_TensorProto'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (TensorProto -> TensorProto -> Bool
(TensorProto -> TensorProto -> Bool)
-> (TensorProto -> TensorProto -> Bool) -> Eq TensorProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TensorProto -> TensorProto -> Bool
$c/= :: TensorProto -> TensorProto -> Bool
== :: TensorProto -> TensorProto -> Bool
$c== :: TensorProto -> TensorProto -> Bool
Prelude.Eq, Eq TensorProto
Eq TensorProto =>
(TensorProto -> TensorProto -> Ordering)
-> (TensorProto -> TensorProto -> Bool)
-> (TensorProto -> TensorProto -> Bool)
-> (TensorProto -> TensorProto -> Bool)
-> (TensorProto -> TensorProto -> Bool)
-> (TensorProto -> TensorProto -> TensorProto)
-> (TensorProto -> TensorProto -> TensorProto)
-> Ord TensorProto
TensorProto -> TensorProto -> Bool
TensorProto -> TensorProto -> Ordering
TensorProto -> TensorProto -> TensorProto
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 :: TensorProto -> TensorProto -> TensorProto
$cmin :: TensorProto -> TensorProto -> TensorProto
max :: TensorProto -> TensorProto -> TensorProto
$cmax :: TensorProto -> TensorProto -> TensorProto
>= :: TensorProto -> TensorProto -> Bool
$c>= :: TensorProto -> TensorProto -> Bool
> :: TensorProto -> TensorProto -> Bool
$c> :: TensorProto -> TensorProto -> Bool
<= :: TensorProto -> TensorProto -> Bool
$c<= :: TensorProto -> TensorProto -> Bool
< :: TensorProto -> TensorProto -> Bool
$c< :: TensorProto -> TensorProto -> Bool
compare :: TensorProto -> TensorProto -> Ordering
$ccompare :: TensorProto -> TensorProto -> Ordering
$cp1Ord :: Eq TensorProto
Prelude.Ord)
instance Prelude.Show TensorProto where
showsPrec :: Int -> TensorProto -> ShowS
showsPrec _ __x :: TensorProto
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(TensorProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort TensorProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField TensorProto "dtype" Proto.Tensorflow.Core.Framework.Types.DataType where
fieldOf :: Proxy# "dtype"
-> (DataType -> f DataType) -> TensorProto -> f TensorProto
fieldOf _
= ((DataType -> f DataType) -> TensorProto -> f TensorProto)
-> ((DataType -> f DataType) -> DataType -> f DataType)
-> (DataType -> f DataType)
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> DataType)
-> (TensorProto -> DataType -> TensorProto)
-> Lens TensorProto TensorProto DataType DataType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> DataType
_TensorProto'dtype (\ x__ :: TensorProto
x__ y__ :: DataType
y__ -> TensorProto
x__ {_TensorProto'dtype :: DataType
_TensorProto'dtype = DataType
y__}))
(DataType -> f DataType) -> DataType -> f DataType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorProto "tensorShape" Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto where
fieldOf :: Proxy# "tensorShape"
-> (TensorShapeProto -> f TensorShapeProto)
-> TensorProto
-> f TensorProto
fieldOf _
= ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> TensorProto -> f TensorProto)
-> ((TensorShapeProto -> f TensorShapeProto)
-> Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> (TensorShapeProto -> f TensorShapeProto)
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Maybe TensorShapeProto)
-> (TensorProto -> Maybe TensorShapeProto -> TensorProto)
-> Lens
TensorProto
TensorProto
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Maybe TensorShapeProto
_TensorProto'tensorShape
(\ x__ :: TensorProto
x__ y__ :: Maybe TensorShapeProto
y__ -> TensorProto
x__ {_TensorProto'tensorShape :: Maybe TensorShapeProto
_TensorProto'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 TensorProto "maybe'tensorShape" (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) where
fieldOf :: Proxy# "maybe'tensorShape"
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> TensorProto
-> f TensorProto
fieldOf _
= ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> TensorProto -> f TensorProto)
-> ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Maybe TensorShapeProto)
-> (TensorProto -> Maybe TensorShapeProto -> TensorProto)
-> Lens
TensorProto
TensorProto
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Maybe TensorShapeProto
_TensorProto'tensorShape
(\ x__ :: TensorProto
x__ y__ :: Maybe TensorShapeProto
y__ -> TensorProto
x__ {_TensorProto'tensorShape :: Maybe TensorShapeProto
_TensorProto'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 TensorProto "versionNumber" Data.Int.Int32 where
fieldOf :: Proxy# "versionNumber"
-> (Int32 -> f Int32) -> TensorProto -> f TensorProto
fieldOf _
= ((Int32 -> f Int32) -> TensorProto -> f TensorProto)
-> ((Int32 -> f Int32) -> Int32 -> f Int32)
-> (Int32 -> f Int32)
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Int32)
-> (TensorProto -> Int32 -> TensorProto)
-> Lens TensorProto TensorProto Int32 Int32
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Int32
_TensorProto'versionNumber
(\ x__ :: TensorProto
x__ y__ :: Int32
y__ -> TensorProto
x__ {_TensorProto'versionNumber :: Int32
_TensorProto'versionNumber = Int32
y__}))
(Int32 -> f Int32) -> Int32 -> f Int32
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorProto "tensorContent" Data.ByteString.ByteString where
fieldOf :: Proxy# "tensorContent"
-> (ByteString -> f ByteString) -> TensorProto -> f TensorProto
fieldOf _
= ((ByteString -> f ByteString) -> TensorProto -> f TensorProto)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> ByteString)
-> (TensorProto -> ByteString -> TensorProto)
-> Lens TensorProto TensorProto ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> ByteString
_TensorProto'tensorContent
(\ x__ :: TensorProto
x__ y__ :: ByteString
y__ -> TensorProto
x__ {_TensorProto'tensorContent :: ByteString
_TensorProto'tensorContent = ByteString
y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorProto "halfVal" [Data.Int.Int32] where
fieldOf :: Proxy# "halfVal"
-> ([Int32] -> f [Int32]) -> TensorProto -> f TensorProto
fieldOf _
= ((Vector Int32 -> f (Vector Int32))
-> TensorProto -> f TensorProto)
-> (([Int32] -> f [Int32]) -> Vector Int32 -> f (Vector Int32))
-> ([Int32] -> f [Int32])
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Int32)
-> (TensorProto -> Vector Int32 -> TensorProto)
-> Lens TensorProto TensorProto (Vector Int32) (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Int32
_TensorProto'halfVal
(\ x__ :: TensorProto
x__ y__ :: Vector Int32
y__ -> TensorProto
x__ {_TensorProto'halfVal :: Vector Int32
_TensorProto'halfVal = Vector Int32
y__}))
((Vector Int32 -> [Int32])
-> (Vector Int32 -> [Int32] -> Vector Int32)
-> Lens (Vector Int32) (Vector Int32) [Int32] [Int32]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Int32 -> [Int32]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Int32]
y__ -> [Int32] -> Vector Int32
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int32]
y__))
instance Data.ProtoLens.Field.HasField TensorProto "vec'halfVal" (Data.Vector.Unboxed.Vector Data.Int.Int32) where
fieldOf :: Proxy# "vec'halfVal"
-> (Vector Int32 -> f (Vector Int32))
-> TensorProto
-> f TensorProto
fieldOf _
= ((Vector Int32 -> f (Vector Int32))
-> TensorProto -> f TensorProto)
-> ((Vector Int32 -> f (Vector Int32))
-> Vector Int32 -> f (Vector Int32))
-> (Vector Int32 -> f (Vector Int32))
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Int32)
-> (TensorProto -> Vector Int32 -> TensorProto)
-> Lens TensorProto TensorProto (Vector Int32) (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Int32
_TensorProto'halfVal
(\ x__ :: TensorProto
x__ y__ :: Vector Int32
y__ -> TensorProto
x__ {_TensorProto'halfVal :: Vector Int32
_TensorProto'halfVal = Vector Int32
y__}))
(Vector Int32 -> f (Vector Int32))
-> Vector Int32 -> f (Vector Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorProto "floatVal" [Prelude.Float] where
fieldOf :: Proxy# "floatVal"
-> ([Float] -> f [Float]) -> TensorProto -> f TensorProto
fieldOf _
= ((Vector Float -> f (Vector Float))
-> TensorProto -> f TensorProto)
-> (([Float] -> f [Float]) -> Vector Float -> f (Vector Float))
-> ([Float] -> f [Float])
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Float)
-> (TensorProto -> Vector Float -> TensorProto)
-> Lens TensorProto TensorProto (Vector Float) (Vector Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Float
_TensorProto'floatVal
(\ x__ :: TensorProto
x__ y__ :: Vector Float
y__ -> TensorProto
x__ {_TensorProto'floatVal :: Vector Float
_TensorProto'floatVal = 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 TensorProto "vec'floatVal" (Data.Vector.Unboxed.Vector Prelude.Float) where
fieldOf :: Proxy# "vec'floatVal"
-> (Vector Float -> f (Vector Float))
-> TensorProto
-> f TensorProto
fieldOf _
= ((Vector Float -> f (Vector Float))
-> TensorProto -> f TensorProto)
-> ((Vector Float -> f (Vector Float))
-> Vector Float -> f (Vector Float))
-> (Vector Float -> f (Vector Float))
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Float)
-> (TensorProto -> Vector Float -> TensorProto)
-> Lens TensorProto TensorProto (Vector Float) (Vector Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Float
_TensorProto'floatVal
(\ x__ :: TensorProto
x__ y__ :: Vector Float
y__ -> TensorProto
x__ {_TensorProto'floatVal :: Vector Float
_TensorProto'floatVal = Vector Float
y__}))
(Vector Float -> f (Vector Float))
-> Vector Float -> f (Vector Float)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorProto "doubleVal" [Prelude.Double] where
fieldOf :: Proxy# "doubleVal"
-> ([Double] -> f [Double]) -> TensorProto -> f TensorProto
fieldOf _
= ((Vector Double -> f (Vector Double))
-> TensorProto -> f TensorProto)
-> (([Double] -> f [Double]) -> Vector Double -> f (Vector Double))
-> ([Double] -> f [Double])
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Double)
-> (TensorProto -> Vector Double -> TensorProto)
-> Lens TensorProto TensorProto (Vector Double) (Vector Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Double
_TensorProto'doubleVal
(\ x__ :: TensorProto
x__ y__ :: Vector Double
y__ -> TensorProto
x__ {_TensorProto'doubleVal :: Vector Double
_TensorProto'doubleVal = Vector Double
y__}))
((Vector Double -> [Double])
-> (Vector Double -> [Double] -> Vector Double)
-> Lens (Vector Double) (Vector Double) [Double] [Double]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Double -> [Double]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Double]
y__ -> [Double] -> Vector Double
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Double]
y__))
instance Data.ProtoLens.Field.HasField TensorProto "vec'doubleVal" (Data.Vector.Unboxed.Vector Prelude.Double) where
fieldOf :: Proxy# "vec'doubleVal"
-> (Vector Double -> f (Vector Double))
-> TensorProto
-> f TensorProto
fieldOf _
= ((Vector Double -> f (Vector Double))
-> TensorProto -> f TensorProto)
-> ((Vector Double -> f (Vector Double))
-> Vector Double -> f (Vector Double))
-> (Vector Double -> f (Vector Double))
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Double)
-> (TensorProto -> Vector Double -> TensorProto)
-> Lens TensorProto TensorProto (Vector Double) (Vector Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Double
_TensorProto'doubleVal
(\ x__ :: TensorProto
x__ y__ :: Vector Double
y__ -> TensorProto
x__ {_TensorProto'doubleVal :: Vector Double
_TensorProto'doubleVal = Vector Double
y__}))
(Vector Double -> f (Vector Double))
-> Vector Double -> f (Vector Double)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorProto "intVal" [Data.Int.Int32] where
fieldOf :: Proxy# "intVal"
-> ([Int32] -> f [Int32]) -> TensorProto -> f TensorProto
fieldOf _
= ((Vector Int32 -> f (Vector Int32))
-> TensorProto -> f TensorProto)
-> (([Int32] -> f [Int32]) -> Vector Int32 -> f (Vector Int32))
-> ([Int32] -> f [Int32])
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Int32)
-> (TensorProto -> Vector Int32 -> TensorProto)
-> Lens TensorProto TensorProto (Vector Int32) (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Int32
_TensorProto'intVal (\ x__ :: TensorProto
x__ y__ :: Vector Int32
y__ -> TensorProto
x__ {_TensorProto'intVal :: Vector Int32
_TensorProto'intVal = Vector Int32
y__}))
((Vector Int32 -> [Int32])
-> (Vector Int32 -> [Int32] -> Vector Int32)
-> Lens (Vector Int32) (Vector Int32) [Int32] [Int32]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Int32 -> [Int32]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Int32]
y__ -> [Int32] -> Vector Int32
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Int32]
y__))
instance Data.ProtoLens.Field.HasField TensorProto "vec'intVal" (Data.Vector.Unboxed.Vector Data.Int.Int32) where
fieldOf :: Proxy# "vec'intVal"
-> (Vector Int32 -> f (Vector Int32))
-> TensorProto
-> f TensorProto
fieldOf _
= ((Vector Int32 -> f (Vector Int32))
-> TensorProto -> f TensorProto)
-> ((Vector Int32 -> f (Vector Int32))
-> Vector Int32 -> f (Vector Int32))
-> (Vector Int32 -> f (Vector Int32))
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Int32)
-> (TensorProto -> Vector Int32 -> TensorProto)
-> Lens TensorProto TensorProto (Vector Int32) (Vector Int32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Int32
_TensorProto'intVal (\ x__ :: TensorProto
x__ y__ :: Vector Int32
y__ -> TensorProto
x__ {_TensorProto'intVal :: Vector Int32
_TensorProto'intVal = Vector Int32
y__}))
(Vector Int32 -> f (Vector Int32))
-> Vector Int32 -> f (Vector Int32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorProto "stringVal" [Data.ByteString.ByteString] where
fieldOf :: Proxy# "stringVal"
-> ([ByteString] -> f [ByteString]) -> TensorProto -> f TensorProto
fieldOf _
= ((Vector ByteString -> f (Vector ByteString))
-> TensorProto -> f TensorProto)
-> (([ByteString] -> f [ByteString])
-> Vector ByteString -> f (Vector ByteString))
-> ([ByteString] -> f [ByteString])
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector ByteString)
-> (TensorProto -> Vector ByteString -> TensorProto)
-> Lens
TensorProto TensorProto (Vector ByteString) (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector ByteString
_TensorProto'stringVal
(\ x__ :: TensorProto
x__ y__ :: Vector ByteString
y__ -> TensorProto
x__ {_TensorProto'stringVal :: Vector ByteString
_TensorProto'stringVal = 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 TensorProto "vec'stringVal" (Data.Vector.Vector Data.ByteString.ByteString) where
fieldOf :: Proxy# "vec'stringVal"
-> (Vector ByteString -> f (Vector ByteString))
-> TensorProto
-> f TensorProto
fieldOf _
= ((Vector ByteString -> f (Vector ByteString))
-> TensorProto -> f TensorProto)
-> ((Vector ByteString -> f (Vector ByteString))
-> Vector ByteString -> f (Vector ByteString))
-> (Vector ByteString -> f (Vector ByteString))
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector ByteString)
-> (TensorProto -> Vector ByteString -> TensorProto)
-> Lens
TensorProto TensorProto (Vector ByteString) (Vector ByteString)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector ByteString
_TensorProto'stringVal
(\ x__ :: TensorProto
x__ y__ :: Vector ByteString
y__ -> TensorProto
x__ {_TensorProto'stringVal :: Vector ByteString
_TensorProto'stringVal = Vector ByteString
y__}))
(Vector ByteString -> f (Vector ByteString))
-> Vector ByteString -> f (Vector ByteString)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorProto "scomplexVal" [Prelude.Float] where
fieldOf :: Proxy# "scomplexVal"
-> ([Float] -> f [Float]) -> TensorProto -> f TensorProto
fieldOf _
= ((Vector Float -> f (Vector Float))
-> TensorProto -> f TensorProto)
-> (([Float] -> f [Float]) -> Vector Float -> f (Vector Float))
-> ([Float] -> f [Float])
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Float)
-> (TensorProto -> Vector Float -> TensorProto)
-> Lens TensorProto TensorProto (Vector Float) (Vector Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Float
_TensorProto'scomplexVal
(\ x__ :: TensorProto
x__ y__ :: Vector Float
y__ -> TensorProto
x__ {_TensorProto'scomplexVal :: Vector Float
_TensorProto'scomplexVal = 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 TensorProto "vec'scomplexVal" (Data.Vector.Unboxed.Vector Prelude.Float) where
fieldOf :: Proxy# "vec'scomplexVal"
-> (Vector Float -> f (Vector Float))
-> TensorProto
-> f TensorProto
fieldOf _
= ((Vector Float -> f (Vector Float))
-> TensorProto -> f TensorProto)
-> ((Vector Float -> f (Vector Float))
-> Vector Float -> f (Vector Float))
-> (Vector Float -> f (Vector Float))
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Float)
-> (TensorProto -> Vector Float -> TensorProto)
-> Lens TensorProto TensorProto (Vector Float) (Vector Float)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Float
_TensorProto'scomplexVal
(\ x__ :: TensorProto
x__ y__ :: Vector Float
y__ -> TensorProto
x__ {_TensorProto'scomplexVal :: Vector Float
_TensorProto'scomplexVal = Vector Float
y__}))
(Vector Float -> f (Vector Float))
-> Vector Float -> f (Vector Float)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorProto "int64Val" [Data.Int.Int64] where
fieldOf :: Proxy# "int64Val"
-> ([Int64] -> f [Int64]) -> TensorProto -> f TensorProto
fieldOf _
= ((Vector Int64 -> f (Vector Int64))
-> TensorProto -> f TensorProto)
-> (([Int64] -> f [Int64]) -> Vector Int64 -> f (Vector Int64))
-> ([Int64] -> f [Int64])
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Int64)
-> (TensorProto -> Vector Int64 -> TensorProto)
-> Lens TensorProto TensorProto (Vector Int64) (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Int64
_TensorProto'int64Val
(\ x__ :: TensorProto
x__ y__ :: Vector Int64
y__ -> TensorProto
x__ {_TensorProto'int64Val :: Vector Int64
_TensorProto'int64Val = 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 TensorProto "vec'int64Val" (Data.Vector.Unboxed.Vector Data.Int.Int64) where
fieldOf :: Proxy# "vec'int64Val"
-> (Vector Int64 -> f (Vector Int64))
-> TensorProto
-> f TensorProto
fieldOf _
= ((Vector Int64 -> f (Vector Int64))
-> TensorProto -> f TensorProto)
-> ((Vector Int64 -> f (Vector Int64))
-> Vector Int64 -> f (Vector Int64))
-> (Vector Int64 -> f (Vector Int64))
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Int64)
-> (TensorProto -> Vector Int64 -> TensorProto)
-> Lens TensorProto TensorProto (Vector Int64) (Vector Int64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Int64
_TensorProto'int64Val
(\ x__ :: TensorProto
x__ y__ :: Vector Int64
y__ -> TensorProto
x__ {_TensorProto'int64Val :: Vector Int64
_TensorProto'int64Val = Vector Int64
y__}))
(Vector Int64 -> f (Vector Int64))
-> Vector Int64 -> f (Vector Int64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorProto "boolVal" [Prelude.Bool] where
fieldOf :: Proxy# "boolVal"
-> ([Bool] -> f [Bool]) -> TensorProto -> f TensorProto
fieldOf _
= ((Vector Bool -> f (Vector Bool)) -> TensorProto -> f TensorProto)
-> (([Bool] -> f [Bool]) -> Vector Bool -> f (Vector Bool))
-> ([Bool] -> f [Bool])
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Bool)
-> (TensorProto -> Vector Bool -> TensorProto)
-> Lens TensorProto TensorProto (Vector Bool) (Vector Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Bool
_TensorProto'boolVal
(\ x__ :: TensorProto
x__ y__ :: Vector Bool
y__ -> TensorProto
x__ {_TensorProto'boolVal :: Vector Bool
_TensorProto'boolVal = Vector Bool
y__}))
((Vector Bool -> [Bool])
-> (Vector Bool -> [Bool] -> Vector Bool)
-> Lens (Vector Bool) (Vector Bool) [Bool] [Bool]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Bool -> [Bool]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Bool]
y__ -> [Bool] -> Vector Bool
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Bool]
y__))
instance Data.ProtoLens.Field.HasField TensorProto "vec'boolVal" (Data.Vector.Unboxed.Vector Prelude.Bool) where
fieldOf :: Proxy# "vec'boolVal"
-> (Vector Bool -> f (Vector Bool)) -> TensorProto -> f TensorProto
fieldOf _
= ((Vector Bool -> f (Vector Bool)) -> TensorProto -> f TensorProto)
-> ((Vector Bool -> f (Vector Bool))
-> Vector Bool -> f (Vector Bool))
-> (Vector Bool -> f (Vector Bool))
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Bool)
-> (TensorProto -> Vector Bool -> TensorProto)
-> Lens TensorProto TensorProto (Vector Bool) (Vector Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Bool
_TensorProto'boolVal
(\ x__ :: TensorProto
x__ y__ :: Vector Bool
y__ -> TensorProto
x__ {_TensorProto'boolVal :: Vector Bool
_TensorProto'boolVal = Vector Bool
y__}))
(Vector Bool -> f (Vector Bool)) -> Vector Bool -> f (Vector Bool)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorProto "dcomplexVal" [Prelude.Double] where
fieldOf :: Proxy# "dcomplexVal"
-> ([Double] -> f [Double]) -> TensorProto -> f TensorProto
fieldOf _
= ((Vector Double -> f (Vector Double))
-> TensorProto -> f TensorProto)
-> (([Double] -> f [Double]) -> Vector Double -> f (Vector Double))
-> ([Double] -> f [Double])
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Double)
-> (TensorProto -> Vector Double -> TensorProto)
-> Lens TensorProto TensorProto (Vector Double) (Vector Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Double
_TensorProto'dcomplexVal
(\ x__ :: TensorProto
x__ y__ :: Vector Double
y__ -> TensorProto
x__ {_TensorProto'dcomplexVal :: Vector Double
_TensorProto'dcomplexVal = Vector Double
y__}))
((Vector Double -> [Double])
-> (Vector Double -> [Double] -> Vector Double)
-> Lens (Vector Double) (Vector Double) [Double] [Double]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Double -> [Double]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Double]
y__ -> [Double] -> Vector Double
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Double]
y__))
instance Data.ProtoLens.Field.HasField TensorProto "vec'dcomplexVal" (Data.Vector.Unboxed.Vector Prelude.Double) where
fieldOf :: Proxy# "vec'dcomplexVal"
-> (Vector Double -> f (Vector Double))
-> TensorProto
-> f TensorProto
fieldOf _
= ((Vector Double -> f (Vector Double))
-> TensorProto -> f TensorProto)
-> ((Vector Double -> f (Vector Double))
-> Vector Double -> f (Vector Double))
-> (Vector Double -> f (Vector Double))
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Double)
-> (TensorProto -> Vector Double -> TensorProto)
-> Lens TensorProto TensorProto (Vector Double) (Vector Double)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Double
_TensorProto'dcomplexVal
(\ x__ :: TensorProto
x__ y__ :: Vector Double
y__ -> TensorProto
x__ {_TensorProto'dcomplexVal :: Vector Double
_TensorProto'dcomplexVal = Vector Double
y__}))
(Vector Double -> f (Vector Double))
-> Vector Double -> f (Vector Double)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorProto "resourceHandleVal" [Proto.Tensorflow.Core.Framework.ResourceHandle.ResourceHandleProto] where
fieldOf :: Proxy# "resourceHandleVal"
-> ([ResourceHandleProto] -> f [ResourceHandleProto])
-> TensorProto
-> f TensorProto
fieldOf _
= ((Vector ResourceHandleProto -> f (Vector ResourceHandleProto))
-> TensorProto -> f TensorProto)
-> (([ResourceHandleProto] -> f [ResourceHandleProto])
-> Vector ResourceHandleProto -> f (Vector ResourceHandleProto))
-> ([ResourceHandleProto] -> f [ResourceHandleProto])
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector ResourceHandleProto)
-> (TensorProto -> Vector ResourceHandleProto -> TensorProto)
-> Lens
TensorProto
TensorProto
(Vector ResourceHandleProto)
(Vector ResourceHandleProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector ResourceHandleProto
_TensorProto'resourceHandleVal
(\ x__ :: TensorProto
x__ y__ :: Vector ResourceHandleProto
y__ -> TensorProto
x__ {_TensorProto'resourceHandleVal :: Vector ResourceHandleProto
_TensorProto'resourceHandleVal = Vector ResourceHandleProto
y__}))
((Vector ResourceHandleProto -> [ResourceHandleProto])
-> (Vector ResourceHandleProto
-> [ResourceHandleProto] -> Vector ResourceHandleProto)
-> Lens
(Vector ResourceHandleProto)
(Vector ResourceHandleProto)
[ResourceHandleProto]
[ResourceHandleProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector ResourceHandleProto -> [ResourceHandleProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [ResourceHandleProto]
y__ -> [ResourceHandleProto] -> Vector ResourceHandleProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [ResourceHandleProto]
y__))
instance Data.ProtoLens.Field.HasField TensorProto "vec'resourceHandleVal" (Data.Vector.Vector Proto.Tensorflow.Core.Framework.ResourceHandle.ResourceHandleProto) where
fieldOf :: Proxy# "vec'resourceHandleVal"
-> (Vector ResourceHandleProto -> f (Vector ResourceHandleProto))
-> TensorProto
-> f TensorProto
fieldOf _
= ((Vector ResourceHandleProto -> f (Vector ResourceHandleProto))
-> TensorProto -> f TensorProto)
-> ((Vector ResourceHandleProto -> f (Vector ResourceHandleProto))
-> Vector ResourceHandleProto -> f (Vector ResourceHandleProto))
-> (Vector ResourceHandleProto -> f (Vector ResourceHandleProto))
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector ResourceHandleProto)
-> (TensorProto -> Vector ResourceHandleProto -> TensorProto)
-> Lens
TensorProto
TensorProto
(Vector ResourceHandleProto)
(Vector ResourceHandleProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector ResourceHandleProto
_TensorProto'resourceHandleVal
(\ x__ :: TensorProto
x__ y__ :: Vector ResourceHandleProto
y__ -> TensorProto
x__ {_TensorProto'resourceHandleVal :: Vector ResourceHandleProto
_TensorProto'resourceHandleVal = Vector ResourceHandleProto
y__}))
(Vector ResourceHandleProto -> f (Vector ResourceHandleProto))
-> Vector ResourceHandleProto -> f (Vector ResourceHandleProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorProto "variantVal" [VariantTensorDataProto] where
fieldOf :: Proxy# "variantVal"
-> ([VariantTensorDataProto] -> f [VariantTensorDataProto])
-> TensorProto
-> f TensorProto
fieldOf _
= ((Vector VariantTensorDataProto
-> f (Vector VariantTensorDataProto))
-> TensorProto -> f TensorProto)
-> (([VariantTensorDataProto] -> f [VariantTensorDataProto])
-> Vector VariantTensorDataProto
-> f (Vector VariantTensorDataProto))
-> ([VariantTensorDataProto] -> f [VariantTensorDataProto])
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector VariantTensorDataProto)
-> (TensorProto -> Vector VariantTensorDataProto -> TensorProto)
-> Lens
TensorProto
TensorProto
(Vector VariantTensorDataProto)
(Vector VariantTensorDataProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector VariantTensorDataProto
_TensorProto'variantVal
(\ x__ :: TensorProto
x__ y__ :: Vector VariantTensorDataProto
y__ -> TensorProto
x__ {_TensorProto'variantVal :: Vector VariantTensorDataProto
_TensorProto'variantVal = Vector VariantTensorDataProto
y__}))
((Vector VariantTensorDataProto -> [VariantTensorDataProto])
-> (Vector VariantTensorDataProto
-> [VariantTensorDataProto] -> Vector VariantTensorDataProto)
-> Lens
(Vector VariantTensorDataProto)
(Vector VariantTensorDataProto)
[VariantTensorDataProto]
[VariantTensorDataProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector VariantTensorDataProto -> [VariantTensorDataProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [VariantTensorDataProto]
y__ -> [VariantTensorDataProto] -> Vector VariantTensorDataProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [VariantTensorDataProto]
y__))
instance Data.ProtoLens.Field.HasField TensorProto "vec'variantVal" (Data.Vector.Vector VariantTensorDataProto) where
fieldOf :: Proxy# "vec'variantVal"
-> (Vector VariantTensorDataProto
-> f (Vector VariantTensorDataProto))
-> TensorProto
-> f TensorProto
fieldOf _
= ((Vector VariantTensorDataProto
-> f (Vector VariantTensorDataProto))
-> TensorProto -> f TensorProto)
-> ((Vector VariantTensorDataProto
-> f (Vector VariantTensorDataProto))
-> Vector VariantTensorDataProto
-> f (Vector VariantTensorDataProto))
-> (Vector VariantTensorDataProto
-> f (Vector VariantTensorDataProto))
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector VariantTensorDataProto)
-> (TensorProto -> Vector VariantTensorDataProto -> TensorProto)
-> Lens
TensorProto
TensorProto
(Vector VariantTensorDataProto)
(Vector VariantTensorDataProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector VariantTensorDataProto
_TensorProto'variantVal
(\ x__ :: TensorProto
x__ y__ :: Vector VariantTensorDataProto
y__ -> TensorProto
x__ {_TensorProto'variantVal :: Vector VariantTensorDataProto
_TensorProto'variantVal = Vector VariantTensorDataProto
y__}))
(Vector VariantTensorDataProto
-> f (Vector VariantTensorDataProto))
-> Vector VariantTensorDataProto
-> f (Vector VariantTensorDataProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorProto "uint32Val" [Data.Word.Word32] where
fieldOf :: Proxy# "uint32Val"
-> ([Word32] -> f [Word32]) -> TensorProto -> f TensorProto
fieldOf _
= ((Vector Word32 -> f (Vector Word32))
-> TensorProto -> f TensorProto)
-> (([Word32] -> f [Word32]) -> Vector Word32 -> f (Vector Word32))
-> ([Word32] -> f [Word32])
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Word32)
-> (TensorProto -> Vector Word32 -> TensorProto)
-> Lens TensorProto TensorProto (Vector Word32) (Vector Word32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Word32
_TensorProto'uint32Val
(\ x__ :: TensorProto
x__ y__ :: Vector Word32
y__ -> TensorProto
x__ {_TensorProto'uint32Val :: Vector Word32
_TensorProto'uint32Val = Vector Word32
y__}))
((Vector Word32 -> [Word32])
-> (Vector Word32 -> [Word32] -> Vector Word32)
-> Lens (Vector Word32) (Vector Word32) [Word32] [Word32]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Word32 -> [Word32]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Word32]
y__ -> [Word32] -> Vector Word32
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Word32]
y__))
instance Data.ProtoLens.Field.HasField TensorProto "vec'uint32Val" (Data.Vector.Unboxed.Vector Data.Word.Word32) where
fieldOf :: Proxy# "vec'uint32Val"
-> (Vector Word32 -> f (Vector Word32))
-> TensorProto
-> f TensorProto
fieldOf _
= ((Vector Word32 -> f (Vector Word32))
-> TensorProto -> f TensorProto)
-> ((Vector Word32 -> f (Vector Word32))
-> Vector Word32 -> f (Vector Word32))
-> (Vector Word32 -> f (Vector Word32))
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Word32)
-> (TensorProto -> Vector Word32 -> TensorProto)
-> Lens TensorProto TensorProto (Vector Word32) (Vector Word32)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Word32
_TensorProto'uint32Val
(\ x__ :: TensorProto
x__ y__ :: Vector Word32
y__ -> TensorProto
x__ {_TensorProto'uint32Val :: Vector Word32
_TensorProto'uint32Val = Vector Word32
y__}))
(Vector Word32 -> f (Vector Word32))
-> Vector Word32 -> f (Vector Word32)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField TensorProto "uint64Val" [Data.Word.Word64] where
fieldOf :: Proxy# "uint64Val"
-> ([Word64] -> f [Word64]) -> TensorProto -> f TensorProto
fieldOf _
= ((Vector Word64 -> f (Vector Word64))
-> TensorProto -> f TensorProto)
-> (([Word64] -> f [Word64]) -> Vector Word64 -> f (Vector Word64))
-> ([Word64] -> f [Word64])
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Word64)
-> (TensorProto -> Vector Word64 -> TensorProto)
-> Lens TensorProto TensorProto (Vector Word64) (Vector Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Word64
_TensorProto'uint64Val
(\ x__ :: TensorProto
x__ y__ :: Vector Word64
y__ -> TensorProto
x__ {_TensorProto'uint64Val :: Vector Word64
_TensorProto'uint64Val = Vector Word64
y__}))
((Vector Word64 -> [Word64])
-> (Vector Word64 -> [Word64] -> Vector Word64)
-> Lens (Vector Word64) (Vector Word64) [Word64] [Word64]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector Word64 -> [Word64]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [Word64]
y__ -> [Word64] -> Vector Word64
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [Word64]
y__))
instance Data.ProtoLens.Field.HasField TensorProto "vec'uint64Val" (Data.Vector.Unboxed.Vector Data.Word.Word64) where
fieldOf :: Proxy# "vec'uint64Val"
-> (Vector Word64 -> f (Vector Word64))
-> TensorProto
-> f TensorProto
fieldOf _
= ((Vector Word64 -> f (Vector Word64))
-> TensorProto -> f TensorProto)
-> ((Vector Word64 -> f (Vector Word64))
-> Vector Word64 -> f (Vector Word64))
-> (Vector Word64 -> f (Vector Word64))
-> TensorProto
-> f TensorProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((TensorProto -> Vector Word64)
-> (TensorProto -> Vector Word64 -> TensorProto)
-> Lens TensorProto TensorProto (Vector Word64) (Vector Word64)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> Vector Word64
_TensorProto'uint64Val
(\ x__ :: TensorProto
x__ y__ :: Vector Word64
y__ -> TensorProto
x__ {_TensorProto'uint64Val :: Vector Word64
_TensorProto'uint64Val = Vector Word64
y__}))
(Vector Word64 -> f (Vector Word64))
-> Vector Word64 -> f (Vector Word64)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message TensorProto where
messageName :: Proxy TensorProto -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.TensorProto"
packedMessageDescriptor :: Proxy TensorProto -> ByteString
packedMessageDescriptor _
= "\n\
\\vTensorProto\DC2*\n\
\\ENQdtype\CAN\SOH \SOH(\SO2\DC4.tensorflow.DataTypeR\ENQdtype\DC2?\n\
\\ftensor_shape\CAN\STX \SOH(\v2\FS.tensorflow.TensorShapeProtoR\vtensorShape\DC2%\n\
\\SOversion_number\CAN\ETX \SOH(\ENQR\rversionNumber\DC2%\n\
\\SOtensor_content\CAN\EOT \SOH(\fR\rtensorContent\DC2\GS\n\
\\bhalf_val\CAN\r \ETX(\ENQR\ahalfValB\STX\DLE\SOH\DC2\US\n\
\\tfloat_val\CAN\ENQ \ETX(\STXR\bfloatValB\STX\DLE\SOH\DC2!\n\
\\n\
\double_val\CAN\ACK \ETX(\SOHR\tdoubleValB\STX\DLE\SOH\DC2\ESC\n\
\\aint_val\CAN\a \ETX(\ENQR\ACKintValB\STX\DLE\SOH\DC2\GS\n\
\\n\
\string_val\CAN\b \ETX(\fR\tstringVal\DC2%\n\
\\fscomplex_val\CAN\t \ETX(\STXR\vscomplexValB\STX\DLE\SOH\DC2\US\n\
\\tint64_val\CAN\n\
\ \ETX(\ETXR\bint64ValB\STX\DLE\SOH\DC2\GS\n\
\\bbool_val\CAN\v \ETX(\bR\aboolValB\STX\DLE\SOH\DC2%\n\
\\fdcomplex_val\CAN\f \ETX(\SOHR\vdcomplexValB\STX\DLE\SOH\DC2O\n\
\\DC3resource_handle_val\CAN\SO \ETX(\v2\US.tensorflow.ResourceHandleProtoR\DC1resourceHandleVal\DC2C\n\
\\vvariant_val\CAN\SI \ETX(\v2\".tensorflow.VariantTensorDataProtoR\n\
\variantVal\DC2!\n\
\\n\
\uint32_val\CAN\DLE \ETX(\rR\tuint32ValB\STX\DLE\SOH\DC2!\n\
\\n\
\uint64_val\CAN\DC1 \ETX(\EOTR\tuint64ValB\STX\DLE\SOH"
packedFileDescriptor :: Proxy TensorProto -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor TensorProto)
fieldsByTag
= let
dtype__field_descriptor :: FieldDescriptor TensorProto
dtype__field_descriptor
= String
-> FieldTypeDescriptor DataType
-> FieldAccessor TensorProto DataType
-> FieldDescriptor TensorProto
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 TensorProto TensorProto DataType DataType
-> FieldAccessor TensorProto 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 TensorProto
tensorShape__field_descriptor :: FieldDescriptor TensorProto
tensorShape__field_descriptor
= String
-> FieldTypeDescriptor TensorShapeProto
-> FieldAccessor TensorProto TensorShapeProto
-> FieldDescriptor TensorProto
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
TensorProto
TensorProto
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
-> FieldAccessor TensorProto 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 TensorProto
versionNumber__field_descriptor :: FieldDescriptor TensorProto
versionNumber__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor TensorProto Int32
-> FieldDescriptor TensorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"version_number"
(ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(WireDefault Int32
-> Lens TensorProto TensorProto Int32 Int32
-> FieldAccessor TensorProto Int32
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Int32
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "versionNumber" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"versionNumber")) ::
Data.ProtoLens.FieldDescriptor TensorProto
tensorContent__field_descriptor :: FieldDescriptor TensorProto
tensorContent__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor TensorProto ByteString
-> FieldDescriptor TensorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"tensor_content"
(ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(WireDefault ByteString
-> Lens TensorProto TensorProto ByteString ByteString
-> FieldAccessor TensorProto ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "tensorContent" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorContent")) ::
Data.ProtoLens.FieldDescriptor TensorProto
halfVal__field_descriptor :: FieldDescriptor TensorProto
halfVal__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor TensorProto Int32
-> FieldDescriptor TensorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"half_val"
(ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Packing
-> Lens' TensorProto [Int32] -> FieldAccessor TensorProto Int32
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "halfVal" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"halfVal")) ::
Data.ProtoLens.FieldDescriptor TensorProto
floatVal__field_descriptor :: FieldDescriptor TensorProto
floatVal__field_descriptor
= String
-> FieldTypeDescriptor Float
-> FieldAccessor TensorProto Float
-> FieldDescriptor TensorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"float_val"
(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' TensorProto [Float] -> FieldAccessor TensorProto Float
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "floatVal" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"floatVal")) ::
Data.ProtoLens.FieldDescriptor TensorProto
doubleVal__field_descriptor :: FieldDescriptor TensorProto
doubleVal__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor TensorProto Double
-> FieldDescriptor TensorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"double_val"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(Packing
-> Lens' TensorProto [Double] -> FieldAccessor TensorProto Double
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "doubleVal" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"doubleVal")) ::
Data.ProtoLens.FieldDescriptor TensorProto
intVal__field_descriptor :: FieldDescriptor TensorProto
intVal__field_descriptor
= String
-> FieldTypeDescriptor Int32
-> FieldAccessor TensorProto Int32
-> FieldDescriptor TensorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"int_val"
(ScalarField Int32 -> FieldTypeDescriptor Int32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Int32
Data.ProtoLens.Int32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Int.Int32)
(Packing
-> Lens' TensorProto [Int32] -> FieldAccessor TensorProto Int32
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "intVal" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"intVal")) ::
Data.ProtoLens.FieldDescriptor TensorProto
stringVal__field_descriptor :: FieldDescriptor TensorProto
stringVal__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor TensorProto ByteString
-> FieldDescriptor TensorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"string_val"
(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' TensorProto [ByteString]
-> FieldAccessor TensorProto ByteString
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "stringVal" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"stringVal")) ::
Data.ProtoLens.FieldDescriptor TensorProto
scomplexVal__field_descriptor :: FieldDescriptor TensorProto
scomplexVal__field_descriptor
= String
-> FieldTypeDescriptor Float
-> FieldAccessor TensorProto Float
-> FieldDescriptor TensorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"scomplex_val"
(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' TensorProto [Float] -> FieldAccessor TensorProto Float
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed
(forall s a (f :: * -> *).
(HasField s "scomplexVal" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"scomplexVal")) ::
Data.ProtoLens.FieldDescriptor TensorProto
int64Val__field_descriptor :: FieldDescriptor TensorProto
int64Val__field_descriptor
= String
-> FieldTypeDescriptor Int64
-> FieldAccessor TensorProto Int64
-> FieldDescriptor TensorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"int64_val"
(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' TensorProto [Int64] -> FieldAccessor TensorProto Int64
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "int64Val" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"int64Val")) ::
Data.ProtoLens.FieldDescriptor TensorProto
boolVal__field_descriptor :: FieldDescriptor TensorProto
boolVal__field_descriptor
= String
-> FieldTypeDescriptor Bool
-> FieldAccessor TensorProto Bool
-> FieldDescriptor TensorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"bool_val"
(ScalarField Bool -> FieldTypeDescriptor Bool
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Bool
Data.ProtoLens.BoolField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Bool)
(Packing
-> Lens' TensorProto [Bool] -> FieldAccessor TensorProto Bool
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "boolVal" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"boolVal")) ::
Data.ProtoLens.FieldDescriptor TensorProto
dcomplexVal__field_descriptor :: FieldDescriptor TensorProto
dcomplexVal__field_descriptor
= String
-> FieldTypeDescriptor Double
-> FieldAccessor TensorProto Double
-> FieldDescriptor TensorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"dcomplex_val"
(ScalarField Double -> FieldTypeDescriptor Double
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Double
Data.ProtoLens.DoubleField ::
Data.ProtoLens.FieldTypeDescriptor Prelude.Double)
(Packing
-> Lens' TensorProto [Double] -> FieldAccessor TensorProto Double
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed
(forall s a (f :: * -> *).
(HasField s "dcomplexVal" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"dcomplexVal")) ::
Data.ProtoLens.FieldDescriptor TensorProto
resourceHandleVal__field_descriptor :: FieldDescriptor TensorProto
resourceHandleVal__field_descriptor
= String
-> FieldTypeDescriptor ResourceHandleProto
-> FieldAccessor TensorProto ResourceHandleProto
-> FieldDescriptor TensorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"resource_handle_val"
(MessageOrGroup -> FieldTypeDescriptor ResourceHandleProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.ResourceHandle.ResourceHandleProto)
(Packing
-> Lens' TensorProto [ResourceHandleProto]
-> FieldAccessor TensorProto ResourceHandleProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "resourceHandleVal" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"resourceHandleVal")) ::
Data.ProtoLens.FieldDescriptor TensorProto
variantVal__field_descriptor :: FieldDescriptor TensorProto
variantVal__field_descriptor
= String
-> FieldTypeDescriptor VariantTensorDataProto
-> FieldAccessor TensorProto VariantTensorDataProto
-> FieldDescriptor TensorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"variant_val"
(MessageOrGroup -> FieldTypeDescriptor VariantTensorDataProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor VariantTensorDataProto)
(Packing
-> Lens' TensorProto [VariantTensorDataProto]
-> FieldAccessor TensorProto VariantTensorDataProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked
(forall s a (f :: * -> *).
(HasField s "variantVal" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"variantVal")) ::
Data.ProtoLens.FieldDescriptor TensorProto
uint32Val__field_descriptor :: FieldDescriptor TensorProto
uint32Val__field_descriptor
= String
-> FieldTypeDescriptor Word32
-> FieldAccessor TensorProto Word32
-> FieldDescriptor TensorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"uint32_val"
(ScalarField Word32 -> FieldTypeDescriptor Word32
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word32
Data.ProtoLens.UInt32Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word32)
(Packing
-> Lens' TensorProto [Word32] -> FieldAccessor TensorProto Word32
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "uint32Val" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uint32Val")) ::
Data.ProtoLens.FieldDescriptor TensorProto
uint64Val__field_descriptor :: FieldDescriptor TensorProto
uint64Val__field_descriptor
= String
-> FieldTypeDescriptor Word64
-> FieldAccessor TensorProto Word64
-> FieldDescriptor TensorProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"uint64_val"
(ScalarField Word64 -> FieldTypeDescriptor Word64
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Word64
Data.ProtoLens.UInt64Field ::
Data.ProtoLens.FieldTypeDescriptor Data.Word.Word64)
(Packing
-> Lens' TensorProto [Word64] -> FieldAccessor TensorProto Word64
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Packed (forall s a (f :: * -> *).
(HasField s "uint64Val" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"uint64Val")) ::
Data.ProtoLens.FieldDescriptor TensorProto
in
[(Tag, FieldDescriptor TensorProto)]
-> Map Tag (FieldDescriptor TensorProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor TensorProto
dtype__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor TensorProto
tensorShape__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor TensorProto
versionNumber__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor TensorProto
tensorContent__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 13, FieldDescriptor TensorProto
halfVal__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 5, FieldDescriptor TensorProto
floatVal__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 6, FieldDescriptor TensorProto
doubleVal__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 7, FieldDescriptor TensorProto
intVal__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 8, FieldDescriptor TensorProto
stringVal__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 9, FieldDescriptor TensorProto
scomplexVal__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 10, FieldDescriptor TensorProto
int64Val__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 11, FieldDescriptor TensorProto
boolVal__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 12, FieldDescriptor TensorProto
dcomplexVal__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 14, FieldDescriptor TensorProto
resourceHandleVal__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 15, FieldDescriptor TensorProto
variantVal__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 16, FieldDescriptor TensorProto
uint32Val__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 17, FieldDescriptor TensorProto
uint64Val__field_descriptor)]
unknownFields :: LensLike' f TensorProto FieldSet
unknownFields
= (TensorProto -> FieldSet)
-> (TensorProto -> FieldSet -> TensorProto)
-> Lens' TensorProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
TensorProto -> FieldSet
_TensorProto'_unknownFields
(\ x__ :: TensorProto
x__ y__ :: FieldSet
y__ -> TensorProto
x__ {_TensorProto'_unknownFields :: FieldSet
_TensorProto'_unknownFields = FieldSet
y__})
defMessage :: TensorProto
defMessage
= $WTensorProto'_constructor :: DataType
-> Maybe TensorShapeProto
-> Int32
-> ByteString
-> Vector Int32
-> Vector Float
-> Vector Double
-> Vector Int32
-> Vector ByteString
-> Vector Float
-> Vector Int64
-> Vector Bool
-> Vector Double
-> Vector ResourceHandleProto
-> Vector VariantTensorDataProto
-> Vector Word32
-> Vector Word64
-> FieldSet
-> TensorProto
TensorProto'_constructor
{_TensorProto'dtype :: DataType
_TensorProto'dtype = DataType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TensorProto'tensorShape :: Maybe TensorShapeProto
_TensorProto'tensorShape = Maybe TensorShapeProto
forall a. Maybe a
Prelude.Nothing,
_TensorProto'versionNumber :: Int32
_TensorProto'versionNumber = Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TensorProto'tensorContent :: ByteString
_TensorProto'tensorContent = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_TensorProto'halfVal :: Vector Int32
_TensorProto'halfVal = Vector Int32
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TensorProto'floatVal :: Vector Float
_TensorProto'floatVal = Vector Float
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TensorProto'doubleVal :: Vector Double
_TensorProto'doubleVal = Vector Double
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TensorProto'intVal :: Vector Int32
_TensorProto'intVal = Vector Int32
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TensorProto'stringVal :: Vector ByteString
_TensorProto'stringVal = Vector ByteString
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TensorProto'scomplexVal :: Vector Float
_TensorProto'scomplexVal = Vector Float
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TensorProto'int64Val :: Vector Int64
_TensorProto'int64Val = Vector Int64
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TensorProto'boolVal :: Vector Bool
_TensorProto'boolVal = Vector Bool
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TensorProto'dcomplexVal :: Vector Double
_TensorProto'dcomplexVal = Vector Double
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TensorProto'resourceHandleVal :: Vector ResourceHandleProto
_TensorProto'resourceHandleVal = Vector ResourceHandleProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TensorProto'variantVal :: Vector VariantTensorDataProto
_TensorProto'variantVal = Vector VariantTensorDataProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TensorProto'uint32Val :: Vector Word32
_TensorProto'uint32Val = Vector Word32
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TensorProto'uint64Val :: Vector Word64
_TensorProto'uint64Val = Vector Word64
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_TensorProto'_unknownFields :: FieldSet
_TensorProto'_unknownFields = []}
parseMessage :: Parser TensorProto
parseMessage
= let
loop ::
TensorProto
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Prelude.Bool
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Prelude.Double
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Prelude.Double
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Prelude.Float
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int32
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int64
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Int.Int32
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Proto.Tensorflow.Core.Framework.ResourceHandle.ResourceHandleProto
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Prelude.Float
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.ByteString.ByteString
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Word.Word32
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Unboxed.Vector Data.ProtoLens.Encoding.Growing.RealWorld Data.Word.Word64
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld VariantTensorDataProto
-> Data.ProtoLens.Encoding.Bytes.Parser TensorProto
loop :: TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
x :: TensorProto
x
mutable'boolVal :: Growing Vector RealWorld Bool
mutable'boolVal
mutable'dcomplexVal :: Growing Vector RealWorld Double
mutable'dcomplexVal
mutable'doubleVal :: Growing Vector RealWorld Double
mutable'doubleVal
mutable'floatVal :: Growing Vector RealWorld Float
mutable'floatVal
mutable'halfVal :: Growing Vector RealWorld Int32
mutable'halfVal
mutable'int64Val :: Growing Vector RealWorld Int64
mutable'int64Val
mutable'intVal :: Growing Vector RealWorld Int32
mutable'intVal
mutable'resourceHandleVal :: Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
mutable'scomplexVal :: Growing Vector RealWorld Float
mutable'scomplexVal
mutable'stringVal :: Growing Vector RealWorld ByteString
mutable'stringVal
mutable'uint32Val :: Growing Vector RealWorld Word32
mutable'uint32Val
mutable'uint64Val :: Growing Vector RealWorld Word64
mutable'uint64Val
mutable'variantVal :: Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector Bool
frozen'boolVal <- IO (Vector Bool) -> Parser (Vector Bool)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Bool -> IO (Vector Bool)
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 Bool
Growing Vector (PrimState IO) Bool
mutable'boolVal)
Vector Double
frozen'dcomplexVal <- IO (Vector Double) -> Parser (Vector Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Double -> IO (Vector Double)
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 Double
Growing Vector (PrimState IO) Double
mutable'dcomplexVal)
Vector Double
frozen'doubleVal <- IO (Vector Double) -> Parser (Vector Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Double -> IO (Vector Double)
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 Double
Growing Vector (PrimState IO) Double
mutable'doubleVal)
Vector Float
frozen'floatVal <- 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'floatVal)
Vector Int32
frozen'halfVal <- IO (Vector Int32) -> Parser (Vector Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Int32 -> IO (Vector Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld Int32
Growing Vector (PrimState IO) Int32
mutable'halfVal)
Vector Int64
frozen'int64Val <- 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'int64Val)
Vector Int32
frozen'intVal <- IO (Vector Int32) -> Parser (Vector Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Int32 -> IO (Vector Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> m (v a)
Data.ProtoLens.Encoding.Growing.unsafeFreeze
Growing Vector RealWorld Int32
Growing Vector (PrimState IO) Int32
mutable'intVal)
Vector ResourceHandleProto
frozen'resourceHandleVal <- IO (Vector ResourceHandleProto)
-> Parser (Vector ResourceHandleProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) ResourceHandleProto
-> IO (Vector ResourceHandleProto)
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 ResourceHandleProto
Growing Vector (PrimState IO) ResourceHandleProto
mutable'resourceHandleVal)
Vector Float
frozen'scomplexVal <- 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'scomplexVal)
Vector ByteString
frozen'stringVal <- 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'stringVal)
Vector Word32
frozen'uint32Val <- IO (Vector Word32) -> Parser (Vector Word32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Word32 -> IO (Vector Word32)
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 Word32
Growing Vector (PrimState IO) Word32
mutable'uint32Val)
Vector Word64
frozen'uint64Val <- IO (Vector Word64) -> Parser (Vector Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Word64 -> IO (Vector Word64)
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 Word64
Growing Vector (PrimState IO) Word64
mutable'uint64Val)
Vector VariantTensorDataProto
frozen'variantVal <- IO (Vector VariantTensorDataProto)
-> Parser (Vector VariantTensorDataProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) VariantTensorDataProto
-> IO (Vector VariantTensorDataProto)
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 VariantTensorDataProto
Growing Vector (PrimState IO) VariantTensorDataProto
mutable'variantVal)
(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]))))
TensorProto -> Parser TensorProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter TensorProto TensorProto FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TensorProto -> TensorProto
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 TensorProto TensorProto FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter TensorProto TensorProto (Vector Bool) (Vector Bool)
-> Vector Bool -> TensorProto -> TensorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'boolVal" a, Functor f) =>
(a -> f a) -> s -> 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'boolVal")
Vector Bool
frozen'boolVal
(Setter TensorProto TensorProto (Vector Double) (Vector Double)
-> Vector Double -> TensorProto -> TensorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'dcomplexVal" a, Functor f) =>
(a -> f a) -> s -> 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'dcomplexVal")
Vector Double
frozen'dcomplexVal
(Setter TensorProto TensorProto (Vector Double) (Vector Double)
-> Vector Double -> TensorProto -> TensorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'doubleVal" a, Functor f) =>
(a -> f a) -> s -> 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'doubleVal")
Vector Double
frozen'doubleVal
(Setter TensorProto TensorProto (Vector Float) (Vector Float)
-> Vector Float -> TensorProto -> TensorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'floatVal" a, Functor f) =>
(a -> f a) -> s -> 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'floatVal")
Vector Float
frozen'floatVal
(Setter TensorProto TensorProto (Vector Int32) (Vector Int32)
-> Vector Int32 -> TensorProto -> TensorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'halfVal" a, Functor f) =>
(a -> f a) -> s -> 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'halfVal")
Vector Int32
frozen'halfVal
(Setter TensorProto TensorProto (Vector Int64) (Vector Int64)
-> Vector Int64 -> TensorProto -> TensorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'int64Val" a, Functor f) =>
(a -> f a) -> s -> 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'int64Val")
Vector Int64
frozen'int64Val
(Setter TensorProto TensorProto (Vector Int32) (Vector Int32)
-> Vector Int32 -> TensorProto -> TensorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'intVal" a, Functor f) =>
(a -> f a) -> s -> 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'intVal")
Vector Int32
frozen'intVal
(Setter
TensorProto
TensorProto
(Vector ResourceHandleProto)
(Vector ResourceHandleProto)
-> Vector ResourceHandleProto -> TensorProto -> TensorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'resourceHandleVal" a, Functor f) =>
(a -> f a) -> s -> 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'resourceHandleVal")
Vector ResourceHandleProto
frozen'resourceHandleVal
(Setter TensorProto TensorProto (Vector Float) (Vector Float)
-> Vector Float -> TensorProto -> TensorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'scomplexVal" a, Functor f) =>
(a -> f a) -> s -> 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'scomplexVal")
Vector Float
frozen'scomplexVal
(Setter
TensorProto TensorProto (Vector ByteString) (Vector ByteString)
-> Vector ByteString -> TensorProto -> TensorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'stringVal" a, Functor f) =>
(a -> f a) -> s -> 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'stringVal")
Vector ByteString
frozen'stringVal
(Setter TensorProto TensorProto (Vector Word32) (Vector Word32)
-> Vector Word32 -> TensorProto -> TensorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'uint32Val" a, Functor f) =>
(a -> f a) -> s -> 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'uint32Val")
Vector Word32
frozen'uint32Val
(Setter TensorProto TensorProto (Vector Word64) (Vector Word64)
-> Vector Word64 -> TensorProto -> TensorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'uint64Val" a, Functor f) =>
(a -> f a) -> s -> 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'uint64Val")
Vector Word64
frozen'uint64Val
(Setter
TensorProto
TensorProto
(Vector VariantTensorDataProto)
(Vector VariantTensorDataProto)
-> Vector VariantTensorDataProto -> TensorProto -> TensorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'variantVal" a, Functor f) =>
(a -> f a) -> s -> 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'variantVal")
Vector VariantTensorDataProto
frozen'variantVal
TensorProto
x))))))))))))))
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
8 -> do DataType
y <- Parser DataType -> String -> Parser DataType
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Int -> DataType) -> Parser Int -> Parser DataType
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Int -> DataType
forall a. Enum a => Int -> a
Prelude.toEnum
((Word64 -> Int) -> Parser Word64 -> Parser Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt))
"dtype"
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
(Setter TensorProto TensorProto DataType DataType
-> DataType -> TensorProto -> TensorProto
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 TensorProto
x)
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
18
-> do TensorShapeProto
y <- Parser TensorShapeProto -> String -> Parser TensorShapeProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TensorShapeProto -> Parser TensorShapeProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TensorShapeProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"tensor_shape"
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
(Setter TensorProto TensorProto TensorShapeProto TensorShapeProto
-> TensorShapeProto -> TensorProto -> TensorProto
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 TensorProto
x)
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
24
-> do Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"version_number"
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
(Setter TensorProto TensorProto Int32 Int32
-> Int32 -> TensorProto -> TensorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "versionNumber" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"versionNumber") Int32
y TensorProto
x)
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
34
-> 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))
"tensor_content"
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
(Setter TensorProto TensorProto ByteString ByteString
-> ByteString -> TensorProto -> TensorProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "tensorContent" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorContent") ByteString
y TensorProto
x)
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
104
-> do !Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"half_val"
Growing Vector RealWorld Int32
v <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Int32
-> Int32 -> IO (Growing Vector (PrimState IO) Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Int32
Growing Vector (PrimState IO) Int32
mutable'halfVal Int32
y)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
v
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
106
-> do Growing Vector RealWorld Int32
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
((let
ploop :: Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop qs :: Growing v RealWorld a
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld a -> Parser (Growing v RealWorld a)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld a
qs
else
do !a
q <- Parser a -> String -> Parser a
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> a) -> Parser Word64 -> Parser a
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> a
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"half_val"
Growing v RealWorld a
qs' <- IO (Growing v RealWorld a) -> Parser (Growing v RealWorld a)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) a -> a -> IO (Growing v (PrimState IO) a)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing v RealWorld a
Growing v (PrimState IO) a
qs a
q)
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop Growing v RealWorld a
qs'
in forall a (v :: * -> *).
(Num a, Vector v a) =>
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop)
Growing Vector RealWorld Int32
mutable'halfVal)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
y
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
45
-> 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)
"float_val"
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'floatVal Float
y)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
v
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
42
-> 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)
"float_val"
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'floatVal)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
y
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
49
-> do !Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
"double_val"
Growing Vector RealWorld Double
v <- IO (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Double
-> Double -> IO (Growing Vector (PrimState IO) Double)
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 Double
Growing Vector (PrimState IO) Double
mutable'doubleVal Double
y)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
v
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
50
-> do Growing Vector RealWorld Double
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
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 Double -> Parser (Growing v RealWorld Double)
ploop qs :: Growing v RealWorld Double
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld Double
qs
else
do !Double
q <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
"double_val"
Growing v RealWorld Double
qs' <- IO (Growing v RealWorld Double)
-> Parser (Growing v RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) Double
-> Double -> IO (Growing v (PrimState IO) Double)
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 Double
Growing v (PrimState IO) Double
qs Double
q)
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop Growing v RealWorld Double
qs'
in forall (v :: * -> *).
Vector v Double =>
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop)
Growing Vector RealWorld Double
mutable'doubleVal)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
y
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
56
-> do !Int32
y <- Parser Int32 -> String -> Parser Int32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Int32) -> Parser Word64 -> Parser Int32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Int32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"int_val"
Growing Vector RealWorld Int32
v <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Int32
-> Int32 -> IO (Growing Vector (PrimState IO) Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append Growing Vector RealWorld Int32
Growing Vector (PrimState IO) Int32
mutable'intVal Int32
y)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
v
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
58
-> do Growing Vector RealWorld Int32
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
((let
ploop :: Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop qs :: Growing v RealWorld a
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld a -> Parser (Growing v RealWorld a)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld a
qs
else
do !a
q <- Parser a -> String -> Parser a
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> a) -> Parser Word64 -> Parser a
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> a
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"int_val"
Growing v RealWorld a
qs' <- IO (Growing v RealWorld a) -> Parser (Growing v RealWorld a)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) a -> a -> IO (Growing v (PrimState IO) a)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
Growing v (PrimState m) a -> a -> m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.append
Growing v RealWorld a
Growing v (PrimState IO) a
qs a
q)
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop Growing v RealWorld a
qs'
in forall a (v :: * -> *).
(Num a, Vector v a) =>
Growing v RealWorld a -> Parser (Growing v RealWorld a)
ploop)
Growing Vector RealWorld Int32
mutable'intVal)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
y
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
66
-> 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))
"string_val"
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'stringVal ByteString
y)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
v
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
77
-> 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)
"scomplex_val"
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'scomplexVal Float
y)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
v
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
74
-> 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)
"scomplex_val"
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'scomplexVal)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
y
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
80
-> 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)
"int64_val"
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'int64Val Int64
y)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
v
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
82
-> 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)
"int64_val"
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'int64Val)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
y
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
88
-> 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)
"bool_val"
Growing Vector RealWorld Bool
v <- IO (Growing Vector RealWorld Bool)
-> Parser (Growing Vector RealWorld Bool)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Bool
-> Bool -> IO (Growing Vector (PrimState IO) Bool)
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 Bool
Growing Vector (PrimState IO) Bool
mutable'boolVal Bool
y)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
v
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
90
-> do Growing Vector RealWorld Bool
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Bool)
-> Parser (Growing Vector RealWorld Bool)
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 Bool -> Parser (Growing v RealWorld Bool)
ploop qs :: Growing v RealWorld Bool
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld Bool -> Parser (Growing v RealWorld Bool)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld Bool
qs
else
do !Bool
q <- 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)
"bool_val"
Growing v RealWorld Bool
qs' <- IO (Growing v RealWorld Bool) -> Parser (Growing v RealWorld Bool)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) Bool
-> Bool -> IO (Growing v (PrimState IO) Bool)
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 Bool
Growing v (PrimState IO) Bool
qs Bool
q)
Growing v RealWorld Bool -> Parser (Growing v RealWorld Bool)
ploop Growing v RealWorld Bool
qs'
in forall (v :: * -> *).
Vector v Bool =>
Growing v RealWorld Bool -> Parser (Growing v RealWorld Bool)
ploop)
Growing Vector RealWorld Bool
mutable'boolVal)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
y
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
97
-> do !Double
y <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
"dcomplex_val"
Growing Vector RealWorld Double
v <- IO (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Double
-> Double -> IO (Growing Vector (PrimState IO) Double)
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 Double
Growing Vector (PrimState IO) Double
mutable'dcomplexVal Double
y)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
v
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
98
-> do Growing Vector RealWorld Double
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
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 Double -> Parser (Growing v RealWorld Double)
ploop qs :: Growing v RealWorld Double
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld Double
qs
else
do !Double
q <- Parser Double -> String -> Parser Double
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Double) -> Parser Word64 -> Parser Double
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Double
Data.ProtoLens.Encoding.Bytes.wordToDouble
Parser Word64
Data.ProtoLens.Encoding.Bytes.getFixed64)
"dcomplex_val"
Growing v RealWorld Double
qs' <- IO (Growing v RealWorld Double)
-> Parser (Growing v RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) Double
-> Double -> IO (Growing v (PrimState IO) Double)
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 Double
Growing v (PrimState IO) Double
qs Double
q)
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop Growing v RealWorld Double
qs'
in forall (v :: * -> *).
Vector v Double =>
Growing v RealWorld Double -> Parser (Growing v RealWorld Double)
ploop)
Growing Vector RealWorld Double
mutable'dcomplexVal)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
y
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
114
-> do !ResourceHandleProto
y <- Parser ResourceHandleProto -> String -> Parser ResourceHandleProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ResourceHandleProto -> Parser ResourceHandleProto
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 ResourceHandleProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"resource_handle_val"
Growing Vector RealWorld ResourceHandleProto
v <- IO (Growing Vector RealWorld ResourceHandleProto)
-> Parser (Growing Vector RealWorld ResourceHandleProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) ResourceHandleProto
-> ResourceHandleProto
-> IO (Growing Vector (PrimState IO) ResourceHandleProto)
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 ResourceHandleProto
Growing Vector (PrimState IO) ResourceHandleProto
mutable'resourceHandleVal ResourceHandleProto
y)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
v
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
122
-> do !VariantTensorDataProto
y <- Parser VariantTensorDataProto
-> String -> Parser VariantTensorDataProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser VariantTensorDataProto -> Parser VariantTensorDataProto
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 VariantTensorDataProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"variant_val"
Growing Vector RealWorld VariantTensorDataProto
v <- IO (Growing Vector RealWorld VariantTensorDataProto)
-> Parser (Growing Vector RealWorld VariantTensorDataProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) VariantTensorDataProto
-> VariantTensorDataProto
-> IO (Growing Vector (PrimState IO) VariantTensorDataProto)
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 VariantTensorDataProto
Growing Vector (PrimState IO) VariantTensorDataProto
mutable'variantVal VariantTensorDataProto
y)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
v
128
-> do !Word32
y <- Parser Word32 -> String -> Parser Word32
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
((Word64 -> Word32) -> Parser Word64 -> Parser Word32
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap
Word64 -> Word32
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt)
"uint32_val"
Growing Vector RealWorld Word32
v <- IO (Growing Vector RealWorld Word32)
-> Parser (Growing Vector RealWorld Word32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Word32
-> Word32 -> IO (Growing Vector (PrimState IO) Word32)
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 Word32
Growing Vector (PrimState IO) Word32
mutable'uint32Val Word32
y)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
v
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
130
-> do Growing Vector RealWorld Word32
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Word32)
-> Parser (Growing Vector RealWorld Word32)
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)
"uint32_val"
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 Word32
mutable'uint32Val)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
y
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
136
-> do !Word64
y <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt "uint64_val"
Growing Vector RealWorld Word64
v <- IO (Growing Vector RealWorld Word64)
-> Parser (Growing Vector RealWorld Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) Word64
-> Word64 -> IO (Growing Vector (PrimState IO) Word64)
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 Word64
Growing Vector (PrimState IO) Word64
mutable'uint64Val Word64
y)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
v
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
138
-> do Growing Vector RealWorld Word64
y <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser (Growing Vector RealWorld Word64)
-> Parser (Growing Vector RealWorld Word64)
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 Word64 -> Parser (Growing v RealWorld Word64)
ploop qs :: Growing v RealWorld Word64
qs
= do Bool
packedEnd <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
packedEnd then
Growing v RealWorld Word64 -> Parser (Growing v RealWorld Word64)
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return Growing v RealWorld Word64
qs
else
do !Word64
q <- Parser Word64 -> String -> Parser Word64
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
"uint64_val"
Growing v RealWorld Word64
qs' <- IO (Growing v RealWorld Word64)
-> Parser (Growing v RealWorld Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing v (PrimState IO) Word64
-> Word64 -> IO (Growing v (PrimState IO) Word64)
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 Word64
Growing v (PrimState IO) Word64
qs Word64
q)
Growing v RealWorld Word64 -> Parser (Growing v RealWorld Word64)
ploop Growing v RealWorld Word64
qs'
in forall (v :: * -> *).
Vector v Word64 =>
Growing v RealWorld Word64 -> Parser (Growing v RealWorld Word64)
ploop)
Growing Vector RealWorld Word64
mutable'uint64Val)
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
x
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
y
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
(Setter TensorProto TensorProto FieldSet FieldSet
-> (FieldSet -> FieldSet) -> TensorProto -> TensorProto
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 TensorProto TensorProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) TensorProto
x)
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal
in
Parser TensorProto -> String -> Parser TensorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld Bool
mutable'boolVal <- IO (Growing Vector RealWorld Bool)
-> Parser (Growing Vector RealWorld Bool)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Bool)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Double
mutable'dcomplexVal <- IO (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Double)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Double
mutable'doubleVal <- IO (Growing Vector RealWorld Double)
-> Parser (Growing Vector RealWorld Double)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Double)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Float
mutable'floatVal <- 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
Growing Vector RealWorld Int32
mutable'halfVal <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Int64
mutable'int64Val <- 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
Growing Vector RealWorld Int32
mutable'intVal <- IO (Growing Vector RealWorld Int32)
-> Parser (Growing Vector RealWorld Int32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Int32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal <- IO (Growing Vector RealWorld ResourceHandleProto)
-> Parser (Growing Vector RealWorld ResourceHandleProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld ResourceHandleProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Float
mutable'scomplexVal <- 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
Growing Vector RealWorld ByteString
mutable'stringVal <- 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
Growing Vector RealWorld Word32
mutable'uint32Val <- IO (Growing Vector RealWorld Word32)
-> Parser (Growing Vector RealWorld Word32)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Word32)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld Word64
mutable'uint64Val <- IO (Growing Vector RealWorld Word64)
-> Parser (Growing Vector RealWorld Word64)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld Word64)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal <- IO (Growing Vector RealWorld VariantTensorDataProto)
-> Parser (Growing Vector RealWorld VariantTensorDataProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld VariantTensorDataProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
TensorProto
-> Growing Vector RealWorld Bool
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Double
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld Int64
-> Growing Vector RealWorld Int32
-> Growing Vector RealWorld ResourceHandleProto
-> Growing Vector RealWorld Float
-> Growing Vector RealWorld ByteString
-> Growing Vector RealWorld Word32
-> Growing Vector RealWorld Word64
-> Growing Vector RealWorld VariantTensorDataProto
-> Parser TensorProto
loop
TensorProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage
Growing Vector RealWorld Bool
mutable'boolVal
Growing Vector RealWorld Double
mutable'dcomplexVal
Growing Vector RealWorld Double
mutable'doubleVal
Growing Vector RealWorld Float
mutable'floatVal
Growing Vector RealWorld Int32
mutable'halfVal
Growing Vector RealWorld Int64
mutable'int64Val
Growing Vector RealWorld Int32
mutable'intVal
Growing Vector RealWorld ResourceHandleProto
mutable'resourceHandleVal
Growing Vector RealWorld Float
mutable'scomplexVal
Growing Vector RealWorld ByteString
mutable'stringVal
Growing Vector RealWorld Word32
mutable'uint32Val
Growing Vector RealWorld Word64
mutable'uint64Val
Growing Vector RealWorld VariantTensorDataProto
mutable'variantVal)
"TensorProto"
buildMessage :: TensorProto -> Builder
buildMessage
= \ _x :: TensorProto
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: DataType
_v = FoldLike DataType TensorProto TensorProto DataType DataType
-> TensorProto -> 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") TensorProto
_x
in
if DataType -> DataType -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) DataType
_v DataType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 8)
((Int -> Builder) -> (DataType -> Int) -> DataType -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Word64 -> Builder) -> (Int -> Word64) -> Int -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
DataType -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum
DataType
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe TensorShapeProto)
TensorProto
TensorProto
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
-> TensorProto -> 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") TensorProto
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: TensorShapeProto
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (TensorShapeProto -> ByteString) -> TensorShapeProto -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
TensorShapeProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TensorShapeProto
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Int32
_v
= FoldLike Int32 TensorProto TensorProto Int32 Int32
-> TensorProto -> Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "versionNumber" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"versionNumber") TensorProto
_x
in
if Int32 -> Int32 -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Int32
_v Int32
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 24)
((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Int32
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: ByteString
_v
= FoldLike ByteString TensorProto TensorProto ByteString ByteString
-> TensorProto -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "tensorContent" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensorContent") TensorProto
_x
in
if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
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 34)
((\ 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Int32
p = FoldLike
(Vector Int32)
TensorProto
TensorProto
(Vector Int32)
(Vector Int32)
-> TensorProto -> Vector Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'halfVal" a, Functor f) =>
(a -> f a) -> s -> 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'halfVal") TensorProto
_x
in
if Vector Int32 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Int32
p then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 106)
((\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
(Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
((Int32 -> Builder) -> Vector Int32 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
Vector Int32
p))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Float
p = FoldLike
(Vector Float)
TensorProto
TensorProto
(Vector Float)
(Vector Float)
-> TensorProto -> 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'floatVal" a, Functor f) =>
(a -> f a) -> s -> 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'floatVal") TensorProto
_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 42)
((\ 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))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Double
p = FoldLike
(Vector Double)
TensorProto
TensorProto
(Vector Double)
(Vector Double)
-> TensorProto -> Vector Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'doubleVal" a, Functor f) =>
(a -> f a) -> s -> 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'doubleVal") TensorProto
_x
in
if Vector Double -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Double
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 50)
((\ 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
((Double -> Builder) -> Vector Double -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord)
Vector Double
p))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Int32
p = FoldLike
(Vector Int32)
TensorProto
TensorProto
(Vector Int32)
(Vector Int32)
-> TensorProto -> Vector Int32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'intVal" a, Functor f) =>
(a -> f a) -> s -> 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'intVal") TensorProto
_x
in
if Vector Int32 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Int32
p then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 58)
((\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral
(ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
(Builder -> ByteString
Data.ProtoLens.Encoding.Bytes.runBuilder
((Int32 -> Builder) -> Vector Int32 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((Word64 -> Builder) -> (Int32 -> Word64) -> Int32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Int32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
Vector Int32
p))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((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 66)
((\ 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)
TensorProto
TensorProto
(Vector ByteString)
(Vector ByteString)
-> TensorProto -> 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'stringVal" a, Functor f) =>
(a -> f a) -> s -> 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'stringVal") TensorProto
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Float
p = FoldLike
(Vector Float)
TensorProto
TensorProto
(Vector Float)
(Vector Float)
-> TensorProto -> 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'scomplexVal" a, Functor f) =>
(a -> f a) -> s -> 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'scomplexVal") TensorProto
_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 74)
((\ 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))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Int64
p = FoldLike
(Vector Int64)
TensorProto
TensorProto
(Vector Int64)
(Vector Int64)
-> TensorProto -> 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'int64Val" a, Functor f) =>
(a -> f a) -> s -> 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'int64Val") TensorProto
_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 82)
((\ 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))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Bool
p = FoldLike
(Vector Bool) TensorProto TensorProto (Vector Bool) (Vector Bool)
-> TensorProto -> Vector Bool
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'boolVal" a, Functor f) =>
(a -> f a) -> s -> 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'boolVal")
TensorProto
_x
in
if Vector Bool -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Bool
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 90)
((\ 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
((Bool -> Builder) -> Vector Bool -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((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))
Vector Bool
p))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Double
p = FoldLike
(Vector Double)
TensorProto
TensorProto
(Vector Double)
(Vector Double)
-> TensorProto -> Vector Double
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'dcomplexVal" a, Functor f) =>
(a -> f a) -> s -> 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'dcomplexVal")
TensorProto
_x
in
if Vector Double -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Double
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
98)
((\ 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
((Double -> Builder) -> Vector Double -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((Word64 -> Builder) -> (Double -> Word64) -> Double -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putFixed64
Double -> Word64
Data.ProtoLens.Encoding.Bytes.doubleToWord)
Vector Double
p))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((ResourceHandleProto -> Builder)
-> Vector ResourceHandleProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: ResourceHandleProto
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
114)
((ByteString -> Builder)
-> (ResourceHandleProto -> ByteString)
-> ResourceHandleProto
-> 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))
ResourceHandleProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
ResourceHandleProto
_v))
(FoldLike
(Vector ResourceHandleProto)
TensorProto
TensorProto
(Vector ResourceHandleProto)
(Vector ResourceHandleProto)
-> TensorProto -> Vector ResourceHandleProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'resourceHandleVal" a, Functor f) =>
(a -> f a) -> s -> 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'resourceHandleVal")
TensorProto
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((VariantTensorDataProto -> Builder)
-> Vector VariantTensorDataProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: VariantTensorDataProto
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
122)
((ByteString -> Builder)
-> (VariantTensorDataProto -> ByteString)
-> VariantTensorDataProto
-> 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))
VariantTensorDataProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
VariantTensorDataProto
_v))
(FoldLike
(Vector VariantTensorDataProto)
TensorProto
TensorProto
(Vector VariantTensorDataProto)
(Vector VariantTensorDataProto)
-> TensorProto -> Vector VariantTensorDataProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'variantVal" a, Functor f) =>
(a -> f a) -> s -> 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'variantVal")
TensorProto
_x))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Word32
p = FoldLike
(Vector Word32)
TensorProto
TensorProto
(Vector Word32)
(Vector Word32)
-> TensorProto -> Vector Word32
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'uint32Val" a, Functor f) =>
(a -> f a) -> s -> 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'uint32Val")
TensorProto
_x
in
if Vector Word32 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Word32
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
130)
((\ 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
((Word32 -> Builder) -> Vector Word32 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
((Word64 -> Builder) -> (Word32 -> Word64) -> Word32 -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Word32 -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral)
Vector Word32
p))))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
p :: Vector Word64
p = FoldLike
(Vector Word64)
TensorProto
TensorProto
(Vector Word64)
(Vector Word64)
-> TensorProto -> Vector Word64
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "vec'uint64Val" a, Functor f) =>
(a -> f a) -> s -> 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'uint64Val")
TensorProto
_x
in
if Vector Word64 -> Bool
forall (v :: * -> *) a. Vector v a => v a -> Bool
Data.Vector.Generic.null Vector Word64
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
138)
((\ 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
((Word64 -> Builder) -> Vector Word64 -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
Vector Word64
p))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike FieldSet TensorProto TensorProto FieldSet FieldSet
-> TensorProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
FoldLike FieldSet TensorProto TensorProto FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields
TensorProto
_x))))))))))))))))))
instance Control.DeepSeq.NFData TensorProto where
rnf :: TensorProto -> ()
rnf
= \ x__ :: TensorProto
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> FieldSet
_TensorProto'_unknownFields TensorProto
x__)
(DataType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> DataType
_TensorProto'dtype TensorProto
x__)
(Maybe TensorShapeProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> Maybe TensorShapeProto
_TensorProto'tensorShape TensorProto
x__)
(Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> Int32
_TensorProto'versionNumber TensorProto
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> ByteString
_TensorProto'tensorContent TensorProto
x__)
(Vector Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> Vector Int32
_TensorProto'halfVal TensorProto
x__)
(Vector Float -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> Vector Float
_TensorProto'floatVal TensorProto
x__)
(Vector Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> Vector Double
_TensorProto'doubleVal TensorProto
x__)
(Vector Int32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> Vector Int32
_TensorProto'intVal TensorProto
x__)
(Vector ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> Vector ByteString
_TensorProto'stringVal TensorProto
x__)
(Vector Float -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> Vector Float
_TensorProto'scomplexVal TensorProto
x__)
(Vector Int64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> Vector Int64
_TensorProto'int64Val TensorProto
x__)
(Vector Bool -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> Vector Bool
_TensorProto'boolVal TensorProto
x__)
(Vector Double -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> Vector Double
_TensorProto'dcomplexVal TensorProto
x__)
(Vector ResourceHandleProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> Vector ResourceHandleProto
_TensorProto'resourceHandleVal TensorProto
x__)
(Vector VariantTensorDataProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> Vector VariantTensorDataProto
_TensorProto'variantVal TensorProto
x__)
(Vector Word32 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> Vector Word32
_TensorProto'uint32Val TensorProto
x__)
(Vector Word64 -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(TensorProto -> Vector Word64
_TensorProto'uint64Val TensorProto
x__)
())))))))))))))))))
data VariantTensorDataProto
= VariantTensorDataProto'_constructor {VariantTensorDataProto -> Text
_VariantTensorDataProto'typeName :: !Data.Text.Text,
VariantTensorDataProto -> ByteString
_VariantTensorDataProto'metadata :: !Data.ByteString.ByteString,
VariantTensorDataProto -> Vector TensorProto
_VariantTensorDataProto'tensors :: !(Data.Vector.Vector TensorProto),
VariantTensorDataProto -> FieldSet
_VariantTensorDataProto'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (VariantTensorDataProto -> VariantTensorDataProto -> Bool
(VariantTensorDataProto -> VariantTensorDataProto -> Bool)
-> (VariantTensorDataProto -> VariantTensorDataProto -> Bool)
-> Eq VariantTensorDataProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VariantTensorDataProto -> VariantTensorDataProto -> Bool
$c/= :: VariantTensorDataProto -> VariantTensorDataProto -> Bool
== :: VariantTensorDataProto -> VariantTensorDataProto -> Bool
$c== :: VariantTensorDataProto -> VariantTensorDataProto -> Bool
Prelude.Eq, Eq VariantTensorDataProto
Eq VariantTensorDataProto =>
(VariantTensorDataProto -> VariantTensorDataProto -> Ordering)
-> (VariantTensorDataProto -> VariantTensorDataProto -> Bool)
-> (VariantTensorDataProto -> VariantTensorDataProto -> Bool)
-> (VariantTensorDataProto -> VariantTensorDataProto -> Bool)
-> (VariantTensorDataProto -> VariantTensorDataProto -> Bool)
-> (VariantTensorDataProto
-> VariantTensorDataProto -> VariantTensorDataProto)
-> (VariantTensorDataProto
-> VariantTensorDataProto -> VariantTensorDataProto)
-> Ord VariantTensorDataProto
VariantTensorDataProto -> VariantTensorDataProto -> Bool
VariantTensorDataProto -> VariantTensorDataProto -> Ordering
VariantTensorDataProto
-> VariantTensorDataProto -> VariantTensorDataProto
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 :: VariantTensorDataProto
-> VariantTensorDataProto -> VariantTensorDataProto
$cmin :: VariantTensorDataProto
-> VariantTensorDataProto -> VariantTensorDataProto
max :: VariantTensorDataProto
-> VariantTensorDataProto -> VariantTensorDataProto
$cmax :: VariantTensorDataProto
-> VariantTensorDataProto -> VariantTensorDataProto
>= :: VariantTensorDataProto -> VariantTensorDataProto -> Bool
$c>= :: VariantTensorDataProto -> VariantTensorDataProto -> Bool
> :: VariantTensorDataProto -> VariantTensorDataProto -> Bool
$c> :: VariantTensorDataProto -> VariantTensorDataProto -> Bool
<= :: VariantTensorDataProto -> VariantTensorDataProto -> Bool
$c<= :: VariantTensorDataProto -> VariantTensorDataProto -> Bool
< :: VariantTensorDataProto -> VariantTensorDataProto -> Bool
$c< :: VariantTensorDataProto -> VariantTensorDataProto -> Bool
compare :: VariantTensorDataProto -> VariantTensorDataProto -> Ordering
$ccompare :: VariantTensorDataProto -> VariantTensorDataProto -> Ordering
$cp1Ord :: Eq VariantTensorDataProto
Prelude.Ord)
instance Prelude.Show VariantTensorDataProto where
showsPrec :: Int -> VariantTensorDataProto -> ShowS
showsPrec _ __x :: VariantTensorDataProto
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(VariantTensorDataProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort VariantTensorDataProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField VariantTensorDataProto "typeName" Data.Text.Text where
fieldOf :: Proxy# "typeName"
-> (Text -> f Text)
-> VariantTensorDataProto
-> f VariantTensorDataProto
fieldOf _
= ((Text -> f Text)
-> VariantTensorDataProto -> f VariantTensorDataProto)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> VariantTensorDataProto
-> f VariantTensorDataProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((VariantTensorDataProto -> Text)
-> (VariantTensorDataProto -> Text -> VariantTensorDataProto)
-> Lens VariantTensorDataProto VariantTensorDataProto Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
VariantTensorDataProto -> Text
_VariantTensorDataProto'typeName
(\ x__ :: VariantTensorDataProto
x__ y__ :: Text
y__ -> VariantTensorDataProto
x__ {_VariantTensorDataProto'typeName :: Text
_VariantTensorDataProto'typeName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField VariantTensorDataProto "metadata" Data.ByteString.ByteString where
fieldOf :: Proxy# "metadata"
-> (ByteString -> f ByteString)
-> VariantTensorDataProto
-> f VariantTensorDataProto
fieldOf _
= ((ByteString -> f ByteString)
-> VariantTensorDataProto -> f VariantTensorDataProto)
-> ((ByteString -> f ByteString) -> ByteString -> f ByteString)
-> (ByteString -> f ByteString)
-> VariantTensorDataProto
-> f VariantTensorDataProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((VariantTensorDataProto -> ByteString)
-> (VariantTensorDataProto -> ByteString -> VariantTensorDataProto)
-> Lens
VariantTensorDataProto VariantTensorDataProto ByteString ByteString
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
VariantTensorDataProto -> ByteString
_VariantTensorDataProto'metadata
(\ x__ :: VariantTensorDataProto
x__ y__ :: ByteString
y__ -> VariantTensorDataProto
x__ {_VariantTensorDataProto'metadata :: ByteString
_VariantTensorDataProto'metadata = ByteString
y__}))
(ByteString -> f ByteString) -> ByteString -> f ByteString
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField VariantTensorDataProto "tensors" [TensorProto] where
fieldOf :: Proxy# "tensors"
-> ([TensorProto] -> f [TensorProto])
-> VariantTensorDataProto
-> f VariantTensorDataProto
fieldOf _
= ((Vector TensorProto -> f (Vector TensorProto))
-> VariantTensorDataProto -> f VariantTensorDataProto)
-> (([TensorProto] -> f [TensorProto])
-> Vector TensorProto -> f (Vector TensorProto))
-> ([TensorProto] -> f [TensorProto])
-> VariantTensorDataProto
-> f VariantTensorDataProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((VariantTensorDataProto -> Vector TensorProto)
-> (VariantTensorDataProto
-> Vector TensorProto -> VariantTensorDataProto)
-> Lens
VariantTensorDataProto
VariantTensorDataProto
(Vector TensorProto)
(Vector TensorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
VariantTensorDataProto -> Vector TensorProto
_VariantTensorDataProto'tensors
(\ x__ :: VariantTensorDataProto
x__ y__ :: Vector TensorProto
y__ -> VariantTensorDataProto
x__ {_VariantTensorDataProto'tensors :: Vector TensorProto
_VariantTensorDataProto'tensors = Vector TensorProto
y__}))
((Vector TensorProto -> [TensorProto])
-> (Vector TensorProto -> [TensorProto] -> Vector TensorProto)
-> Lens
(Vector TensorProto)
(Vector TensorProto)
[TensorProto]
[TensorProto]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
Vector TensorProto -> [TensorProto]
forall (v :: * -> *) a. Vector v a => v a -> [a]
Data.Vector.Generic.toList
(\ _ y__ :: [TensorProto]
y__ -> [TensorProto] -> Vector TensorProto
forall (v :: * -> *) a. Vector v a => [a] -> v a
Data.Vector.Generic.fromList [TensorProto]
y__))
instance Data.ProtoLens.Field.HasField VariantTensorDataProto "vec'tensors" (Data.Vector.Vector TensorProto) where
fieldOf :: Proxy# "vec'tensors"
-> (Vector TensorProto -> f (Vector TensorProto))
-> VariantTensorDataProto
-> f VariantTensorDataProto
fieldOf _
= ((Vector TensorProto -> f (Vector TensorProto))
-> VariantTensorDataProto -> f VariantTensorDataProto)
-> ((Vector TensorProto -> f (Vector TensorProto))
-> Vector TensorProto -> f (Vector TensorProto))
-> (Vector TensorProto -> f (Vector TensorProto))
-> VariantTensorDataProto
-> f VariantTensorDataProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((VariantTensorDataProto -> Vector TensorProto)
-> (VariantTensorDataProto
-> Vector TensorProto -> VariantTensorDataProto)
-> Lens
VariantTensorDataProto
VariantTensorDataProto
(Vector TensorProto)
(Vector TensorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
VariantTensorDataProto -> Vector TensorProto
_VariantTensorDataProto'tensors
(\ x__ :: VariantTensorDataProto
x__ y__ :: Vector TensorProto
y__ -> VariantTensorDataProto
x__ {_VariantTensorDataProto'tensors :: Vector TensorProto
_VariantTensorDataProto'tensors = Vector TensorProto
y__}))
(Vector TensorProto -> f (Vector TensorProto))
-> Vector TensorProto -> f (Vector TensorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message VariantTensorDataProto where
messageName :: Proxy VariantTensorDataProto -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.VariantTensorDataProto"
packedMessageDescriptor :: Proxy VariantTensorDataProto -> ByteString
packedMessageDescriptor _
= "\n\
\\SYNVariantTensorDataProto\DC2\ESC\n\
\\ttype_name\CAN\SOH \SOH(\tR\btypeName\DC2\SUB\n\
\\bmetadata\CAN\STX \SOH(\fR\bmetadata\DC21\n\
\\atensors\CAN\ETX \ETX(\v2\ETB.tensorflow.TensorProtoR\atensors"
packedFileDescriptor :: Proxy VariantTensorDataProto -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor VariantTensorDataProto)
fieldsByTag
= let
typeName__field_descriptor :: FieldDescriptor VariantTensorDataProto
typeName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor VariantTensorDataProto Text
-> FieldDescriptor VariantTensorDataProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"type_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 VariantTensorDataProto VariantTensorDataProto Text Text
-> FieldAccessor VariantTensorDataProto 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 "typeName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeName")) ::
Data.ProtoLens.FieldDescriptor VariantTensorDataProto
metadata__field_descriptor :: FieldDescriptor VariantTensorDataProto
metadata__field_descriptor
= String
-> FieldTypeDescriptor ByteString
-> FieldAccessor VariantTensorDataProto ByteString
-> FieldDescriptor VariantTensorDataProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"metadata"
(ScalarField ByteString -> FieldTypeDescriptor ByteString
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField ByteString
Data.ProtoLens.BytesField ::
Data.ProtoLens.FieldTypeDescriptor Data.ByteString.ByteString)
(WireDefault ByteString
-> Lens
VariantTensorDataProto VariantTensorDataProto ByteString ByteString
-> FieldAccessor VariantTensorDataProto ByteString
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault ByteString
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional
(forall s a (f :: * -> *).
(HasField s "metadata" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"metadata")) ::
Data.ProtoLens.FieldDescriptor VariantTensorDataProto
tensors__field_descriptor :: FieldDescriptor VariantTensorDataProto
tensors__field_descriptor
= String
-> FieldTypeDescriptor TensorProto
-> FieldAccessor VariantTensorDataProto TensorProto
-> FieldDescriptor VariantTensorDataProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"tensors"
(MessageOrGroup -> FieldTypeDescriptor TensorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor TensorProto)
(Packing
-> Lens' VariantTensorDataProto [TensorProto]
-> FieldAccessor VariantTensorDataProto TensorProto
forall msg value.
Packing -> Lens' msg [value] -> FieldAccessor msg value
Data.ProtoLens.RepeatedField
Packing
Data.ProtoLens.Unpacked (forall s a (f :: * -> *).
(HasField s "tensors" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"tensors")) ::
Data.ProtoLens.FieldDescriptor VariantTensorDataProto
in
[(Tag, FieldDescriptor VariantTensorDataProto)]
-> Map Tag (FieldDescriptor VariantTensorDataProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor VariantTensorDataProto
typeName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor VariantTensorDataProto
metadata__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor VariantTensorDataProto
tensors__field_descriptor)]
unknownFields :: LensLike' f VariantTensorDataProto FieldSet
unknownFields
= (VariantTensorDataProto -> FieldSet)
-> (VariantTensorDataProto -> FieldSet -> VariantTensorDataProto)
-> Lens' VariantTensorDataProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
VariantTensorDataProto -> FieldSet
_VariantTensorDataProto'_unknownFields
(\ x__ :: VariantTensorDataProto
x__ y__ :: FieldSet
y__ -> VariantTensorDataProto
x__ {_VariantTensorDataProto'_unknownFields :: FieldSet
_VariantTensorDataProto'_unknownFields = FieldSet
y__})
defMessage :: VariantTensorDataProto
defMessage
= $WVariantTensorDataProto'_constructor :: Text
-> ByteString
-> Vector TensorProto
-> FieldSet
-> VariantTensorDataProto
VariantTensorDataProto'_constructor
{_VariantTensorDataProto'typeName :: Text
_VariantTensorDataProto'typeName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_VariantTensorDataProto'metadata :: ByteString
_VariantTensorDataProto'metadata = ByteString
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_VariantTensorDataProto'tensors :: Vector TensorProto
_VariantTensorDataProto'tensors = Vector TensorProto
forall (v :: * -> *) a. Vector v a => v a
Data.Vector.Generic.empty,
_VariantTensorDataProto'_unknownFields :: FieldSet
_VariantTensorDataProto'_unknownFields = []}
parseMessage :: Parser VariantTensorDataProto
parseMessage
= let
loop ::
VariantTensorDataProto
-> Data.ProtoLens.Encoding.Growing.Growing Data.Vector.Vector Data.ProtoLens.Encoding.Growing.RealWorld TensorProto
-> Data.ProtoLens.Encoding.Bytes.Parser VariantTensorDataProto
loop :: VariantTensorDataProto
-> Growing Vector RealWorld TensorProto
-> Parser VariantTensorDataProto
loop x :: VariantTensorDataProto
x mutable'tensors :: Growing Vector RealWorld TensorProto
mutable'tensors
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do Vector TensorProto
frozen'tensors <- IO (Vector TensorProto) -> Parser (Vector TensorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) TensorProto
-> IO (Vector TensorProto)
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 TensorProto
Growing Vector (PrimState IO) TensorProto
mutable'tensors)
(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]))))
VariantTensorDataProto -> Parser VariantTensorDataProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
VariantTensorDataProto VariantTensorDataProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> VariantTensorDataProto
-> VariantTensorDataProto
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
VariantTensorDataProto VariantTensorDataProto FieldSet FieldSet
Data.ProtoLens.unknownFields
(\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t)
(Setter
VariantTensorDataProto
VariantTensorDataProto
(Vector TensorProto)
(Vector TensorProto)
-> Vector TensorProto
-> VariantTensorDataProto
-> VariantTensorDataProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "vec'tensors" a, Functor f) =>
(a -> f a) -> s -> 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'tensors") Vector TensorProto
frozen'tensors VariantTensorDataProto
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))
"type_name"
VariantTensorDataProto
-> Growing Vector RealWorld TensorProto
-> Parser VariantTensorDataProto
loop
(Setter VariantTensorDataProto VariantTensorDataProto Text Text
-> Text -> VariantTensorDataProto -> VariantTensorDataProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "typeName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeName") Text
y VariantTensorDataProto
x)
Growing Vector RealWorld TensorProto
mutable'tensors
18
-> 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))
"metadata"
VariantTensorDataProto
-> Growing Vector RealWorld TensorProto
-> Parser VariantTensorDataProto
loop
(Setter
VariantTensorDataProto VariantTensorDataProto ByteString ByteString
-> ByteString -> VariantTensorDataProto -> VariantTensorDataProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "metadata" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"metadata") ByteString
y VariantTensorDataProto
x)
Growing Vector RealWorld TensorProto
mutable'tensors
26
-> do !TensorProto
y <- Parser TensorProto -> String -> Parser TensorProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TensorProto -> Parser TensorProto
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 TensorProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"tensors"
Growing Vector RealWorld TensorProto
v <- IO (Growing Vector RealWorld TensorProto)
-> Parser (Growing Vector RealWorld TensorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
(Growing Vector (PrimState IO) TensorProto
-> TensorProto -> IO (Growing Vector (PrimState IO) TensorProto)
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 TensorProto
Growing Vector (PrimState IO) TensorProto
mutable'tensors TensorProto
y)
VariantTensorDataProto
-> Growing Vector RealWorld TensorProto
-> Parser VariantTensorDataProto
loop VariantTensorDataProto
x Growing Vector RealWorld TensorProto
v
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
VariantTensorDataProto
-> Growing Vector RealWorld TensorProto
-> Parser VariantTensorDataProto
loop
(Setter
VariantTensorDataProto VariantTensorDataProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> VariantTensorDataProto
-> VariantTensorDataProto
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
VariantTensorDataProto VariantTensorDataProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) VariantTensorDataProto
x)
Growing Vector RealWorld TensorProto
mutable'tensors
in
Parser VariantTensorDataProto
-> String -> Parser VariantTensorDataProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Growing Vector RealWorld TensorProto
mutable'tensors <- IO (Growing Vector RealWorld TensorProto)
-> Parser (Growing Vector RealWorld TensorProto)
forall a. IO a -> Parser a
Data.ProtoLens.Encoding.Parser.Unsafe.unsafeLiftIO
IO (Growing Vector RealWorld TensorProto)
forall (m :: * -> *) (v :: * -> *) a.
(PrimMonad m, Vector v a) =>
m (Growing v (PrimState m) a)
Data.ProtoLens.Encoding.Growing.new
VariantTensorDataProto
-> Growing Vector RealWorld TensorProto
-> Parser VariantTensorDataProto
loop VariantTensorDataProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage Growing Vector RealWorld TensorProto
mutable'tensors)
"VariantTensorDataProto"
buildMessage :: VariantTensorDataProto -> Builder
buildMessage
= \ _x :: VariantTensorDataProto
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v = FoldLike
Text VariantTensorDataProto VariantTensorDataProto Text Text
-> VariantTensorDataProto -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "typeName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"typeName") VariantTensorDataProto
_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 :: ByteString
_v = FoldLike
ByteString
VariantTensorDataProto
VariantTensorDataProto
ByteString
ByteString
-> VariantTensorDataProto -> ByteString
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "metadata" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"metadata") VariantTensorDataProto
_x
in
if ByteString -> ByteString -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) ByteString
_v ByteString
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)
((\ 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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
((TensorProto -> Builder) -> Vector TensorProto -> Builder
forall (v :: * -> *) a.
Vector v a =>
(a -> Builder) -> v a -> Builder
Data.ProtoLens.Encoding.Bytes.foldMapBuilder
(\ _v :: TensorProto
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder)
-> (TensorProto -> ByteString) -> TensorProto -> 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))
TensorProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
TensorProto
_v))
(FoldLike
(Vector TensorProto)
VariantTensorDataProto
VariantTensorDataProto
(Vector TensorProto)
(Vector TensorProto)
-> VariantTensorDataProto -> Vector TensorProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "vec'tensors" a, Functor f) =>
(a -> f a) -> s -> 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'tensors") VariantTensorDataProto
_x))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
VariantTensorDataProto
VariantTensorDataProto
FieldSet
FieldSet
-> VariantTensorDataProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
VariantTensorDataProto
VariantTensorDataProto
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields VariantTensorDataProto
_x))))
instance Control.DeepSeq.NFData VariantTensorDataProto where
rnf :: VariantTensorDataProto -> ()
rnf
= \ x__ :: VariantTensorDataProto
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(VariantTensorDataProto -> FieldSet
_VariantTensorDataProto'_unknownFields VariantTensorDataProto
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(VariantTensorDataProto -> Text
_VariantTensorDataProto'typeName VariantTensorDataProto
x__)
(ByteString -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(VariantTensorDataProto -> ByteString
_VariantTensorDataProto'metadata VariantTensorDataProto
x__)
(Vector TensorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(VariantTensorDataProto -> Vector TensorProto
_VariantTensorDataProto'tensors VariantTensorDataProto
x__) ())))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= "\n\
\&tensorflow/core/framework/tensor.proto\DC2\n\
\tensorflow\SUB/tensorflow/core/framework/resource_handle.proto\SUB,tensorflow/core/framework/tensor_shape.proto\SUB%tensorflow/core/framework/types.proto\"\209\ENQ\n\
\\vTensorProto\DC2*\n\
\\ENQdtype\CAN\SOH \SOH(\SO2\DC4.tensorflow.DataTypeR\ENQdtype\DC2?\n\
\\ftensor_shape\CAN\STX \SOH(\v2\FS.tensorflow.TensorShapeProtoR\vtensorShape\DC2%\n\
\\SOversion_number\CAN\ETX \SOH(\ENQR\rversionNumber\DC2%\n\
\\SOtensor_content\CAN\EOT \SOH(\fR\rtensorContent\DC2\GS\n\
\\bhalf_val\CAN\r \ETX(\ENQR\ahalfValB\STX\DLE\SOH\DC2\US\n\
\\tfloat_val\CAN\ENQ \ETX(\STXR\bfloatValB\STX\DLE\SOH\DC2!\n\
\\n\
\double_val\CAN\ACK \ETX(\SOHR\tdoubleValB\STX\DLE\SOH\DC2\ESC\n\
\\aint_val\CAN\a \ETX(\ENQR\ACKintValB\STX\DLE\SOH\DC2\GS\n\
\\n\
\string_val\CAN\b \ETX(\fR\tstringVal\DC2%\n\
\\fscomplex_val\CAN\t \ETX(\STXR\vscomplexValB\STX\DLE\SOH\DC2\US\n\
\\tint64_val\CAN\n\
\ \ETX(\ETXR\bint64ValB\STX\DLE\SOH\DC2\GS\n\
\\bbool_val\CAN\v \ETX(\bR\aboolValB\STX\DLE\SOH\DC2%\n\
\\fdcomplex_val\CAN\f \ETX(\SOHR\vdcomplexValB\STX\DLE\SOH\DC2O\n\
\\DC3resource_handle_val\CAN\SO \ETX(\v2\US.tensorflow.ResourceHandleProtoR\DC1resourceHandleVal\DC2C\n\
\\vvariant_val\CAN\SI \ETX(\v2\".tensorflow.VariantTensorDataProtoR\n\
\variantVal\DC2!\n\
\\n\
\uint32_val\CAN\DLE \ETX(\rR\tuint32ValB\STX\DLE\SOH\DC2!\n\
\\n\
\uint64_val\CAN\DC1 \ETX(\EOTR\tuint64ValB\STX\DLE\SOH\"\132\SOH\n\
\\SYNVariantTensorDataProto\DC2\ESC\n\
\\ttype_name\CAN\SOH \SOH(\tR\btypeName\DC2\SUB\n\
\\bmetadata\CAN\STX \SOH(\fR\bmetadata\DC21\n\
\\atensors\CAN\ETX \ETX(\v2\ETB.tensorflow.TensorProtoR\atensorsB|\n\
\\CANorg.tensorflow.frameworkB\fTensorProtosP\SOHZMgithub.com/tensorflow/tensorflow/tensorflow/go/core/framework/tensor_go_proto\248\SOH\SOHJ\244\FS\n\
\\ACK\DC2\EOT\NUL\NUL_\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\NUL9\n\
\\t\n\
\\STX\ETX\SOH\DC2\ETX\ENQ\NUL6\n\
\\t\n\
\\STX\ETX\STX\DC2\ETX\ACK\NUL/\n\
\\b\n\
\\SOH\b\DC2\ETX\b\NUL\US\n\
\\t\n\
\\STX\b\US\DC2\ETX\b\NUL\US\n\
\\b\n\
\\SOH\b\DC2\ETX\t\NUL-\n\
\\t\n\
\\STX\b\b\DC2\ETX\t\NUL-\n\
\\b\n\
\\SOH\b\DC2\ETX\n\
\\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\n\
\\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\v\NUL1\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\v\NUL1\n\
\\b\n\
\\SOH\b\DC2\ETX\f\NULd\n\
\\t\n\
\\STX\b\v\DC2\ETX\f\NULd\n\
\4\n\
\\STX\EOT\NUL\DC2\EOT\SI\NULU\SOH\SUB( Protocol buffer representing a tensor.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\SI\b\DC3\n\
\\v\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\DLE\STX\NAK\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\DLE\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\DLE\v\DLE\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\DLE\DC3\DC4\n\
\M\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX\DC3\STX$\SUB@ Shape of the tensor. TODO(touts): sort out the 0-rank issues.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ACK\DC2\ETX\DC3\STX\DC2\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\DC3\DC3\US\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\DC3\"#\n\
\\201\ETX\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX\RS\STX\ESC\SUB\215\SOH Version number.\n\
\\n\
\ In version 0, if the \"repeated xxx\" representations contain only one\n\
\ element, that element is repeated to fill the shape. This makes it easy\n\
\ to represent a constant Tensor with a single value.\n\
\2\225\SOH Only one of the representations below is set, one of \"tensor_contents\" and\n\
\ the \"xxx_val\" attributes. We are not using oneof because as oneofs cannot\n\
\ contain repeated fields it would require another extra set of messages.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\RS\STX\a\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\RS\b\SYN\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\RS\EM\SUB\n\
\\216\STX\n\
\\EOT\EOT\NUL\STX\ETX\DC2\ETX%\STX\ESC\SUB\202\STX Serialized raw tensor content from either Tensor::AsProtoTensorContent or\n\
\ memcpy in tensorflow::grpc::EncodeTensorToByteBuffer. This representation\n\
\ can be used for all tensor types. The purpose of this representation is to\n\
\ reduce serialization overhead during RPC call by avoiding serialization of\n\
\ many repeated small items.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETX%\STX\a\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX%\b\SYN\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX%\EM\SUB\n\
\\253\STX\n\
\\EOT\EOT\NUL\STX\EOT\DC2\ETX.\STX/\SUB\128\SOH DT_HALF, DT_BFLOAT16. Note that since protobuf has no int16 type, we'll\n\
\ have some pointless zero padding for each value here.\n\
\2\236\SOH Type specific representations that make it easy to create tensor protos in\n\
\ all languages. Only the representation corresponding to \"dtype\" can\n\
\ be set. The values hold the flattened representation of the tensor in\n\
\ row major order.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\EOT\DC2\ETX.\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ENQ\DC2\ETX.\v\DLE\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\SOH\DC2\ETX.\DC1\EM\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\ETX\DC2\ETX.\FS\RS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\EOT\b\DC2\ETX.\US.\n\
\\r\n\
\\ACK\EOT\NUL\STX\EOT\b\STX\DC2\ETX. -\n\
\\CAN\n\
\\EOT\EOT\NUL\STX\ENQ\DC2\ETX1\STX/\SUB\v DT_FLOAT.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\EOT\DC2\ETX1\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\ENQ\DC2\ETX1\v\DLE\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\SOH\DC2\ETX1\DC1\SUB\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\ETX\DC2\ETX1\GS\RS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ENQ\b\DC2\ETX1\US.\n\
\\r\n\
\\ACK\EOT\NUL\STX\ENQ\b\STX\DC2\ETX1 -\n\
\\EM\n\
\\EOT\EOT\NUL\STX\ACK\DC2\ETX4\STX1\SUB\f DT_DOUBLE.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\EOT\DC2\ETX4\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\ENQ\DC2\ETX4\v\DC1\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\SOH\DC2\ETX4\DC2\FS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\ETX\DC2\ETX4\US \n\
\\f\n\
\\ENQ\EOT\NUL\STX\ACK\b\DC2\ETX4!0\n\
\\r\n\
\\ACK\EOT\NUL\STX\ACK\b\STX\DC2\ETX4\"/\n\
\5\n\
\\EOT\EOT\NUL\STX\a\DC2\ETX7\STX-\SUB( DT_INT32, DT_INT16, DT_INT8, DT_UINT8.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\EOT\DC2\ETX7\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\ENQ\DC2\ETX7\v\DLE\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\SOH\DC2\ETX7\DC1\CAN\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\ETX\DC2\ETX7\ESC\FS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\a\b\DC2\ETX7\GS,\n\
\\r\n\
\\ACK\EOT\NUL\STX\a\b\STX\DC2\ETX7\RS+\n\
\\CAN\n\
\\EOT\EOT\NUL\STX\b\DC2\ETX:\STX \SUB\v DT_STRING\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\b\EOT\DC2\ETX:\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\b\ENQ\DC2\ETX:\v\DLE\n\
\\f\n\
\\ENQ\EOT\NUL\STX\b\SOH\DC2\ETX:\DC1\ESC\n\
\\f\n\
\\ENQ\EOT\NUL\STX\b\ETX\DC2\ETX:\RS\US\n\
\\134\SOH\n\
\\EOT\EOT\NUL\STX\t\DC2\ETX>\STX2\SUBy DT_COMPLEX64. scomplex_val(2*i) and scomplex_val(2*i+1) are real\n\
\ and imaginary parts of i-th single precision complex.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\t\EOT\DC2\ETX>\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\t\ENQ\DC2\ETX>\v\DLE\n\
\\f\n\
\\ENQ\EOT\NUL\STX\t\SOH\DC2\ETX>\DC1\GS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\t\ETX\DC2\ETX> !\n\
\\f\n\
\\ENQ\EOT\NUL\STX\t\b\DC2\ETX>\"1\n\
\\r\n\
\\ACK\EOT\NUL\STX\t\b\STX\DC2\ETX>#0\n\
\\ETB\n\
\\EOT\EOT\NUL\STX\n\
\\DC2\ETXA\STX0\SUB\n\
\ DT_INT64\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\n\
\\EOT\DC2\ETXA\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\n\
\\ENQ\DC2\ETXA\v\DLE\n\
\\f\n\
\\ENQ\EOT\NUL\STX\n\
\\SOH\DC2\ETXA\DC1\SUB\n\
\\f\n\
\\ENQ\EOT\NUL\STX\n\
\\ETX\DC2\ETXA\GS\US\n\
\\f\n\
\\ENQ\EOT\NUL\STX\n\
\\b\DC2\ETXA /\n\
\\r\n\
\\ACK\EOT\NUL\STX\n\
\\b\STX\DC2\ETXA!.\n\
\\SYN\n\
\\EOT\EOT\NUL\STX\v\DC2\ETXD\STX.\SUB\t DT_BOOL\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\v\EOT\DC2\ETXD\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\v\ENQ\DC2\ETXD\v\SI\n\
\\f\n\
\\ENQ\EOT\NUL\STX\v\SOH\DC2\ETXD\DLE\CAN\n\
\\f\n\
\\ENQ\EOT\NUL\STX\v\ETX\DC2\ETXD\ESC\GS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\v\b\DC2\ETXD\RS-\n\
\\r\n\
\\ACK\EOT\NUL\STX\v\b\STX\DC2\ETXD\US,\n\
\\135\SOH\n\
\\EOT\EOT\NUL\STX\f\DC2\ETXH\STX4\SUBz DT_COMPLEX128. dcomplex_val(2*i) and dcomplex_val(2*i+1) are real\n\
\ and imaginary parts of i-th double precision complex.\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\f\EOT\DC2\ETXH\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\f\ENQ\DC2\ETXH\v\DC1\n\
\\f\n\
\\ENQ\EOT\NUL\STX\f\SOH\DC2\ETXH\DC2\RS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\f\ETX\DC2\ETXH!#\n\
\\f\n\
\\ENQ\EOT\NUL\STX\f\b\DC2\ETXH$3\n\
\\r\n\
\\ACK\EOT\NUL\STX\f\b\STX\DC2\ETXH%2\n\
\\SUB\n\
\\EOT\EOT\NUL\STX\r\DC2\ETXK\STX8\SUB\r DT_RESOURCE\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\r\EOT\DC2\ETXK\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\r\ACK\DC2\ETXK\v\RS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\r\SOH\DC2\ETXK\US2\n\
\\f\n\
\\ENQ\EOT\NUL\STX\r\ETX\DC2\ETXK57\n\
\\EM\n\
\\EOT\EOT\NUL\STX\SO\DC2\ETXN\STX3\SUB\f DT_VARIANT\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SO\EOT\DC2\ETXN\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SO\ACK\DC2\ETXN\v!\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SO\SOH\DC2\ETXN\"-\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SO\ETX\DC2\ETXN02\n\
\\CAN\n\
\\EOT\EOT\NUL\STX\SI\DC2\ETXQ\STX2\SUB\v DT_UINT32\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SI\EOT\DC2\ETXQ\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SI\ENQ\DC2\ETXQ\v\DC1\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SI\SOH\DC2\ETXQ\DC2\FS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SI\ETX\DC2\ETXQ\US!\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SI\b\DC2\ETXQ\"1\n\
\\r\n\
\\ACK\EOT\NUL\STX\SI\b\STX\DC2\ETXQ#0\n\
\\CAN\n\
\\EOT\EOT\NUL\STX\DLE\DC2\ETXT\STX2\SUB\v DT_UINT64\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\DLE\EOT\DC2\ETXT\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\NUL\STX\DLE\ENQ\DC2\ETXT\v\DC1\n\
\\f\n\
\\ENQ\EOT\NUL\STX\DLE\SOH\DC2\ETXT\DC2\FS\n\
\\f\n\
\\ENQ\EOT\NUL\STX\DLE\ETX\DC2\ETXT\US!\n\
\\f\n\
\\ENQ\EOT\NUL\STX\DLE\b\DC2\ETXT\"1\n\
\\r\n\
\\ACK\EOT\NUL\STX\DLE\b\STX\DC2\ETXT#0\n\
\Z\n\
\\STX\EOT\SOH\DC2\EOTX\NUL_\SOH\SUBN Protocol buffer representing the serialization format of DT_VARIANT tensors.\n\
\\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETXX\b\RS\n\
\<\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETXZ\STX\ETB\SUB/ Name of the type of objects being serialized.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ENQ\DC2\ETXZ\STX\b\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETXZ\t\DC2\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETXZ\NAK\SYN\n\
\;\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX\\\STX\NAK\SUB. Portions of the object that are not Tensors.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ENQ\DC2\ETX\\\STX\a\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\\\b\DLE\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\\\DC3\DC4\n\
\A\n\
\\EOT\EOT\SOH\STX\STX\DC2\ETX^\STX#\SUB4 Tensors contained within objects being serialized.\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\EOT\DC2\ETX^\STX\n\
\\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ACK\DC2\ETX^\v\SYN\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX^\ETB\RS\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX^!\"b\ACKproto3"