{-# 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.Example.ExampleParserConfiguration (
ExampleParserConfiguration(),
ExampleParserConfiguration'FeatureMapEntry(),
FeatureConfiguration(), FeatureConfiguration'Config(..),
_FeatureConfiguration'FixedLenFeature,
_FeatureConfiguration'VarLenFeature, FixedLenFeatureProto(),
VarLenFeatureProto()
) 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.Tensor
import qualified Proto.Tensorflow.Core.Framework.TensorShape
import qualified Proto.Tensorflow.Core.Framework.Types
data ExampleParserConfiguration
= ExampleParserConfiguration'_constructor {ExampleParserConfiguration -> Map Text FeatureConfiguration
_ExampleParserConfiguration'featureMap :: !(Data.Map.Map Data.Text.Text FeatureConfiguration),
ExampleParserConfiguration -> FieldSet
_ExampleParserConfiguration'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ExampleParserConfiguration -> ExampleParserConfiguration -> Bool
(ExampleParserConfiguration -> ExampleParserConfiguration -> Bool)
-> (ExampleParserConfiguration
-> ExampleParserConfiguration -> Bool)
-> Eq ExampleParserConfiguration
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ExampleParserConfiguration -> ExampleParserConfiguration -> Bool
$c/= :: ExampleParserConfiguration -> ExampleParserConfiguration -> Bool
== :: ExampleParserConfiguration -> ExampleParserConfiguration -> Bool
$c== :: ExampleParserConfiguration -> ExampleParserConfiguration -> Bool
Prelude.Eq, Eq ExampleParserConfiguration
Eq ExampleParserConfiguration =>
(ExampleParserConfiguration
-> ExampleParserConfiguration -> Ordering)
-> (ExampleParserConfiguration
-> ExampleParserConfiguration -> Bool)
-> (ExampleParserConfiguration
-> ExampleParserConfiguration -> Bool)
-> (ExampleParserConfiguration
-> ExampleParserConfiguration -> Bool)
-> (ExampleParserConfiguration
-> ExampleParserConfiguration -> Bool)
-> (ExampleParserConfiguration
-> ExampleParserConfiguration -> ExampleParserConfiguration)
-> (ExampleParserConfiguration
-> ExampleParserConfiguration -> ExampleParserConfiguration)
-> Ord ExampleParserConfiguration
ExampleParserConfiguration -> ExampleParserConfiguration -> Bool
ExampleParserConfiguration
-> ExampleParserConfiguration -> Ordering
ExampleParserConfiguration
-> ExampleParserConfiguration -> ExampleParserConfiguration
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 :: ExampleParserConfiguration
-> ExampleParserConfiguration -> ExampleParserConfiguration
$cmin :: ExampleParserConfiguration
-> ExampleParserConfiguration -> ExampleParserConfiguration
max :: ExampleParserConfiguration
-> ExampleParserConfiguration -> ExampleParserConfiguration
$cmax :: ExampleParserConfiguration
-> ExampleParserConfiguration -> ExampleParserConfiguration
>= :: ExampleParserConfiguration -> ExampleParserConfiguration -> Bool
$c>= :: ExampleParserConfiguration -> ExampleParserConfiguration -> Bool
> :: ExampleParserConfiguration -> ExampleParserConfiguration -> Bool
$c> :: ExampleParserConfiguration -> ExampleParserConfiguration -> Bool
<= :: ExampleParserConfiguration -> ExampleParserConfiguration -> Bool
$c<= :: ExampleParserConfiguration -> ExampleParserConfiguration -> Bool
< :: ExampleParserConfiguration -> ExampleParserConfiguration -> Bool
$c< :: ExampleParserConfiguration -> ExampleParserConfiguration -> Bool
compare :: ExampleParserConfiguration
-> ExampleParserConfiguration -> Ordering
$ccompare :: ExampleParserConfiguration
-> ExampleParserConfiguration -> Ordering
$cp1Ord :: Eq ExampleParserConfiguration
Prelude.Ord)
instance Prelude.Show ExampleParserConfiguration where
showsPrec :: Int -> ExampleParserConfiguration -> ShowS
showsPrec _ __x :: ExampleParserConfiguration
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(ExampleParserConfiguration -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExampleParserConfiguration
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField ExampleParserConfiguration "featureMap" (Data.Map.Map Data.Text.Text FeatureConfiguration) where
fieldOf :: Proxy# "featureMap"
-> (Map Text FeatureConfiguration
-> f (Map Text FeatureConfiguration))
-> ExampleParserConfiguration
-> f ExampleParserConfiguration
fieldOf _
= ((Map Text FeatureConfiguration
-> f (Map Text FeatureConfiguration))
-> ExampleParserConfiguration -> f ExampleParserConfiguration)
-> ((Map Text FeatureConfiguration
-> f (Map Text FeatureConfiguration))
-> Map Text FeatureConfiguration
-> f (Map Text FeatureConfiguration))
-> (Map Text FeatureConfiguration
-> f (Map Text FeatureConfiguration))
-> ExampleParserConfiguration
-> f ExampleParserConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExampleParserConfiguration -> Map Text FeatureConfiguration)
-> (ExampleParserConfiguration
-> Map Text FeatureConfiguration -> ExampleParserConfiguration)
-> Lens
ExampleParserConfiguration
ExampleParserConfiguration
(Map Text FeatureConfiguration)
(Map Text FeatureConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExampleParserConfiguration -> Map Text FeatureConfiguration
_ExampleParserConfiguration'featureMap
(\ x__ :: ExampleParserConfiguration
x__ y__ :: Map Text FeatureConfiguration
y__ -> ExampleParserConfiguration
x__ {_ExampleParserConfiguration'featureMap :: Map Text FeatureConfiguration
_ExampleParserConfiguration'featureMap = Map Text FeatureConfiguration
y__}))
(Map Text FeatureConfiguration
-> f (Map Text FeatureConfiguration))
-> Map Text FeatureConfiguration
-> f (Map Text FeatureConfiguration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExampleParserConfiguration where
messageName :: Proxy ExampleParserConfiguration -> Text
messageName _
= String -> Text
Data.Text.pack "tensorflow.ExampleParserConfiguration"
packedMessageDescriptor :: Proxy ExampleParserConfiguration -> ByteString
packedMessageDescriptor _
= "\n\
\\SUBExampleParserConfiguration\DC2W\n\
\\vfeature_map\CAN\SOH \ETX(\v26.tensorflow.ExampleParserConfiguration.FeatureMapEntryR\n\
\featureMap\SUB_\n\
\\SIFeatureMapEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC26\n\
\\ENQvalue\CAN\STX \SOH(\v2 .tensorflow.FeatureConfigurationR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy ExampleParserConfiguration -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor ExampleParserConfiguration)
fieldsByTag
= let
featureMap__field_descriptor :: FieldDescriptor ExampleParserConfiguration
featureMap__field_descriptor
= String
-> FieldTypeDescriptor ExampleParserConfiguration'FeatureMapEntry
-> FieldAccessor
ExampleParserConfiguration
ExampleParserConfiguration'FeatureMapEntry
-> FieldDescriptor ExampleParserConfiguration
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"feature_map"
(MessageOrGroup
-> FieldTypeDescriptor ExampleParserConfiguration'FeatureMapEntry
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor ExampleParserConfiguration'FeatureMapEntry)
(Lens' ExampleParserConfiguration'FeatureMapEntry Text
-> Lens'
ExampleParserConfiguration'FeatureMapEntry FeatureConfiguration
-> Lens
ExampleParserConfiguration
ExampleParserConfiguration
(Map Text FeatureConfiguration)
(Map Text FeatureConfiguration)
-> FieldAccessor
ExampleParserConfiguration
ExampleParserConfiguration'FeatureMapEntry
forall key value value1 msg.
(Ord key, Message value) =>
Lens' value key
-> Lens' value value1
-> Lens' msg (Map key value1)
-> FieldAccessor msg value
Data.ProtoLens.MapField
(forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
(forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
(forall s a (f :: * -> *).
(HasField s "featureMap" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"featureMap")) ::
Data.ProtoLens.FieldDescriptor ExampleParserConfiguration
in
[(Tag, FieldDescriptor ExampleParserConfiguration)]
-> Map Tag (FieldDescriptor ExampleParserConfiguration)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor ExampleParserConfiguration
featureMap__field_descriptor)]
unknownFields :: LensLike' f ExampleParserConfiguration FieldSet
unknownFields
= (ExampleParserConfiguration -> FieldSet)
-> (ExampleParserConfiguration
-> FieldSet -> ExampleParserConfiguration)
-> Lens' ExampleParserConfiguration FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExampleParserConfiguration -> FieldSet
_ExampleParserConfiguration'_unknownFields
(\ x__ :: ExampleParserConfiguration
x__ y__ :: FieldSet
y__
-> ExampleParserConfiguration
x__ {_ExampleParserConfiguration'_unknownFields :: FieldSet
_ExampleParserConfiguration'_unknownFields = FieldSet
y__})
defMessage :: ExampleParserConfiguration
defMessage
= $WExampleParserConfiguration'_constructor :: Map Text FeatureConfiguration
-> FieldSet -> ExampleParserConfiguration
ExampleParserConfiguration'_constructor
{_ExampleParserConfiguration'featureMap :: Map Text FeatureConfiguration
_ExampleParserConfiguration'featureMap = Map Text FeatureConfiguration
forall k a. Map k a
Data.Map.empty,
_ExampleParserConfiguration'_unknownFields :: FieldSet
_ExampleParserConfiguration'_unknownFields = []}
parseMessage :: Parser ExampleParserConfiguration
parseMessage
= let
loop ::
ExampleParserConfiguration
-> Data.ProtoLens.Encoding.Bytes.Parser ExampleParserConfiguration
loop :: ExampleParserConfiguration -> Parser ExampleParserConfiguration
loop x :: ExampleParserConfiguration
x
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
ExampleParserConfiguration -> Parser ExampleParserConfiguration
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
ExampleParserConfiguration
ExampleParserConfiguration
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> ExampleParserConfiguration
-> ExampleParserConfiguration
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
ExampleParserConfiguration
ExampleParserConfiguration
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ExampleParserConfiguration
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do !(ExampleParserConfiguration'FeatureMapEntry
entry :: ExampleParserConfiguration'FeatureMapEntry) <- Parser ExampleParserConfiguration'FeatureMapEntry
-> String -> Parser ExampleParserConfiguration'FeatureMapEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int
-> Parser ExampleParserConfiguration'FeatureMapEntry
-> Parser ExampleParserConfiguration'FeatureMapEntry
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 ExampleParserConfiguration'FeatureMapEntry
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"feature_map"
(let
key :: Text
key = FoldLike
Text
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
Text
Text
-> ExampleParserConfiguration'FeatureMapEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ExampleParserConfiguration'FeatureMapEntry
entry
value :: FeatureConfiguration
value
= FoldLike
FeatureConfiguration
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
FeatureConfiguration
FeatureConfiguration
-> ExampleParserConfiguration'FeatureMapEntry
-> FeatureConfiguration
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") ExampleParserConfiguration'FeatureMapEntry
entry
in
ExampleParserConfiguration -> Parser ExampleParserConfiguration
loop
(Setter
ExampleParserConfiguration
ExampleParserConfiguration
(Map Text FeatureConfiguration)
(Map Text FeatureConfiguration)
-> (Map Text FeatureConfiguration -> Map Text FeatureConfiguration)
-> ExampleParserConfiguration
-> ExampleParserConfiguration
forall s t a b. Setter s t a b -> (a -> b) -> s -> t
Lens.Family2.over
(forall s a (f :: * -> *).
(HasField s "featureMap" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"featureMap")
(\ !Map Text FeatureConfiguration
t -> Text
-> FeatureConfiguration
-> Map Text FeatureConfiguration
-> Map Text FeatureConfiguration
forall k a. Ord k => k -> a -> Map k a -> Map k a
Data.Map.insert Text
key FeatureConfiguration
value Map Text FeatureConfiguration
t)
ExampleParserConfiguration
x))
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ExampleParserConfiguration -> Parser ExampleParserConfiguration
loop
(Setter
ExampleParserConfiguration
ExampleParserConfiguration
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> ExampleParserConfiguration
-> ExampleParserConfiguration
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
ExampleParserConfiguration
ExampleParserConfiguration
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ExampleParserConfiguration
x)
in
Parser ExampleParserConfiguration
-> String -> Parser ExampleParserConfiguration
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ExampleParserConfiguration -> Parser ExampleParserConfiguration
loop ExampleParserConfiguration
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "ExampleParserConfiguration"
buildMessage :: ExampleParserConfiguration -> Builder
buildMessage
= \ _x :: ExampleParserConfiguration
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
([Builder] -> Builder
forall a. Monoid a => [a] -> a
Data.Monoid.mconcat
(((Text, FeatureConfiguration) -> Builder)
-> [(Text, FeatureConfiguration)] -> [Builder]
forall a b. (a -> b) -> [a] -> [b]
Prelude.map
(\ _v :: (Text, FeatureConfiguration)
_v
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (ExampleParserConfiguration'FeatureMapEntry -> ByteString)
-> ExampleParserConfiguration'FeatureMapEntry
-> 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))
ExampleParserConfiguration'FeatureMapEntry -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
(Setter
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
Text
Text
-> Text
-> ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")
((Text, FeatureConfiguration) -> Text
forall a b. (a, b) -> a
Prelude.fst (Text, FeatureConfiguration)
_v)
(Setter
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
FeatureConfiguration
FeatureConfiguration
-> FeatureConfiguration
-> ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value")
((Text, FeatureConfiguration) -> FeatureConfiguration
forall a b. (a, b) -> b
Prelude.snd (Text, FeatureConfiguration)
_v)
(ExampleParserConfiguration'FeatureMapEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage ::
ExampleParserConfiguration'FeatureMapEntry)))))
(Map Text FeatureConfiguration -> [(Text, FeatureConfiguration)]
forall k a. Map k a -> [(k, a)]
Data.Map.toList
(FoldLike
(Map Text FeatureConfiguration)
ExampleParserConfiguration
ExampleParserConfiguration
(Map Text FeatureConfiguration)
(Map Text FeatureConfiguration)
-> ExampleParserConfiguration -> Map Text FeatureConfiguration
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "featureMap" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"featureMap") ExampleParserConfiguration
_x))))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
ExampleParserConfiguration
ExampleParserConfiguration
FieldSet
FieldSet
-> ExampleParserConfiguration -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
ExampleParserConfiguration
ExampleParserConfiguration
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ExampleParserConfiguration
_x))
instance Control.DeepSeq.NFData ExampleParserConfiguration where
rnf :: ExampleParserConfiguration -> ()
rnf
= \ x__ :: ExampleParserConfiguration
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExampleParserConfiguration -> FieldSet
_ExampleParserConfiguration'_unknownFields ExampleParserConfiguration
x__)
(Map Text FeatureConfiguration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExampleParserConfiguration -> Map Text FeatureConfiguration
_ExampleParserConfiguration'featureMap ExampleParserConfiguration
x__) ())
data ExampleParserConfiguration'FeatureMapEntry
= ExampleParserConfiguration'FeatureMapEntry'_constructor {ExampleParserConfiguration'FeatureMapEntry -> Text
_ExampleParserConfiguration'FeatureMapEntry'key :: !Data.Text.Text,
ExampleParserConfiguration'FeatureMapEntry
-> Maybe FeatureConfiguration
_ExampleParserConfiguration'FeatureMapEntry'value :: !(Prelude.Maybe FeatureConfiguration),
ExampleParserConfiguration'FeatureMapEntry -> FieldSet
_ExampleParserConfiguration'FeatureMapEntry'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool
(ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool)
-> (ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool)
-> Eq ExampleParserConfiguration'FeatureMapEntry
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool
$c/= :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool
== :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool
$c== :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool
Prelude.Eq, Eq ExampleParserConfiguration'FeatureMapEntry
Eq ExampleParserConfiguration'FeatureMapEntry =>
(ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Ordering)
-> (ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool)
-> (ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool)
-> (ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool)
-> (ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool)
-> (ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry)
-> (ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry)
-> Ord ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool
ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Ordering
ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
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 :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
$cmin :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
max :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
$cmax :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
>= :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool
$c>= :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool
> :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool
$c> :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool
<= :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool
$c<= :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool
< :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool
$c< :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Bool
compare :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Ordering
$ccompare :: ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry -> Ordering
$cp1Ord :: Eq ExampleParserConfiguration'FeatureMapEntry
Prelude.Ord)
instance Prelude.Show ExampleParserConfiguration'FeatureMapEntry where
showsPrec :: Int -> ExampleParserConfiguration'FeatureMapEntry -> ShowS
showsPrec _ __x :: ExampleParserConfiguration'FeatureMapEntry
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(ExampleParserConfiguration'FeatureMapEntry -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort ExampleParserConfiguration'FeatureMapEntry
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField ExampleParserConfiguration'FeatureMapEntry "key" Data.Text.Text where
fieldOf :: Proxy# "key"
-> (Text -> f Text)
-> ExampleParserConfiguration'FeatureMapEntry
-> f ExampleParserConfiguration'FeatureMapEntry
fieldOf _
= ((Text -> f Text)
-> ExampleParserConfiguration'FeatureMapEntry
-> f ExampleParserConfiguration'FeatureMapEntry)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> ExampleParserConfiguration'FeatureMapEntry
-> f ExampleParserConfiguration'FeatureMapEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExampleParserConfiguration'FeatureMapEntry -> Text)
-> (ExampleParserConfiguration'FeatureMapEntry
-> Text -> ExampleParserConfiguration'FeatureMapEntry)
-> Lens' ExampleParserConfiguration'FeatureMapEntry Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExampleParserConfiguration'FeatureMapEntry -> Text
_ExampleParserConfiguration'FeatureMapEntry'key
(\ x__ :: ExampleParserConfiguration'FeatureMapEntry
x__ y__ :: Text
y__
-> ExampleParserConfiguration'FeatureMapEntry
x__ {_ExampleParserConfiguration'FeatureMapEntry'key :: Text
_ExampleParserConfiguration'FeatureMapEntry'key = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField ExampleParserConfiguration'FeatureMapEntry "value" FeatureConfiguration where
fieldOf :: Proxy# "value"
-> (FeatureConfiguration -> f FeatureConfiguration)
-> ExampleParserConfiguration'FeatureMapEntry
-> f ExampleParserConfiguration'FeatureMapEntry
fieldOf _
= ((Maybe FeatureConfiguration -> f (Maybe FeatureConfiguration))
-> ExampleParserConfiguration'FeatureMapEntry
-> f ExampleParserConfiguration'FeatureMapEntry)
-> ((FeatureConfiguration -> f FeatureConfiguration)
-> Maybe FeatureConfiguration -> f (Maybe FeatureConfiguration))
-> (FeatureConfiguration -> f FeatureConfiguration)
-> ExampleParserConfiguration'FeatureMapEntry
-> f ExampleParserConfiguration'FeatureMapEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExampleParserConfiguration'FeatureMapEntry
-> Maybe FeatureConfiguration)
-> (ExampleParserConfiguration'FeatureMapEntry
-> Maybe FeatureConfiguration
-> ExampleParserConfiguration'FeatureMapEntry)
-> Lens
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
(Maybe FeatureConfiguration)
(Maybe FeatureConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExampleParserConfiguration'FeatureMapEntry
-> Maybe FeatureConfiguration
_ExampleParserConfiguration'FeatureMapEntry'value
(\ x__ :: ExampleParserConfiguration'FeatureMapEntry
x__ y__ :: Maybe FeatureConfiguration
y__
-> ExampleParserConfiguration'FeatureMapEntry
x__ {_ExampleParserConfiguration'FeatureMapEntry'value :: Maybe FeatureConfiguration
_ExampleParserConfiguration'FeatureMapEntry'value = Maybe FeatureConfiguration
y__}))
(FeatureConfiguration
-> Lens' (Maybe FeatureConfiguration) FeatureConfiguration
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FeatureConfiguration
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField ExampleParserConfiguration'FeatureMapEntry "maybe'value" (Prelude.Maybe FeatureConfiguration) where
fieldOf :: Proxy# "maybe'value"
-> (Maybe FeatureConfiguration -> f (Maybe FeatureConfiguration))
-> ExampleParserConfiguration'FeatureMapEntry
-> f ExampleParserConfiguration'FeatureMapEntry
fieldOf _
= ((Maybe FeatureConfiguration -> f (Maybe FeatureConfiguration))
-> ExampleParserConfiguration'FeatureMapEntry
-> f ExampleParserConfiguration'FeatureMapEntry)
-> ((Maybe FeatureConfiguration -> f (Maybe FeatureConfiguration))
-> Maybe FeatureConfiguration -> f (Maybe FeatureConfiguration))
-> (Maybe FeatureConfiguration -> f (Maybe FeatureConfiguration))
-> ExampleParserConfiguration'FeatureMapEntry
-> f ExampleParserConfiguration'FeatureMapEntry
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((ExampleParserConfiguration'FeatureMapEntry
-> Maybe FeatureConfiguration)
-> (ExampleParserConfiguration'FeatureMapEntry
-> Maybe FeatureConfiguration
-> ExampleParserConfiguration'FeatureMapEntry)
-> Lens
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
(Maybe FeatureConfiguration)
(Maybe FeatureConfiguration)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExampleParserConfiguration'FeatureMapEntry
-> Maybe FeatureConfiguration
_ExampleParserConfiguration'FeatureMapEntry'value
(\ x__ :: ExampleParserConfiguration'FeatureMapEntry
x__ y__ :: Maybe FeatureConfiguration
y__
-> ExampleParserConfiguration'FeatureMapEntry
x__ {_ExampleParserConfiguration'FeatureMapEntry'value :: Maybe FeatureConfiguration
_ExampleParserConfiguration'FeatureMapEntry'value = Maybe FeatureConfiguration
y__}))
(Maybe FeatureConfiguration -> f (Maybe FeatureConfiguration))
-> Maybe FeatureConfiguration -> f (Maybe FeatureConfiguration)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message ExampleParserConfiguration'FeatureMapEntry where
messageName :: Proxy ExampleParserConfiguration'FeatureMapEntry -> Text
messageName _
= String -> Text
Data.Text.pack
"tensorflow.ExampleParserConfiguration.FeatureMapEntry"
packedMessageDescriptor :: Proxy ExampleParserConfiguration'FeatureMapEntry -> ByteString
packedMessageDescriptor _
= "\n\
\\SIFeatureMapEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC26\n\
\\ENQvalue\CAN\STX \SOH(\v2 .tensorflow.FeatureConfigurationR\ENQvalue:\STX8\SOH"
packedFileDescriptor :: Proxy ExampleParserConfiguration'FeatureMapEntry -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map
Tag (FieldDescriptor ExampleParserConfiguration'FeatureMapEntry)
fieldsByTag
= let
key__field_descriptor :: FieldDescriptor ExampleParserConfiguration'FeatureMapEntry
key__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor ExampleParserConfiguration'FeatureMapEntry Text
-> FieldDescriptor ExampleParserConfiguration'FeatureMapEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"key"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens' ExampleParserConfiguration'FeatureMapEntry Text
-> FieldAccessor ExampleParserConfiguration'FeatureMapEntry Text
forall value msg.
WireDefault value -> Lens' msg value -> FieldAccessor msg value
Data.ProtoLens.PlainField
WireDefault Text
forall value. (FieldDefault value, Eq value) => WireDefault value
Data.ProtoLens.Optional (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key")) ::
Data.ProtoLens.FieldDescriptor ExampleParserConfiguration'FeatureMapEntry
value__field_descriptor :: FieldDescriptor ExampleParserConfiguration'FeatureMapEntry
value__field_descriptor
= String
-> FieldTypeDescriptor FeatureConfiguration
-> FieldAccessor
ExampleParserConfiguration'FeatureMapEntry FeatureConfiguration
-> FieldDescriptor ExampleParserConfiguration'FeatureMapEntry
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"value"
(MessageOrGroup -> FieldTypeDescriptor FeatureConfiguration
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor FeatureConfiguration)
(Lens
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
(Maybe FeatureConfiguration)
(Maybe FeatureConfiguration)
-> FieldAccessor
ExampleParserConfiguration'FeatureMapEntry FeatureConfiguration
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'value")) ::
Data.ProtoLens.FieldDescriptor ExampleParserConfiguration'FeatureMapEntry
in
[(Tag, FieldDescriptor ExampleParserConfiguration'FeatureMapEntry)]
-> Map
Tag (FieldDescriptor ExampleParserConfiguration'FeatureMapEntry)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor ExampleParserConfiguration'FeatureMapEntry
key__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor ExampleParserConfiguration'FeatureMapEntry
value__field_descriptor)]
unknownFields :: LensLike' f ExampleParserConfiguration'FeatureMapEntry FieldSet
unknownFields
= (ExampleParserConfiguration'FeatureMapEntry -> FieldSet)
-> (ExampleParserConfiguration'FeatureMapEntry
-> FieldSet -> ExampleParserConfiguration'FeatureMapEntry)
-> Lens' ExampleParserConfiguration'FeatureMapEntry FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
ExampleParserConfiguration'FeatureMapEntry -> FieldSet
_ExampleParserConfiguration'FeatureMapEntry'_unknownFields
(\ x__ :: ExampleParserConfiguration'FeatureMapEntry
x__ y__ :: FieldSet
y__
-> ExampleParserConfiguration'FeatureMapEntry
x__
{_ExampleParserConfiguration'FeatureMapEntry'_unknownFields :: FieldSet
_ExampleParserConfiguration'FeatureMapEntry'_unknownFields = FieldSet
y__})
defMessage :: ExampleParserConfiguration'FeatureMapEntry
defMessage
= $WExampleParserConfiguration'FeatureMapEntry'_constructor :: Text
-> Maybe FeatureConfiguration
-> FieldSet
-> ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry'_constructor
{_ExampleParserConfiguration'FeatureMapEntry'key :: Text
_ExampleParserConfiguration'FeatureMapEntry'key = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_ExampleParserConfiguration'FeatureMapEntry'value :: Maybe FeatureConfiguration
_ExampleParserConfiguration'FeatureMapEntry'value = Maybe FeatureConfiguration
forall a. Maybe a
Prelude.Nothing,
_ExampleParserConfiguration'FeatureMapEntry'_unknownFields :: FieldSet
_ExampleParserConfiguration'FeatureMapEntry'_unknownFields = []}
parseMessage :: Parser ExampleParserConfiguration'FeatureMapEntry
parseMessage
= let
loop ::
ExampleParserConfiguration'FeatureMapEntry
-> Data.ProtoLens.Encoding.Bytes.Parser ExampleParserConfiguration'FeatureMapEntry
loop :: ExampleParserConfiguration'FeatureMapEntry
-> Parser ExampleParserConfiguration'FeatureMapEntry
loop x :: ExampleParserConfiguration'FeatureMapEntry
x
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
ExampleParserConfiguration'FeatureMapEntry
-> Parser ExampleParserConfiguration'FeatureMapEntry
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
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
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) ExampleParserConfiguration'FeatureMapEntry
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"key"
ExampleParserConfiguration'FeatureMapEntry
-> Parser ExampleParserConfiguration'FeatureMapEntry
loop (Setter
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
Text
Text
-> Text
-> ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") Text
y ExampleParserConfiguration'FeatureMapEntry
x)
18
-> do FeatureConfiguration
y <- Parser FeatureConfiguration
-> String -> Parser FeatureConfiguration
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser FeatureConfiguration -> Parser FeatureConfiguration
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 FeatureConfiguration
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"value"
ExampleParserConfiguration'FeatureMapEntry
-> Parser ExampleParserConfiguration'FeatureMapEntry
loop (Setter
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
FeatureConfiguration
FeatureConfiguration
-> FeatureConfiguration
-> ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"value") FeatureConfiguration
y ExampleParserConfiguration'FeatureMapEntry
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
ExampleParserConfiguration'FeatureMapEntry
-> Parser ExampleParserConfiguration'FeatureMapEntry
loop
(Setter
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
FieldSet
FieldSet
-> (FieldSet -> FieldSet)
-> ExampleParserConfiguration'FeatureMapEntry
-> ExampleParserConfiguration'FeatureMapEntry
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
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
FieldSet
FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) ExampleParserConfiguration'FeatureMapEntry
x)
in
Parser ExampleParserConfiguration'FeatureMapEntry
-> String -> Parser ExampleParserConfiguration'FeatureMapEntry
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ExampleParserConfiguration'FeatureMapEntry
-> Parser ExampleParserConfiguration'FeatureMapEntry
loop ExampleParserConfiguration'FeatureMapEntry
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "FeatureMapEntry"
buildMessage :: ExampleParserConfiguration'FeatureMapEntry -> Builder
buildMessage
= \ _x :: ExampleParserConfiguration'FeatureMapEntry
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let _v :: Text
_v = FoldLike
Text
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
Text
Text
-> ExampleParserConfiguration'FeatureMapEntry -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "key" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"key") ExampleParserConfiguration'FeatureMapEntry
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe FeatureConfiguration)
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
(Maybe FeatureConfiguration)
(Maybe FeatureConfiguration)
-> ExampleParserConfiguration'FeatureMapEntry
-> Maybe FeatureConfiguration
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'value" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'value") ExampleParserConfiguration'FeatureMapEntry
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _v :: FeatureConfiguration
_v)
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (FeatureConfiguration -> ByteString)
-> FeatureConfiguration
-> 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))
FeatureConfiguration -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
FeatureConfiguration
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
FieldSet
FieldSet
-> ExampleParserConfiguration'FeatureMapEntry -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
ExampleParserConfiguration'FeatureMapEntry
ExampleParserConfiguration'FeatureMapEntry
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields ExampleParserConfiguration'FeatureMapEntry
_x)))
instance Control.DeepSeq.NFData ExampleParserConfiguration'FeatureMapEntry where
rnf :: ExampleParserConfiguration'FeatureMapEntry -> ()
rnf
= \ x__ :: ExampleParserConfiguration'FeatureMapEntry
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExampleParserConfiguration'FeatureMapEntry -> FieldSet
_ExampleParserConfiguration'FeatureMapEntry'_unknownFields ExampleParserConfiguration'FeatureMapEntry
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExampleParserConfiguration'FeatureMapEntry -> Text
_ExampleParserConfiguration'FeatureMapEntry'key ExampleParserConfiguration'FeatureMapEntry
x__)
(Maybe FeatureConfiguration -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(ExampleParserConfiguration'FeatureMapEntry
-> Maybe FeatureConfiguration
_ExampleParserConfiguration'FeatureMapEntry'value ExampleParserConfiguration'FeatureMapEntry
x__) ()))
data FeatureConfiguration
= FeatureConfiguration'_constructor {FeatureConfiguration -> Maybe FeatureConfiguration'Config
_FeatureConfiguration'config :: !(Prelude.Maybe FeatureConfiguration'Config),
FeatureConfiguration -> FieldSet
_FeatureConfiguration'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (FeatureConfiguration -> FeatureConfiguration -> Bool
(FeatureConfiguration -> FeatureConfiguration -> Bool)
-> (FeatureConfiguration -> FeatureConfiguration -> Bool)
-> Eq FeatureConfiguration
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FeatureConfiguration -> FeatureConfiguration -> Bool
$c/= :: FeatureConfiguration -> FeatureConfiguration -> Bool
== :: FeatureConfiguration -> FeatureConfiguration -> Bool
$c== :: FeatureConfiguration -> FeatureConfiguration -> Bool
Prelude.Eq, Eq FeatureConfiguration
Eq FeatureConfiguration =>
(FeatureConfiguration -> FeatureConfiguration -> Ordering)
-> (FeatureConfiguration -> FeatureConfiguration -> Bool)
-> (FeatureConfiguration -> FeatureConfiguration -> Bool)
-> (FeatureConfiguration -> FeatureConfiguration -> Bool)
-> (FeatureConfiguration -> FeatureConfiguration -> Bool)
-> (FeatureConfiguration
-> FeatureConfiguration -> FeatureConfiguration)
-> (FeatureConfiguration
-> FeatureConfiguration -> FeatureConfiguration)
-> Ord FeatureConfiguration
FeatureConfiguration -> FeatureConfiguration -> Bool
FeatureConfiguration -> FeatureConfiguration -> Ordering
FeatureConfiguration
-> FeatureConfiguration -> FeatureConfiguration
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 :: FeatureConfiguration
-> FeatureConfiguration -> FeatureConfiguration
$cmin :: FeatureConfiguration
-> FeatureConfiguration -> FeatureConfiguration
max :: FeatureConfiguration
-> FeatureConfiguration -> FeatureConfiguration
$cmax :: FeatureConfiguration
-> FeatureConfiguration -> FeatureConfiguration
>= :: FeatureConfiguration -> FeatureConfiguration -> Bool
$c>= :: FeatureConfiguration -> FeatureConfiguration -> Bool
> :: FeatureConfiguration -> FeatureConfiguration -> Bool
$c> :: FeatureConfiguration -> FeatureConfiguration -> Bool
<= :: FeatureConfiguration -> FeatureConfiguration -> Bool
$c<= :: FeatureConfiguration -> FeatureConfiguration -> Bool
< :: FeatureConfiguration -> FeatureConfiguration -> Bool
$c< :: FeatureConfiguration -> FeatureConfiguration -> Bool
compare :: FeatureConfiguration -> FeatureConfiguration -> Ordering
$ccompare :: FeatureConfiguration -> FeatureConfiguration -> Ordering
$cp1Ord :: Eq FeatureConfiguration
Prelude.Ord)
instance Prelude.Show FeatureConfiguration where
showsPrec :: Int -> FeatureConfiguration -> ShowS
showsPrec _ __x :: FeatureConfiguration
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(FeatureConfiguration -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FeatureConfiguration
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
data FeatureConfiguration'Config
= FeatureConfiguration'FixedLenFeature !FixedLenFeatureProto |
FeatureConfiguration'VarLenFeature !VarLenFeatureProto
deriving stock (Int -> FeatureConfiguration'Config -> ShowS
[FeatureConfiguration'Config] -> ShowS
FeatureConfiguration'Config -> String
(Int -> FeatureConfiguration'Config -> ShowS)
-> (FeatureConfiguration'Config -> String)
-> ([FeatureConfiguration'Config] -> ShowS)
-> Show FeatureConfiguration'Config
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [FeatureConfiguration'Config] -> ShowS
$cshowList :: [FeatureConfiguration'Config] -> ShowS
show :: FeatureConfiguration'Config -> String
$cshow :: FeatureConfiguration'Config -> String
showsPrec :: Int -> FeatureConfiguration'Config -> ShowS
$cshowsPrec :: Int -> FeatureConfiguration'Config -> ShowS
Prelude.Show, FeatureConfiguration'Config -> FeatureConfiguration'Config -> Bool
(FeatureConfiguration'Config
-> FeatureConfiguration'Config -> Bool)
-> (FeatureConfiguration'Config
-> FeatureConfiguration'Config -> Bool)
-> Eq FeatureConfiguration'Config
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FeatureConfiguration'Config -> FeatureConfiguration'Config -> Bool
$c/= :: FeatureConfiguration'Config -> FeatureConfiguration'Config -> Bool
== :: FeatureConfiguration'Config -> FeatureConfiguration'Config -> Bool
$c== :: FeatureConfiguration'Config -> FeatureConfiguration'Config -> Bool
Prelude.Eq, Eq FeatureConfiguration'Config
Eq FeatureConfiguration'Config =>
(FeatureConfiguration'Config
-> FeatureConfiguration'Config -> Ordering)
-> (FeatureConfiguration'Config
-> FeatureConfiguration'Config -> Bool)
-> (FeatureConfiguration'Config
-> FeatureConfiguration'Config -> Bool)
-> (FeatureConfiguration'Config
-> FeatureConfiguration'Config -> Bool)
-> (FeatureConfiguration'Config
-> FeatureConfiguration'Config -> Bool)
-> (FeatureConfiguration'Config
-> FeatureConfiguration'Config -> FeatureConfiguration'Config)
-> (FeatureConfiguration'Config
-> FeatureConfiguration'Config -> FeatureConfiguration'Config)
-> Ord FeatureConfiguration'Config
FeatureConfiguration'Config -> FeatureConfiguration'Config -> Bool
FeatureConfiguration'Config
-> FeatureConfiguration'Config -> Ordering
FeatureConfiguration'Config
-> FeatureConfiguration'Config -> FeatureConfiguration'Config
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 :: FeatureConfiguration'Config
-> FeatureConfiguration'Config -> FeatureConfiguration'Config
$cmin :: FeatureConfiguration'Config
-> FeatureConfiguration'Config -> FeatureConfiguration'Config
max :: FeatureConfiguration'Config
-> FeatureConfiguration'Config -> FeatureConfiguration'Config
$cmax :: FeatureConfiguration'Config
-> FeatureConfiguration'Config -> FeatureConfiguration'Config
>= :: FeatureConfiguration'Config -> FeatureConfiguration'Config -> Bool
$c>= :: FeatureConfiguration'Config -> FeatureConfiguration'Config -> Bool
> :: FeatureConfiguration'Config -> FeatureConfiguration'Config -> Bool
$c> :: FeatureConfiguration'Config -> FeatureConfiguration'Config -> Bool
<= :: FeatureConfiguration'Config -> FeatureConfiguration'Config -> Bool
$c<= :: FeatureConfiguration'Config -> FeatureConfiguration'Config -> Bool
< :: FeatureConfiguration'Config -> FeatureConfiguration'Config -> Bool
$c< :: FeatureConfiguration'Config -> FeatureConfiguration'Config -> Bool
compare :: FeatureConfiguration'Config
-> FeatureConfiguration'Config -> Ordering
$ccompare :: FeatureConfiguration'Config
-> FeatureConfiguration'Config -> Ordering
$cp1Ord :: Eq FeatureConfiguration'Config
Prelude.Ord)
instance Data.ProtoLens.Field.HasField FeatureConfiguration "maybe'config" (Prelude.Maybe FeatureConfiguration'Config) where
fieldOf :: Proxy# "maybe'config"
-> (Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> FeatureConfiguration
-> f FeatureConfiguration
fieldOf _
= ((Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> FeatureConfiguration -> f FeatureConfiguration)
-> ((Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> (Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> FeatureConfiguration
-> f FeatureConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FeatureConfiguration -> Maybe FeatureConfiguration'Config)
-> (FeatureConfiguration
-> Maybe FeatureConfiguration'Config -> FeatureConfiguration)
-> Lens
FeatureConfiguration
FeatureConfiguration
(Maybe FeatureConfiguration'Config)
(Maybe FeatureConfiguration'Config)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FeatureConfiguration -> Maybe FeatureConfiguration'Config
_FeatureConfiguration'config
(\ x__ :: FeatureConfiguration
x__ y__ :: Maybe FeatureConfiguration'Config
y__ -> FeatureConfiguration
x__ {_FeatureConfiguration'config :: Maybe FeatureConfiguration'Config
_FeatureConfiguration'config = Maybe FeatureConfiguration'Config
y__}))
(Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FeatureConfiguration "maybe'fixedLenFeature" (Prelude.Maybe FixedLenFeatureProto) where
fieldOf :: Proxy# "maybe'fixedLenFeature"
-> (Maybe FixedLenFeatureProto -> f (Maybe FixedLenFeatureProto))
-> FeatureConfiguration
-> f FeatureConfiguration
fieldOf _
= ((Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> FeatureConfiguration -> f FeatureConfiguration)
-> ((Maybe FixedLenFeatureProto -> f (Maybe FixedLenFeatureProto))
-> Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> (Maybe FixedLenFeatureProto -> f (Maybe FixedLenFeatureProto))
-> FeatureConfiguration
-> f FeatureConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FeatureConfiguration -> Maybe FeatureConfiguration'Config)
-> (FeatureConfiguration
-> Maybe FeatureConfiguration'Config -> FeatureConfiguration)
-> Lens
FeatureConfiguration
FeatureConfiguration
(Maybe FeatureConfiguration'Config)
(Maybe FeatureConfiguration'Config)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FeatureConfiguration -> Maybe FeatureConfiguration'Config
_FeatureConfiguration'config
(\ x__ :: FeatureConfiguration
x__ y__ :: Maybe FeatureConfiguration'Config
y__ -> FeatureConfiguration
x__ {_FeatureConfiguration'config :: Maybe FeatureConfiguration'Config
_FeatureConfiguration'config = Maybe FeatureConfiguration'Config
y__}))
((Maybe FeatureConfiguration'Config -> Maybe FixedLenFeatureProto)
-> (Maybe FeatureConfiguration'Config
-> Maybe FixedLenFeatureProto -> Maybe FeatureConfiguration'Config)
-> Lens
(Maybe FeatureConfiguration'Config)
(Maybe FeatureConfiguration'Config)
(Maybe FixedLenFeatureProto)
(Maybe FixedLenFeatureProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe FeatureConfiguration'Config
x__
-> case Maybe FeatureConfiguration'Config
x__ of
(Prelude.Just (FeatureConfiguration'FixedLenFeature x__val :: FixedLenFeatureProto
x__val))
-> FixedLenFeatureProto -> Maybe FixedLenFeatureProto
forall a. a -> Maybe a
Prelude.Just FixedLenFeatureProto
x__val
_otherwise :: Maybe FeatureConfiguration'Config
_otherwise -> Maybe FixedLenFeatureProto
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe FixedLenFeatureProto
y__ -> (FixedLenFeatureProto -> FeatureConfiguration'Config)
-> Maybe FixedLenFeatureProto -> Maybe FeatureConfiguration'Config
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap FixedLenFeatureProto -> FeatureConfiguration'Config
FeatureConfiguration'FixedLenFeature Maybe FixedLenFeatureProto
y__))
instance Data.ProtoLens.Field.HasField FeatureConfiguration "fixedLenFeature" FixedLenFeatureProto where
fieldOf :: Proxy# "fixedLenFeature"
-> (FixedLenFeatureProto -> f FixedLenFeatureProto)
-> FeatureConfiguration
-> f FeatureConfiguration
fieldOf _
= ((Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> FeatureConfiguration -> f FeatureConfiguration)
-> ((FixedLenFeatureProto -> f FixedLenFeatureProto)
-> Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> (FixedLenFeatureProto -> f FixedLenFeatureProto)
-> FeatureConfiguration
-> f FeatureConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FeatureConfiguration -> Maybe FeatureConfiguration'Config)
-> (FeatureConfiguration
-> Maybe FeatureConfiguration'Config -> FeatureConfiguration)
-> Lens
FeatureConfiguration
FeatureConfiguration
(Maybe FeatureConfiguration'Config)
(Maybe FeatureConfiguration'Config)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FeatureConfiguration -> Maybe FeatureConfiguration'Config
_FeatureConfiguration'config
(\ x__ :: FeatureConfiguration
x__ y__ :: Maybe FeatureConfiguration'Config
y__ -> FeatureConfiguration
x__ {_FeatureConfiguration'config :: Maybe FeatureConfiguration'Config
_FeatureConfiguration'config = Maybe FeatureConfiguration'Config
y__}))
(((Maybe FixedLenFeatureProto -> f (Maybe FixedLenFeatureProto))
-> Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> ((FixedLenFeatureProto -> f FixedLenFeatureProto)
-> Maybe FixedLenFeatureProto -> f (Maybe FixedLenFeatureProto))
-> (FixedLenFeatureProto -> f FixedLenFeatureProto)
-> Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe FeatureConfiguration'Config -> Maybe FixedLenFeatureProto)
-> (Maybe FeatureConfiguration'Config
-> Maybe FixedLenFeatureProto -> Maybe FeatureConfiguration'Config)
-> Lens
(Maybe FeatureConfiguration'Config)
(Maybe FeatureConfiguration'Config)
(Maybe FixedLenFeatureProto)
(Maybe FixedLenFeatureProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe FeatureConfiguration'Config
x__
-> case Maybe FeatureConfiguration'Config
x__ of
(Prelude.Just (FeatureConfiguration'FixedLenFeature x__val :: FixedLenFeatureProto
x__val))
-> FixedLenFeatureProto -> Maybe FixedLenFeatureProto
forall a. a -> Maybe a
Prelude.Just FixedLenFeatureProto
x__val
_otherwise :: Maybe FeatureConfiguration'Config
_otherwise -> Maybe FixedLenFeatureProto
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe FixedLenFeatureProto
y__ -> (FixedLenFeatureProto -> FeatureConfiguration'Config)
-> Maybe FixedLenFeatureProto -> Maybe FeatureConfiguration'Config
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap FixedLenFeatureProto -> FeatureConfiguration'Config
FeatureConfiguration'FixedLenFeature Maybe FixedLenFeatureProto
y__))
(FixedLenFeatureProto
-> Lens' (Maybe FixedLenFeatureProto) FixedLenFeatureProto
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens FixedLenFeatureProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Field.HasField FeatureConfiguration "maybe'varLenFeature" (Prelude.Maybe VarLenFeatureProto) where
fieldOf :: Proxy# "maybe'varLenFeature"
-> (Maybe VarLenFeatureProto -> f (Maybe VarLenFeatureProto))
-> FeatureConfiguration
-> f FeatureConfiguration
fieldOf _
= ((Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> FeatureConfiguration -> f FeatureConfiguration)
-> ((Maybe VarLenFeatureProto -> f (Maybe VarLenFeatureProto))
-> Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> (Maybe VarLenFeatureProto -> f (Maybe VarLenFeatureProto))
-> FeatureConfiguration
-> f FeatureConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FeatureConfiguration -> Maybe FeatureConfiguration'Config)
-> (FeatureConfiguration
-> Maybe FeatureConfiguration'Config -> FeatureConfiguration)
-> Lens
FeatureConfiguration
FeatureConfiguration
(Maybe FeatureConfiguration'Config)
(Maybe FeatureConfiguration'Config)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FeatureConfiguration -> Maybe FeatureConfiguration'Config
_FeatureConfiguration'config
(\ x__ :: FeatureConfiguration
x__ y__ :: Maybe FeatureConfiguration'Config
y__ -> FeatureConfiguration
x__ {_FeatureConfiguration'config :: Maybe FeatureConfiguration'Config
_FeatureConfiguration'config = Maybe FeatureConfiguration'Config
y__}))
((Maybe FeatureConfiguration'Config -> Maybe VarLenFeatureProto)
-> (Maybe FeatureConfiguration'Config
-> Maybe VarLenFeatureProto -> Maybe FeatureConfiguration'Config)
-> Lens
(Maybe FeatureConfiguration'Config)
(Maybe FeatureConfiguration'Config)
(Maybe VarLenFeatureProto)
(Maybe VarLenFeatureProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe FeatureConfiguration'Config
x__
-> case Maybe FeatureConfiguration'Config
x__ of
(Prelude.Just (FeatureConfiguration'VarLenFeature x__val :: VarLenFeatureProto
x__val))
-> VarLenFeatureProto -> Maybe VarLenFeatureProto
forall a. a -> Maybe a
Prelude.Just VarLenFeatureProto
x__val
_otherwise :: Maybe FeatureConfiguration'Config
_otherwise -> Maybe VarLenFeatureProto
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe VarLenFeatureProto
y__ -> (VarLenFeatureProto -> FeatureConfiguration'Config)
-> Maybe VarLenFeatureProto -> Maybe FeatureConfiguration'Config
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap VarLenFeatureProto -> FeatureConfiguration'Config
FeatureConfiguration'VarLenFeature Maybe VarLenFeatureProto
y__))
instance Data.ProtoLens.Field.HasField FeatureConfiguration "varLenFeature" VarLenFeatureProto where
fieldOf :: Proxy# "varLenFeature"
-> (VarLenFeatureProto -> f VarLenFeatureProto)
-> FeatureConfiguration
-> f FeatureConfiguration
fieldOf _
= ((Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> FeatureConfiguration -> f FeatureConfiguration)
-> ((VarLenFeatureProto -> f VarLenFeatureProto)
-> Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> (VarLenFeatureProto -> f VarLenFeatureProto)
-> FeatureConfiguration
-> f FeatureConfiguration
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FeatureConfiguration -> Maybe FeatureConfiguration'Config)
-> (FeatureConfiguration
-> Maybe FeatureConfiguration'Config -> FeatureConfiguration)
-> Lens
FeatureConfiguration
FeatureConfiguration
(Maybe FeatureConfiguration'Config)
(Maybe FeatureConfiguration'Config)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FeatureConfiguration -> Maybe FeatureConfiguration'Config
_FeatureConfiguration'config
(\ x__ :: FeatureConfiguration
x__ y__ :: Maybe FeatureConfiguration'Config
y__ -> FeatureConfiguration
x__ {_FeatureConfiguration'config :: Maybe FeatureConfiguration'Config
_FeatureConfiguration'config = Maybe FeatureConfiguration'Config
y__}))
(((Maybe VarLenFeatureProto -> f (Maybe VarLenFeatureProto))
-> Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config))
-> ((VarLenFeatureProto -> f VarLenFeatureProto)
-> Maybe VarLenFeatureProto -> f (Maybe VarLenFeatureProto))
-> (VarLenFeatureProto -> f VarLenFeatureProto)
-> Maybe FeatureConfiguration'Config
-> f (Maybe FeatureConfiguration'Config)
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((Maybe FeatureConfiguration'Config -> Maybe VarLenFeatureProto)
-> (Maybe FeatureConfiguration'Config
-> Maybe VarLenFeatureProto -> Maybe FeatureConfiguration'Config)
-> Lens
(Maybe FeatureConfiguration'Config)
(Maybe FeatureConfiguration'Config)
(Maybe VarLenFeatureProto)
(Maybe VarLenFeatureProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
(\ x__ :: Maybe FeatureConfiguration'Config
x__
-> case Maybe FeatureConfiguration'Config
x__ of
(Prelude.Just (FeatureConfiguration'VarLenFeature x__val :: VarLenFeatureProto
x__val))
-> VarLenFeatureProto -> Maybe VarLenFeatureProto
forall a. a -> Maybe a
Prelude.Just VarLenFeatureProto
x__val
_otherwise :: Maybe FeatureConfiguration'Config
_otherwise -> Maybe VarLenFeatureProto
forall a. Maybe a
Prelude.Nothing)
(\ _ y__ :: Maybe VarLenFeatureProto
y__ -> (VarLenFeatureProto -> FeatureConfiguration'Config)
-> Maybe VarLenFeatureProto -> Maybe FeatureConfiguration'Config
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.fmap VarLenFeatureProto -> FeatureConfiguration'Config
FeatureConfiguration'VarLenFeature Maybe VarLenFeatureProto
y__))
(VarLenFeatureProto
-> Lens' (Maybe VarLenFeatureProto) VarLenFeatureProto
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens VarLenFeatureProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage))
instance Data.ProtoLens.Message FeatureConfiguration where
messageName :: Proxy FeatureConfiguration -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.FeatureConfiguration"
packedMessageDescriptor :: Proxy FeatureConfiguration -> ByteString
packedMessageDescriptor _
= "\n\
\\DC4FeatureConfiguration\DC2N\n\
\\DC1fixed_len_feature\CAN\SOH \SOH(\v2 .tensorflow.FixedLenFeatureProtoH\NULR\SIfixedLenFeature\DC2H\n\
\\SIvar_len_feature\CAN\STX \SOH(\v2\RS.tensorflow.VarLenFeatureProtoH\NULR\rvarLenFeatureB\b\n\
\\ACKconfig"
packedFileDescriptor :: Proxy FeatureConfiguration -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor FeatureConfiguration)
fieldsByTag
= let
fixedLenFeature__field_descriptor :: FieldDescriptor FeatureConfiguration
fixedLenFeature__field_descriptor
= String
-> FieldTypeDescriptor FixedLenFeatureProto
-> FieldAccessor FeatureConfiguration FixedLenFeatureProto
-> FieldDescriptor FeatureConfiguration
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"fixed_len_feature"
(MessageOrGroup -> FieldTypeDescriptor FixedLenFeatureProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor FixedLenFeatureProto)
(Lens' FeatureConfiguration (Maybe FixedLenFeatureProto)
-> FieldAccessor FeatureConfiguration FixedLenFeatureProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'fixedLenFeature" a, Functor f) =>
(a -> f a) -> s -> 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'fixedLenFeature")) ::
Data.ProtoLens.FieldDescriptor FeatureConfiguration
varLenFeature__field_descriptor :: FieldDescriptor FeatureConfiguration
varLenFeature__field_descriptor
= String
-> FieldTypeDescriptor VarLenFeatureProto
-> FieldAccessor FeatureConfiguration VarLenFeatureProto
-> FieldDescriptor FeatureConfiguration
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"var_len_feature"
(MessageOrGroup -> FieldTypeDescriptor VarLenFeatureProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor VarLenFeatureProto)
(Lens' FeatureConfiguration (Maybe VarLenFeatureProto)
-> FieldAccessor FeatureConfiguration VarLenFeatureProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'varLenFeature" a, Functor f) =>
(a -> f a) -> s -> 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'varLenFeature")) ::
Data.ProtoLens.FieldDescriptor FeatureConfiguration
in
[(Tag, FieldDescriptor FeatureConfiguration)]
-> Map Tag (FieldDescriptor FeatureConfiguration)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FeatureConfiguration
fixedLenFeature__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor FeatureConfiguration
varLenFeature__field_descriptor)]
unknownFields :: LensLike' f FeatureConfiguration FieldSet
unknownFields
= (FeatureConfiguration -> FieldSet)
-> (FeatureConfiguration -> FieldSet -> FeatureConfiguration)
-> Lens' FeatureConfiguration FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FeatureConfiguration -> FieldSet
_FeatureConfiguration'_unknownFields
(\ x__ :: FeatureConfiguration
x__ y__ :: FieldSet
y__ -> FeatureConfiguration
x__ {_FeatureConfiguration'_unknownFields :: FieldSet
_FeatureConfiguration'_unknownFields = FieldSet
y__})
defMessage :: FeatureConfiguration
defMessage
= $WFeatureConfiguration'_constructor :: Maybe FeatureConfiguration'Config
-> FieldSet -> FeatureConfiguration
FeatureConfiguration'_constructor
{_FeatureConfiguration'config :: Maybe FeatureConfiguration'Config
_FeatureConfiguration'config = Maybe FeatureConfiguration'Config
forall a. Maybe a
Prelude.Nothing,
_FeatureConfiguration'_unknownFields :: FieldSet
_FeatureConfiguration'_unknownFields = []}
parseMessage :: Parser FeatureConfiguration
parseMessage
= let
loop ::
FeatureConfiguration
-> Data.ProtoLens.Encoding.Bytes.Parser FeatureConfiguration
loop :: FeatureConfiguration -> Parser FeatureConfiguration
loop x :: FeatureConfiguration
x
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
FeatureConfiguration -> Parser FeatureConfiguration
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter FeatureConfiguration FeatureConfiguration FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> FeatureConfiguration
-> FeatureConfiguration
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 FeatureConfiguration FeatureConfiguration FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) FeatureConfiguration
x)
else
do Word64
tag <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
case Word64
tag of
10
-> do FixedLenFeatureProto
y <- Parser FixedLenFeatureProto
-> String -> Parser FixedLenFeatureProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser FixedLenFeatureProto -> Parser FixedLenFeatureProto
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 FixedLenFeatureProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"fixed_len_feature"
FeatureConfiguration -> Parser FeatureConfiguration
loop
(Setter
FeatureConfiguration
FeatureConfiguration
FixedLenFeatureProto
FixedLenFeatureProto
-> FixedLenFeatureProto
-> FeatureConfiguration
-> FeatureConfiguration
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "fixedLenFeature" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"fixedLenFeature") FixedLenFeatureProto
y FeatureConfiguration
x)
18
-> do VarLenFeatureProto
y <- Parser VarLenFeatureProto -> String -> Parser VarLenFeatureProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser VarLenFeatureProto -> Parser VarLenFeatureProto
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 VarLenFeatureProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"var_len_feature"
FeatureConfiguration -> Parser FeatureConfiguration
loop
(Setter
FeatureConfiguration
FeatureConfiguration
VarLenFeatureProto
VarLenFeatureProto
-> VarLenFeatureProto
-> FeatureConfiguration
-> FeatureConfiguration
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "varLenFeature" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"varLenFeature") VarLenFeatureProto
y FeatureConfiguration
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
FeatureConfiguration -> Parser FeatureConfiguration
loop
(Setter FeatureConfiguration FeatureConfiguration FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> FeatureConfiguration
-> FeatureConfiguration
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 FeatureConfiguration FeatureConfiguration FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FeatureConfiguration
x)
in
Parser FeatureConfiguration
-> String -> Parser FeatureConfiguration
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do FeatureConfiguration -> Parser FeatureConfiguration
loop FeatureConfiguration
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "FeatureConfiguration"
buildMessage :: FeatureConfiguration -> Builder
buildMessage
= \ _x :: FeatureConfiguration
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(case
FoldLike
(Maybe FeatureConfiguration'Config)
FeatureConfiguration
FeatureConfiguration
(Maybe FeatureConfiguration'Config)
(Maybe FeatureConfiguration'Config)
-> FeatureConfiguration -> Maybe FeatureConfiguration'Config
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'config" a, Functor f) =>
(a -> f a) -> s -> 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'config") FeatureConfiguration
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just (FeatureConfiguration'FixedLenFeature v :: FixedLenFeatureProto
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 10)
((ByteString -> Builder)
-> (FixedLenFeatureProto -> ByteString)
-> FixedLenFeatureProto
-> 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))
FixedLenFeatureProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
FixedLenFeatureProto
v)
(Prelude.Just (FeatureConfiguration'VarLenFeature v :: VarLenFeatureProto
v))
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder)
-> (VarLenFeatureProto -> ByteString)
-> VarLenFeatureProto
-> 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))
VarLenFeatureProto -> ByteString
forall msg. Message msg => msg -> ByteString
Data.ProtoLens.encodeMessage
VarLenFeatureProto
v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
FeatureConfiguration
FeatureConfiguration
FieldSet
FieldSet
-> FeatureConfiguration -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
FeatureConfiguration
FeatureConfiguration
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FeatureConfiguration
_x))
instance Control.DeepSeq.NFData FeatureConfiguration where
rnf :: FeatureConfiguration -> ()
rnf
= \ x__ :: FeatureConfiguration
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(FeatureConfiguration -> FieldSet
_FeatureConfiguration'_unknownFields FeatureConfiguration
x__)
(Maybe FeatureConfiguration'Config -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq (FeatureConfiguration -> Maybe FeatureConfiguration'Config
_FeatureConfiguration'config FeatureConfiguration
x__) ())
instance Control.DeepSeq.NFData FeatureConfiguration'Config where
rnf :: FeatureConfiguration'Config -> ()
rnf (FeatureConfiguration'FixedLenFeature x__ :: FixedLenFeatureProto
x__)
= FixedLenFeatureProto -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf FixedLenFeatureProto
x__
rnf (FeatureConfiguration'VarLenFeature x__ :: VarLenFeatureProto
x__)
= VarLenFeatureProto -> ()
forall a. NFData a => a -> ()
Control.DeepSeq.rnf VarLenFeatureProto
x__
_FeatureConfiguration'FixedLenFeature ::
Data.ProtoLens.Prism.Prism' FeatureConfiguration'Config FixedLenFeatureProto
_FeatureConfiguration'FixedLenFeature :: p FixedLenFeatureProto (f FixedLenFeatureProto)
-> p FeatureConfiguration'Config (f FeatureConfiguration'Config)
_FeatureConfiguration'FixedLenFeature
= (FixedLenFeatureProto -> FeatureConfiguration'Config)
-> (FeatureConfiguration'Config -> Maybe FixedLenFeatureProto)
-> Prism
FeatureConfiguration'Config
FeatureConfiguration'Config
FixedLenFeatureProto
FixedLenFeatureProto
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
FixedLenFeatureProto -> FeatureConfiguration'Config
FeatureConfiguration'FixedLenFeature
(\ p__ :: FeatureConfiguration'Config
p__
-> case FeatureConfiguration'Config
p__ of
(FeatureConfiguration'FixedLenFeature p__val :: FixedLenFeatureProto
p__val)
-> FixedLenFeatureProto -> Maybe FixedLenFeatureProto
forall a. a -> Maybe a
Prelude.Just FixedLenFeatureProto
p__val
_otherwise :: FeatureConfiguration'Config
_otherwise -> Maybe FixedLenFeatureProto
forall a. Maybe a
Prelude.Nothing)
_FeatureConfiguration'VarLenFeature ::
Data.ProtoLens.Prism.Prism' FeatureConfiguration'Config VarLenFeatureProto
_FeatureConfiguration'VarLenFeature :: p VarLenFeatureProto (f VarLenFeatureProto)
-> p FeatureConfiguration'Config (f FeatureConfiguration'Config)
_FeatureConfiguration'VarLenFeature
= (VarLenFeatureProto -> FeatureConfiguration'Config)
-> (FeatureConfiguration'Config -> Maybe VarLenFeatureProto)
-> Prism
FeatureConfiguration'Config
FeatureConfiguration'Config
VarLenFeatureProto
VarLenFeatureProto
forall b s a. (b -> s) -> (s -> Maybe a) -> Prism s s a b
Data.ProtoLens.Prism.prism'
VarLenFeatureProto -> FeatureConfiguration'Config
FeatureConfiguration'VarLenFeature
(\ p__ :: FeatureConfiguration'Config
p__
-> case FeatureConfiguration'Config
p__ of
(FeatureConfiguration'VarLenFeature p__val :: VarLenFeatureProto
p__val) -> VarLenFeatureProto -> Maybe VarLenFeatureProto
forall a. a -> Maybe a
Prelude.Just VarLenFeatureProto
p__val
_otherwise :: FeatureConfiguration'Config
_otherwise -> Maybe VarLenFeatureProto
forall a. Maybe a
Prelude.Nothing)
data FixedLenFeatureProto
= FixedLenFeatureProto'_constructor {FixedLenFeatureProto -> DataType
_FixedLenFeatureProto'dtype :: !Proto.Tensorflow.Core.Framework.Types.DataType,
FixedLenFeatureProto -> Maybe TensorShapeProto
_FixedLenFeatureProto'shape :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto),
FixedLenFeatureProto -> Maybe TensorProto
_FixedLenFeatureProto'defaultValue :: !(Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto),
FixedLenFeatureProto -> Text
_FixedLenFeatureProto'valuesOutputTensorName :: !Data.Text.Text,
FixedLenFeatureProto -> FieldSet
_FixedLenFeatureProto'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (FixedLenFeatureProto -> FixedLenFeatureProto -> Bool
(FixedLenFeatureProto -> FixedLenFeatureProto -> Bool)
-> (FixedLenFeatureProto -> FixedLenFeatureProto -> Bool)
-> Eq FixedLenFeatureProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: FixedLenFeatureProto -> FixedLenFeatureProto -> Bool
$c/= :: FixedLenFeatureProto -> FixedLenFeatureProto -> Bool
== :: FixedLenFeatureProto -> FixedLenFeatureProto -> Bool
$c== :: FixedLenFeatureProto -> FixedLenFeatureProto -> Bool
Prelude.Eq, Eq FixedLenFeatureProto
Eq FixedLenFeatureProto =>
(FixedLenFeatureProto -> FixedLenFeatureProto -> Ordering)
-> (FixedLenFeatureProto -> FixedLenFeatureProto -> Bool)
-> (FixedLenFeatureProto -> FixedLenFeatureProto -> Bool)
-> (FixedLenFeatureProto -> FixedLenFeatureProto -> Bool)
-> (FixedLenFeatureProto -> FixedLenFeatureProto -> Bool)
-> (FixedLenFeatureProto
-> FixedLenFeatureProto -> FixedLenFeatureProto)
-> (FixedLenFeatureProto
-> FixedLenFeatureProto -> FixedLenFeatureProto)
-> Ord FixedLenFeatureProto
FixedLenFeatureProto -> FixedLenFeatureProto -> Bool
FixedLenFeatureProto -> FixedLenFeatureProto -> Ordering
FixedLenFeatureProto
-> FixedLenFeatureProto -> FixedLenFeatureProto
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 :: FixedLenFeatureProto
-> FixedLenFeatureProto -> FixedLenFeatureProto
$cmin :: FixedLenFeatureProto
-> FixedLenFeatureProto -> FixedLenFeatureProto
max :: FixedLenFeatureProto
-> FixedLenFeatureProto -> FixedLenFeatureProto
$cmax :: FixedLenFeatureProto
-> FixedLenFeatureProto -> FixedLenFeatureProto
>= :: FixedLenFeatureProto -> FixedLenFeatureProto -> Bool
$c>= :: FixedLenFeatureProto -> FixedLenFeatureProto -> Bool
> :: FixedLenFeatureProto -> FixedLenFeatureProto -> Bool
$c> :: FixedLenFeatureProto -> FixedLenFeatureProto -> Bool
<= :: FixedLenFeatureProto -> FixedLenFeatureProto -> Bool
$c<= :: FixedLenFeatureProto -> FixedLenFeatureProto -> Bool
< :: FixedLenFeatureProto -> FixedLenFeatureProto -> Bool
$c< :: FixedLenFeatureProto -> FixedLenFeatureProto -> Bool
compare :: FixedLenFeatureProto -> FixedLenFeatureProto -> Ordering
$ccompare :: FixedLenFeatureProto -> FixedLenFeatureProto -> Ordering
$cp1Ord :: Eq FixedLenFeatureProto
Prelude.Ord)
instance Prelude.Show FixedLenFeatureProto where
showsPrec :: Int -> FixedLenFeatureProto -> ShowS
showsPrec _ __x :: FixedLenFeatureProto
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(FixedLenFeatureProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort FixedLenFeatureProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField FixedLenFeatureProto "dtype" Proto.Tensorflow.Core.Framework.Types.DataType where
fieldOf :: Proxy# "dtype"
-> (DataType -> f DataType)
-> FixedLenFeatureProto
-> f FixedLenFeatureProto
fieldOf _
= ((DataType -> f DataType)
-> FixedLenFeatureProto -> f FixedLenFeatureProto)
-> ((DataType -> f DataType) -> DataType -> f DataType)
-> (DataType -> f DataType)
-> FixedLenFeatureProto
-> f FixedLenFeatureProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FixedLenFeatureProto -> DataType)
-> (FixedLenFeatureProto -> DataType -> FixedLenFeatureProto)
-> Lens FixedLenFeatureProto FixedLenFeatureProto DataType DataType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FixedLenFeatureProto -> DataType
_FixedLenFeatureProto'dtype
(\ x__ :: FixedLenFeatureProto
x__ y__ :: DataType
y__ -> FixedLenFeatureProto
x__ {_FixedLenFeatureProto'dtype :: DataType
_FixedLenFeatureProto'dtype = DataType
y__}))
(DataType -> f DataType) -> DataType -> f DataType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FixedLenFeatureProto "shape" Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto where
fieldOf :: Proxy# "shape"
-> (TensorShapeProto -> f TensorShapeProto)
-> FixedLenFeatureProto
-> f FixedLenFeatureProto
fieldOf _
= ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> FixedLenFeatureProto -> f FixedLenFeatureProto)
-> ((TensorShapeProto -> f TensorShapeProto)
-> Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> (TensorShapeProto -> f TensorShapeProto)
-> FixedLenFeatureProto
-> f FixedLenFeatureProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FixedLenFeatureProto -> Maybe TensorShapeProto)
-> (FixedLenFeatureProto
-> Maybe TensorShapeProto -> FixedLenFeatureProto)
-> Lens
FixedLenFeatureProto
FixedLenFeatureProto
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FixedLenFeatureProto -> Maybe TensorShapeProto
_FixedLenFeatureProto'shape
(\ x__ :: FixedLenFeatureProto
x__ y__ :: Maybe TensorShapeProto
y__ -> FixedLenFeatureProto
x__ {_FixedLenFeatureProto'shape :: Maybe TensorShapeProto
_FixedLenFeatureProto'shape = Maybe TensorShapeProto
y__}))
(TensorShapeProto -> Lens' (Maybe TensorShapeProto) TensorShapeProto
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TensorShapeProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FixedLenFeatureProto "maybe'shape" (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto) where
fieldOf :: Proxy# "maybe'shape"
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> FixedLenFeatureProto
-> f FixedLenFeatureProto
fieldOf _
= ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> FixedLenFeatureProto -> f FixedLenFeatureProto)
-> ((Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> (Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> FixedLenFeatureProto
-> f FixedLenFeatureProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FixedLenFeatureProto -> Maybe TensorShapeProto)
-> (FixedLenFeatureProto
-> Maybe TensorShapeProto -> FixedLenFeatureProto)
-> Lens
FixedLenFeatureProto
FixedLenFeatureProto
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FixedLenFeatureProto -> Maybe TensorShapeProto
_FixedLenFeatureProto'shape
(\ x__ :: FixedLenFeatureProto
x__ y__ :: Maybe TensorShapeProto
y__ -> FixedLenFeatureProto
x__ {_FixedLenFeatureProto'shape :: Maybe TensorShapeProto
_FixedLenFeatureProto'shape = Maybe TensorShapeProto
y__}))
(Maybe TensorShapeProto -> f (Maybe TensorShapeProto))
-> Maybe TensorShapeProto -> f (Maybe TensorShapeProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FixedLenFeatureProto "defaultValue" Proto.Tensorflow.Core.Framework.Tensor.TensorProto where
fieldOf :: Proxy# "defaultValue"
-> (TensorProto -> f TensorProto)
-> FixedLenFeatureProto
-> f FixedLenFeatureProto
fieldOf _
= ((Maybe TensorProto -> f (Maybe TensorProto))
-> FixedLenFeatureProto -> f FixedLenFeatureProto)
-> ((TensorProto -> f TensorProto)
-> Maybe TensorProto -> f (Maybe TensorProto))
-> (TensorProto -> f TensorProto)
-> FixedLenFeatureProto
-> f FixedLenFeatureProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FixedLenFeatureProto -> Maybe TensorProto)
-> (FixedLenFeatureProto
-> Maybe TensorProto -> FixedLenFeatureProto)
-> Lens
FixedLenFeatureProto
FixedLenFeatureProto
(Maybe TensorProto)
(Maybe TensorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FixedLenFeatureProto -> Maybe TensorProto
_FixedLenFeatureProto'defaultValue
(\ x__ :: FixedLenFeatureProto
x__ y__ :: Maybe TensorProto
y__ -> FixedLenFeatureProto
x__ {_FixedLenFeatureProto'defaultValue :: Maybe TensorProto
_FixedLenFeatureProto'defaultValue = Maybe TensorProto
y__}))
(TensorProto -> Lens' (Maybe TensorProto) TensorProto
forall b. b -> Lens' (Maybe b) b
Data.ProtoLens.maybeLens TensorProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage)
instance Data.ProtoLens.Field.HasField FixedLenFeatureProto "maybe'defaultValue" (Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto) where
fieldOf :: Proxy# "maybe'defaultValue"
-> (Maybe TensorProto -> f (Maybe TensorProto))
-> FixedLenFeatureProto
-> f FixedLenFeatureProto
fieldOf _
= ((Maybe TensorProto -> f (Maybe TensorProto))
-> FixedLenFeatureProto -> f FixedLenFeatureProto)
-> ((Maybe TensorProto -> f (Maybe TensorProto))
-> Maybe TensorProto -> f (Maybe TensorProto))
-> (Maybe TensorProto -> f (Maybe TensorProto))
-> FixedLenFeatureProto
-> f FixedLenFeatureProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FixedLenFeatureProto -> Maybe TensorProto)
-> (FixedLenFeatureProto
-> Maybe TensorProto -> FixedLenFeatureProto)
-> Lens
FixedLenFeatureProto
FixedLenFeatureProto
(Maybe TensorProto)
(Maybe TensorProto)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FixedLenFeatureProto -> Maybe TensorProto
_FixedLenFeatureProto'defaultValue
(\ x__ :: FixedLenFeatureProto
x__ y__ :: Maybe TensorProto
y__ -> FixedLenFeatureProto
x__ {_FixedLenFeatureProto'defaultValue :: Maybe TensorProto
_FixedLenFeatureProto'defaultValue = Maybe TensorProto
y__}))
(Maybe TensorProto -> f (Maybe TensorProto))
-> Maybe TensorProto -> f (Maybe TensorProto)
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField FixedLenFeatureProto "valuesOutputTensorName" Data.Text.Text where
fieldOf :: Proxy# "valuesOutputTensorName"
-> (Text -> f Text)
-> FixedLenFeatureProto
-> f FixedLenFeatureProto
fieldOf _
= ((Text -> f Text)
-> FixedLenFeatureProto -> f FixedLenFeatureProto)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> FixedLenFeatureProto
-> f FixedLenFeatureProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((FixedLenFeatureProto -> Text)
-> (FixedLenFeatureProto -> Text -> FixedLenFeatureProto)
-> Lens FixedLenFeatureProto FixedLenFeatureProto Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FixedLenFeatureProto -> Text
_FixedLenFeatureProto'valuesOutputTensorName
(\ x__ :: FixedLenFeatureProto
x__ y__ :: Text
y__
-> FixedLenFeatureProto
x__ {_FixedLenFeatureProto'valuesOutputTensorName :: Text
_FixedLenFeatureProto'valuesOutputTensorName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message FixedLenFeatureProto where
messageName :: Proxy FixedLenFeatureProto -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.FixedLenFeatureProto"
packedMessageDescriptor :: Proxy FixedLenFeatureProto -> ByteString
packedMessageDescriptor _
= "\n\
\\DC4FixedLenFeatureProto\DC2*\n\
\\ENQdtype\CAN\SOH \SOH(\SO2\DC4.tensorflow.DataTypeR\ENQdtype\DC22\n\
\\ENQshape\CAN\STX \SOH(\v2\FS.tensorflow.TensorShapeProtoR\ENQshape\DC2<\n\
\\rdefault_value\CAN\ETX \SOH(\v2\ETB.tensorflow.TensorProtoR\fdefaultValue\DC29\n\
\\EMvalues_output_tensor_name\CAN\EOT \SOH(\tR\SYNvaluesOutputTensorName"
packedFileDescriptor :: Proxy FixedLenFeatureProto -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor FixedLenFeatureProto)
fieldsByTag
= let
dtype__field_descriptor :: FieldDescriptor FixedLenFeatureProto
dtype__field_descriptor
= String
-> FieldTypeDescriptor DataType
-> FieldAccessor FixedLenFeatureProto DataType
-> FieldDescriptor FixedLenFeatureProto
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 FixedLenFeatureProto FixedLenFeatureProto DataType DataType
-> FieldAccessor FixedLenFeatureProto 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 FixedLenFeatureProto
shape__field_descriptor :: FieldDescriptor FixedLenFeatureProto
shape__field_descriptor
= String
-> FieldTypeDescriptor TensorShapeProto
-> FieldAccessor FixedLenFeatureProto TensorShapeProto
-> FieldDescriptor FixedLenFeatureProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"shape"
(MessageOrGroup -> FieldTypeDescriptor TensorShapeProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto)
(Lens
FixedLenFeatureProto
FixedLenFeatureProto
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
-> FieldAccessor FixedLenFeatureProto TensorShapeProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'shape" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'shape")) ::
Data.ProtoLens.FieldDescriptor FixedLenFeatureProto
defaultValue__field_descriptor :: FieldDescriptor FixedLenFeatureProto
defaultValue__field_descriptor
= String
-> FieldTypeDescriptor TensorProto
-> FieldAccessor FixedLenFeatureProto TensorProto
-> FieldDescriptor FixedLenFeatureProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"default_value"
(MessageOrGroup -> FieldTypeDescriptor TensorProto
forall value.
Message value =>
MessageOrGroup -> FieldTypeDescriptor value
Data.ProtoLens.MessageField MessageOrGroup
Data.ProtoLens.MessageType ::
Data.ProtoLens.FieldTypeDescriptor Proto.Tensorflow.Core.Framework.Tensor.TensorProto)
(Lens
FixedLenFeatureProto
FixedLenFeatureProto
(Maybe TensorProto)
(Maybe TensorProto)
-> FieldAccessor FixedLenFeatureProto TensorProto
forall msg value.
Lens' msg (Maybe value) -> FieldAccessor msg value
Data.ProtoLens.OptionalField
(forall s a (f :: * -> *).
(HasField s "maybe'defaultValue" a, Functor f) =>
(a -> f a) -> s -> 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'defaultValue")) ::
Data.ProtoLens.FieldDescriptor FixedLenFeatureProto
valuesOutputTensorName__field_descriptor :: FieldDescriptor FixedLenFeatureProto
valuesOutputTensorName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor FixedLenFeatureProto Text
-> FieldDescriptor FixedLenFeatureProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"values_output_tensor_name"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens FixedLenFeatureProto FixedLenFeatureProto Text Text
-> FieldAccessor FixedLenFeatureProto 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 "valuesOutputTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"valuesOutputTensorName")) ::
Data.ProtoLens.FieldDescriptor FixedLenFeatureProto
in
[(Tag, FieldDescriptor FixedLenFeatureProto)]
-> Map Tag (FieldDescriptor FixedLenFeatureProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor FixedLenFeatureProto
dtype__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor FixedLenFeatureProto
shape__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor FixedLenFeatureProto
defaultValue__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor FixedLenFeatureProto
valuesOutputTensorName__field_descriptor)]
unknownFields :: LensLike' f FixedLenFeatureProto FieldSet
unknownFields
= (FixedLenFeatureProto -> FieldSet)
-> (FixedLenFeatureProto -> FieldSet -> FixedLenFeatureProto)
-> Lens' FixedLenFeatureProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
FixedLenFeatureProto -> FieldSet
_FixedLenFeatureProto'_unknownFields
(\ x__ :: FixedLenFeatureProto
x__ y__ :: FieldSet
y__ -> FixedLenFeatureProto
x__ {_FixedLenFeatureProto'_unknownFields :: FieldSet
_FixedLenFeatureProto'_unknownFields = FieldSet
y__})
defMessage :: FixedLenFeatureProto
defMessage
= $WFixedLenFeatureProto'_constructor :: DataType
-> Maybe TensorShapeProto
-> Maybe TensorProto
-> Text
-> FieldSet
-> FixedLenFeatureProto
FixedLenFeatureProto'_constructor
{_FixedLenFeatureProto'dtype :: DataType
_FixedLenFeatureProto'dtype = DataType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_FixedLenFeatureProto'shape :: Maybe TensorShapeProto
_FixedLenFeatureProto'shape = Maybe TensorShapeProto
forall a. Maybe a
Prelude.Nothing,
_FixedLenFeatureProto'defaultValue :: Maybe TensorProto
_FixedLenFeatureProto'defaultValue = Maybe TensorProto
forall a. Maybe a
Prelude.Nothing,
_FixedLenFeatureProto'valuesOutputTensorName :: Text
_FixedLenFeatureProto'valuesOutputTensorName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_FixedLenFeatureProto'_unknownFields :: FieldSet
_FixedLenFeatureProto'_unknownFields = []}
parseMessage :: Parser FixedLenFeatureProto
parseMessage
= let
loop ::
FixedLenFeatureProto
-> Data.ProtoLens.Encoding.Bytes.Parser FixedLenFeatureProto
loop :: FixedLenFeatureProto -> Parser FixedLenFeatureProto
loop x :: FixedLenFeatureProto
x
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
FixedLenFeatureProto -> Parser FixedLenFeatureProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter FixedLenFeatureProto FixedLenFeatureProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> FixedLenFeatureProto
-> FixedLenFeatureProto
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 FixedLenFeatureProto FixedLenFeatureProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) FixedLenFeatureProto
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"
FixedLenFeatureProto -> Parser FixedLenFeatureProto
loop (Setter FixedLenFeatureProto FixedLenFeatureProto DataType DataType
-> DataType -> FixedLenFeatureProto -> FixedLenFeatureProto
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 FixedLenFeatureProto
x)
18
-> do TensorShapeProto
y <- Parser TensorShapeProto -> String -> Parser TensorShapeProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser TensorShapeProto -> Parser TensorShapeProto
forall a. Int -> Parser a -> Parser a
Data.ProtoLens.Encoding.Bytes.isolate
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len) Parser TensorShapeProto
forall msg. Message msg => Parser msg
Data.ProtoLens.parseMessage)
"shape"
FixedLenFeatureProto -> Parser FixedLenFeatureProto
loop (Setter
FixedLenFeatureProto
FixedLenFeatureProto
TensorShapeProto
TensorShapeProto
-> TensorShapeProto -> FixedLenFeatureProto -> FixedLenFeatureProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set (forall s a (f :: * -> *).
(HasField s "shape" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"shape") TensorShapeProto
y FixedLenFeatureProto
x)
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)
"default_value"
FixedLenFeatureProto -> Parser FixedLenFeatureProto
loop
(Setter
FixedLenFeatureProto FixedLenFeatureProto TensorProto TensorProto
-> TensorProto -> FixedLenFeatureProto -> FixedLenFeatureProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "defaultValue" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"defaultValue") TensorProto
y FixedLenFeatureProto
x)
34
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"values_output_tensor_name"
FixedLenFeatureProto -> Parser FixedLenFeatureProto
loop
(Setter FixedLenFeatureProto FixedLenFeatureProto Text Text
-> Text -> FixedLenFeatureProto -> FixedLenFeatureProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "valuesOutputTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"valuesOutputTensorName") Text
y FixedLenFeatureProto
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
FixedLenFeatureProto -> Parser FixedLenFeatureProto
loop
(Setter FixedLenFeatureProto FixedLenFeatureProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> FixedLenFeatureProto
-> FixedLenFeatureProto
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 FixedLenFeatureProto FixedLenFeatureProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) FixedLenFeatureProto
x)
in
Parser FixedLenFeatureProto
-> String -> Parser FixedLenFeatureProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do FixedLenFeatureProto -> Parser FixedLenFeatureProto
loop FixedLenFeatureProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "FixedLenFeatureProto"
buildMessage :: FixedLenFeatureProto -> Builder
buildMessage
= \ _x :: FixedLenFeatureProto
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: DataType
_v = FoldLike
DataType
FixedLenFeatureProto
FixedLenFeatureProto
DataType
DataType
-> FixedLenFeatureProto -> 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") FixedLenFeatureProto
_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)
FixedLenFeatureProto
FixedLenFeatureProto
(Maybe TensorShapeProto)
(Maybe TensorShapeProto)
-> FixedLenFeatureProto -> Maybe TensorShapeProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view (forall s a (f :: * -> *).
(HasField s "maybe'shape" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"maybe'shape") FixedLenFeatureProto
_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.<>)
(case
FoldLike
(Maybe TensorProto)
FixedLenFeatureProto
FixedLenFeatureProto
(Maybe TensorProto)
(Maybe TensorProto)
-> FixedLenFeatureProto -> Maybe TensorProto
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "maybe'defaultValue" a, Functor f) =>
(a -> f a) -> s -> 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'defaultValue") FixedLenFeatureProto
_x
of
Prelude.Nothing -> Builder
forall a. Monoid a => a
Data.Monoid.mempty
(Prelude.Just _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))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text FixedLenFeatureProto FixedLenFeatureProto Text Text
-> FixedLenFeatureProto -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "valuesOutputTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"valuesOutputTensorName") FixedLenFeatureProto
_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 34)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet
FixedLenFeatureProto
FixedLenFeatureProto
FieldSet
FieldSet
-> FixedLenFeatureProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet
FixedLenFeatureProto
FixedLenFeatureProto
FieldSet
FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields FixedLenFeatureProto
_x)))))
instance Control.DeepSeq.NFData FixedLenFeatureProto where
rnf :: FixedLenFeatureProto -> ()
rnf
= \ x__ :: FixedLenFeatureProto
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(FixedLenFeatureProto -> FieldSet
_FixedLenFeatureProto'_unknownFields FixedLenFeatureProto
x__)
(DataType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(FixedLenFeatureProto -> DataType
_FixedLenFeatureProto'dtype FixedLenFeatureProto
x__)
(Maybe TensorShapeProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(FixedLenFeatureProto -> Maybe TensorShapeProto
_FixedLenFeatureProto'shape FixedLenFeatureProto
x__)
(Maybe TensorProto -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(FixedLenFeatureProto -> Maybe TensorProto
_FixedLenFeatureProto'defaultValue FixedLenFeatureProto
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(FixedLenFeatureProto -> Text
_FixedLenFeatureProto'valuesOutputTensorName FixedLenFeatureProto
x__) ()))))
data VarLenFeatureProto
= VarLenFeatureProto'_constructor {VarLenFeatureProto -> DataType
_VarLenFeatureProto'dtype :: !Proto.Tensorflow.Core.Framework.Types.DataType,
VarLenFeatureProto -> Text
_VarLenFeatureProto'valuesOutputTensorName :: !Data.Text.Text,
VarLenFeatureProto -> Text
_VarLenFeatureProto'indicesOutputTensorName :: !Data.Text.Text,
VarLenFeatureProto -> Text
_VarLenFeatureProto'shapesOutputTensorName :: !Data.Text.Text,
VarLenFeatureProto -> FieldSet
_VarLenFeatureProto'_unknownFields :: !Data.ProtoLens.FieldSet}
deriving stock (VarLenFeatureProto -> VarLenFeatureProto -> Bool
(VarLenFeatureProto -> VarLenFeatureProto -> Bool)
-> (VarLenFeatureProto -> VarLenFeatureProto -> Bool)
-> Eq VarLenFeatureProto
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VarLenFeatureProto -> VarLenFeatureProto -> Bool
$c/= :: VarLenFeatureProto -> VarLenFeatureProto -> Bool
== :: VarLenFeatureProto -> VarLenFeatureProto -> Bool
$c== :: VarLenFeatureProto -> VarLenFeatureProto -> Bool
Prelude.Eq, Eq VarLenFeatureProto
Eq VarLenFeatureProto =>
(VarLenFeatureProto -> VarLenFeatureProto -> Ordering)
-> (VarLenFeatureProto -> VarLenFeatureProto -> Bool)
-> (VarLenFeatureProto -> VarLenFeatureProto -> Bool)
-> (VarLenFeatureProto -> VarLenFeatureProto -> Bool)
-> (VarLenFeatureProto -> VarLenFeatureProto -> Bool)
-> (VarLenFeatureProto -> VarLenFeatureProto -> VarLenFeatureProto)
-> (VarLenFeatureProto -> VarLenFeatureProto -> VarLenFeatureProto)
-> Ord VarLenFeatureProto
VarLenFeatureProto -> VarLenFeatureProto -> Bool
VarLenFeatureProto -> VarLenFeatureProto -> Ordering
VarLenFeatureProto -> VarLenFeatureProto -> VarLenFeatureProto
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 :: VarLenFeatureProto -> VarLenFeatureProto -> VarLenFeatureProto
$cmin :: VarLenFeatureProto -> VarLenFeatureProto -> VarLenFeatureProto
max :: VarLenFeatureProto -> VarLenFeatureProto -> VarLenFeatureProto
$cmax :: VarLenFeatureProto -> VarLenFeatureProto -> VarLenFeatureProto
>= :: VarLenFeatureProto -> VarLenFeatureProto -> Bool
$c>= :: VarLenFeatureProto -> VarLenFeatureProto -> Bool
> :: VarLenFeatureProto -> VarLenFeatureProto -> Bool
$c> :: VarLenFeatureProto -> VarLenFeatureProto -> Bool
<= :: VarLenFeatureProto -> VarLenFeatureProto -> Bool
$c<= :: VarLenFeatureProto -> VarLenFeatureProto -> Bool
< :: VarLenFeatureProto -> VarLenFeatureProto -> Bool
$c< :: VarLenFeatureProto -> VarLenFeatureProto -> Bool
compare :: VarLenFeatureProto -> VarLenFeatureProto -> Ordering
$ccompare :: VarLenFeatureProto -> VarLenFeatureProto -> Ordering
$cp1Ord :: Eq VarLenFeatureProto
Prelude.Ord)
instance Prelude.Show VarLenFeatureProto where
showsPrec :: Int -> VarLenFeatureProto -> ShowS
showsPrec _ __x :: VarLenFeatureProto
__x __s :: String
__s
= Char -> ShowS
Prelude.showChar
'{'
(String -> ShowS
Prelude.showString
(VarLenFeatureProto -> String
forall msg. Message msg => msg -> String
Data.ProtoLens.showMessageShort VarLenFeatureProto
__x) (Char -> ShowS
Prelude.showChar '}' String
__s))
instance Data.ProtoLens.Field.HasField VarLenFeatureProto "dtype" Proto.Tensorflow.Core.Framework.Types.DataType where
fieldOf :: Proxy# "dtype"
-> (DataType -> f DataType)
-> VarLenFeatureProto
-> f VarLenFeatureProto
fieldOf _
= ((DataType -> f DataType)
-> VarLenFeatureProto -> f VarLenFeatureProto)
-> ((DataType -> f DataType) -> DataType -> f DataType)
-> (DataType -> f DataType)
-> VarLenFeatureProto
-> f VarLenFeatureProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((VarLenFeatureProto -> DataType)
-> (VarLenFeatureProto -> DataType -> VarLenFeatureProto)
-> Lens VarLenFeatureProto VarLenFeatureProto DataType DataType
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
VarLenFeatureProto -> DataType
_VarLenFeatureProto'dtype
(\ x__ :: VarLenFeatureProto
x__ y__ :: DataType
y__ -> VarLenFeatureProto
x__ {_VarLenFeatureProto'dtype :: DataType
_VarLenFeatureProto'dtype = DataType
y__}))
(DataType -> f DataType) -> DataType -> f DataType
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField VarLenFeatureProto "valuesOutputTensorName" Data.Text.Text where
fieldOf :: Proxy# "valuesOutputTensorName"
-> (Text -> f Text) -> VarLenFeatureProto -> f VarLenFeatureProto
fieldOf _
= ((Text -> f Text) -> VarLenFeatureProto -> f VarLenFeatureProto)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> VarLenFeatureProto
-> f VarLenFeatureProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((VarLenFeatureProto -> Text)
-> (VarLenFeatureProto -> Text -> VarLenFeatureProto)
-> Lens VarLenFeatureProto VarLenFeatureProto Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
VarLenFeatureProto -> Text
_VarLenFeatureProto'valuesOutputTensorName
(\ x__ :: VarLenFeatureProto
x__ y__ :: Text
y__
-> VarLenFeatureProto
x__ {_VarLenFeatureProto'valuesOutputTensorName :: Text
_VarLenFeatureProto'valuesOutputTensorName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField VarLenFeatureProto "indicesOutputTensorName" Data.Text.Text where
fieldOf :: Proxy# "indicesOutputTensorName"
-> (Text -> f Text) -> VarLenFeatureProto -> f VarLenFeatureProto
fieldOf _
= ((Text -> f Text) -> VarLenFeatureProto -> f VarLenFeatureProto)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> VarLenFeatureProto
-> f VarLenFeatureProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((VarLenFeatureProto -> Text)
-> (VarLenFeatureProto -> Text -> VarLenFeatureProto)
-> Lens VarLenFeatureProto VarLenFeatureProto Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
VarLenFeatureProto -> Text
_VarLenFeatureProto'indicesOutputTensorName
(\ x__ :: VarLenFeatureProto
x__ y__ :: Text
y__
-> VarLenFeatureProto
x__ {_VarLenFeatureProto'indicesOutputTensorName :: Text
_VarLenFeatureProto'indicesOutputTensorName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Field.HasField VarLenFeatureProto "shapesOutputTensorName" Data.Text.Text where
fieldOf :: Proxy# "shapesOutputTensorName"
-> (Text -> f Text) -> VarLenFeatureProto -> f VarLenFeatureProto
fieldOf _
= ((Text -> f Text) -> VarLenFeatureProto -> f VarLenFeatureProto)
-> ((Text -> f Text) -> Text -> f Text)
-> (Text -> f Text)
-> VarLenFeatureProto
-> f VarLenFeatureProto
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
((VarLenFeatureProto -> Text)
-> (VarLenFeatureProto -> Text -> VarLenFeatureProto)
-> Lens VarLenFeatureProto VarLenFeatureProto Text Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
VarLenFeatureProto -> Text
_VarLenFeatureProto'shapesOutputTensorName
(\ x__ :: VarLenFeatureProto
x__ y__ :: Text
y__
-> VarLenFeatureProto
x__ {_VarLenFeatureProto'shapesOutputTensorName :: Text
_VarLenFeatureProto'shapesOutputTensorName = Text
y__}))
(Text -> f Text) -> Text -> f Text
forall a. a -> a
Prelude.id
instance Data.ProtoLens.Message VarLenFeatureProto where
messageName :: Proxy VarLenFeatureProto -> Text
messageName _ = String -> Text
Data.Text.pack "tensorflow.VarLenFeatureProto"
packedMessageDescriptor :: Proxy VarLenFeatureProto -> ByteString
packedMessageDescriptor _
= "\n\
\\DC2VarLenFeatureProto\DC2*\n\
\\ENQdtype\CAN\SOH \SOH(\SO2\DC4.tensorflow.DataTypeR\ENQdtype\DC29\n\
\\EMvalues_output_tensor_name\CAN\STX \SOH(\tR\SYNvaluesOutputTensorName\DC2;\n\
\\SUBindices_output_tensor_name\CAN\ETX \SOH(\tR\ETBindicesOutputTensorName\DC29\n\
\\EMshapes_output_tensor_name\CAN\EOT \SOH(\tR\SYNshapesOutputTensorName"
packedFileDescriptor :: Proxy VarLenFeatureProto -> ByteString
packedFileDescriptor _ = ByteString
packedFileDescriptor
fieldsByTag :: Map Tag (FieldDescriptor VarLenFeatureProto)
fieldsByTag
= let
dtype__field_descriptor :: FieldDescriptor VarLenFeatureProto
dtype__field_descriptor
= String
-> FieldTypeDescriptor DataType
-> FieldAccessor VarLenFeatureProto DataType
-> FieldDescriptor VarLenFeatureProto
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 VarLenFeatureProto VarLenFeatureProto DataType DataType
-> FieldAccessor VarLenFeatureProto 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 VarLenFeatureProto
valuesOutputTensorName__field_descriptor :: FieldDescriptor VarLenFeatureProto
valuesOutputTensorName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor VarLenFeatureProto Text
-> FieldDescriptor VarLenFeatureProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"values_output_tensor_name"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens VarLenFeatureProto VarLenFeatureProto Text Text
-> FieldAccessor VarLenFeatureProto 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 "valuesOutputTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"valuesOutputTensorName")) ::
Data.ProtoLens.FieldDescriptor VarLenFeatureProto
indicesOutputTensorName__field_descriptor :: FieldDescriptor VarLenFeatureProto
indicesOutputTensorName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor VarLenFeatureProto Text
-> FieldDescriptor VarLenFeatureProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"indices_output_tensor_name"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens VarLenFeatureProto VarLenFeatureProto Text Text
-> FieldAccessor VarLenFeatureProto 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 "indicesOutputTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"indicesOutputTensorName")) ::
Data.ProtoLens.FieldDescriptor VarLenFeatureProto
shapesOutputTensorName__field_descriptor :: FieldDescriptor VarLenFeatureProto
shapesOutputTensorName__field_descriptor
= String
-> FieldTypeDescriptor Text
-> FieldAccessor VarLenFeatureProto Text
-> FieldDescriptor VarLenFeatureProto
forall value msg.
String
-> FieldTypeDescriptor value
-> FieldAccessor msg value
-> FieldDescriptor msg
Data.ProtoLens.FieldDescriptor
"shapes_output_tensor_name"
(ScalarField Text -> FieldTypeDescriptor Text
forall value. ScalarField value -> FieldTypeDescriptor value
Data.ProtoLens.ScalarField ScalarField Text
Data.ProtoLens.StringField ::
Data.ProtoLens.FieldTypeDescriptor Data.Text.Text)
(WireDefault Text
-> Lens VarLenFeatureProto VarLenFeatureProto Text Text
-> FieldAccessor VarLenFeatureProto 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 "shapesOutputTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"shapesOutputTensorName")) ::
Data.ProtoLens.FieldDescriptor VarLenFeatureProto
in
[(Tag, FieldDescriptor VarLenFeatureProto)]
-> Map Tag (FieldDescriptor VarLenFeatureProto)
forall k a. Ord k => [(k, a)] -> Map k a
Data.Map.fromList
[(Int -> Tag
Data.ProtoLens.Tag 1, FieldDescriptor VarLenFeatureProto
dtype__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 2, FieldDescriptor VarLenFeatureProto
valuesOutputTensorName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 3, FieldDescriptor VarLenFeatureProto
indicesOutputTensorName__field_descriptor),
(Int -> Tag
Data.ProtoLens.Tag 4, FieldDescriptor VarLenFeatureProto
shapesOutputTensorName__field_descriptor)]
unknownFields :: LensLike' f VarLenFeatureProto FieldSet
unknownFields
= (VarLenFeatureProto -> FieldSet)
-> (VarLenFeatureProto -> FieldSet -> VarLenFeatureProto)
-> Lens' VarLenFeatureProto FieldSet
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.Family2.Unchecked.lens
VarLenFeatureProto -> FieldSet
_VarLenFeatureProto'_unknownFields
(\ x__ :: VarLenFeatureProto
x__ y__ :: FieldSet
y__ -> VarLenFeatureProto
x__ {_VarLenFeatureProto'_unknownFields :: FieldSet
_VarLenFeatureProto'_unknownFields = FieldSet
y__})
defMessage :: VarLenFeatureProto
defMessage
= $WVarLenFeatureProto'_constructor :: DataType -> Text -> Text -> Text -> FieldSet -> VarLenFeatureProto
VarLenFeatureProto'_constructor
{_VarLenFeatureProto'dtype :: DataType
_VarLenFeatureProto'dtype = DataType
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_VarLenFeatureProto'valuesOutputTensorName :: Text
_VarLenFeatureProto'valuesOutputTensorName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_VarLenFeatureProto'indicesOutputTensorName :: Text
_VarLenFeatureProto'indicesOutputTensorName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_VarLenFeatureProto'shapesOutputTensorName :: Text
_VarLenFeatureProto'shapesOutputTensorName = Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault,
_VarLenFeatureProto'_unknownFields :: FieldSet
_VarLenFeatureProto'_unknownFields = []}
parseMessage :: Parser VarLenFeatureProto
parseMessage
= let
loop ::
VarLenFeatureProto
-> Data.ProtoLens.Encoding.Bytes.Parser VarLenFeatureProto
loop :: VarLenFeatureProto -> Parser VarLenFeatureProto
loop x :: VarLenFeatureProto
x
= do Bool
end <- Parser Bool
Data.ProtoLens.Encoding.Bytes.atEnd
if Bool
end then
do (let missing :: [a]
missing = []
in
if [Any] -> Bool
forall (t :: * -> *) a. Foldable t => t a -> Bool
Prelude.null [Any]
forall a. [a]
missing then
() -> Parser ()
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return ()
else
String -> Parser ()
forall (m :: * -> *) a. MonadFail m => String -> m a
Prelude.fail
(String -> ShowS
forall a. [a] -> [a] -> [a]
(Prelude.++)
"Missing required fields: "
([String] -> String
forall a. Show a => a -> String
Prelude.show ([String]
forall a. [a]
missing :: [Prelude.String]))))
VarLenFeatureProto -> Parser VarLenFeatureProto
forall (m :: * -> *) a. Monad m => a -> m a
Prelude.return
(Setter VarLenFeatureProto VarLenFeatureProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> VarLenFeatureProto
-> VarLenFeatureProto
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 VarLenFeatureProto VarLenFeatureProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> FieldSet -> FieldSet
forall a. [a] -> [a]
Prelude.reverse FieldSet
t) VarLenFeatureProto
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"
VarLenFeatureProto -> Parser VarLenFeatureProto
loop (Setter VarLenFeatureProto VarLenFeatureProto DataType DataType
-> DataType -> VarLenFeatureProto -> VarLenFeatureProto
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 VarLenFeatureProto
x)
18
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"values_output_tensor_name"
VarLenFeatureProto -> Parser VarLenFeatureProto
loop
(Setter VarLenFeatureProto VarLenFeatureProto Text Text
-> Text -> VarLenFeatureProto -> VarLenFeatureProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "valuesOutputTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"valuesOutputTensorName") Text
y VarLenFeatureProto
x)
26
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"indices_output_tensor_name"
VarLenFeatureProto -> Parser VarLenFeatureProto
loop
(Setter VarLenFeatureProto VarLenFeatureProto Text Text
-> Text -> VarLenFeatureProto -> VarLenFeatureProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "indicesOutputTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"indicesOutputTensorName") Text
y VarLenFeatureProto
x)
34
-> do Text
y <- Parser Text -> String -> Parser Text
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do ByteString
value <- do Word64
len <- Parser Word64
Data.ProtoLens.Encoding.Bytes.getVarInt
Int -> Parser ByteString
Data.ProtoLens.Encoding.Bytes.getBytes
(Word64 -> Int
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral Word64
len)
Either String Text -> Parser Text
forall a. Either String a -> Parser a
Data.ProtoLens.Encoding.Bytes.runEither
(case ByteString -> Either UnicodeException Text
Data.Text.Encoding.decodeUtf8' ByteString
value of
(Prelude.Left err :: UnicodeException
err)
-> String -> Either String Text
forall a b. a -> Either a b
Prelude.Left (UnicodeException -> String
forall a. Show a => a -> String
Prelude.show UnicodeException
err)
(Prelude.Right r :: Text
r) -> Text -> Either String Text
forall a b. b -> Either a b
Prelude.Right Text
r))
"shapes_output_tensor_name"
VarLenFeatureProto -> Parser VarLenFeatureProto
loop
(Setter VarLenFeatureProto VarLenFeatureProto Text Text
-> Text -> VarLenFeatureProto -> VarLenFeatureProto
forall s t a b. Setter s t a b -> b -> s -> t
Lens.Family2.set
(forall s a (f :: * -> *).
(HasField s "shapesOutputTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"shapesOutputTensorName") Text
y VarLenFeatureProto
x)
wire :: Word64
wire
-> do !TaggedValue
y <- Word64 -> Parser TaggedValue
Data.ProtoLens.Encoding.Wire.parseTaggedValueFromWire
Word64
wire
VarLenFeatureProto -> Parser VarLenFeatureProto
loop
(Setter VarLenFeatureProto VarLenFeatureProto FieldSet FieldSet
-> (FieldSet -> FieldSet)
-> VarLenFeatureProto
-> VarLenFeatureProto
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 VarLenFeatureProto VarLenFeatureProto FieldSet FieldSet
Data.ProtoLens.unknownFields (\ !FieldSet
t -> (:) TaggedValue
y FieldSet
t) VarLenFeatureProto
x)
in
Parser VarLenFeatureProto -> String -> Parser VarLenFeatureProto
forall a. Parser a -> String -> Parser a
(Data.ProtoLens.Encoding.Bytes.<?>)
(do VarLenFeatureProto -> Parser VarLenFeatureProto
loop VarLenFeatureProto
forall msg. Message msg => msg
Data.ProtoLens.defMessage) "VarLenFeatureProto"
buildMessage :: VarLenFeatureProto -> Builder
buildMessage
= \ _x :: VarLenFeatureProto
_x
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: DataType
_v = FoldLike
DataType VarLenFeatureProto VarLenFeatureProto DataType DataType
-> VarLenFeatureProto -> 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") VarLenFeatureProto
_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.<>)
(let
_v :: Text
_v
= FoldLike Text VarLenFeatureProto VarLenFeatureProto Text Text
-> VarLenFeatureProto -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "valuesOutputTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"valuesOutputTensorName") VarLenFeatureProto
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 18)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text VarLenFeatureProto VarLenFeatureProto Text Text
-> VarLenFeatureProto -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "indicesOutputTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"indicesOutputTensorName") VarLenFeatureProto
_x
in
if Text -> Text -> Bool
forall a. Eq a => a -> a -> Bool
(Prelude.==) Text
_v Text
forall value. FieldDefault value => value
Data.ProtoLens.fieldDefault then
Builder
forall a. Monoid a => a
Data.Monoid.mempty
else
Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt 26)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(let
_v :: Text
_v
= FoldLike Text VarLenFeatureProto VarLenFeatureProto Text Text
-> VarLenFeatureProto -> Text
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view
(forall s a (f :: * -> *).
(HasField s "shapesOutputTensorName" a, Functor f) =>
(a -> f a) -> s -> f s
forall (x :: Symbol) s a (f :: * -> *).
(HasField s x a, Functor f) =>
(a -> f a) -> s -> f s
Data.ProtoLens.Field.field @"shapesOutputTensorName") VarLenFeatureProto
_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 34)
((ByteString -> Builder) -> (Text -> ByteString) -> Text -> Builder
forall b c a. (b -> c) -> (a -> b) -> a -> c
(Prelude..)
(\ bs :: ByteString
bs
-> Builder -> Builder -> Builder
forall a. Semigroup a => a -> a -> a
(Data.Monoid.<>)
(Word64 -> Builder
Data.ProtoLens.Encoding.Bytes.putVarInt
(Int -> Word64
forall a b. (Integral a, Num b) => a -> b
Prelude.fromIntegral (ByteString -> Int
Data.ByteString.length ByteString
bs)))
(ByteString -> Builder
Data.ProtoLens.Encoding.Bytes.putBytes ByteString
bs))
Text -> ByteString
Data.Text.Encoding.encodeUtf8
Text
_v))
(FieldSet -> Builder
Data.ProtoLens.Encoding.Wire.buildFieldSet
(FoldLike
FieldSet VarLenFeatureProto VarLenFeatureProto FieldSet FieldSet
-> VarLenFeatureProto -> FieldSet
forall a s t b. FoldLike a s t a b -> s -> a
Lens.Family2.view FoldLike
FieldSet VarLenFeatureProto VarLenFeatureProto FieldSet FieldSet
forall msg. Message msg => Lens' msg FieldSet
Data.ProtoLens.unknownFields VarLenFeatureProto
_x)))))
instance Control.DeepSeq.NFData VarLenFeatureProto where
rnf :: VarLenFeatureProto -> ()
rnf
= \ x__ :: VarLenFeatureProto
x__
-> FieldSet -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(VarLenFeatureProto -> FieldSet
_VarLenFeatureProto'_unknownFields VarLenFeatureProto
x__)
(DataType -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(VarLenFeatureProto -> DataType
_VarLenFeatureProto'dtype VarLenFeatureProto
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(VarLenFeatureProto -> Text
_VarLenFeatureProto'valuesOutputTensorName VarLenFeatureProto
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(VarLenFeatureProto -> Text
_VarLenFeatureProto'indicesOutputTensorName VarLenFeatureProto
x__)
(Text -> () -> ()
forall a b. NFData a => a -> b -> b
Control.DeepSeq.deepseq
(VarLenFeatureProto -> Text
_VarLenFeatureProto'shapesOutputTensorName VarLenFeatureProto
x__) ()))))
packedFileDescriptor :: Data.ByteString.ByteString
packedFileDescriptor :: ByteString
packedFileDescriptor
= "\n\
\:tensorflow/core/example/example_parser_configuration.proto\DC2\n\
\tensorflow\SUB&tensorflow/core/framework/tensor.proto\SUB,tensorflow/core/framework/tensor_shape.proto\SUB%tensorflow/core/framework/types.proto\"\243\SOH\n\
\\DC2VarLenFeatureProto\DC2*\n\
\\ENQdtype\CAN\SOH \SOH(\SO2\DC4.tensorflow.DataTypeR\ENQdtype\DC29\n\
\\EMvalues_output_tensor_name\CAN\STX \SOH(\tR\SYNvaluesOutputTensorName\DC2;\n\
\\SUBindices_output_tensor_name\CAN\ETX \SOH(\tR\ETBindicesOutputTensorName\DC29\n\
\\EMshapes_output_tensor_name\CAN\EOT \SOH(\tR\SYNshapesOutputTensorName\"\239\SOH\n\
\\DC4FixedLenFeatureProto\DC2*\n\
\\ENQdtype\CAN\SOH \SOH(\SO2\DC4.tensorflow.DataTypeR\ENQdtype\DC22\n\
\\ENQshape\CAN\STX \SOH(\v2\FS.tensorflow.TensorShapeProtoR\ENQshape\DC2<\n\
\\rdefault_value\CAN\ETX \SOH(\v2\ETB.tensorflow.TensorProtoR\fdefaultValue\DC29\n\
\\EMvalues_output_tensor_name\CAN\EOT \SOH(\tR\SYNvaluesOutputTensorName\"\186\SOH\n\
\\DC4FeatureConfiguration\DC2N\n\
\\DC1fixed_len_feature\CAN\SOH \SOH(\v2 .tensorflow.FixedLenFeatureProtoH\NULR\SIfixedLenFeature\DC2H\n\
\\SIvar_len_feature\CAN\STX \SOH(\v2\RS.tensorflow.VarLenFeatureProtoH\NULR\rvarLenFeatureB\b\n\
\\ACKconfig\"\214\SOH\n\
\\SUBExampleParserConfiguration\DC2W\n\
\\vfeature_map\CAN\SOH \ETX(\v26.tensorflow.ExampleParserConfiguration.FeatureMapEntryR\n\
\featureMap\SUB_\n\
\\SIFeatureMapEntry\DC2\DLE\n\
\\ETXkey\CAN\SOH \SOH(\tR\ETXkey\DC26\n\
\\ENQvalue\CAN\STX \SOH(\v2 .tensorflow.FeatureConfigurationR\ENQvalue:\STX8\SOHB\162\SOH\n\
\\SYNorg.tensorflow.exampleB ExampleParserConfigurationProtosP\SOHZagithub.com/tensorflow/tensorflow/tensorflow/go/core/example/example_parser_configuration_go_proto\248\SOH\SOHJ\205\a\n\
\\ACK\DC2\EOT\STX\NUL'\SOH\n\
\V\n\
\\SOH\f\DC2\ETX\STX\NUL\DC22L Protocol messages for describing the configuration of the ExampleParserOp.\n\
\\n\
\\b\n\
\\SOH\STX\DC2\ETX\EOT\NUL\DC3\n\
\\t\n\
\\STX\ETX\NUL\DC2\ETX\ACK\NUL0\n\
\\t\n\
\\STX\ETX\SOH\DC2\ETX\a\NUL6\n\
\\t\n\
\\STX\ETX\STX\DC2\ETX\b\NUL/\n\
\\b\n\
\\SOH\b\DC2\ETX\n\
\\NUL\US\n\
\\t\n\
\\STX\b\US\DC2\ETX\n\
\\NUL\US\n\
\\b\n\
\\SOH\b\DC2\ETX\v\NULA\n\
\\t\n\
\\STX\b\b\DC2\ETX\v\NULA\n\
\\b\n\
\\SOH\b\DC2\ETX\f\NUL\"\n\
\\t\n\
\\STX\b\n\
\\DC2\ETX\f\NUL\"\n\
\\b\n\
\\SOH\b\DC2\ETX\r\NUL/\n\
\\t\n\
\\STX\b\SOH\DC2\ETX\r\NUL/\n\
\\b\n\
\\SOH\b\DC2\ETX\SO\NULx\n\
\\t\n\
\\STX\b\v\DC2\ETX\SO\NULx\n\
\\n\
\\n\
\\STX\EOT\NUL\DC2\EOT\DLE\NUL\NAK\SOH\n\
\\n\
\\n\
\\ETX\EOT\NUL\SOH\DC2\ETX\DLE\b\SUB\n\
\\v\n\
\\EOT\EOT\NUL\STX\NUL\DC2\ETX\DC1\STX \n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ACK\DC2\ETX\DC1\STX\NAK\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\SOH\DC2\ETX\DC1\SYN\ESC\n\
\\f\n\
\\ENQ\EOT\NUL\STX\NUL\ETX\DC2\ETX\DC1\RS\US\n\
\\v\n\
\\EOT\EOT\NUL\STX\SOH\DC2\ETX\DC2\STX'\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ENQ\DC2\ETX\DC2\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\SOH\DC2\ETX\DC2\t\"\n\
\\f\n\
\\ENQ\EOT\NUL\STX\SOH\ETX\DC2\ETX\DC2%&\n\
\\v\n\
\\EOT\EOT\NUL\STX\STX\DC2\ETX\DC3\STX(\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ENQ\DC2\ETX\DC3\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\SOH\DC2\ETX\DC3\t#\n\
\\f\n\
\\ENQ\EOT\NUL\STX\STX\ETX\DC2\ETX\DC3&'\n\
\\v\n\
\\EOT\EOT\NUL\STX\ETX\DC2\ETX\DC4\STX'\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ENQ\DC2\ETX\DC4\STX\b\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\SOH\DC2\ETX\DC4\t\"\n\
\\f\n\
\\ENQ\EOT\NUL\STX\ETX\ETX\DC2\ETX\DC4%&\n\
\\n\
\\n\
\\STX\EOT\SOH\DC2\EOT\ETB\NUL\FS\SOH\n\
\\n\
\\n\
\\ETX\EOT\SOH\SOH\DC2\ETX\ETB\b\FS\n\
\\v\n\
\\EOT\EOT\SOH\STX\NUL\DC2\ETX\CAN\STX \n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ACK\DC2\ETX\CAN\STX\NAK\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\SOH\DC2\ETX\CAN\SYN\ESC\n\
\\f\n\
\\ENQ\EOT\SOH\STX\NUL\ETX\DC2\ETX\CAN\RS\US\n\
\\v\n\
\\EOT\EOT\SOH\STX\SOH\DC2\ETX\EM\STX(\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ACK\DC2\ETX\EM\STX\GS\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\SOH\DC2\ETX\EM\RS#\n\
\\f\n\
\\ENQ\EOT\SOH\STX\SOH\ETX\DC2\ETX\EM&'\n\
\\v\n\
\\EOT\EOT\SOH\STX\STX\DC2\ETX\SUB\STX+\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ACK\DC2\ETX\SUB\STX\CAN\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\SOH\DC2\ETX\SUB\EM&\n\
\\f\n\
\\ENQ\EOT\SOH\STX\STX\ETX\DC2\ETX\SUB)*\n\
\\v\n\
\\EOT\EOT\SOH\STX\ETX\DC2\ETX\ESC\STX'\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\ENQ\DC2\ETX\ESC\STX\b\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\SOH\DC2\ETX\ESC\t\"\n\
\\f\n\
\\ENQ\EOT\SOH\STX\ETX\ETX\DC2\ETX\ESC%&\n\
\\n\
\\n\
\\STX\EOT\STX\DC2\EOT\RS\NUL#\SOH\n\
\\n\
\\n\
\\ETX\EOT\STX\SOH\DC2\ETX\RS\b\FS\n\
\\f\n\
\\EOT\EOT\STX\b\NUL\DC2\EOT\US\STX\"\ETX\n\
\\f\n\
\\ENQ\EOT\STX\b\NUL\SOH\DC2\ETX\US\b\SO\n\
\\v\n\
\\EOT\EOT\STX\STX\NUL\DC2\ETX \EOT/\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ACK\DC2\ETX \EOT\CAN\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\SOH\DC2\ETX \EM*\n\
\\f\n\
\\ENQ\EOT\STX\STX\NUL\ETX\DC2\ETX -.\n\
\\v\n\
\\EOT\EOT\STX\STX\SOH\DC2\ETX!\EOT+\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ACK\DC2\ETX!\EOT\SYN\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\SOH\DC2\ETX!\ETB&\n\
\\f\n\
\\ENQ\EOT\STX\STX\SOH\ETX\DC2\ETX!)*\n\
\\n\
\\n\
\\STX\EOT\ETX\DC2\EOT%\NUL'\SOH\n\
\\n\
\\n\
\\ETX\EOT\ETX\SOH\DC2\ETX%\b\"\n\
\\v\n\
\\EOT\EOT\ETX\STX\NUL\DC2\ETX&\STX4\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ACK\DC2\ETX&\STX#\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\SOH\DC2\ETX&$/\n\
\\f\n\
\\ENQ\EOT\ETX\STX\NUL\ETX\DC2\ETX&23b\ACKproto3"