{- This file was auto-generated from tensorflow/core/example/example_parser_configuration.proto by the proto-lens-protoc program. -}
{-# LANGUAGE ScopedTypeVariables, DataKinds, TypeFamilies, UndecidableInstances, GeneralizedNewtypeDeriving, MultiParamTypeClasses, FlexibleContexts, FlexibleInstances, PatternSynonyms, MagicHash, NoImplicitPrelude, DataKinds, BangPatterns, TypeApplications, OverloadedStrings, DerivingStrategies#-}
{-# OPTIONS_GHC -Wno-unused-imports#-}
{-# OPTIONS_GHC -Wno-duplicate-exports#-}
{-# OPTIONS_GHC -Wno-dodgy-exports#-}
module Proto.Tensorflow.Core.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
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.featureMap' @:: Lens' ExampleParserConfiguration (Data.Map.Map Data.Text.Text FeatureConfiguration)@ -}
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__) ())
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.key' @:: Lens' ExampleParserConfiguration'FeatureMapEntry Data.Text.Text@
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.value' @:: Lens' ExampleParserConfiguration'FeatureMapEntry FeatureConfiguration@
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.maybe'value' @:: Lens' ExampleParserConfiguration'FeatureMapEntry (Prelude.Maybe FeatureConfiguration)@ -}
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__) ()))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.maybe'config' @:: Lens' FeatureConfiguration (Prelude.Maybe FeatureConfiguration'Config)@
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.maybe'fixedLenFeature' @:: Lens' FeatureConfiguration (Prelude.Maybe FixedLenFeatureProto)@
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.fixedLenFeature' @:: Lens' FeatureConfiguration FixedLenFeatureProto@
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.maybe'varLenFeature' @:: Lens' FeatureConfiguration (Prelude.Maybe VarLenFeatureProto)@
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.varLenFeature' @:: Lens' FeatureConfiguration VarLenFeatureProto@ -}
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)
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.dtype' @:: Lens' FixedLenFeatureProto Proto.Tensorflow.Core.Framework.Types.DataType@
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.shape' @:: Lens' FixedLenFeatureProto Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto@
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.maybe'shape' @:: Lens' FixedLenFeatureProto (Prelude.Maybe Proto.Tensorflow.Core.Framework.TensorShape.TensorShapeProto)@
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.defaultValue' @:: Lens' FixedLenFeatureProto Proto.Tensorflow.Core.Framework.Tensor.TensorProto@
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.maybe'defaultValue' @:: Lens' FixedLenFeatureProto (Prelude.Maybe Proto.Tensorflow.Core.Framework.Tensor.TensorProto)@
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.valuesOutputTensorName' @:: Lens' FixedLenFeatureProto Data.Text.Text@ -}
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__) ()))))
{- | Fields :
     
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.dtype' @:: Lens' VarLenFeatureProto Proto.Tensorflow.Core.Framework.Types.DataType@
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.valuesOutputTensorName' @:: Lens' VarLenFeatureProto Data.Text.Text@
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.indicesOutputTensorName' @:: Lens' VarLenFeatureProto Data.Text.Text@
         * 'Proto.Tensorflow.Core.Example.ExampleParserConfiguration_Fields.shapesOutputTensorName' @:: Lens' VarLenFeatureProto Data.Text.Text@ -}
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"